private bool SaveRx()
{
if (textDate.errorProvider1.GetError(textDate) != ""
//|| textAmount.errorProvider1.GetError(textAmount)!=""
)
{
MessageBox.Show(Lan.g(this, "Please fix data entry errors first."));
return(false);
}
if (listProv.SelectedIndex != -1)
{
RxPatCur.ProvNum = Providers.List[listProv.SelectedIndex].ProvNum;
}
RxPatCur.RxDate = PIn.PDate(textDate.Text);
RxPatCur.Drug = textDrug.Text;
RxPatCur.Sig = textSig.Text;
RxPatCur.Disp = textDisp.Text;
RxPatCur.Refills = textRefills.Text;
RxPatCur.Notes = textNotes.Text;
if (IsNew)
{
RxPats.Insert(RxPatCur);
//SecurityLogs.MakeLogEntry("Prescription Create",RxPats.cmd.CommandText,user);
}
else
{
RxPats.Update(RxPatCur);
//SecurityLogs.MakeLogEntry("Prescription Edit",RxPats.cmd.CommandText,user);
}
return(true);
}
private void FillGrid()
{
if (PharmacyC.Listt.Count < 1)
{
MsgBox.Show(this, "Need to set up at least one pharmacy.");
return;
}
listRx = RxPats.GetQueue();
gridMain.BeginUpdate();
gridMain.Columns.Clear();
ODGridColumn col = new ODGridColumn(Lan.g("TableQueue", "Patient"), 150);
gridMain.Columns.Add(col);
col = new ODGridColumn(Lan.g("TableQueue", "Provider"), 150);
gridMain.Columns.Add(col);
col = new ODGridColumn(Lan.g("TableQueue", "Rx"), 150);
gridMain.Columns.Add(col);
col = new ODGridColumn(Lan.g("TableQueue", "Pharmacy"), 150);
gridMain.Columns.Add(col);
gridMain.Rows.Clear();
ODGridRow row;
for (int i = 0; i < listRx.Count; i++)
{
Patient patCur = Patients.GetLim(listRx[i].PatNum);
row = new ODGridRow();
row.Cells.Add(Patients.GetNameLF(patCur.LName, patCur.FName, patCur.Preferred, patCur.MiddleI));
row.Cells.Add(Providers.GetAbbr(listRx[i].ProvNum));
row.Cells.Add(listRx[i].Drug);
row.Cells.Add(Pharmacies.GetDescription(listRx[i].PharmacyNum));
gridMain.Rows.Add(row);
}
gridMain.EndUpdate();
}
///<summary>Attempts to save, returning true if successful.</summary>
private bool SaveRx()
{
if (textDate.errorProvider1.GetError(textDate) != "" ||
(textDaysOfSupply.Text != "" && textDaysOfSupply.errorProvider1.GetError(textDaysOfSupply) != ""))
{
MessageBox.Show(Lan.g(this, "Please fix data entry errors first."));
return(false);
}
RxPatCur.ProvNum = _provNumSelected;
RxPatCur.RxDate = PIn.Date(textDate.Text);
RxPatCur.Drug = textDrug.Text;
RxPatCur.IsControlled = checkControlled.Checked;
if (PrefC.GetBool(PrefName.RxHasProc))
{
RxPatCur.IsProcRequired = checkProcRequired.Checked;
if (comboProcCode.SelectedIndex == 0) //none
{
RxPatCur.ProcNum = 0;
}
else
{
RxPatCur.ProcNum = _listInUseProcs[comboProcCode.SelectedIndex - 1].ProcNum;
}
RxPatCur.DaysOfSupply = PIn.Int(textDaysOfSupply.Text);
}
RxPatCur.Sig = textSig.Text;
RxPatCur.Disp = textDisp.Text;
RxPatCur.Refills = textRefills.Text;
RxPatCur.DosageCode = textDosageCode.Text;
RxPatCur.Notes = textNotes.Text;
RxPatCur.SendStatus = (RxSendStatus)comboSendStatus.SelectedIndex;
//pharmacy is set when using pick button.
if (IsNew)
{
RxPatCur.RxNum = RxPats.Insert(RxPatCur);
SecurityLogs.MakeLogEntry(Permissions.RxCreate, RxPatCur.PatNum, "CREATED(" + RxPatCur.RxDate.ToShortDateString() + "," + RxPatCur.Drug + ","
+ RxPatCur.ProvNum + "," + RxPatCur.Disp + "," + RxPatCur.Refills + ")", RxPatCur.RxNum, DateTime.MinValue);//No date previous needed, new Rx Pat
if (FormProcGroup.IsOpen)
{
FormProcGroup.RxNum = RxPatCur.RxNum;
}
}
else
{
if (RxPats.Update(RxPatCur, _rxPatOld))
{
//The rx has changed, make an edit entry.
SecurityLogs.MakeLogEntry(Permissions.RxEdit, RxPatCur.PatNum, "FROM(" + _rxPatOld.RxDate.ToShortDateString() + "," + _rxPatOld.Drug + ","
+ _rxPatOld.ProvNum + "," + _rxPatOld.Disp + "," + _rxPatOld.Refills + ")" + "\r\nTO(" + RxPatCur.RxDate.ToShortDateString() + "," + RxPatCur.Drug + ","
+ RxPatCur.ProvNum + "," + RxPatCur.Disp + "," + RxPatCur.Refills + ")", RxPatCur.RxNum, _rxPatOld.DateTStamp);
}
}
IsNew = false; //so that we can save it again after printing if needed.
return(true);
}
private void butDelete_Click(object sender, System.EventArgs e)
{
if (IsNew)
{
DialogResult = DialogResult.Cancel;
return;
}
if (MessageBox.Show(Lan.g(this, "Delete Prescription?"), "", MessageBoxButtons.OKCancel)
!= DialogResult.OK)
{
return;
}
RxPats.Delete(RxPatCur.RxNum);
DialogResult = DialogResult.OK;
}
private void butDelete_Click(object sender, System.EventArgs e)
{
if (IsNew)
{
DialogResult = DialogResult.Cancel;
return;
}
if (MessageBox.Show(Lan.g(this, "Delete Prescription?"), "", MessageBoxButtons.OKCancel) != DialogResult.OK)
{
return;
}
SecurityLogs.MakeLogEntry(Permissions.RxEdit, RxPatCur.PatNum, "FROM(" + _rxPatOld.RxDate.ToShortDateString() + "," + _rxPatOld.Drug + "," + _rxPatOld.ProvNum + "," + _rxPatOld.Disp + "," + _rxPatOld.Refills + ")" + "\r\nTO('deleted')", RxPatCur.RxNum, _rxPatOld.DateTStamp);
RxPats.Delete(RxPatCur.RxNum);
DialogResult = DialogResult.OK;
}
/// <summary>For testing only</summary>
private static void CreatePrescriptions(int PrescriptionCount)
{
long[] patNumArray = Patients.GetAllPatNums();
for (int i = 0; i < patNumArray.Length; i++)
{
for (int j = 0; j < PrescriptionCount; j++)
{
RxPat rxpat = new RxPat();
rxpat.Drug = "VicodinA VicodinB VicodinC" + j;
rxpat.Disp = "50.50";
rxpat.IsControlled = true;
rxpat.PatNum = patNumArray[i];
rxpat.RxDate = new DateTime(2010, 12, 1, 11, 0, 0);
RxPats.Insert(rxpat);
}
}
}
private void FillGrid()
{
gridMain.BeginUpdate();
gridMain.ListGridColumns.Clear();
GridColumn col = new GridColumn(Lan.g("TableRxManage", "Date"), 70);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Drug"), 140);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Sig"), 0);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Disp"), 70);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Refills"), 70);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Provider"), 70);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Notes"), 0);
gridMain.ListGridColumns.Add(col);
col = new GridColumn(Lan.g("TableRxManage", "Missing Info"), 0);
gridMain.ListGridColumns.Add(col);
gridMain.ListGridRows.Clear();
_listRx = RxPats.GetAllForPat(_patCur.PatNum);
_listRx.Sort(SortByRxDate);
GridRow row;
for (int i = 0; i < _listRx.Count; i++)
{
row = new GridRow();
row.Cells.Add(_listRx[i].RxDate.ToShortDateString());
row.Cells.Add(_listRx[i].Drug);
row.Cells.Add(_listRx[i].Sig);
row.Cells.Add(_listRx[i].Disp);
row.Cells.Add(_listRx[i].Refills);
row.Cells.Add(Providers.GetAbbr(_listRx[i].ProvNum));
row.Cells.Add(_listRx[i].Notes);
row.Cells.Add(SheetPrinting.ValidateRxForSheet(_listRx[i]));
row.Tag = _listRx[i].Copy();
gridMain.ListGridRows.Add(row);
}
gridMain.EndUpdate();
}
///<summary>Attempts to save, returning true if successful.</summary>
private bool SaveRx()
{
if (textDate.errorProvider1.GetError(textDate) != ""
//|| textRxNorm.errorProvider1.GetError(textRxNorm)!=""
)
{
MessageBox.Show(Lan.g(this, "Please fix data entry errors first."));
return(false);
}
if (listProv.SelectedIndex != -1)
{
RxPatCur.ProvNum = ProviderC.ListShort[listProv.SelectedIndex].ProvNum;
}
//RxCui was set when butRxNormSelect was clicked.
RxPatCur.RxDate = PIn.Date(textDate.Text);
RxPatCur.Drug = textDrug.Text;
RxPatCur.IsControlled = checkControlled.Checked;
RxPatCur.Sig = textSig.Text;
RxPatCur.Disp = textDisp.Text;
RxPatCur.Refills = textRefills.Text;
RxPatCur.DosageCode = textDosageCode.Text;
RxPatCur.Notes = textNotes.Text;
RxPatCur.SendStatus = (RxSendStatus)comboSendStatus.SelectedIndex;
//pharmacy is set when using pick button.
if (IsNew)
{
RxPatCur.RxNum = RxPats.Insert(RxPatCur);
//SecurityLogs.MakeLogEntry("Prescription Create",RxPats.cmd.CommandText,user);
if (FormProcGroup.IsOpen)
{
FormProcGroup.RxNum = RxPatCur.RxNum;
}
}
else
{
RxPats.Update(RxPatCur);
//SecurityLogs.MakeLogEntry("Prescription Edit",RxPats.cmd.CommandText,user);
}
IsNew = false; //so that we can save it again after printing if needed.
return(true);
}
private void butSend_Click(object sender, EventArgs ea)
{
if (gridMain.SelectedIndices.Length != 1)
{
MsgBox.Show(this, "Exactly one Rx must be selected.");
return;
}
Pharmacy pharmacy = Pharmacies.GetOne(listRx[gridMain.SelectedIndices[0]].PharmacyNum);
StringBuilder strb = new StringBuilder();
//These characters will be replaced in a production by unprintable characters, but hardcoded for debugging.
char f = ':'; //separates fields within a composite element
char e = '+'; //(separates composite elements) SureScripts may require an unprintable character here.
char d = '.'; //decimal notation
char r = '/'; //release indicator
char p = '*'; //repetition separator
string s = "'\r\n"; //segment separator
#if DEBUG
if (true)
{
//Set false if you want to use unprintable characters to simulate running in release mode.
}
else
{
//f=''; we don't know the values for these characters yet.
//e='';
//d='';
//r='';
//p='';
//s='';
}
#else
//f=''; we don't know the values for these characters yet.
//e='';
//d='';
//r='';
//p='';
//s='';
#endif
RxPat rx = listRx[gridMain.SelectedIndices[0]];
Patient pat = Patients.GetPat(rx.PatNum);
Provider prov = Providers.GetProv(rx.ProvNum);
PatPlan patPlan = PatPlans.GetPatPlan(pat.PatNum, 1);
Family fam = Patients.GetFamily(pat.PatNum);
List <InsSub> subList = InsSubs.RefreshForFam(fam);
List <InsPlan> planList = InsPlans.RefreshForSubList(subList);
InsSub sub = InsSubs.GetOne(patPlan.InsSubNum);
InsPlan plan = InsPlans.GetPlan(sub.PlanNum, planList);
Carrier car = Carriers.GetCarrier(plan.CarrierNum);
DateTime msgTimeSent = DateTime.Now;
//Hardcoded values should never change. Ex:Message type, version, release should always be SCRIPT:010:006
//Hardcoded values allowed to change until released version.
//UNA:+./*'------------------------------------------------------------------------------------------------
strb.Append("UNA" + f + e + d + r + p + s);
//UIB+UNOA:0++1234567+++77777777:C:PASSWORDQ+7701630:P+19971001:081522'------------------------------------
strb.Append("UIB" + e); //000
strb.Append("UNOA" + f + "0" + e); //010 Syntax identifier and version
strb.Append(e); //020 not used
strb.Append(Sout(POut.Long(rx.RxNum)) + e); //030 Transaction reference (Clinic system trace number.) Sender creates a Unique Trace number for each message sent.
strb.Append(e); //040 not used
strb.Append(e); //050 not used
strb.Append("56873771" + f + "C" + f + "PASSWORDQ" + e); //060 Sender identification (This is the Clinic ID of the sender; C means it is a Clinic.)
strb.Append(Sout(pharmacy.PharmID) + f + "P" + e); //070 Recipient ID (NCPDP Provider ID Number of pharmacy; P means it is a pharmacy.)
strb.Append(Sout(msgTimeSent.ToString("yyyyMMdd")) + f + Sout(msgTimeSent.ToString("HHmmss")) + s); //080 Date of initiation CCYYMMDD:HHMMSS,S
//UIH+SCRIPT:010:006:NEWRX+110072+++19971001:081522'-------------------------------------------------------
strb.Append("UIH" + e); //000
strb.Append("SCRIPT" + f + "010" + f + "006" + f + "NEWRX" + e); //010 Message type:version:release:function.
//Clinic's reference number for message. Usually this is the folio number for the patient. However, this is the ID by which the clinic will be able to refer to this prescription.
strb.Append(Sout(rx.RxNum.ToString()) + e); //020 Message reference number (Must match number in UIT segment below, must be unique. Recommend using rx num)
strb.Append(e); //030 conditional Dialogue Reference
strb.Append(e); //040 not used
strb.Append(Sout(msgTimeSent.ToString("yyyyMMdd")) + f + Sout(msgTimeSent.ToString("HHmmss")) + s); //050 Date of initiation
//PVD+P1+7701630:D3+++++MAIN STREET PHARMACY++6152205656:TE'-----------------------------------------------
strb.Append("PVD" + e); //000
strb.Append("P1" + e); //010 Provider coded (see external code list pg.109)
strb.Append(Sout(pharmacy.PharmID) + f + "D3" + e); //020 Reference number and qualifier (Pharmacy ID)
strb.Append(e); //030 not used
strb.Append(e); //040 conditional Provider specialty
strb.Append(e); //050 conditional The name of the prescriber or pharmacist or supervisor
strb.Append(e); //060 not used
strb.Append(e); //070 conditional The clinic or pharmacy name
strb.Append(Sout(pharmacy.Address) + f + Sout(pharmacy.City) + f + Sout(pharmacy.State) + f + Sout(pharmacy.Zip) + e); //080 Address
strb.Append(Regex.Replace(Sout(pharmacy.Phone), @"[-()]", string.Empty) + f + "TE" + s); //090 Communication number and qualifier
//PVD+PC+6666666:0B+++JONES:MARK++++6152219800:TE'---------------------------------------------------------
strb.Append("PVD" + e); //000
strb.Append("PC" + e); //010 Provider coded
strb.Append(Sout(prov.StateRxID) + f + "0B" + e); //020 Reference number and qualifier (0B: Provider State License Number)
strb.Append(e); //030 not used
strb.Append(e); //040 conditional Provider specialty
strb.Append(Sout(prov.LName) + f + Sout(prov.FName) + e); //050 The name of the prescriber or pharmacist or supervisor
strb.Append(e); //060 not used
strb.Append(e); //070 conditional The clinic or pharmacy name
strb.Append(e); //080 conditional Address
strb.Append(Regex.Replace(Sout(PrefC.GetString(PrefName.PracticePhone)), @"[-()]", string.Empty) + f + "TE" + s); //090 Communication number and qualifier
//PTT++19541225+SMITH:MARY+F+333445555:SY'-----------------------------------------------------------------
strb.Append("PTT" + e); //000
strb.Append(e); //010 conditional Individual relationship
strb.Append(Sout(pat.Birthdate.ToString("yyyyMMdd")) + e); //020 Birth date of patient YYYYMMDD
strb.Append(Sout(pat.LName) + f + Sout(pat.FName) + e); //030 Name
strb.Append(Sout(pat.Gender.ToString().Substring(0, 1)) + e); //040 Gender (M,F,U)
strb.Append(Sout(pat.SSN.Replace("-", "")) + f + "SY" + s); //050 Patient ID and/or SSN and qualifier
//COO+123456:BO+INSURANCE COMPANY NAME++123456789++AA112'--------------------------------------------------
strb.Append("COO" + e); //000
strb.Append(Sout(plan.RxBIN) + f + "BO" + e); //010 Payer ID Information and qualifier (Primary Payer's identification number? BO is for BIN Location Number.)
strb.Append(Sout(car.CarrierName) + e); //020 Payer name
strb.Append(e); //030 conditional Service type, coded
strb.Append(Sout(sub.SubscriberID) + e); //040 Cardholder ID
strb.Append(e); //050 conditional Cardholder name
strb.Append(Sout(plan.GroupNum) + s); //060 Group ID
//DRU------------------------------------------------------------------------------------------------------
//DRU+P:CALAN SR 240MG::::240:::::::AA:C42998:AB:C28253+::60:38:AC:C48542+:1 TID -TAKE ONE TABLET TWO TIMES A DAY UNTIL GONE+85:19971001:102*ZDS:30:804+0+R:1'
strb.Append("DRU" + e); //000
//P means prescribed. Drug prescribed is Calan Sr 240mg.
//240 is the strength (free text); AA is the Source for NCI Pharmaceutical Dosage Form. C42998 is the code for “Tablet dosing form”.
//AB is the Source for NCI Units of Presentation. C28253 is the code for “Milligram”. So this means the prescription is for 240mg tablets.
//There's AA, AB and AC - AC is Potency Unit
//The definitions for C42998 and C28253 and be found @ http://nciterms.nci.nih.gov/ncitbrowser/pages/vocabulary.jsf?dictionary=NCI_Thesaurus
strb.Append("P" + f + Sout(rx.Drug) + f + f + f + f + f + f + Sout(rx.RxCui.ToString()) + f + "SBD" + e); //f+f+f+f+"AA"+f+"C42998"+f+"AB"+f+"C28253"+e);//010 Item Description Identification
//This means dispense 60 tablets. 38 is the code value for Original Qty. AC is the Source for NCI Potency Units. C48542 is the code for “Tablet dosing unit”.
strb.Append("" + f + f + Sout(rx.Disp) + f + f + "AA" + f + Sout(rx.DosageCode) + e); //020 Quantity
strb.Append(f + Sout(rx.Sig) + e); //030 Directions
//85 qualifier for Date Issued (Written date) 102 is qualifier for CCYYMMDD format.
//ZDS is the qualifier for Days Supply. 30 is the number of days supply. 804 is the qualifier for Quantity of Days.
strb.Append("85" + f + Sout(rx.RxDate.ToString("yyyyMMdd")) + f + "102" + e); //+p+"ZDS"+f+"30"+f+"804"+e);//040 Date Note: It is strongly recommended that Days Supply (value “ZDS”) be supported.
strb.Append("0" + e); //050 Product/Service substitution, coded
strb.Append("R" + f + Sout(rx.Refills) + s); //060 Refill and quantity
//UIT+110072+6'---------------------------------------------------------------------------------------------
strb.Append("UIT" + e); //000
strb.Append(Sout(rx.RxNum.ToString()) + e); //010 Message reference number
strb.Append("5" + s); //020 Mandatory field. This is the count of the number of segments in the message including the UIH and UIT
//UIZ++1'---------------------------------------------------------------------------------------------------
strb.Append("UIZ" + e); //000
strb.Append(e); //010 not used
strb.Append("1" + s); //020 Number of messages per interchange. The count of UIH-UIT occurrences
//Uncomment if you want to see the message text:
//MsgBoxCopyPaste msgbox=new MsgBoxCopyPaste(strb.ToString());
//msgbox.ShowDialog();
Cursor = Cursors.WaitCursor;
try {
#if EHRTEST
EHR.EhrEmail.Send("10.6 SCRIPT for NEWRX", "SCRIPT.txt", strb.ToString());
#else
//can't send email unless in debug/ehrtest mode.
#endif
}
catch (Exception ex) {
Cursor = Cursors.Default;
MessageBox.Show(ex.Message);
return;
}
Cursor = Cursors.Default;
MessageBox.Show("Sent");
rx.SendStatus = RxSendStatus.SentElect; //Removes the Rx from the grid.
RxPats.Update(rx);
FillGrid();
}