' RETURN TRUE/FALSE ON CREATING DATA SHARING CARDS
		' -----------------------------------------------------------------------------------------
		Public Function CreateDataSharingCard( ByRef a_lngSubscriberID )
		
			' VARIABLES
			Dim  strPos
			Dim  strApi
			Dim  strUrl
			Dim  strMethod
			Dim  arrParams
				 strPos		  = TypeName( Me ) & ".CreateDataSharingCard( """ & a_lngSubscriberID & """ )"
				 CreateDataSharingCard = False
			Call App.Handle.Print( strPos )
		
			' PREPAIR API-REQUEST
				strUrl		= App.Config.CompanymobileApiUrl12
				strMethod	= "api_ServiceMobileExtensionCardCreate"
				arrParams	= Array( a_lngSubscriberID, 2, "", "" )
			'	strApi		= App.Handle.Process.Authorize.GetFromApi( strUrl, strMethod, arrParams, "SUCCESS" )
			'If  Not  App.Method.RegExTest( strApi, App.Config.PatternSuccess ) Then
			'	Call App.Handle.SetError( "", "Process.Authorize", strPos & " => App.Method.RegExTest( """ & strApi & """, """ & App.Config.PatternSuccess & """ ) => False" )
			'	Call App.Handle.Process.Authorize.Log( strPos & " => App.Method.RegExTest( """ & strApi & """, """ & App.Config.PatternSuccess & """ ) => False" )
			'	Exit Function
			'End If
		
			' RETURN 10-4
			CreateDataSharingCard = True
		End Function