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

Timestamp:

Jun 18, 2012, 8:08:50 PM (12 years ago)

Author:

Sam Habiel

Message:

more changes

File:

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

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 4/28/11 10:30am
-        ;;1.6T2;BSDX;;May 16, 2011;Build 7
+BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/18/12 5:31pm
+        ;;1.6;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL  
         ;
@@ -32 +32 @@
         ; More user friendly message if patient already has appointment in $$MAKE:
         ;  Spits out pt name and user friendly date.
-        ;  
+    ; 2012-06-18 (v 1.7)
+        ; Removing transacions. Means that code SHOULD NOT fail. Took all checks
+    ;  out for making an appointment to MAKECK. We call this first to make sure
+    ; that the appointment is okay to make before committing to make it.
         ;
 MAKE1(DFN,CLIN,TYP,DATE,LEN,INFO)       ; Simplified PEP w/ parameters for $$MAKE - making appointment
@@ -65 +68 @@
         ;   = 1^message:  error and reason
         ;
-        I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT"))
-        I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN"))
-        I ($G(BSDR("TYP"))<3)!($G(BSDR("TYP"))>4) Q 1_U_"Appt Type error: "_$G(BSDR("TYP"))
-        I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12)  ;remove seconds
-        I $G(BSDR("ADT"))'?7N.1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT"))
-        ;
-        ;I ($G(BSDR("LEN"))<5)!($G(BSDR("LEN"))>240) Q 1_U_"Appt Length error: "_$G(BSDR("LEN")) ; v 1.42 - no check on length is done anymore. see top comments for details.
-        I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Made Appt Error: "_$G(BSDR("USR"))
-        ;I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)'["C" Q 1_U_"Patient "_BSDR("PAT")_" already has appt at "_BSDR("ADT") ; v.1.5 more user friendly err msg
-        ;
-        ; Following block to give an error message to user if there is already an appointment for patient. More verbose than others.
-        N BSDXERR ; place to store error message
-        I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)'["C" DO  QUIT BSDXERR  ; If there's an appt in the "S" node of file 2 and it's not cancelled
-        . S BSDXERR=1_U_"Patient "_$P(^DPT(BSDR("PAT"),0),U)_" ("_BSDR("PAT")_") "
-        . S BSDXERR=BSDXERR_"already has appt at "_$$FMTE^XLFDT(BSDR("ADT"))
-        . N BSDXSCIEN S BSDXSCIEN=$P(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0),U)  ; Clinic IEN in ^SC (0 piece of 0 node of "S" multiple in file 2)
-        . N BSDXSCNAM S BSDXSCNAM=$P(^SC(BSDXSCIEN,0),U) ; PIMS Name of Clinic
-        . S BSDXERR=BSDXERR_$C(13,10)_"PIMS clinic: "_BSDXSCNAM ; tell the user of the PIMS clinic
-        . I $D(^BSDXRES("ALOC",BSDXSCIEN)) DO  ; if the Clinic is linked to a BSDX Resource (we find out using the index ALOC in the BSDX RESOURCE file)
-        . . N BSDXRESIEN S BSDXRESIEN=$O(^BSDXRES("ALOC",BSDXSCIEN,""))
-        . . QUIT:'BSDXRESIEN  ; Safeguard if index is corrupt
-        . . N BSDXRESNAM S BSDXRESNAM=$P(^BSDXRES(BSDXRESIEN,0),U)
-        . . S BSDXERR=BSDXERR_$C(13,10)_"Scheduling GUI clinic: "_BSDXRESNAM ; tell the user of the BSDX clinic
+        N BSDXMKCK S BSDXMKCK=$$MAKECK(.BSDR) ; Check if we can make appointment
+        I BSDXMKCK Q BSDXMKCK ; If we can't, quit with the reason why.
+    ; Otherwise, we continue
         ;
         NEW DIC,DA,Y,X,DD,DO,DLAYGO
@@ -106 +89 @@
         . D FILE^DIE("","BSDXFDA","BSDXMSG")
         . N BSDXTEMP S BSDXTEMP=$G(BSDXMSG)
-        E  D  I $G(BSDXERR(1)) Q 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT")  
+        E  D  
         . N BSDXFDA,BSDXIENS,BSDXMSG
         . S BSDXIENS="?+2,"_BSDR("PAT")_","
@@ -115 +98 @@
         . S BSDXFDA(2.98,BSDXIENS,"20")=$$NOW^XLFDT
         . D UPDATE^DIE("","BSDXFDA","BSDXIENS","BSDXERR(1)")
-        ; add appt to file 44
+        I $G(BSDXERR(1)) Q 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT")
+    ; add appt to file 44
         K DIC,DA,X,Y,DLAYGO,DD,DO
         I '$D(^SC(BSDR("CLN"),"S",0)) S ^SC(BSDR("CLN"),"S",0)="^44.001DA^^"
@@ -122 +106 @@
         . S DIC("P")="44.001DA",DIC(0)="L",DLAYGO=44.001
         . S Y=1 I '$D(@(DIC_X_")")) D FILE^DICN
+    
         ;
         ; Sep 28 2010: Changed old style API to new style API. Keep for reference //smh
@@ -150 +135 @@
         Q 0
         ;
+MAKECK(BSDR) ; $$ - Is it okay to make an appointment? ; PEP
+        I '$D(^DPT(+$G(BSDR("PAT")),0)) Q 1_U_"Patient not on file: "_$G(BSDR("PAT"))
+        I '$D(^SC(+$G(BSDR("CLN")),0)) Q 1_U_"Clinic not on file: "_$G(BSDR("CLN"))
+        I ($G(BSDR("TYP"))<3)!($G(BSDR("TYP"))>4) Q 1_U_"Appt Type error: "_$G(BSDR("TYP"))
+        I $G(BSDR("ADT")) S BSDR("ADT")=+$E(BSDR("ADT"),1,12)  ;remove seconds
+        I $G(BSDR("ADT"))'?7N.1".".4N Q 1_U_"Appt Date/Time error: "_$G(BSDR("ADT"))
+        ;
+    ; Appt Length check removed in v 1.5
+    ;
+        I '$D(^VA(200,+$G(BSDR("USR")),0)) Q 1_U_"User Who Made Appt Error: "_$G(BSDR("USR"))
+        ; More verbose error message in v1.5
+        ; Following block to give an error message to user if there is already an appointment for patient. More verbose than others.
+        N BSDXERR ; place to store error message
+        I $D(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0)),$P(^(0),U,2)'["C" DO  QUIT BSDXERR  ; If there's an appt in the "S" node of file 2 and it's not cancelled
+        . S BSDXERR=1_U_"Patient "_$P(^DPT(BSDR("PAT"),0),U)_" ("_BSDR("PAT")_") "
+        . S BSDXERR=BSDXERR_"already has appt at "_$$FMTE^XLFDT(BSDR("ADT"))
+        . N BSDXSCIEN S BSDXSCIEN=$P(^DPT(BSDR("PAT"),"S",BSDR("ADT"),0),U)  ; Clinic IEN in ^SC (0 piece of 0 node of "S" multiple in file 2)
+        . N BSDXSCNAM S BSDXSCNAM=$P(^SC(BSDXSCIEN,0),U) ; PIMS Name of Clinic
+        . S BSDXERR=BSDXERR_$C(13,10)_"PIMS clinic: "_BSDXSCNAM ; tell the user of the PIMS clinic
+        . I $D(^BSDXRES("ALOC",BSDXSCIEN)) DO  ; if the Clinic is linked to a BSDX Resource (we find out using the index ALOC in the BSDX RESOURCE file)
+        . . N BSDXRESIEN S BSDXRESIEN=$O(^BSDXRES("ALOC",BSDXSCIEN,""))
+        . . QUIT:'BSDXRESIEN  ; Safeguard if index is corrupt
+        . . N BSDXRESNAM S BSDXRESNAM=$P(^BSDXRES(BSDXRESIEN,0),U)
+        . . S BSDXERR=BSDXERR_$C(13,10)_"Scheduling GUI clinic: "_BSDXRESNAM ; tell the user of the BSDX clinic
+        Q 0
+    ;
+UNMAKE(BSDR) ; Reverse Make - Private $$
+    ; Only used in Emergiencies where Fileman data filing fails.
+    ; If previous data exists, which caused an error, it's destroyed.
+    N BSDXFDA,BSDXIENS
+        S BSDXIENS=BSDR("ADT")_","_BSDR("PAT")_","
+        S BSDXFDA(2.98,BSDXIENS,".01")="@"
+    ;
+    I '$D(^SC(BSDR("CLN"),"S",BSDR("ADT"),1)) QUIT 0 ; No stuff in HL file
+    N X S X=0 F  S X=$O(^SC(BSDR("CLN"),"S",BSDR("ADT"),1,X)) Q:'X  Q:+^(X,0)=BSDR("PAT")
+        ;
+    I 'X QUIT 0 ; Patient doesn't have appointment
+    ;
+    S BSDXIENS=X_","_BSDR("ADT")_","_BSDR("CLN")_","
+        S BSDXFDA(44.003,BSDXIENS,.01)="@"
+    N BSDXMSG
+    D FILE^DIE("","BSDXFDA","BSDXMSG")
+    I $D(BSDXMSG) S $EC=",U1," ; If we get an error here, we are REALLY out of control
+    QUIT 0
 CHECKIN1(DFN,CLIN,APDATE)       ; Simplified PEP w/ parameters for $$CHECKIN - Checking in
         ; Call like this for DFN 23435 checking in now at Hospital Location 33
@@ -325 +354 @@
         ; remove check-in using filer.
         N BSDXIENS S BSDXIENS=SDDA_","_DATE_","_CLINIC_","
-        S BSDXFDA(44.003,BSDXIENS,309)="@"      ; CHECKED-IN
-        S BSDXFDA(44.003,BSDXIENS,302)="@"      ; CHECK IN USER
-        S BSDXFDA(44.003,BSDXIENS,305)="@"      ; CHECK IN ENTERED
+        S BSDXFDA(44.003,BSDXIENS,309)="@" ; CHECKED-IN
+        S BSDXFDA(44.003,BSDXIENS,302)="@" ; CHECK IN USER
+        S BSDXFDA(44.003,BSDXIENS,305)="@" ; CHECK IN ENTERED
         N BSDXERR
         D FILE^DIE("","BSDXFDA","BSDXERR")
@@ -359 +388 @@
         Q $S(X:1,1:0)
         ;
-UPDATENOTE(PAT,CLINIC,DATE,NOTE)        ; PEP; Update Note in ^SC for patient's appointment @ DATE
+UPDATENT(PAT,CLINIC,DATE,NOTE)  ; PEP; Update Note in ^SC for patient's appointment @ DATE
         ; PAT = DFN
         ; CLINIC = SC IEN