///<summary>PatNum will not be altered here. The pat passed in must either have PatNum=0, or must have a PatNum matching the segment. The reason that isStandalone is passed in is because if using tight integration mode (isStandalone=false), then we need to store the "alternate patient id" aka Account No. that comes in on PID.4 in the ChartNumber field so we can pass it back in PID.2 of the DFT charge message. However, if not using tight integration (isStandalone=true), the ChartNumber field is already occupied by the eCW patient ID, and we do not want to overwrite it.</summary>
public static void ProcessPID(Patient pat, SegmentHL7 seg, bool isStandalone)
{
long patNum = PIn.Long(seg.GetFieldFullText(2));
//if(pat.PatNum==0) {
// pat.PatNum=patNum;
//}
//else
if (pat.PatNum != 0 && pat.PatNum != patNum)
{
throw new ApplicationException("Invalid patNum");
}
if (!isStandalone) //when in tight integration mode
{
pat.ChartNumber = seg.GetFieldFullText(4);
}
pat.LName = seg.GetFieldComponent(5, 0);
pat.FName = seg.GetFieldComponent(5, 1);
pat.MiddleI = seg.GetFieldComponent(5, 2);
pat.Birthdate = DateParse(seg.GetFieldFullText(7));
pat.Gender = GenderParse(seg.GetFieldFullText(8));
pat.Race = RaceParse(seg.GetFieldFullText(10));
pat.Address = seg.GetFieldComponent(11, 0);
pat.Address2 = seg.GetFieldComponent(11, 1);
pat.City = seg.GetFieldComponent(11, 2);
pat.State = seg.GetFieldComponent(11, 3);
pat.Zip = seg.GetFieldComponent(11, 4);
pat.HmPhone = PhoneParse(seg.GetFieldFullText(13));
pat.WkPhone = PhoneParse(seg.GetFieldFullText(14));
pat.Position = MaritalStatusParse(seg.GetFieldFullText(16));
//pat.ChartNumber=seg.GetFieldFullText(18);//this is wrong. Would also break standalone mode
pat.SSN = seg.GetFieldFullText(19);
pat.FeeSched = FeeScheduleParse(seg.GetFieldFullText(22));
}
///<summary>PatNum will not be altered here. The pat passed in must either have PatNum=0, or must have a PatNum matching the segment. The reason that isStandalone is passed in is because if using tight integration mode (isStandalone=false), then we need to store the "alternate patient id" aka Account No. that comes in on PID.4 in the ChartNumber field so we can pass it back in PID.2 of the DFT charge message. However, if not using tight integration (isStandalone=true), the ChartNumber field is already occupied by the eCW patient ID, and we do not want to overwrite it.</summary>
public static void ProcessPID(Patient pat, SegmentHL7 seg, bool isStandalone, List <PatientRace> listPatRaces)
{
long patNum = PIn.Long(seg.GetFieldFullText(2));
//Standalone mode may not have found a matching patient within the database and will be inserted later in the message processing.
if (isStandalone && pat != null)
{
patNum = pat.PatNum; //Standalone mode cannot always trust the PatNum in field 2. Always use pat.PatNum because that will the OD PatNum.
}
//if(pat.PatNum==0) {
// pat.PatNum=patNum;
//}
//else
if (!isStandalone && //in standalone, the patnums won't match, so don't check
pat.PatNum != 0 && pat.PatNum != patNum)
{
throw new ApplicationException("Invalid patNum");
}
if (!isStandalone) //when in tight integration mode
{
pat.ChartNumber = seg.GetFieldFullText(4);
}
pat.LName = seg.GetFieldComponent(5, 0);
pat.FName = seg.GetFieldComponent(5, 1);
pat.MiddleI = seg.GetFieldComponent(5, 2);
pat.Birthdate = DateParse(seg.GetFieldFullText(7));
pat.Gender = GenderParse(seg.GetFieldFullText(8));
if (patNum > 0)
{
listPatRaces.Clear();
listPatRaces.AddRange(RaceParse(seg.GetFieldFullText(10), patNum));
}
pat.Address = seg.GetFieldComponent(11, 0);
pat.Address2 = seg.GetFieldComponent(11, 1);
pat.City = seg.GetFieldComponent(11, 2);
pat.State = seg.GetFieldComponent(11, 3);
pat.Zip = seg.GetFieldComponent(11, 4);
pat.HmPhone = PhoneParse(seg.GetFieldFullText(13));
pat.WkPhone = PhoneParse(seg.GetFieldFullText(14));
pat.Position = MaritalStatusParse(seg.GetFieldFullText(16));
//pat.ChartNumber=seg.GetFieldFullText(18);//this is wrong. Would also break standalone mode
pat.SSN = seg.GetFieldFullText(19);
if (ProgramProperties.GetPropVal(ProgramName.eClinicalWorks, "FeeSchedulesSetManually") == "0") //if !FeeSchedulesSetManually
{
pat.FeeSched = FeeScheduleParse(seg.GetFieldFullText(22));
}
}
///<summary>PatNum will not be altered here. The pat passed in must either have PatNum=0, or must have a PatNum matching the segment. The reason that isStandalone is passed in is because if using tight integration mode (isStandalone=false), then we need to store the "alternate patient id" aka Account No. that comes in on PID.4 in the ChartNumber field so we can pass it back in PID.2 of the DFT charge message. However, if not using tight integration (isStandalone=true), the ChartNumber field is already occupied by the eCW patient ID, and we do not want to overwrite it.</summary>
public static void ProcessPID(Patient pat, SegmentHL7 seg, bool isStandalone)
{
long patNum = PIn.Long(seg.GetFieldFullText(2));
//if(pat.PatNum==0) {
// pat.PatNum=patNum;
//}
//else
if (!isStandalone && //in standalone, the patnums won't match, so don't check
pat.PatNum != 0 && pat.PatNum != patNum)
{
throw new ApplicationException("Invalid patNum");
}
if (!isStandalone) //when in tight integration mode
{
pat.ChartNumber = seg.GetFieldFullText(4);
}
pat.LName = seg.GetFieldComponent(5, 0);
pat.FName = seg.GetFieldComponent(5, 1);
pat.MiddleI = seg.GetFieldComponent(5, 2);
pat.Birthdate = DateParse(seg.GetFieldFullText(7));
pat.Gender = GenderParse(seg.GetFieldFullText(8));
PatientRaceOld patientRaceOld = RaceParse(seg.GetFieldFullText(10));
//Converts PatientRaceOld to new Patient Races, and adds them o the PatientRace table.
PatientRaces.Reconcile(pat.PatNum, PatientRaces.GetPatRacesFromPatientRaceOld(patientRaceOld));
pat.Address = seg.GetFieldComponent(11, 0);
pat.Address2 = seg.GetFieldComponent(11, 1);
pat.City = seg.GetFieldComponent(11, 2);
pat.State = seg.GetFieldComponent(11, 3);
pat.Zip = seg.GetFieldComponent(11, 4);
pat.HmPhone = PhoneParse(seg.GetFieldFullText(13));
pat.WkPhone = PhoneParse(seg.GetFieldFullText(14));
pat.Position = MaritalStatusParse(seg.GetFieldFullText(16));
//pat.ChartNumber=seg.GetFieldFullText(18);//this is wrong. Would also break standalone mode
pat.SSN = seg.GetFieldFullText(19);
if (ProgramProperties.GetPropVal(ProgramName.eClinicalWorks, "FeeSchedulesSetManually") == "0") //if !FeeSchedulesSetManually
{
pat.FeeSched = FeeScheduleParse(seg.GetFieldFullText(22));
}
}
public static void ProcessIN1(Patient pat,SegmentHL7 seg)
{
//as a general strategy, if certain things are the same, like subscriber and carrier,
//then we change the existing plan.
//However, if basics change at all, then we drop the old plan and create a new one
int ordinal=PIn.Int(seg.GetFieldFullText(1));
PatPlan oldPatPlan=PatPlans.GetPatPlan(pat.PatNum,ordinal);
if(oldPatPlan==null) {
//create a new plan and a new patplan
}
//InsPlan oldPlan=InsPlans.g
//we'll have to get back to this. This is lower priority than appointments.
}
public static void ProcessIN1(Patient pat, SegmentHL7 seg)
{
//as a general strategy, if certain things are the same, like subscriber and carrier,
//then we change the existing plan.
//However, if basics change at all, then we drop the old plan and create a new one
int ordinal = PIn.Int(seg.GetFieldFullText(1));
PatPlan oldPatPlan = PatPlans.GetPatPlan(pat.PatNum, ordinal);
if (oldPatPlan == null)
{
//create a new plan and a new patplan
}
//InsPlan oldPlan=InsPlans.g
//we'll have to get back to this. This is lower priority than appointments.
}
///<summary>PatNum will not be altered here. The pat passed in must either have PatNum=0, or must have a PatNum matching the segment. The reason that isStandalone is passed in is because if using tight integration mode (isStandalone=false), then we need to store the "alternate patient id" aka Account No. that comes in on PID.4 in the ChartNumber field so we can pass it back in PID.2 of the DFT charge message. However, if not using tight integration (isStandalone=true), the ChartNumber field is already occupied by the eCW patient ID, and we do not want to overwrite it.</summary>
public static void ProcessPID(Patient pat,SegmentHL7 seg,bool isStandalone,List<PatRace> listPatRaces) {
long patNum=PIn.Long(seg.GetFieldFullText(2));
//if(pat.PatNum==0) {
// pat.PatNum=patNum;
//}
//else
if(!isStandalone //in standalone, the patnums won't match, so don't check
&& pat.PatNum!=0 && pat.PatNum!=patNum)
{
throw new ApplicationException("Invalid patNum");
}
if(!isStandalone) {//when in tight integration mode
pat.ChartNumber=seg.GetFieldFullText(4);
}
pat.LName=seg.GetFieldComponent(5,0);
pat.FName=seg.GetFieldComponent(5,1);
pat.MiddleI=seg.GetFieldComponent(5,2);
pat.Birthdate=DateParse(seg.GetFieldFullText(7));
pat.Gender=GenderParse(seg.GetFieldFullText(8));
PatientRaceOld patientRaceOld=RaceParse(seg.GetFieldFullText(10));
//Converts PatientRaceOld to new Patient Races, and adds them to the PatientRace table.
listPatRaces.AddRange(PatientRaces.GetPatRacesFromPatientRaceOld(patientRaceOld));
pat.Address=seg.GetFieldComponent(11,0);
pat.Address2=seg.GetFieldComponent(11,1);
pat.City=seg.GetFieldComponent(11,2);
pat.State=seg.GetFieldComponent(11,3);
pat.Zip=seg.GetFieldComponent(11,4);
pat.HmPhone=PhoneParse(seg.GetFieldFullText(13));
pat.WkPhone=PhoneParse(seg.GetFieldFullText(14));
pat.Position=MaritalStatusParse(seg.GetFieldFullText(16));
//pat.ChartNumber=seg.GetFieldFullText(18);//this is wrong. Would also break standalone mode
pat.SSN=seg.GetFieldFullText(19);
if(ProgramProperties.GetPropVal(ProgramName.eClinicalWorks,"FeeSchedulesSetManually")=="0") {//if !FeeSchedulesSetManually
pat.FeeSched=FeeScheduleParse(seg.GetFieldFullText(22));
}
}
///<summary>If relationship is self, this loop does nothing. A new pat will later change guarantor to be same as patnum. </summary>
public static void ProcessGT1(Patient pat,SegmentHL7 seg,bool useChartNumber)
{
long guarNum=PIn.Long(seg.GetFieldFullText(2));
if(guarNum==0) {//because we have an example where they sent us this (position 2 is empty): GT1|1||^^||^^^^||||||||
return;
}
if(seg.GetFieldFullText(11)=="1") {//if relationship is self (according to some of their documentation)
return;
}
Patient guar=null;
Patient guarOld=null;
//So guarantor is someone else
if(useChartNumber) {
//try to find guarantor by using chartNumber
guar=Patients.GetPatByChartNumber(guarNum.ToString());
if(guar==null) {
//try to find the guarantor by using name and birthdate
string lName=seg.GetFieldComponent(3,0);
string fName=seg.GetFieldComponent(3,1);
DateTime birthdate=SegmentPID.DateParse(seg.GetFieldFullText(8));
long guarNumByName=Patients.GetPatNumByNameAndBirthday(lName,fName,birthdate);
if(guarNumByName==0) {//guarantor does not exist in OD
//so guar will still be null, triggering creation of new guarantor further down.
}
else {
guar=Patients.GetPat(guarNumByName);
guar.ChartNumber=guarNum.ToString();//from now on, we will be able to find guar by chartNumber
}
}
}
else {
guar=Patients.GetPat(guarNum);
}
//we can't necessarily set pat.Guarantor yet, because in Standalone mode, we might not know it yet.
bool isNewGuar= guar==null;
if(isNewGuar) {//then we need to add guarantor to db
guar=new Patient();
if(useChartNumber) {
guar.ChartNumber=guarNum.ToString();
}
else {
guar.PatNum=guarNum;
}
guar.PriProv=PrefC.GetLong(PrefName.PracticeDefaultProv);
guar.BillingType=PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else {
guarOld=guar.Copy();
}
//guar.Guarantor=guarNum;
guar.LName=seg.GetFieldComponent(3,0);
guar.FName=seg.GetFieldComponent(3,1);
guar.MiddleI=seg.GetFieldComponent(3,2);
guar.Address=seg.GetFieldComponent(5,0);
guar.Address2=seg.GetFieldComponent(5,1);
guar.City=seg.GetFieldComponent(5,2);
guar.State=seg.GetFieldComponent(5,3);
guar.Zip=seg.GetFieldComponent(5,4);
guar.HmPhone=PhoneParse(seg.GetFieldFullText(6));
guar.WkPhone=PhoneParse(seg.GetFieldFullText(7));
guar.Birthdate=DateParse(seg.GetFieldFullText(8));
guar.Gender=GenderParse(seg.GetFieldFullText(9));
//11. Guarantor relationship to patient. We can't really do anything with this value
guar.SSN=seg.GetFieldFullText(12);
if(isNewGuar) {
Patients.Insert(guar,true);
guarOld=guar.Copy();
guar.Guarantor=guar.PatNum;
Patients.Update(guar,guarOld);
}
else {
Patients.Update(guar,guarOld);
}
pat.Guarantor=guar.PatNum;
}
///<summary>PatNum will not be altered here. The pat passed in must either have PatNum=0, or must have a PatNum matching the segment. The reason that isStandalone is passed in is because if using tight integration mode (isStandalone=false), then we need to store the "alternate patient id" aka Account No. that comes in on PID.4 in the ChartNumber field so we can pass it back in PID.2 of the DFT charge message. However, if not using tight integration (isStandalone=true), the ChartNumber field is already occupied by the eCW patient ID, and we do not want to overwrite it.</summary>
public static void ProcessPID(Patient pat,SegmentHL7 seg,bool isStandalone)
{
long patNum=PIn.Long(seg.GetFieldFullText(2));
//if(pat.PatNum==0) {
// pat.PatNum=patNum;
//}
//else
if(pat.PatNum!=0 && pat.PatNum != patNum) {
throw new ApplicationException("Invalid patNum");
}
if(!isStandalone) {//when in tight integration mode
pat.ChartNumber=seg.GetFieldFullText(4);
}
pat.LName=seg.GetFieldComponent(5,0);
pat.FName=seg.GetFieldComponent(5,1);
pat.MiddleI=seg.GetFieldComponent(5,2);
pat.Birthdate=DateParse(seg.GetFieldFullText(7));
pat.Gender=GenderParse(seg.GetFieldFullText(8));
pat.Race=RaceParse(seg.GetFieldFullText(10));
pat.Address=seg.GetFieldComponent(11,0);
pat.Address2=seg.GetFieldComponent(11,1);
pat.City=seg.GetFieldComponent(11,2);
pat.State=seg.GetFieldComponent(11,3);
pat.Zip=seg.GetFieldComponent(11,4);
pat.HmPhone=PhoneParse(seg.GetFieldFullText(13));
pat.WkPhone=PhoneParse(seg.GetFieldFullText(14));
pat.Position=MaritalStatusParse(seg.GetFieldFullText(16));
//pat.ChartNumber=seg.GetFieldFullText(18);//this is wrong. Would also break standalone mode
pat.SSN=seg.GetFieldFullText(19);
pat.FeeSched=FeeScheduleParse(seg.GetFieldFullText(22));
}
///<summary>If relationship is self, this loop does nothing. A new pat will later change guarantor to be same as patnum. </summary>
public static void ProcessGT1(Patient pat, SegmentHL7 seg, bool useChartNumber)
{
long guarNum = PIn.Long(seg.GetFieldFullText(2));
if (guarNum == 0) //because we have an example where they sent us this (position 2 is empty): GT1|1||^^||^^^^||||||||
{
return;
}
if (seg.GetFieldFullText(11) == "1") //if relationship is self (according to some of their documentation)
{
return;
}
if (seg.GetFieldComponent(3, 0) == "" || //lname
seg.GetFieldComponent(3, 1) == "") //fname
{
EventLog.WriteEntry("OpenDentHL7", "Guarantor not processed due to missing first or last name. PatNum of patient:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
Patient guar = null;
Patient guarOld = null;
//So guarantor is someone else
if (useChartNumber)
{
//try to find guarantor by using chartNumber
guar = Patients.GetPatByChartNumber(guarNum.ToString());
if (guar == null)
{
//try to find the guarantor by using name and birthdate
string lName = seg.GetFieldComponent(3, 0);
string fName = seg.GetFieldComponent(3, 1);
DateTime birthdate = EcwSegmentPID.DateParse(seg.GetFieldFullText(8));
long guarNumByName = Patients.GetPatNumByNameAndBirthday(lName, fName, birthdate);
if (guarNumByName == 0) //guarantor does not exist in OD
//so guar will still be null, triggering creation of new guarantor further down.
{
}
else
{
guar = Patients.GetPat(guarNumByName);
guar.ChartNumber = guarNum.ToString(); //from now on, we will be able to find guar by chartNumber
}
}
}
else
{
guar = Patients.GetPat(guarNum);
}
//we can't necessarily set pat.Guarantor yet, because in Standalone mode, we might not know it yet.
bool isNewGuar = guar == null;
if (isNewGuar) //then we need to add guarantor to db
{
guar = new Patient();
if (useChartNumber)
{
guar.ChartNumber = guarNum.ToString();
}
else
{
guar.PatNum = guarNum;
}
guar.PriProv = PrefC.GetLong(PrefName.PracticeDefaultProv);
guar.BillingType = PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else
{
guarOld = guar.Copy();
}
//guar.Guarantor=guarNum;
guar.LName = seg.GetFieldComponent(3, 0);
guar.FName = seg.GetFieldComponent(3, 1);
guar.MiddleI = seg.GetFieldComponent(3, 2);
guar.Address = seg.GetFieldComponent(5, 0);
guar.Address2 = seg.GetFieldComponent(5, 1);
guar.City = seg.GetFieldComponent(5, 2);
guar.State = seg.GetFieldComponent(5, 3);
guar.Zip = seg.GetFieldComponent(5, 4);
guar.HmPhone = PhoneParse(seg.GetFieldFullText(6));
guar.WkPhone = PhoneParse(seg.GetFieldFullText(7));
guar.Birthdate = DateParse(seg.GetFieldFullText(8));
guar.Gender = GenderParse(seg.GetFieldFullText(9));
//11. Guarantor relationship to patient. We can't really do anything with this value
guar.SSN = seg.GetFieldFullText(12);
if (isNewGuar)
{
Patients.Insert(guar, !useChartNumber); //if using chartnumber (standalone mode), then can't insert using existing PK
guarOld = guar.Copy();
guar.Guarantor = guar.PatNum;
Patients.Update(guar, guarOld);
}
else
{
Patients.Update(guar, guarOld);
}
pat.Guarantor = guar.PatNum;
}
///<summary>If relationship is self, this method does nothing. A new pat will later change guarantor to be same as patnum. </summary>
public static void ProcessGT1(Patient pat,HL7DefSegment segDef,SegmentHL7 seg,MessageHL7 msg) {
char escapeChar='\\';
if(msg.Delimiters.Length>2) {//it is possible they did not send all 4 of the delimiter chars, in which case we will use the default \
escapeChar=msg.Delimiters[2];
}
char subcompChar='&';
if(msg.Delimiters.Length>3) {
subcompChar=msg.Delimiters[3];
}
#region Get And Validate Definition Field Ordinals
//Find the position of the guarNum, guarChartNum, guarName, and guarBirthdate in this HL7 segment based on the definition of a GT1
int guarPatNumOrdinal=-1;
int guarChartNumOrdinal=-1;
int guarNameOrdinal=-1;
int guarBirthdateOrdinal=-1;
int guarIdsOrdinal=-1;
string patOidRoot="";
for(int i=0;i<segDef.hl7DefFields.Count;i++) {
switch(segDef.hl7DefFields[i].FieldName) {
case "guar.PatNum":
guarPatNumOrdinal=segDef.hl7DefFields[i].OrdinalPos;
continue;
case "guar.ChartNumber":
guarChartNumOrdinal=segDef.hl7DefFields[i].OrdinalPos;
continue;
case "guar.nameLFM":
guarNameOrdinal=segDef.hl7DefFields[i].OrdinalPos;
continue;
case "guar.birthdateTime":
guarBirthdateOrdinal=segDef.hl7DefFields[i].OrdinalPos;
continue;
case "guarIdList":
//get the id with the assigning authority equal to the internal OID root stored in their database for a patient object
patOidRoot=OIDInternals.GetForType(IdentifierType.Patient).IDRoot;
if(patOidRoot=="") {
//if they have not set their internal OID root, we cannot identify which repetition in this field contains the OD PatNum, guarIdListOrdinal will remain -1
continue;
}
guarIdsOrdinal=segDef.hl7DefFields[i].OrdinalPos;
continue;
default://not supported
continue;
}
}
//If neither guar.PatNum nor guar.ChartNumber are included in this GT1 definition log a message in the event log and return
if(guarPatNumOrdinal==-1 && guarChartNumOrdinal==-1 && guarIdsOrdinal==-1) {
_hl7MsgCur.Note="Guarantor not processed. guar.PatNum, guar.ChartNumber, or guarIdList must be included in the GT1 definition. PatNum of patient: "+pat.PatNum.ToString();
HL7Msgs.Update(_hl7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed. guar.PatNum, guar.ChartNumber, or guarIdList must be included in the GT1 definition. "
+"PatNum of patient: "+pat.PatNum.ToString(),EventLogEntryType.Information);
return;
}
//If guar.nameLFM is not included in this GT1 definition log a message in the event log and return
if(guarNameOrdinal==-1) {
_hl7MsgCur.Note="Guarantor not processed due to guar.nameLFM not included in the GT1 definition. Patnum of patient: "+pat.PatNum.ToString();
HL7Msgs.Update(_hl7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed due to guar.nameLFM not included in the GT1 definition. Patnum of patient: "
+pat.PatNum.ToString(),EventLogEntryType.Information);
return;
}
//If the first or last name are not included in this GT1 segment, log a message in the event log and return
if(seg.GetFieldComponent(guarNameOrdinal,0)=="" || seg.GetFieldComponent(guarNameOrdinal,1)=="") {
_hl7MsgCur.Note="Guarantor not processed due to missing first or last name. PatNum of patient: "+pat.PatNum.ToString();
HL7Msgs.Update(_hl7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed due to missing first or last name. PatNum of patient: "
+pat.PatNum.ToString(),EventLogEntryType.Information);
return;
}
#endregion Get And Validate Definition Field Ordinals
#region Get guar.PatNum, guar.ChartNumber, and guarIdList IDs
//Only process GT1 if guar.PatNum, guar.ChartNumber, or guarIdList is included and both guar.LName and guar.FName are included
long guarPatNum=0;
string guarChartNum="";
long guarPatNumFromIds=0;
List<OIDExternal> listOids=new List<OIDExternal>();
if(guarPatNumOrdinal!=-1) {
try {
guarPatNum=PIn.Long(seg.GetFieldFullText(guarPatNumOrdinal));
}
catch(Exception ex) {
//do nothing, guarPatNum will remain 0
}
}
if(guarChartNumOrdinal!=-1) {
guarChartNum=seg.GetFieldComponent(guarChartNumOrdinal);
}
if(guarIdsOrdinal!=-1) {//if OIDInternal root for a patient object is not defined, guarIdListOrdinal will be -1
FieldHL7 fieldGuarIds=seg.GetField(guarIdsOrdinal);
//Example field: |1234^3^M11^&2.16.840.1.113883.3.4337.1486.6566.2&HL7^PI~7684^8^M11^&Other.Software.OID&OIDType^PI|
//field component values will be the first repetition, repeats will be in field.ListRepeatFields
string[] arrayGuarIdSubComps=fieldGuarIds.GetComponentVal(3).Split(new char[] { subcompChar },StringSplitOptions.None);
if(arrayGuarIdSubComps.Length>1 //must be at least two subcomponents in the assigning authority component so we can identify whose ID this is
&& fieldGuarIds.GetComponentVal(4).ToLower()=="pi") //PI=patient internal identifier; a number that is unique to a patient within an assigning authority
{
int intCheckDigit=-1;
try {
intCheckDigit=PIn.Int(fieldGuarIds.GetComponentVal(1));
}
catch(Exception ex) {
//checkDigit will remain -1
}
//if using the M10 or M11 check digit algorithm and it passes the respective test, or not using either algorithm
//and only if there's at least 2 components in field 3 for the assigning authority so we can identify whose ID we are dealing with, then use the ID
if((fieldGuarIds.GetComponentVal(2).ToLower()=="m10"
&& intCheckDigit!=-1
&& M10CheckDigit(fieldGuarIds.GetComponentVal(0))==intCheckDigit)//using M10 scheme and the check digit is valid and matches calc
|| (fieldGuarIds.GetComponentVal(2).ToLower()=="m11"
&& intCheckDigit!=-1
&& M11CheckDigit(fieldGuarIds.GetComponentVal(0))==intCheckDigit)//using M11 scheme and the check digit is valid and matches calc
|| (fieldGuarIds.GetComponentVal(2).ToLower()!="m10"
&& fieldGuarIds.GetComponentVal(2).ToLower()!="m11"))//not using either check digit scheme
{
if(arrayGuarIdSubComps[1].ToLower()==patOidRoot.ToLower()) {
try {
guarPatNumFromIds=PIn.Long(fieldGuarIds.GetComponentVal(0));
}
catch(Exception ex) {
//do nothing, guarPatNumFromList will remain 0
}
}
else {
OIDExternal oidCur=new OIDExternal();
oidCur.IDType=IdentifierType.Patient;
oidCur.IDExternal=fieldGuarIds.GetComponentVal(0);
oidCur.rootExternal=arrayGuarIdSubComps[1];
listOids.Add(oidCur);
}
}
}
for(int r=0;r<fieldGuarIds.ListRepeatFields.Count;r++) {
arrayGuarIdSubComps=fieldGuarIds.ListRepeatFields[r].GetComponentVal(3).Split(new char[] { subcompChar },StringSplitOptions.None);
if(arrayGuarIdSubComps.Length<2) {//must be at least two sub-components to the assigning authority component so we can identify whose ID this is
continue;
}
if(fieldGuarIds.ListRepeatFields[r].GetComponentVal(4).ToLower()!="pi")
{
continue;
}
int intCheckDigit=-1;
try {
intCheckDigit=PIn.Int(fieldGuarIds.ListRepeatFields[r].GetComponentVal(1));
}
catch(Exception ex) {
//checkDigit will remain -1
}
if(fieldGuarIds.ListRepeatFields[r].GetComponentVal(2).ToLower()=="m10"
&& (intCheckDigit==-1 || M10CheckDigit(fieldGuarIds.ListRepeatFields[r].GetComponentVal(0))!=intCheckDigit))//using M10 scheme and either invalid check digit or doesn't match calc
{
continue;
}
if(fieldGuarIds.ListRepeatFields[r].GetComponentVal(2).ToLower()=="m11"
&& (intCheckDigit==-1 || M11CheckDigit(fieldGuarIds.ListRepeatFields[r].GetComponentVal(0))!=intCheckDigit))//using M11 scheme and either invalid check digit or doesn't match calc
{
continue;
}
//if not using the M10 or M11 check digit scheme or if the check digit is good, trust the ID in component 0 to be valid and attempt to use
if(arrayGuarIdSubComps[1].ToLower()==patOidRoot.ToLower()) {
try {
guarPatNumFromIds=PIn.Long(fieldGuarIds.ListRepeatFields[r].GetComponentVal(0));
}
catch(Exception ex) {
//do nothing, guarPatNumFromList will remain 0
}
}
else {
OIDExternal oidCur=new OIDExternal();
oidCur.IDType=IdentifierType.Patient;
oidCur.IDExternal=fieldGuarIds.ListRepeatFields[r].GetComponentVal(0);
oidCur.rootExternal=arrayGuarIdSubComps[1];
listOids.Add(oidCur);
}
}
}
if(guarPatNum==0 && guarChartNum=="" && guarPatNumFromIds==0 && listOids.Count==0) {//because we have an example where they sent us this (position 2 (guarPatNumOrder or guarChartNumOrder for eCW) is empty): GT1|1||^^||^^^^||||||||
_hl7MsgCur.Note="Guarantor not processed due to missing guar.PatNum, guar.ChartNumber, and guarIdList. One of those numbers must be included. "
+"PatNum of patient: "+pat.PatNum.ToString();
HL7Msgs.Update(_hl7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed due to missing guar.PatNum, guar.ChartNumber, and guarIdList. "
+"One of those numbers must be included. PatNum of patient: "+pat.PatNum.ToString(),EventLogEntryType.Information);
return;
}
#endregion Get guar.PatNum, guar.ChartNumber, and guarIdList IDs
if(guarPatNum==pat.PatNum
|| (guarChartNum!="" && guarChartNum==pat.ChartNumber)
|| guarPatNumFromIds==pat.PatNum)
{//if relationship is self
return;
}
#region Get Patient from Ids
//Guar must be someone else
Patient guar=null;
Patient guarOld=null;
//Find guarantor by guar.PatNum if defined and in this segment
if(guarPatNum!=0) {
guar=Patients.GetPat(guarPatNum);
}
else if(guarPatNumFromIds!=0) {
guar=Patients.GetPat(guarPatNumFromIds);
}
else if(guarChartNum!="") {//guarPatNum and guarPatNumFromList was 0 so try to get guar by guar.ChartNumber or name and birthdate
//try to find guarantor using chartNumber
guar=Patients.GetPatByChartNumber(guarChartNum);
if(guar==null) {
//try to find the guarantor by using name and birthdate
string strGuarLName=seg.GetFieldComponent(guarNameOrdinal,0);
string strGuarFName=seg.GetFieldComponent(guarNameOrdinal,1);
DateTime guarBirthdate=FieldParser.DateTimeParse(seg.GetFieldFullText(guarBirthdateOrdinal));
long guarNamePatNum=Patients.GetPatNumByNameAndBirthday(strGuarLName,strGuarFName,guarBirthdate);
if(guarNamePatNum==0) {//guarantor does not exist in OD
//so guar will still be null, triggering creation of new guarantor further down.
}
else {
guar=Patients.GetPat(guarNamePatNum);
guarOld=guar.Copy();
guar.ChartNumber=guarChartNum;//from now on, we will be able to find guar by chartNumber
Patients.Update(guar,guarOld);
}
}
}
long guarExtPatNum=0;
if(guar==null) {//As a last resort, use the external IDs for this patient in the oidexternal to find the guar
//Use the external OIDs stored in the oidexternal table to find the patient
//Only trust the external IDs if all OIDs refer to the same patient
for(int i=0;i<listOids.Count;i++) {
OIDExternal oidExternalCur=OIDExternals.GetByRootAndExtension(listOids[i].rootExternal,listOids[i].IDExternal);
if(oidExternalCur==null || oidExternalCur.IDInternal==0 || oidExternalCur.IDType!=IdentifierType.Patient) {//must have an IDType of Patient
continue;
}
if(guarExtPatNum==0) {
guarExtPatNum=oidExternalCur.IDInternal;
}
else if(guarExtPatNum!=oidExternalCur.IDInternal) {//the current ID refers to a different patient than a previously found ID, don't trust the external IDs
guarExtPatNum=0;
break;
}
}
if(guarExtPatNum>0) {//will be 0 if not in the OIDExternal table or no external IDs supplied or more than one supplied and they point to different pats (ambiguous)
guar=Patients.GetPat(guarExtPatNum);
}
}
//At this point we have a guarantor located in OD or guar=null so guar is new patient
bool isNewGuar=(guar==null);
if(isNewGuar) {//then we need to add guarantor to db
guar=new Patient();
if(guarChartNum!="") {
guar.ChartNumber=guarChartNum;
}
if(guarPatNum!=0) {
guar.PatNum=guarPatNum;
guar.Guarantor=guarPatNum;
}
else if(guarPatNumFromIds!=0) {
guar.PatNum=guarPatNumFromIds;
guar.Guarantor=guarPatNumFromIds;
}
else if(guarExtPatNum!=0) {
guar.PatNum=guarExtPatNum;
guar.Guarantor=guarExtPatNum;
}
guar.PriProv=PrefC.GetLong(PrefName.PracticeDefaultProv);
guar.BillingType=PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else {
guarOld=guar.Copy();
}
#endregion Get Patient from Ids
#region Update Guarantor Data
//Now that we have our guarantor, process the GT1 segment
for(int i=0;i<segDef.hl7DefFields.Count;i++) {
int itemOrder=segDef.hl7DefFields[i].OrdinalPos;
switch(segDef.hl7DefFields[i].FieldName) {
case "guar.addressCityStateZip":
guar.Address=seg.GetFieldComponent(itemOrder,0);
guar.Address2=seg.GetFieldComponent(itemOrder,1);
guar.City=seg.GetFieldComponent(itemOrder,2);
guar.State=seg.GetFieldComponent(itemOrder,3);
guar.Zip=seg.GetFieldComponent(itemOrder,4);
guar.AddrNote=FieldParser.StringNewLineParse(seg.GetFieldComponent(itemOrder,19),escapeChar);
continue;
case "guar.birthdateTime":
guar.Birthdate=FieldParser.DateTimeParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.ChartNumber":
guar.ChartNumber=seg.GetFieldComponent(itemOrder);
continue;
case "guar.Gender":
guar.Gender=FieldParser.GenderParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.HmPhone":
if(seg.GetFieldComponent(itemOrder,2)=="" && seg.GetField(itemOrder).ListRepeatFields.Count==0) {
//either no component 2 or left blank, and there are no repetitions, process the old way
//the first repetition is considered the primary number, but if the primary number is not sent then it will be blank followed by the list of other numbers
guar.HmPhone=FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder));
}
else {
//XTN data type, repeatable.
//Component 2 values: PH-Phone, FX-Fax, MD-Modem, CP-Cell Phone, Internet-Internet Address, X.400-X.400 email address, TDD-Tel Device for the Deaf, TTY-Teletypewriter.
//We will support PH for pat.HmPhone, CP for pat.WirelessPhone, and Internet for pat.Email
//Component 5 is area code, 6 is number
//Component 3 will be Email if the type is Internet
//Example: ^PRN^PH^^^503^3635432~^PRN^Internet^[email protected]
FieldHL7 fieldPh=seg.GetField(itemOrder);
if(fieldPh==null) {
continue;
}
string strPhType=seg.GetFieldComponent(itemOrder,2);
string strPh=seg.GetFieldComponent(itemOrder,5)+seg.GetFieldComponent(itemOrder,6);
string strEmail=seg.GetFieldComponent(itemOrder,3);
for(int p=-1;p<fieldPh.ListRepeatFields.Count;p++) {
if(p>=0) {
strPhType=fieldPh.ListRepeatFields[p].GetComponentVal(2);
strPh=fieldPh.ListRepeatFields[p].GetComponentVal(5)+fieldPh.ListRepeatFields[p].GetComponentVal(6);
strEmail=fieldPh.ListRepeatFields[p].GetComponentVal(3);
}
switch(strPhType) {
case "PH":
guar.HmPhone=FieldParser.PhoneParse(strPh);
continue;
case "CP":
guar.WirelessPhone=FieldParser.PhoneParse(strPh);
continue;
case "Internet":
guar.Email=strEmail;
continue;
default:
continue;
}
}
}
continue;
case "guar.nameLFM":
guar.LName=seg.GetFieldComponent(itemOrder,0);
guar.FName=seg.GetFieldComponent(itemOrder,1);
guar.MiddleI=seg.GetFieldComponent(itemOrder,2);
guar.Title=seg.GetFieldComponent(itemOrder,4);
continue;
//case "guar.PatNum": Maybe do nothing??
case "guar.SSN":
guar.SSN=seg.GetFieldComponent(itemOrder);
continue;
case "guar.WkPhone":
if(seg.GetFieldComponent(itemOrder,2)=="PH") {
//Component 2 value: PH-Phone
//Component 5 is area code, 6 is number
//Example: ^WPN^PH^^^503^3635432
guar.WkPhone=FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder,5)+seg.GetFieldComponent(itemOrder,6));
continue;
}
//either no component 2 or left blank, process the old way
guar.WkPhone=FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder));
continue;
default:
continue;
}
}
if(isNewGuar) {
if(guar.PatNum==0) {
guarOld=guar.Copy();
guar.PatNum=Patients.Insert(guar,false);
guar.Guarantor=guar.PatNum;
Patients.Update(guar,guarOld);
}
else {
guar.PatNum=Patients.Insert(guar,true);
}
if(_isVerboseLogging) {
EventLog.WriteEntry("OpenDentHL7","Inserted patient "+guar.GetNameFLnoPref()+" when processing a GT1 segment.",EventLogEntryType.Information);
}
}
else {
Patients.Update(guar,guarOld);
if(_isVerboseLogging) {
EventLog.WriteEntry("OpenDentHL7","Updated patient "+guar.GetNameFLnoPref()+" when processing a GT1 segment.",EventLogEntryType.Information);
}
}
#endregion Update Guarantor Data
pat.Guarantor=guar.PatNum;
//store external IDs in the oidexternal table if they do not already exist in the table
string strVerboseMsg="";
for(int i=0;i<listOids.Count;i++) {
if(listOids[i].IDExternal==""//not a good external ID OR
|| listOids[i].rootExternal==""//not a good external root OR
|| OIDExternals.GetByRootAndExtension(listOids[i].rootExternal,listOids[i].IDExternal)!=null)//already exists in the oidexternal table
{
continue;
}
listOids[i].IDInternal=guar.PatNum;
OIDExternals.Insert(listOids[i]);
strVerboseMsg+="\r\nExternal patient ID: "+listOids[i].IDExternal+", External root: "+listOids[i].rootExternal;
}
if(_isVerboseLogging && strVerboseMsg.Length>0) {
EventLog.WriteEntry("OpenDentHL7","Added the following external patient ID(s) to the oidexternals table due to an incoming GT1 segment for PatNum: "+guar.PatNum+"."
+strVerboseMsg+".",EventLogEntryType.Information);
}
return;
}
public static void ProcessMessage(MessageHL7 message, bool isVerboseLogging)
{
SegmentHL7 seg = message.GetSegment(SegmentNameHL7.PID, true);
long patNum = PIn.Long(seg.GetFieldFullText(2));
Patient pat = Patients.GetPat(patNum);
Patient patOld = null;
bool isNewPat = pat == null;
if (isNewPat)
{
pat = new Patient();
pat.PatNum = patNum;
pat.Guarantor = patNum;
pat.PriProv = PrefC.GetLong(PrefName.PracticeDefaultProv);
pat.BillingType = PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else
{
patOld = pat.Copy();
}
List <PatientRace> listPatRaces = new List <PatientRace>();
EcwSegmentPID.ProcessPID(pat, seg, false, listPatRaces); //IsStandalone=false because should never make it this far.
//PV1-patient visit---------------------------
//seg=message.GetSegment(SegmentName.PV1,false);
//if(seg!=null) {
// SegmentPID.ProcessPV1(pat,seg);
//}
//SCH- Schedule Activity Information
seg = message.GetSegment(SegmentNameHL7.SCH, true);
//The documentation is wrong. SCH.01 is not the appointment ID, but is instead a sequence# (always 1)
long aptNum = PIn.Long(seg.GetFieldFullText(2));
Appointment apt = Appointments.GetOneApt(aptNum);
Appointment aptOld = null;
bool isNewApt = apt == null;
if (isNewApt)
{
apt = new Appointment();
apt.AptNum = aptNum;
apt.PatNum = pat.PatNum;
apt.AptStatus = ApptStatus.Scheduled;
}
else
{
aptOld = apt.Copy();
}
if (apt.PatNum != pat.PatNum)
{
EventLog.WriteEntry("OpenDentHL7", "Appointment does not match patient: " + pat.FName + " " + pat.LName
+ ", apt.PatNum:" + apt.PatNum.ToString() + ", pat.PatNum:" + pat.PatNum.ToString()
, EventLogEntryType.Error);
return; //we can't process this message because wrong patnum.
}
apt.Note = seg.GetFieldFullText(7);
//apt.Pattern=ProcessDuration(seg.GetFieldFullText(9));
//9 and 10 are not actually available, in spite of the documentation.
//11-We need start time and stop time
apt.AptDateTime = DateTimeParse(seg.GetFieldComponent(11, 3));
DateTime stopTime = DateTimeParse(seg.GetFieldComponent(11, 4));
apt.Pattern = ProcessPattern(apt.AptDateTime, stopTime);
apt.ProvNum = pat.PriProv; //just in case there's not AIG segment.
//AIG is optional, but looks like the only way to get provider for the appt-----------
//PV1 seems to frequently be sent instead of AIG.
SegmentHL7 segAIG = message.GetSegment(SegmentNameHL7.AIG, false);
SegmentHL7 segPV = message.GetSegment(SegmentNameHL7.PV1, false);
if (segAIG != null)
{
long provNum = EcwSegmentPID.ProvProcess(segAIG.GetField(3));
if (provNum != 0)
{
apt.ProvNum = provNum;
pat.PriProv = provNum;
}
}
else if (segPV != null)
{
long provNum = EcwSegmentPID.ProvProcess(segPV.GetField(7));
if (provNum != 0)
{
apt.ProvNum = provNum;
pat.PriProv = provNum;
}
}
//AIL,AIP seem to be optional, and I'm going to ignore them for now.
if (pat.FName == "" || pat.LName == "")
{
EventLog.WriteEntry("OpenDentHL7", "Appointment not processed due to missing patient first or last name. PatNum:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return; //this will also skip the appt insert.
}
if (isNewPat)
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Inserted patient: " + pat.FName + " " + pat.LName + ", PatNum:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
}
Patients.Insert(pat, true);
SecurityLogs.MakeLogEntry(Permissions.PatientCreate, pat.PatNum, "Created from HL7 for eCW.", LogSources.HL7);
}
else
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Updated patient: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
Patients.Update(pat, patOld);
}
//had to move this reconcile here since we might not have a PatNum for new patients until after the insert
PatientRaces.Reconcile(pat.PatNum, listPatRaces);
if (isNewApt)
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Inserted appointment for: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
Appointments.InsertIncludeAptNum(apt, true);
}
else
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Updated appointment for: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
Appointments.Update(apt, aptOld);
}
}
public static void ProcessMessage(MessageHL7 message, bool isStandalone, bool isVerboseLogging)
{
/*string triggerevent=message.Segments[0].GetFieldComponent(8,1);
* switch(triggerevent) {
* case "A01"://Admit/Visit Information
*
* break;
* case "A04"://New Patient Information
* ProcessNewPatient(message);
* break;
* case "A08"://Update Patient Information
*
* break;
* case "A28"://Add Patient Information
*
* break;
* case "A31"://Update Patient Information
*
* break;
* }*/
//MSH-Ignore
//EVN-Ignore
//PID-------------------------------------
SegmentHL7 seg = message.GetSegment(SegmentNameHL7.PID, true);
long patNum = PIn.Long(seg.GetFieldFullText(2));
Patient pat = null;
if (isStandalone)
{
pat = Patients.GetPatByChartNumber(patNum.ToString());
if (pat == null)
{
//try to find the patient in question by using name and birthdate
string lName = seg.GetFieldComponent(5, 0);
string fName = seg.GetFieldComponent(5, 1);
DateTime birthdate = EcwSegmentPID.DateParse(seg.GetFieldFullText(7));
long patNumByName = Patients.GetPatNumByNameAndBirthday(lName, fName, birthdate);
if (patNumByName == 0) //patient does not exist in OD
//so pat will still be null, triggering creation of new patient further down.
{
}
else
{
pat = Patients.GetPat(patNumByName);
pat.ChartNumber = patNum.ToString(); //from now on, we will be able to find pat by chartNumber
}
}
}
else
{
pat = Patients.GetPat(patNum);
}
Patient patOld = null;
bool isNewPat = pat == null;
if (isNewPat)
{
pat = new Patient();
if (isStandalone)
{
pat.ChartNumber = patNum.ToString();
//this line does not work if isStandalone, so moved to end
//pat.Guarantor=patNum;
}
else
{
pat.PatNum = patNum;
pat.Guarantor = patNum;
}
pat.PriProv = PrefC.GetLong(PrefName.PracticeDefaultProv);
pat.BillingType = PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else
{
patOld = pat.Copy();
}
List <PatientRace> listPatRaces = new List <PatientRace>();
bool hasNoRaceInStandalone = (isStandalone && (pat == null || pat.PatNum == 0));
EcwSegmentPID.ProcessPID(pat, seg, isStandalone, listPatRaces);
//PV1-patient visit---------------------------
//seg=message.GetSegment(SegmentName.PV1,false);
//if(seg!=null) {//this seg is optional
// SegmentPID.ProcessPV1(pat,seg);
//}
//PD1-additional patient demographics------------
//seg=message.GetSegment(SegmentName.PD1,false);
//if(seg!=null) {//this seg is optional
// ProcessPD1(pat,seg);
//}
//GT1-Guarantor-------------------------------------
seg = message.GetSegment(SegmentNameHL7.GT1, true);
EcwSegmentPID.ProcessGT1(pat, seg, isStandalone);
//IN1-Insurance-------------------------------------
//List<SegmentHL7> segments=message.GetSegments(SegmentName.IN1);
//for(int i=0;i<segments.Count;i++) {
// ProcessIN1(pat,seg);
//}
if (pat.FName == "" || pat.LName == "")
{
EventLog.WriteEntry("OpenDentHL7", "Patient demographics not processed due to missing first or last name. PatNum:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
if (isNewPat)
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Inserted patient: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
pat.PatNum = Patients.Insert(pat, !isStandalone); //use existing PK if not standalone, standalone will have PatNum=0, so set PatNum here
SecurityLogs.MakeLogEntry(Permissions.PatientCreate, pat.PatNum, "Created from HL7 for eCW.", LogSources.HL7);
if (hasNoRaceInStandalone)
{
Patient patientRaceTemp = pat.Copy(); //Make a deep copy so that we do not accidentally override something.
seg = message.GetSegment(SegmentNameHL7.PID, true);
//We have to process the PID again in order to correct the patient race. Patient race(s) will automatically get inserted if needed.
EcwSegmentPID.ProcessPID(patientRaceTemp, seg, isStandalone, listPatRaces);
}
if (pat.Guarantor == 0)
{
patOld = pat.Copy();
pat.Guarantor = pat.PatNum;
Patients.Update(pat, patOld);
}
}
else
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Updated patient: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
Patients.Update(pat, patOld);
}
//had to move this reconcile here since we might not have a PatNum for new patients until after the insert
PatientRaces.Reconcile(pat.PatNum, listPatRaces);
}
public static void ProcessMessage(MessageHL7 message, bool isStandalone, bool isVerboseLogging)
{
/*string triggerevent=message.Segments[0].GetFieldComponent(8,1);
* switch(triggerevent) {
* case "A01"://Admit/Visit Information
*
* break;
* case "A04"://New Patient Information
* ProcessNewPatient(message);
* break;
* case "A08"://Update Patient Information
*
* break;
* case "A28"://Add Patient Information
*
* break;
* case "A31"://Update Patient Information
*
* break;
* }*/
//MSH-Ignore
//EVN-Ignore
//PID-------------------------------------
SegmentHL7 seg = message.GetSegment(SegmentNameHL7.PID, true);
long patNum = PIn.Long(seg.GetFieldFullText(2));
Patient pat = null;
if (isStandalone)
{
pat = Patients.GetPatByChartNumber(patNum.ToString());
if (pat == null)
{
//try to find the patient in question by using name and birthdate
string lName = seg.GetFieldComponent(5, 0);
string fName = seg.GetFieldComponent(5, 1);
DateTime birthdate = EcwSegmentPID.DateParse(seg.GetFieldFullText(7));
long patNumByName = Patients.GetPatNumByNameAndBirthday(lName, fName, birthdate);
if (patNumByName == 0) //patient does not exist in OD
//so pat will still be null, triggering creation of new patient further down.
{
}
else
{
pat = Patients.GetPat(patNumByName);
pat.ChartNumber = patNum.ToString(); //from now on, we will be able to find pat by chartNumber
}
}
}
else
{
pat = Patients.GetPat(patNum);
}
Patient patOld = null;
bool isNewPat = pat == null;
if (isNewPat)
{
pat = new Patient();
if (isStandalone)
{
pat.ChartNumber = patNum.ToString();
//this line does not work if isStandalone, so moved to end
//pat.Guarantor=patNum;
}
else
{
pat.PatNum = patNum;
pat.Guarantor = patNum;
}
pat.PriProv = PrefC.GetLong(PrefName.PracticeDefaultProv);
pat.BillingType = PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else
{
patOld = pat.Copy();
}
EcwSegmentPID.ProcessPID(pat, seg, isStandalone);
//PV1-patient visit---------------------------
//seg=message.GetSegment(SegmentName.PV1,false);
//if(seg!=null) {//this seg is optional
// SegmentPID.ProcessPV1(pat,seg);
//}
//PD1-additional patient demographics------------
//seg=message.GetSegment(SegmentName.PD1,false);
//if(seg!=null) {//this seg is optional
// ProcessPD1(pat,seg);
//}
//GT1-Guarantor-------------------------------------
seg = message.GetSegment(SegmentNameHL7.GT1, true);
EcwSegmentPID.ProcessGT1(pat, seg, isStandalone);
//IN1-Insurance-------------------------------------
//List<SegmentHL7> segments=message.GetSegments(SegmentName.IN1);
//for(int i=0;i<segments.Count;i++) {
// ProcessIN1(pat,seg);
//}
if (pat.FName == "" || pat.LName == "")
{
EventLog.WriteEntry("OpenDentHL7", "Patient demographics not processed due to missing first or last name. PatNum:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
if (isNewPat)
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Inserted patient: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
Patients.Insert(pat, true);
if (pat.Guarantor == 0)
{
patOld = pat.Copy();
pat.Guarantor = pat.PatNum;
Patients.Update(pat, patOld);
}
}
else
{
if (isVerboseLogging)
{
EventLog.WriteEntry("OpenDentHL7", "Updated patient: " + pat.FName + " " + pat.LName, EventLogEntryType.Information);
}
Patients.Update(pat, patOld);
}
}
///<summary>If relationship is self, this method does nothing. A new pat will later change guarantor to be same as patnum. </summary>
public static void ProcessGT1(Patient pat, HL7DefSegment segDef, SegmentHL7 seg)
{
//Find the position of the guarNum, guarChartNum, guarName, and guarBirthdate in this HL7 segment based on the definition of a GT1
int guarPatNumOrdinal = -1;
int guarChartNumOrdinal = -1;
int guarNameOrdinal = -1;
int guarBirthdateOrdinal = -1;
for (int i = 0; i < segDef.hl7DefFields.Count; i++)
{
if (segDef.hl7DefFields[i].FieldName == "guar.PatNum")
{
guarPatNumOrdinal = segDef.hl7DefFields[i].OrdinalPos;
}
if (segDef.hl7DefFields[i].FieldName == "guar.ChartNumber")
{
guarChartNumOrdinal = segDef.hl7DefFields[i].OrdinalPos;
}
if (segDef.hl7DefFields[i].FieldName == "guar.nameLFM")
{
guarNameOrdinal = segDef.hl7DefFields[i].OrdinalPos;
}
if (segDef.hl7DefFields[i].FieldName == "guar.birthdateTime")
{
guarBirthdateOrdinal = segDef.hl7DefFields[i].OrdinalPos;
}
}
//If neither guar.PatNum nor guar.ChartNumber are included in this GT1 definition log a message in the event log and return
if (guarPatNumOrdinal == -1 && guarChartNumOrdinal == -1)
{
HL7MsgCur.Note = "Guarantor not processed. guar.PatNum or guar.ChartNumber must be included in the GT1 definition. PatNum of patient:" + pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7", "Guarantor not processed. guar.PatNum or guar.ChartNumber must be included in the GT1 definition. PatNum of patient:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
//If guar.nameLFM is not included in this GT1 definition log a message in the event log and return
if (guarNameOrdinal == -1)
{
HL7MsgCur.Note = "Guarantor not processed due to guar.nameLFM not included in the GT1 definition. Patnum of patient:" + pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7", "Guarantor not processed due to guar.nameLFM not included in the GT1 definition. Patnum of patient:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
//If the first or last name are not included in this GT1 segment, log a message in the event log and return
if (seg.GetFieldComponent(guarNameOrdinal, 0) == "" || seg.GetFieldComponent(guarNameOrdinal, 1) == "")
{
HL7MsgCur.Note = "Guarantor not processed due to missing first or last name. PatNum of patient:" + pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7", "Guarantor not processed due to missing first or last name. PatNum of patient:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
//Only process GT1 if either guar.PatNum or guar.ChartNumber is included and both guar.LName and guar.FName are included
long guarPatNum = 0;
string guarChartNum = "";
if (guarPatNumOrdinal != -1)
{
guarPatNum = PIn.Long(seg.GetFieldFullText(guarPatNumOrdinal));
}
if (guarChartNumOrdinal != -1)
{
guarChartNum = seg.GetFieldComponent(guarChartNumOrdinal);
}
if (guarPatNum == 0 && guarChartNum == "") //because we have an example where they sent us this (position 2 (guarPatNumOrder or guarChartNumOrder for eCW) is empty): GT1|1||^^||^^^^||||||||
{
HL7MsgCur.Note = "Guarantor not processed due to missing both guar.PatNum and guar.ChartNumber. One of those numbers must be included. PatNum of patient:" + pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7", "Guarantor not processed due to missing both guar.PatNum and guar.ChartNumber. One of those numbers must be included. PatNum of patient:" + pat.PatNum.ToString()
, EventLogEntryType.Information);
return;
}
if (guarPatNum == pat.PatNum || guarChartNum == pat.ChartNumber) //if relationship is self
{
return;
}
//Guar must be someone else
Patient guar = null;
Patient guarOld = null;
//Find guarantor by guar.PatNum if defined and in this segment
if (guarPatNum != 0)
{
guar = Patients.GetPat(guarPatNum);
}
else //guarPatNum was 0 so try to get guar by guar.ChartNumber or name and birthdate
//try to find guarantor using chartNumber
{
guar = Patients.GetPatByChartNumber(guarChartNum);
if (guar == null)
{
//try to find the guarantor by using name and birthdate
string guarLName = seg.GetFieldComponent(guarNameOrdinal, 0);
string guarFName = seg.GetFieldComponent(guarNameOrdinal, 1);
DateTime guarBirthdate = FieldParser.DateTimeParse(seg.GetFieldFullText(guarBirthdateOrdinal));
long guarNumByName = Patients.GetPatNumByNameAndBirthday(guarLName, guarFName, guarBirthdate);
if (guarNumByName == 0) //guarantor does not exist in OD
//so guar will still be null, triggering creation of new guarantor further down.
{
}
else
{
guar = Patients.GetPat(guarNumByName);
guarOld = guar.Copy();
guar.ChartNumber = guarChartNum; //from now on, we will be able to find guar by chartNumber
Patients.Update(guar, guarOld);
}
}
}
//At this point we have a guarantor located in OD or guar=null so guar is new patient
bool isNewGuar = guar == null;
if (isNewGuar) //then we need to add guarantor to db
{
guar = new Patient();
if (guarPatNum != 0)
{
guar.PatNum = guarPatNum;
}
else
{
guar.ChartNumber = guarChartNum;
}
guar.PriProv = PrefC.GetLong(PrefName.PracticeDefaultProv);
guar.BillingType = PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else
{
guarOld = guar.Copy();
}
//Now that we have our guarantor, process the GT1 segment
for (int i = 0; i < segDef.hl7DefFields.Count; i++)
{
int itemOrder = segDef.hl7DefFields[i].OrdinalPos;
switch (segDef.hl7DefFields[i].FieldName)
{
case "guar.addressCityStateZip":
guar.Address = seg.GetFieldComponent(itemOrder, 0);
guar.Address2 = seg.GetFieldComponent(itemOrder, 1);
guar.City = seg.GetFieldComponent(itemOrder, 2);
guar.State = seg.GetFieldComponent(itemOrder, 3);
guar.Zip = seg.GetFieldComponent(itemOrder, 4);
continue;
case "guar.birthdateTime":
guar.Birthdate = FieldParser.DateTimeParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.ChartNumber":
guar.ChartNumber = seg.GetFieldComponent(itemOrder);
continue;
case "guar.Gender":
guar.Gender = FieldParser.GenderParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.HmPhone":
guar.HmPhone = FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.nameLFM":
guar.LName = seg.GetFieldComponent(itemOrder, 0);
guar.FName = seg.GetFieldComponent(itemOrder, 1);
guar.MiddleI = seg.GetFieldComponent(itemOrder, 2);
continue;
//case "guar.PatNum": Maybe do nothing??
case "guar.SSN":
guar.SSN = seg.GetFieldComponent(itemOrder);
continue;
case "guar.WkPhone":
guar.WkPhone = FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder));
continue;
default:
continue;
}
}
if (isNewGuar)
{
guarOld = guar.Copy();
if (guar.PatNum == 0)
{
guar.PatNum = Patients.Insert(guar, false);
}
else
{
guar.PatNum = Patients.Insert(guar, true);
}
guar.Guarantor = guar.PatNum;
Patients.Update(guar, guarOld);
}
else
{
Patients.Update(guar, guarOld);
}
pat.Guarantor = guar.PatNum;
return;
}
///<summary>If relationship is self, this method does nothing. A new pat will later change guarantor to be same as patnum. </summary>
public static void ProcessGT1(Patient pat,HL7DefSegment segDef,SegmentHL7 seg) {
//Find the position of the guarNum, guarChartNum, guarName, and guarBirthdate in this HL7 segment based on the definition of a GT1
int guarPatNumOrdinal=-1;
int guarChartNumOrdinal=-1;
int guarNameOrdinal=-1;
int guarBirthdateOrdinal=-1;
for(int i=0;i<segDef.hl7DefFields.Count;i++) {
if(segDef.hl7DefFields[i].FieldName=="guar.PatNum") {
guarPatNumOrdinal=segDef.hl7DefFields[i].OrdinalPos;
}
if(segDef.hl7DefFields[i].FieldName=="guar.ChartNumber") {
guarChartNumOrdinal=segDef.hl7DefFields[i].OrdinalPos;
}
if(segDef.hl7DefFields[i].FieldName=="guar.nameLFM") {
guarNameOrdinal=segDef.hl7DefFields[i].OrdinalPos;
}
if(segDef.hl7DefFields[i].FieldName=="guar.birthdateTime") {
guarBirthdateOrdinal=segDef.hl7DefFields[i].OrdinalPos;
}
}
//If neither guar.PatNum nor guar.ChartNumber are included in this GT1 definition log a message in the event log and return
if(guarPatNumOrdinal==-1 && guarChartNumOrdinal==-1) {
HL7MsgCur.Note="Guarantor not processed. guar.PatNum or guar.ChartNumber must be included in the GT1 definition. PatNum of patient:"+pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed. guar.PatNum or guar.ChartNumber must be included in the GT1 definition. PatNum of patient:"+pat.PatNum.ToString()
,EventLogEntryType.Information);
return;
}
//If guar.nameLFM is not included in this GT1 definition log a message in the event log and return
if(guarNameOrdinal==-1) {
HL7MsgCur.Note="Guarantor not processed due to guar.nameLFM not included in the GT1 definition. Patnum of patient:"+pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed due to guar.nameLFM not included in the GT1 definition. Patnum of patient:"+pat.PatNum.ToString()
,EventLogEntryType.Information);
return;
}
//If the first or last name are not included in this GT1 segment, log a message in the event log and return
if(seg.GetFieldComponent(guarNameOrdinal,0)=="" || seg.GetFieldComponent(guarNameOrdinal,1)=="") {
HL7MsgCur.Note="Guarantor not processed due to missing first or last name. PatNum of patient:"+pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed due to missing first or last name. PatNum of patient:"+pat.PatNum.ToString()
,EventLogEntryType.Information);
return;
}
//Only process GT1 if either guar.PatNum or guar.ChartNumber is included and both guar.LName and guar.FName are included
long guarPatNum=0;
string guarChartNum="";
if(guarPatNumOrdinal!=-1) {
guarPatNum=PIn.Long(seg.GetFieldFullText(guarPatNumOrdinal));
}
if(guarChartNumOrdinal!=-1) {
guarChartNum=seg.GetFieldComponent(guarChartNumOrdinal);
}
if(guarPatNum==0 && guarChartNum=="") {//because we have an example where they sent us this (position 2 (guarPatNumOrder or guarChartNumOrder for eCW) is empty): GT1|1||^^||^^^^||||||||
HL7MsgCur.Note="Guarantor not processed due to missing both guar.PatNum and guar.ChartNumber. One of those numbers must be included. PatNum of patient:"+pat.PatNum.ToString();
HL7Msgs.Update(HL7MsgCur);
EventLog.WriteEntry("OpenDentHL7","Guarantor not processed due to missing both guar.PatNum and guar.ChartNumber. One of those numbers must be included. PatNum of patient:"+pat.PatNum.ToString()
,EventLogEntryType.Information);
return;
}
if(guarPatNum==pat.PatNum || guarChartNum==pat.ChartNumber) {//if relationship is self
return;
}
//Guar must be someone else
Patient guar=null;
Patient guarOld=null;
//Find guarantor by guar.PatNum if defined and in this segment
if(guarPatNum!=0) {
guar=Patients.GetPat(guarPatNum);
}
else {//guarPatNum was 0 so try to get guar by guar.ChartNumber or name and birthdate
//try to find guarantor using chartNumber
guar=Patients.GetPatByChartNumber(guarChartNum);
if(guar==null) {
//try to find the guarantor by using name and birthdate
string guarLName=seg.GetFieldComponent(guarNameOrdinal,0);
string guarFName=seg.GetFieldComponent(guarNameOrdinal,1);
DateTime guarBirthdate=FieldParser.DateTimeParse(seg.GetFieldFullText(guarBirthdateOrdinal));
long guarNumByName=Patients.GetPatNumByNameAndBirthday(guarLName,guarFName,guarBirthdate);
if(guarNumByName==0) {//guarantor does not exist in OD
//so guar will still be null, triggering creation of new guarantor further down.
}
else {
guar=Patients.GetPat(guarNumByName);
guarOld=guar.Copy();
guar.ChartNumber=guarChartNum;//from now on, we will be able to find guar by chartNumber
Patients.Update(guar,guarOld);
}
}
}
//At this point we have a guarantor located in OD or guar=null so guar is new patient
bool isNewGuar=guar==null;
if(isNewGuar) {//then we need to add guarantor to db
guar=new Patient();
if(guarPatNum!=0) {
guar.PatNum=guarPatNum;
}
else {
guar.ChartNumber=guarChartNum;
}
guar.PriProv=PrefC.GetLong(PrefName.PracticeDefaultProv);
guar.BillingType=PrefC.GetLong(PrefName.PracticeDefaultBillType);
}
else {
guarOld=guar.Copy();
}
//Now that we have our guarantor, process the GT1 segment
for(int i=0;i<segDef.hl7DefFields.Count;i++) {
int itemOrder=segDef.hl7DefFields[i].OrdinalPos;
switch(segDef.hl7DefFields[i].FieldName) {
case "guar.addressCityStateZip":
guar.Address=seg.GetFieldComponent(itemOrder,0);
guar.Address2=seg.GetFieldComponent(itemOrder,1);
guar.City=seg.GetFieldComponent(itemOrder,2);
guar.State=seg.GetFieldComponent(itemOrder,3);
guar.Zip=seg.GetFieldComponent(itemOrder,4);
continue;
case "guar.birthdateTime":
guar.Birthdate=FieldParser.DateTimeParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.ChartNumber":
guar.ChartNumber=seg.GetFieldComponent(itemOrder);
continue;
case "guar.Gender":
guar.Gender=FieldParser.GenderParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.HmPhone":
guar.HmPhone=FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder));
continue;
case "guar.nameLFM":
guar.LName=seg.GetFieldComponent(itemOrder,0);
guar.FName=seg.GetFieldComponent(itemOrder,1);
guar.MiddleI=seg.GetFieldComponent(itemOrder,2);
continue;
//case "guar.PatNum": Maybe do nothing??
case "guar.SSN":
guar.SSN=seg.GetFieldComponent(itemOrder);
continue;
case "guar.WkPhone":
guar.WkPhone=FieldParser.PhoneParse(seg.GetFieldComponent(itemOrder));
continue;
default:
continue;
}
}
if(isNewGuar) {
guarOld=guar.Copy();
if(guar.PatNum==0) {
guar.PatNum=Patients.Insert(guar,false);
}
else {
guar.PatNum=Patients.Insert(guar,true);
}
guar.Guarantor=guar.PatNum;
Patients.Update(guar,guarOld);
}
else {
Patients.Update(guar,guarOld);
}
pat.Guarantor=guar.PatNum;
return;
}
