// (0)DOE, JOHN ~(1)25731~(2)SPRINGFIELD RETIREMENT CASTLE~(3)~(4)2~(5)201~(6)13~(7)68180041109~(8)AVAPRO 150 MG TABLET~(9)IRBESARTAN 150 MG TABLET~(10)20170204~0730~1~~MICHELLE SMITH ~8880440~INFORME piel o reaccion alergica.~NO conducir si mareado o vision borrosa.~TAKE 1 TABLET DAILY IN THE MORNING ~~~~M~00~28~8880440_00_25/28~
/// <summary>
/// <c>Go</c>
/// </summary>
/// Built as a bridge interface to BestRx, the method reads a Parada packing machine file and pulls out as
/// much useable information as it can ad pushes it into the DB. It's too lightweight to be considered a
/// true interface, but can be used in a pinch.
public void Go()
{
var rows = Data.Split('\n');
var lastScrip = string.Empty;
var lastDoseQty = string.Empty;
var lastDoseTime = string.Empty;
var firstScrip = true;
var committed = false;
var doseTimes = new List <string>();
var nameVersion = 1;
var scrip = new MotPrescriptionRecord("Add", AutoTruncate);
var patient = new MotPatientRecord("Add", AutoTruncate);
var facility = new MotFacilityRecord("Add", AutoTruncate);
var drug = new MotDrugRecord("Add", AutoTruncate);
var practitioner = new MotPrescriberRecord("Add", AutoTruncate);
var writeQueue = new MotWriteQueue();
patient.LocalWriteQueue =
scrip.LocalWriteQueue =
facility.LocalWriteQueue =
practitioner.LocalWriteQueue =
drug.LocalWriteQueue =
writeQueue;
patient.QueueWrites =
scrip.QueueWrites =
facility.QueueWrites =
practitioner.QueueWrites =
drug.QueueWrites =
true;
writeQueue.SendEof = false; // Has to be off so we don't lose the socket.
writeQueue.DebugMode = DebugMode;
try
{
foreach (var row in rows) // This will generate new records for every row - need to optimize
{
if (row.Length > 0) // --- The latest test file has a trailing "\r" and a messed up drug name, need to address both
{
var rawRecord = row.Split('~'); // There's no guarantee that each field has data but the count is right
if (lastScrip != rawRecord[15]) // Start a new scrip
{
if (firstScrip == false) // Commit the previous scrip
{
if (doseTimes.Count > 1)
{
// Build and write TQ Record
var tq = new MotTimesQtysRecord("Add", AutoTruncate)
{
// New name
DoseScheduleName = facility.LocationName?.Substring(0, 3) + nameVersion
};
nameVersion++;
// Fill the record
tq.LocationID = patient.LocationID;
tq.DoseTimesQtys = scrip.DoseTimesQtys;
// Assign the DoseSchcedulw name to the scrip & clear the scrip DoseTimeSchedule
scrip.DoseScheduleName = tq.DoseScheduleName;
scrip.DoseTimesQtys = "";
// Write the record
tq.LocalWriteQueue = writeQueue;
tq.AddToQueue();
}
Console.WriteLine($"Committing on Thread {Thread.CurrentThread.Name}");
scrip.Commit(GatewaySocket);
// ReSharper disable once RedundantAssignment
committed = true;
practitioner.Clear();
facility.Clear();
drug.Clear();
patient.Clear();
scrip.Clear();
}
firstScrip = committed = false;
lastScrip = rawRecord[15];
doseTimes.Clear();
var names = rawRecord[0].Split(',');
patient.LastName = (names[0] ?? "Warning[PFN]").Trim();
patient.FirstName = (names[1] ?? "Warning[PLN]").Trim();
if (rawRecord[2].Length >= 4)
{
patient.LocationID = rawRecord[2]?.Trim()?.Substring(0, 4);
}
patient.PatientID = rawRecord[1];
patient.Room = rawRecord[4];
patient.Address1 = "";
patient.Address2 = "";
patient.City = "";
patient.State = "NH";
patient.Zipcode = "";
patient.Status = 1;
facility.LocationName = rawRecord[2];
facility.Address1 = "";
facility.Address2 = "";
facility.City = "";
facility.State = "NH";
facility.Zipcode = "";
if (rawRecord[2].Length >= 4)
{
facility.LocationID = rawRecord[2]?.Trim()?.Substring(0, 4);
}
drug.NDCNum = rawRecord[7];
drug.DrugID = rawRecord[7];
if (drug.NDCNum == "0")
{
// It's something goofy like a compound; ignore it
EventLogger.Warn($"Ignoring thig with NDC == 0 named {rawRecord[8]}");
continue;
//__scrip.ChartOnly = "1";
//__drug.NDCNum = "00000000000";
//var __rand = new Random();
//__drug.RxSys_DrugID = __rand.Next().ToString();
//__drug.DefaultIsolate = 1;
}
//
// Some funny stuff happens here as the umber of items from the split is varible - we've seen 2,3,4, & 5
// Examples
// -- Trade And Generic Pair - Each 4 items, same format {[name][strength][unit][route]}
// AVAPRO 150 MG TABLE
// IRBESARTAN 150 MG TABLET
//
// -- Trade and Generic Name - 4 items for each but different strength formats
// CRESTOR 10 MG TABLET
// ROSUVASTATIN TB 10MG 30
//
// -- Trade and Generic Name - 4 items for trade, 5 for Generic
// ZOLOFT 100 MG TABLET
// SERTRALINE HCL 100 MG TABLET
//
// -- Trade and Generic Name - 6 items for Trade, 5 for Generic
// 500 + D 500-200 MG-IU TABLET
// OYSTER SHELL CALCIUM 500-200 MG
//
// Another Trade and Genmeric Name with 4 items for the Trade and 5 for the generic
// FOSAMAX 35 MG TABLET
// ALENDRONATE SODIUM 35 MG TABLET
//
// Note that it's also only required to have one or the other, not both
//
//
// Push everything down into a structure and have it return a struct defining both
string tempTradeName = string.Empty;
if (DrugName.ParseExact(rawRecord[8]))
{
drug.TradeName = drug.DrugName = $"{DrugName.Name} {DrugName.Strength} {DrugName.Unit} {DrugName.Form}";
drug.ShortName = $"{DrugName.Name} {DrugName.Strength} {DrugName.Unit}";
drug.Unit = DrugName.Unit;
drug.Strength = Convert.ToDouble(DrugName.Strength ?? "0.00");
drug.DoseForm = DrugName.Form;
tempTradeName = $"{DrugName.Name} {DrugName.Strength} {DrugName.Unit} {DrugName.Form}";
}
if (DrugName.ParseExact(rawRecord[9]))
{
drug.TradeName = drug.DrugName = $"{DrugName.Name} {DrugName.Strength} {DrugName.Unit} {DrugName.Form}";
drug.ShortName = $"{DrugName.Name} {DrugName.Strength} {DrugName.Unit}";
drug.Unit = DrugName.Unit;
drug.Strength = Convert.ToDouble(DrugName.Strength ?? "0.00");
drug.DoseForm = DrugName.Form;
drug.GenericFor = tempTradeName;
}
if (!string.IsNullOrEmpty(rawRecord[9]) && string.IsNullOrEmpty(drug.TradeName))
{
drug.DrugName = drug.TradeName = rawRecord[9] ?? "Unknown";
}
string[] practitionerName = rawRecord[14].Split(' ');
practitioner.FirstName = (practitionerName[0] ?? "Warning[DFN]").Trim();
practitioner.LastName = (practitionerName[1] ?? "Warning[DLN]").Trim();
practitioner.Address1 = "";
practitioner.Address2 = "";
practitioner.City = "";
practitioner.State = "NH";
practitioner.Zipcode = "";
try
{
switch (practitionerName.Length)
{
case 2:
if (practitionerName[0].Length >= 3 && practitionerName[1].Length >= 3)
{
practitioner.PrescriberID = practitionerName[0]?.Trim()?.Substring(0, 3) + practitionerName[1]?.Trim()?.Substring(0, 3);
}
practitioner.FirstName = (practitionerName[0] ?? "Warning[DFN]").Trim();
practitioner.LastName = (practitionerName[1] ?? "Warning[DLN]").Trim();
break;
case 3:
if (practitionerName[1].Length >= 3 && practitionerName[2].Length >= 3)
{
practitioner.PrescriberID = practitionerName[0]?.Trim()?.Substring(0, 3) + practitionerName[2]?.Trim()?.Substring(0, 3);
}
practitioner.FirstName = practitionerName[0]?.Trim();
practitioner.MiddleInitial = practitionerName[1].Trim();
practitioner.LastName = practitionerName[2]?.Trim();
break;
default:
practitioner.PrescriberID = new Random(40000).ToString();
break;
}
}
catch
{
practitioner.PrescriberID = new Random(60000).ToString();
}
patient.PrimaryPrescriberID = practitioner.PrescriberID;
scrip.PrescriptionID = rawRecord[15];
scrip.PatientID = patient.PatientID;
scrip.PrescriberID = patient.PrimaryPrescriberID;
scrip.Status = 1;
scrip.RxStartDate = string.IsNullOrEmpty(rawRecord[10]) ? DateTime.Now : scrip.TransformDate(rawRecord[10] ?? "");
if (rawRecord[11] != null && rawRecord[12] != null)
{
scrip.DoseTimesQtys = $"{Convert.ToInt32(rawRecord[11]):0000}{Convert.ToDouble(rawRecord[12]):00.00}";
}
scrip.QtyPerDose = Convert.ToDouble(rawRecord[12] ?? "0.00");
scrip.QtyDispensed = Convert.ToDouble(rawRecord[24] ?? "0.00");
scrip.Sig = $"{rawRecord[18]}\n{rawRecord[19]}\n{rawRecord[20]}";
scrip.Comments = $"{rawRecord[16]}\n{rawRecord[17]}";
scrip.Refills = Convert.ToInt32(rawRecord[23] ?? "0");
scrip.DrugID = drug.NDCNum;
scrip.RxType = rawRecord[22].Trim().ToUpper() == "P" ? 2 : 1;
lastDoseTime = rawRecord[11];
lastDoseQty = rawRecord[12];
doseTimes.Add(lastDoseTime);
practitioner.AddToQueue();
patient.AddToQueue();
facility.AddToQueue();
drug.AddToQueue();
scrip.AddToQueue();
}
else
{
if (lastDoseTime != rawRecord[11] || lastDoseQty != rawRecord[12])
{
if (!doseTimes.Contains(rawRecord[11])) // Create a new TQ Dose Schedule here!!
{
// Kludge
if (rawRecord[11] != null)
{
var tempTest = $"{Convert.ToInt32(rawRecord[11]):0000}";
if (tempTest.Substring(2, 2) == "15" ||
tempTest.Substring(2, 2) == "45")
{
tempTest = tempTest.Replace(tempTest.Substring(2, 2), "00");
scrip.DoseTimesQtys += $"{tempTest}{Convert.ToDouble(rawRecord[12]):00.00}";
}
else
{
scrip.DoseTimesQtys += $"{Convert.ToInt32(rawRecord[11]):0000}{Convert.ToDouble(rawRecord[12]):00.00}";
}
}
lastDoseQty = rawRecord[12];
lastDoseTime = rawRecord[11];
doseTimes.Add(lastDoseTime);
}
}
}
}
else
{
// Fell through to here because the row length was 0
if (committed)
{
continue;
}
scrip.Commit(GatewaySocket);
committed = true;
}
}
}
catch (Exception ex)
{
EventLogger.Error($"Error parsing Parada record {Data}: {ex.Message}");
throw;
}
}
// Missing DEA for Pharmacy and Prescribers
// NDC-9 with the Manufacturer a short name
public void Go()
{
try
{
var workingData = Data.Split('\n');
var writeQueue = new MotWriteQueue
{
SendEof = false, // Has to be off so we don't lose the socket.
DebugMode = DebugMode
};
string lastPatId = string.Empty;
foreach (var line in workingData)
{
switch (line.Substring(0, 1))
{
case "P":
var s1 = line.Substring(1);
var f1 = s1.Split(',');
var store = new MotStoreRecord("Add", AutoTruncate)
{
LocalWriteQueue = writeQueue,
QueueWrites = true,
StoreID = f1[0].Replace(" ", ""),
StoreName = f1[0],
Address1 = f1[1],
Address2 = f1[2],
City = f1[3],
Zipcode = f1[4],
Phone = f1[5]
};
store.AddToQueue();
break;
case "F":
var s2 = line.Substring(1);
var f2 = s2.Split(',');
var patient = new MotPatientRecord("Add", AutoTruncate)
{
LocalWriteQueue = writeQueue,
QueueWrites = true,
PatientID = lastPatId = f2[0],
LastName = f2[1],
FirstName = f2[2],
Address1 = f2[5],
Address2 = f2[6],
City = f2[7],
State = f2[8],
Zipcode = f2[9],
Phone1 = f2[10],
CycleDays = Convert.ToInt16(f2[12]),
Room = f2[14]
};
patient.CycleDate = patient.TransformDate(f2[11] ?? "");
patient.DOB = patient.TransformDate(f2[4] ?? "");
patient.AddToQueue();
break;
case "M":
var s3 = line.Substring(1);
var f3 = s3.Split(',');
var rx = new MotPrescriptionRecord("Add", AutoTruncate);
var doc = new MotPrescriberRecord("Add", AutoTruncate);
var drug = new MotDrugRecord("Add", AutoTruncate);
rx.LocalWriteQueue = doc.LocalWriteQueue = drug.LocalWriteQueue = writeQueue;
rx.QueueWrites = doc.QueueWrites = drug.QueueWrites = true;
doc.PrescriberID = f3[15]?.Substring(0, 3) + f3[16]?.Substring(0, 3);
doc.FirstName = f3[15];
doc.LastName = f3[16];
doc.MiddleInitial = f3[17];
doc.Address1 = f3[18];
doc.Address2 = f3[19];
doc.City = f3[20];
doc.State = f3[21];
doc.Zipcode = f3[22];
doc.Phone = f3[23];
// M8880338,DECADRON TAB .75 MG 100,TAB,,30,TAKE 1 TABLET DAILY|TOME 1 TABLET DAILY,JACK GERARD,00;00;01;00,000060063,4,,,,,,JACK,GERARD,,599 SO.FEDERAL HWY,,CHICAGO,IL,60601,773-222-9999,,
drug.DrugID = f3[8];
if (f3[8].Length > 9)
{
drug.NDCNum = f3[8]; // Unlikely, but the NDC is already 11
}
else if (f3[8].Length == 9)
{
drug.NDCNum = f3[8] + "00"; // Accepted conversion to NDC11
}
else
{
drug.NDCNum = "00000000000";
}
drug.DrugName = f3[1];
drug.DoseForm = f3[2];
drug.VisualDescription = f3[3];
drug.TradeName = f3[12];
rx.PrescriptionID = f3[0];
rx.DrugID = drug.DrugID;
rx.PrescriberID = doc.PrescriberID;
rx.PatientID = lastPatId;
rx.Sig = f3[5];
rx.QtyDispensed = Convert.ToDouble(f3[4] ?? "0.00");
rx.Refills = Convert.ToInt32(f3[9] ?? "0");
rx.RxStopDate = rx.TransformDate(f3[14] ?? ""); // Actually the Expire Date
// Intake Code - 00,00,00,00 = 0800[q], 1200[q], 1800[q], 2100[q]
var dq = f3[7].Split(';');
string[] time = // Need to get the actual dose times from the RxSystem or User, for now just use defaults
{
"0800",
"1200",
"1800",
"2100"
};
var i = 0;
foreach (var d in dq)
{
if (d != "00")
{
rx.DoseTimesQtys = $"{time[i]}{Convert.ToDouble(d):00.00}";
}
i++;
}
rx.DoseScheduleName = "Dispill";
doc.AddToQueue();
drug.AddToQueue();
rx.AddToQueue();
break;
}
}
if (workingData.Length > 0)
{
writeQueue.Write(GatewaySocket);
}
}
catch (Exception ex)
{
EventLogger.Error("Failed to parse Dispill file: {0}", ex.Message);
throw;
}
}