Changeset 1466 for Scheduling/trunk/m/BSDXUT2.m

Timestamp:

Jul 3, 2012, 7:45:46 PM (12 years ago)

Author:

Sam Habiel

Message:

Refactoring BSDX25 continued...

File:

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

Scheduling/trunk/m/BSDXUT2.m

@@ -1 @@
-BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/29/12 12:23pm
+BSDXUT2 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/3/12 12:03pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ;
@@ -49 +49 @@
         IF +^BSDXTMP($J,1)'=-2 WRITE "ERROR IN Etest 2",!
         ; Tests for 3 to 5 difficult to produce
-        ; Error tests follow: Mumps error test; Transaction restartability
+        ; Error tests follow: Mumps error test;
+        ; Error in RMCI
         N BSDXDIE S BSDXDIE=1
         D RMCI^BSDX25(.ZZZ,APPTID)
         IF +^BSDXTMP($J,1)'=-100 WRITE "ERROR IN Etest 3",!
         K BSDXDIE
+        ; M Error in CHECKIN
+        N BSDXDIE S BSDXDIE=1
+        D CHECKIN^BSDX25(.ZZZ,APPTID,$$NOW^XLFDT())
+        IF +^BSDXTMP($J,1)'=-100 WRITE "ERROR IN Etest 8",!
+        K BSDXDIE
+        ; M Error in $$CHECKIN^BSDXAPI
+        N BSDXDIE2 S BSDXDIE2=1
+        D CHECKIN^BSDX25(.ZZZ,APPTID,$$NOW^XLFDT())
+        IF +^BSDXTMP($J,1)'=-100 WRITE "ERROR IN Etest 9",!
+        K BSDXDIE2
+        ;
+        ; Get start and end times
+        N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
+        N APPTTIME S APPTTIME=$P(TIMES,U)
+        N ENDTIME S ENDTIME=$P(TIMES,U,2)
+        ;
+        N ZZZ,DFN
+        S DFN=5
+        N ZZZ
+        D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
+        N APPTID S APPTID=+^BSDXTMP($J,1)
+        N HL S HL=$$GET1^DIQ(9002018.4,APPTID,".07:.04","I")
+        ;
+        ; Simulated Error in $$BSDXCHK^BSDX25
+        N BSDXSIMERR1 S BSDXSIMERR1=1
+        D CHECKIN^BSDX25(.ZZZ,APPTID,$$NOW^XLFDT())
+        IF +^BSDXTMP($J,1)'=-3 WRITE "ERROR in Etest 10",!
+        IF $P(^BSDXAPPT(APPTID,0),U,3) WRITE "ERROR IN CHECKIN 111",!
+        IF +$G(^SC(HL,"S",APPTTIME,1,1,"C")) WRITE "ERROR IN CHECKIN 112",!
+        K BSDXSIMERR1
+        ;
+        ; Simulated Error in $$CHECKICK^BSDXAPI
+        N BSDXSIMERR2 S BSDXSIMERR2=1
+        D CHECKIN^BSDX25(.ZZZ,APPTID,$$NOW^XLFDT())
+        IF +^BSDXTMP($J,1)'=-10 WRITE "ERROR in Etest 11",!
+        IF $P(^BSDXAPPT(APPTID,0),U,3) WRITE "ERROR IN CHECKIN 113",!
+        IF +$G(^SC(HL,"S",APPTTIME,1,1,"C")) WRITE "ERROR IN CHECKIN 114",!
+        K BSDXSIMERR2
+        ;
+        ; Simulated Error in $$CHECKIN^BSDXAPI
+        N BSDXSIMERR3 S BSDXSIMERR3=1
+        D CHECKIN^BSDX25(.ZZZ,APPTID,$$NOW^XLFDT())
+        IF +^BSDXTMP($J,1)'=-10 WRITE "ERROR in Etest 11",!
+        IF $P(^BSDXAPPT(APPTID,0),U,3) WRITE "ERROR IN CHECKIN 115",!
+        IF +$G(^SC(HL,"S",APPTTIME,1,1,"C")) WRITE "ERROR IN CHECKIN 116",!
+        K BSDXSIMERR3
         ;
         ; Unlinked Clinic Tests