Attribute VB_Name = "A_NOTES_README"
'Sample Code


'    With pclsUser.MEDSYSClasses.clsBilling
'
'        .RevenueID = "OP" ' change to youre revenueID
'
'        .CashAssessment
'        .PostCharges
'        .AssessmentStatus
'        .PreviousCharges
'        .NursingRequest
'        .ShowFinal
'        .PharmacyEntry
'        .ReceivableCharges
'        .ViewResults
'
'    End With
'
'
'
'
'Standard Forms:
'frmAssessment
'frmPostCharge
'frmAssessStatus
'frmCashCM
'frmChargeSlipNo
'frmOPDPackage
'frmFinal
'frmCSREntry
'frmRequest
'frmRemarks
'frmDiscountType
'frmPHEntry
'frmReceivableEntry
'frmRequestStatus
'frmCSREntry
'frmDoctorsFee
'
'
'Standard Methods:
'PostCharges
'CashAssessment
'AssessmentStatus
'PreviousCharges
'NursingRequest
'ShowFinal
'PharmacyEntry
'ReceivableCharges
'ViewResults
'
'Standard Functions:
'CheckUpdatedRates
'get_MarkUpRate
'get_FirstRate(strRevenueId As String, strItemID As String) As Double
'RecallBill(strAdmissionNumber As String, strDcrDate As String, strBillingDate As String, pdCurDate As String, stremployeeID As String) As Boolean
'Nurse_Discharge_Notice(AdmissionNumber As String, BillingClerk As String, CloseBill As Boolean)
'CloseBill(strAdmissionNumber As String, strDcrDate As String, strBillingDate As String, strHospNum As String, stremployeeID As String) As Boolean
'MedicalFee(AdmissionNumber As String) As Double
'HospitalBill(AdmissionNumber As String) As Double
'TotalPayment(AdmissionNumber As String) As Double
'HospitalBillWithoutPayment(AdmissionNumber As String) As Double
'TotalBill(AdmissionNumber As String) As Double
'Discharge_InPatient(AdmissionNumber As String, HospNum As String, dcrDate As String, dblHospBill As String, stremployeeID As String, Optional MarkARDate As Boolean = True) As Boolean
'Discharge_OutPatient(AdmissionNumber As String, HospNum As String, dcrDate As String, dblHospBill As String, stremployeeID As String, Optional MarkARDate As Boolean = True) As Boolean
'Recall_InPatient_At_Billing(AdmissionNumber As String) As Boolean
'Recall_OutPatient(AdmissionNumber As String) As Boolean
'CheckHMOAccount(strAccountNum As String) As Boolean
'CheckFixRate(RevenueID As String, ItemID As String) As Boolean
'Get_strType
'GetSpecializedRate(pstrCompanyCode As String, pstrRevenueId As String, pstrItemID As String) As Double
'NewValidateAfterFivePm() As Boolean
'NewValidateWeekend() As Boolean
'ValidateCompany(strCompanyCode As String) As Boolean
'CheckIfPatientCardItem(strRevenueId As String, strItemID As String) As Boolean
'Check_Cleared_Department(strID As String, strDept As String) As Boolean
'CheckFinalDischargeNotice(strIdNum As String) As Boolean
'Check_ExamRequest(strID As String, strCode As String, strRevenueId As String) As Boolean
'Check_ExamPosted(strID As String, strCode As String, strRevenueId As String) As Boolean
'Check_Patient_IsSeniorCitizen(strIdNum As String) As Boolean
'Get_Patient_PackageType(strIdNum As String, strType As String) As String
'CheckOpenLateCharges(strIdNum As String) As Boolean
'Check_IfERRate(strIdNum As String) As Boolean
'GetInterNationalRate(strItemID As String, pstrRoomclass As String, strRevenueId As String) As Double
'Check_IfICURate(strIdNum As String) As Boolean
'GetHMOSocializedPrivingICURate(strItemID As String, pstrRoomclass As String) As Double
'Check_VAAccount(strCompanyCode As String) As Boolean
'GetVARate(strCompanyCode As String, strRevenueId As String, strItemID As String, strLocationID As String) As Double
'Get_AccountNum(strIdNum As String, strPatientType As String) As String