Changeset 1455 for Scheduling/trunk/m/BSDXUT.m

Timestamp:

Jun 22, 2012, 7:11:05 PM (12 years ago)

Author:

Sam Habiel

Message:

Refactored BSDX08 and BSDX29 routines; plus new UT routine BSDXUT1

File:

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

Scheduling/trunk/m/BSDXUT.m

@@ -1 @@
-BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/21/12 4:42pm
+BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/22/12 4:27pm
         ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
         ; Licensed under LGPL
@@ -262 +262 @@
         S APPID=+$P(^BSDXTMP($J,1),U)
         D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Sam's Cancel Note")
-        I $P(^BSDXAPPT(APPID,0),U,12)'>0 W "Error in Cancellation-1"
-        I $O(^SC(HLIEN,"S",APPTTIME,1,0))]"" W "Error in Cancellation-2"
-        I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="PC" W "Error in Cancellation-3"
-        I ^DPT(DFN,"S",APPTTIME,"R")'="Sam's Cancel Note" W "Error in Cancellation-4"
+        I $P(^BSDXAPPT(APPID,0),U,12)'>0 W "Error in Cancellation-1",!
+        I $O(^SC(HLIEN,"S",APPTTIME,1,0))]"" W "Error in Cancellation-2",!
+        I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="PC" W "Error in Cancellation-3",!
+        I ^DPT(DFN,"S",APPTTIME,"R")'="Sam's Cancel Note" W "Error in Cancellation-4",!
         ;
         ; Test 2: Check for -1 -- TODO: Fix later... Can't do right now automatically
@@ -312 +312 @@
         I APPID=0 W "Error in test 6",!
         D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin
-        S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,BSDXSTART) ; remove checkin
+        S BSDXRESULT=$$RMCI^BSDXAPI(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",!
@@ -358 +358 @@
         I APPID=0 W "Error in test 6",!
         D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin
-        S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,BSDXSTART) ; remove checkin
+        S BSDXRESULT=$$RMCI^BSDXAPI(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",!
@@ -415 +415 @@
  ;
 TIMES() ; $$ - Create a next available appointment time^ending time; Private
+ ; Output: appttime^endtime
  N NOW S NOW=$$NOW^XLFDT() ; Now time
  N LAST S LAST=$O(^BSDXAPPT("B"," "),-1) ; highest time in file
@@ -422 +423 @@
  N ENDTIME S ENDTIME=$$FMADD^XLFDT(APPTIME,0,0,15,0) ; Add 15 more min
  Q APPTIME_U_ENDTIME ; quit with apptime^endtime
+ ;
+TIMEHL(HLIEN) ; $$ - Create a next available appointment time^ending time by HL; Private
+ ; Input: HLIEN
+ ; Output: Next available appointment time for the HLIEN
+ N LAST S LAST=$O(^SC(HLIEN,"S",""),-1)
+ Q $$FMADD^XLFDT(LAST,1,0,15,0) ; Add 1 day and 15 minutes