Private Sub Print_Click()
On Error GoTo Err_Trap
'### Note: if you encounter a namespace problem with a variable declaration you have to
'### put HOSPITALCREDITREQUESTMANAGER410Lib in front of the variable declaration
'### for example instead of declaring:
'### Dim address As IAddress
'### you write:
'### Dim address As HOSPITALCREDITREQUESTMANAGER410Lib.IAddress
Dim bStatus As Boolean
Dim today As Date
today = DateTime.Now
'### HospitalCreditRequestManager interface
Dim hospitalCreditManager As HOSPITALCREDITREQUESTMANAGER410Lib.HospitalCreditRequestManager
Set hospitalCreditManager = New HospitalCreditRequestManager
'### HospitalCreditRequestManager interface
Dim hospitalCreditRequest As HOSPITALCREDITREQUESTMANAGER410Lib.IHospitalCreditRequest
Set hospitalCreditRequest = hospitalCreditManager.GetHospitalCreditRequest(enGerman, "This Test Program", 100, 0)
'### module language for errors
hospitalCreditManager.ModuleLanguage = enGerman
'### set modus type
hospitalCreditManager.Modus = enTest
'### Address interface
Dim address As HOSPITALCREDITREQUESTMANAGER410Lib.IAddress
Set address = hospitalCreditRequest.CreateAddress()
'### initialize the credit request
bStatus = hospitalCreditRequest.Initialize()
'### set header only needed for XML credit requests
Dim ePrintout As YesNoType
ePrintout = enNo
bStatus = hospitalCreditRequest.SetHeader("2012345678901", "")
'### credit parameters
Dim patientID, creditID, caseID As String
Dim lResendID As Long
creditID = "200001001"
patientID = "123.02"
lResendID = 0
caseID = "2005.01001-1"
bStatus = hospitalCreditRequest.SetCredit(enRequestCreditNew, patientID, caseID, creditID, today, 0, lResendID, 0)
'### requestor
bStatus = address.Initialize()
bStatus = address.SetCompany("Company XY", "")
bStatus = address.SetPostal("Mustermusterstrasse 128", "", "4414", "Fuellinsdorf", "", "")
bStatus = address.AddPhone("956 99 00", "061", "", "")
bStatus = address.SetFax("956 99 10", "061", "", "")
bStatus = address.SetOnline("info@company.ch", "")
bStatus = hospitalCreditRequest.SetRequestor("2011234567890", "H-1211-11", "", address, "")
'### contact
Dim employee As HOSPITALCREDITREQUESTMANAGER410Lib.IAddress
Set employee = hospitalCreditRequest.CreateAddress()
bStatus = employee.Initialize()
bStatus = address.SetPerson("Meier", "Anna", "Frau", "")
bStatus = address.AddPhone("956 99 23", "061", "", "")
bStatus = address.SetFax("956 99 10", "061", "", "")
bStatus = address.SetOnline("anna.meier@company.ch", "")
bStatus = hospitalCreditRequest.SetContact(address, employee)
Set employee = Nothing
'### provider
bStatus = address.Initialize()
bStatus = address.SetPerson("Gerber", "Stefan", "Herr", "")
bStatus = address.SetPostal("Ribigasse 3-5", "", "4434", "Hoelstein", "", "")
bStatus = address.AddPhone("956 99 00", "061", "", "")
bStatus = address.SetFax("956 99 10", "061", "", "")
Dim eanProvider As String
eanProvider = "2034567890111"
bStatus = hospitalCreditRequest.SetProvider(eanProvider, "P-1234-56", "", address, "Dipl. Physiotherapeut")
'### sponsor (aka insurance)
bStatus = address.Initialize()
bStatus = address.SetCompany("Krankenkasse Basel", "")
bStatus = address.SetPostal("Kassenallee 128", "", "4000", "Basel", "", "")
bStatus = address.AddPhone("810 00 00", "061", "", "")
bStatus = address.SetFax("810 00 99", "061", "", "")
bStatus = address.SetOnline("info@krankenkasse.ch", "")
Dim dCosts As Double
dCosts = 2500#
bStatus = hospitalCreditRequest.AddSponsorKVG("7600000000000", "7600000000000", address, _
"Insured ID", DateTime.DateValue("28.1.2002"), _
"Case ID", "ContractNumber", dCosts)
'### patient
bStatus = address.Initialize()
bStatus = address.SetPerson("Eggenberger", "Rolf", "Herr", "Dr.")
bStatus = address.SetPostal("Ribigasse 3-5", "", "4434", "Hoelstein", "", "")
Dim birthdate As Date
birthdate = DateTime.DateValue("28.2.1964")
Dim eSex As SexType
eSex = enMale
Dim ssn As String
ssn = ""
bStatus = hospitalCreditRequest.SetPatient(address, enMale, birthdate, ssn, enCantonUndefined, "")
'### no referrer,surgeon, family doctor here
'### no employer here
'### treatment
Dim eCanton As CantonType
eCanton = enBL
bStatus = hospitalCreditRequest.SetTreatment(today + 10, today + 20, _
"M050", "Chirurgie", enAmbulatory, enPrevention, enRegular, _
enCantonal, enNo, enBL)
'### intended therapy
bStatus = hospitalCreditRequest.AddTherapy(enTherapyFreeText, "", "Hallux valgus")
'### Substantiation
Dim substantiation As String
substantiation = "Lorem ipsum per nostra mi fune torectum mi konstradiloru si limus mer "
bStatus = hospitalCreditRequest.AddSubstantiation(enSubstantiationTreatmentGoals, substantiation)
'### diagnosis
bStatus = hospitalCreditRequest.AddDiagnosis(enDiagnosisByContract, "A1", "A1 Text")
bStatus = hospitalCreditRequest.AddDiagnosis(enDiagnosisByContract, "B2", "")
'### finally print credit
'### use print preview for this test program
'### no print template is specified - standard template will be used
Dim lTimestamp As Long
bStatus = hospitalCreditManager.PrintFirst(enNo, "", enYes, "", Nothing, Form1.hWnd, lTimestamp)
While (bStatus = True)
bStatus = hospitalCreditManager.PrintNext("", enYes, "", Nothing, Form1.hWnd, lTimestamp)
Wend
'### relase resources
Set address = Nothing
Set hospitalCreditRequest = Nothing
Set hospitalCreditManager = Nothing
Exit Sub
Err_Trap:
MsgBox "Error: " & Err.Description, vbCritical, _
"Opps! Error" & Str$(Err.Number)
'### relase resources
Set address = Nothing
Set hospitalCreditRequest = Nothing
Set hospitalCreditManager = Nothing
End Sub
|
