ESOA IMPLEMENTATION (LORMA)-----------------------------------------------------------------------------------------------------------------------------------
billing database: get from 6.206
CREATE sp_PARS_LoadSOA_PHIC_SPLIT_NewFormat_ESOA
CREATE sp_PARS_RepSOASummarized_Columns_PHICVER2_SPLIT_ESOA
CREATE sp_BILLING_GetPXinfo_Ver2 from 6.206

medicare database and philhealth program:
place rpt in Report folder : SOA_Summarized_Columns_PHIC_New_Split_VAT_NewFormat_PNF_ESOA.rpt
CREATED FUNCTION dbo.fn_isPxESOACirc20230021
CREATED INSERT INTO TBMED_MODULESETTINGS esoa script
INSERT INTO CODE 
Public Function isPatient_ESOACirc20230021(stridnum As String) As Boolean
    Dim SQL As String
    
    isPatient_ESOACirc20230021 = False
    SQL = "Select Medicare.dbo.fn_isPxESOACirc20230021('" & stridnum & "') as isPatient_ESOACirc20230021"
        
        With Rec
            If .State > 0 Then .Close
            .CursorLocation = adUseClient
            .Open SQL, user.SQLConnection, adOpenDynamic, adLockReadOnly
            
            If .RecordCount > 0 Then
                isPatient_ESOACirc20230021 = !isPatient_ESOACirc20230021
            End If
            .Close
        End With
        Set Rec = Nothing
End Function
created function CheckDcrDate source code



CREATED Private Sub mnu_ESOA_Preprinted_Click()
CREATED Private Sub mnu_ESOA_Complete_Click()
run ESOASwitchForLMCandVSS.sql script('280','SOA Complete Version 6 ESOA Format','B','2','1') - LORMA - check menu first before inserting

add column (ESOAStatus,ESOAVerifiedOn,ESOAVerifiedBy) in station..tbnurseprofile
add data in station..tbnursesetup = insert into station..tbNurseSetup (field,value,status,description) values ('ESOARequireStart','2023-02-01','1','')

add tables tbMedEClaimsESOAXml, tbMedEClaimsESOAXmlSeries


ESOA IMPLEMENTATION (VSS/other clients)---------------------------------------------------------------------------------------------------------------------
billing database: get from 6.206
CREATE sp_PARS_LoadSOA_PHIC_SPLIT_NewFormat_ESOA
CREATE sp_PARS_RepSOASummarized_Columns_PHICVER2_SPLIT_ESOA
CREATE sp_BILLING_GetPXinfo_Ver2 from 6.206

medicare database and philhealth program:
place rpt in Report folder : SOA_Summarized_Columns_PHIC_New_Split_VAT_NewFormat_PNF_ESOA.rpt
CREATED FUNCTION dbo.fn_isPxESOACirc20230021
CREATED INSERT INTO TBMED_MODULESETTINGS esoa script
INSERT INTO CODE 
Public Function isPatient_ESOACirc20230021(stridnum As String) As Boolean
    Dim SQL As String
    
    isPatient_ESOACirc20230021 = False
    SQL = "Select Medicare.dbo.fn_isPxESOACirc20230021('" & stridnum & "') as isPatient_ESOACirc20230021"
        
        With Rec
            If .State > 0 Then .Close
            .CursorLocation = adUseClient
            .Open SQL, user.SQLConnection, adOpenDynamic, adLockReadOnly
            
            If .RecordCount > 0 Then
                isPatient_ESOACirc20230021 = !isPatient_ESOACirc20230021
            End If
            .Close
        End With
        Set Rec = Nothing
End Function
created function CheckDcrDate
CREATED Private Sub mnu_ESOA_Preprinted_Click()
CREATED Private Sub mnu_ESOA_Complete_Click()

run ESOASwitchForLMCandVSS.sql script ('283','SOA Complete Version 4 ESOA Format','B','2','1')  -VSS - check menu first before inserting


add column (ESOAStatus(varchar50),ESOAVerifiedOn(datetime),ESOAVerifiedByv(varchar150)) in station..tbnurseprofile
add data in station..tbnursesetup = insert into station..tbNurseSetup (field,value,status,description) values ('ESOARequireStart','2023-02-01','1','')
add tables tbMedEClaimsESOAXml, tbMedEClaimsESOAXmlSeries




eclaims module:
ECLAIMS part (TAKE NOTE ModLOcalDBNewFields soon to add ESOA settings)
added  in frmsupportingDocuments:
-isEsoaPatient as boolean
-isEsoaPatient = GetAdmDate(mvarIdNum) > EsoaImplementationDate
-isAllowESOA = ProgSettingsGbl.IsProgramSettingExists("A0B2AD25-9H2Y-7AB4-45B7-5GT5D5X1C621") ' A0B2AD25-9H2Y-7AB4-45B7-5GT5D5X1C621 ECLAIMS : ESOA
-cmdAction(6).Visible = isAllowESOA And isEsoaPatient
-Private Function WithUploadedESOAXml() As Boolean
-In procedure cmbDocumentType_click:
If selectedDocumentCode = "ESOA" Then
        cmdAction(6).Enabled = True
    End If
-In Private Function BrowseFile:
ElseIf selectedDocumentCode = "ESOA" Then
        dlgFile.Filter = "Xml Files (*.xml)|*.xml"



added in modGlobaVariable :
-Global EsoaImplementationDate As Date


added in clsXMLBuilder:
-Friend Function CreateESOAXml

add in tbmedeclaimsprogramsettings:
-  insert into medicare..tbMedEClaimsProgramSettings (ID,Description) values ('6905CE49-8YCV-KLA4-0BS3-LQM15BE84CCD','SUPPORTING DOCUMENTS : VALIDATE ESOA VERIFIED')
-  insert into medicare..tbMedEClaimsProgramSettings (ID,Description) values ('A0B2AD25-9H2Y-7AB4-45B7-5GT5D5X1C621','ECLAIMS : ESOA')


added functions HasESOATransNo,GetESOASeriesNo,SaveESOAXmlLog,IsEsoaVerified,GetESOAImplementationStartDate

Create class ESOAXml

CREATED PROCEDURE MEDICREP_ESOAXML

Create ESOAXML dtd file

modified MedSys.PhicSoap.Gateway.dll