Changeset 1463 for Scheduling/trunk/m/BSDXUT.m
- Timestamp:
- Jun 28, 2012, 6:54:30 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Scheduling/trunk/m/BSDXUT.m
r1462 r1463 1 BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/2 7/12 4:18pm1 BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/28/12 10:14am 2 2 ;;1.7T1;BSDX;;Aug 31, 2011;Build 18 3 3 ; Licensed under LGPL … … 239 239 QUIT 240 240 ; 241 UT08 ; Unit Tests for BSDX08; Must have patients 1,2,3,4,5 defined in system242 N RESNAM S RESNAM="UTCLINIC"243 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN244 D245 . N $ET S $ET="D ^%ZTER B"246 . S HLRESIENS=$$UTCR^BSDXUT(RESNAM)247 . I HLRESIENS<0 S $EC=",U1," ; not supposed to happen - hard crash if so248 ;249 N HLIEN,RESIEN250 S HLIEN=$P(HLRESIENS,U)251 S RESIEN=$P(HLRESIENS,U,2)252 ;253 ; Get start and end times254 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time255 N APPTTIME S APPTTIME=$P(TIMES,U)256 N ENDTIME S ENDTIME=$P(TIMES,U,2)257 ;258 ; Test 1: Make normal appointment and cancel it. See if every thing works259 N ZZZ,DFN260 S DFN=3261 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)262 S APPID=+$P(^BSDXTMP($J,1),U)263 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Sam's Cancel Note")264 I $P(^BSDXAPPT(APPID,0),U,12)'>0 W "Error in Cancellation-1",!265 I $O(^SC(HLIEN,"S",APPTTIME,1,0))]"" W "Error in Cancellation-2",!266 I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="PC" W "Error in Cancellation-3",!267 I ^DPT(DFN,"S",APPTTIME,"R")'="Sam's Cancel Note" W "Error in Cancellation-4",!268 ;269 ; Test 2: Check for -1 -- TODO: Fix later... Can't do right now automatically270 ; Make appt271 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)272 ; Lock the node in another job273 S APPID=+$P(^BSDXTMP($J,1),U)274 ; W "Lock ^BSDXAPPT("_APPID_") in another session. You have 10 seconds." H 10275 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Sam's Cancel Note")276 ;277 ; Test 3: Check for -100278 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time279 N APPTTIME S APPTTIME=$P(TIMES,U)280 N ENDTIME S ENDTIME=$P(TIMES,U,2)281 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)282 S APPID=+$P(^BSDXTMP($J,1),U)283 N BSDXDIE1 S BSDXDIE1=1284 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Reasons")285 I $P(^BSDXTMP($J,1),"~")'=-100 W "Error in -100",!286 K BSDXDIE1287 ;288 ; Test 3.5: Check for -100 with an appointment to rollback.289 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time290 N APPTTIME S APPTTIME=$P(TIMES,U)291 N ENDTIME S ENDTIME=$P(TIMES,U,2)292 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)293 S APPID=+$P(^BSDXTMP($J,1),U)294 N BSDXDIE2 S BSDXDIE2=1295 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Reasons")296 I $P(^BSDXTMP($J,1),"~")'=-100 W "Error in -100-1",!297 I $P(^BSDXAPPT(APPID,0),U,12)'="" W "Error in -100-2",!298 K BSDXDIE2299 ; Test 4: Restartable transaction -- retired in V 1.7300 ; Test 5: for invalid Appointment ID (-2 and -3)301 D APPDEL^BSDX08(.ZZZ,0,"PC",1,"Reasons")302 I $P(^BSDXTMP($J,1),"~")'=-2 W "Error in -2",!303 D APPDEL^BSDX08(.ZZZ,999999,"PC",1,"Reasons")304 I $P(^BSDXTMP($J,1),"~")'=-3 W "Error in -3",!305 ; More unit Tests306 ;307 ; Test 6: for Cancelling walkin and checked-in appointments308 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time309 N APPTTIME S APPTTIME=$P(TIMES,U)310 N ENDTIME S ENDTIME=$P(TIMES,U,2)311 S DFN=4312 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt313 S APPID=+$P(^BSDXTMP($J,1),U)314 I APPID=0 W "Error in test 6",!315 D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; check-in316 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; Delete appt317 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!318 ;319 ; Test 7: for cancelling walkin and checked-in appointments320 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time321 N APPTTIME S APPTTIME=$P(TIMES,U)322 N ENDTIME S ENDTIME=$P(TIMES,U,2)323 S DFN=4324 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt325 S APPID=+$P(^BSDXTMP($J,1),U)326 I APPID=0 W "Error in test 6",!327 D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin328 S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,APPTTIME) ; remove checkin329 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; delete appt330 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!331 ;332 ; Unlinked Clinic Tests333 N RESNAM S RESNAM="UTCLINICUL" ; Unlinked Clinic334 N RESIEN335 D336 . N $ET S $ET="D ^%ZTER B"337 . S RESIEN=$$UTCRRES^BSDXUT(RESNAM)338 . I RESIEN<0 S $EC=",U1," ; not supposed to happen - hard crash if so339 ;340 ; Get start and end times341 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time342 N APPTTIME S APPTTIME=$P(TIMES,U)343 N ENDTIME S ENDTIME=$P(TIMES,U,2)344 ;345 ; Test 1: Make normal appointment and cancel it. See if every thing works346 N ZZZ,DFN347 S DFN=3348 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)349 S APPID=+$P(^BSDXTMP($J,1),U)350 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Sam's Cancel Note")351 I $P(^BSDXAPPT(APPID,0),U,12)'>0 W "Error in Cancellation-1"352 ;353 ; Test 6: for Cancelling walkin and checked-in appointments354 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time355 N APPTTIME S APPTTIME=$P(TIMES,U)356 N ENDTIME S ENDTIME=$P(TIMES,U,2)357 S DFN=4358 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt359 S APPID=+$P(^BSDXTMP($J,1),U)360 I APPID=0 W "Error in test 6",!361 D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; check-in362 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; Delete appt363 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!364 ;365 ; Test 7: for cancelling walkin and checked-in appointments366 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time367 N APPTTIME S APPTTIME=$P(TIMES,U)368 N ENDTIME S ENDTIME=$P(TIMES,U,2)369 S DFN=5370 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt371 S APPID=+$P(^BSDXTMP($J,1),U)372 I APPID=0 W "Error in test 6",!373 D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin374 S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,APPTTIME) ; remove checkin375 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; delete appt376 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!377 QUIT378 ;379 241 UTCR(RESNAM) ; $$ - Create Unit Test Clinic and Resource Pair ; Private 380 242 ; Input: Resource Name By Value
Note:
See TracChangeset
for help on using the changeset viewer.