Changeset 1035

Timestamp:

Dec 8, 2010, 1:43:55 AM (14 years ago)

Author:

Sam Habiel

Message:

Fix for filing Other Info field in 2250MAKE1 (didn't pass correctly to 2250MAKE)

File:

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

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 11/18/10 5:34pm
+BSDXAPI ; IHS/ANMC/LJF - SCHEDULING APIs ; 12/6/10 6:01am
         ;;1.42;BSDX;;Sep 29, 2010;Build 7
         ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
@@ -11 +11 @@
     ; 2010-12-5
     ; Added an entry point to update the patient note in file 44.
+    ; 2010-12-6
+    ; MAKE1 incorrectly put info field in BSDR("INFO") rather than BSDR("OI")
         ;
 MAKE1(DFN,CLIN,TYP,DATE,LEN,INFO)       ; Simplified PEP w/ parameters for $$MAKE - making appointment
@@ -22 +24 @@
         S BSDR("ADT")=DATE      ;Appointment date in FM format
         S BSDR("LEN")=LEN       ;Appt len upto 240 (min)
-        S BSDR("INFO")=INFO     ;Reason for appt - up to 150 char
+        S BSDR("OI")=INFO     ;Reason for appt - up to 150 char
         S BSDR("USR")=DUZ       ;Person who made appt - current user
         Q $$MAKE(.BSDR)
@@ -287 +289 @@
     ; -1 if failure
     N SCIEN S SCIEN=$$SCIEN(PAT,CLINIC,DATE) ; ien of appt in ^SC
-    I SCIEN<1 QUIT "-1~No Appt can be found in file 44 for Patient "_PAT_" on "_DATE_" in clinic "_CLINIC
+    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)