Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllDivisions = Client.GetAllDivisions( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllDivisions( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim Division =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	Division.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	Division.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	Division.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	Division.ID =  'String: 

	'Push to Array
	Dim NewDivision() = {Division}


	'Call Service Contract
	Dim ReturnedDivisions = Client.CreateDivisions( Authorization, PartyID, NewDivision )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllDivisions( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateDivision =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateDivision.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateDivision.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateDivision.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateDivision.ID =  'String: 

	'Push to Array
	Dim NewUpdateDivision() = {UpdateDivision}


	'Call Service Contract
	Dim ReturnedUpdateDivisions = Client.UpdateDivisions( Authorization, PartyID, NewUpdateDivision )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedBranchs = Client.GetBranches( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllBranches( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim Branch =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	Branch.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	Branch.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	Branch.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	Branch.ID =  'String: 

	'Push to Array
	Dim NewBranch() = {Branch}


	'Call Service Contract
	Dim ReturnedBranchs = Client.CreateBranches( Authorization, PartyID, NewBranche )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllBranches = Client.GetAllBranches( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllBranches( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateBranche =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateBranche.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateBranche.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateBranche.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateBranche.ID =  'String: 

	'Push to Array
	Dim NewUpdateBranche() = {UpdateBranche}


	'Call Service Contract
	Dim ReturnedUpdateBranches = Client.UpdateBranches( Authorization, PartyID, NewUpdateBranche )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedDepartments = Client.GetDepartments( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllDepartments( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim Department =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	Department.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	Department.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	Department.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	Department.ID =  'String: 

	'Push to Array
	Dim NewDepartment() = {Department}


	'Call Service Contract
	Dim ReturnedDepartments = Client.CreateDepartments( Authorization, PartyID, NewDepartment )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllDepartments = Client.GetAllDepartments( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllDepartments( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateDepartment =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateDepartment.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateDepartment.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateDepartment.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateDepartment.ID =  'String: 

	'Push to Array
	Dim NewUpdateDepartment() = {UpdateDepartment}


	'Call Service Contract
	Dim ReturnedUpdateDepartments = Client.UpdateDepartments( Authorization, PartyID, NewUpdateDepartment )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedPositions = Client.GetPositions( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllDepartments( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim Position =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	Position.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	Position.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	Position.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	Position.ID =  'String: 

	'Push to Array
	Dim NewPosition() = {Position}


	'Call Service Contract
	Dim ReturnedPositions = Client.CreatePositions( Authorization, PartyID, NewPosition )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllPositions = Client.GetAllPositions( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllPositions( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdatePosition =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdatePosition.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdatePosition.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdatePosition.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdatePosition.ID =  'String: 

	'Push to Array
	Dim NewUpdatePosition() = {UpdatePosition}


	'Call Service Contract
	Dim ReturnedUpdatePositions = Client.UpdatePositions( Authorization, PartyID, NewUpdatePosition )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedACABenefitCategories = Client.GetACABenefitCategories( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllACABenefitCategories( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim ACABenefitCategory =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	ACABenefitCategory.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	ACABenefitCategory.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	ACABenefitCategory.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	ACABenefitCategory.ID =  'String: 

	'Push to Array
	Dim NewACABenefitCategory() = {ACABenefitCategory}


	'Call Service Contract
	Dim ReturnedACABenefitCategories = Client.CreateACABenefitCategories( Authorization, PartyID, NewACABenefitCategory )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllACABenefitCategories = Client.GetAllACABenefitCategories( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllACABenefitCategories( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateACABenefitCategory =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateACABenefitCategory.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateACABenefitCategory.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateACABenefitCategory.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateACABenefitCategory.ID =  'String: 

	'Push to Array
	Dim NewUpdateACABenefitCategory() = {UpdateACABenefitCategory}


	'Call Service Contract
	Dim ReturnedUpdateACABenefitCategories = Client.UpdateACABenefitCategories( Authorization, PartyID, NewUpdateACABenefitCategory )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedOfferLetterTemplates = Client.GetOfferLetterTemplates( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllOfferLetterTemplates( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim OfferLetterTemplate =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	OfferLetterTemplate.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	OfferLetterTemplate.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	OfferLetterTemplate.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	OfferLetterTemplate.ID =  'String: 

	'Push to Array
	Dim NewOfferLetterTemplate() = {OfferLetterTemplate}


	'Call Service Contract
	Dim ReturnedOfferLetterTemplates = Client.CreateOfferLetterTemplates( Authorization, PartyID, NewOfferLetterTemplate )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllOfferLetterTemplates = Client.GetAllOfferLetterTemplates( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllOfferLetterTemplates( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateOfferLetterTemplate =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateOfferLetterTemplate.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateOfferLetterTemplate.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateOfferLetterTemplate.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateOfferLetterTemplate.ID =  'String: 

	'Push to Array
	Dim NewUpdateOfferLetterTemplate() = {UpdateOfferLetterTemplate}


	'Call Service Contract
	Dim ReturnedUpdateOfferLetterTemplates = Client.UpdateOfferLetterTemplates( Authorization, PartyID, NewUpdateOfferLetterTemplate )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedBonusTypes = Client.GetBonusTypes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllBonusTypes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim BonusType =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	BonusType.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	BonusType.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	BonusType.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	BonusType.ID =  'String: 

	'Push to Array
	Dim NewBonusType() = {BonusType}


	'Call Service Contract
	Dim ReturnedBonusTypes = Client.CreateBonusTypes( Authorization, PartyID, NewBonusType )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllBonusTypes = Client.GetAllBonusTypes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllBonusTypes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateBonusType =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateBonusType.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateBonusType.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateBonusType.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateBonusType.ID =  'String: 

	'Push to Array
	Dim NewUpdateBonusType() = {UpdateBonusType}


	'Call Service Contract
	Dim ReturnedUpdateBonusTypes = Client.UpdateBonusTypes( Authorization, PartyID, NewUpdateBonusType )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedPayrollDedTypes = Client.GetPayrollDedTypes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllPayrollDedTypes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim PayrollDedType =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	PayrollDedType.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	PayrollDedType.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	PayrollDedType.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	PayrollDedType.ID =  'String: 

	'Push to Array
	Dim NewPayrollDedType() = {PayrollDedType}


	'Call Service Contract
	Dim ReturnedPayrollDedTypes = Client.CreatePayrollDedTypes( Authorization, PartyID, NewPayrollDedType )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllPayrollDedTypes = Client.GetAllPayrollDedTypes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllPayrollDedTypes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdatePayrollDedType =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdatePayrollDedType.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdatePayrollDedType.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdatePayrollDedType.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdatePayrollDedType.ID =  'String: 

	'Push to Array
	Dim NewUpdatePayrollDedType() = {UpdatePayrollDedType}


	'Call Service Contract
	Dim ReturnedUpdatePayrollDedTypes = Client.UpdatePayrollDedTypes( Authorization, PartyID, NewUpdatePayrollDedType )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedReimbursementTypes = Client.GetReimbursementTypes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllReimbursementTypes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim ReimbursementType =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	ReimbursementType.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	ReimbursementType.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	ReimbursementType.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	ReimbursementType.ID =  'String: 

	'Push to Array
	Dim NewReimbursementType() = {ReimbursementType}


	'Call Service Contract
	Dim ReturnedReimbursementTypes = Client.CreateReimbursementTypes( Authorization, PartyID, NewReimbursementType )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllReimbursementTypes = Client.GetAllReimbursementTypes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllReimbursementTypes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateReimbursementType =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateReimbursementType.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateReimbursementType.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateReimbursementType.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateReimbursementType.ID =  'String: 

	'Push to Array
	Dim NewUpdateReimbursementType() = {UpdateReimbursementType}


	'Call Service Contract
	Dim ReturnedUpdateReimbursementTypes = Client.UpdateReimbursementTypes( Authorization, PartyID, NewUpdateReimbursementType )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedWOTCPositionCodes = Client.GetWOTCPositionCodes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllWOTCPositionCodes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim WOTCPositionCode =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	WOTCPositionCode.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	WOTCPositionCode.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	WOTCPositionCode.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	WOTCPositionCode.ID =  'String: 

	'Push to Array
	Dim NewWOTCPositionCode() = {WOTCPositionCode}


	'Call Service Contract
	Dim ReturnedWOTCPositionCodes = Client.CreateWOTCPositionCodes( Authorization, PartyID, NewWOTCPositionCode )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedAllWOTCPositionCodes = Client.GetAllWOTCPositionCodes( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim VariableValueLookups = Client.GetAllWOTCPositionCodes( Authorization,  PartyID )
	Dim DisplaySequence = VariableValueLookups(0).DisplaySequence

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim UpdateWOTCPositionCode =  new EFAPI.MainAPIVariableValueLookupClass()

	'Define Required Fields
	UpdateWOTCPositionCode.Code = External_Variable_Lookup_Code 'String: A variable Value Code represents a system code for the specified variable type
	UpdateWOTCPositionCode.Description = Variable Description 'String: A variable Value description represents a human readable name for the specified variable type
	UpdateWOTCPositionCode.DisplaySequence = 1 'String: A variable Value Display Sequence represents the numerical order in which a specified variable type displays in the EHX portal.

	'Define Any Additional Fields
	UpdateWOTCPositionCode.ID =  'String: 

	'Push to Array
	Dim NewUpdateWOTCPositionCode() = {UpdateWOTCPositionCode}


	'Call Service Contract
	Dim ReturnedUpdateWOTCPositionCodes = Client.UpdateWOTCPositionCodes( Authorization, PartyID, NewUpdateWOTCPositionCode )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedPayTypes = Client.GetPayTypes( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedEmployeeTypes = Client.GetEmployeeTypes( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedEmployeeStatuses = Client.GetEmployeeStatuses( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedPayFrequencies = Client.GetPayFrequencies( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedGenders = Client.GetGenders( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedMaritalStatuses = Client.GetMaritalStatuses( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedDirectDepositTypes = Client.GetDirectDepositTypes( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID
	Dim EmployeeStatus = Client.GetEmployeeStatusByPartyID( Authorization,  EmployeeID )
	Dim RegistrationRequestID = EmployeeStatus(0).RegistrationRequestID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim RegRequestID =  'String: The employee RegistrationRequestID

	'Call Service Contract
	Dim ReturnedAttachmentss = Client.GetAttachmentList( Authorization, RegRequestID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID
	Dim EmployeeStatus = Client.GetEmployeeStatusByPartyID( Authorization,  EmployeeID )
	Dim RegistrationRequestID = EmployeeStatus(0).RegistrationRequestID
	Dim Attachments = Client.GetAttachmentList( Authorization,  RegRequestID )
	Dim Index = Attachments(0).Index

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim RegRequestID =  'String: The employee RegistrationRequestID

	'Call Service Contract
	Dim ReturnedStrings = Client.GetAttachment( Authorization, RegRequestID, Index )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim P =  new EFAPI.MainAPIPayrollClass()

	'Define Required Fields
	P.CompanyID = CompanyID 'Int32: Company ID
	P.PayrollFile =  'String: Base64 encoded sting value of the doument must be a .TXT file
	P.PayrollType = "M" 'String: Valid payroll types are M = Monthly hours/wages data, MY = Monthly Year To Date  hours/wages data, T = Term Dates, S = Start Dates, A = Annual hours/wages data
	P.Year = "2019" 'String: Current year of upload in YYYY format

	'Define Any Additional Fields
	P.Month = "01" 'String: Required field if uploading a monthly file. Current Month of upload in MM format
	P.NotificationID =  'Int32: 
	P.OverWrite =  'String: 
	P.QueueStatus =  'String: 
	P.Submitted =  'String: 
	P.TrackingGUID =  'String: A guid that you can look up the file at a later date


	'Call Service Contract
	Dim ReturnedPayrolls = Client.UploadPayroll( Authorization, P )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedCompaniess = Client.GetCompanyList( Authorization )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim ExternalID = "Evolution_Company_1337" 'String: The External ID provided by another system (payroll, ATS, etc)

	'Call Service Contract
	Dim ReturnedCompanies = Client.GetCompanyByExternalID( Authorization, ExternalID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim Company =  new EFAPI.MainAPICompanyClass()

	'Define Required Fields
	Company.CompanyID = CompanyID 'Int32: Company ID

	'Define Any Additional Fields
	Company.CompanyName = "Spacely's Sprockets" 'String: Company Name
	Company.ExportExternalID = "Evolution_Company_1337" 'String: External ID used for data exports (payroll systems, ATS, etc.)
	Company.FEIN = "12-1234567" 'String: 9 Digit Federal Employer Identification Number in format xx-xxxxxxx
	Company.ImportExternalID = "Evolution_Company_1337" 'String: External ID for data imports (payroll systems, ATS, etc.)


	'Call Service Contract
	Dim ReturnedCompanies = Client.UpdateCompany( Authorization, Company )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim FEIN = "12-1234567" 'String: 9 Digit Federal Employer Identification Number in format xx-xxxxxxx

	'Call Service Contract
	Dim ReturnedFEINs = Client.GetCompanyOrLocationByFEIN( Authorization, FEIN )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedLocationss = Client.GetLocationList( Authorization, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedLocationss = Client.GetActiveLocationList( Authorization, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Managers = Client.GetManagerList( Authorization,  CompanyID )
	Dim ManagerID = Managers(0).ManagerID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedLocationss = Client.GetLocationListForManager( Authorization, ManagerID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()


	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim ExternalManagerID = "Manager_123" 'String: An ID to handle export/import (for example from an ATS)
	Dim ExternalCompanyID = "Evolution_Company_1337" 'String: The External ID provided by another system (payroll, ATS, etc)

	'Call Service Contract
	Dim ReturnedLocationss = Client.GetLocationListForManagerWithExternalIDs( Authorization, ExternalManagerID, ExternalCompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim Location =  new EFAPI.MainAPILocationClass()

	'Define Required Fields
	Location.CompanyID = CompanyID 'Int32: Company ID
	Location.LocationID = LocationID 'String: The EHX Location ID
	Location.LocationName = "Denver's Sprockets" 'String: The specific location name
	Location.LocationNumber = "02-01" 'String: A location identifier

	'Define Any Additional Fields
	Location.Active_AI = "A Or I" 'String: Defines if location is Active ("A") or Inactive ("I")
	Location.City = "Denver" 'String: Location City
	Location.Email = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)
	Location.ExportExternalID = "Evolution_Company_1337" 'String: External ID used for data exports (payroll systems, ATS, etc.)
	Location.FEIN = "12-1234567" 'String: 9 Digit Federal Employer Identification Number in format xx-xxxxxxx
	Location.ImportExternalID = "Evolution_Company_1337" 'String: External ID for data imports (payroll systems, ATS, etc.)
	Location.Phone = "303-555-1234" 'String: Location Phone Number (Accepts most phone number formats)
	Location.State = "CO" 'String: Two-Character Postal Abbreviation
	Location.Street1 = "143 Maple Street" 'String: Primary Street Address
	Location.Street2 = "Suite #301" 'String: Secondary Address Unit Designator
	Location.ZipCode = "80206" 'String: 5 or 5+4 Postal Zip Code as String

	'Push to Array
	Dim NewLocation() = {Location}


	'Call Service Contract
	Dim ReturnedLocationss = Client.ImportLocations( Authorization, Locations )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim Location =  new EFAPI.MainAPILocationClass()

	'Define Required Fields
	Location.CompanyID = CompanyID 'Int32: Company ID
	Location.LocationID = LocationID 'String: The EHX Location ID
	Location.LocationName = "Denver's Sprockets" 'String: The specific location name
	Location.LocationNumber = "02-01" 'String: A location identifier

	'Define Any Additional Fields
	Location.Active_AI = "A Or I" 'String: Defines if location is Active ("A") or Inactive ("I")
	Location.City = "Denver" 'String: Location City
	Location.Email = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)
	Location.ExportExternalID = "Evolution_Company_1337" 'String: External ID used for data exports (payroll systems, ATS, etc.)
	Location.FEIN = "12-1234567" 'String: 9 Digit Federal Employer Identification Number in format xx-xxxxxxx
	Location.ImportExternalID = "Evolution_Company_1337" 'String: External ID for data imports (payroll systems, ATS, etc.)
	Location.Phone = "303-555-1234" 'String: Location Phone Number (Accepts most phone number formats)
	Location.State = "CO" 'String: Two-Character Postal Abbreviation
	Location.Street1 = "143 Maple Street" 'String: Primary Street Address
	Location.Street2 = "Suite #301" 'String: Secondary Address Unit Designator
	Location.ZipCode = "80206" 'String: 5 or 5+4 Postal Zip Code as String


	'Call Service Contract
	Dim ReturnedLocations = Client.UpdateLocation( Authorization, Location )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedManagerss = Client.GetManagerList( Authorization, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Managers = Client.GetManagerList( Authorization,  CompanyID )
	Dim ManagerID = Managers(0).ManagerID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim Manager =  new EFAPI.MainAPIManagerClass()

	'Define Required Fields
	Manager.CompanyID = CompanyID 'Int32: Company ID
	Manager.Email = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)
	Manager.FirstName = "George" 'String: First Name
	Manager.LastName = "Jetson" 'String: Last Name
	Manager.ManagerID = ManagerID 'String: The EHX ManagerID

	'Define Any Additional Fields
	Manager.CreatedAt =  'String: 
	Manager.EFUserID = "GJettson" 'String: The manager's Login ID for the EF Manager Portal
	Manager.ExternalManagerID = "Manager_123" 'String: An ID to handle export/import (for example from an ATS)
	Manager.ManagerLevel = "Middle Management" 'String: Management Level can be used to group managers
	Manager.PartyStatus = "A Or I" 'String: Defines if location is Active ("A") or Inactive ("I")
	Manager.Title = "RUDI Operations Manager" 'String: Specific manager's official title

	'Push to Array
	Dim NewManager() = {Manager}


	'Call Service Contract
	Dim ReturnedManagerss = Client.ImportManagers( Authorization, Managers )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Managers = Client.GetManagerList( Authorization,  CompanyID )
	Dim ManagerID = Managers(0).ManagerID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim Manager =  new EFAPI.MainAPIManagerClass()

	'Define Required Fields
	Manager.CompanyID = CompanyID 'Int32: Company ID
	Manager.Email = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)
	Manager.FirstName = "George" 'String: First Name
	Manager.LastName = "Jetson" 'String: Last Name
	Manager.ManagerID = ManagerID 'String: The EHX ManagerID

	'Define Any Additional Fields
	Manager.CreatedAt =  'String: 
	Manager.EFUserID = "GJettson" 'String: The manager's Login ID for the EF Manager Portal
	Manager.ExternalManagerID = "Manager_123" 'String: An ID to handle export/import (for example from an ATS)
	Manager.ManagerLevel = "Middle Management" 'String: Management Level can be used to group managers
	Manager.PartyStatus = "A Or I" 'String: Defines if location is Active ("A") or Inactive ("I")
	Manager.Title = "RUDI Operations Manager" 'String: Specific manager's official title


	'Call Service Contract
	Dim ReturnedManagers = Client.UpdateManager( Authorization, Manager )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Managers = Client.GetManagerList( Authorization,  CompanyID )
	Dim ManagerID = Managers(0).ManagerID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim LocationID =  'Int32[]: 
	'Push to Array
	Dim NewLocationID() = {LocationID}


	'Call Service Contract
	Dim ReturnedStrings = Client.UpdateManagerLocations( Authorization, ManagerID, LocationIDs )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim ExternalID = "Evolution_Company_1337" 'String: The External ID provided by another system (payroll, ATS, etc)

	'Call Service Contract
	Dim ReturnedEmployees = Client.GetEmployeeByExternalID( Authorization, ExternalID, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim FirstName = "George" 'String: First Name
	Dim LastName = "Jetson" 'String: Last Name

	'Call Service Contract
	Dim ReturnedEmployeess = Client.GetEmployeeByName( Authorization, FirstName, LastName, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim FirstName = "George" 'String: First Name
	Dim LastName = "Jetson" 'String: Last Name
	Dim Email = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)

	'Call Service Contract
	Dim ReturnedEmployeeLookupss = Client.LookupEmployee( Authorization, CompanyID, FirstName, LastName, Email )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim DaysBack = 2 'Int32: Number of days you wish to look back

	'Call Service Contract
	Dim ReturnedEmployeeLookupss = Client.LookupEmployeeCreatedSince( Authorization, CompanyID, DaysBack )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim EMail = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)

	'Call Service Contract
	Dim ReturnedEmployeess = Client.GetEmployeeByEmail( Authorization, EMail, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'String: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedEmployees = Client.GetEmployeeByPartyID( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim SSN = "000-00-0000" 'String: The SSN should be passed in the format xxx-xx-xxxx

	'Call Service Contract
	Dim ReturnedEmployees = Client.GetEmployeeBySSN( Authorization, SSN, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID
	Dim RegistrationRequestTypes = Client.GetRegRequestTypes( Authorization,  CompanyID )
	Dim RegTypeCode = RegistrationRequestTypes(0).RegTypeCode
	Dim EmployeeStatusArray = Client.GetEmployeeStatuses( Authorization )
	Dim EmployeeStatus = EmployeeStatusArray(0).Code
	Dim GenderArray = Client.GetGenders( Authorization )
	Dim Gender = GenderArray(0).Code
	Dim PayRateTypeArray = Client.GetPayTypes( Authorization )
	Dim PayRateType = PayRateTypeArray(0).Code

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim Employee =  new EFAPI.MainAPIEmployeeClass()

	'Define Required Fields
	Employee.CompanyID = CompanyID 'Int32: Company ID
	Employee.Email = "Support@SpacelySprockets.com" 'String: Must be a valid email (Must contain @ character preceded and followed by standard alphanumeric characters)
	Employee.FirstName = "George" 'String: First Name
	Employee.LastName = "Jetson" 'String: Last Name
	Employee.LocationID = LocationID 'Int32: The EHX Location ID

	'Define Any Additional Fields
	Employee.DateOfBirth = "11/23/1912" 'String: Employees date of birth in format MM/DD/YYYY
	Employee.DateOfHire = "09/23/1962" 'String: Employees Hire date in format MM/DD/YYYY
	Employee.EmployeeID = "140777" 'Int32: An employee's EHX ID. Can also be retrieved via GetEmployeeByXXXXXX, and LookupEmployee methods
	Employee.EmployeeStatus = EmployeeStatus 'String: Employee Status Code ('exempt', 'non-exempt'), the options available for a specific Company/SB are available via GetEmployeeStatuses Contract
	Employee.ExternalEmployeeID = "GJetson201" 'String: An external ID, ie. from an ATS or payroll system
	Employee.Gender = Gender 'String: String representation of Gender. Options available for a specific Company/SB are available via GetGenders Contract
	Employee.HomeAddress1 = "855 Visionary Trail" 'String: Primary Street Address
	Employee.HomeAddress2 = "Suite #345" 'String: Secondary Address Unit Designator
	Employee.HomeCity = "Golden" 'String: Employee city name
	Employee.HomeState = "CO" 'String: two-character Postal abbreviation
	Employee.HomeZip = "80401" 'String: 5 or 5+4 Postal Zip Code as String
	Employee.HoursPerWeek = "2" 'String: Hours Worked Weekly, must be castable to a Float
	Employee.MailAddress1 = "4000 Warner Boulevard" 'String: Employee primary street address, or PO Box for mailing
	Employee.MailAddress2 = "Studio #2" 'String: Employee Secondary Address Unit Designator for mailing
	Employee.MailCity = "Burbank" 'String: Employee mailing address city
	Employee.MailState = "CA" 'String: two-character Postal abbreviation
	Employee.MailZip = "91522" 'String: 5 or 5+4 Postal Zip Code as String
	Employee.MiddleName = "Washington" 'String: Employee Middle Name
	Employee.PayRateOne = "120000.00" 'String: An employee's defined pay rate
	Employee.PayRateOvertimeOne = "12" 'String: An employee's overtime payrate
	Employee.PayRateType = PayRateType 'String: The type of payrate for the employee (typically "Hourly"/"Salary"). All available options can be retrieved with GetPayRates contract
	Employee.PhonePrimary = "303-555-1234" 'String: Employee primary phone number (Accepts most phone number formats)
	Employee.PhoneSecondary = "303-555-1234" 'String: Employee secondary phone number (Accepts most phone number formats)
	Employee.RegisterLink = "CO" 'String: A location identifier
	Employee.SSN = "000-00-0000" 'String: The SSN should be passed in the format xxx-xx-xxxx
	Employee.StartDate = "08/23/2001" 'String: Employees start date in format MM/DD/YYYY
	Employee.Supervisor = "Cosmo Spacely" 'String: Supervisor Name
	Employee.WorkState = "CO" 'String: two-character Postal abbreviation

	'Push to Array
	Dim NewEmployee() = {Employee}

	Dim RegistrationTypeCode = RegTypeCode 'String: Initial RegRequest Type. You can return options via GetRegRequestTypes()
	Dim SendRegEmailYN = "Y or N" 'String: Single Character Y/N if you want EHX to send the employee a registration email

	'Call Service Contract
	Dim ReturnedEmployeess = Client.ImportEmployees( Authorization, Employees, RegistrationTypeCode, SendRegEmailYN )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim RegistrationRequestID =  'Int32: 

	'Call Service Contract
	Dim ReturnedStrings = Client.GetForms( Authorization, RegistrationRequestID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Int32s = Client.GetEmployeeRegistrationRequestsNeedingExport( Authorization,  CompanyID,  RegistrationTypeCode,  RegistrationStatus )
	Dim RegRequestID = Int32s(0).RegRequestID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim RegistrationRequestID =  'Int32: 

	'Call Service Contract
	Dim ReturnedEmployeeExports = Client.GetEmployeeData( Authorization, RegistrationRequestID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim RegistrationRequestTypes = Client.GetRegRequestTypes( Authorization,  CompanyID )
	Dim RegTypeCode = RegistrationRequestTypes(0).RegTypeCode
	Dim RegistrationRequestStatuss = Client.GetRegRequestStatuses( Authorization,  CompanyID )
	Dim RegStatus = RegistrationRequestStatuss(0).RegStatus

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim RegistrationTypeCode = RegTypeCode 'String: Initial RegRequest Type. You can return options via GetRegRequestTypes()
	Dim RegistrationStatus = RegStatus 'String: Initial RegRequest Type. You can return options via GetRegRequestStatuses()

	'Call Service Contract
	Dim ReturnedInt32ss = Client.GetEmployeeRegistrationRequestsNeedingExport( Authorization, CompanyID, RegistrationTypeCode, RegistrationStatus )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedEmployeeStatuss = Client.GetEmployeeStatusByPartyID( Authorization, EmployeeID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Int32s = Client.GetEmployeeRegistrationRequestsNeedingExport( Authorization,  CompanyID,  RegistrationTypeCode,  RegistrationStatus )
	Dim RegRequestID = Int32s(0).RegRequestID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedEmployeeStatuss = Client.GetEmployeeStatusByRegistrationRequest( Authorization, RegRequestID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID
	Dim EmployeeStatusArray = Client.GetEmployeeStatuses( Authorization )
	Dim EmployeeStatus = EmployeeStatusArray(0).Code

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.
	Dim Status = EmployeeStatus 'String: An employee status. Available statuses can be retrieved via GetEmployeeStatuses contract.

	'Call Service Contract
	Dim ReturnedStrings = Client.UpdateEmployeeStatus( Authorization, PartyID, Status )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedStrings = Client.RequestSingleSignon( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim ExternalManagerID = "Manager_123" 'String: An ID to handle export/import (for example from an ATS)
	Dim ExternalCompanyID = "Evolution_Company_1337" 'String: The External ID provided by another system (payroll, ATS, etc)

	'Call Service Contract
	Dim ReturnedStrings = Client.RequestSingleSignonWithExternalIDs( Authorization, ExternalManagerID, ExternalCompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'String: PartyID is an identifier for Employee, Company or Location.
	Dim Password =  'String: 

	'Call Service Contract
	Dim ReturnedStrings = Client.AuthenticateID( Authorization, PartyID, Password )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim EmployeeLookups = Client.LookupEmployee( Authorization,  CompanyID,  FirstName,  LastName,  Email )
	Dim EmployeeID = EmployeeLookups(0).EmployeeID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim CompanyID = CompanyID 'String: Company ID
	Dim UserID =  'String: 
	Dim Password =  'String: 

	'Call Service Contract
	Dim ReturnedEmployees = Client.AuthenticateUserID( Authorization, CompanyID, UserID, Password )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedRegistrationRequestStatusss = Client.GetRegRequestStatuses( Authorization, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID

	'Call Service Contract
	Dim ReturnedRegistrationRequestTypess = Client.GetRegRequestTypes( Authorization, CompanyID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim RegRequestID =  'Int32: The employee RegistrationRequestID

	'Call Service Contract
	Dim ReturnedStrings = Client.SetRegRequestAsExported( Authorization, RegRequestID )

	'Do Stuff with Return
	Yay stuff!

End Sub

Sub Main()

	'Initialize The Service Reference Client
	Dim Client = New EFAPI.EFAPIServiceInterfaceClient()

	'Make Prerequisite calls
	Dim Companies = Client.GetCompanyList( Authorization )
	Dim CompanyID = Companies(0).CompanyID
	Dim Locations = Client.GetLocationList( Authorization,  CompanyID )
	Dim LocationID = Locations(0).LocationID

	'Generate Call Parameters
	Dim Authorization = "DEVAPISB-3ea4-47da-9361-6266288dfa9e" 'String: Your Authorization GUID
	Dim PartyID = "123456" 'Int32: PartyID is an identifier for Employee, Company or Location.

	'Call Service Contract
	Dim ReturnedDivisions = Client.GetDivisions( Authorization, PartyID )

	'Do Stuff with Return
	Yay stuff!

End Sub