Changeset 1460 for Scheduling/trunk/m/BSDXAPI.m

Timestamp:

Jun 25, 2012, 8:54:59 PM (12 years ago)

Author:

Sam Habiel

Message:

refactored BSDX26; still working on BSDX08

File:

• Scheduling/trunk/m/BSDXAPI.m (modified) (13 diffs)

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/22/12 4:25pm
+BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/25/12 6:13pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL  
@@ -44 +44 @@
         ; for Baby foxes hallucinations.
         ; S RESULT=$$MAKE1^BSDXAPI(23435,33,(3 or 4),3091220.221159,30,"I see Baby foxes")
+        N BSDR
         S BSDR("PAT")=DFN       ;DFN
         S BSDR("CLN")=CLIN      ;Hosp Loc IEN
@@ -108 +109 @@
         ;
         ; add appt to file 44. This adds it to the FIRST subfile (Appointment)
-        N DIC,DA,Y,X,DD,DO,DLAYGO
+        N DIC,DA,Y,X,DD,DO,DLAYGO,DINUM
         I '$D(^SC(BSDR("CLN"),"S",0)) S ^SC(BSDR("CLN"),"S",0)="^44.001DA^^"
         I '$D(^SC(BSDR("CLN"),"S",BSDR("ADT"),0)) D  I Y<1 Q 1_U_"Error adding date to file 44: Clinic="_BSDR("CLN")_" Date="_BSDR("ADT")
@@ -202 +203 @@
         ; for appt at Dec 20, 2009 @ 10:11:59 
         ; S RESULT=$$CHECKIN1^BSDXAPI(23435,33,3091220.221159)
+        N BSDR
         S BSDR("PAT")=DFN          ;DFN
         S BSDR("CLN")=CLIN         ;Hosp Loc IEN
@@ -238 +240 @@
         ;
         ; remember before status
-        NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL
+        NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL,SDMODE
         S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN
         S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL
@@ -264 +266 @@
         ; because foxes come out during bad weather.
         ; S RESULT=$$CANCEL1^BSDXAPI(23435,33,"PC",3091220.221159,1,"Afraid of foxes")
+        N BSDR
         S BSDR("PAT")=DFN
         S BSDR("CLN")=CLIN
@@ -292 +295 @@
         ;   = 1^message:  error and reason
         ;
+        ; Okay to Cancel? Call Cancel Check.
         N BSDXCANCK S BSDXCANCK=$$CANCELCK(.BSDR)
         I BSDXCANCK Q BSDXCANCK
@@ -297 +301 @@
         ; BSDX 1.5 3110125
         ; UJO/SMH - Add ability to remove check-in if the patient is checked in
-        ; I $$CI(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) Q 1_U_"Patient already checked in; cannot cancel until checkin deleted: Patient="_BSDR("PAT")_" Clinic="_BSDR("CLN")_" Appt="_BSDR("ADT")
-        ; Remove check-in if the patient is checked in.
-        N BSDXRESULT S BSDXRESULT=0 ; Result; should be zero if success; -1 + message if failure
-        NEW IEN S IEN=$$SCIEN(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"))
-        I $$CI(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"),IEN) SET BSDXRESULT=$$RMCI(BSDR("PAT"),BSDR("CLN"),BSDR("ADT"))
-        I BSDXRESULT Q BSDXRESULT
-        ; NB: Failure point 1: we fail here nothing has happened yet
+        ; VEN/SMH on 3120625/v1.7 - PIMS doesn't care if patient is already checked in
+        ; Lets you remove appointment anyways! Not like RPMS.
+        ; Plus... deleting checkin affects S node on 44, which is DELETED anyways!
         ;
         ; remember before status
-        NEW SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL
+        NEW SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL,SDMODE
         S DFN=BSDR("PAT"),SDT=BSDR("ADT"),SDCL=BSDR("CLN"),SDMODE=2,SDDA=IEN
         S SDCPHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL
         D BEFORE^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCPHDL)
-        ; NB: Here only globals are set. Nothing else.
+        ; NB: Here only ^TMP globals are set with before values.
         ;
         ; get user who made appt and date appt made from ^SC
@@ -318 +318 @@
         S DATE=$P($G(^SC(SDCL,"S",SDT,1,IEN,0)),U,7)
         ;
-        ; update file 2 info
-        NEW DIE,DA,DR
-        S DIE="^DPT("_DFN_",""S"",",DA(1)=DFN,DA=SDT
-        S DR="3///"_BSDR("TYP")_";14///`"_BSDR("USR")_";15///"_BSDR("CDT")_";16///`"_BSDR("CR")_";19///`"_USER_";20///"_DATE
-        S:$G(BSDR("NOT"))]"" DR=DR_";17///"_$E(BSDR("NOT"),1,160)
-        D ^DIE
-        ; Failure point 2: If we fail here, it means that the check-in was removed; 
-        ; but the appointment wasn't cancelled.
-        ; To roll back, we should restore the check-in. However, I would rather not
-        ; do that. This code will only fail if there's something wrong in the DB.
-        ; (deleted field for example). If I try to restore the check-in, I just
-        ; may excercerbate the problem.
-        ;
-        ; delete data in ^SC
+        ; update file 2 info --old code
+        ;NEW DIE,DA,DR
+        ;S DIE="^DPT("_DFN_",""S"",",DA(1)=DFN,DA=SDT
+        ;S DR="3///"_BSDR("TYP")_";14///`"_BSDR("USR")_";15///"_BSDR("CDT")_";16///`"_BSDR("CR")_";19///`"_USER_";20///"_DATE
+        ;S:$G(BSDR("NOT"))]"" DR=DR_";17///"_$E(BSDR("NOT"),1,160)
+        ;D ^DIE
+        N BSDXIENS S BSDXIENS=SDT_","_DFN_","
+        N BSDXFDA
+        S BSDXFDA(2.98,BSDXIENS,3)=BSDR("TYP")
+        S BSDXFDA(2.98,BSDXIENS,14)=BSDR("USR")
+        S BSDXFDA(2.98,BSDXIENS,15)=BSDR("CDT")
+        S BSDXFDA(2.98,BSDXIENS,16)=BSDR("CR")
+        S BSDXFDA(2.98,BSDXIENS,19)=USER
+        S BSDXFDA(2.98,BSDXIENS,20)=DATE
+        S:$G(BSDR("NOT"))]"" BSDXFDA(2.98,BSDXIENS,17)=$E(BSDR("NOT"),1,160)
+        N BSDXERR
+        D FILE^DIE("","BSDXFDA","BSDXERR")
+        I $D(BSDXERR) Q 1_U_"Cannot cancel appointment in File 2"
+        ; Failure point 1: If we fail here, nothing has happened yet.
+        ; No rollback needed in ^BSDXAPPT
+        ;
+        ; delete data in ^SC -- this does not (typically) fail. Fileman won't stop
         NEW DIK,DA
         S DIK="^SC("_BSDR("CLN")_",""S"","_BSDR("ADT")_",1,"
         S DA(2)=BSDR("CLN"),DA(1)=BSDR("ADT"),DA=IEN
         D ^DIK
-        ; Failure point 3: If we fail here, we need to restore the cancel date, 
-        ; and possibly, the check-in.
-        ;
-        ; call event driver
+        ; Failure point 2: not expected to happen here
+        ;
+        ; call event driver -- point of no return
         D CANCEL^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDMODE,SDCPHDL)
         Q 0
@@ -378 +385 @@
         ;
         ; Move my variables into the ones used by SDAPIs (just a convenience)
-        NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL
+        NEW SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL,SDMODE
         S DFN=PAT,SDT=DATE,SDCL=CLINIC,SDMODE=2,SDDA=$$SCIEN(DFN,SDCL,SDT)
         ;
@@ -389 +396 @@
         ; remove check-in using filer.
         N BSDXIENS S BSDXIENS=SDDA_","_DATE_","_CLINIC_","
+        N BSDXFDA
         S BSDXFDA(44.003,BSDXIENS,309)="@" ; CHECKED-IN
         S BSDXFDA(44.003,BSDXIENS,302)="@" ; CHECK IN USER
@@ -397 +405 @@
         ;
         ; set after status
-        S SDDA=$$SCIEN(DFN,SDCL,SDT)
+        ; S SDDA=$$SCIEN(DFN,SDCL,SDT) ;smh -why is this here? SDDA won't change.
         S SDCIHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_SDT_U_SDCL
         D AFTER^SDAMEVT(.SDATA,DFN,SDT,SDCL,SDDA,SDCIHDL)
@@ -437 +445 @@
         ; 0 if okay
         ; -1 if failure
+        ;
+        ; ERROR SIMULATION
+        I $G(BSDXSIMERR1) QUIT "-1~Simulated Error"
+        ;
         N SCIEN S SCIEN=$$SCIEN(PAT,CLINIC,DATE) ; ien of appt in ^SC
         I SCIEN<1 QUIT 0    ; Appt cancelled; cancelled appts rm'ed from file 44
         N BSDXIENS S BSDXIENS=SCIEN_","_DATE_","_CLINIC_","
-        S BSDXFDA(44.003,BSDXIENS,3)=$E(NOTE,1,150)
+        N BSDXFDA S BSDXFDA(44.003,BSDXIENS,3)=$E(NOTE,1,150)
         N BSDXERR
         D FILE^DIE("","BSDXFDA","BSDXERR")