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

Timestamp:

Jun 20, 2012, 7:42:19 PM (13 years ago)

Author:

Sam Habiel

Message:

done with BSDX07

File:

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

Scheduling/trunk/m/BSDXAPI.m

@@ -1 @@
-BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/19/12 5:42pm
+BSDXAPI ; IHS/ANMC/LJF & VW/SMH - SCHEDULING APIs ; 6/20/12 12:40pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL  
         ;
         ;Orignal routine is BSDAPI by IHS/LJF, HMW, and MAW
-        ;local mods (many) by WV/SMH
+        ; mods (many) by WV/SMH
         ;Move to BSDX namespace as BSDXAPI from BSDAPI by WV/SMH
         ; Change History:
@@ -87 +87 @@
         . S BSDXFDA(2.98,BSDXIENS,"15")=""
         . S BSDXFDA(2.98,BSDXIENS,"16")=""
+        . S BSDXFDA(2.98,BSDXIENS,"17")="@" ; v 1.7; cancellation remarks were left over
         . S BSDXFDA(2.98,BSDXIENS,"19")=""
         . S BSDXFDA(2.98,BSDXIENS,"20")=$$NOW^XLFDT
         . D FILE^DIE("","BSDXFDA","BSDXMSG")
         Q:$D(BSDXMSG) 1_U_"Fileman edit to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT")_" Error="_BSDXMSG("DIERR",1,"TEXT",1)
+        ;
+        Q:$G(BSDXSIMERR2) 1_U_$NA(BSDXSIMERR2) ; Unit Test line
         ;
         E  D  ; File new appointment/edit existing appointment in file 2
@@ -102 +105 @@
         Q:$D(BSDXMSG) 1_U_"FileMan add to DPT error: Patient="_BSDR("PAT")_" Appt="_BSDR("ADT")_" Error="_BSDXMSG("DIERR",1,"TEXT",1)
         ;
+        Q:$G(BSDXSIMERR3) 1_U_$NA(BSDXSIMERR3) ; Unit Test line
+        ;
         ; add appt to file 44. This adds it to the FIRST subfile (Appointment)
         N DIC,DA,Y,X,DD,DO,DLAYGO
@@ -109 +114 @@
         . S DIC("P")="44.001DA",DIC(0)="L",DLAYGO=44.001
         . S Y=1 I '$D(@(DIC_X_")")) D FILE^DICN
+        ;
+        Q:$G(BSDXSIMERR4) 1_U_$NA(BSDXSIMERR4) ; Unit Test line
         ;
         ; add appt for file 44, second subfile (Appointment/Patient)
@@ -130 +137 @@
         ;
         I $D(BSDXERR) Q 1_U_"Error adding appt to file 44: Clinic="_BSDR("CLN")_" Date="_BSDR("ADT")_" Patient="_BSDR("PAT")_" Error: "_BSDXERR("DIERR",1,"TEXT",1)
+        ;
+        ;Q:$G(BSDXSIMERR5) 1_U_$NA(BSDXSIMERR5) ; Unit Test line
+        S:$G(BSDXSIMERR5) X=1/0
         ;
         ; call event driver
@@ -176 +186 @@
         NEW DIK,DA
         S DIK="^DPT("_BSDR("PAT")_",""S"","
-        S DA(1)=BSDR("PAT"),DA=BSDX("ADT")
+        S DA(1)=BSDR("PAT"),DA=BSDR("ADT")
         D ^DIK
         ;