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

Timestamp:

Jul 9, 2012, 7:43:46 PM (12 years ago)

Author:

Sam Habiel

Message:

Added/fixed the following:

• Unit Tests for running everything through PIMS
• Checks for end of message for error handling ((31))
• All routines previously using transactions use locks now

File:

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

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/6/12 10:24am
+BSDXAPI ; IHS/LJF,HMW,MAW & VEN/SMH - SCHEDULING APIs ; 7/9/12 4:00pm
         ;;1.7T1;BSDX;;Jul 06, 2012;Build 18
         ; Licensed under LGPL  
@@ -155 +155 @@
         ; If previous data exists, which caused an error, it's destroyed.
         ; NB: ^DIK stops for nobody
+        ; TODO: If Patient Appointment previously existed as cancelled, it's removed.
+        ; How can I tell if one previously existed when data is in an intermediate
+        ; State? Can I restore it if the other file failed? Restoration can cause
+        ; another error. If I restore the global, there will be cross-references
+        ; missing (ASDCN specifically).
+        ;
         ; Input: Same array as $$MAKE
         ; Output: Always 0
@@ -422 +428 @@
         Q $S(X=3:"SCHED",X=4:"WALK-IN",1:"??")
         ;
-UPDATENT(PAT,CLINIC,DATE,NOTE)  ; PEP; Update Note in ^SC for patient's appointment @ DATE
-        ; PAT = DFN
-        ; CLINIC = SC IEN
-        ; DATE = FM Date/Time of Appointment
-        ;
-        ; Returns:
-        ; 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_","
-        N BSDXFDA S BSDXFDA(44.003,BSDXIENS,3)=$E(NOTE,1,150)
-        N BSDXERR
-        D FILE^DIE("","BSDXFDA","BSDXERR")
-        I $D(BSDXERR) QUIT "-1~Can't file for Pat "_PAT_" in Clinic "_CLINIC_" at "_DATE_". Fileman reported an error: "_BSDXERR("DIERR",1,"TEXT",1)
-        QUIT 0