source: Scheduling/trunk/m/BSDXUT1.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: 7.7 KB
Line 
1BSDXUT1 ; VEN/SMH - Unit Tests for Scheduling GUI - cont. ; 6/26/12 4:36pm
2 ;;1.7T1;BSDX;;Aug 31, 2011;Build 18
3 ;
4 ;
5UT29 ; Unit Test for BSDX29
6 ; HLs/Resources are created as part of the UT
7 ; Patients 1,2,3,4,5 must exist
8 ;
9 I '$$TM^%ZTLOAD() W "Cannot test. Taskman is not running!" QUIT
10 ;
11 ; Set-up - Create Clinics
12 N RESNAM S RESNAM="UTCLINIC"
13 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN
14 D
15 . N $ET S $ET="D ^%ZTER B"
16 . S HLRESIENS=$$UTCR^BSDXUT(RESNAM)
17 . I HLRESIENS<0 S $EC=",U1," ; not supposed to happen - hard crash if so
18 ;
19 N HLIEN,RESIEN
20 S HLIEN=$P(HLRESIENS,U)
21 S RESIEN=$P(HLRESIENS,U,2)
22 ;
23 ; Turn off SDAM APPT PROTOCOL BSDX Entries
24 N BSDXNOEV
25 S BSDXNOEV=1 ;Don't execute BSDX ADD APPOINTMENT protocol
26 ;
27 ; Create a bunch of appointments in PIMS (25 actually)
28 N DFN
29 N BSDXAPPT,BSDXDATE
30 N BSDXI
31 F BSDXI=1:1:5 D
32 . N APPTTIME S APPTTIME=$$TIMEHL^BSDXUT(HLIEN) ; appt time
33 . F DFN=1,2,3,4,5 D
34 . . N % S %=$$MAKE1^BSDXAPI(DFN,HLIEN,3,APPTTIME,15,"Sam Test Appt"_DFN)
35 . . I % W "Error in $$MAKE1^BSDXAPI for TIME "_APPTTIME_" for DFN "_DFN,!,%,!
36 . . E S BSDXAPPT(DFN,APPTTIME)="",BSDXDATE(APPTTIME)=""
37 ;
38 ; Check that appointments are not in ^BSDXAPPT
39 N DFN,APPTTIME S (DFN,APPTTIME)=""
40 F S DFN=$O(BSDXAPPT(DFN)) Q:'DFN D
41 . F S APPTTIME=$O(BSDXAPPT(DFN,APPTTIME)) Q:'APPTTIME D
42 . . I $D(^BSDXAPPT("APAT",DFN,APPTTIME)) W "Appt for "_DFN_" @ "_APPTTIME_" present",!
43 ;
44 ; Now, copy those appointments using BSDX29 to ^BSDXAPPT
45 N FIRSTDATE S FIRSTDATE=$O(BSDXDATE(""))
46 N LASTDATE S LASTDATE=$O(BSDXDATE(""),-1)
47 N ZZZ ; garbage
48 D BSDXCP^BSDX29(.ZZZ,RESIEN,HLIEN,FIRSTDATE,LASTDATE)
49 I +^BSDXTMP($J,1)=0 W "Error... task not created",! QUIT
50 ;
51 W "Waiting for 5 seconds for it to finish",! HANG 5
52 N DFN,APPTTIME S (DFN,APPTTIME)=""
53 F S DFN=$O(BSDXAPPT(DFN)) Q:'DFN D
54 . F S APPTTIME=$O(BSDXAPPT(DFN,APPTTIME)) Q:'APPTTIME D
55 . . I '$D(^BSDXAPPT("APAT",DFN,APPTTIME)) W "Appt for "_DFN_" @ "_APPTTIME_" missing",!
56 ;
57 ; Do all of this again making sure that events execute.
58 K BSDXNOEV
59 ;
60 ; Create a bunch of appointments in PIMS (25 actually)
61 N DFN
62 N BSDXAPPT,BSDXDATE
63 N BSDXI
64 F BSDXI=1:1:5 D
65 . N APPTTIME S APPTTIME=$$TIMEHL^BSDXUT(HLIEN) ; appt time
66 . F DFN=1,2,3,4,5 D
67 . . N % S %=$$MAKE1^BSDXAPI(DFN,HLIEN,3,APPTTIME,15,"Sam Test Appt"_DFN)
68 . . I % W "Error in $$MAKE1^BSDXAPI for TIME "_APPTTIME_" for DFN "_DFN,!,%,!
69 . . E S BSDXAPPT(DFN,APPTTIME)="",BSDXDATE(APPTTIME)=""
70 ;
71 ; Check that appointments are in ^BSDXAPPT (different from last time)
72 N DFN,APPTTIME S (DFN,APPTTIME)=""
73 F S DFN=$O(BSDXAPPT(DFN)) Q:'DFN D
74 . F S APPTTIME=$O(BSDXAPPT(DFN,APPTTIME)) Q:'APPTTIME D
75 . . I '$D(^BSDXAPPT("APAT",DFN,APPTTIME)) W "Appt for "_DFN_" @ "_APPTTIME_" present",!
76 ;
77 ; Now, copy those appointments using BSDX29 to ^BSDXAPPT
78 N FIRSTDATE S FIRSTDATE=$O(BSDXDATE(""))
79 N LASTDATE S LASTDATE=$O(BSDXDATE(""),-1)
80 N ZZZ ; garbage
81 D BSDXCP^BSDX29(.ZZZ,RESIEN,HLIEN,FIRSTDATE,LASTDATE)
82 I +^BSDXTMP($J,1)=0 W "Error... task not created",! QUIT
83 ;
84 W "Waiting for 5 seconds for it to finish",! HANG 5
85 W ^BSDXTMP("BSDXCOPY",+^BSDXTMP($J,1)),!
86 W "Last line should say 0",!
87 QUIT
88 ;
89UT26 ; Unit Tests - BSDX26
90 ;
91 ; Test 1: Make sure this damn thing works
92 ; Set-up - Create Clinics
93 N RESNAM S RESNAM="UTCLINIC"
94 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN
95 D
96 . N $ET S $ET="D ^%ZTER B"
97 . S HLRESIENS=$$UTCR^BSDXUT(RESNAM)
98 . I HLRESIENS<0 S $EC=",U1," ; not supposed to happen - hard crash if so
99 ;
100 N HLIEN,RESIEN
101 S HLIEN=$P(HLRESIENS,U)
102 S RESIEN=$P(HLRESIENS,U,2)
103 ;
104 ; Get start and end times
105 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
106 N APPTTIME S APPTTIME=$P(TIMES,U)
107 N ENDTIME S ENDTIME=$P(TIMES,U,2)
108 ;
109 ; Make appt
110 N ZZZ,DFN
111 S DFN=3
112 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
113 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
114 ;
115 ; Now edit the note - basic test
116 N %H S %H=$H
117 N NOTE S NOTE="New Note "_%H
118 D EDITAPT^BSDX26(.ZZZ,APPID,NOTE)
119 I ^BSDXAPPT(APPID,1,1,0)'=NOTE W "ERROR 1",!
120 I $P(^SC(HLIEN,"S",APPTTIME,1,1,0),U,4)'=NOTE W "Error in HL Section",!
121 ;
122 ; Test 2: Test Error -1
123 ; -1 --> ApptID not a number
124 N ZZZ
125 N NOTE S NOTE="Nothing important"
126 D EDITAPT^BSDX26(.ZZZ,"BLAHBLAH",NOTE)
127 I +^BSDXTMP($J,1)'=-1 W "ERROR IN -1",!
128 ;
129 ; Test 3: Test Error -2
130 ; -2 --> ApptID not in ^BSDXAPPT
131 D EDITAPT^BSDX26(.ZZZ,298734322,NOTE)
132 I +^BSDXTMP($J,1)'=-2 W "ERROR IN -2",!
133 ;
134 ; Test 4: M Error
135 N BSDXDIE S BSDXDIE=1
136 D EDITAPT^BSDX26(.ZZZ,188,NOTE)
137 I +^BSDXTMP($J,1)'=-100 W "ERROR IN -100",!
138 K BSDXDIE
139 ; Test 5: Trestart -- retired in v1.7
140 ;
141 ; Test 6: UTs for an unlinked resource (not linked to PIMS)
142 N RESNAM S RESNAM="UTCLINICUL" ; Unlinked Clinic
143 N RESIEN
144 D
145 . N $ET S $ET="D ^%ZTER B"
146 . S RESIEN=$$UTCRRES^BSDXUT(RESNAM)
147 . I RESIEN<0 S $EC=",U1," ; not supposed to happen - hard crash if so
148 ;
149 ; Get start and end times
150 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
151 N APPTTIME S APPTTIME=$P(TIMES,U)
152 N ENDTIME S ENDTIME=$P(TIMES,U,2)
153 ;
154 N ZZZ,DFN
155 S DFN=3
156 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
157 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
158 ; Now edit the note - basic test
159 N %H S %H=$H
160 N NOTE S NOTE="New Note "_%H
161 D EDITAPT^BSDX26(.ZZZ,APPID,NOTE)
162 I ^BSDXAPPT(APPID,1,1,0)'=NOTE W "ERROR 2",!
163 ;
164 ; Test 7: Simulated failure in BSDXAPI
165 N RESNAM S RESNAM="UTCLINIC"
166 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN
167 D
168 . N $ET S $ET="D ^%ZTER B"
169 . S HLRESIENS=$$UTCR^BSDXUT(RESNAM)
170 . I HLRESIENS<0 S $EC=",U1," ; not supposed to happen - hard crash if so
171 ;
172 N HLIEN,RESIEN
173 S HLIEN=$P(HLRESIENS,U)
174 S RESIEN=$P(HLRESIENS,U,2)
175 ;
176 ; Get start and end times
177 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
178 N APPTTIME S APPTTIME=$P(TIMES,U)
179 N ENDTIME S ENDTIME=$P(TIMES,U,2)
180 ;
181 ; Make appt
182 N ZZZ,DFN
183 S DFN=3
184 N ORIGNOTE S ORIGNOTE="Sam's Note"
185 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,ORIGNOTE,1)
186 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
187 ;
188 ; Create the error condition
189 N BSDXSIMERR1 S BSDXSIMERR1=1
190 ;
191 ; Try to edit the note. Should still be "Sam's Note"
192 N %H S %H=$H
193 N NOTE S NOTE="New Note "_%H
194 D EDITAPT^BSDX26(.ZZZ,APPID,NOTE)
195 I +^BSDXTMP($J,1)'=-4 W "Simulated error not triggered",!
196 I ^BSDXAPPT(APPID,1,1,0)'=ORIGNOTE W "ERROR 3",!
197 I $P(^SC(HLIEN,"S",APPTTIME,1,1,0),U,4)'=ORIGNOTE W "ERROR 4",!
198 QUIT
199 ;
200UT31 ; Unit Tests for BSDX31
201 ; Set-up - Create Clinics
202 N RESNAM S RESNAM="UTCLINIC"
203 N HLRESIENS ; holds output of UTCR^BSDXUT - HL IEN^Resource IEN
204 D
205 . N $ET S $ET="D ^%ZTER B"
206 . S HLRESIENS=$$UTCR^BSDXUT(RESNAM)
207 . I HLRESIENS<0 S $EC=",U1," ; not supposed to happen - hard crash if so
208 ;
209 N HLIEN,RESIEN
210 S HLIEN=$P(HLRESIENS,U)
211 S RESIEN=$P(HLRESIENS,U,2)
212 ;
213 ; Get start and end times
214 N TIMES S TIMES=$$TIMES^BSDXUT ; appt time^end time
215 N APPTTIME S APPTTIME=$P(TIMES,U)
216 N ENDTIME S ENDTIME=$P(TIMES,U,2)
217 ;
218 ; Make appt
219 N ZZZ,DFN
220 S DFN=3
221 D APPADD^BSDX07(.ZZZ,APPTTIME,ENDTIME,DFN,RESNAM,30,"Sam's Note",1)
222 N APPID S APPID=+$P(^BSDXTMP($J,1),U)
223 ; Test 1: Sanity Check
224 D NOSHOW^BSDX31(.ZZZ,APPID,1)
225 I $P(^BSDXAPPT(APPID,0),U,10)'=1 W "ERROR T1",!
226 I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="N" W "ERROR T1",!
227 ; Test 2: Undo NOSHOW
228 D NOSHOW^BSDX31(.ZZZ,APPID,0)
229 I $P(^BSDXAPPT(APPID,0),U,10)'="0" W "ERROR T2",!
230 I $P(^DPT(DFN,"S",APPTTIME,0),U,2)'="" W "ERROR T2",!
231 ; Test 3: -1
232 D NOSHOW^BSDX31(.ZZZ,"",0)
233 I $P(^BSDXTMP($J,1),U)'=-1 W "ERROR T3",!
234 ; Test 4: -2
235 D NOSHOW^BSDX31(.ZZZ,2938748233,0)
236 I $P(^BSDXTMP($J,1),U)'=-2 W "ERROR T4",!
237 ; Test 5: -3
238 D NOSHOW^BSDX31(.ZZZ,APPID,3)
239 I $P(^BSDXTMP($J,1),U)'=-3 W "ERROR T5",!
240 ; Test 6: Mumps error (-100)
241 N BSDXDIE S BSDXDIE=1
242 D NOSHOW^BSDX31(.ZZZ,APPID,1)
243 I $P(^BSDXTMP($J,1),U)'=-100 W "ERROR T6",!
244 K BSDXDIE
245 ; Test 7: Restartable transaction
246 N BSDXRESTART S BSDXRESTART=1
247 D NOSHOW^BSDX31(.ZZZ,APPID,1)
248 I $P(^BSDXAPPT(APPID,0),U,10)'=1 W "ERROR T7",!
249 QUIT
Note: See TracBrowser for help on using the repository browser.