DEVELOPMENT OF CF5 on 192.168.6.206
Start fORM  for CF5
PHILHEALTH MODULE (applicable to all clients)




created ClaimForm5
added fields are commented with 
'ADDED by ARNOLD ERICK MIKKO PALPAL-LATOC 5/10/2024



created table tbMedCF5Diagnosis

added ClaimForm5Entry.False and ClaimForm5Entry.blnDataEntry in frmMedicare, Public Sub EnableDisableOptions(intTab As Integer), 
with 'ADDED by ARNOLD ERICK MIKKO PALPAL-LATOC 5/10/2024

created sp Medic_Cf5ICD/RVSRestrictions to for warning of not available codes in primary
created table CF5RestrictedCodes
create sp medic_loadCF5
created cf5 crystal report


ECLAIMS MODULE 'arnold 6.28.2024

'arnold 6.28.2024
Private isAllowCF5 As Boolean
'--------------------------------
'arnold 6.28.2024
isAllowCF5 = ProgSettingsGbl.IsProgramSettingExists("9829HC62-AB5B-18EB-AD0B-91B3B07E45D5") ' 9829HC62-AB5B-18EB-AD0B-91B3B07E45D5 ECLAIMS : CF5
'------------------
'arnold 6.28.2024
cmdAction(7).Visible = isAllowCF5 
'------------------
'arnold 6.28.2024
Private Function WithUploadedCF5() As Boolean

'arnold 6.28.2024
-In procedure cmbDocumentType_click:
    cmdAction(7).Enabled = False
    If selectedDocumentCode = "CF5" Then
        cmdAction(7).Enabled = True
    End If
'arnold 6.28.2024
-In Private Function BrowseFile:
    ElseIf selectedDocumentCode = "CF5" Then
        dlgFile.Filter = "Xml Files (*.xml)|*.xml"

'arnold 6.28.2024
added in modGlobaVariable :
-Global Cf5ImplementationDate As Date


added in clsXMLBuilder:
-Friend Function CreateCF5xml

add in tbmedeclaimsprogramsettings:
insert into medicare..tbMedEClaimsProgramSettings (id,Description) values ('9829HC62-AB5B-18EB-AD0B-91B3B07E45D5','ECLAIMS : CF5')

Create class CF5XML


'arnold 6.28.2024
Property Get isCF5Success() As Boolean
    isCF5Success = blnCF5Success
End Property


added functions HasCF5ransNo,GetCF5SeriesNo,SaveCF5XmlLog,
IsCF5Verified(not yet needed),GetCF5ImplementationStartDate(not yet identified)



Create class CF5

CREATED PROCEDURE MEDICREP_CF5XML

USE CF5XML dtd file sent by philhealth

check decrypt password


modified MedSys.PhicSoap.Gateway.dll (trace esoa and cf4 then do it on cf5)
in COM.ServiceWrapper>MedSysPhicSoapGateway>Implementations>C# ElectronicClaims.cs>ElectronicClaims: 
add     //arnold added CF5 TEST 6.28.2024
       private string _validatedCF5Result;
       public string ValidateCF5XmlToDtd(string sourceFile, string dtdFilePath)
       {
           string sourcePath = File.ReadAllText(sourceFile);
           string root = Path.GetDirectoryName(dtdFilePath);
           string resultPath = root + "\\ValidationResult.xml";
           FileStream fs = null;
           System.Xml.XmlReaderSettings settings = null;
           System.Xml.XmlReader reader = null;
           _validatedCF5Result = "";
           try
           {
               // Set the validation settings.
               settings = new System.Xml.XmlReaderSettings();
               settings.ValidationType = System.Xml.ValidationType.DTD;
               settings.DtdProcessing = System.Xml.DtdProcessing.Parse;
               settings.ValidationEventHandler += new System.Xml.Schema.ValidationEventHandler(ValidationCF5CallBack);
               settings.IgnoreWhitespace = true;

               if (File.Exists(resultPath)) File.Delete(resultPath);

               using (fs = File.Create(resultPath))
               {
                   Byte[] info = new System.Text.UTF8Encoding(true).GetBytes("");
                   fs.Write(info, 0, info.Length);
               }

               fs = new FileStream(resultPath, FileMode.Create);
               using (StreamWriter writer = new StreamWriter(fs, System.Text.Encoding.UTF8, 512, false))
               {
                   writer.Write(string.Format("<!DOCTYPE CF5 SYSTEM \"{0}\">", dtdFilePath));
                   writer.Write(sourcePath);
               }

               reader = System.Xml.XmlReader.Create(resultPath, settings);
               while (reader.Read()) { }

           }
           finally
           {
               if (fs != null)
                   fs.Dispose();

               if (reader != null)
                   reader.Dispose();

               if (settings != null)
                   settings.Reset();
           }
           return _validatedCF5Result;
       }

       private void ValidationCF5CallBack(object sender, System.Xml.Schema.ValidationEventArgs e)
       {
           if (e.Severity == System.Xml.Schema.XmlSeverityType.Warning)
           {
               _validatedCF5Result = "Warning: Matching schema not found.  No validation occurred." + e.Message;
               //Console.WriteLine("Warning: Matching schema not found.  No validation occurred." + e.Message);
               //Console.ReadKey();
           }
           else // Error
           {
               _validatedCF5Result = "Validation error: " + e.Message;
               //Console.WriteLine("Validation error: " + e.Message);
               //Console.ReadKey();
           }
       }
       //arnold added CF5 TEST 6.28.2024 end


in C# IElectronicClaims.cs>IElectronicClaims : 
add string ValidateCF5XmlToDtd(string sourceFile, string dtdFilePath);