private void butAdd_Click(object sender,EventArgs e) {
if(comboProvNum.SelectedIndex==-1) {
MsgBox.Show(this,"Please select a dentist.");
return;
}
FormProcCodes FormP=new FormProcCodes();
FormP.IsSelectionMode=true;
FormP.ShowDialog();
if(FormP.DialogResult!=DialogResult.OK) {
return;
}
Procedure ProcCur;
ProcCur=new Procedure();//going to be an insert, so no need to set Procedures.CurOld
ProcCur.CodeNum = FormP.SelectedCodeNum;
//procnum
ProcCur.PatNum=AptCur.PatNum;
//aptnum
//proccode
//ProcCur.CodeNum=ProcedureCodes.GetProcCode(ProcCur.OldCode).CodeNum;//already set
ProcCur.ProcDate=DateTimeOD.Today;
ProcCur.DateTP=ProcCur.ProcDate;
//int totUnits = ProcCur.BaseUnits + ProcCur.UnitQty;
InsPlan priplan=null;
InsSub prisub=null;
//Family fam=Patients.GetFamily(AptCur.PatNum);
//Patient pat=fam.GetPatient(AptCur.PatNum);
//InsPlan[] planList=InsPlans.Refresh(fam);
List<PatPlan> patPlanList=PatPlans.Refresh(pat.PatNum);
if(patPlanList.Count>0) {
prisub=InsSubs.GetSub(patPlanList[0].InsSubNum,SubList);
priplan=InsPlans.GetPlan(prisub.PlanNum,PlanList);
}
//Check if it's a medical procedure.
double insfee;
bool isMed = false;
ProcCur.MedicalCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).MedicalCode;
if(ProcCur.MedicalCode != null && ProcCur.MedicalCode != "") {
isMed = true;
}
//Get fee schedule for medical or dental.
long feeSch;
if(isMed) {
feeSch=Fees.GetMedFeeSched(pat,PlanList,patPlanList,SubList);
}
else {
feeSch=Fees.GetFeeSched(pat,PlanList,patPlanList,SubList);
}
//Get the fee amount for medical or dental.
if(PrefC.GetBool(PrefName.MedicalFeeUsedForNewProcs) && isMed) {
insfee=Fees.GetAmount0(ProcedureCodes.GetProcCode(ProcCur.MedicalCode).CodeNum,feeSch);
}
else {
insfee=Fees.GetAmount0(ProcCur.CodeNum,feeSch);
}
if(priplan!=null && priplan.PlanType=="p") {//PPO
double standardfee=Fees.GetAmount0(ProcCur.CodeNum,Providers.GetProv(Patients.GetProvNum(pat)).FeeSched);
if(standardfee>insfee) {
ProcCur.ProcFee=standardfee;
}
else {
ProcCur.ProcFee=insfee;
}
}
else {
ProcCur.ProcFee=insfee;
}
//surf
//ToothNum
//Procedures.Cur.ToothRange
//ProcCur.NoBillIns=ProcedureCodes.GetProcCode(ProcCur.ProcCode).NoBillIns;
ProcCur.Priority=0;
ProcCur.ProcStatus=ProcStat.TP;
long aptProvNum=ProviderC.ListShort[0].ProvNum;
if(comboProvNum.SelectedIndex!=-1) {
aptProvNum=ProviderC.ListShort[comboProvNum.SelectedIndex].ProvNum;
}
long aptProvHyg=0;
if(comboProvHyg.SelectedIndex>0) {
aptProvHyg=ProviderC.ListShort[comboProvHyg.SelectedIndex-1].ProvNum;
}
if(ProcedureCodes.GetProcCode(ProcCur.CodeNum).IsHygiene
&& aptProvHyg != 0) {
ProcCur.ProvNum=aptProvHyg;
}
else {
ProcCur.ProvNum=aptProvNum;
}
if(ProcedureCodes.GetProcCode(ProcCur.CodeNum).ProvNumDefault!=0) {//Override provider for procedures with a default provider
ProcCur.ProvNum=ProcedureCodes.GetProcCode(ProcCur.CodeNum).ProvNumDefault;
}
ProcCur.Note="";
ProcCur.ClinicNum=pat.ClinicNum;
//dx
//nextaptnum
ProcCur.DateEntryC=DateTime.Now;
ProcCur.BaseUnits=ProcedureCodes.GetProcCode(ProcCur.CodeNum).BaseUnits;
ProcCur.SiteNum=pat.SiteNum;
ProcCur.RevCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).RevenueCodeDefault;
ProcCur.DiagnosticCode=PrefC.GetString(PrefName.ICD9DefaultForNewProcs);
Procedures.Insert(ProcCur);
List<Benefit> benefitList=Benefits.Refresh(patPlanList,SubList);
Procedures.ComputeEstimates(ProcCur,pat.PatNum,new List<ClaimProc>(),true,PlanList,patPlanList,benefitList,pat.Age,SubList);
FormProcEdit FormPE=new FormProcEdit(ProcCur,pat.Copy(),fam);
FormPE.IsNew=true;
if(Programs.UsingOrion) {
FormPE.OrionProvNum=ProviderC.ListShort[comboProvNum.SelectedIndex].ProvNum;
FormPE.OrionDentist=true;
}
FormPE.ShowDialog();
if(FormPE.DialogResult==DialogResult.Cancel) {
//any created claimprocs are automatically deleted from within procEdit window.
try {
Procedures.Delete(ProcCur.ProcNum);//also deletes the claimprocs
}
catch(Exception ex) {
MessageBox.Show(ex.Message);
}
return;
}
else if(Programs.UsingOrion) {
//No need to synch with Orion mode.
}
else {
//Default is set to TP, so Synch is usually not needed.
if(ProcCur.ProcStatus==ProcStat.C||ProcCur.ProcStatus==ProcStat.EC||ProcCur.ProcStatus==ProcStat.EO) {
Recalls.Synch(pat.PatNum);
}
}
/*
FormApptProcs FormAP=new FormApptProcs();
FormAP.AptCur=AptCur.Clone();
//but we do need the status to be accurate:
if (AptCur.AptStatus == ApptStatus.Planned) {
;
}
else if(comboStatus.SelectedIndex==-1) {
FormAP.AptCur.AptStatus=ApptStatus.Scheduled;
}
else if (AptCur.AptStatus == ApptStatus.PtNote | AptCur.AptStatus == ApptStatus.PtNoteCompleted){
FormAP.AptCur.AptStatus = (ApptStatus)comboStatus.SelectedIndex + 7;
}
else {
FormAP.AptCur.AptStatus=(ApptStatus)comboStatus.SelectedIndex+1;
}
FormAP.ShowDialog();
if(FormAP.DialogResult!=DialogResult.OK){
return;
}*/
bool isPlanned=AptCur.AptStatus==ApptStatus.Planned;
Procedures.AttachToApt(ProcCur.ProcNum,AptCur.AptNum,isPlanned);
Recalls.Synch(AptCur.PatNum);//might not be needed because TP?
DS.Tables.Remove("Procedure");
DS.Tables.Add(Appointments.GetApptEdit(AptCur.AptNum).Tables["Procedure"].Copy());
FillProcedures();
CalculateTime();
FillTime();
}
private void listQuickAdd_MouseDown(object sender,System.Windows.Forms.MouseEventArgs e) {
if(comboProvNum.SelectedIndex==-1){
MsgBox.Show(this,"Please select a dentist.");
return;
}
if(listQuickAdd.IndexFromPoint(e.X,e.Y)==-1) {
return;
}
if(AptCur.AptStatus==ApptStatus.Complete) {
//added procedures would be marked complete when form closes. We'll just stop it here.
if(!Security.IsAuthorized(Permissions.ProcComplCreate)) {
return;
}
}
Procedures.SetDateFirstVisit(AptCur.AptDateTime.Date,1,pat);
List<PatPlan> PatPlanList=PatPlans.Refresh(AptCur.PatNum);
List<Benefit> benefitList=Benefits.Refresh(PatPlanList,SubList);
List<ClaimProc> ClaimProcList=ClaimProcs.Refresh(AptCur.PatNum);
string[] codes=DefC.Short[(int)DefCat.ApptProcsQuickAdd][listQuickAdd.IndexFromPoint(e.X,e.Y)].ItemValue.Split(',');
for(int i=0;i<codes.Length;i++) {
if(!ProcedureCodeC.HList.ContainsKey(codes[i])) {
MsgBox.Show(this,"Definition contains invalid code.");
return;
}
}
for(int i=0;i<codes.Length;i++) {
Procedure ProcCur=new Procedure();
ProcCur.PatNum=AptCur.PatNum;
if(AptCur.AptStatus!=ApptStatus.Planned) {
ProcCur.AptNum=AptCur.AptNum;
}
ProcCur.CodeNum=ProcedureCodes.GetProcCode(codes[i]).CodeNum;
ProcCur.ProcDate=AptCur.AptDateTime.Date;
ProcCur.DateTP=DateTimeOD.Today;
InsPlan priplan=null;
InsSub prisub=null;
if(PatPlanList.Count>0) {
prisub=InsSubs.GetSub(PatPlanList[0].InsSubNum,SubList);
priplan=InsPlans.GetPlan(prisub.PlanNum,PlanList);
}
//Check if it's a medical procedure.
double insfee;
bool isMed = false;
ProcCur.MedicalCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).MedicalCode;
if(ProcCur.MedicalCode != null && ProcCur.MedicalCode != "") {
isMed = true;
}
//Get fee schedule for medical or dental.
long feeSch;
if(isMed) {
feeSch=Fees.GetMedFeeSched(pat,PlanList,PatPlanList,SubList);
}
else {
feeSch=Fees.GetFeeSched(pat,PlanList,PatPlanList,SubList);
}
//Get the fee amount for medical or dental.
if(PrefC.GetBool(PrefName.MedicalFeeUsedForNewProcs) && isMed) {
insfee=Fees.GetAmount0(ProcedureCodes.GetProcCode(ProcCur.MedicalCode).CodeNum,feeSch);
}
else {
insfee=Fees.GetAmount0(ProcCur.CodeNum,feeSch);
}
if(priplan!=null && priplan.PlanType=="p") {//PPO
double standardfee=Fees.GetAmount0(ProcCur.CodeNum,Providers.GetProv(Patients.GetProvNum(pat)).FeeSched);
if(standardfee>insfee) {
ProcCur.ProcFee=standardfee;
}
else {
ProcCur.ProcFee=insfee;
}
}
else {
ProcCur.ProcFee=insfee;
}
//surf
//toothnum
//toothrange
//priority
ProcCur.ProcStatus=ProcStat.TP;
//procnote
if(ProcedureCodes.GetProcCode(ProcCur.CodeNum).ProvNumDefault==0) {//Override ProvNum if there is a default provider for this proc
ProcCur.ProvNum=ProviderC.ListShort[comboProvNum.SelectedIndex].ProvNum;//Normal behavior
}
else {
ProcCur.ProvNum=ProcedureCodes.GetProcCode(ProcCur.CodeNum).ProvNumDefault;//New behavior for procs with default provider
}
//Dx
ProcCur.ClinicNum=AptCur.ClinicNum;
ProcCur.SiteNum=pat.SiteNum;
ProcCur.RevCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).RevenueCodeDefault;
if(AptCur.AptStatus==ApptStatus.Planned) {
ProcCur.PlannedAptNum=AptCur.AptNum;
}
ProcCur.BaseUnits=ProcedureCodes.GetProcCode(ProcCur.CodeNum).BaseUnits;
ProcCur.DiagnosticCode=PrefC.GetString(PrefName.ICD9DefaultForNewProcs);
Procedures.Insert(ProcCur);//recall synch not required
if(Programs.UsingOrion){//Orion requires a DPC for every procedure. Force proc edit window open.
FormProcEdit FormP=new FormProcEdit(ProcCur,pat.Copy(),fam);
FormP.IsNew=true;
FormP.OrionDentist=true;
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.Cancel) {
try {
Procedures.Delete(ProcCur.ProcNum);//also deletes the claimprocs
}
catch(Exception ex) {
MessageBox.Show(ex.Message);
}
}
}
Procedures.ComputeEstimates(ProcCur,pat.PatNum,ClaimProcList,false,PlanList,PatPlanList,benefitList,pat.Age,SubList);
}
listQuickAdd.SelectedIndex=-1;
string[] selectedProcs=new string[gridProc.SelectedIndices.Length];
for(int i=0;i<selectedProcs.Length;i++) {
selectedProcs[i]=DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["ProcNum"].ToString();
}
DS.Tables.Remove("Procedure");
DS.Tables.Add(Appointments.GetApptEdit(AptCur.AptNum).Tables["Procedure"].Copy());
FillProcedures();
for(int i=0;i<gridProc.Rows.Count;i++) {
for(int j=0;j<selectedProcs.Length;j++) {
if(selectedProcs[j]==DS.Tables["Procedure"].Rows[i]["ProcNum"].ToString()) {
gridProc.SetSelected(i,true);
}
}
}
CalculateTime();
FillTime();
CalcPatientFeeThisAppt();
}
/*
///<summary>Only used in GetSearchResults. All times between start and stop get set to true in provBarSched.</summary>
private static void SetProvBarSched(ref bool[] provBarSched,TimeSpan timeStart,TimeSpan timeStop){
int startI=GetProvBarIndex(timeStart);
int stopI=GetProvBarIndex(timeStop);
for(int i=startI;i<=stopI;i++){
provBarSched[i]=true;
}
}
private static int GetProvBarIndex(TimeSpan time) {
return (int)(((double)time.Hours*(double)60/(double)PrefC.GetLong(PrefName.AppointmentTimeIncrement)//aptTimeIncr=minutesPerIncr
+(double)time.Minutes/(double)PrefC.GetLong(PrefName.AppointmentTimeIncrement))
*(double)ApptDrawing.LineH*ApptDrawing.RowsPerIncr)
/ApptDrawing.LineH;//rounds down
}*/
///<summary>Used by UI when it needs a recall appointment placed on the pinboard ready to schedule. This method creates the appointment and attaches all appropriate procedures. It's up to the calling class to then place the appointment on the pinboard. If the appointment doesn't get scheduled, it's important to delete it. If a recallNum is not 0 or -1, then it will create an appt of that recalltype.</summary>
public static Appointment CreateRecallApt(Patient patCur,List<Procedure> procList,List<InsPlan> planList,long recallNum,List<InsSub> subList){
List<Recall> recallList=Recalls.GetList(patCur.PatNum);
Recall recallCur=null;
if(recallNum>0) {
recallCur=Recalls.GetRecall(recallNum);
}
else{
for(int i=0;i<recallList.Count;i++){
if(recallList[i].RecallTypeNum==RecallTypes.PerioType || recallList[i].RecallTypeNum==RecallTypes.ProphyType){
if(!recallList[i].IsDisabled){
recallCur=recallList[i];
}
break;
}
}
}
if(recallCur==null){// || recallCur.DateDue.Year<1880){
throw new ApplicationException(Lan.g("AppointmentL","No special type recall is due."));//Typically never happens because everyone has a recall. However, it can happen when patients have custom recalls due
}
if(recallCur.DateScheduled.Date>DateTime.Today) {
throw new ApplicationException(Lan.g("AppointmentL","Recall has already been scheduled for ")+recallCur.DateScheduled.ToShortDateString());
}
Appointment AptCur=new Appointment();
AptCur.PatNum=patCur.PatNum;
AptCur.AptStatus=ApptStatus.UnschedList;//In all places where this is used, the unsched status with no aptDateTime will cause the appt to be deleted when the pinboard is cleared.
if(patCur.PriProv==0){
AptCur.ProvNum=PrefC.GetLong(PrefName.PracticeDefaultProv);
}
else{
AptCur.ProvNum=patCur.PriProv;
}
AptCur.ProvHyg=patCur.SecProv;
if(AptCur.ProvHyg!=0){
AptCur.IsHygiene=true;
}
AptCur.ClinicNum=patCur.ClinicNum;
//whether perio or prophy:
List<string> procs=RecallTypes.GetProcs(recallCur.RecallTypeNum);
string recallPattern=RecallTypes.GetTimePattern(recallCur.RecallTypeNum);
if(RecallTypes.IsSpecialRecallType(recallCur.RecallTypeNum)
&& patCur.Birthdate.AddYears(PrefC.GetInt(PrefName.RecallAgeAdult)) > ((recallCur.DateDue>DateTime.Today)?recallCur.DateDue:DateTime.Today)) //For example, if pt's 12th birthday falls after recall date.
{
for(int i=0;i<RecallTypeC.Listt.Count;i++) {
if(RecallTypeC.Listt[i].RecallTypeNum==RecallTypes.ChildProphyType) {
List<string> childprocs=RecallTypes.GetProcs(RecallTypeC.Listt[i].RecallTypeNum);
if(childprocs.Count>0) {
procs=childprocs;//overrides adult procs.
}
string childpattern=RecallTypes.GetTimePattern(RecallTypeC.Listt[i].RecallTypeNum);
if(childpattern!="") {
recallPattern=childpattern;//overrides adult pattern.
}
}
}
}
//convert time pattern to 5 minute increment
StringBuilder savePattern=new StringBuilder();
for(int i=0;i<recallPattern.Length;i++){
savePattern.Append(recallPattern.Substring(i,1));
if(PrefC.GetLong(PrefName.AppointmentTimeIncrement)==10) {
savePattern.Append(recallPattern.Substring(i,1));
}
if(PrefC.GetLong(PrefName.AppointmentTimeIncrement)==15){
savePattern.Append(recallPattern.Substring(i,1));
savePattern.Append(recallPattern.Substring(i,1));
}
}
if(savePattern.ToString()==""){
if(PrefC.GetLong(PrefName.AppointmentTimeIncrement)==15){
savePattern.Append("///XXX///");
}
else{
savePattern.Append("//XX//");
}
}
AptCur.Pattern=savePattern.ToString();
//Add films------------------------------------------------------------------------------------------------------
if(RecallTypes.IsSpecialRecallType(recallCur.RecallTypeNum)){//if this is a prophy or perio
for(int i=0;i<recallList.Count;i++){
if(recallCur.RecallNum==recallList[i].RecallNum){
continue;//already handled.
}
if(recallList[i].IsDisabled){
continue;
}
if(recallList[i].DateDue.Year<1880){
continue;
}
if(recallList[i].DateDue>recallCur.DateDue//if film due date is after prophy due date
&& recallList[i].DateDue>DateTime.Today)//and not overdue
{
continue;
}
//incomplete: exclude manual recall types
procs.AddRange(RecallTypes.GetProcs(recallList[i].RecallTypeNum));
}
}
AptCur.ProcDescript="";
AptCur.ProcsColored="";
for(int i=0;i<procs.Count;i++) {
string procDescOne="";
if(i>0){
AptCur.ProcDescript+=", ";
}
procDescOne+=ProcedureCodes.GetProcCode(procs[i]).AbbrDesc;
AptCur.ProcDescript+=procDescOne;
//Color and previous date are determined by ProcApptColor object
ProcApptColor pac=ProcApptColors.GetMatch(procs[i]);
System.Drawing.Color pColor=System.Drawing.Color.Black;
string prevDateString="";
if(pac!=null){
pColor=pac.ColorText;
if(pac.ShowPreviousDate) {
prevDateString=Procedures.GetRecentProcDateString(AptCur.PatNum,AptCur.AptDateTime,pac.CodeRange);
if(prevDateString!="") {
prevDateString=" ("+prevDateString+")";
}
}
}
AptCur.ProcsColored+="<span color=\""+pColor.ToArgb().ToString()+"\">"+procDescOne+prevDateString+"</span>";
}
AptCur.TimeLocked=PrefC.GetBool(PrefName.AppointmentTimeIsLocked);
Appointments.Insert(AptCur);
Procedure ProcCur;
List <PatPlan> patPlanList=PatPlans.Refresh(patCur.PatNum);
List <Benefit> benefitList=Benefits.Refresh(patPlanList,subList);
InsPlan priplan=null;
InsSub prisub=null;
if(patPlanList.Count>0) {
prisub=InsSubs.GetSub(patPlanList[0].InsSubNum,subList);
priplan=InsPlans.GetPlan(prisub.PlanNum,planList);
}
double insfee;
double standardfee;
for(int i=0;i<procs.Count;i++){
ProcCur=new Procedure();//this will be an insert
//procnum
ProcCur.PatNum=patCur.PatNum;
ProcCur.AptNum=AptCur.AptNum;
ProcCur.CodeNum=ProcedureCodes.GetCodeNum(procs[i]);
ProcCur.ProcDate=DateTime.Now;
ProcCur.DateTP=DateTime.Now;
//Check if it's a medical procedure.
bool isMed = false;
ProcCur.MedicalCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).MedicalCode;
if(ProcCur.MedicalCode != null && ProcCur.MedicalCode != "") {
isMed = true;
}
//Get fee schedule for medical or dental.
long feeSch;
if(isMed) {
feeSch=Fees.GetMedFeeSched(patCur,planList,patPlanList,subList);
}
else {
feeSch=Fees.GetFeeSched(patCur,planList,patPlanList,subList);
}
//Get the fee amount for medical or dental.
if(PrefC.GetBool(PrefName.MedicalFeeUsedForNewProcs) && isMed) {
insfee=Fees.GetAmount0(ProcedureCodes.GetProcCode(ProcCur.MedicalCode).CodeNum,feeSch);
}
else {
insfee=Fees.GetAmount0(ProcCur.CodeNum,feeSch);
}
if(priplan!=null && priplan.PlanType=="p") {//PPO
standardfee=Fees.GetAmount0(ProcCur.CodeNum,Providers.GetProv(Patients.GetProvNum(patCur)).FeeSched);
if(standardfee>insfee) {
ProcCur.ProcFee=standardfee;
}
else {
ProcCur.ProcFee=insfee;
}
}
else {
ProcCur.ProcFee=insfee;
}
//surf
//toothnum
//Procedures.Cur.ToothRange="";
//ProcCur.NoBillIns=ProcedureCodes.GetProcCode(ProcCur.CodeNum).NoBillIns;
//priority
ProcCur.ProcStatus=ProcStat.TP;
ProcCur.Note="";
//Procedures.Cur.PriEstim=
//Procedures.Cur.SecEstim=
//claimnum
ProcCur.ProvNum=patCur.PriProv;
//Procedures.Cur.Dx=
ProcCur.ClinicNum=patCur.ClinicNum;
//nextaptnum
ProcCur.BaseUnits = ProcedureCodes.GetProcCode(ProcCur.CodeNum).BaseUnits;
ProcCur.DiagnosticCode=PrefC.GetString(PrefName.ICD9DefaultForNewProcs);
Procedures.Insert(ProcCur);//no recall synch required
Procedures.ComputeEstimates(ProcCur,patCur.PatNum,new List<ClaimProc>(),false,planList,patPlanList,benefitList,patCur.Age,subList);
if(Programs.UsingOrion){
FormProcEdit FormP=new FormProcEdit(ProcCur,patCur.Copy(),Patients.GetFamily(patCur.PatNum));
FormP.IsNew=true;
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.Cancel){
//any created claimprocs are automatically deleted from within procEdit window.
try{
Procedures.Delete(ProcCur.ProcNum);//also deletes the claimprocs
}
catch(Exception ex){
MessageBox.Show(ex.Message);
}
}
else{
//Do not synch. Recalls based on ScheduleByDate reports in Orion mode.
//Recalls.Synch(PatCur.PatNum);
}
}
}
return AptCur;
}
private void gridProc_CellDoubleClick(object sender,ODGridClickEventArgs e) {
long procNum=PIn.Long(DS.Tables["Procedure"].Rows[e.Row]["ProcNum"].ToString());
Procedure proc=Procedures.GetOneProc(procNum,true);
FormProcEdit FormP=new FormProcEdit(proc,pat,fam);
FormP.ShowDialog();
if(FormP.DialogResult!=DialogResult.OK){
return;
}
DS.Tables.Remove("Procedure");
DS.Tables.Add(Appointments.GetApptEdit(AptCur.AptNum).Tables["Procedure"].Copy());
FillProcedures();
CalculateTime();
FillTime();
//make sure the one we double clicked on is highlighted if found
bool isPlanned=AptCur.AptStatus==ApptStatus.Planned;
for(int i=0;i<DS.Tables["Procedure"].Rows.Count;i++){
if(DS.Tables["Procedure"].Rows[i]["attached"].ToString()=="1"){
//if already attached, skip
continue;
}
if(DS.Tables["Procedure"].Rows[i]["ProcNum"].ToString()==procNum.ToString()){
Procedures.AttachToApt(procNum,AptCur.AptNum,isPlanned);
Recalls.Synch(AptCur.PatNum);
DS.Tables.Remove("Procedure");
DS.Tables.Add(Appointments.GetApptEdit(AptCur.AptNum).Tables["Procedure"].Copy());
FillProcedures();
CalculateTime();
FillTime();
break;
}
}
}
private void butAdd_Click(object sender,EventArgs e)
{
FormProcCodes FormP=new FormProcCodes();
FormP.IsSelectionMode=true;
FormP.ShowDialog();
if(FormP.DialogResult!=DialogResult.OK){
return;
}
Procedure ProcCur;
ProcCur=new Procedure();//going to be an insert, so no need to set Procedures.CurOld
ProcCur.CodeNum = FormP.SelectedCodeNum;
//procnum
ProcCur.PatNum=AptCur.PatNum;
//aptnum
//proccode
//ProcCur.CodeNum=ProcedureCodes.GetProcCode(ProcCur.OldCode).CodeNum;//already set
ProcCur.ProcDate=DateTime.Today;
ProcCur.DateTP=ProcCur.ProcDate;
//int totUnits = ProcCur.BaseUnits + ProcCur.UnitQty;
InsPlan priplan=null;
InsSub prisub=null;
Family fam=Patients.GetFamily(AptCur.PatNum);
Patient pat=fam.GetPatient(AptCur.PatNum);
List<InsSub> subList=InsSubs.RefreshForFam(fam);
List<InsPlan> planList=InsPlans.RefreshForSubList(subList);
List<PatPlan> patPlanList=PatPlans.Refresh(pat.PatNum);
if(patPlanList.Count>0) {
prisub=InsSubs.GetSub(patPlanList[0].InsSubNum,subList);
priplan=InsPlans.GetPlan(prisub.PlanNum,planList);
}
//Check if it's a medical procedure.
double insfee;
bool isMed = false;
ProcCur.MedicalCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).MedicalCode;
if(ProcCur.MedicalCode != null && ProcCur.MedicalCode != "") {
isMed = true;
}
//Get fee schedule for medical or dental.
long feeSch;
if(isMed) {
feeSch=Fees.GetMedFeeSched(pat,planList,patPlanList,subList);
}
else {
feeSch=Fees.GetFeeSched(pat,planList,patPlanList,subList);
}
//Get the fee amount for medical or dental.
if(PrefC.GetBool(PrefName.MedicalFeeUsedForNewProcs) && isMed) {
insfee=Fees.GetAmount0(ProcedureCodes.GetProcCode(ProcCur.MedicalCode).CodeNum,feeSch);
}
else {
insfee=Fees.GetAmount0(ProcCur.CodeNum,feeSch);
}
if(priplan!=null && priplan.PlanType=="p") {//PPO
double standardfee=Fees.GetAmount0(ProcCur.CodeNum,Providers.GetProv(Patients.GetProvNum(pat)).FeeSched);
if(standardfee>insfee) {
ProcCur.ProcFee=standardfee;
}
else {
ProcCur.ProcFee=insfee;
}
}
else {
ProcCur.ProcFee=insfee;
}
//surf
//ToothNum
//Procedures.Cur.ToothRange
//ProcCur.NoBillIns=ProcedureCodes.GetProcCode(ProcCur.ProcCode).NoBillIns;
ProcCur.Priority=0;
ProcCur.ProcStatus=ProcStat.TP;
if(ProcedureCodes.GetProcCode(ProcCur.CodeNum).IsHygiene
&& pat.SecProv != 0){
ProcCur.ProvNum=pat.SecProv;
}
else{
ProcCur.ProvNum=pat.PriProv;
}
ProcCur.Note="";
ProcCur.ClinicNum=pat.ClinicNum;
//dx
//nextaptnum
ProcCur.DateEntryC=DateTime.Now;
ProcCur.BaseUnits=ProcedureCodes.GetProcCode(ProcCur.CodeNum).BaseUnits;
ProcCur.SiteNum=pat.SiteNum;
ProcCur.RevCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).RevenueCodeDefault;
Procedures.Insert(ProcCur);
List <Benefit> benefitList=Benefits.Refresh(patPlanList,subList);
Procedures.ComputeEstimates(ProcCur,pat.PatNum,new List<ClaimProc>(),true,planList,patPlanList,benefitList,pat.Age,subList);
FormProcEdit FormPE=new FormProcEdit(ProcCur,pat.Copy(),fam);
FormPE.IsNew=true;
FormPE.ShowDialog();
if(FormPE.DialogResult==DialogResult.Cancel){
//any created claimprocs are automatically deleted from within procEdit window.
try{
Procedures.Delete(ProcCur.ProcNum);//also deletes the claimprocs
}
catch(Exception ex){
MessageBox.Show(ex.Message);
}
}
else if(Programs.UsingOrion){
//No need to synch with Orion mode.
}
else{
//Default is set to TP, so Synch is usually not needed.
if(ProcCur.ProcStatus==ProcStat.C||ProcCur.ProcStatus==ProcStat.EC||ProcCur.ProcStatus==ProcStat.EO){
Recalls.Synch(pat.PatNum);
}
}
FillGrid();
}
/*
///<summary>Only used in GetSearchResults. All times between start and stop get set to true in provBarSched.</summary>
private static void SetProvBarSched(ref bool[] provBarSched,TimeSpan timeStart,TimeSpan timeStop){
int startI=GetProvBarIndex(timeStart);
int stopI=GetProvBarIndex(timeStop);
for(int i=startI;i<=stopI;i++){
provBarSched[i]=true;
}
}
private static int GetProvBarIndex(TimeSpan time) {
return (int)(((double)time.Hours*(double)60/(double)PrefC.GetLong(PrefName.AppointmentTimeIncrement)//aptTimeIncr=minutesPerIncr
+(double)time.Minutes/(double)PrefC.GetLong(PrefName.AppointmentTimeIncrement))
*(double)ApptDrawing.LineH*ApptDrawing.RowsPerIncr)
/ApptDrawing.LineH;//rounds down
}*/
///<summary>Used by UI when it needs a recall appointment placed on the pinboard ready to schedule. This method creates the appointment and attaches all appropriate procedures. It's up to the calling class to then place the appointment on the pinboard. If the appointment doesn't get scheduled, it's important to delete it. If a recallNum is not 0 or -1, then it will create an appt of that recalltype.</summary>
public static Appointment CreateRecallApt(Patient patCur,List<Procedure> procList,List<InsPlan> planList,long recallNum,List<InsSub> subList){
List<Recall> recallList=Recalls.GetList(patCur.PatNum);
Recall recallCur=null;
if(recallNum>0) {
recallCur=Recalls.GetRecall(recallNum);
}
else{
for(int i=0;i<recallList.Count;i++){
if(recallList[i].RecallTypeNum==RecallTypes.PerioType || recallList[i].RecallTypeNum==RecallTypes.ProphyType){
if(!recallList[i].IsDisabled){
recallCur=recallList[i];
}
break;
}
}
}
if(recallCur==null){// || recallCur.DateDue.Year<1880){
throw new ApplicationException(Lan.g("AppointmentL","No special type recall is due."));//Typically never happens because everyone has a recall. However, it can happen when patients have custom recalls due
}
if(recallCur.DateScheduled.Date>DateTime.Today) {
throw new ApplicationException(Lan.g("AppointmentL","Recall has already been scheduled for ")+recallCur.DateScheduled.ToShortDateString());
}
Appointment aptCur=new Appointment();
List<string> procs=RecallTypes.GetProcs(recallCur.RecallTypeNum);
List<Procedure> listProcs=Appointments.FillAppointmentForRecall(aptCur,recallCur,recallList,patCur,procs,planList,subList);
for(int i=0;i<listProcs.Count;i++) {
if(Programs.UsingOrion) {
FormProcEdit FormP=new FormProcEdit(listProcs[i],patCur.Copy(),Patients.GetFamily(patCur.PatNum));
FormP.IsNew=true;
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.Cancel) {
//any created claimprocs are automatically deleted from within procEdit window.
try {
Procedures.Delete(listProcs[i].ProcNum);//also deletes the claimprocs
}
catch(Exception ex) {
MessageBox.Show(ex.Message);
}
}
else {
//Do not synch. Recalls based on ScheduleByDate reports in Orion mode.
//Recalls.Synch(PatCur.PatNum);
}
}
}
return aptCur;
}
private void gridProg_CellDoubleClick(object sender,ODGridClickEventArgs e) {
Chartscrollval=gridProg.ScrollValue;
DataRow row=(DataRow)gridProg.Rows[e.Row].Tag;
if(row["ProcNum"].ToString()!="0"){
if(checkAudit.Checked){
MsgBox.Show(this,"Not allowed to edit procedures when in audit mode.");
return;
}
Procedure proc=Procedures.GetOneProc(PIn.Long(row["ProcNum"].ToString()),true);
if(ProcedureCodes.GetStringProcCode(proc.CodeNum)==ProcedureCodes.GroupProcCode){
FormProcGroup FormP=new FormProcGroup();
List<ProcGroupItem> groupItemList=ProcGroupItems.GetForGroup(proc.ProcNum);
List<Procedure> procList=new List<Procedure>();
for(int i=0;i<groupItemList.Count;i++){
procList.Add(Procedures.GetOneProc(groupItemList[i].ProcNum,false));
}
FormP.GroupCur=proc;
FormP.GroupItemList=groupItemList;
FormP.ProcList=procList;
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.OK){
ModuleSelected(PatCur.PatNum);
FillProgNotes();
}
return;
}
else{
FormProcEdit FormP=new FormProcEdit(proc,PatCur,FamCur);
Plugins.HookAddCode(this, "ContrChart.gridProg_CellDoubleClick_proc", proc, FormP);
if(!FormP.IsDisposed) { //Form might be disposed by the above hook.
FormP.ShowDialog();
}
Plugins.HookAddCode(this, "ContrChart.gridProg_CellDoubleClick_proc2", proc, FormP);
if(FormP.DialogResult!=DialogResult.OK) {
return;
}
}
}
else if(row["CommlogNum"].ToString()!="0"){
Commlog comm=Commlogs.GetOne(PIn.Long(row["CommlogNum"].ToString()));
FormCommItem FormC=new FormCommItem(comm);
FormC.ShowDialog();
if(FormC.DialogResult!=DialogResult.OK){
return;
}
}
else if(row["RxNum"].ToString()!="0") {
RxPat rx=RxPats.GetRx(PIn.Long(row["RxNum"].ToString()));
FormRxEdit FormRxE=new FormRxEdit(PatCur,rx);
FormRxE.ShowDialog();
if(FormRxE.DialogResult!=DialogResult.OK){
return;
}
}
else if(row["LabCaseNum"].ToString()!="0") {
LabCase lab=LabCases.GetOne(PIn.Long(row["LabCaseNum"].ToString()));
FormLabCaseEdit FormL=new FormLabCaseEdit();
FormL.CaseCur=lab;
FormL.ShowDialog();
//needs to always refresh due to complex ok/cancel
}
else if(row["TaskNum"].ToString()!="0") {
Task task=Tasks.GetOne(PIn.Long(row["TaskNum"].ToString()));
if(task==null) {
MsgBox.Show(this,"This task has been deleted by another user.");
}
else {
FormTaskEdit FormT=new FormTaskEdit(task,task.Copy());
FormT.Closing+=new CancelEventHandler(TaskGoToEvent);
FormT.Show();//non-modal
}
}
else if(row["AptNum"].ToString()!="0") {
//Appointment apt=Appointments.GetOneApt(
FormApptEdit FormA=new FormApptEdit(PIn.Long(row["AptNum"].ToString()));
//PinIsVisible=false
FormA.IsInChartModule=true;
FormA.ShowDialog();
if(FormA.CloseOD) {
((Form)this.Parent).Close();
return;
}
if(FormA.DialogResult!=DialogResult.OK) {
return;
}
}
else if(row["EmailMessageNum"].ToString()!="0") {
EmailMessage msg=EmailMessages.GetOne(PIn.Long(row["EmailMessageNum"].ToString()));
if(msg.SentOrReceived==EmailSentOrReceived.WebMailReceived
|| msg.SentOrReceived==EmailSentOrReceived.WebMailRecdRead
|| msg.SentOrReceived==EmailSentOrReceived.WebMailSent
|| msg.SentOrReceived==EmailSentOrReceived.WebMailSentRead)
{
//web mail uses special secure messaging portal
FormWebMailMessageEdit FormWMME=new FormWebMailMessageEdit(PatCur.PatNum,msg.EmailMessageNum);
if(FormWMME.ShowDialog()!=DialogResult.OK) {
return;
}
}
else {
FormEmailMessageEdit FormE=new FormEmailMessageEdit(msg);
FormE.ShowDialog();
if(FormE.DialogResult!=DialogResult.OK) {
return;
}
}
}
else if(row["SheetNum"].ToString()!="0") {
Sheet sheet=Sheets.GetSheet(PIn.Long(row["SheetNum"].ToString()));
FormSheetFillEdit FormSFE=new FormSheetFillEdit(sheet);
FormSFE.ShowDialog();
if(FormSFE.DialogResult!=DialogResult.OK) {
return;
}
}
else if(row["FormPatNum"].ToString()!="0"){
FormPat form=FormPats.GetOne(PIn.Long(row["FormPatNum"].ToString()));
FormFormPatEdit FormP=new FormFormPatEdit();
FormP.FormPatCur=form;
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.OK)
{
ModuleSelected(PatCur.PatNum);//Why is this called here and down 3 lines? Do we need the Allocator, or should we return here?
}
}
ModuleSelected(PatCur.PatNum);
Reporting.Allocators.MyAllocator1_ProviderPayment.AllocateWithToolCheck(this.PatCur.Guarantor);
}
///<summary>No user dialog is shown. This only works for some kinds of procedures. Set the codeNum first.</summary>
private void AddQuick(Procedure ProcCur){
Plugins.HookAddCode(this,"ContrChart.AddQuick_begin",ProcCur);
//procnum
ProcCur.PatNum=PatCur.PatNum;
//aptnum
//ProcCur.CodeNum=ProcedureCodes.GetProcCode(ProcCur.OldCode).CodeNum;//already set
if(newStatus==ProcStat.EO){
ProcCur.ProcDate=DateTime.MinValue;
}
else if(textDate.errorProvider1.GetError(textDate)!=""){
ProcCur.ProcDate=DateTimeOD.Today;
}
else{
ProcCur.ProcDate=PIn.Date(textDate.Text);
}
ProcCur.DateTP=ProcCur.ProcDate;
if(newStatus==ProcStat.R || newStatus==ProcStat.EO || newStatus==ProcStat.EC) {
ProcCur.ProcFee=0;
}
else {
InsPlan priplan=null;
InsSub prisub=null;
if(PatPlanList.Count>0) {
prisub=InsSubs.GetSub(PatPlanList[0].InsSubNum,SubList);
priplan=InsPlans.GetPlan(prisub.PlanNum,PlanList);
}
//Check if it's a medical procedure.
double insfee;
bool isMed = false;
ProcCur.MedicalCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).MedicalCode;
if(ProcCur.MedicalCode != null && ProcCur.MedicalCode != "") {
isMed = true;
}
//Get fee schedule for medical or dental.
long feeSch;
if(isMed) {
feeSch=Fees.GetMedFeeSched(PatCur,PlanList,PatPlanList,SubList);
}
else {
feeSch=Fees.GetFeeSched(PatCur,PlanList,PatPlanList,SubList);
}
//Get the fee amount for medical or dental.
if(PrefC.GetBool(PrefName.MedicalFeeUsedForNewProcs) && isMed) {
insfee=Fees.GetAmount0(ProcedureCodes.GetProcCode(ProcCur.MedicalCode).CodeNum,feeSch);
}
else {
insfee=Fees.GetAmount0(ProcCur.CodeNum,feeSch);
}
if(priplan!=null && priplan.PlanType=="p" && !isMed) {//PPO
double standardfee=Fees.GetAmount0(ProcCur.CodeNum,Providers.GetProv(Patients.GetProvNum(PatCur)).FeeSched);
if(standardfee>insfee) {
ProcCur.ProcFee=standardfee;
}
else {
ProcCur.ProcFee=insfee;
}
}
else {
ProcCur.ProcFee=insfee;
}
}
//surf
//toothnum
//ToothRange
if(comboPriority.SelectedIndex==0) {
ProcCur.Priority=0;
}
else {
ProcCur.Priority=DefC.Short[(int)DefCat.TxPriorities][comboPriority.SelectedIndex-1].DefNum;
}
ProcCur.ProcStatus=newStatus;
long provPri=PatCur.PriProv;
long provSec=PatCur.SecProv;
for(int i=0;i<ApptList.Length;i++) {
if(ApptList[i].AptDateTime.Date==DateTime.Today && ApptList[i].AptStatus!=ApptStatus.Planned) {
provPri=ApptList[i].ProvNum;
provSec=ApptList[i].ProvHyg;
break;
}
}
if(ProcedureCodes.GetProcCode(ProcCur.CodeNum).IsHygiene
&& provSec != 0) {
ProcCur.ProvNum=provSec;
}
else {
ProcCur.ProvNum=provPri;
}
if(ProcedureCodes.GetProcCode(ProcCur.CodeNum).ProvNumDefault!=0) {//override provnum if there is a default for this proc
ProcCur.ProvNum=ProcedureCodes.GetProcCode(ProcCur.CodeNum).ProvNumDefault;
}
if(newStatus==ProcStat.C) {
ProcCur.Note=ProcCodeNotes.GetNote(ProcCur.ProvNum,ProcCur.CodeNum);
}
else {
ProcCur.Note="";
}
ProcCur.ClinicNum=PatCur.ClinicNum;
if(listDx.SelectedIndex!=-1) {
ProcCur.Dx=DefC.Short[(int)DefCat.Diagnosis][listDx.SelectedIndex].DefNum;
}
if(comboPrognosis.SelectedIndex==0) {
ProcCur.Prognosis=0;
}
else {
ProcCur.Prognosis=DefC.Short[(int)DefCat.Prognosis][comboPrognosis.SelectedIndex-1].DefNum;
}
ProcCur.BaseUnits=ProcedureCodes.GetProcCode(ProcCur.CodeNum).BaseUnits;
ProcCur.SiteNum=PatCur.SiteNum;
ProcCur.RevCode=ProcedureCodes.GetProcCode(ProcCur.CodeNum).RevenueCodeDefault;
//nextaptnum
ProcCur.DiagnosticCode=PrefC.GetString(PrefName.ICD9DefaultForNewProcs);
Procedures.Insert(ProcCur);
if((ProcCur.ProcStatus==ProcStat.C || ProcCur.ProcStatus==ProcStat.EC || ProcCur.ProcStatus==ProcStat.EO)
&& ProcedureCodes.GetProcCode(ProcCur.CodeNum).PaintType==ToothPaintingType.Extraction) {
//if an extraction, then mark previous procs hidden
//Procedures.SetHideGraphical(ProcCur);//might not matter anymore
ToothInitials.SetValue(PatCur.PatNum,ProcCur.ToothNum,ToothInitialType.Missing);
}
if(UsingEcwTight()) {
//do not synch recall. Too slow
}
else if(Programs.UsingOrion){
//No need to synch with Orion mode.
}
else if(newStatus==ProcStat.C
|| newStatus==ProcStat.EC
|| newStatus==ProcStat.EO)
{//only run Recalls for completed, existing current, or existing other
//Auto-insert default encounter
if(newStatus==ProcStat.C) {
Encounters.InsertDefaultEncounter(ProcCur.PatNum,ProcCur.ProvNum,ProcCur.ProcDate);
}
Recalls.Synch(PatCur.PatNum);
}
Procedures.ComputeEstimates(ProcCur,PatCur.PatNum,new List<ClaimProc>(),true,PlanList,PatPlanList,BenefitList,PatCur.Age,SubList);
if(Programs.UsingOrion){//Orion requires a DPC to be set. Force the proc edit window open so they can set it.
FormProcEdit FormP=new FormProcEdit(ProcCur,PatCur.Copy(),FamCur);
FormP.IsNew=true;
FormP.OrionProvNum=Providers.GetOrionProvNum(ProcCur.ProvNum);
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.Cancel){
//any created claimprocs are automatically deleted from within procEdit window.
try{
Procedures.Delete(ProcCur.ProcNum);//also deletes the claimprocs
}
catch(Exception ex){
MessageBox.Show(ex.Message);
}
}
else{
//Do not synch. Recalls based on ScheduleByDate reports in Orion mode.
//Recalls.Synch(PatCur.PatNum);
}
}
}
private void gridMain_CellDoubleClick(object sender, OpenDental.UI.ODGridClickEventArgs e) {
if(gridMain.Rows[e.Row].Tag==null){
return;//user double clicked on a subtotal row
}
if(gridPlans.SelectedIndices[0]==0){//current plan
Procedure ProcCur=Procedures.GetOneProc(((Procedure)gridMain.Rows[e.Row].Tag).ProcNum,true);
//generate a new loop list containing only the procs before this one in it
LoopList=new List<ClaimProcHist>();
for(int i=0;i<ProcListTP.Length;i++) {
if(ProcListTP[i].ProcNum==ProcCur.ProcNum) {
break;
}
LoopList.AddRange(ClaimProcs.GetHistForProc(ClaimProcList,ProcListTP[i].ProcNum,ProcListTP[i].CodeNum));
}
FormProcEdit FormPE=new FormProcEdit(ProcCur,PatCur,FamCur);
FormPE.LoopList=LoopList;
FormPE.HistList=HistList;
FormPE.ShowDialog();
ModuleSelected(PatCur.PatNum);
for(int i=0;i<gridMain.Rows.Count;i++){
if(gridMain.Rows[i].Tag !=null && ((Procedure)gridMain.Rows[i].Tag).ProcNum==ProcCur.ProcNum){
gridMain.SetSelected(i,true);
}
}
return;
}
//any other TP
ProcTP procT=(ProcTP)gridMain.Rows[e.Row].Tag;
DateTime dateTP=PlanList[gridPlans.SelectedIndices[0]-1].DateTP;
FormProcTPEdit FormP=new FormProcTPEdit(procT,dateTP);
FormP.ShowDialog();
if(FormP.DialogResult==DialogResult.Cancel){
return;
}
int selectedPlanI=gridPlans.SelectedIndices[0];
long selectedProc=procT.ProcTPNum;
ModuleSelected(PatCur.PatNum);
gridPlans.SetSelected(selectedPlanI,true);
FillMain();
for(int i=0;i<gridMain.Rows.Count;i++){
if(gridMain.Rows[i].Tag !=null && ((ProcTP)gridMain.Rows[i].Tag).ProcTPNum==selectedProc){
gridMain.SetSelected(i,true);
}
}
}
///<summary>Called from butOK_Click and butPin_Click</summary>
private bool UpdateToDB(){
DateTime dateTimeAskedToArrive=DateTime.MinValue;
if((AptOld.AptStatus==ApptStatus.Complete && comboStatus.SelectedIndex!=1)
|| (AptOld.AptStatus==ApptStatus.Broken && comboStatus.SelectedIndex!=4)) //Un-completing or un-breaking the appt. We must use selectedindex due to AptCur gets updated later UpdateDB()
{
//If the insurance plans have changed since this appt was completed, warn the user that the historical data will be neutralized.
List<PatPlan> listPatPlans=PatPlans.Refresh(pat.PatNum);
InsSub sub1=InsSubs.GetSub(PatPlans.GetInsSubNum(listPatPlans,PatPlans.GetOrdinal(PriSecMed.Primary,listPatPlans,PlanList,SubList)),SubList);
InsSub sub2=InsSubs.GetSub(PatPlans.GetInsSubNum(listPatPlans,PatPlans.GetOrdinal(PriSecMed.Secondary,listPatPlans,PlanList,SubList)),SubList);
if(sub1.PlanNum!=AptCur.InsPlan1 || sub2.PlanNum!=AptCur.InsPlan2) {
if(!MsgBox.Show(this,MsgBoxButtons.OKCancel,"The current insurance plans for this patient are different than the plans associated to this appointment. They will be updated to the patient's current insurance plans. Continue?")) {
return false;
}
//Update the ins plans associated to this appointment so that they're the most accurate at this time.
AptCur.InsPlan1=sub1.PlanNum;
AptCur.InsPlan2=sub2.PlanNum;
}
}
if(textTimeAskedToArrive.Text!=""){
try{
dateTimeAskedToArrive=AptCur.AptDateTime.Date+DateTime.Parse(textTimeAskedToArrive.Text).TimeOfDay;
}
catch{
MsgBox.Show(this,"Time Asked To Arrive invalid.");
return false;
}
}
DateTime dateTimeArrived=AptCur.AptDateTime.Date;
if(textTimeArrived.Text!=""){
try{
dateTimeArrived=AptCur.AptDateTime.Date+DateTime.Parse(textTimeArrived.Text).TimeOfDay;
}
catch{
MsgBox.Show(this,"Time Arrived invalid.");
return false;
}
}
DateTime dateTimeSeated=AptCur.AptDateTime.Date;
if(textTimeSeated.Text!=""){
try{
dateTimeSeated=AptCur.AptDateTime.Date+DateTime.Parse(textTimeSeated.Text).TimeOfDay;
}
catch{
MsgBox.Show(this,"Time Seated invalid.");
return false;
}
}
DateTime dateTimeDismissed=AptCur.AptDateTime.Date;
if(textTimeDismissed.Text!=""){
try{
dateTimeDismissed=AptCur.AptDateTime.Date+DateTime.Parse(textTimeDismissed.Text).TimeOfDay;
}
catch{
MsgBox.Show(this,"Time Arrived invalid.");
return false;
}
}
//This change was just slightly too risky to make to 6.9, so 7.0 only
if(AptCur.AptStatus!=ApptStatus.Complete//was not originally complete
&& AptCur.AptStatus!=ApptStatus.PtNote
&& AptCur.AptStatus!=ApptStatus.PtNoteCompleted
&& comboStatus.SelectedIndex==1 //making it complete
&& AptCur.AptDateTime.Date > DateTime.Today)//and future appt
{
MsgBox.Show(this,"Not allowed to set complete future appointments.");
return false;
}
string aptPattern=Appointments.ConvertPatternTo5(strBTime.ToString());
//Only run appt overlap check if editing an appt not in unscheduled list and in chart module and eCW program link not enabled.
if((IsInChartModule || IsInViewPatAppts) && !Programs.UsingEcwTightOrFullMode() && AptCur.AptStatus!=ApptStatus.UnschedList) {
//==Travis 04/06/2015: This call was added on 04/23/2014 and backported to 14.1. It is not storing the return value and does not look to be
// doing anything so it has been commented out.
//Appointments.RefreshPeriod(AptCur.AptDateTime,AptCur.AptDateTime);
List<Appointment> apptList=Appointments.GetForPeriodList(AptCur.AptDateTime,AptCur.AptDateTime);
if(DoesOverlap(aptPattern,apptList)) {
MsgBox.Show(this,"Appointment is too long and would overlap another appointment. Automatically shortened to fit.");
do {
aptPattern=aptPattern.Substring(0,aptPattern.Length-1);
if(aptPattern.Length==1) {
break;
}
} while(DoesOverlap(aptPattern,apptList));
}
}
if(AptCur.AptStatus == ApptStatus.Planned) {
;
}
else if(comboStatus.SelectedIndex==-1) {
AptCur.AptStatus=ApptStatus.Scheduled;
}
else if (AptCur.AptStatus == ApptStatus.PtNote | AptCur.AptStatus == ApptStatus.PtNoteCompleted){
AptCur.AptStatus = (ApptStatus)comboStatus.SelectedIndex + 7;
}
else {
AptCur.AptStatus=(ApptStatus)comboStatus.SelectedIndex+1;
}
//set procs complete was moved further down
//convert from current increment into 5 minute increment
//MessageBox.Show(strBTime.ToString());
AptCur.Pattern=aptPattern;
if(comboUnschedStatus.SelectedIndex==0){//none
AptCur.UnschedStatus=0;
}
else{
AptCur.UnschedStatus=DefC.Short[(int)DefCat.RecallUnschedStatus][comboUnschedStatus.SelectedIndex-1].DefNum;
}
if(comboConfirmed.SelectedIndex!=-1){
AptCur.Confirmed=DefC.Short[(int)DefCat.ApptConfirmed][comboConfirmed.SelectedIndex].DefNum;
}
AptCur.TimeLocked=checkTimeLocked.Checked;
AptCur.ColorOverride=butColor.BackColor;
AptCur.Note=textNote.Text;
if(comboClinic.SelectedIndex==0) {//none
AptCur.ClinicNum=0;
}
else {
AptCur.ClinicNum=Clinics.List[comboClinic.SelectedIndex-1].ClinicNum;
}
//there should always be a non-hidden primary provider for an appt.
if(comboProvNum.SelectedIndex==-1) {
AptCur.ProvNum=ProviderC.ListShort[0].ProvNum;
}
else {
AptCur.ProvNum=ProviderC.ListShort[comboProvNum.SelectedIndex].ProvNum;
}
if(comboProvHyg.SelectedIndex==0) {//none
AptCur.ProvHyg=0;
}
else {
AptCur.ProvHyg=ProviderC.ListShort[comboProvHyg.SelectedIndex-1].ProvNum;
}
AptCur.IsHygiene=checkIsHygiene.Checked;
if(comboAssistant.SelectedIndex==0) {//none
AptCur.Assistant=0;
}
else {
AptCur.Assistant=Employees.ListShort[comboAssistant.SelectedIndex-1].EmployeeNum;
}
AptCur.IsNewPatient=checkIsNewPatient.Checked;
AptCur.DateTimeAskedToArrive=dateTimeAskedToArrive;
AptCur.DateTimeArrived=dateTimeArrived;
AptCur.DateTimeSeated=dateTimeSeated;
AptCur.DateTimeDismissed=dateTimeDismissed;
//AptCur.InsPlan1 and InsPlan2 already handled
//The ApptProcDescript region is also in FormProcEdit.SaveAndClose() and FormDatabaseMaintenance.butApptProcs_Click() Make any changes there as well.
#region ApptProcDescript
AptCur.ProcDescript="";
AptCur.ProcsColored="";
for(int i=0;i<gridProc.SelectedIndices.Length;i++) {
string procDescOne="";
string procCode=DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["ProcCode"].ToString();
if(i>0){
AptCur.ProcDescript+=", ";
}
switch(DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["TreatArea"].ToString()) {
case "1"://TreatmentArea.Surf:
procDescOne+="#"+Tooth.GetToothLabel(DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["ToothNum"].ToString())+"-"
+DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["Surf"].ToString()+"-";//""#12-MOD-"
break;
case "2"://TreatmentArea.Tooth:
procDescOne+="#"+Tooth.GetToothLabel(DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["ToothNum"].ToString())+"-";//"#12-"
break;
default://area 3 or 0 (mouth)
break;
case "4"://TreatmentArea.Quad:
procDescOne+=DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["Surf"].ToString()+"-";//"UL-"
break;
case "5"://TreatmentArea.Sextant:
procDescOne+="S"+DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["Surf"].ToString()+"-";//"S2-"
break;
case "6"://TreatmentArea.Arch:
procDescOne+=DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["Surf"].ToString()+"-";//"U-"
break;
case "7"://TreatmentArea.ToothRange:
//strLine+=table.Rows[j][13].ToString()+" ";//don't show range
break;
}
procDescOne+=DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["AbbrDesc"].ToString();
AptCur.ProcDescript+=procDescOne;
//Color and previous date are determined by ProcApptColor object
ProcApptColor pac=ProcApptColors.GetMatch(procCode);
System.Drawing.Color pColor=System.Drawing.Color.Black;
string prevDateString="";
if(pac!=null){
pColor=pac.ColorText;
if(pac.ShowPreviousDate) {
prevDateString=Procedures.GetRecentProcDateString(AptCur.PatNum,AptCur.AptDateTime,pac.CodeRange);
if(prevDateString!="") {
prevDateString=" ("+prevDateString+")";
}
}
}
AptCur.ProcsColored+="<span color=\""+pColor.ToArgb().ToString()+"\">"+procDescOne+prevDateString+"</span>";
}
#endregion
bool isPlanned=AptCur.AptStatus==ApptStatus.Planned;
if(comboApptType.SelectedIndex==0) {//0 index = none.
AptCur.AppointmentTypeNum=0;
}
else {
AptCur.AppointmentTypeNum=_listAppointmentType[comboApptType.SelectedIndex-1].AppointmentTypeNum;
}
try {
Appointments.Update(AptCur,AptOld);
//Appointments.UpdateAttached(AptCur.AptNum,procNums,isPlanned);
}
catch(ApplicationException ex) {
MessageBox.Show(ex.Message);
return false;
}
//if appointment is marked complete and any procedures are not,
//then set the remaining procedures complete
if(AptCur.AptStatus==ApptStatus.Complete) {
bool allProcsComplete=true;
for(int i=0;i<gridProc.SelectedIndices.Length;i++){
if(DS.Tables["Procedure"].Rows[gridProc.SelectedIndices[i]]["ProcStatus"].ToString()!="2") {//Complete
allProcsComplete=false;
break;
}
}
if(!allProcsComplete) {
if(!Security.IsAuthorized(Permissions.ProcComplCreate,AptCur.AptDateTime)) {
return false;
}
List <PatPlan> PatPlanList=PatPlans.Refresh(AptCur.PatNum);
ProcedureL.SetCompleteInAppt(AptCur,PlanList,PatPlanList,pat.SiteNum,pat.Age,SubList);
SecurityLogs.MakeLogEntry(Permissions.AppointmentEdit,pat.PatNum,
AptCur.AptDateTime.ToShortDateString()+", "+AptCur.ProcDescript+", Procedures automatically set complete due to appt being set complete",AptCur.AptNum);
}
}
else{
Procedures.SetProvidersInAppointment(AptCur,Procedures.GetProcsForSingle(AptCur.AptNum,false));
}
//Do the appointment "break" automation for appointments that were just broken.
if(AptCur.AptStatus==ApptStatus.Broken && AptOld.AptStatus!=ApptStatus.Broken) {
SecurityLogs.MakeLogEntry(Permissions.AppointmentMove,pat.PatNum,AptCur.ProcDescript+", "+AptCur.AptDateTime.ToString()
+", Broken by changing the Status in the Edit Appointment window.",AptCur.AptNum);
//If there is an existing HL7 def enabled, send a SIU message if there is an outbound SIU message defined
if(HL7Defs.IsExistingHL7Enabled()) {
//S15 - Appt Cancellation event
MessageHL7 messageHL7=MessageConstructor.GenerateSIU(pat,fam.GetPatient(pat.Guarantor),EventTypeHL7.S15,AptCur);
//Will be null if there is no outbound SIU message defined, so do nothing
if(messageHL7!=null) {
HL7Msg hl7Msg=new HL7Msg();
hl7Msg.AptNum=AptCur.AptNum;
hl7Msg.HL7Status=HL7MessageStatus.OutPending;//it will be marked outSent by the HL7 service.
hl7Msg.MsgText=messageHL7.ToString();
hl7Msg.PatNum=pat.PatNum;
HL7Msgs.Insert(hl7Msg);
#if DEBUG
MessageBox.Show(this,messageHL7.ToString());
#endif
}
}
ProcedureCode procCodeBrokenApt=ProcedureCodes.GetProcCode("D9986");
if(procCodeBrokenApt.CodeNum!=0) {//ADA proc code D9986 exists
Procedure procedureCur=new Procedure();
procedureCur.PatNum=pat.PatNum;
procedureCur.ProvNum=AptCur.ProvNum;
procedureCur.ProcFee=0;
procedureCur.CodeNum=procCodeBrokenApt.CodeNum;
procedureCur.ProcDate=DateTime.Today;
procedureCur.DateEntryC=DateTime.Now;
procedureCur.ProcStatus=ProcStat.C;
procedureCur.ClinicNum=pat.ClinicNum;
procedureCur.Note=Lan.g(this,"Appt BROKEN for ")+AptCur.ProcDescript+" "+AptCur.AptDateTime.ToString();
Procedures.Insert(procedureCur);
//Now make a claimproc if the patient has insurance. We do this now for consistency because a claimproc could get created in the future.
List<InsSub> listInsSubs=InsSubs.RefreshForFam(Patients.GetFamily(pat.PatNum));
List<InsPlan> listInsPlans=InsPlans.RefreshForSubList(listInsSubs);
List<PatPlan> listPatPlans=PatPlans.Refresh(pat.PatNum);
List<Benefit> listBenefits=Benefits.Refresh(listPatPlans,listInsSubs);
List<ClaimProc> listClaimProcsForProc=ClaimProcs.RefreshForProc(procedureCur.ProcNum);
Procedures.ComputeEstimates(procedureCur,pat.PatNum,listClaimProcsForProc,false,listInsPlans,listPatPlans,listBenefits,pat.Age,listInsSubs);
FormProcEdit FormP=new FormProcEdit(procedureCur,pat,Patients.GetFamily(pat.PatNum));
FormP.IsNew=false;
FormP.ShowDialog();
if(PrefC.GetBool(PrefName.BrokenApptCommLogWithProcedure)) {
Commlog CommlogCur=new Commlog();
CommlogCur.PatNum=pat.PatNum;
CommlogCur.CommDateTime=DateTime.Now;
CommlogCur.CommType=Commlogs.GetTypeAuto(CommItemTypeAuto.APPT);
CommlogCur.Note=Lan.g(this,"Appt BROKEN for ")+AptCur.ProcDescript+" "+AptCur.AptDateTime.ToString();
CommlogCur.Mode_=CommItemMode.None;
CommlogCur.UserNum=Security.CurUser.UserNum;
FormCommItem FormCI=new FormCommItem(CommlogCur);
FormCI.IsNew=true;
FormCI.ShowDialog();
}
}
else {//No D9986 present
if(PrefC.GetBool(PrefName.BrokenApptCommLogNotAdjustment)) {
Commlog CommlogCur=new Commlog();
CommlogCur.PatNum=pat.PatNum;
CommlogCur.CommDateTime=DateTime.Now;
CommlogCur.CommType=Commlogs.GetTypeAuto(CommItemTypeAuto.APPT);
CommlogCur.Note=Lan.g(this,"Appt BROKEN for ")+AptCur.ProcDescript+" "+AptCur.AptDateTime.ToString();
CommlogCur.Mode_=CommItemMode.None;
CommlogCur.UserNum=Security.CurUser.UserNum;
FormCommItem FormCI=new FormCommItem(CommlogCur);
FormCI.IsNew=true;
FormCI.ShowDialog();
}
else {
Adjustment AdjustmentCur=new Adjustment();
AdjustmentCur.DateEntry=DateTime.Today;
AdjustmentCur.AdjDate=DateTime.Today;
AdjustmentCur.ProcDate=DateTime.Today;
AdjustmentCur.ProvNum=AptCur.ProvNum;
AdjustmentCur.PatNum=pat.PatNum;
AdjustmentCur.AdjType=PrefC.GetLong(PrefName.BrokenAppointmentAdjustmentType);
AdjustmentCur.ClinicNum=pat.ClinicNum;
FormAdjust FormA=new FormAdjust(pat,AdjustmentCur);
FormA.IsNew=true;
FormA.ShowDialog();
}
}
AutomationL.Trigger(AutomationTrigger.BreakAppointment,null,pat.PatNum);
}
return true;
}
private void gridProg_CellDoubleClick(object sender,ODGridClickEventArgs e) {
//Chartscrollval = gridProg.ScrollValue;
DataRow row = (DataRow)gridProg.Rows[e.Row].Tag;
if(row["ProcNum"].ToString() != "0") {
if(checkAudit.Checked) {
MsgBox.Show(this,"Not allowed to edit procedures when in audit mode.");
return;
}
Procedure proc = Procedures.GetOneProc(PIn.Long(row["ProcNum"].ToString()),true);
FormProcEdit FormP = new FormProcEdit(proc,PatCur,FamCur);
FormP.ShowDialog();
if(FormP.DialogResult != DialogResult.OK) {
return;
}
}
else if(row["CommlogNum"].ToString() != "0") {
Commlog comm = Commlogs.GetOne(PIn.Long(row["CommlogNum"].ToString()));
FormCommItem FormC = new FormCommItem(comm);
FormC.ShowDialog();
if(FormC.DialogResult != DialogResult.OK) {
return;
}
}
else if(row["RxNum"].ToString() != "0") {
RxPat rx = RxPats.GetRx(PIn.Long(row["RxNum"].ToString()));
FormRxEdit FormRxE = new FormRxEdit(PatCur,rx);
FormRxE.ShowDialog();
if(FormRxE.DialogResult != DialogResult.OK) {
return;
}
}
else if(row["LabCaseNum"].ToString() != "0") {
LabCase lab = LabCases.GetOne(PIn.Long(row["LabCaseNum"].ToString()));
FormLabCaseEdit FormL = new FormLabCaseEdit();
FormL.CaseCur = lab;
FormL.ShowDialog();
}
else if(row["TaskNum"].ToString() != "0") {
Task task = Tasks.GetOne(PIn.Long(row["TaskNum"].ToString()));
FormTaskEdit FormT = new FormTaskEdit(task,task.Copy());
FormT.Closing+=new CancelEventHandler(TaskGoToEvent);
FormT.Show();//non-modal
}
else if(row["AptNum"].ToString() != "0") {
//Appointment apt=Appointments.GetOneApt(
FormApptEdit FormA = new FormApptEdit(PIn.Long(row["AptNum"].ToString()));
//PinIsVisible=false
FormA.ShowDialog();
if(FormA.DialogResult != DialogResult.OK) {
return;
}
}
else if(row["EmailMessageNum"].ToString() != "0") {
EmailMessage msg = EmailMessages.GetOne(PIn.Long(row["EmailMessageNum"].ToString()));
FormEmailMessageEdit FormE = new FormEmailMessageEdit(msg);
FormE.ShowDialog();
if(FormE.DialogResult != DialogResult.OK) {
return;
}
}
ModuleSelected(PatCur.PatNum);
}
private void gridAccount_CellDoubleClick(object sender, OpenDental.UI.ODGridClickEventArgs e) {
if(ViewingInRecall) return;
Actscrollval=gridAccount.ScrollValue;
DataTable table=DataSetMain.Tables["account"];
if(table.Rows[e.Row]["ProcNum"].ToString()!="0"){
Procedure proc=Procedures.GetOneProc(PIn.Long(table.Rows[e.Row]["ProcNum"].ToString()),true);
Patient pat=FamCur.GetPatient(proc.PatNum);
FormProcEdit FormPE=new FormProcEdit(proc,pat,FamCur);
FormPE.ShowDialog();
}
else if(table.Rows[e.Row]["AdjNum"].ToString()!="0"){
Adjustment adj=Adjustments.GetOne(PIn.Long(table.Rows[e.Row]["AdjNum"].ToString()));
FormAdjust FormAdj=new FormAdjust(PatCur,adj);
FormAdj.ShowDialog();
}
else if(table.Rows[e.Row]["PayNum"].ToString()!="0"){
Payment PaymentCur=Payments.GetPayment(PIn.Long(table.Rows[e.Row]["PayNum"].ToString()));
/*
if(PaymentCur.PayType==0){//provider income transfer
FormProviderIncTrans FormPIT=new FormProviderIncTrans();
FormPIT.PatNum=PatCur.PatNum;
FormPIT.PaymentCur=PaymentCur;
FormPIT.IsNew=false;
FormPIT.ShowDialog();
}
else{*/
FormPayment FormPayment2=new FormPayment(PatCur,FamCur,PaymentCur);
FormPayment2.IsNew=false;
FormPayment2.ShowDialog();
//}
}
else if(table.Rows[e.Row]["ClaimNum"].ToString()!="0"){//claims and claimpayments
Claim claim=Claims.GetClaim(PIn.Long(table.Rows[e.Row]["ClaimNum"].ToString()));
Patient pat=FamCur.GetPatient(claim.PatNum);
FormClaimEdit FormClaimEdit2=new FormClaimEdit(claim,pat,FamCur);
FormClaimEdit2.IsNew=false;
FormClaimEdit2.ShowDialog();
}
else if(table.Rows[e.Row]["StatementNum"].ToString()!="0"){
Statement stmt=Statements.CreateObject(PIn.Long(table.Rows[e.Row]["StatementNum"].ToString()));
FormStatementOptions FormS=new FormStatementOptions();
FormS.StmtCur=stmt;
FormS.ShowDialog();
}
else if(table.Rows[e.Row]["PayPlanNum"].ToString()!="0"){
PayPlan payplan=PayPlans.GetOne(PIn.Long(table.Rows[e.Row]["PayPlanNum"].ToString()));
FormPayPlan2=new FormPayPlan(PatCur,payplan);
FormPayPlan2.ShowDialog();
if(FormPayPlan2.GotoPatNum!=0){
ModuleSelected(FormPayPlan2.GotoPatNum,false);
return;
}
}
bool isSelectingFamily=gridAcctPat.GetSelectedIndex()==this.DataSetMain.Tables["patient"].Rows.Count-1;
ModuleSelected(PatCur.PatNum,isSelectingFamily);
}
private void OnBreak_Click() {
if(!PrefC.GetBool(PrefName.BrokenApptCommLogNotAdjustment) && PrefC.GetLong(PrefName.BrokenAppointmentAdjustmentType)==0) {
MsgBox.Show(this,"Broken appointment adjustment type is not setup yet. Please go to Setup | Modules to fix this.");
return;
}
int thisI=GetIndex(ContrApptSingle.SelectedAptNum);
if(thisI==-1) {//selected appt is on a different day
MsgBox.Show(this,"Please select an appointment first.");
return;
}
Appointment apt = Appointments.GetOneApt(ContrApptSingle.SelectedAptNum);
Patient pat=Patients.GetPat(PIn.Long(ContrApptSingle3[thisI].DataRoww["PatNum"].ToString()));
if(!Security.IsAuthorized(Permissions.AppointmentEdit)) {
return;
}
if(apt.AptStatus == ApptStatus.PtNote || apt.AptStatus == ApptStatus.PtNoteCompleted) {
MsgBox.Show(this,"Only appointments may be broken, not notes.");
return;
}
if(PrefC.GetBool(PrefName.BrokenApptCommLogNotAdjustment)) {
if(!MsgBox.Show(this,true,"Break appointment?")) {
return;
}
}
Appointments.SetAptStatus(ContrApptSingle.SelectedAptNum,ApptStatus.Broken);
SecurityLogs.MakeLogEntry(Permissions.AppointmentMove,pat.PatNum,
ContrApptSingle3[thisI].DataRoww["procs"].ToString()+", "+ContrApptSingle3[thisI].DataRoww["AptDateTime"].ToString()+", Broken from the Appts module.",
PIn.Long(ContrApptSingle3[thisI].DataRoww["AptNum"].ToString()));
//If there is an existing HL7 def enabled, send a SIU message if there is an outbound SIU message defined
if(HL7Defs.IsExistingHL7Enabled()) {
//S15 - Appt Cancellation event
MessageHL7 messageHL7=MessageConstructor.GenerateSIU(pat,Patients.GetPat(pat.Guarantor),EventTypeHL7.S15,apt);
//Will be null if there is no outbound SIU message defined, so do nothing
if(messageHL7!=null) {
HL7Msg hl7Msg=new HL7Msg();
hl7Msg.AptNum=apt.AptNum;
hl7Msg.HL7Status=HL7MessageStatus.OutPending;//it will be marked outSent by the HL7 service.
hl7Msg.MsgText=messageHL7.ToString();
hl7Msg.PatNum=pat.PatNum;
HL7Msgs.Insert(hl7Msg);
#if DEBUG
MessageBox.Show(this,messageHL7.ToString());
#endif
}
}
long provNum=PIn.Long(ContrApptSingle3[thisI].DataRoww["ProvNum"].ToString());//remember before ModuleSelected
ProcedureCode procCodeBrokenApt=ProcedureCodes.GetProcCode("D9986");
if(procCodeBrokenApt.CodeNum!=0) {//ADA proc code D9986 exists
Procedure procedureCur=new Procedure();
procedureCur.PatNum=pat.PatNum;
procedureCur.ProvNum=provNum;
procedureCur.ProcFee=0;
procedureCur.CodeNum=procCodeBrokenApt.CodeNum;
procedureCur.ProcDate=DateTime.Today;
procedureCur.DateEntryC=DateTime.Now;
procedureCur.ProcStatus=ProcStat.C;
procedureCur.ClinicNum=pat.ClinicNum;
procedureCur.Note=Lan.g(this,"Appt BROKEN for ")+apt.ProcDescript+" "+apt.AptDateTime.ToString();
Procedures.Insert(procedureCur);
//Now make a claimproc if the patient has insurance. We do this now for consistency because a claimproc could get created in the future.
List<InsSub> listInsSubs=InsSubs.RefreshForFam(Patients.GetFamily(pat.PatNum));
List<InsPlan> listInsPlans=InsPlans.RefreshForSubList(listInsSubs);
List<PatPlan> listPatPlans=PatPlans.Refresh(pat.PatNum);
List<Benefit> listBenefits=Benefits.Refresh(listPatPlans,listInsSubs);
List<ClaimProc> listClaimProcsForProc=ClaimProcs.RefreshForProc(procedureCur.ProcNum);
Procedures.ComputeEstimates(procedureCur,pat.PatNum,listClaimProcsForProc,false,listInsPlans,listPatPlans,listBenefits,pat.Age,listInsSubs);
FormProcEdit formP=new FormProcEdit(procedureCur,pat,Patients.GetFamily(pat.PatNum));
formP.IsNew=false;
formP.ShowDialog();
if(PrefC.GetBool(PrefName.BrokenApptCommLogWithProcedure)) {
Commlog CommlogCur=new Commlog();
CommlogCur.PatNum=pat.PatNum;
CommlogCur.CommDateTime=DateTime.Now;
CommlogCur.CommType=Commlogs.GetTypeAuto(CommItemTypeAuto.APPT);
CommlogCur.Note=Lan.g(this,"Appt BROKEN for ")+apt.ProcDescript+" "+apt.AptDateTime.ToString();
CommlogCur.Mode_=CommItemMode.None;
CommlogCur.UserNum=Security.CurUser.UserNum;
FormCommItem FormCI=new FormCommItem(CommlogCur);
FormCI.IsNew=true;
FormCI.ShowDialog();
}
}
else {//No D9986 present
if(PrefC.GetBool(PrefName.BrokenApptCommLogNotAdjustment)) {
Commlog CommlogCur=new Commlog();
CommlogCur.PatNum=pat.PatNum;
CommlogCur.CommDateTime=DateTime.Now;
CommlogCur.CommType=Commlogs.GetTypeAuto(CommItemTypeAuto.APPT);
CommlogCur.Note=Lan.g(this,"Appt BROKEN for ")+apt.ProcDescript+" "+apt.AptDateTime.ToString();
CommlogCur.Mode_=CommItemMode.None;
CommlogCur.UserNum=Security.CurUser.UserNum;
FormCommItem FormCI=new FormCommItem(CommlogCur);
FormCI.IsNew=true;
FormCI.ShowDialog();
}
else {
Adjustment AdjustmentCur=new Adjustment();
AdjustmentCur.DateEntry=DateTime.Today;
AdjustmentCur.AdjDate=DateTime.Today;
AdjustmentCur.ProcDate=DateTime.Today;
AdjustmentCur.ProvNum=provNum;
AdjustmentCur.PatNum=pat.PatNum;
AdjustmentCur.AdjType=PrefC.GetLong(PrefName.BrokenAppointmentAdjustmentType);
AdjustmentCur.ClinicNum=pat.ClinicNum;
FormAdjust FormA=new FormAdjust(pat,AdjustmentCur);
FormA.IsNew=true;
FormA.ShowDialog();
}
}
ModuleSelected(pat.PatNum);//Must be ran after the "D9986" break logic due to the addition of a completed procedure.
SetInvalid();
AutomationL.Trigger(AutomationTrigger.BreakAppointment,null,pat.PatNum);
Recalls.SynchScheduledApptFull(apt.PatNum);
}