source: Scheduling/trunk/m/BSDXUT.m@ 1461

Last change on this file since 1461 was 1461, checked in by Sam Habiel, 12 years ago

Refactoring cont.
Many changes in BSDX08. Extensive changes in BSDX31. Creation of BSDXAPI1 as continuation of BSDXAPI.
BSDXUT1 now has UTs for BSDX31. Transactions now gone from BSDX08 and BSDX31.
BSDX08 needs more tests at failure points. BSDX31 still needs analysis for transaction failure and
code for rollback points, plus tests for that.
File size: 17.8 KB
Line 
1BSDXUT ; VEN/SMH - Unit Tests for Scheduling GUI ; 6/26/12 11:06am
2 ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
3 ; Licensed under LGPL
4 ;
5 ; Change Log:
6 ; June 21 2012: Initial Version
7 ;
8UT07 ; Unit Tests for BSDX07 - Assumes you have Patients with DFNs 1,2,3,4,5
9 ; HLs/Resources are created as part of the UT
10 ; Set-up - Create Clinics
11 N RESNAM S RESNAM="UTCLINIC"
12 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN
13 D
14 . N $ET S $ET="D ^%ZTER B"
15 . S HLRESIENS=$$UTCR^BSDXUT(RESNAM)
16 . I HLRESIENS<0 S $EC=",U1," ; not supposed to happen - hard crash if so
17 ;
18 N HLIEN,RESIEN
19 S HLIEN=$P(HLRESIENS,U)
20 S RESIEN=$P(HLRESIENS,U,2)
21 ;
22 ; Get start and end times
23 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
24 N APPTTIME S APPTTIME=$P(TIMES,U)
25 N ENDTIME S ENDTIME=$P(TIMES,U,2)
26 ;
27 N ZZZ,DFN
28 ; Test for normality:
29 S DFN=3
30 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
31 ; Does Appt exist?
32 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
33 I 'APPID W "Error Making Appt-1" QUIT
34 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-2"
35 I '$D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-3"
36 I '$$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error Making Appt-4"
37 ;
38 ; Do it again for a different patient
39 S DFN=2
40 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
41 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
42 I 'APPID W "Error Making Appt-5" QUIT
43 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-6"
44 I '$D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-7"
45 I '$$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error Making Appt-8"
46 ;
47 ; Again for a different patient (4)
48 S DFN=4
49 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
50 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
51 I 'APPID W "Error Making Appt-9" QUIT
52 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-10"
53 I '$D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-11"
54 I '$$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error Making Appt-12"
55 ;
56 ; Delete appointment set for Patient 4 (made above)
57 N BSDX,DFN
58 S DFN=4
59 S BSDX("PAT")=DFN
60 S BSDX("CLN")=HLIEN
61 S BSDX("ADT")=APPTTIME
62 D ROLLBACK^BSDX07(APPID,.BSDX)
63 I +$G(^BSDXAPPT(APPID,0)) W "Error in deleting appointment-1",!
64 I $D(^DPT(DFN,"S",APPTTIME)) W "Error in deleting appointment-2",!
65 I $$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error in deleting appointment-3",!
66 ;
67 ; Again for a different patient (5)
68 S DFN=5
69 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
70 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
71 I 'APPID W "Error Making Appt-13" QUIT
72 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-14"
73 I '$D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-15"
74 I '$$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error Making Appt-16"
75 ; Now cancel that appointment
76 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Sam's Cancel Note")
77 ; Now make it again
78 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
79 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
80 I 'APPID W "Error Making Appt-17" QUIT
81 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-18"
82 I '$D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-19"
83 I '$$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error Making Appt-20"
84 ;
85 ; Delete appointment set for Patient 1 (not made)... needs to not crash
86 D
87 . N $ET S $ET="D ^%ZTER S $EC="""" W ""Failure to del non-existent appt"",!"
88 . N BSDX
89 . S BSDX("PAT")=1
90 . S BSDX("CLN")=HLIEN
91 . S BSDX("ADT")=APPTTIME
92 . D ROLLBACK^BSDX07(APPID,.BSDX)
93 ;
94 ; Test for bad start date
95 D APPADD^BSDX07(.ZZZ,2100123,3100123.3,2,RESNAM,30,"Sam's Note",1)
96 I +$P(^BSDXTMP($J,1),U,2)'=-2 W "Error in -2",!
97 ; Test for bad end date
98 D APPADD^BSDX07(.ZZZ,3100123,2100123.3,2,RESNAM,30,"Sam's Note",1)
99 I +$P(^BSDXTMP($J,1),U,2)'=-3 W "Error in -3",!
100 ; Test for end date without time - obsolete
101 ; Test for mumps error
102 N BSDXDIE S BSDXDIE=1
103 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,1,RESNAM,30,"Sam's Note",1)
104 I +$P(^BSDXTMP($J,1),U,2)'=-100 W "Error in -100: M Error",!
105 K BSDXDIE
106 ; Test for TRESTART -- retired in v 1.7
107 ; Test for non-numeric patient
108 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,"CAT,DOG",RESNAM,30,"Sam's Note",1)
109 I +$P(^BSDXTMP($J,1),U,2)'=-5 W "Error in -5",!
110 ; Test for a non-existent patient
111 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,8989898989,RESNAM,30,"Sam's Note",1)
112 I +$P(^BSDXTMP($J,1),U,2)'=-6 W "Error in -6",!
113 ; Test for a non-existent resource name
114 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,3,"lkajsflkjsadf",30,"Sam's Note",1)
115 I +$P(^BSDXTMP($J,1),U,2)'=-7 W "Error in -7",!
116 ; Test for corrupted resource
117 ; Can't test for -8 since it requires DB corruption
118 ; Test for inability to add appointment to BSDX Appointment (-9)
119 ; Also requires something wrong in the DB
120 ; Test for inability to add appointment to 2,44
121 ; Test by creating a duplicate appointment
122 ; Get start and end times
123 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
124 N APPTTIME S APPTTIME=$P(TIMES,U)
125 N ENDTIME S ENDTIME=$P(TIMES,U,2)
126 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,3,RESNAM,30,"Sam's Note",1)
127 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,3,RESNAM,30,"Sam's Note",1)
128 I +$P(^BSDXTMP($J,1),U,2)'=-10 W "Error in -10",!
129 ;
130 ; Test that ROLLBACK^BSDX07 occurs properly in various places
131 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
132 N APPTTIME S APPTTIME=$P(TIMES,U)
133 N ENDTIME S ENDTIME=$P(TIMES,U,2)
134 S DFN=4
135 N BSDXSIMERR1 S BSDXSIMERR1=1
136 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
137 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
138 I +APPID W "Error in deleting appointment-4",!
139 I $D(^DPT(DFN,"S",APPTTIME)) W "Error in deleting appointment-5",!
140 I $$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error in deleting appointment-6",!
141 ;
142 K BSDXSIMERR1
143 N BSDXSIMERR2 S BSDXSIMERR2=1
144 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
145 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
146 I +APPID W "Error in deleting appointment-7",!
147 I $D(^DPT(DFN,"S",APPTTIME)) W "Error in deleting appointment-8",!
148 I $$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error in deleting appointment-9",!
149 ;
150 K BSDXSIMERR2
151 N BSDXSIMERR4 S BSDXSIMERR4=1
152 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
153 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
154 I +APPID W "Error in deleting appointment-16",!
155 I $D(^DPT(DFN,"S",APPTTIME)) W "Error in deleting appointment-17",!
156 I $$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error in deleting appointment-18",!
157 ;
158 K BSDXSIMERR4
159 N BSDXSIMERR5 S BSDXSIMERR5=1
160 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
161 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
162 I +APPID W "Error in deleting appointment-19",!
163 I $D(^DPT(DFN,"S",APPTTIME)) W "Error in deleting appointment-20",!
164 I $$SCIEN^BSDXAPI(DFN,HLIEN,APPTTIME) W "Error in deleting appointment-21",!
165 ;
166 ; Okay now we do UTs for an unlinked resource (not linked to PIMS)
167 N RESNAM S RESNAM="UTCLINICUL" ; Unlinked Clinic
168 N RESIEN
169 D
170 . N $ET S $ET="D ^%ZTER B"
171 . S RESIEN=$$UTCRRES^BSDXUT(RESNAM)
172 . I RESIEN<0 S $EC=",U1," ; not supposed to happen - hard crash if so
173 ;
174 ; Get start and end times
175 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
176 N APPTTIME S APPTTIME=$P(TIMES,U)
177 N ENDTIME S ENDTIME=$P(TIMES,U,2)
178 ;
179 N ZZZ,DFN
180 ; Test for normality:
181 S DFN=3
182 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
183 ; Does Appt exist?
184 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
185 I 'APPID W "Error Making Appt-101" QUIT
186 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-102"
187 I $D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-103"
188 ;
189 ; Again for a different patient (4)
190 S DFN=4
191 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
192 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
193 I 'APPID W "Error Making Appt-104" QUIT
194 I +^BSDXAPPT(APPID,0)'=APPTTIME W "Error Making Appt-105"
195 I $D(^DPT(DFN,"S",APPTTIME)) W "Error Making Appt-106"
196 ;
197 ; Delete appointment set for Patient 4 (made above)
198 N BSDX,DFN
199 S DFN=4
200 D ROLLBACK^BSDX07(APPID)
201 I +$G(^BSDXAPPT(APPID,0)) W "Error in deleting appointment-1",!
202 ;
203 ; Duplicate appointments... This is SUPPOSED to fail for now (v1.7)
204 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
205 N APPTTIME S APPTTIME=$P(TIMES,U)
206 N ENDTIME S ENDTIME=$P(TIMES,U,2)
207 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,3,RESNAM,30,"Sam's Note",1)
208 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,3,RESNAM,30,"Sam's Note",1)
209 I +$P(^BSDXTMP($J,1),U,2)'=-10 W "Error in -10 in Unlinked Section",!
210 ;
211 ; Test that ROLLBACK^BSDX07 occurs properly in various places
212 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
213 N APPTTIME S APPTTIME=$P(TIMES,U)
214 N ENDTIME S ENDTIME=$P(TIMES,U,2)
215 S DFN=4
216 N BSDXSIMERR1 S BSDXSIMERR1=1
217 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
218 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
219 I +APPID W "Error in deleting appointment-101",!
220 ;
221 ; These are never triggered, so we should still have an appointment
222 K BSDXSIMERR1
223 N BSDXSIMERR2 S BSDXSIMERR2=1
224 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
225 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
226 I '+APPID W "Error in deleting appointment-102",!
227 ;
228 K BSDXSIMERR2
229 N BSDXSIMERR4 S BSDXSIMERR4=1
230 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
231 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
232 I '+APPID W "Error in deleting appointment-103",!
233 ;
234 K BSDXSIMERR4
235 N BSDXSIMERR5 S BSDXSIMERR5=1
236 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
237 N APPID S APPID=$O(^BSDXAPPT("B",APPTTIME,""))
238 I '+APPID W "Error in deleting appointment-104",!
239 QUIT
240 ;
241UT08 ; Unit Tests for BSDX08; Must have patients 1,2,3,4,5 defined in system
242 N RESNAM S RESNAM="UTCLINIC"
243 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN
244 D
245 . 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 so
248 ;
249 N HLIEN,RESIEN
250 S HLIEN=$P(HLRESIENS,U)
251 S RESIEN=$P(HLRESIENS,U,2)
252 ;
253 ; Get start and end times
254 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
255 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 works
259 N ZZZ,DFN
260 S DFN=3
261 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 automatically
270 ; Make appt
271 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
272 ; Lock the node in another job
273 S APPID=+$P(^BSDXTMP($J,1),U)
274 ; W "Lock ^BSDXAPPT("_APPID_") in another session. You have 10 seconds." H 10
275 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Sam's Cancel Note")
276 ;
277 ; Test 3: Check for -100
278 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
279 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=1
284 D APPDEL^BSDX08(.ZZZ,APPID,"PC",1,"Reasons")
285 I $P(^BSDXTMP($J,1),"~")'=-100 W "Error in -100",!
286 K BSDXDIE1
287 ;
288 ; Test 3.5: Check for -100 with an appointment to rollback.
289 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
290 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=1
295 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 BSDXDIE2
299 ; Test 4: Restartable transaction -- retired in V 1.7
300 ; 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 Tests
306 ;
307 ; Test 6: for Cancelling walkin and checked-in appointments
308 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
309 N APPTTIME S APPTTIME=$P(TIMES,U)
310 N ENDTIME S ENDTIME=$P(TIMES,U,2)
311 S DFN=4
312 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt
313 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-in
316 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; Delete appt
317 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!
318 ;
319 ; Test 7: for cancelling walkin and checked-in appointments
320 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
321 N APPTTIME S APPTTIME=$P(TIMES,U)
322 N ENDTIME S ENDTIME=$P(TIMES,U,2)
323 S DFN=4
324 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt
325 S APPID=+$P(^BSDXTMP($J,1),U)
326 I APPID=0 W "Error in test 6",!
327 D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin
328 S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,APPTTIME) ; remove checkin
329 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; delete appt
330 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!
331 ;
332 ; Unlinked Clinic Tests
333 N RESNAM S RESNAM="UTCLINICUL" ; Unlinked Clinic
334 N RESIEN
335 D
336 . 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 so
339 ;
340 ; Get start and end times
341 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
342 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 works
346 N ZZZ,DFN
347 S DFN=3
348 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 appointments
354 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
355 N APPTTIME S APPTTIME=$P(TIMES,U)
356 N ENDTIME S ENDTIME=$P(TIMES,U,2)
357 S DFN=4
358 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt
359 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-in
362 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; Delete appt
363 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!
364 ;
365 ; Test 7: for cancelling walkin and checked-in appointments
366 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
367 N APPTTIME S APPTTIME=$P(TIMES,U)
368 N ENDTIME S ENDTIME=$P(TIMES,U,2)
369 S DFN=5
370 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,10,"Sam's Note",1) ; Add appt
371 S APPID=+$P(^BSDXTMP($J,1),U)
372 I APPID=0 W "Error in test 6",!
373 D CHECKIN^BSDX25(.ZZZ,APPID,$$NOW^XLFDT) ; Checkin
374 S BSDXRESULT=$$RMCI^BSDXAPI(DFN,HLIEN,APPTTIME) ; remove checkin
375 D APPDEL^BSDX08(.ZZZ,APPID,"PC",10,"Cancel Note") ; delete appt
376 I $P(^BSDXTMP($J,1),$C(30))'="" W "Error in test 6",!
377 QUIT
378 ;
379UTCR(RESNAM) ; $$ - Create Unit Test Clinic and Resource Pair ; Private
380 ; Input: Resource Name By Value
381 ; Output: -1^Error or HLIEN^RESIEN for Success (file 44 IEN^file 9002018.1 IEN)
382 ; DO NOT USE IN A PRODUCTION ENVIRONTMENT. INTENDED FOR TESTING ONLY
383 N HLIEN S HLIEN=$$UTCR44(RESNAM)
384 I +HLIEN=-1 QUIT HLIEN
385 ;
386 N RESIEN S RESIEN=$$UTCRRES(RESNAM,HLIEN)
387 I +RESIEN=-1 QUIT RESIEN
388 E QUIT HLIEN_U_RESIEN
389 ;
390UTCR44(HLNAME) ; $$ - Create Unit Test Clinic in File 44; Private ; TESTING ONLY CODE
391 ; Output: -1^Error or IEN for Success
392 ; Input: Hosp Location Name by Value
393 ; DO NOT USE IN A PRODUCTION ENVIRONTMENT. INTENDED FOR TESTING ONLY
394 ;
395 I $D(^SC("B",HLNAME)) Q $O(^(HLNAME,""))
396 ;
397 N SAM
398 S SAM(44,"?+1,",.01)=HLNAME ; Name
399 S SAM(44,"?+1,",2)="C" ; Type = Clinic
400 S SAM(44,"?+1,",2.1)=1 ; Type Extension (not used)
401 S SAM(44,"?+1,",3.5)=$O(^DG(40.8,0)) ; Division (not yet used)
402 S SAM(44,"?+1,",8)=295 ; Stop Code Number (not used)
403 S SAM(44,"?+1,",9)="M" ; Service (not used)
404 S SAM(44,"?+1,",1912)=15 ; Length of Appt (not used)
405 S SAM(44,"?+1,",1917)=4 ; Display increments per hour (not used)
406 S SAM(44,"?+1,",1918)=8 ; Overbooks/day max (not used)
407 S SAM(44,"?+1,",2000.5)=0 ; Require Action Profiles: Yes (not used)
408 S SAM(44,"?+1,",2001)=999 ; Allowable consecutive no-shows (not used)
409 S SAM(44,"?+1,",2002)=999 ; Max # days for Future Booking (not used)
410 S SAM(44,"?+1,",2005)=365 ; Max # days for Auto Rebook (not used)
411 S SAM(44,"?+1,",2502)="N" ; Non-Count Clinic (not used)
412 S SAM(44,"?+1,",2504)="Y" ; Clinic meets at this Facility? (not used)
413 S SAM(44,"?+1,",2507)=9 ; Appointment Type (not used)
414 ;
415 N BSDXERR,BSDXIEN
416 D UPDATE^DIE("",$NA(SAM),$NA(BSDXIEN),$NA(BSDXERR))
417 Q $S($D(BSDXERR):-1_U_BSDXERR("DIERR",1,"TEXT",1),1:BSDXIEN(1))
418 ;
419UTCRRES(NAME,HLIEN) ; $$ - Create Unit Test Resource in 9002018.1 (BSDX RESOURCE); Private
420 ; Input: Hospital Location IEN
421 ; Output: -1^Error or IEN for Success
422 ; DO NOT USE IN A PRODUCTION ENVIRONTMENT. INTENDED FOR TESTING ONLY
423 I $D(^BSDXRES("B",NAME)) Q $O(^(NAME,""))
424 S HLIEN=$G(HLIEN) ; If we don't send one in
425 N RES ; garbage variable
426 D RSRC^BSDX16(.RES,"|"_NAME_"||"_HLIEN)
427 N RTN S RTN=@$Q(^BSDXTMP($J,0)) ; return array next value
428 Q $S(RTN=0:-1_U_RTN,1:+RTN) ; 0 means an error has occurred; 1 means IEN returned
429 ;
430TIMES() ; $$ - Create a next available appointment time^ending time; Private
431 ; Output: appttime^endtime
432 N NOW S NOW=$$NOW^XLFDT() ; Now time
433 N LAST S LAST=$O(^BSDXAPPT("B"," "),-1) ; highest time in file
434 N TIME2USE S TIME2USE=$S(NOW>LAST:NOW,1:LAST) ; Which time to use?
435 S TIME2USE=$E(TIME2USE,1,12) ; Strip away seconds
436 N APPTIME S APPTIME=$$FMADD^XLFDT(TIME2USE,0,0,15,0) ; Add 15 min
437 N ENDTIME S ENDTIME=$$FMADD^XLFDT(APPTIME,0,0,15,0) ; Add 15 more min
438 Q APPTIME_U_ENDTIME ; quit with apptime^endtime
439 ;
440TIMEHL(HLIEN) ; $$ - Create a next available appointment time^ending time by HL; Private
441 ; Input: HLIEN
442 ; Output: Next available appointment time for the HLIEN
443 N LAST S LAST=$O(^SC(HLIEN,"S",""),-1)
444 Q $$FMADD^XLFDT(LAST,1,0,15,0) ; Add 1 day and 15 minutes
Note: See TracBrowser for help on using the repository browser.