Changeset 1077 for Scheduling/trunk/m

Timestamp:

Jan 24, 2011, 9:52:50 AM (14 years ago)

Author:

Sam Habiel

Message:

Updates to M routines to support deletion of check-in

File:

• Scheduling/trunk/m/BSDX08.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX08.m

@@ -73 +73 @@
         I $P(^BSDXTMP($J,1),"~")'=-3 W "Error in -3",!
         ;
-        ; Test 6: for Cancelling walkin and checked-in appointments.
+        ; Test 6: for Cancelling walkin and checked-in appointments (should fail).
         S BSDXSTART=$E($$NOW^XLFDT,1,12),BSDXEND=BSDXSTART+.0001
         D APPADD^BSDX07(.ZZZ,BSDXSTART,BSDXEND,4,"Dr Office",10,"Sam's Note",1)
@@ -81 +81 @@
         B
         D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note")
+        B
+        ;
+        ; Test 7: for cancelling walkin and checked-in appointments (this should pass)
+        S BSDXSTART=$E($$NOW^XLFDT,1,12)+.0001,BSDXEND=BSDXSTART+.0001
+        D APPADD^BSDX07(.ZZZ,BSDXSTART,BSDXEND,4,"Dr Office",10,"Sam's Note",1)
+        S APPID=+$P(^BSDXTMP($J,1),U)
+        B
+        D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT)
+        S BSDXRES=$O(^BSDXRES("B","Dr Office",""))
+        S BSDXCLN=$P(^BSDXRES(BSDXRES,0),U,4)
+        B
+        S BSDXRESULT=$$RMCI^BSDXAPI(4,BSDXCLN,BSDXSTART)
+        B
+        D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note")
+        ;
+        
         QUIT
            ; Lock the node in another job for testing.