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

Timestamp:

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

Author:

Sam Habiel

Message:

Refactoring BSDX25 continued...

File:

• Scheduling/trunk/m/BSDXUT1.m (modified) (5 diffs)

Scheduling/trunk/m/BSDXUT1.m

@@ -1 @@
-BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/29/12 12:32pm
+BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 7/3/12 12:28pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ;
@@ -94 +94 @@
         I APPID=0 W "Error in test 6",!
         D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin
-        S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,APPTTIME) ; remove checkin
+        S BSDXRESULT=$$RMCI^BSDXAPI1(DFN,HLIEN,APPTTIME) ; remove checkin
         D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; delete appt
         I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!
@@ -140 +140 @@
         I APPID=0 W "Error in test 6",!
         D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin
-        S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,APPTTIME) ; remove checkin
+        S BSDXRESULT=$$RMCI^BSDXAPI1(DFN,HLIEN,APPTTIME) ; remove checkin
         D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; delete appt
         I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!
@@ -191 +191 @@
         I +^BSDXTMP($J,1)=0 W "Error... task not created",! QUIT
         ;
-        W "Waiting for 5 seconds for it to finish",! HANG 5
+        W "Waiting for 5 seconds for taskman to finish",! HANG 5
         N DFN,APPTTIME S (DFN,APPTTIME)=""
         F  S DFN=$O(BSDXAPPT(DFN)) Q:'DFN  D
@@ -224 +224 @@
         I +^BSDXTMP($J,1)=0 W "Error... task not created",! QUIT
         ;
-        W "Waiting for 5 seconds for it to finish",! HANG 5
+        W "Waiting for 5 seconds for taskman to finish",! HANG 5
         W:^BSDXTMP("BSDXCOPY",+^BSDXTMP($J,1))'["  0 records" "Copy failed",!
         QUIT