Produced by Araxis Merge on 6/1/2019 2:43:11 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | C:\AraxisMergeCompare\Pub_un\VSE_P2_SD_5.3_717.zip | SD_5.3_717.KIDS | Fri May 31 20:37:08 2019 UTC |
2 | C:\AraxisMergeCompare\Pub_re\VSE_P2_SD_5.3_717.zip | SD_5.3_717.KIDS | Sat Jun 1 18:35:50 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 9 | 9410 |
Changed | 8 | 16 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | $END TXT | 1 | $END TXT | |||
2 | $KID SD*5. 3*717 | 2 | $KID SD*5. 3*717 | |||
3 | **INSTALL NAME** | 3 | **INSTALL NAME** | |||
4 | SD*5.3*717 | 4 | SD*5.3*717 | |||
5 | "BLD",1036 4,0) | 5 | "BLD",1036 4,0) | |||
6 | SD*5.3*717 ^SCHEDULIN G^0^319032 6^y | 6 | SD*5.3*717 ^SCHEDULIN G^0^319032 6^y | |||
7 | "BLD",1036 4,1,0) | 7 | "BLD",1036 4,1,0) | |||
8 | ^^294^294^ 3181106^ | 8 | ^^294^294^ 3181106^ | |||
9 | "BLD",1036 4,1,1,0) | 9 | "BLD",1036 4,1,1,0) | |||
10 | This patch corrects the proble m of appoi ntment pro cessing in VistA | 10 | This patch corrects the proble m of appoi ntment pro cessing in VistA | |||
11 | "BLD",1036 4,1,2,0) | 11 | "BLD",1036 4,1,2,0) | |||
12 | Scheduling (VS) GUI not invoki ng the eve nt driver protocol ( SDAM | 12 | Scheduling (VS) GUI not invoki ng the eve nt driver protocol ( SDAM | |||
13 | "BLD",1036 4,1,3,0) | 13 | "BLD",1036 4,1,3,0) | |||
14 | APPOINTMEN T | 14 | APPOINTMEN T | |||
15 | "BLD",1036 4,1,4,0) | 15 | "BLD",1036 4,1,4,0) | |||
16 | EVENTS) th at roll an d scroll V istA does. This prot ocol allow s other ap ps | 16 | EVENTS) th at roll an d scroll V istA does. This prot ocol allow s other ap ps | |||
17 | "BLD",1036 4,1,5,0) | 17 | "BLD",1036 4,1,5,0) | |||
18 | to tie fun ctionality , includin g interfac es to exte rnal syste ms such as | 18 | to tie fun ctionality , includin g interfac es to exte rnal syste ms such as | |||
19 | "BLD",1036 4,1,6,0) | 19 | "BLD",1036 4,1,6,0) | |||
20 | Pyxis, Omn icell, and EDIS,to a ppointment events. A ctions cur rently bei ng | 20 | Pyxis, Omn icell, and EDIS,to a ppointment events. A ctions cur rently bei ng | |||
21 | "BLD",1036 4,1,7,0) | 21 | "BLD",1036 4,1,7,0) | |||
22 | executed f or appoint ment event s in legac y VistA wi ll also be executed for | 22 | executed f or appoint ment event s in legac y VistA wi ll also be executed for | |||
23 | "BLD",1036 4,1,8,0) | 23 | "BLD",1036 4,1,8,0) | |||
24 | appointmen ts when th ose events (make app ointment, check in, undo check in, | 24 | appointmen ts when th ose events (make app ointment, check in, undo check in, | |||
25 | "BLD",1036 4,1,9,0) | 25 | "BLD",1036 4,1,9,0) | |||
26 | check out, undo chec k out, can cel appoin tment, no show) are triggered by | 26 | check out, undo chec k out, can cel appoin tment, no show) are triggered by | |||
27 | "BLD",1036 4,1,10,0) | 27 | "BLD",1036 4,1,10,0) | |||
28 | the GUI. ( However, t his patch does not r equire a G UI update. ) | 28 | the GUI. ( However, t his patch does not r equire a G UI update. ) | |||
29 | "BLD",1036 4,1,11,0) | 29 | "BLD",1036 4,1,11,0) | |||
30 | 30 | |||||
31 | "BLD",1036 4,1,12,0) | 31 | "BLD",1036 4,1,12,0) | |||
32 | Patch Comp onents | 32 | Patch Comp onents | |||
33 | "BLD",1036 4,1,13,0) | 33 | "BLD",1036 4,1,13,0) | |||
34 | ========== ====== | 34 | ========== ====== | |||
35 | "BLD",1036 4,1,14,0) | 35 | "BLD",1036 4,1,14,0) | |||
36 | 36 | |||||
37 | "BLD",1036 4,1,15,0) | 37 | "BLD",1036 4,1,15,0) | |||
38 | Files & Fi elds Assoc iated: | 38 | Files & Fi elds Assoc iated: | |||
39 | "BLD",1036 4,1,16,0) | 39 | "BLD",1036 4,1,16,0) | |||
40 | 40 | |||||
41 | "BLD",1036 4,1,17,0) | 41 | "BLD",1036 4,1,17,0) | |||
42 | File Name (#) Ne w/Modified / | 42 | File Name (#) Ne w/Modified / | |||
43 | "BLD",1036 4,1,18,0) | 43 | "BLD",1036 4,1,18,0) | |||
44 | Sub-file Name (#) Field Na me (Number ) Deleted | 44 | Sub-file Name (#) Field Na me (Number ) Deleted | |||
45 | "BLD",1036 4,1,19,0) | 45 | "BLD",1036 4,1,19,0) | |||
46 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | 46 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | |||
47 | "BLD",1036 4,1,20,0) | 47 | "BLD",1036 4,1,20,0) | |||
48 | N/A | 48 | N/A | |||
49 | "BLD",1036 4,1,21,0) | 49 | "BLD",1036 4,1,21,0) | |||
50 | 50 | |||||
51 | "BLD",1036 4,1,22,0) | 51 | "BLD",1036 4,1,22,0) | |||
52 | Bulletins Associated : | 52 | Bulletins Associated : | |||
53 | "BLD",1036 4,1,23,0) | 53 | "BLD",1036 4,1,23,0) | |||
54 | Ne w/Modified / | 54 | Ne w/Modified / | |||
55 | "BLD",1036 4,1,24,0) | 55 | "BLD",1036 4,1,24,0) | |||
56 | Bulletin N ame Deleted | 56 | Bulletin N ame Deleted | |||
57 | "BLD",1036 4,1,25,0) | 57 | "BLD",1036 4,1,25,0) | |||
58 | ---------- --- -- ---------- - | 58 | ---------- --- -- ---------- - | |||
59 | "BLD",1036 4,1,26,0) | 59 | "BLD",1036 4,1,26,0) | |||
60 | N/A | 60 | N/A | |||
61 | "BLD",1036 4,1,27,0) | 61 | "BLD",1036 4,1,27,0) | |||
62 | 62 | |||||
63 | "BLD",1036 4,1,28,0) | 63 | "BLD",1036 4,1,28,0) | |||
64 | 64 | |||||
65 | "BLD",1036 4,1,29,0) | 65 | "BLD",1036 4,1,29,0) | |||
66 | 66 | |||||
67 | "BLD",1036 4,1,30,0) | 67 | "BLD",1036 4,1,30,0) | |||
68 | Dialogs As sociated: | 68 | Dialogs As sociated: | |||
69 | "BLD",1036 4,1,31,0) | 69 | "BLD",1036 4,1,31,0) | |||
70 | Ne w/Modified / | 70 | Ne w/Modified / | |||
71 | "BLD",1036 4,1,32,0) | 71 | "BLD",1036 4,1,32,0) | |||
72 | Dialog Nam e Deleted | 72 | Dialog Nam e Deleted | |||
73 | "BLD",1036 4,1,33,0) | 73 | "BLD",1036 4,1,33,0) | |||
74 | ---------- - -- ---------- - | 74 | ---------- - -- ---------- - | |||
75 | "BLD",1036 4,1,34,0) | 75 | "BLD",1036 4,1,34,0) | |||
76 | N/A | 76 | N/A | |||
77 | "BLD",1036 4,1,35,0) | 77 | "BLD",1036 4,1,35,0) | |||
78 | 78 | |||||
79 | "BLD",1036 4,1,36,0) | 79 | "BLD",1036 4,1,36,0) | |||
80 | 80 | |||||
81 | "BLD",1036 4,1,37,0) | 81 | "BLD",1036 4,1,37,0) | |||
82 | 82 | |||||
83 | "BLD",1036 4,1,38,0) | 83 | "BLD",1036 4,1,38,0) | |||
84 | Forms Asso ciated: | 84 | Forms Asso ciated: | |||
85 | "BLD",1036 4,1,39,0) | 85 | "BLD",1036 4,1,39,0) | |||
86 | Ne w/Modified / | 86 | Ne w/Modified / | |||
87 | "BLD",1036 4,1,40,0) | 87 | "BLD",1036 4,1,40,0) | |||
88 | Form Name F ile Name ( Number) Deleted | 88 | Form Name F ile Name ( Number) Deleted | |||
89 | "BLD",1036 4,1,41,0) | 89 | "BLD",1036 4,1,41,0) | |||
90 | --------- - ---------- ------- -- ---------- - | 90 | --------- - ---------- ------- -- ---------- - | |||
91 | "BLD",1036 4,1,42,0) | 91 | "BLD",1036 4,1,42,0) | |||
92 | N/A | 92 | N/A | |||
93 | "BLD",1036 4,1,43,0) | 93 | "BLD",1036 4,1,43,0) | |||
94 | 94 | |||||
95 | "BLD",1036 4,1,44,0) | 95 | "BLD",1036 4,1,44,0) | |||
96 | 96 | |||||
97 | "BLD",1036 4,1,45,0) | 97 | "BLD",1036 4,1,45,0) | |||
98 | 98 | |||||
99 | "BLD",1036 4,1,46,0) | 99 | "BLD",1036 4,1,46,0) | |||
100 | Functions Associated : | 100 | Functions Associated : | |||
101 | "BLD",1036 4,1,47,0) | 101 | "BLD",1036 4,1,47,0) | |||
102 | Ne w/Modified / | 102 | Ne w/Modified / | |||
103 | "BLD",1036 4,1,48,0) | 103 | "BLD",1036 4,1,48,0) | |||
104 | Function N ame Deleted | 104 | Function N ame Deleted | |||
105 | "BLD",1036 4,1,49,0) | 105 | "BLD",1036 4,1,49,0) | |||
106 | ---------- --- -- ---------- - | 106 | ---------- --- -- ---------- - | |||
107 | "BLD",1036 4,1,50,0) | 107 | "BLD",1036 4,1,50,0) | |||
108 | N/A | 108 | N/A | |||
109 | "BLD",1036 4,1,51,0) | 109 | "BLD",1036 4,1,51,0) | |||
110 | 110 | |||||
111 | "BLD",1036 4,1,52,0) | 111 | "BLD",1036 4,1,52,0) | |||
112 | 112 | |||||
113 | "BLD",1036 4,1,53,0) | 113 | "BLD",1036 4,1,53,0) | |||
114 | 114 | |||||
115 | "BLD",1036 4,1,54,0) | 115 | "BLD",1036 4,1,54,0) | |||
116 | HL Logical Link: | 116 | HL Logical Link: | |||
117 | "BLD",1036 4,1,55,0) | 117 | "BLD",1036 4,1,55,0) | |||
118 | Ne w/Modified / | 118 | Ne w/Modified / | |||
119 | "BLD",1036 4,1,56,0) | 119 | "BLD",1036 4,1,56,0) | |||
120 | HL Logical Name Deleted | 120 | HL Logical Name Deleted | |||
121 | "BLD",1036 4,1,57,0) | 121 | "BLD",1036 4,1,57,0) | |||
122 | ---------- ----- -- ---------- - | 122 | ---------- ----- -- ---------- - | |||
123 | "BLD",1036 4,1,58,0) | 123 | "BLD",1036 4,1,58,0) | |||
124 | N/A | 124 | N/A | |||
125 | "BLD",1036 4,1,59,0) | 125 | "BLD",1036 4,1,59,0) | |||
126 | 126 | |||||
127 | "BLD",1036 4,1,60,0) | 127 | "BLD",1036 4,1,60,0) | |||
128 | 128 | |||||
129 | "BLD",1036 4,1,61,0) | 129 | "BLD",1036 4,1,61,0) | |||
130 | 130 | |||||
131 | "BLD",1036 4,1,62,0) | 131 | "BLD",1036 4,1,62,0) | |||
132 | HL7 Applic ation Para meters: | 132 | HL7 Applic ation Para meters: | |||
133 | "BLD",1036 4,1,63,0) | 133 | "BLD",1036 4,1,63,0) | |||
134 | Ne w/Modified / | 134 | Ne w/Modified / | |||
135 | "BLD",1036 4,1,64,0) | 135 | "BLD",1036 4,1,64,0) | |||
136 | HL7 Parame ter Name Deleted | 136 | HL7 Parame ter Name Deleted | |||
137 | "BLD",1036 4,1,65,0) | 137 | "BLD",1036 4,1,65,0) | |||
138 | ---------- -------- -- ---------- - | 138 | ---------- -------- -- ---------- - | |||
139 | "BLD",1036 4,1,66,0) | 139 | "BLD",1036 4,1,66,0) | |||
140 | N/A | 140 | N/A | |||
141 | "BLD",1036 4,1,67,0) | 141 | "BLD",1036 4,1,67,0) | |||
142 | 142 | |||||
143 | "BLD",1036 4,1,68,0) | 143 | "BLD",1036 4,1,68,0) | |||
144 | 144 | |||||
145 | "BLD",1036 4,1,69,0) | 145 | "BLD",1036 4,1,69,0) | |||
146 | 146 | |||||
147 | "BLD",1036 4,1,70,0) | 147 | "BLD",1036 4,1,70,0) | |||
148 | HLO Applic ation Regi stry: | 148 | HLO Applic ation Regi stry: | |||
149 | "BLD",1036 4,1,71,0) | 149 | "BLD",1036 4,1,71,0) | |||
150 | Ne w/Modified / | 150 | Ne w/Modified / | |||
151 | "BLD",1036 4,1,72,0) | 151 | "BLD",1036 4,1,72,0) | |||
152 | HLO Regist ry Name Deleted | 152 | HLO Regist ry Name Deleted | |||
153 | "BLD",1036 4,1,73,0) | 153 | "BLD",1036 4,1,73,0) | |||
154 | ---------- ------- -- ---------- - | 154 | ---------- ------- -- ---------- - | |||
155 | "BLD",1036 4,1,74,0) | 155 | "BLD",1036 4,1,74,0) | |||
156 | N/A | 156 | N/A | |||
157 | "BLD",1036 4,1,75,0) | 157 | "BLD",1036 4,1,75,0) | |||
158 | 158 | |||||
159 | "BLD",1036 4,1,76,0) | 159 | "BLD",1036 4,1,76,0) | |||
160 | 160 | |||||
161 | "BLD",1036 4,1,77,0) | 161 | "BLD",1036 4,1,77,0) | |||
162 | 162 | |||||
163 | "BLD",1036 4,1,78,0) | 163 | "BLD",1036 4,1,78,0) | |||
164 | Help Frame s Associat ed: | 164 | Help Frame s Associat ed: | |||
165 | "BLD",1036 4,1,79,0) | 165 | "BLD",1036 4,1,79,0) | |||
166 | Ne w/Modified / | 166 | Ne w/Modified / | |||
167 | "BLD",1036 4,1,80,0) | 167 | "BLD",1036 4,1,80,0) | |||
168 | Help Frame Name Deleted | 168 | Help Frame Name Deleted | |||
169 | "BLD",1036 4,1,81,0) | 169 | "BLD",1036 4,1,81,0) | |||
170 | ---------- ----- -- ---------- - | 170 | ---------- ----- -- ---------- - | |||
171 | "BLD",1036 4,1,82,0) | 171 | "BLD",1036 4,1,82,0) | |||
172 | N/A | 172 | N/A | |||
173 | "BLD",1036 4,1,83,0) | 173 | "BLD",1036 4,1,83,0) | |||
174 | 174 | |||||
175 | "BLD",1036 4,1,84,0) | 175 | "BLD",1036 4,1,84,0) | |||
176 | 176 | |||||
177 | "BLD",1036 4,1,85,0) | 177 | "BLD",1036 4,1,85,0) | |||
178 | 178 | |||||
179 | "BLD",1036 4,1,86,0) | 179 | "BLD",1036 4,1,86,0) | |||
180 | Mail Group s Associat ed: | 180 | Mail Group s Associat ed: | |||
181 | "BLD",1036 4,1,87,0) | 181 | "BLD",1036 4,1,87,0) | |||
182 | Ne w/Modified / | 182 | Ne w/Modified / | |||
183 | "BLD",1036 4,1,88,0) | 183 | "BLD",1036 4,1,88,0) | |||
184 | Mail Group Name Deleted | 184 | Mail Group Name Deleted | |||
185 | "BLD",1036 4,1,89,0) | 185 | "BLD",1036 4,1,89,0) | |||
186 | ---------- ----- -- ---------- - | 186 | ---------- ----- -- ---------- - | |||
187 | "BLD",1036 4,1,90,0) | 187 | "BLD",1036 4,1,90,0) | |||
188 | N/A | 188 | N/A | |||
189 | "BLD",1036 4,1,91,0) | 189 | "BLD",1036 4,1,91,0) | |||
190 | 190 | |||||
191 | "BLD",1036 4,1,92,0) | 191 | "BLD",1036 4,1,92,0) | |||
192 | 192 | |||||
193 | "BLD",1036 4,1,93,0) | 193 | "BLD",1036 4,1,93,0) | |||
194 | 194 | |||||
195 | "BLD",1036 4,1,94,0) | 195 | "BLD",1036 4,1,94,0) | |||
196 | Options As sociated: | 196 | Options As sociated: | |||
197 | "BLD",1036 4,1,95,0) | 197 | "BLD",1036 4,1,95,0) | |||
198 | 198 | |||||
199 | "BLD",1036 4,1,96,0) | 199 | "BLD",1036 4,1,96,0) | |||
200 | New/Modifi ed/ | 200 | New/Modifi ed/ | |||
201 | "BLD",1036 4,1,97,0) | 201 | "BLD",1036 4,1,97,0) | |||
202 | Option Nam e Typ e | 202 | Option Nam e Typ e | |||
203 | "BLD",1036 4,1,98,0) | 203 | "BLD",1036 4,1,98,0) | |||
204 | Deleted | 204 | Deleted | |||
205 | "BLD",1036 4,1,99,0) | 205 | "BLD",1036 4,1,99,0) | |||
206 | ---------- - --- - | 206 | ---------- - --- - | |||
207 | "BLD",1036 4,1,100,0) | 207 | "BLD",1036 4,1,100,0) | |||
208 | ---------- --- | 208 | ---------- --- | |||
209 | "BLD",1036 4,1,101,0) | 209 | "BLD",1036 4,1,101,0) | |||
210 | N/A | 210 | N/A | |||
211 | "BLD",1036 4,1,102,0) | 211 | "BLD",1036 4,1,102,0) | |||
212 | 212 | |||||
213 | "BLD",1036 4,1,103,0) | 213 | "BLD",1036 4,1,103,0) | |||
214 | 214 | |||||
215 | "BLD",1036 4,1,104,0) | 215 | "BLD",1036 4,1,104,0) | |||
216 | 216 | |||||
217 | "BLD",1036 4,1,105,0) | 217 | "BLD",1036 4,1,105,0) | |||
218 | Parameter Definition s: | 218 | Parameter Definition s: | |||
219 | "BLD",1036 4,1,106,0) | 219 | "BLD",1036 4,1,106,0) | |||
220 | Ne w/Modified / | 220 | Ne w/Modified / | |||
221 | "BLD",1036 4,1,107,0) | 221 | "BLD",1036 4,1,107,0) | |||
222 | Parameter Name Deleted | 222 | Parameter Name Deleted | |||
223 | "BLD",1036 4,1,108,0) | 223 | "BLD",1036 4,1,108,0) | |||
224 | ---------- ---- -- ---------- - | 224 | ---------- ---- -- ---------- - | |||
225 | "BLD",1036 4,1,109,0) | 225 | "BLD",1036 4,1,109,0) | |||
226 | N/A | 226 | N/A | |||
227 | "BLD",1036 4,1,110,0) | 227 | "BLD",1036 4,1,110,0) | |||
228 | 228 | |||||
229 | "BLD",1036 4,1,111,0) | 229 | "BLD",1036 4,1,111,0) | |||
230 | 230 | |||||
231 | "BLD",1036 4,1,112,0) | 231 | "BLD",1036 4,1,112,0) | |||
232 | 232 | |||||
233 | "BLD",1036 4,1,113,0) | 233 | "BLD",1036 4,1,113,0) | |||
234 | Parameter Template: | 234 | Parameter Template: | |||
235 | "BLD",1036 4,1,114,0) | 235 | "BLD",1036 4,1,114,0) | |||
236 | Ne w/Modified / | 236 | Ne w/Modified / | |||
237 | "BLD",1036 4,1,115,0) | 237 | "BLD",1036 4,1,115,0) | |||
238 | Template N ame Deleted | 238 | Template N ame Deleted | |||
239 | "BLD",1036 4,1,116,0) | 239 | "BLD",1036 4,1,116,0) | |||
240 | ---------- --- -- ---------- - | 240 | ---------- --- -- ---------- - | |||
241 | "BLD",1036 4,1,117,0) | 241 | "BLD",1036 4,1,117,0) | |||
242 | N/A | 242 | N/A | |||
243 | "BLD",1036 4,1,118,0) | 243 | "BLD",1036 4,1,118,0) | |||
244 | 244 | |||||
245 | "BLD",1036 4,1,119,0) | 245 | "BLD",1036 4,1,119,0) | |||
246 | 246 | |||||
247 | "BLD",1036 4,1,120,0) | 247 | "BLD",1036 4,1,120,0) | |||
248 | 248 | |||||
249 | "BLD",1036 4,1,121,0) | 249 | "BLD",1036 4,1,121,0) | |||
250 | Protocols Associated : | 250 | Protocols Associated : | |||
251 | "BLD",1036 4,1,122,0) | 251 | "BLD",1036 4,1,122,0) | |||
252 | Ne w/Modified / | 252 | Ne w/Modified / | |||
253 | "BLD",1036 4,1,123,0) | 253 | "BLD",1036 4,1,123,0) | |||
254 | Protocol N ame Deleted | 254 | Protocol N ame Deleted | |||
255 | "BLD",1036 4,1,124,0) | 255 | "BLD",1036 4,1,124,0) | |||
256 | ---------- --- -- ---------- - | 256 | ---------- --- -- ---------- - | |||
257 | "BLD",1036 4,1,125,0) | 257 | "BLD",1036 4,1,125,0) | |||
258 | N/A | 258 | N/A | |||
259 | "BLD",1036 4,1,126,0) | 259 | "BLD",1036 4,1,126,0) | |||
260 | 260 | |||||
261 | "BLD",1036 4,1,127,0) | 261 | "BLD",1036 4,1,127,0) | |||
262 | 262 | |||||
263 | "BLD",1036 4,1,128,0) | 263 | "BLD",1036 4,1,128,0) | |||
264 | 264 | |||||
265 | "BLD",1036 4,1,129,0) | 265 | "BLD",1036 4,1,129,0) | |||
266 | Remote Pro cedures As sociated: | 266 | Remote Pro cedures As sociated: | |||
267 | "BLD",1036 4,1,130,0) | 267 | "BLD",1036 4,1,130,0) | |||
268 | Ne w/Modified / | 268 | Ne w/Modified / | |||
269 | "BLD",1036 4,1,131,0) | 269 | "BLD",1036 4,1,131,0) | |||
270 | Remote Pro cedure Nam e Deleted | 270 | Remote Pro cedure Nam e Deleted | |||
271 | "BLD",1036 4,1,132,0) | 271 | "BLD",1036 4,1,132,0) | |||
272 | ---------- ---------- - -- ---------- - | 272 | ---------- ---------- - -- ---------- - | |||
273 | "BLD",1036 4,1,133,0) | 273 | "BLD",1036 4,1,133,0) | |||
274 | N/A | 274 | N/A | |||
275 | "BLD",1036 4,1,134,0) | 275 | "BLD",1036 4,1,134,0) | |||
276 | 276 | |||||
277 | "BLD",1036 4,1,135,0) | 277 | "BLD",1036 4,1,135,0) | |||
278 | 278 | |||||
279 | "BLD",1036 4,1,136,0) | 279 | "BLD",1036 4,1,136,0) | |||
280 | 280 | |||||
281 | "BLD",1036 4,1,137,0) | 281 | "BLD",1036 4,1,137,0) | |||
282 | Security K eys Associ ated: | 282 | Security K eys Associ ated: | |||
283 | "BLD",1036 4,1,138,0) | 283 | "BLD",1036 4,1,138,0) | |||
284 | Ne w/Modified / | 284 | Ne w/Modified / | |||
285 | "BLD",1036 4,1,139,0) | 285 | "BLD",1036 4,1,139,0) | |||
286 | Security K ey Name Deleted | 286 | Security K ey Name Deleted | |||
287 | "BLD",1036 4,1,140,0) | 287 | "BLD",1036 4,1,140,0) | |||
288 | ---------- ------- -- ---------- - | 288 | ---------- ------- -- ---------- - | |||
289 | "BLD",1036 4,1,141,0) | 289 | "BLD",1036 4,1,141,0) | |||
290 | N/A | 290 | N/A | |||
291 | "BLD",1036 4,1,142,0) | 291 | "BLD",1036 4,1,142,0) | |||
292 | 292 | |||||
293 | "BLD",1036 4,1,143,0) | 293 | "BLD",1036 4,1,143,0) | |||
294 | 294 | |||||
295 | "BLD",1036 4,1,144,0) | 295 | "BLD",1036 4,1,144,0) | |||
296 | 296 | |||||
297 | "BLD",1036 4,1,145,0) | 297 | "BLD",1036 4,1,145,0) | |||
298 | Templates, Input Ass ociated: | 298 | Templates, Input Ass ociated: | |||
299 | "BLD",1036 4,1,146,0) | 299 | "BLD",1036 4,1,146,0) | |||
300 | Ne w/Modified / | 300 | Ne w/Modified / | |||
301 | "BLD",1036 4,1,147,0) | 301 | "BLD",1036 4,1,147,0) | |||
302 | Template N ame T ype F ile Name ( Number) Deleted | 302 | Template N ame T ype F ile Name ( Number) Deleted | |||
303 | "BLD",1036 4,1,148,0) | 303 | "BLD",1036 4,1,148,0) | |||
304 | ---------- --- - --- - ---------- ------- -- ---------- - | 304 | ---------- --- - --- - ---------- ------- -- ---------- - | |||
305 | "BLD",1036 4,1,149,0) | 305 | "BLD",1036 4,1,149,0) | |||
306 | N/A | 306 | N/A | |||
307 | "BLD",1036 4,1,150,0) | 307 | "BLD",1036 4,1,150,0) | |||
308 | 308 | |||||
309 | "BLD",1036 4,1,151,0) | 309 | "BLD",1036 4,1,151,0) | |||
310 | 310 | |||||
311 | "BLD",1036 4,1,152,0) | 311 | "BLD",1036 4,1,152,0) | |||
312 | 312 | |||||
313 | "BLD",1036 4,1,153,0) | 313 | "BLD",1036 4,1,153,0) | |||
314 | Templates, List Asso ciated: | 314 | Templates, List Asso ciated: | |||
315 | "BLD",1036 4,1,154,0) | 315 | "BLD",1036 4,1,154,0) | |||
316 | Ne w/Modified / | 316 | Ne w/Modified / | |||
317 | "BLD",1036 4,1,155,0) | 317 | "BLD",1036 4,1,155,0) | |||
318 | Template N ame T ype Deleted | 318 | Template N ame T ype Deleted | |||
319 | "BLD",1036 4,1,156,0) | 319 | "BLD",1036 4,1,156,0) | |||
320 | ---------- --- - --- -- ---------- - | 320 | ---------- --- - --- -- ---------- - | |||
321 | "BLD",1036 4,1,157,0) | 321 | "BLD",1036 4,1,157,0) | |||
322 | N/A | 322 | N/A | |||
323 | "BLD",1036 4,1,158,0) | 323 | "BLD",1036 4,1,158,0) | |||
324 | 324 | |||||
325 | "BLD",1036 4,1,159,0) | 325 | "BLD",1036 4,1,159,0) | |||
326 | 326 | |||||
327 | "BLD",1036 4,1,160,0) | 327 | "BLD",1036 4,1,160,0) | |||
328 | 328 | |||||
329 | "BLD",1036 4,1,161,0) | 329 | "BLD",1036 4,1,161,0) | |||
330 | Templates, Print Ass ociated: | 330 | Templates, Print Ass ociated: | |||
331 | "BLD",1036 4,1,162,0) | 331 | "BLD",1036 4,1,162,0) | |||
332 | New/Modifi ed/ | 332 | New/Modifi ed/ | |||
333 | "BLD",1036 4,1,163,0) | 333 | "BLD",1036 4,1,163,0) | |||
334 | Template N ame Type Fi le Name (N umber) Deleted | 334 | Template N ame Type Fi le Name (N umber) Deleted | |||
335 | "BLD",1036 4,1,164,0) | 335 | "BLD",1036 4,1,164,0) | |||
336 | ---------- --- ---- -- ---------- ------ ---------- --- | 336 | ---------- --- ---- -- ---------- ------ ---------- --- | |||
337 | "BLD",1036 4,1,165,0) | 337 | "BLD",1036 4,1,165,0) | |||
338 | N/A | 338 | N/A | |||
339 | "BLD",1036 4,1,166,0) | 339 | "BLD",1036 4,1,166,0) | |||
340 | 340 | |||||
341 | "BLD",1036 4,1,167,0) | 341 | "BLD",1036 4,1,167,0) | |||
342 | 342 | |||||
343 | "BLD",1036 4,1,168,0) | 343 | "BLD",1036 4,1,168,0) | |||
344 | 344 | |||||
345 | "BLD",1036 4,1,169,0) | 345 | "BLD",1036 4,1,169,0) | |||
346 | Templates, Sort Asso ciated: | 346 | Templates, Sort Asso ciated: | |||
347 | "BLD",1036 4,1,170,0) | 347 | "BLD",1036 4,1,170,0) | |||
348 | 348 | |||||
349 | "BLD",1036 4,1,171,0) | 349 | "BLD",1036 4,1,171,0) | |||
350 | New/Modifi ed/ | 350 | New/Modifi ed/ | |||
351 | "BLD",1036 4,1,172,0) | 351 | "BLD",1036 4,1,172,0) | |||
352 | Template N ame Type File Name (Number) | 352 | Template N ame Type File Name (Number) | |||
353 | "BLD",1036 4,1,173,0) | 353 | "BLD",1036 4,1,173,0) | |||
354 | Deleted | 354 | Deleted | |||
355 | "BLD",1036 4,1,174,0) | 355 | "BLD",1036 4,1,174,0) | |||
356 | ---------- --- ---- --------- --------- | 356 | ---------- --- ---- --------- --------- | |||
357 | "BLD",1036 4,1,175,0) | 357 | "BLD",1036 4,1,175,0) | |||
358 | ---------- --- | 358 | ---------- --- | |||
359 | "BLD",1036 4,1,176,0) | 359 | "BLD",1036 4,1,176,0) | |||
360 | N/A | 360 | N/A | |||
361 | "BLD",1036 4,1,177,0) | 361 | "BLD",1036 4,1,177,0) | |||
362 | 362 | |||||
363 | "BLD",1036 4,1,178,0) | 363 | "BLD",1036 4,1,178,0) | |||
364 | 364 | |||||
365 | "BLD",1036 4,1,179,0) | 365 | "BLD",1036 4,1,179,0) | |||
366 | Additional Informati on: | 366 | Additional Informati on: | |||
367 | "BLD",1036 4,1,180,0) | 367 | "BLD",1036 4,1,180,0) | |||
368 | N/A | 368 | N/A | |||
369 | "BLD",1036 4,1,181,0) | 369 | "BLD",1036 4,1,181,0) | |||
370 | 370 | |||||
371 | "BLD",1036 4,1,182,0) | 371 | "BLD",1036 4,1,182,0) | |||
372 | 372 | |||||
373 | "BLD",1036 4,1,183,0) | 373 | "BLD",1036 4,1,183,0) | |||
374 | New Servic e Requests (NSRs) | 374 | New Servic e Requests (NSRs) | |||
375 | "BLD",1036 4,1,184,0) | 375 | "BLD",1036 4,1,184,0) | |||
376 | ---------- ---------- -------- | 376 | ---------- ---------- -------- | |||
377 | "BLD",1036 4,1,185,0) | 377 | "BLD",1036 4,1,185,0) | |||
378 | N/A | 378 | N/A | |||
379 | "BLD",1036 4,1,186,0) | 379 | "BLD",1036 4,1,186,0) | |||
380 | 380 | |||||
381 | "BLD",1036 4,1,187,0) | 381 | "BLD",1036 4,1,187,0) | |||
382 | 382 | |||||
383 | "BLD",1036 4,1,188,0) | 383 | "BLD",1036 4,1,188,0) | |||
384 | Patient Sa fety Issue s (PSIs) | 384 | Patient Sa fety Issue s (PSIs) | |||
385 | "BLD",1036 4,1,189,0) | 385 | "BLD",1036 4,1,189,0) | |||
386 | ---------- ---------- --------- | 386 | ---------- ---------- --------- | |||
387 | "BLD",1036 4,1,190,0) | 387 | "BLD",1036 4,1,190,0) | |||
388 | N/A | 388 | N/A | |||
389 | "BLD",1036 4,1,191,0) | 389 | "BLD",1036 4,1,191,0) | |||
390 | 390 | |||||
391 | "BLD",1036 4,1,192,0) | 391 | "BLD",1036 4,1,192,0) | |||
392 | 392 | |||||
393 | "BLD",1036 4,1,193,0) | 393 | "BLD",1036 4,1,193,0) | |||
394 | ServiceNow Ticket(s) & Overvie w | 394 | ServiceNow Ticket(s) & Overvie w | |||
395 | "BLD",1036 4,1,194,0) | 395 | "BLD",1036 4,1,194,0) | |||
396 | ---------- ---------- ---------- ---------- ------- | 396 | ---------- ---------- ---------- ---------- ------- | |||
397 | "BLD",1036 4,1,195,0) | 397 | "BLD",1036 4,1,195,0) | |||
398 | I17005764F Y18 Pyxis and EDIS are not re cognizing clinic che ck in acti ons | 398 | I17005764F Y18 Pyxis and EDIS are not re cognizing clinic che ck in acti ons | |||
399 | "BLD",1036 4,1,196,0) | 399 | "BLD",1036 4,1,196,0) | |||
400 | 400 | |||||
401 | "BLD",1036 4,1,197,0) | 401 | "BLD",1036 4,1,197,0) | |||
402 | Problem: | 402 | Problem: | |||
403 | "BLD",1036 4,1,198,0) | 403 | "BLD",1036 4,1,198,0) | |||
404 | ------- | 404 | ------- | |||
405 | "BLD",1036 4,1,199,0) | 405 | "BLD",1036 4,1,199,0) | |||
406 | When a use r performs appointme nt actions in VS GUI , downstre am systems | 406 | When a use r performs appointme nt actions in VS GUI , downstre am systems | |||
407 | "BLD",1036 4,1,200,0) | 407 | "BLD",1036 4,1,200,0) | |||
408 | such | 408 | such | |||
409 | "BLD",1036 4,1,201,0) | 409 | "BLD",1036 4,1,201,0) | |||
410 | as Pyxis ( or other u nit dosing devices, such as Om nicell) an d EDIS are not | 410 | as Pyxis ( or other u nit dosing devices, such as Om nicell) an d EDIS are not | |||
411 | "BLD",1036 4,1,202,0) | 411 | "BLD",1036 4,1,202,0) | |||
412 | updated, w hereas the y are when the appoi ntment act ions are t aken in le gacy | 412 | updated, w hereas the y are when the appoi ntment act ions are t aken in le gacy | |||
413 | "BLD",1036 4,1,203,0) | 413 | "BLD",1036 4,1,203,0) | |||
414 | VistA. | 414 | VistA. | |||
415 | "BLD",1036 4,1,204,0) | 415 | "BLD",1036 4,1,204,0) | |||
416 | 416 | |||||
417 | "BLD",1036 4,1,205,0) | 417 | "BLD",1036 4,1,205,0) | |||
418 | Resolution : | 418 | Resolution : | |||
419 | "BLD",1036 4,1,206,0) | 419 | "BLD",1036 4,1,206,0) | |||
420 | ---------- | 420 | ---------- | |||
421 | "BLD",1036 4,1,207,0) | 421 | "BLD",1036 4,1,207,0) | |||
422 | The GUI no w invokes the SDAM A PPOINTMENT EVENTS pr otocol jus t like leg acy | 422 | The GUI no w invokes the SDAM A PPOINTMENT EVENTS pr otocol jus t like leg acy | |||
423 | "BLD",1036 4,1,208,0) | 423 | "BLD",1036 4,1,208,0) | |||
424 | VistA, mea ning that the downst ream syste ms will be notified in the sam e | 424 | VistA, mea ning that the downst ream syste ms will be notified in the sam e | |||
425 | "BLD",1036 4,1,209,0) | 425 | "BLD",1036 4,1,209,0) | |||
426 | way whethe r actions are taken on them in GUI or le gacy. | 426 | way whethe r actions are taken on them in GUI or le gacy. | |||
427 | "BLD",1036 4,1,210,0) | 427 | "BLD",1036 4,1,210,0) | |||
428 | 428 | |||||
429 | "BLD",1036 4,1,211,0) | 429 | "BLD",1036 4,1,211,0) | |||
430 | Test Sites : | 430 | Test Sites : | |||
431 | "BLD",1036 4,1,212,0) | 431 | "BLD",1036 4,1,212,0) | |||
432 | ---------- | 432 | ---------- | |||
433 | "BLD",1036 4,1,213,0) | 433 | "BLD",1036 4,1,213,0) | |||
434 | TBA | 434 | TBA | |||
435 | "BLD",1036 4,1,214,0) | 435 | "BLD",1036 4,1,214,0) | |||
436 | 436 | |||||
437 | "BLD",1036 4,1,215,0) | 437 | "BLD",1036 4,1,215,0) | |||
438 | Software a nd Documen tation Ret rieval Ins tructions: | 438 | Software a nd Documen tation Ret rieval Ins tructions: | |||
439 | "BLD",1036 4,1,216,0) | 439 | "BLD",1036 4,1,216,0) | |||
440 | ---------- ---------- ---------- ---------- ---------- -- | 440 | ---------- ---------- ---------- ---------- ---------- -- | |||
441 | "BLD",1036 4,1,217,0) | 441 | "BLD",1036 4,1,217,0) | |||
442 | 442 | |||||
443 | "BLD",1036 4,1,218,0) | 443 | "BLD",1036 4,1,218,0) | |||
444 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | 444 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |||
445 | "BLD",1036 4,1,219,0) | 445 | "BLD",1036 4,1,219,0) | |||
446 | the new fu nctionalit y introduc ed by this patch are available . | 446 | the new fu nctionalit y introduc ed by this patch are available . | |||
447 | "BLD",1036 4,1,220,0) | 447 | "BLD",1036 4,1,220,0) | |||
448 | 448 | |||||
449 | "BLD",1036 4,1,221,0) | 449 | "BLD",1036 4,1,221,0) | |||
450 |
The prefer
red method
is to ret
rieve file
s from dow
nload.
vista.med.
va.gov
.
|
450 | The prefer red method is to ret rieve file s from dow nload. DNS . URL | |||
451 | "BLD",1036 4,1,222,0) | 451 | "BLD",1036 4,1,222,0) | |||
452 | This trans mits the f iles from the first available server. Si tes may | 452 | This trans mits the f iles from the first available server. Si tes may | |||
453 | "BLD",1036 4,1,223,0) | 453 | "BLD",1036 4,1,223,0) | |||
454 | also elect to retrie ve files d irectly fr om a speci fic server . | 454 | also elect to retrie ve files d irectly fr om a speci fic server . | |||
455 | "BLD",1036 4,1,224,0) | 455 | "BLD",1036 4,1,224,0) | |||
456 | 456 | |||||
457 | "BLD",1036 4,1,225,0) | 457 | "BLD",1036 4,1,225,0) | |||
458 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | 458 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |||
459 | "BLD",1036 4,1,226,0) | 459 | "BLD",1036 4,1,226,0) | |||
460 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | 460 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |||
461 | "BLD",1036 4,1,227,0) | 461 | "BLD",1036 4,1,227,0) | |||
462 | directory at the fol lowing OI Field Offi ces: | 462 | directory at the fol lowing OI Field Offi ces: | |||
463 | "BLD",1036 4,1,228,0) | 463 | "BLD",1036 4,1,228,0) | |||
464 | 464 | |||||
465 | "BLD",1036 4,1,229,0) | 465 | "BLD",1036 4,1,229,0) | |||
466 | Hines: fo-hines.m ed.va.gov | 466 | Hines: DNS .U RL | |||
467 | "BLD",1036 4,1,230,0) | 467 | "BLD",1036 4,1,230,0) | |||
468 | Salt Lake City: fo-slc.med .va . gov | 468 | Salt Lake City: DNS . URL | |||
469 | "BLD",1036 4,1,231,0) | 469 | "BLD",1036 4,1,231,0) | |||
470 | 470 | |||||
471 | "BLD",1036 4,1,232,0) | 471 | "BLD",1036 4,1,232,0) | |||
472 | 472 | |||||
473 | "BLD",1036 4,1,233,0) | 473 | "BLD",1036 4,1,233,0) | |||
474 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | 474 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |||
475 | "BLD",1036 4,1,234,0) | 475 | "BLD",1036 4,1,234,0) | |||
476 | at: | 476 | at: | |||
477 | "BLD",1036 4,1,235,0) | 477 | "BLD",1036 4,1,235,0) | |||
478 | http:// www4.va.go v/vdl / | 478 | http:// URL / | |||
479 | "BLD",1036 4,1,236,0) | 479 | "BLD",1036 4,1,236,0) | |||
480 | 480 | |||||
481 | "BLD",1036 4,1,237,0) | 481 | "BLD",1036 4,1,237,0) | |||
482 | Title Fil e Name FTP Mode | 482 | Title Fil e Name FTP Mode | |||
483 | "BLD",1036 4,1,238,0) | 483 | "BLD",1036 4,1,238,0) | |||
484 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | 484 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | |||
485 | "BLD",1036 4,1,239,0) | 485 | "BLD",1036 4,1,239,0) | |||
486 | VistA Sche duling Enh ancements GUI User G uide SCH EDULING_UG .PDF Bina ry | 486 | VistA Sche duling Enh ancements GUI User G uide SCH EDULING_UG .PDF Bina ry | |||
487 | "BLD",1036 4,1,240,0) | 487 | "BLD",1036 4,1,240,0) | |||
488 | VistA Sche duling Enh ancements Technical Manual SCH EDULING_TM .PDF Bina ry | 488 | VistA Sche duling Enh ancements Technical Manual SCH EDULING_TM .PDF Bina ry | |||
489 | "BLD",1036 4,1,241,0) | 489 | "BLD",1036 4,1,241,0) | |||
490 | 490 | |||||
491 | "BLD",1036 4,1,242,0) | 491 | "BLD",1036 4,1,242,0) | |||
492 | 492 | |||||
493 | "BLD",1036 4,1,243,0) | 493 | "BLD",1036 4,1,243,0) | |||
494 | Patch Inst allation: | 494 | Patch Inst allation: | |||
495 | "BLD",1036 4,1,244,0) | 495 | "BLD",1036 4,1,244,0) | |||
496 | 496 | |||||
497 | "BLD",1036 4,1,245,0) | 497 | "BLD",1036 4,1,245,0) | |||
498 | 498 | |||||
499 | "BLD",1036 4,1,246,0) | 499 | "BLD",1036 4,1,246,0) | |||
500 | Pre/Post I nstallatio n Overview | 500 | Pre/Post I nstallatio n Overview | |||
501 | "BLD",1036 4,1,247,0) | 501 | "BLD",1036 4,1,247,0) | |||
502 | ---------- ---------- ---------- | 502 | ---------- ---------- ---------- | |||
503 | "BLD",1036 4,1,248,0) | 503 | "BLD",1036 4,1,248,0) | |||
504 | There are no pre- or post-inst allation t asks for t his patch. | 504 | There are no pre- or post-inst allation t asks for t his patch. | |||
505 | "BLD",1036 4,1,249,0) | 505 | "BLD",1036 4,1,249,0) | |||
506 | 506 | |||||
507 | "BLD",1036 4,1,250,0) | 507 | "BLD",1036 4,1,250,0) | |||
508 | Installati on Instruc tions | 508 | Installati on Instruc tions | |||
509 | "BLD",1036 4,1,251,0) | 509 | "BLD",1036 4,1,251,0) | |||
510 | ---------- ---------- ----- | 510 | ---------- ---------- ----- | |||
511 | "BLD",1036 4,1,252,0) | 511 | "BLD",1036 4,1,252,0) | |||
512 | Install Ti me - less than 5 min utes. | 512 | Install Ti me - less than 5 min utes. | |||
513 | "BLD",1036 4,1,253,0) | 513 | "BLD",1036 4,1,253,0) | |||
514 | 514 | |||||
515 | "BLD",1036 4,1,254,0) | 515 | "BLD",1036 4,1,254,0) | |||
516 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | 516 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | |||
517 | "BLD",1036 4,1,255,0) | 517 | "BLD",1036 4,1,255,0) | |||
518 | 518 | |||||
519 | "BLD",1036 4,1,256,0) | 519 | "BLD",1036 4,1,256,0) | |||
520 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | 520 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | |||
521 | "BLD",1036 4,1,257,0) | 521 | "BLD",1036 4,1,257,0) | |||
522 | the Installati on menu. | 522 | the Installati on menu. | |||
523 | "BLD",1036 4,1,258,0) | 523 | "BLD",1036 4,1,258,0) | |||
524 | 524 | |||||
525 | "BLD",1036 4,1,259,0) | 525 | "BLD",1036 4,1,259,0) | |||
526 | 3. From this menu , you may select to use the fo llowing op tions | 526 | 3. From this menu , you may select to use the fo llowing op tions | |||
527 | "BLD",1036 4,1,260,0) | 527 | "BLD",1036 4,1,260,0) | |||
528 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*717): | 528 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*717): | |||
529 | "BLD",1036 4,1,261,0) | 529 | "BLD",1036 4,1,261,0) | |||
530 | a. Verify Checksums in Transp ort Global - This op tion will | 530 | a. Verify Checksums in Transp ort Global - This op tion will | |||
531 | "BLD",1036 4,1,262,0) | 531 | "BLD",1036 4,1,262,0) | |||
532 | allow | 532 | allow | |||
533 | "BLD",1036 4,1,263,0) | 533 | "BLD",1036 4,1,263,0) | |||
534 | you to ensure th e integrit y of the r outines th at are in the | 534 | you to ensure th e integrit y of the r outines th at are in the | |||
535 | "BLD",1036 4,1,264,0) | 535 | "BLD",1036 4,1,264,0) | |||
536 | transp ort global . | 536 | transp ort global . | |||
537 | "BLD",1036 4,1,265,0) | 537 | "BLD",1036 4,1,265,0) | |||
538 | b. Print Transport Global - T his option will allo w you to v iew | 538 | b. Print Transport Global - T his option will allo w you to v iew | |||
539 | "BLD",1036 4,1,266,0) | 539 | "BLD",1036 4,1,266,0) | |||
540 | the co mponents o f the KIDS build. | 540 | the co mponents o f the KIDS build. | |||
541 | "BLD",1036 4,1,267,0) | 541 | "BLD",1036 4,1,267,0) | |||
542 | c. Compar e Transpor t Global t o Current System - T his option | 542 | c. Compar e Transpor t Global t o Current System - T his option | |||
543 | "BLD",1036 4,1,268,0) | 543 | "BLD",1036 4,1,268,0) | |||
544 | will | 544 | will | |||
545 | "BLD",1036 4,1,269,0) | 545 | "BLD",1036 4,1,269,0) | |||
546 | allow you to vie w all chan ges that w ill be mad e when thi s | 546 | allow you to vie w all chan ges that w ill be mad e when thi s | |||
547 | "BLD",1036 4,1,270,0) | 547 | "BLD",1036 4,1,270,0) | |||
548 | patch is install ed. It co mpares all component s of this | 548 | patch is install ed. It co mpares all component s of this | |||
549 | "BLD",1036 4,1,271,0) | 549 | "BLD",1036 4,1,271,0) | |||
550 | patch (routines, DD's, tem plates, et c.). | 550 | patch (routines, DD's, tem plates, et c.). | |||
551 | "BLD",1036 4,1,272,0) | 551 | "BLD",1036 4,1,272,0) | |||
552 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | 552 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | |||
553 | "BLD",1036 4,1,273,0) | 553 | "BLD",1036 4,1,273,0) | |||
554 | messag e of any r outines ex ported wit h this pat ch. It wil l | 554 | messag e of any r outines ex ported wit h this pat ch. It wil l | |||
555 | "BLD",1036 4,1,274,0) | 555 | "BLD",1036 4,1,274,0) | |||
556 | not | 556 | not | |||
557 | "BLD",1036 4,1,275,0) | 557 | "BLD",1036 4,1,275,0) | |||
558 | backup any other changes s uch as DD' s or templ ates. | 558 | backup any other changes s uch as DD' s or templ ates. | |||
559 | "BLD",1036 4,1,276,0) | 559 | "BLD",1036 4,1,276,0) | |||
560 | 560 | |||||
561 | "BLD",1036 4,1,277,0) | 561 | "BLD",1036 4,1,277,0) | |||
562 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 717. | 562 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 717. | |||
563 | "BLD",1036 4,1,278,0) | 563 | "BLD",1036 4,1,278,0) | |||
564 | 564 | |||||
565 | "BLD",1036 4,1,279,0) | 565 | "BLD",1036 4,1,279,0) | |||
566 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | 566 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | |||
567 | "BLD",1036 4,1,280,0) | 567 | "BLD",1036 4,1,280,0) | |||
568 | resp ond NO. | 568 | resp ond NO. | |||
569 | "BLD",1036 4,1,281,0) | 569 | "BLD",1036 4,1,281,0) | |||
570 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | 570 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | |||
571 | "BLD",1036 4,1,282,0) | 571 | "BLD",1036 4,1,282,0) | |||
572 | Prot ocols? NO/ /", respon d NO | 572 | Prot ocols? NO/ /", respon d NO | |||
573 | "BLD",1036 4,1,283,0) | 573 | "BLD",1036 4,1,283,0) | |||
574 | 574 | |||||
575 | "BLD",1036 4,1,284,0) | 575 | "BLD",1036 4,1,284,0) | |||
576 | Back-Out/R oll Back P lan: | 576 | Back-Out/R oll Back P lan: | |||
577 | "BLD",1036 4,1,285,0) | 577 | "BLD",1036 4,1,285,0) | |||
578 | ---------- ---------- ---- | 578 | ---------- ---------- ---- | |||
579 | "BLD",1036 4,1,286,0) | 579 | "BLD",1036 4,1,286,0) | |||
580 | In the eve nt of a ca tastrophic failure, the Facili ty Chief I nformation | 580 | In the eve nt of a ca tastrophic failure, the Facili ty Chief I nformation | |||
581 | "BLD",1036 4,1,287,0) | 581 | "BLD",1036 4,1,287,0) | |||
582 | Officer ma y make the decision to back-ou t the patc h. | 582 | Officer ma y make the decision to back-ou t the patc h. | |||
583 | "BLD",1036 4,1,288,0) | 583 | "BLD",1036 4,1,288,0) | |||
584 | 584 | |||||
585 | "BLD",1036 4,1,289,0) | 585 | "BLD",1036 4,1,289,0) | |||
586 | It is impe rative tha t you have performed a backup of the rou tines and | 586 | It is impe rative tha t you have performed a backup of the rou tines and | |||
587 | "BLD",1036 4,1,290,0) | 587 | "BLD",1036 4,1,290,0) | |||
588 | the routin es include d matches the pre-pa tch checks um from th e patch | 588 | the routin es include d matches the pre-pa tch checks um from th e patch | |||
589 | "BLD",1036 4,1,291,0) | 589 | "BLD",1036 4,1,291,0) | |||
590 | descriptio n. | 590 | descriptio n. | |||
591 | "BLD",1036 4,1,292,0) | 591 | "BLD",1036 4,1,292,0) | |||
592 | 592 | |||||
593 | "BLD",1036 4,1,293,0) | 593 | "BLD",1036 4,1,293,0) | |||
594 | This patch only cont ains routi ne updates . To back- out the pa tch please | 594 | This patch only cont ains routi ne updates . To back- out the pa tch please | |||
595 | "BLD",1036 4,1,294,0) | 595 | "BLD",1036 4,1,294,0) | |||
596 | restore th e backup m essage fro m the patc h installa tion proce ss. | 596 | restore th e backup m essage fro m the patc h installa tion proce ss. | |||
597 | "BLD",1036 4,4,0) | 597 | "BLD",1036 4,4,0) | |||
598 | ^9.64PA^^ | 598 | ^9.64PA^^ | |||
599 | "BLD",1036 4,6) | 599 | "BLD",1036 4,6) | |||
600 | 1^ | 600 | 1^ | |||
601 | "BLD",1036 4,6.3) | 601 | "BLD",1036 4,6.3) | |||
602 | 7 | 602 | 7 | |||
603 | "BLD",1036 4,"KRN",0) | 603 | "BLD",1036 4,"KRN",0) | |||
604 | ^9.67PA^1. 61^23 | 604 | ^9.67PA^1. 61^23 | |||
605 | "BLD",1036 4,"KRN",.4 ,0) | 605 | "BLD",1036 4,"KRN",.4 ,0) | |||
606 | .4 | 606 | .4 | |||
607 | "BLD",1036 4,"KRN",.4 01,0) | 607 | "BLD",1036 4,"KRN",.4 01,0) | |||
608 | .401 | 608 | .401 | |||
609 | "BLD",1036 4,"KRN",.4 02,0) | 609 | "BLD",1036 4,"KRN",.4 02,0) | |||
610 | .402 | 610 | .402 | |||
611 | "BLD",1036 4,"KRN",.4 03,0) | 611 | "BLD",1036 4,"KRN",.4 03,0) | |||
612 | .403 | 612 | .403 | |||
613 | "BLD",1036 4,"KRN",.5 ,0) | 613 | "BLD",1036 4,"KRN",.5 ,0) | |||
614 | .5 | 614 | .5 | |||
615 | "BLD",1036 4,"KRN",.8 4,0) | 615 | "BLD",1036 4,"KRN",.8 4,0) | |||
616 | .84 | 616 | .84 | |||
617 | "BLD",1036 4,"KRN",1. 6,0) | 617 | "BLD",1036 4,"KRN",1. 6,0) | |||
618 | 1.6 | 618 | 1.6 | |||
619 | "BLD",1036 4,"KRN",1. 61,0) | 619 | "BLD",1036 4,"KRN",1. 61,0) | |||
620 | 1.61 | 620 | 1.61 | |||
621 | "BLD",1036 4,"KRN",1. 62,0) | 621 | "BLD",1036 4,"KRN",1. 62,0) | |||
622 | 1.62 | 622 | 1.62 | |||
623 | "BLD",1036 4,"KRN",3. 6,0) | 623 | "BLD",1036 4,"KRN",3. 6,0) | |||
624 | 3.6 | 624 | 3.6 | |||
625 | "BLD",1036 4,"KRN",3. 8,0) | 625 | "BLD",1036 4,"KRN",3. 8,0) | |||
626 | 3.8 | 626 | 3.8 | |||
627 | "BLD",1036 4,"KRN",9. 2,0) | 627 | "BLD",1036 4,"KRN",9. 2,0) | |||
628 | 9.2 | 628 | 9.2 | |||
629 | "BLD",1036 4,"KRN",9. 8,0) | 629 | "BLD",1036 4,"KRN",9. 8,0) | |||
630 | 9.8 | 630 | 9.8 | |||
631 | "BLD",1036 4,"KRN",9. 8,"NM",0) | 631 | "BLD",1036 4,"KRN",9. 8,"NM",0) | |||
632 | ^9.68A^8^7 | 632 | ^9.68A^8^7 | |||
633 | "BLD",1036 4,"KRN",9. 8,"NM",1,0 ) | 633 | "BLD",1036 4,"KRN",9. 8,"NM",1,0 ) | |||
634 | SDAMEVT^^0 ^B32857672 | 634 | SDAMEVT^^0 ^B32857672 | |||
635 | "BLD",1036 4,"KRN",9. 8,"NM",2,0 ) | 635 | "BLD",1036 4,"KRN",9. 8,"NM",2,0 ) | |||
636 | SDCO3^^0^B 4283789 | 636 | SDCO3^^0^B 4283789 | |||
637 | "BLD",1036 4,"KRN",9. 8,"NM",3,0 ) | 637 | "BLD",1036 4,"KRN",9. 8,"NM",3,0 ) | |||
638 | SDCODEL^^0 ^B14749068 | 638 | SDCODEL^^0 ^B14749068 | |||
639 | "BLD",1036 4,"KRN",9. 8,"NM",4,0 ) | 639 | "BLD",1036 4,"KRN",9. 8,"NM",4,0 ) | |||
640 | SDEC07B^^0 ^B86344811 | 640 | SDEC07B^^0 ^B86344811 | |||
641 | "BLD",1036 4,"KRN",9. 8,"NM",5,0 ) | 641 | "BLD",1036 4,"KRN",9. 8,"NM",5,0 ) | |||
642 | SDEC08^^0^ B217036692 | 642 | SDEC08^^0^ B217036692 | |||
643 | "BLD",1036 4,"KRN",9. 8,"NM",6,0 ) | 643 | "BLD",1036 4,"KRN",9. 8,"NM",6,0 ) | |||
644 | SDEC25^^0^ B151472805 | 644 | SDEC25^^0^ B151472805 | |||
645 | "BLD",1036 4,"KRN",9. 8,"NM",8,0 ) | 645 | "BLD",1036 4,"KRN",9. 8,"NM",8,0 ) | |||
646 | SDEC31^^0^ B34969907 | 646 | SDEC31^^0^ B34969907 | |||
647 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDAMEVT" ,1) | 647 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDAMEVT" ,1) | |||
648 | 648 | |||||
649 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCO3",2 ) | 649 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCO3",2 ) | |||
650 | 650 | |||||
651 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCODEL" ,3) | 651 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCODEL" ,3) | |||
652 | 652 | |||||
653 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC07B" ,4) | 653 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC07B" ,4) | |||
654 | 654 | |||||
655 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC08", 5) | 655 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC08", 5) | |||
656 | 656 | |||||
657 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC25", 6) | 657 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC25", 6) | |||
658 | 658 | |||||
659 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC31", 8) | 659 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC31", 8) | |||
660 | 660 | |||||
661 | "BLD",1036 4,"KRN",19 ,0) | 661 | "BLD",1036 4,"KRN",19 ,0) | |||
662 | 19 | 662 | 19 | |||
663 | "BLD",1036 4,"KRN",19 .1,0) | 663 | "BLD",1036 4,"KRN",19 .1,0) | |||
664 | 19.1 | 664 | 19.1 | |||
665 | "BLD",1036 4,"KRN",10 1,0) | 665 | "BLD",1036 4,"KRN",10 1,0) | |||
666 | 101 | 666 | 101 | |||
667 | "BLD",1036 4,"KRN",40 9.61,0) | 667 | "BLD",1036 4,"KRN",40 9.61,0) | |||
668 | 409.61 | 668 | 409.61 | |||
669 | "BLD",1036 4,"KRN",77 1,0) | 669 | "BLD",1036 4,"KRN",77 1,0) | |||
670 | 771 | 670 | 771 | |||
671 | "BLD",1036 4,"KRN",77 9.2,0) | 671 | "BLD",1036 4,"KRN",77 9.2,0) | |||
672 | 779.2 | 672 | 779.2 | |||
673 | "BLD",1036 4,"KRN",87 0,0) | 673 | "BLD",1036 4,"KRN",87 0,0) | |||
674 | 870 | 674 | 870 | |||
675 | "BLD",1036 4,"KRN",89 89.51,0) | 675 | "BLD",1036 4,"KRN",89 89.51,0) | |||
676 | 8989.51 | 676 | 8989.51 | |||
677 | "BLD",1036 4,"KRN",89 89.52,0) | 677 | "BLD",1036 4,"KRN",89 89.52,0) | |||
678 | 8989.52 | 678 | 8989.52 | |||
679 | "BLD",1036 4,"KRN",89 94,0) | 679 | "BLD",1036 4,"KRN",89 94,0) | |||
680 | 8994 | 680 | 8994 | |||
681 | "BLD",1036 4,"KRN","B ",.4,.4) | 681 | "BLD",1036 4,"KRN","B ",.4,.4) | |||
682 | 682 | |||||
683 | "BLD",1036 4,"KRN","B ",.401,.40 1) | 683 | "BLD",1036 4,"KRN","B ",.401,.40 1) | |||
684 | 684 | |||||
685 | "BLD",1036 4,"KRN","B ",.402,.40 2) | 685 | "BLD",1036 4,"KRN","B ",.402,.40 2) | |||
686 | 686 | |||||
687 | "BLD",1036 4,"KRN","B ",.403,.40 3) | 687 | "BLD",1036 4,"KRN","B ",.403,.40 3) | |||
688 | 688 | |||||
689 | "BLD",1036 4,"KRN","B ",.5,.5) | 689 | "BLD",1036 4,"KRN","B ",.5,.5) | |||
690 | 690 | |||||
691 | "BLD",1036 4,"KRN","B ",.84,.84) | 691 | "BLD",1036 4,"KRN","B ",.84,.84) | |||
692 | 692 | |||||
693 | "BLD",1036 4,"KRN","B ",1.6,1.6) | 693 | "BLD",1036 4,"KRN","B ",1.6,1.6) | |||
694 | 694 | |||||
695 | "BLD",1036 4,"KRN","B ",1.61,1.6 1) | 695 | "BLD",1036 4,"KRN","B ",1.61,1.6 1) | |||
696 | 696 | |||||
697 | "BLD",1036 4,"KRN","B ",1.62,1.6 2) | 697 | "BLD",1036 4,"KRN","B ",1.62,1.6 2) | |||
698 | 698 | |||||
699 | "BLD",1036 4,"KRN","B ",3.6,3.6) | 699 | "BLD",1036 4,"KRN","B ",3.6,3.6) | |||
700 | 700 | |||||
701 | "BLD",1036 4,"KRN","B ",3.8,3.8) | 701 | "BLD",1036 4,"KRN","B ",3.8,3.8) | |||
702 | 702 | |||||
703 | "BLD",1036 4,"KRN","B ",9.2,9.2) | 703 | "BLD",1036 4,"KRN","B ",9.2,9.2) | |||
704 | 704 | |||||
705 | "BLD",1036 4,"KRN","B ",9.8,9.8) | 705 | "BLD",1036 4,"KRN","B ",9.8,9.8) | |||
706 | 706 | |||||
707 | "BLD",1036 4,"KRN","B ",19,19) | 707 | "BLD",1036 4,"KRN","B ",19,19) | |||
708 | 708 | |||||
709 | "BLD",1036 4,"KRN","B ",19.1,19. 1) | 709 | "BLD",1036 4,"KRN","B ",19.1,19. 1) | |||
710 | 710 | |||||
711 | "BLD",1036 4,"KRN","B ",101,101) | 711 | "BLD",1036 4,"KRN","B ",101,101) | |||
712 | 712 | |||||
713 | "BLD",1036 4,"KRN","B ",409.61,4 09.61) | 713 | "BLD",1036 4,"KRN","B ",409.61,4 09.61) | |||
714 | 714 | |||||
715 | "BLD",1036 4,"KRN","B ",771,771) | 715 | "BLD",1036 4,"KRN","B ",771,771) | |||
716 | 716 | |||||
717 | "BLD",1036 4,"KRN","B ",779.2,77 9.2) | 717 | "BLD",1036 4,"KRN","B ",779.2,77 9.2) | |||
718 | 718 | |||||
719 | "BLD",1036 4,"KRN","B ",870,870) | 719 | "BLD",1036 4,"KRN","B ",870,870) | |||
720 | 720 | |||||
721 | "BLD",1036 4,"KRN","B ",8989.51, 8989.51) | 721 | "BLD",1036 4,"KRN","B ",8989.51, 8989.51) | |||
722 | 722 | |||||
723 | "BLD",1036 4,"KRN","B ",8989.52, 8989.52) | 723 | "BLD",1036 4,"KRN","B ",8989.52, 8989.52) | |||
724 | 724 | |||||
725 | "BLD",1036 4,"KRN","B ",8994,899 4) | 725 | "BLD",1036 4,"KRN","B ",8994,899 4) | |||
726 | 726 | |||||
727 | "BLD",1036 4,"QUES",0 ) | 727 | "BLD",1036 4,"QUES",0 ) | |||
728 | ^9.62^^ | 728 | ^9.62^^ | |||
729 | "BLD",1036 4,"REQB",0 ) | 729 | "BLD",1036 4,"REQB",0 ) | |||
730 | ^9.611^7^6 | 730 | ^9.611^7^6 | |||
731 | "BLD",1036 4,"REQB",1 ,0) | 731 | "BLD",1036 4,"REQB",1 ,0) | |||
732 | DVBA*2.7*2 08^2 | 732 | DVBA*2.7*2 08^2 | |||
733 | "BLD",1036 4,"REQB",2 ,0) | 733 | "BLD",1036 4,"REQB",2 ,0) | |||
734 | SD*5.3*443 ^2 | 734 | SD*5.3*443 ^2 | |||
735 | "BLD",1036 4,"REQB",3 ,0) | 735 | "BLD",1036 4,"REQB",3 ,0) | |||
736 | SD*5.3*466 ^2 | 736 | SD*5.3*466 ^2 | |||
737 | "BLD",1036 4,"REQB",5 ,0) | 737 | "BLD",1036 4,"REQB",5 ,0) | |||
738 | SD*5.3*671 ^2 | 738 | SD*5.3*671 ^2 | |||
739 | "BLD",1036 4,"REQB",6 ,0) | 739 | "BLD",1036 4,"REQB",6 ,0) | |||
740 | SD*5.3*683 ^2 | 740 | SD*5.3*683 ^2 | |||
741 | "BLD",1036 4,"REQB",7 ,0) | 741 | "BLD",1036 4,"REQB",7 ,0) | |||
742 | SD*5.3*722 ^2 | 742 | SD*5.3*722 ^2 | |||
743 | "BLD",1036 4,"REQB"," B","DVBA*2 .7*208",1) | 743 | "BLD",1036 4,"REQB"," B","DVBA*2 .7*208",1) | |||
744 | 744 | |||||
745 | "BLD",1036 4,"REQB"," B","SD*5.3 *443",2) | 745 | "BLD",1036 4,"REQB"," B","SD*5.3 *443",2) | |||
746 | 746 | |||||
747 | "BLD",1036 4,"REQB"," B","SD*5.3 *466",3) | 747 | "BLD",1036 4,"REQB"," B","SD*5.3 *466",3) | |||
748 | 748 | |||||
749 | "BLD",1036 4,"REQB"," B","SD*5.3 *671",5) | 749 | "BLD",1036 4,"REQB"," B","SD*5.3 *671",5) | |||
750 | 750 | |||||
751 | "BLD",1036 4,"REQB"," B","SD*5.3 *683",6) | 751 | "BLD",1036 4,"REQB"," B","SD*5.3 *683",6) | |||
752 | 752 | |||||
753 | "BLD",1036 4,"REQB"," B","SD*5.3 *722",7) | 753 | "BLD",1036 4,"REQB"," B","SD*5.3 *722",7) | |||
754 | 754 | |||||
755 | "MBREQ") | 755 | "MBREQ") | |||
756 | 0 | 756 | 0 | |||
757 | "PKG",48,- 1) | 757 | "PKG",48,- 1) | |||
758 | 1^1 | 758 | 1^1 | |||
759 | "PKG",48,0 ) | 759 | "PKG",48,0 ) | |||
760 | SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS | 760 | SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS | |||
761 | "PKG",48,2 2,0) | 761 | "PKG",48,2 2,0) | |||
762 | ^9.49I^1^1 | 762 | ^9.49I^1^1 | |||
763 | "PKG",48,2 2,1,0) | 763 | "PKG",48,2 2,1,0) | |||
764 | 5.3^305111 9^2960613 | 764 | 5.3^305111 9^2960613 | |||
765 | "PKG",48,2 2,1,"PAH", 1,0) | 765 | "PKG",48,2 2,1,"PAH", 1,0) | |||
766 | 717^319032 6^114 | 766 | 717^319032 6^114 | |||
767 | "PKG",48,2 2,1,"PAH", 1,1,0) | 767 | "PKG",48,2 2,1,"PAH", 1,1,0) | |||
768 | ^^294^294^ 3190326 | 768 | ^^294^294^ 3190326 | |||
769 | "PKG",48,2 2,1,"PAH", 1,1,1,0) | 769 | "PKG",48,2 2,1,"PAH", 1,1,1,0) | |||
770 | This patch corrects the proble m of appoi ntment pro cessing in VistA | 770 | This patch corrects the proble m of appoi ntment pro cessing in VistA | |||
771 | "PKG",48,2 2,1,"PAH", 1,1,2,0) | 771 | "PKG",48,2 2,1,"PAH", 1,1,2,0) | |||
772 | Scheduling (VS) GUI not invoki ng the eve nt driver protocol ( SDAM | 772 | Scheduling (VS) GUI not invoki ng the eve nt driver protocol ( SDAM | |||
773 | "PKG",48,2 2,1,"PAH", 1,1,3,0) | 773 | "PKG",48,2 2,1,"PAH", 1,1,3,0) | |||
774 | APPOINTMEN T | 774 | APPOINTMEN T | |||
775 | "PKG",48,2 2,1,"PAH", 1,1,4,0) | 775 | "PKG",48,2 2,1,"PAH", 1,1,4,0) | |||
776 | EVENTS) th at roll an d scroll V istA does. This prot ocol allow s other ap ps | 776 | EVENTS) th at roll an d scroll V istA does. This prot ocol allow s other ap ps | |||
777 | "PKG",48,2 2,1,"PAH", 1,1,5,0) | 777 | "PKG",48,2 2,1,"PAH", 1,1,5,0) | |||
778 | to tie fun ctionality , includin g interfac es to exte rnal syste ms such as | 778 | to tie fun ctionality , includin g interfac es to exte rnal syste ms such as | |||
779 | "PKG",48,2 2,1,"PAH", 1,1,6,0) | 779 | "PKG",48,2 2,1,"PAH", 1,1,6,0) | |||
780 | Pyxis, Omn icell, and EDIS,to a ppointment events. A ctions cur rently bei ng | 780 | Pyxis, Omn icell, and EDIS,to a ppointment events. A ctions cur rently bei ng | |||
781 | "PKG",48,2 2,1,"PAH", 1,1,7,0) | 781 | "PKG",48,2 2,1,"PAH", 1,1,7,0) | |||
782 | executed f or appoint ment event s in legac y VistA wi ll also be executed for | 782 | executed f or appoint ment event s in legac y VistA wi ll also be executed for | |||
783 | "PKG",48,2 2,1,"PAH", 1,1,8,0) | 783 | "PKG",48,2 2,1,"PAH", 1,1,8,0) | |||
784 | appointmen ts when th ose events (make app ointment, check in, undo check in, | 784 | appointmen ts when th ose events (make app ointment, check in, undo check in, | |||
785 | "PKG",48,2 2,1,"PAH", 1,1,9,0) | 785 | "PKG",48,2 2,1,"PAH", 1,1,9,0) | |||
786 | check out, undo chec k out, can cel appoin tment, no show) are triggered by | 786 | check out, undo chec k out, can cel appoin tment, no show) are triggered by | |||
787 | "PKG",48,2 2,1,"PAH", 1,1,10,0) | 787 | "PKG",48,2 2,1,"PAH", 1,1,10,0) | |||
788 | the GUI. ( However, t his patch does not r equire a G UI update. ) | 788 | the GUI. ( However, t his patch does not r equire a G UI update. ) | |||
789 | "PKG",48,2 2,1,"PAH", 1,1,11,0) | 789 | "PKG",48,2 2,1,"PAH", 1,1,11,0) | |||
790 | 790 | |||||
791 | "PKG",48,2 2,1,"PAH", 1,1,12,0) | 791 | "PKG",48,2 2,1,"PAH", 1,1,12,0) | |||
792 | Patch Comp onents | 792 | Patch Comp onents | |||
793 | "PKG",48,2 2,1,"PAH", 1,1,13,0) | 793 | "PKG",48,2 2,1,"PAH", 1,1,13,0) | |||
794 | ========== ====== | 794 | ========== ====== | |||
795 | "PKG",48,2 2,1,"PAH", 1,1,14,0) | 795 | "PKG",48,2 2,1,"PAH", 1,1,14,0) | |||
796 | 796 | |||||
797 | "PKG",48,2 2,1,"PAH", 1,1,15,0) | 797 | "PKG",48,2 2,1,"PAH", 1,1,15,0) | |||
798 | Files & Fi elds Assoc iated: | 798 | Files & Fi elds Assoc iated: | |||
799 | "PKG",48,2 2,1,"PAH", 1,1,16,0) | 799 | "PKG",48,2 2,1,"PAH", 1,1,16,0) | |||
800 | 800 | |||||
801 | "PKG",48,2 2,1,"PAH", 1,1,17,0) | 801 | "PKG",48,2 2,1,"PAH", 1,1,17,0) | |||
802 | File Name (#) Ne w/Modified / | 802 | File Name (#) Ne w/Modified / | |||
803 | "PKG",48,2 2,1,"PAH", 1,1,18,0) | 803 | "PKG",48,2 2,1,"PAH", 1,1,18,0) | |||
804 | Sub-file Name (#) Field Na me (Number ) Deleted | 804 | Sub-file Name (#) Field Na me (Number ) Deleted | |||
805 | "PKG",48,2 2,1,"PAH", 1,1,19,0) | 805 | "PKG",48,2 2,1,"PAH", 1,1,19,0) | |||
806 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | 806 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | |||
807 | "PKG",48,2 2,1,"PAH", 1,1,20,0) | 807 | "PKG",48,2 2,1,"PAH", 1,1,20,0) | |||
808 | N/A | 808 | N/A | |||
809 | "PKG",48,2 2,1,"PAH", 1,1,21,0) | 809 | "PKG",48,2 2,1,"PAH", 1,1,21,0) | |||
810 | 810 | |||||
811 | "PKG",48,2 2,1,"PAH", 1,1,22,0) | 811 | "PKG",48,2 2,1,"PAH", 1,1,22,0) | |||
812 | Bulletins Associated : | 812 | Bulletins Associated : | |||
813 | "PKG",48,2 2,1,"PAH", 1,1,23,0) | 813 | "PKG",48,2 2,1,"PAH", 1,1,23,0) | |||
814 | Ne w/Modified / | 814 | Ne w/Modified / | |||
815 | "PKG",48,2 2,1,"PAH", 1,1,24,0) | 815 | "PKG",48,2 2,1,"PAH", 1,1,24,0) | |||
816 | Bulletin N ame Deleted | 816 | Bulletin N ame Deleted | |||
817 | "PKG",48,2 2,1,"PAH", 1,1,25,0) | 817 | "PKG",48,2 2,1,"PAH", 1,1,25,0) | |||
818 | ---------- --- -- ---------- - | 818 | ---------- --- -- ---------- - | |||
819 | "PKG",48,2 2,1,"PAH", 1,1,26,0) | 819 | "PKG",48,2 2,1,"PAH", 1,1,26,0) | |||
820 | N/A | 820 | N/A | |||
821 | "PKG",48,2 2,1,"PAH", 1,1,27,0) | 821 | "PKG",48,2 2,1,"PAH", 1,1,27,0) | |||
822 | 822 | |||||
823 | "PKG",48,2 2,1,"PAH", 1,1,28,0) | 823 | "PKG",48,2 2,1,"PAH", 1,1,28,0) | |||
824 | 824 | |||||
825 | "PKG",48,2 2,1,"PAH", 1,1,29,0) | 825 | "PKG",48,2 2,1,"PAH", 1,1,29,0) | |||
826 | 826 | |||||
827 | "PKG",48,2 2,1,"PAH", 1,1,30,0) | 827 | "PKG",48,2 2,1,"PAH", 1,1,30,0) | |||
828 | Dialogs As sociated: | 828 | Dialogs As sociated: | |||
829 | "PKG",48,2 2,1,"PAH", 1,1,31,0) | 829 | "PKG",48,2 2,1,"PAH", 1,1,31,0) | |||
830 | Ne w/Modified / | 830 | Ne w/Modified / | |||
831 | "PKG",48,2 2,1,"PAH", 1,1,32,0) | 831 | "PKG",48,2 2,1,"PAH", 1,1,32,0) | |||
832 | Dialog Nam e Deleted | 832 | Dialog Nam e Deleted | |||
833 | "PKG",48,2 2,1,"PAH", 1,1,33,0) | 833 | "PKG",48,2 2,1,"PAH", 1,1,33,0) | |||
834 | ---------- - -- ---------- - | 834 | ---------- - -- ---------- - | |||
835 | "PKG",48,2 2,1,"PAH", 1,1,34,0) | 835 | "PKG",48,2 2,1,"PAH", 1,1,34,0) | |||
836 | N/A | 836 | N/A | |||
837 | "PKG",48,2 2,1,"PAH", 1,1,35,0) | 837 | "PKG",48,2 2,1,"PAH", 1,1,35,0) | |||
838 | 838 | |||||
839 | "PKG",48,2 2,1,"PAH", 1,1,36,0) | 839 | "PKG",48,2 2,1,"PAH", 1,1,36,0) | |||
840 | 840 | |||||
841 | "PKG",48,2 2,1,"PAH", 1,1,37,0) | 841 | "PKG",48,2 2,1,"PAH", 1,1,37,0) | |||
842 | 842 | |||||
843 | "PKG",48,2 2,1,"PAH", 1,1,38,0) | 843 | "PKG",48,2 2,1,"PAH", 1,1,38,0) | |||
844 | Forms Asso ciated: | 844 | Forms Asso ciated: | |||
845 | "PKG",48,2 2,1,"PAH", 1,1,39,0) | 845 | "PKG",48,2 2,1,"PAH", 1,1,39,0) | |||
846 | Ne w/Modified / | 846 | Ne w/Modified / | |||
847 | "PKG",48,2 2,1,"PAH", 1,1,40,0) | 847 | "PKG",48,2 2,1,"PAH", 1,1,40,0) | |||
848 | Form Name F ile Name ( Number) Deleted | 848 | Form Name F ile Name ( Number) Deleted | |||
849 | "PKG",48,2 2,1,"PAH", 1,1,41,0) | 849 | "PKG",48,2 2,1,"PAH", 1,1,41,0) | |||
850 | --------- - ---------- ------- -- ---------- - | 850 | --------- - ---------- ------- -- ---------- - | |||
851 | "PKG",48,2 2,1,"PAH", 1,1,42,0) | 851 | "PKG",48,2 2,1,"PAH", 1,1,42,0) | |||
852 | N/A | 852 | N/A | |||
853 | "PKG",48,2 2,1,"PAH", 1,1,43,0) | 853 | "PKG",48,2 2,1,"PAH", 1,1,43,0) | |||
854 | 854 | |||||
855 | "PKG",48,2 2,1,"PAH", 1,1,44,0) | 855 | "PKG",48,2 2,1,"PAH", 1,1,44,0) | |||
856 | 856 | |||||
857 | "PKG",48,2 2,1,"PAH", 1,1,45,0) | 857 | "PKG",48,2 2,1,"PAH", 1,1,45,0) | |||
858 | 858 | |||||
859 | "PKG",48,2 2,1,"PAH", 1,1,46,0) | 859 | "PKG",48,2 2,1,"PAH", 1,1,46,0) | |||
860 | Functions Associated : | 860 | Functions Associated : | |||
861 | "PKG",48,2 2,1,"PAH", 1,1,47,0) | 861 | "PKG",48,2 2,1,"PAH", 1,1,47,0) | |||
862 | Ne w/Modified / | 862 | Ne w/Modified / | |||
863 | "PKG",48,2 2,1,"PAH", 1,1,48,0) | 863 | "PKG",48,2 2,1,"PAH", 1,1,48,0) | |||
864 | Function N ame Deleted | 864 | Function N ame Deleted | |||
865 | "PKG",48,2 2,1,"PAH", 1,1,49,0) | 865 | "PKG",48,2 2,1,"PAH", 1,1,49,0) | |||
866 | ---------- --- -- ---------- - | 866 | ---------- --- -- ---------- - | |||
867 | "PKG",48,2 2,1,"PAH", 1,1,50,0) | 867 | "PKG",48,2 2,1,"PAH", 1,1,50,0) | |||
868 | N/A | 868 | N/A | |||
869 | "PKG",48,2 2,1,"PAH", 1,1,51,0) | 869 | "PKG",48,2 2,1,"PAH", 1,1,51,0) | |||
870 | 870 | |||||
871 | "PKG",48,2 2,1,"PAH", 1,1,52,0) | 871 | "PKG",48,2 2,1,"PAH", 1,1,52,0) | |||
872 | 872 | |||||
873 | "PKG",48,2 2,1,"PAH", 1,1,53,0) | 873 | "PKG",48,2 2,1,"PAH", 1,1,53,0) | |||
874 | 874 | |||||
875 | "PKG",48,2 2,1,"PAH", 1,1,54,0) | 875 | "PKG",48,2 2,1,"PAH", 1,1,54,0) | |||
876 | HL Logical Link: | 876 | HL Logical Link: | |||
877 | "PKG",48,2 2,1,"PAH", 1,1,55,0) | 877 | "PKG",48,2 2,1,"PAH", 1,1,55,0) | |||
878 | Ne w/Modified / | 878 | Ne w/Modified / | |||
879 | "PKG",48,2 2,1,"PAH", 1,1,56,0) | 879 | "PKG",48,2 2,1,"PAH", 1,1,56,0) | |||
880 | HL Logical Name Deleted | 880 | HL Logical Name Deleted | |||
881 | "PKG",48,2 2,1,"PAH", 1,1,57,0) | 881 | "PKG",48,2 2,1,"PAH", 1,1,57,0) | |||
882 | ---------- ----- -- ---------- - | 882 | ---------- ----- -- ---------- - | |||
883 | "PKG",48,2 2,1,"PAH", 1,1,58,0) | 883 | "PKG",48,2 2,1,"PAH", 1,1,58,0) | |||
884 | N/A | 884 | N/A | |||
885 | "PKG",48,2 2,1,"PAH", 1,1,59,0) | 885 | "PKG",48,2 2,1,"PAH", 1,1,59,0) | |||
886 | 886 | |||||
887 | "PKG",48,2 2,1,"PAH", 1,1,60,0) | 887 | "PKG",48,2 2,1,"PAH", 1,1,60,0) | |||
888 | 888 | |||||
889 | "PKG",48,2 2,1,"PAH", 1,1,61,0) | 889 | "PKG",48,2 2,1,"PAH", 1,1,61,0) | |||
890 | 890 | |||||
891 | "PKG",48,2 2,1,"PAH", 1,1,62,0) | 891 | "PKG",48,2 2,1,"PAH", 1,1,62,0) | |||
892 | HL7 Applic ation Para meters: | 892 | HL7 Applic ation Para meters: | |||
893 | "PKG",48,2 2,1,"PAH", 1,1,63,0) | 893 | "PKG",48,2 2,1,"PAH", 1,1,63,0) | |||
894 | Ne w/Modified / | 894 | Ne w/Modified / | |||
895 | "PKG",48,2 2,1,"PAH", 1,1,64,0) | 895 | "PKG",48,2 2,1,"PAH", 1,1,64,0) | |||
896 | HL7 Parame ter Name Deleted | 896 | HL7 Parame ter Name Deleted | |||
897 | "PKG",48,2 2,1,"PAH", 1,1,65,0) | 897 | "PKG",48,2 2,1,"PAH", 1,1,65,0) | |||
898 | ---------- -------- -- ---------- - | 898 | ---------- -------- -- ---------- - | |||
899 | "PKG",48,2 2,1,"PAH", 1,1,66,0) | 899 | "PKG",48,2 2,1,"PAH", 1,1,66,0) | |||
900 | N/A | 900 | N/A | |||
901 | "PKG",48,2 2,1,"PAH", 1,1,67,0) | 901 | "PKG",48,2 2,1,"PAH", 1,1,67,0) | |||
902 | 902 | |||||
903 | "PKG",48,2 2,1,"PAH", 1,1,68,0) | 903 | "PKG",48,2 2,1,"PAH", 1,1,68,0) | |||
904 | 904 | |||||
905 | "PKG",48,2 2,1,"PAH", 1,1,69,0) | 905 | "PKG",48,2 2,1,"PAH", 1,1,69,0) | |||
906 | 906 | |||||
907 | "PKG",48,2 2,1,"PAH", 1,1,70,0) | 907 | "PKG",48,2 2,1,"PAH", 1,1,70,0) | |||
908 | HLO Applic ation Regi stry: | 908 | HLO Applic ation Regi stry: | |||
909 | "PKG",48,2 2,1,"PAH", 1,1,71,0) | 909 | "PKG",48,2 2,1,"PAH", 1,1,71,0) | |||
910 | Ne w/Modified / | 910 | Ne w/Modified / | |||
911 | "PKG",48,2 2,1,"PAH", 1,1,72,0) | 911 | "PKG",48,2 2,1,"PAH", 1,1,72,0) | |||
912 | HLO Regist ry Name Deleted | 912 | HLO Regist ry Name Deleted | |||
913 | "PKG",48,2 2,1,"PAH", 1,1,73,0) | 913 | "PKG",48,2 2,1,"PAH", 1,1,73,0) | |||
914 | ---------- ------- -- ---------- - | 914 | ---------- ------- -- ---------- - | |||
915 | "PKG",48,2 2,1,"PAH", 1,1,74,0) | 915 | "PKG",48,2 2,1,"PAH", 1,1,74,0) | |||
916 | N/A | 916 | N/A | |||
917 | "PKG",48,2 2,1,"PAH", 1,1,75,0) | 917 | "PKG",48,2 2,1,"PAH", 1,1,75,0) | |||
918 | 918 | |||||
919 | "PKG",48,2 2,1,"PAH", 1,1,76,0) | 919 | "PKG",48,2 2,1,"PAH", 1,1,76,0) | |||
920 | 920 | |||||
921 | "PKG",48,2 2,1,"PAH", 1,1,77,0) | 921 | "PKG",48,2 2,1,"PAH", 1,1,77,0) | |||
922 | 922 | |||||
923 | "PKG",48,2 2,1,"PAH", 1,1,78,0) | 923 | "PKG",48,2 2,1,"PAH", 1,1,78,0) | |||
924 | Help Frame s Associat ed: | 924 | Help Frame s Associat ed: | |||
925 | "PKG",48,2 2,1,"PAH", 1,1,79,0) | 925 | "PKG",48,2 2,1,"PAH", 1,1,79,0) | |||
926 | Ne w/Modified / | 926 | Ne w/Modified / | |||
927 | "PKG",48,2 2,1,"PAH", 1,1,80,0) | 927 | "PKG",48,2 2,1,"PAH", 1,1,80,0) | |||
928 | Help Frame Name Deleted | 928 | Help Frame Name Deleted | |||
929 | "PKG",48,2 2,1,"PAH", 1,1,81,0) | 929 | "PKG",48,2 2,1,"PAH", 1,1,81,0) | |||
930 | ---------- ----- -- ---------- - | 930 | ---------- ----- -- ---------- - | |||
931 | "PKG",48,2 2,1,"PAH", 1,1,82,0) | 931 | "PKG",48,2 2,1,"PAH", 1,1,82,0) | |||
932 | N/A | 932 | N/A | |||
933 | "PKG",48,2 2,1,"PAH", 1,1,83,0) | 933 | "PKG",48,2 2,1,"PAH", 1,1,83,0) | |||
934 | 934 | |||||
935 | "PKG",48,2 2,1,"PAH", 1,1,84,0) | 935 | "PKG",48,2 2,1,"PAH", 1,1,84,0) | |||
936 | 936 | |||||
937 | "PKG",48,2 2,1,"PAH", 1,1,85,0) | 937 | "PKG",48,2 2,1,"PAH", 1,1,85,0) | |||
938 | 938 | |||||
939 | "PKG",48,2 2,1,"PAH", 1,1,86,0) | 939 | "PKG",48,2 2,1,"PAH", 1,1,86,0) | |||
940 | Mail Group s Associat ed: | 940 | Mail Group s Associat ed: | |||
941 | "PKG",48,2 2,1,"PAH", 1,1,87,0) | 941 | "PKG",48,2 2,1,"PAH", 1,1,87,0) | |||
942 | Ne w/Modified / | 942 | Ne w/Modified / | |||
943 | "PKG",48,2 2,1,"PAH", 1,1,88,0) | 943 | "PKG",48,2 2,1,"PAH", 1,1,88,0) | |||
944 | Mail Group Name Deleted | 944 | Mail Group Name Deleted | |||
945 | "PKG",48,2 2,1,"PAH", 1,1,89,0) | 945 | "PKG",48,2 2,1,"PAH", 1,1,89,0) | |||
946 | ---------- ----- -- ---------- - | 946 | ---------- ----- -- ---------- - | |||
947 | "PKG",48,2 2,1,"PAH", 1,1,90,0) | 947 | "PKG",48,2 2,1,"PAH", 1,1,90,0) | |||
948 | N/A | 948 | N/A | |||
949 | "PKG",48,2 2,1,"PAH", 1,1,91,0) | 949 | "PKG",48,2 2,1,"PAH", 1,1,91,0) | |||
950 | 950 | |||||
951 | "PKG",48,2 2,1,"PAH", 1,1,92,0) | 951 | "PKG",48,2 2,1,"PAH", 1,1,92,0) | |||
952 | 952 | |||||
953 | "PKG",48,2 2,1,"PAH", 1,1,93,0) | 953 | "PKG",48,2 2,1,"PAH", 1,1,93,0) | |||
954 | 954 | |||||
955 | "PKG",48,2 2,1,"PAH", 1,1,94,0) | 955 | "PKG",48,2 2,1,"PAH", 1,1,94,0) | |||
956 | Options As sociated: | 956 | Options As sociated: | |||
957 | "PKG",48,2 2,1,"PAH", 1,1,95,0) | 957 | "PKG",48,2 2,1,"PAH", 1,1,95,0) | |||
958 | 958 | |||||
959 | "PKG",48,2 2,1,"PAH", 1,1,96,0) | 959 | "PKG",48,2 2,1,"PAH", 1,1,96,0) | |||
960 | New/Modifi ed/ | 960 | New/Modifi ed/ | |||
961 | "PKG",48,2 2,1,"PAH", 1,1,97,0) | 961 | "PKG",48,2 2,1,"PAH", 1,1,97,0) | |||
962 | Option Nam e Typ e | 962 | Option Nam e Typ e | |||
963 | "PKG",48,2 2,1,"PAH", 1,1,98,0) | 963 | "PKG",48,2 2,1,"PAH", 1,1,98,0) | |||
964 | Deleted | 964 | Deleted | |||
965 | "PKG",48,2 2,1,"PAH", 1,1,99,0) | 965 | "PKG",48,2 2,1,"PAH", 1,1,99,0) | |||
966 | ---------- - --- - | 966 | ---------- - --- - | |||
967 | "PKG",48,2 2,1,"PAH", 1,1,100,0) | 967 | "PKG",48,2 2,1,"PAH", 1,1,100,0) | |||
968 | ---------- --- | 968 | ---------- --- | |||
969 | "PKG",48,2 2,1,"PAH", 1,1,101,0) | 969 | "PKG",48,2 2,1,"PAH", 1,1,101,0) | |||
970 | N/A | 970 | N/A | |||
971 | "PKG",48,2 2,1,"PAH", 1,1,102,0) | 971 | "PKG",48,2 2,1,"PAH", 1,1,102,0) | |||
972 | 972 | |||||
973 | "PKG",48,2 2,1,"PAH", 1,1,103,0) | 973 | "PKG",48,2 2,1,"PAH", 1,1,103,0) | |||
974 | 974 | |||||
975 | "PKG",48,2 2,1,"PAH", 1,1,104,0) | 975 | "PKG",48,2 2,1,"PAH", 1,1,104,0) | |||
976 | 976 | |||||
977 | "PKG",48,2 2,1,"PAH", 1,1,105,0) | 977 | "PKG",48,2 2,1,"PAH", 1,1,105,0) | |||
978 | Parameter Definition s: | 978 | Parameter Definition s: | |||
979 | "PKG",48,2 2,1,"PAH", 1,1,106,0) | 979 | "PKG",48,2 2,1,"PAH", 1,1,106,0) | |||
980 | Ne w/Modified / | 980 | Ne w/Modified / | |||
981 | "PKG",48,2 2,1,"PAH", 1,1,107,0) | 981 | "PKG",48,2 2,1,"PAH", 1,1,107,0) | |||
982 | Parameter Name Deleted | 982 | Parameter Name Deleted | |||
983 | "PKG",48,2 2,1,"PAH", 1,1,108,0) | 983 | "PKG",48,2 2,1,"PAH", 1,1,108,0) | |||
984 | ---------- ---- -- ---------- - | 984 | ---------- ---- -- ---------- - | |||
985 | "PKG",48,2 2,1,"PAH", 1,1,109,0) | 985 | "PKG",48,2 2,1,"PAH", 1,1,109,0) | |||
986 | N/A | 986 | N/A | |||
987 | "PKG",48,2 2,1,"PAH", 1,1,110,0) | 987 | "PKG",48,2 2,1,"PAH", 1,1,110,0) | |||
988 | 988 | |||||
989 | "PKG",48,2 2,1,"PAH", 1,1,111,0) | 989 | "PKG",48,2 2,1,"PAH", 1,1,111,0) | |||
990 | 990 | |||||
991 | "PKG",48,2 2,1,"PAH", 1,1,112,0) | 991 | "PKG",48,2 2,1,"PAH", 1,1,112,0) | |||
992 | 992 | |||||
993 | "PKG",48,2 2,1,"PAH", 1,1,113,0) | 993 | "PKG",48,2 2,1,"PAH", 1,1,113,0) | |||
994 | Parameter Template: | 994 | Parameter Template: | |||
995 | "PKG",48,2 2,1,"PAH", 1,1,114,0) | 995 | "PKG",48,2 2,1,"PAH", 1,1,114,0) | |||
996 | Ne w/Modified / | 996 | Ne w/Modified / | |||
997 | "PKG",48,2 2,1,"PAH", 1,1,115,0) | 997 | "PKG",48,2 2,1,"PAH", 1,1,115,0) | |||
998 | Template N ame Deleted | 998 | Template N ame Deleted | |||
999 | "PKG",48,2 2,1,"PAH", 1,1,116,0) | 999 | "PKG",48,2 2,1,"PAH", 1,1,116,0) | |||
1000 | ---------- --- -- ---------- - | 1000 | ---------- --- -- ---------- - | |||
1001 | "PKG",48,2 2,1,"PAH", 1,1,117,0) | 1001 | "PKG",48,2 2,1,"PAH", 1,1,117,0) | |||
1002 | N/A | 1002 | N/A | |||
1003 | "PKG",48,2 2,1,"PAH", 1,1,118,0) | 1003 | "PKG",48,2 2,1,"PAH", 1,1,118,0) | |||
1004 | 1004 | |||||
1005 | "PKG",48,2 2,1,"PAH", 1,1,119,0) | 1005 | "PKG",48,2 2,1,"PAH", 1,1,119,0) | |||
1006 | 1006 | |||||
1007 | "PKG",48,2 2,1,"PAH", 1,1,120,0) | 1007 | "PKG",48,2 2,1,"PAH", 1,1,120,0) | |||
1008 | 1008 | |||||
1009 | "PKG",48,2 2,1,"PAH", 1,1,121,0) | 1009 | "PKG",48,2 2,1,"PAH", 1,1,121,0) | |||
1010 | Protocols Associated : | 1010 | Protocols Associated : | |||
1011 | "PKG",48,2 2,1,"PAH", 1,1,122,0) | 1011 | "PKG",48,2 2,1,"PAH", 1,1,122,0) | |||
1012 | Ne w/Modified / | 1012 | Ne w/Modified / | |||
1013 | "PKG",48,2 2,1,"PAH", 1,1,123,0) | 1013 | "PKG",48,2 2,1,"PAH", 1,1,123,0) | |||
1014 | Protocol N ame Deleted | 1014 | Protocol N ame Deleted | |||
1015 | "PKG",48,2 2,1,"PAH", 1,1,124,0) | 1015 | "PKG",48,2 2,1,"PAH", 1,1,124,0) | |||
1016 | ---------- --- -- ---------- - | 1016 | ---------- --- -- ---------- - | |||
1017 | "PKG",48,2 2,1,"PAH", 1,1,125,0) | 1017 | "PKG",48,2 2,1,"PAH", 1,1,125,0) | |||
1018 | N/A | 1018 | N/A | |||
1019 | "PKG",48,2 2,1,"PAH", 1,1,126,0) | 1019 | "PKG",48,2 2,1,"PAH", 1,1,126,0) | |||
1020 | 1020 | |||||
1021 | "PKG",48,2 2,1,"PAH", 1,1,127,0) | 1021 | "PKG",48,2 2,1,"PAH", 1,1,127,0) | |||
1022 | 1022 | |||||
1023 | "PKG",48,2 2,1,"PAH", 1,1,128,0) | 1023 | "PKG",48,2 2,1,"PAH", 1,1,128,0) | |||
1024 | 1024 | |||||
1025 | "PKG",48,2 2,1,"PAH", 1,1,129,0) | 1025 | "PKG",48,2 2,1,"PAH", 1,1,129,0) | |||
1026 | Remote Pro cedures As sociated: | 1026 | Remote Pro cedures As sociated: | |||
1027 | "PKG",48,2 2,1,"PAH", 1,1,130,0) | 1027 | "PKG",48,2 2,1,"PAH", 1,1,130,0) | |||
1028 | Ne w/Modified / | 1028 | Ne w/Modified / | |||
1029 | "PKG",48,2 2,1,"PAH", 1,1,131,0) | 1029 | "PKG",48,2 2,1,"PAH", 1,1,131,0) | |||
1030 | Remote Pro cedure Nam e Deleted | 1030 | Remote Pro cedure Nam e Deleted | |||
1031 | "PKG",48,2 2,1,"PAH", 1,1,132,0) | 1031 | "PKG",48,2 2,1,"PAH", 1,1,132,0) | |||
1032 | ---------- ---------- - -- ---------- - | 1032 | ---------- ---------- - -- ---------- - | |||
1033 | "PKG",48,2 2,1,"PAH", 1,1,133,0) | 1033 | "PKG",48,2 2,1,"PAH", 1,1,133,0) | |||
1034 | N/A | 1034 | N/A | |||
1035 | "PKG",48,2 2,1,"PAH", 1,1,134,0) | 1035 | "PKG",48,2 2,1,"PAH", 1,1,134,0) | |||
1036 | 1036 | |||||
1037 | "PKG",48,2 2,1,"PAH", 1,1,135,0) | 1037 | "PKG",48,2 2,1,"PAH", 1,1,135,0) | |||
1038 | 1038 | |||||
1039 | "PKG",48,2 2,1,"PAH", 1,1,136,0) | 1039 | "PKG",48,2 2,1,"PAH", 1,1,136,0) | |||
1040 | 1040 | |||||
1041 | "PKG",48,2 2,1,"PAH", 1,1,137,0) | 1041 | "PKG",48,2 2,1,"PAH", 1,1,137,0) | |||
1042 | Security K eys Associ ated: | 1042 | Security K eys Associ ated: | |||
1043 | "PKG",48,2 2,1,"PAH", 1,1,138,0) | 1043 | "PKG",48,2 2,1,"PAH", 1,1,138,0) | |||
1044 | Ne w/Modified / | 1044 | Ne w/Modified / | |||
1045 | "PKG",48,2 2,1,"PAH", 1,1,139,0) | 1045 | "PKG",48,2 2,1,"PAH", 1,1,139,0) | |||
1046 | Security K ey Name Deleted | 1046 | Security K ey Name Deleted | |||
1047 | "PKG",48,2 2,1,"PAH", 1,1,140,0) | 1047 | "PKG",48,2 2,1,"PAH", 1,1,140,0) | |||
1048 | ---------- ------- -- ---------- - | 1048 | ---------- ------- -- ---------- - | |||
1049 | "PKG",48,2 2,1,"PAH", 1,1,141,0) | 1049 | "PKG",48,2 2,1,"PAH", 1,1,141,0) | |||
1050 | N/A | 1050 | N/A | |||
1051 | "PKG",48,2 2,1,"PAH", 1,1,142,0) | 1051 | "PKG",48,2 2,1,"PAH", 1,1,142,0) | |||
1052 | 1052 | |||||
1053 | "PKG",48,2 2,1,"PAH", 1,1,143,0) | 1053 | "PKG",48,2 2,1,"PAH", 1,1,143,0) | |||
1054 | 1054 | |||||
1055 | "PKG",48,2 2,1,"PAH", 1,1,144,0) | 1055 | "PKG",48,2 2,1,"PAH", 1,1,144,0) | |||
1056 | 1056 | |||||
1057 | "PKG",48,2 2,1,"PAH", 1,1,145,0) | 1057 | "PKG",48,2 2,1,"PAH", 1,1,145,0) | |||
1058 | Templates, Input Ass ociated: | 1058 | Templates, Input Ass ociated: | |||
1059 | "PKG",48,2 2,1,"PAH", 1,1,146,0) | 1059 | "PKG",48,2 2,1,"PAH", 1,1,146,0) | |||
1060 | Ne w/Modified / | 1060 | Ne w/Modified / | |||
1061 | "PKG",48,2 2,1,"PAH", 1,1,147,0) | 1061 | "PKG",48,2 2,1,"PAH", 1,1,147,0) | |||
1062 | Template N ame T ype F ile Name ( Number) Deleted | 1062 | Template N ame T ype F ile Name ( Number) Deleted | |||
1063 | "PKG",48,2 2,1,"PAH", 1,1,148,0) | 1063 | "PKG",48,2 2,1,"PAH", 1,1,148,0) | |||
1064 | ---------- --- - --- - ---------- ------- -- ---------- - | 1064 | ---------- --- - --- - ---------- ------- -- ---------- - | |||
1065 | "PKG",48,2 2,1,"PAH", 1,1,149,0) | 1065 | "PKG",48,2 2,1,"PAH", 1,1,149,0) | |||
1066 | N/A | 1066 | N/A | |||
1067 | "PKG",48,2 2,1,"PAH", 1,1,150,0) | 1067 | "PKG",48,2 2,1,"PAH", 1,1,150,0) | |||
1068 | 1068 | |||||
1069 | "PKG",48,2 2,1,"PAH", 1,1,151,0) | 1069 | "PKG",48,2 2,1,"PAH", 1,1,151,0) | |||
1070 | 1070 | |||||
1071 | "PKG",48,2 2,1,"PAH", 1,1,152,0) | 1071 | "PKG",48,2 2,1,"PAH", 1,1,152,0) | |||
1072 | 1072 | |||||
1073 | "PKG",48,2 2,1,"PAH", 1,1,153,0) | 1073 | "PKG",48,2 2,1,"PAH", 1,1,153,0) | |||
1074 | Templates, List Asso ciated: | 1074 | Templates, List Asso ciated: | |||
1075 | "PKG",48,2 2,1,"PAH", 1,1,154,0) | 1075 | "PKG",48,2 2,1,"PAH", 1,1,154,0) | |||
1076 | Ne w/Modified / | 1076 | Ne w/Modified / | |||
1077 | "PKG",48,2 2,1,"PAH", 1,1,155,0) | 1077 | "PKG",48,2 2,1,"PAH", 1,1,155,0) | |||
1078 | Template N ame T ype Deleted | 1078 | Template N ame T ype Deleted | |||
1079 | "PKG",48,2 2,1,"PAH", 1,1,156,0) | 1079 | "PKG",48,2 2,1,"PAH", 1,1,156,0) | |||
1080 | ---------- --- - --- -- ---------- - | 1080 | ---------- --- - --- -- ---------- - | |||
1081 | "PKG",48,2 2,1,"PAH", 1,1,157,0) | 1081 | "PKG",48,2 2,1,"PAH", 1,1,157,0) | |||
1082 | N/A | 1082 | N/A | |||
1083 | "PKG",48,2 2,1,"PAH", 1,1,158,0) | 1083 | "PKG",48,2 2,1,"PAH", 1,1,158,0) | |||
1084 | 1084 | |||||
1085 | "PKG",48,2 2,1,"PAH", 1,1,159,0) | 1085 | "PKG",48,2 2,1,"PAH", 1,1,159,0) | |||
1086 | 1086 | |||||
1087 | "PKG",48,2 2,1,"PAH", 1,1,160,0) | 1087 | "PKG",48,2 2,1,"PAH", 1,1,160,0) | |||
1088 | 1088 | |||||
1089 | "PKG",48,2 2,1,"PAH", 1,1,161,0) | 1089 | "PKG",48,2 2,1,"PAH", 1,1,161,0) | |||
1090 | Templates, Print Ass ociated: | 1090 | Templates, Print Ass ociated: | |||
1091 | "PKG",48,2 2,1,"PAH", 1,1,162,0) | 1091 | "PKG",48,2 2,1,"PAH", 1,1,162,0) | |||
1092 | New/Modifi ed/ | 1092 | New/Modifi ed/ | |||
1093 | "PKG",48,2 2,1,"PAH", 1,1,163,0) | 1093 | "PKG",48,2 2,1,"PAH", 1,1,163,0) | |||
1094 | Template N ame Type Fi le Name (N umber) Deleted | 1094 | Template N ame Type Fi le Name (N umber) Deleted | |||
1095 | "PKG",48,2 2,1,"PAH", 1,1,164,0) | 1095 | "PKG",48,2 2,1,"PAH", 1,1,164,0) | |||
1096 | ---------- --- ---- -- ---------- ------ ---------- --- | 1096 | ---------- --- ---- -- ---------- ------ ---------- --- | |||
1097 | "PKG",48,2 2,1,"PAH", 1,1,165,0) | 1097 | "PKG",48,2 2,1,"PAH", 1,1,165,0) | |||
1098 | N/A | 1098 | N/A | |||
1099 | "PKG",48,2 2,1,"PAH", 1,1,166,0) | 1099 | "PKG",48,2 2,1,"PAH", 1,1,166,0) | |||
1100 | 1100 | |||||
1101 | "PKG",48,2 2,1,"PAH", 1,1,167,0) | 1101 | "PKG",48,2 2,1,"PAH", 1,1,167,0) | |||
1102 | 1102 | |||||
1103 | "PKG",48,2 2,1,"PAH", 1,1,168,0) | 1103 | "PKG",48,2 2,1,"PAH", 1,1,168,0) | |||
1104 | 1104 | |||||
1105 | "PKG",48,2 2,1,"PAH", 1,1,169,0) | 1105 | "PKG",48,2 2,1,"PAH", 1,1,169,0) | |||
1106 | Templates, Sort Asso ciated: | 1106 | Templates, Sort Asso ciated: | |||
1107 | "PKG",48,2 2,1,"PAH", 1,1,170,0) | 1107 | "PKG",48,2 2,1,"PAH", 1,1,170,0) | |||
1108 | 1108 | |||||
1109 | "PKG",48,2 2,1,"PAH", 1,1,171,0) | 1109 | "PKG",48,2 2,1,"PAH", 1,1,171,0) | |||
1110 | New/Modifi ed/ | 1110 | New/Modifi ed/ | |||
1111 | "PKG",48,2 2,1,"PAH", 1,1,172,0) | 1111 | "PKG",48,2 2,1,"PAH", 1,1,172,0) | |||
1112 | Template N ame Type File Name (Number) | 1112 | Template N ame Type File Name (Number) | |||
1113 | "PKG",48,2 2,1,"PAH", 1,1,173,0) | 1113 | "PKG",48,2 2,1,"PAH", 1,1,173,0) | |||
1114 | Deleted | 1114 | Deleted | |||
1115 | "PKG",48,2 2,1,"PAH", 1,1,174,0) | 1115 | "PKG",48,2 2,1,"PAH", 1,1,174,0) | |||
1116 | ---------- --- ---- --------- --------- | 1116 | ---------- --- ---- --------- --------- | |||
1117 | "PKG",48,2 2,1,"PAH", 1,1,175,0) | 1117 | "PKG",48,2 2,1,"PAH", 1,1,175,0) | |||
1118 | ---------- --- | 1118 | ---------- --- | |||
1119 | "PKG",48,2 2,1,"PAH", 1,1,176,0) | 1119 | "PKG",48,2 2,1,"PAH", 1,1,176,0) | |||
1120 | N/A | 1120 | N/A | |||
1121 | "PKG",48,2 2,1,"PAH", 1,1,177,0) | 1121 | "PKG",48,2 2,1,"PAH", 1,1,177,0) | |||
1122 | 1122 | |||||
1123 | "PKG",48,2 2,1,"PAH", 1,1,178,0) | 1123 | "PKG",48,2 2,1,"PAH", 1,1,178,0) | |||
1124 | 1124 | |||||
1125 | "PKG",48,2 2,1,"PAH", 1,1,179,0) | 1125 | "PKG",48,2 2,1,"PAH", 1,1,179,0) | |||
1126 | Additional Informati on: | 1126 | Additional Informati on: | |||
1127 | "PKG",48,2 2,1,"PAH", 1,1,180,0) | 1127 | "PKG",48,2 2,1,"PAH", 1,1,180,0) | |||
1128 | N/A | 1128 | N/A | |||
1129 | "PKG",48,2 2,1,"PAH", 1,1,181,0) | 1129 | "PKG",48,2 2,1,"PAH", 1,1,181,0) | |||
1130 | 1130 | |||||
1131 | "PKG",48,2 2,1,"PAH", 1,1,182,0) | 1131 | "PKG",48,2 2,1,"PAH", 1,1,182,0) | |||
1132 | 1132 | |||||
1133 | "PKG",48,2 2,1,"PAH", 1,1,183,0) | 1133 | "PKG",48,2 2,1,"PAH", 1,1,183,0) | |||
1134 | New Servic e Requests (NSRs) | 1134 | New Servic e Requests (NSRs) | |||
1135 | "PKG",48,2 2,1,"PAH", 1,1,184,0) | 1135 | "PKG",48,2 2,1,"PAH", 1,1,184,0) | |||
1136 | ---------- ---------- -------- | 1136 | ---------- ---------- -------- | |||
1137 | "PKG",48,2 2,1,"PAH", 1,1,185,0) | 1137 | "PKG",48,2 2,1,"PAH", 1,1,185,0) | |||
1138 | N/A | 1138 | N/A | |||
1139 | "PKG",48,2 2,1,"PAH", 1,1,186,0) | 1139 | "PKG",48,2 2,1,"PAH", 1,1,186,0) | |||
1140 | 1140 | |||||
1141 | "PKG",48,2 2,1,"PAH", 1,1,187,0) | 1141 | "PKG",48,2 2,1,"PAH", 1,1,187,0) | |||
1142 | 1142 | |||||
1143 | "PKG",48,2 2,1,"PAH", 1,1,188,0) | 1143 | "PKG",48,2 2,1,"PAH", 1,1,188,0) | |||
1144 | Patient Sa fety Issue s (PSIs) | 1144 | Patient Sa fety Issue s (PSIs) | |||
1145 | "PKG",48,2 2,1,"PAH", 1,1,189,0) | 1145 | "PKG",48,2 2,1,"PAH", 1,1,189,0) | |||
1146 | ---------- ---------- --------- | 1146 | ---------- ---------- --------- | |||
1147 | "PKG",48,2 2,1,"PAH", 1,1,190,0) | 1147 | "PKG",48,2 2,1,"PAH", 1,1,190,0) | |||
1148 | N/A | 1148 | N/A | |||
1149 | "PKG",48,2 2,1,"PAH", 1,1,191,0) | 1149 | "PKG",48,2 2,1,"PAH", 1,1,191,0) | |||
1150 | 1150 | |||||
1151 | "PKG",48,2 2,1,"PAH", 1,1,192,0) | 1151 | "PKG",48,2 2,1,"PAH", 1,1,192,0) | |||
1152 | 1152 | |||||
1153 | "PKG",48,2 2,1,"PAH", 1,1,193,0) | 1153 | "PKG",48,2 2,1,"PAH", 1,1,193,0) | |||
1154 | ServiceNow Ticket(s) & Overvie w | 1154 | ServiceNow Ticket(s) & Overvie w | |||
1155 | "PKG",48,2 2,1,"PAH", 1,1,194,0) | 1155 | "PKG",48,2 2,1,"PAH", 1,1,194,0) | |||
1156 | ---------- ---------- ---------- ---------- ------- | 1156 | ---------- ---------- ---------- ---------- ------- | |||
1157 | "PKG",48,2 2,1,"PAH", 1,1,195,0) | 1157 | "PKG",48,2 2,1,"PAH", 1,1,195,0) | |||
1158 | I17005764F Y18 Pyxis and EDIS are not re cognizing clinic che ck in acti ons | 1158 | I17005764F Y18 Pyxis and EDIS are not re cognizing clinic che ck in acti ons | |||
1159 | "PKG",48,2 2,1,"PAH", 1,1,196,0) | 1159 | "PKG",48,2 2,1,"PAH", 1,1,196,0) | |||
1160 | 1160 | |||||
1161 | "PKG",48,2 2,1,"PAH", 1,1,197,0) | 1161 | "PKG",48,2 2,1,"PAH", 1,1,197,0) | |||
1162 | Problem: | 1162 | Problem: | |||
1163 | "PKG",48,2 2,1,"PAH", 1,1,198,0) | 1163 | "PKG",48,2 2,1,"PAH", 1,1,198,0) | |||
1164 | ------- | 1164 | ------- | |||
1165 | "PKG",48,2 2,1,"PAH", 1,1,199,0) | 1165 | "PKG",48,2 2,1,"PAH", 1,1,199,0) | |||
1166 | When a use r performs appointme nt actions in VS GUI , downstre am systems | 1166 | When a use r performs appointme nt actions in VS GUI , downstre am systems | |||
1167 | "PKG",48,2 2,1,"PAH", 1,1,200,0) | 1167 | "PKG",48,2 2,1,"PAH", 1,1,200,0) | |||
1168 | such | 1168 | such | |||
1169 | "PKG",48,2 2,1,"PAH", 1,1,201,0) | 1169 | "PKG",48,2 2,1,"PAH", 1,1,201,0) | |||
1170 | as Pyxis ( or other u nit dosing devices, such as Om nicell) an d EDIS are not | 1170 | as Pyxis ( or other u nit dosing devices, such as Om nicell) an d EDIS are not | |||
1171 | "PKG",48,2 2,1,"PAH", 1,1,202,0) | 1171 | "PKG",48,2 2,1,"PAH", 1,1,202,0) | |||
1172 | updated, w hereas the y are when the appoi ntment act ions are t aken in le gacy | 1172 | updated, w hereas the y are when the appoi ntment act ions are t aken in le gacy | |||
1173 | "PKG",48,2 2,1,"PAH", 1,1,203,0) | 1173 | "PKG",48,2 2,1,"PAH", 1,1,203,0) | |||
1174 | VistA. | 1174 | VistA. | |||
1175 | "PKG",48,2 2,1,"PAH", 1,1,204,0) | 1175 | "PKG",48,2 2,1,"PAH", 1,1,204,0) | |||
1176 | 1176 | |||||
1177 | "PKG",48,2 2,1,"PAH", 1,1,205,0) | 1177 | "PKG",48,2 2,1,"PAH", 1,1,205,0) | |||
1178 | Resolution : | 1178 | Resolution : | |||
1179 | "PKG",48,2 2,1,"PAH", 1,1,206,0) | 1179 | "PKG",48,2 2,1,"PAH", 1,1,206,0) | |||
1180 | ---------- | 1180 | ---------- | |||
1181 | "PKG",48,2 2,1,"PAH", 1,1,207,0) | 1181 | "PKG",48,2 2,1,"PAH", 1,1,207,0) | |||
1182 | The GUI no w invokes the SDAM A PPOINTMENT EVENTS pr otocol jus t like leg acy | 1182 | The GUI no w invokes the SDAM A PPOINTMENT EVENTS pr otocol jus t like leg acy | |||
1183 | "PKG",48,2 2,1,"PAH", 1,1,208,0) | 1183 | "PKG",48,2 2,1,"PAH", 1,1,208,0) | |||
1184 | VistA, mea ning that the downst ream syste ms will be notified in the sam e | 1184 | VistA, mea ning that the downst ream syste ms will be notified in the sam e | |||
1185 | "PKG",48,2 2,1,"PAH", 1,1,209,0) | 1185 | "PKG",48,2 2,1,"PAH", 1,1,209,0) | |||
1186 | way whethe r actions are taken on them in GUI or le gacy. | 1186 | way whethe r actions are taken on them in GUI or le gacy. | |||
1187 | "PKG",48,2 2,1,"PAH", 1,1,210,0) | 1187 | "PKG",48,2 2,1,"PAH", 1,1,210,0) | |||
1188 | 1188 | |||||
1189 | "PKG",48,2 2,1,"PAH", 1,1,211,0) | 1189 | "PKG",48,2 2,1,"PAH", 1,1,211,0) | |||
1190 | Test Sites : | 1190 | Test Sites : | |||
1191 | "PKG",48,2 2,1,"PAH", 1,1,212,0) | 1191 | "PKG",48,2 2,1,"PAH", 1,1,212,0) | |||
1192 | ---------- | 1192 | ---------- | |||
1193 | "PKG",48,2 2,1,"PAH", 1,1,213,0) | 1193 | "PKG",48,2 2,1,"PAH", 1,1,213,0) | |||
1194 | TBA | 1194 | TBA | |||
1195 | "PKG",48,2 2,1,"PAH", 1,1,214,0) | 1195 | "PKG",48,2 2,1,"PAH", 1,1,214,0) | |||
1196 | 1196 | |||||
1197 | "PKG",48,2 2,1,"PAH", 1,1,215,0) | 1197 | "PKG",48,2 2,1,"PAH", 1,1,215,0) | |||
1198 | Software a nd Documen tation Ret rieval Ins tructions: | 1198 | Software a nd Documen tation Ret rieval Ins tructions: | |||
1199 | "PKG",48,2 2,1,"PAH", 1,1,216,0) | 1199 | "PKG",48,2 2,1,"PAH", 1,1,216,0) | |||
1200 | ---------- ---------- ---------- ---------- ---------- -- | 1200 | ---------- ---------- ---------- ---------- ---------- -- | |||
1201 | "PKG",48,2 2,1,"PAH", 1,1,217,0) | 1201 | "PKG",48,2 2,1,"PAH", 1,1,217,0) | |||
1202 | 1202 | |||||
1203 | "PKG",48,2 2,1,"PAH", 1,1,218,0) | 1203 | "PKG",48,2 2,1,"PAH", 1,1,218,0) | |||
1204 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | 1204 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |||
1205 | "PKG",48,2 2,1,"PAH", 1,1,219,0) | 1205 | "PKG",48,2 2,1,"PAH", 1,1,219,0) | |||
1206 | the new fu nctionalit y introduc ed by this patch are available . | 1206 | the new fu nctionalit y introduc ed by this patch are available . | |||
1207 | "PKG",48,2 2,1,"PAH", 1,1,220,0) | 1207 | "PKG",48,2 2,1,"PAH", 1,1,220,0) | |||
1208 | 1208 | |||||
1209 | "PKG",48,2 2,1,"PAH", 1,1,221,0) | 1209 | "PKG",48,2 2,1,"PAH", 1,1,221,0) | |||
1210 |
The prefer
red method
is to ret
rieve file
s from dow
nload.
vista.med.
va.gov
.
|
1210 | The prefer red method is to ret rieve file s from dow nload. DNS . URL | |||
1211 | "PKG",48,2 2,1,"PAH", 1,1,222,0) | 1211 | "PKG",48,2 2,1,"PAH", 1,1,222,0) | |||
1212 | This trans mits the f iles from the first available server. Si tes may | 1212 | This trans mits the f iles from the first available server. Si tes may | |||
1213 | "PKG",48,2 2,1,"PAH", 1,1,223,0) | 1213 | "PKG",48,2 2,1,"PAH", 1,1,223,0) | |||
1214 | also elect to retrie ve files d irectly fr om a speci fic server . | 1214 | also elect to retrie ve files d irectly fr om a speci fic server . | |||
1215 | "PKG",48,2 2,1,"PAH", 1,1,224,0) | 1215 | "PKG",48,2 2,1,"PAH", 1,1,224,0) | |||
1216 | 1216 | |||||
1217 | "PKG",48,2 2,1,"PAH", 1,1,225,0) | 1217 | "PKG",48,2 2,1,"PAH", 1,1,225,0) | |||
1218 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | 1218 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |||
1219 | "PKG",48,2 2,1,"PAH", 1,1,226,0) | 1219 | "PKG",48,2 2,1,"PAH", 1,1,226,0) | |||
1220 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | 1220 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |||
1221 | "PKG",48,2 2,1,"PAH", 1,1,227,0) | 1221 | "PKG",48,2 2,1,"PAH", 1,1,227,0) | |||
1222 | directory at the fol lowing OI Field Offi ces: | 1222 | directory at the fol lowing OI Field Offi ces: | |||
1223 | "PKG",48,2 2,1,"PAH", 1,1,228,0) | 1223 | "PKG",48,2 2,1,"PAH", 1,1,228,0) | |||
1224 | 1224 | |||||
1225 | "PKG",48,2 2,1,"PAH", 1,1,229,0) | 1225 | "PKG",48,2 2,1,"PAH", 1,1,229,0) | |||
1226 | Hines: fo-hines.m ed.va.gov | 1226 | Hines: DNS .U RL | |||
1227 | "PKG",48,2 2,1,"PAH", 1,1,230,0) | 1227 | "PKG",48,2 2,1,"PAH", 1,1,230,0) | |||
1228 | Salt Lake City: fo-slc.med .va . gov | 1228 | Salt Lake City: DNS . URL | |||
1229 | "PKG",48,2 2,1,"PAH", 1,1,231,0) | 1229 | "PKG",48,2 2,1,"PAH", 1,1,231,0) | |||
1230 | 1230 | |||||
1231 | "PKG",48,2 2,1,"PAH", 1,1,232,0) | 1231 | "PKG",48,2 2,1,"PAH", 1,1,232,0) | |||
1232 | 1232 | |||||
1233 | "PKG",48,2 2,1,"PAH", 1,1,233,0) | 1233 | "PKG",48,2 2,1,"PAH", 1,1,233,0) | |||
1234 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | 1234 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |||
1235 | "PKG",48,2 2,1,"PAH", 1,1,234,0) | 1235 | "PKG",48,2 2,1,"PAH", 1,1,234,0) | |||
1236 | at: | 1236 | at: | |||
1237 | "PKG",48,2 2,1,"PAH", 1,1,235,0) | 1237 | "PKG",48,2 2,1,"PAH", 1,1,235,0) | |||
1238 | http:// www4.va.go v/vdl / | 1238 | http:// URL / | |||
1239 | "PKG",48,2 2,1,"PAH", 1,1,236,0) | 1239 | "PKG",48,2 2,1,"PAH", 1,1,236,0) | |||
1240 | 1240 | |||||
1241 | "PKG",48,2 2,1,"PAH", 1,1,237,0) | 1241 | "PKG",48,2 2,1,"PAH", 1,1,237,0) | |||
1242 | Title Fil e Name FTP Mode | 1242 | Title Fil e Name FTP Mode | |||
1243 | "PKG",48,2 2,1,"PAH", 1,1,238,0) | 1243 | "PKG",48,2 2,1,"PAH", 1,1,238,0) | |||
1244 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | 1244 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | |||
1245 | "PKG",48,2 2,1,"PAH", 1,1,239,0) | 1245 | "PKG",48,2 2,1,"PAH", 1,1,239,0) | |||
1246 | VistA Sche duling Enh ancements GUI User G uide SCH EDULING_UG .PDF Bina ry | 1246 | VistA Sche duling Enh ancements GUI User G uide SCH EDULING_UG .PDF Bina ry | |||
1247 | "PKG",48,2 2,1,"PAH", 1,1,240,0) | 1247 | "PKG",48,2 2,1,"PAH", 1,1,240,0) | |||
1248 | VistA Sche duling Enh ancements Technical Manual SCH EDULING_TM .PDF Bina ry | 1248 | VistA Sche duling Enh ancements Technical Manual SCH EDULING_TM .PDF Bina ry | |||
1249 | "PKG",48,2 2,1,"PAH", 1,1,241,0) | 1249 | "PKG",48,2 2,1,"PAH", 1,1,241,0) | |||
1250 | 1250 | |||||
1251 | "PKG",48,2 2,1,"PAH", 1,1,242,0) | 1251 | "PKG",48,2 2,1,"PAH", 1,1,242,0) | |||
1252 | 1252 | |||||
1253 | "PKG",48,2 2,1,"PAH", 1,1,243,0) | 1253 | "PKG",48,2 2,1,"PAH", 1,1,243,0) | |||
1254 | Patch Inst allation: | 1254 | Patch Inst allation: | |||
1255 | "PKG",48,2 2,1,"PAH", 1,1,244,0) | 1255 | "PKG",48,2 2,1,"PAH", 1,1,244,0) | |||
1256 | 1256 | |||||
1257 | "PKG",48,2 2,1,"PAH", 1,1,245,0) | 1257 | "PKG",48,2 2,1,"PAH", 1,1,245,0) | |||
1258 | 1258 | |||||
1259 | "PKG",48,2 2,1,"PAH", 1,1,246,0) | 1259 | "PKG",48,2 2,1,"PAH", 1,1,246,0) | |||
1260 | Pre/Post I nstallatio n Overview | 1260 | Pre/Post I nstallatio n Overview | |||
1261 | "PKG",48,2 2,1,"PAH", 1,1,247,0) | 1261 | "PKG",48,2 2,1,"PAH", 1,1,247,0) | |||
1262 | ---------- ---------- ---------- | 1262 | ---------- ---------- ---------- | |||
1263 | "PKG",48,2 2,1,"PAH", 1,1,248,0) | 1263 | "PKG",48,2 2,1,"PAH", 1,1,248,0) | |||
1264 | There are no pre- or post-inst allation t asks for t his patch. | 1264 | There are no pre- or post-inst allation t asks for t his patch. | |||
1265 | "PKG",48,2 2,1,"PAH", 1,1,249,0) | 1265 | "PKG",48,2 2,1,"PAH", 1,1,249,0) | |||
1266 | 1266 | |||||
1267 | "PKG",48,2 2,1,"PAH", 1,1,250,0) | 1267 | "PKG",48,2 2,1,"PAH", 1,1,250,0) | |||
1268 | Installati on Instruc tions | 1268 | Installati on Instruc tions | |||
1269 | "PKG",48,2 2,1,"PAH", 1,1,251,0) | 1269 | "PKG",48,2 2,1,"PAH", 1,1,251,0) | |||
1270 | ---------- ---------- ----- | 1270 | ---------- ---------- ----- | |||
1271 | "PKG",48,2 2,1,"PAH", 1,1,252,0) | 1271 | "PKG",48,2 2,1,"PAH", 1,1,252,0) | |||
1272 | Install Ti me - less than 5 min utes. | 1272 | Install Ti me - less than 5 min utes. | |||
1273 | "PKG",48,2 2,1,"PAH", 1,1,253,0) | 1273 | "PKG",48,2 2,1,"PAH", 1,1,253,0) | |||
1274 | 1274 | |||||
1275 | "PKG",48,2 2,1,"PAH", 1,1,254,0) | 1275 | "PKG",48,2 2,1,"PAH", 1,1,254,0) | |||
1276 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | 1276 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | |||
1277 | "PKG",48,2 2,1,"PAH", 1,1,255,0) | 1277 | "PKG",48,2 2,1,"PAH", 1,1,255,0) | |||
1278 | 1278 | |||||
1279 | "PKG",48,2 2,1,"PAH", 1,1,256,0) | 1279 | "PKG",48,2 2,1,"PAH", 1,1,256,0) | |||
1280 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | 1280 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | |||
1281 | "PKG",48,2 2,1,"PAH", 1,1,257,0) | 1281 | "PKG",48,2 2,1,"PAH", 1,1,257,0) | |||
1282 | the Installati on menu. | 1282 | the Installati on menu. | |||
1283 | "PKG",48,2 2,1,"PAH", 1,1,258,0) | 1283 | "PKG",48,2 2,1,"PAH", 1,1,258,0) | |||
1284 | 1284 | |||||
1285 | "PKG",48,2 2,1,"PAH", 1,1,259,0) | 1285 | "PKG",48,2 2,1,"PAH", 1,1,259,0) | |||
1286 | 3. From this menu , you may select to use the fo llowing op tions | 1286 | 3. From this menu , you may select to use the fo llowing op tions | |||
1287 | "PKG",48,2 2,1,"PAH", 1,1,260,0) | 1287 | "PKG",48,2 2,1,"PAH", 1,1,260,0) | |||
1288 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*717): | 1288 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*717): | |||
1289 | "PKG",48,2 2,1,"PAH", 1,1,261,0) | 1289 | "PKG",48,2 2,1,"PAH", 1,1,261,0) | |||
1290 | a. Verify Checksums in Transp ort Global - This op tion will | 1290 | a. Verify Checksums in Transp ort Global - This op tion will | |||
1291 | "PKG",48,2 2,1,"PAH", 1,1,262,0) | 1291 | "PKG",48,2 2,1,"PAH", 1,1,262,0) | |||
1292 | allow | 1292 | allow | |||
1293 | "PKG",48,2 2,1,"PAH", 1,1,263,0) | 1293 | "PKG",48,2 2,1,"PAH", 1,1,263,0) | |||
1294 | you to ensure th e integrit y of the r outines th at are in the | 1294 | you to ensure th e integrit y of the r outines th at are in the | |||
1295 | "PKG",48,2 2,1,"PAH", 1,1,264,0) | 1295 | "PKG",48,2 2,1,"PAH", 1,1,264,0) | |||
1296 | transp ort global . | 1296 | transp ort global . | |||
1297 | "PKG",48,2 2,1,"PAH", 1,1,265,0) | 1297 | "PKG",48,2 2,1,"PAH", 1,1,265,0) | |||
1298 | b. Print Transport Global - T his option will allo w you to v iew | 1298 | b. Print Transport Global - T his option will allo w you to v iew | |||
1299 | "PKG",48,2 2,1,"PAH", 1,1,266,0) | 1299 | "PKG",48,2 2,1,"PAH", 1,1,266,0) | |||
1300 | the co mponents o f the KIDS build. | 1300 | the co mponents o f the KIDS build. | |||
1301 | "PKG",48,2 2,1,"PAH", 1,1,267,0) | 1301 | "PKG",48,2 2,1,"PAH", 1,1,267,0) | |||
1302 | c. Compar e Transpor t Global t o Current System - T his option | 1302 | c. Compar e Transpor t Global t o Current System - T his option | |||
1303 | "PKG",48,2 2,1,"PAH", 1,1,268,0) | 1303 | "PKG",48,2 2,1,"PAH", 1,1,268,0) | |||
1304 | will | 1304 | will | |||
1305 | "PKG",48,2 2,1,"PAH", 1,1,269,0) | 1305 | "PKG",48,2 2,1,"PAH", 1,1,269,0) | |||
1306 | allow you to vie w all chan ges that w ill be mad e when thi s | 1306 | allow you to vie w all chan ges that w ill be mad e when thi s | |||
1307 | "PKG",48,2 2,1,"PAH", 1,1,270,0) | 1307 | "PKG",48,2 2,1,"PAH", 1,1,270,0) | |||
1308 | patch is install ed. It co mpares all component s of this | 1308 | patch is install ed. It co mpares all component s of this | |||
1309 | "PKG",48,2 2,1,"PAH", 1,1,271,0) | 1309 | "PKG",48,2 2,1,"PAH", 1,1,271,0) | |||
1310 | patch (routines, DD's, tem plates, et c.). | 1310 | patch (routines, DD's, tem plates, et c.). | |||
1311 | "PKG",48,2 2,1,"PAH", 1,1,272,0) | 1311 | "PKG",48,2 2,1,"PAH", 1,1,272,0) | |||
1312 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | 1312 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | |||
1313 | "PKG",48,2 2,1,"PAH", 1,1,273,0) | 1313 | "PKG",48,2 2,1,"PAH", 1,1,273,0) | |||
1314 | messag e of any r outines ex ported wit h this pat ch. It wil l | 1314 | messag e of any r outines ex ported wit h this pat ch. It wil l | |||
1315 | "PKG",48,2 2,1,"PAH", 1,1,274,0) | 1315 | "PKG",48,2 2,1,"PAH", 1,1,274,0) | |||
1316 | not | 1316 | not | |||
1317 | "PKG",48,2 2,1,"PAH", 1,1,275,0) | 1317 | "PKG",48,2 2,1,"PAH", 1,1,275,0) | |||
1318 | backup any other changes s uch as DD' s or templ ates. | 1318 | backup any other changes s uch as DD' s or templ ates. | |||
1319 | "PKG",48,2 2,1,"PAH", 1,1,276,0) | 1319 | "PKG",48,2 2,1,"PAH", 1,1,276,0) | |||
1320 | 1320 | |||||
1321 | "PKG",48,2 2,1,"PAH", 1,1,277,0) | 1321 | "PKG",48,2 2,1,"PAH", 1,1,277,0) | |||
1322 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 717. | 1322 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 717. | |||
1323 | "PKG",48,2 2,1,"PAH", 1,1,278,0) | 1323 | "PKG",48,2 2,1,"PAH", 1,1,278,0) | |||
1324 | 1324 | |||||
1325 | "PKG",48,2 2,1,"PAH", 1,1,279,0) | 1325 | "PKG",48,2 2,1,"PAH", 1,1,279,0) | |||
1326 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | 1326 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | |||
1327 | "PKG",48,2 2,1,"PAH", 1,1,280,0) | 1327 | "PKG",48,2 2,1,"PAH", 1,1,280,0) | |||
1328 | resp ond NO. | 1328 | resp ond NO. | |||
1329 | "PKG",48,2 2,1,"PAH", 1,1,281,0) | 1329 | "PKG",48,2 2,1,"PAH", 1,1,281,0) | |||
1330 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | 1330 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | |||
1331 | "PKG",48,2 2,1,"PAH", 1,1,282,0) | 1331 | "PKG",48,2 2,1,"PAH", 1,1,282,0) | |||
1332 | Prot ocols? NO/ /", respon d NO | 1332 | Prot ocols? NO/ /", respon d NO | |||
1333 | "PKG",48,2 2,1,"PAH", 1,1,283,0) | 1333 | "PKG",48,2 2,1,"PAH", 1,1,283,0) | |||
1334 | 1334 | |||||
1335 | "PKG",48,2 2,1,"PAH", 1,1,284,0) | 1335 | "PKG",48,2 2,1,"PAH", 1,1,284,0) | |||
1336 | Back-Out/R oll Back P lan: | 1336 | Back-Out/R oll Back P lan: | |||
1337 | "PKG",48,2 2,1,"PAH", 1,1,285,0) | 1337 | "PKG",48,2 2,1,"PAH", 1,1,285,0) | |||
1338 | ---------- ---------- ---- | 1338 | ---------- ---------- ---- | |||
1339 | "PKG",48,2 2,1,"PAH", 1,1,286,0) | 1339 | "PKG",48,2 2,1,"PAH", 1,1,286,0) | |||
1340 | In the eve nt of a ca tastrophic failure, the Facili ty Chief I nformation | 1340 | In the eve nt of a ca tastrophic failure, the Facili ty Chief I nformation | |||
1341 | "PKG",48,2 2,1,"PAH", 1,1,287,0) | 1341 | "PKG",48,2 2,1,"PAH", 1,1,287,0) | |||
1342 | Officer ma y make the decision to back-ou t the patc h. | 1342 | Officer ma y make the decision to back-ou t the patc h. | |||
1343 | "PKG",48,2 2,1,"PAH", 1,1,288,0) | 1343 | "PKG",48,2 2,1,"PAH", 1,1,288,0) | |||
1344 | 1344 | |||||
1345 | "PKG",48,2 2,1,"PAH", 1,1,289,0) | 1345 | "PKG",48,2 2,1,"PAH", 1,1,289,0) | |||
1346 | It is impe rative tha t you have performed a backup of the rou tines and | 1346 | It is impe rative tha t you have performed a backup of the rou tines and | |||
1347 | "PKG",48,2 2,1,"PAH", 1,1,290,0) | 1347 | "PKG",48,2 2,1,"PAH", 1,1,290,0) | |||
1348 | the routin es include d matches the pre-pa tch checks um from th e patch | 1348 | the routin es include d matches the pre-pa tch checks um from th e patch | |||
1349 | "PKG",48,2 2,1,"PAH", 1,1,291,0) | 1349 | "PKG",48,2 2,1,"PAH", 1,1,291,0) | |||
1350 | descriptio n. | 1350 | descriptio n. | |||
1351 | "PKG",48,2 2,1,"PAH", 1,1,292,0) | 1351 | "PKG",48,2 2,1,"PAH", 1,1,292,0) | |||
1352 | 1352 | |||||
1353 | "PKG",48,2 2,1,"PAH", 1,1,293,0) | 1353 | "PKG",48,2 2,1,"PAH", 1,1,293,0) | |||
1354 | This patch only cont ains routi ne updates . To back- out the pa tch please | 1354 | This patch only cont ains routi ne updates . To back- out the pa tch please | |||
1355 | "PKG",48,2 2,1,"PAH", 1,1,294,0) | 1355 | "PKG",48,2 2,1,"PAH", 1,1,294,0) | |||
1356 | restore th e backup m essage fro m the patc h installa tion proce ss. | 1356 | restore th e backup m essage fro m the patc h installa tion proce ss. | |||
1357 | "QUES","XP F1",0) | 1357 | "QUES","XP F1",0) | |||
1358 | Y | 1358 | Y | |||
1359 | "QUES","XP F1","??") | 1359 | "QUES","XP F1","??") | |||
1360 | ^D REP^XPD H | 1360 | ^D REP^XPD H | |||
1361 | "QUES","XP F1","A") | 1361 | "QUES","XP F1","A") | |||
1362 | Shall I wr ite over y our |FLAG| File | 1362 | Shall I wr ite over y our |FLAG| File | |||
1363 | "QUES","XP F1","B") | 1363 | "QUES","XP F1","B") | |||
1364 | YES | 1364 | YES | |||
1365 | "QUES","XP F1","M") | 1365 | "QUES","XP F1","M") | |||
1366 | D XPF1^XPD IQ | 1366 | D XPF1^XPD IQ | |||
1367 | "QUES","XP F2",0) | 1367 | "QUES","XP F2",0) | |||
1368 | Y | 1368 | Y | |||
1369 | "QUES","XP F2","??") | 1369 | "QUES","XP F2","??") | |||
1370 | ^D DTA^XPD H | 1370 | ^D DTA^XPD H | |||
1371 | "QUES","XP F2","A") | 1371 | "QUES","XP F2","A") | |||
1372 | Want my da ta |FLAG| yours | 1372 | Want my da ta |FLAG| yours | |||
1373 | "QUES","XP F2","B") | 1373 | "QUES","XP F2","B") | |||
1374 | YES | 1374 | YES | |||
1375 | "QUES","XP F2","M") | 1375 | "QUES","XP F2","M") | |||
1376 | D XPF2^XPD IQ | 1376 | D XPF2^XPD IQ | |||
1377 | "QUES","XP I1",0) | 1377 | "QUES","XP I1",0) | |||
1378 | YO | 1378 | YO | |||
1379 | "QUES","XP I1","??") | 1379 | "QUES","XP I1","??") | |||
1380 | ^D INHIBIT ^XPDH | 1380 | ^D INHIBIT ^XPDH | |||
1381 | "QUES","XP I1","A") | 1381 | "QUES","XP I1","A") | |||
1382 | Want KIDS to INHIBIT LOGONs du ring the i nstall | 1382 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |||
1383 | "QUES","XP I1","B") | 1383 | "QUES","XP I1","B") | |||
1384 | NO | 1384 | NO | |||
1385 | "QUES","XP I1","M") | 1385 | "QUES","XP I1","M") | |||
1386 | D XPI1^XPD IQ | 1386 | D XPI1^XPD IQ | |||
1387 | "QUES","XP M1",0) | 1387 | "QUES","XP M1",0) | |||
1388 | PO^VA(200, :EM | 1388 | PO^VA(200, :EM | |||
1389 | "QUES","XP M1","??") | 1389 | "QUES","XP M1","??") | |||
1390 | ^D MG^XPDH | 1390 | ^D MG^XPDH | |||
1391 | "QUES","XP M1","A") | 1391 | "QUES","XP M1","A") | |||
1392 | Enter the Coordinato r for Mail Group '|F LAG|' | 1392 | Enter the Coordinato r for Mail Group '|F LAG|' | |||
1393 | "QUES","XP M1","B") | 1393 | "QUES","XP M1","B") | |||
1394 | 1394 | |||||
1395 | "QUES","XP M1","M") | 1395 | "QUES","XP M1","M") | |||
1396 | D XPM1^XPD IQ | 1396 | D XPM1^XPD IQ | |||
1397 | "QUES","XP O1",0) | 1397 | "QUES","XP O1",0) | |||
1398 | Y | 1398 | Y | |||
1399 | "QUES","XP O1","??") | 1399 | "QUES","XP O1","??") | |||
1400 | ^D MENU^XP DH | 1400 | ^D MENU^XP DH | |||
1401 | "QUES","XP O1","A") | 1401 | "QUES","XP O1","A") | |||
1402 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | 1402 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |||
1403 | "QUES","XP O1","B") | 1403 | "QUES","XP O1","B") | |||
1404 | NO | 1404 | NO | |||
1405 | "QUES","XP O1","M") | 1405 | "QUES","XP O1","M") | |||
1406 | D XPO1^XPD IQ | 1406 | D XPO1^XPD IQ | |||
1407 | "QUES","XP Z1",0) | 1407 | "QUES","XP Z1",0) | |||
1408 | Y | 1408 | Y | |||
1409 | "QUES","XP Z1","??") | 1409 | "QUES","XP Z1","??") | |||
1410 | ^D OPT^XPD H | 1410 | ^D OPT^XPD H | |||
1411 | "QUES","XP Z1","A") | 1411 | "QUES","XP Z1","A") | |||
1412 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | 1412 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |||
1413 | "QUES","XP Z1","B") | 1413 | "QUES","XP Z1","B") | |||
1414 | NO | 1414 | NO | |||
1415 | "QUES","XP Z1","M") | 1415 | "QUES","XP Z1","M") | |||
1416 | D XPZ1^XPD IQ | 1416 | D XPZ1^XPD IQ | |||
1417 | "QUES","XP Z2",0) | 1417 | "QUES","XP Z2",0) | |||
1418 | Y | 1418 | Y | |||
1419 | "QUES","XP Z2","??") | 1419 | "QUES","XP Z2","??") | |||
1420 | ^D RTN^XPD H | 1420 | ^D RTN^XPD H | |||
1421 | "QUES","XP Z2","A") | 1421 | "QUES","XP Z2","A") | |||
1422 | Want to MO VE routine s to other CPUs | 1422 | Want to MO VE routine s to other CPUs | |||
1423 | "QUES","XP Z2","B") | 1423 | "QUES","XP Z2","B") | |||
1424 | NO | 1424 | NO | |||
1425 | "QUES","XP Z2","M") | 1425 | "QUES","XP Z2","M") | |||
1426 | D XPZ2^XPD IQ | 1426 | D XPZ2^XPD IQ | |||
1427 | "RTN") | 1427 | "RTN") | |||
1428 | 7 | 1428 | 7 | |||
1429 | "RTN","SDA MEVT") | 1429 | "RTN","SDA MEVT") | |||
1430 | 0^1^B32857 672^B27512 966 | 1430 | 0^1^B32857 672^B27512 966 | |||
1431 | "RTN","SDA MEVT",1,0) | 1431 | "RTN","SDA MEVT",1,0) | |||
1432 | SDAMEVT ;A LB/MJK - A ppt Event Driver Uti lities ; 1 2/1/91 [ 0 9/19/96 1 :39 PM ] | 1432 | SDAMEVT ;A LB/MJK - A ppt Event Driver Uti lities ; 1 2/1/91 [ 0 9/19/96 1 :39 PM ] | |||
1433 | "RTN","SDA MEVT",2,0) | 1433 | "RTN","SDA MEVT",2,0) | |||
1434 | ;;5.3;Sch eduling;** 15,132,443 ,717**;Aug 13, 1993; Build 7 | 1434 | ;;5.3;Sch eduling;** 15,132,443 ,717**;Aug 13, 1993; Build 7 | |||
1435 | "RTN","SDA MEVT",3,0) | 1435 | "RTN","SDA MEVT",3,0) | |||
1436 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | 1436 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | |||
1437 | "RTN","SDA MEVT",4,0) | 1437 | "RTN","SDA MEVT",4,0) | |||
1438 | ; | 1438 | ; | |||
1439 | "RTN","SDA MEVT",5,0) | 1439 | "RTN","SDA MEVT",5,0) | |||
1440 | BEFORE(SDA TA,DFN,SDT ,SDCL,SDDA ,SDHDL) ; -- get bef ore values | 1440 | BEFORE(SDA TA,DFN,SDT ,SDCL,SDDA ,SDHDL) ; -- get bef ore values | |||
1441 | "RTN","SDA MEVT",6,0) | 1441 | "RTN","SDA MEVT",6,0) | |||
1442 | K ^TMP("S DAMEVT",$J ) | 1442 | K ^TMP("S DAMEVT",$J ) | |||
1443 | "RTN","SDA MEVT",7,0) | 1443 | "RTN","SDA MEVT",7,0) | |||
1444 | D CAPTURE ("BEFORE", .SDATA,.DF N,.SDT,.SD CL,.SDDA,. SDHDL) | 1444 | D CAPTURE ("BEFORE", .SDATA,.DF N,.SDT,.SD CL,.SDDA,. SDHDL) | |||
1445 | "RTN","SDA MEVT",8,0) | 1445 | "RTN","SDA MEVT",8,0) | |||
1446 | Q | 1446 | Q | |||
1447 | "RTN","SDA MEVT",9,0) | 1447 | "RTN","SDA MEVT",9,0) | |||
1448 | ; | 1448 | ; | |||
1449 | "RTN","SDA MEVT",10,0 ) | 1449 | "RTN","SDA MEVT",10,0 ) | |||
1450 | AFTER(SDAT A,DFN,SDT, SDCL,SDDA, SDHDL) ; - - get afte r values | 1450 | AFTER(SDAT A,DFN,SDT, SDCL,SDDA, SDHDL) ; - - get afte r values | |||
1451 | "RTN","SDA MEVT",11,0 ) | 1451 | "RTN","SDA MEVT",11,0 ) | |||
1452 | D CAPTURE ("AFTER",. SDATA,.DFN ,.SDT,.SDC L,.SDDA,.S DHDL) | 1452 | D CAPTURE ("AFTER",. SDATA,.DFN ,.SDT,.SDC L,.SDDA,.S DHDL) | |||
1453 | "RTN","SDA MEVT",12,0 ) | 1453 | "RTN","SDA MEVT",12,0 ) | |||
1454 | Q | 1454 | Q | |||
1455 | "RTN","SDA MEVT",13,0 ) | 1455 | "RTN","SDA MEVT",13,0 ) | |||
1456 | ; | 1456 | ; | |||
1457 | "RTN","SDA MEVT",14,0 ) | 1457 | "RTN","SDA MEVT",14,0 ) | |||
1458 | HANDLE(SDO RG) ; -- g et evt han dle | 1458 | HANDLE(SDO RG) ; -- g et evt han dle | |||
1459 | "RTN","SDA MEVT",15,0 ) | 1459 | "RTN","SDA MEVT",15,0 ) | |||
1460 | ; SDORG = originat ing proces s (1=appt , 2=a/e , 3=disp) | 1460 | ; SDORG = originat ing proces s (1=appt , 2=a/e , 3=disp) | |||
1461 | "RTN","SDA MEVT",16,0 ) | 1461 | "RTN","SDA MEVT",16,0 ) | |||
1462 | S (Y,^($J ))=$G(^TMP ("SDEVT HA NDLE",$J)) +1 | 1462 | S (Y,^($J ))=$G(^TMP ("SDEVT HA NDLE",$J)) +1 | |||
1463 | "RTN","SDA MEVT",17,0 ) | 1463 | "RTN","SDA MEVT",17,0 ) | |||
1464 | Q Y | 1464 | Q Y | |||
1465 | "RTN","SDA MEVT",18,0 ) | 1465 | "RTN","SDA MEVT",18,0 ) | |||
1466 | ; | 1466 | ; | |||
1467 | "RTN","SDA MEVT",19,0 ) | 1467 | "RTN","SDA MEVT",19,0 ) | |||
1468 | CLEAN(SDHD L) ; | 1468 | CLEAN(SDHD L) ; | |||
1469 | "RTN","SDA MEVT",20,0 ) | 1469 | "RTN","SDA MEVT",20,0 ) | |||
1470 | K ^TMP("S DEVT",$J,S DHDL) | 1470 | K ^TMP("S DEVT",$J,S DHDL) | |||
1471 | "RTN","SDA MEVT",21,0 ) | 1471 | "RTN","SDA MEVT",21,0 ) | |||
1472 | Q | 1472 | Q | |||
1473 | "RTN","SDA MEVT",22,0 ) | 1473 | "RTN","SDA MEVT",22,0 ) | |||
1474 | ; | 1474 | ; | |||
1475 | "RTN","SDA MEVT",23,0 ) | 1475 | "RTN","SDA MEVT",23,0 ) | |||
1476 | HDLKILL ; -- kill of f handle d ata | 1476 | HDLKILL ; -- kill of f handle d ata | |||
1477 | "RTN","SDA MEVT",24,0 ) | 1477 | "RTN","SDA MEVT",24,0 ) | |||
1478 | K SDHDL,^ TMP("SDEVT HANDLE",$ J),^TMP("S DEVT",$J) | 1478 | K SDHDL,^ TMP("SDEVT HANDLE",$ J),^TMP("S DEVT",$J) | |||
1479 | "RTN","SDA MEVT",25,0 ) | 1479 | "RTN","SDA MEVT",25,0 ) | |||
1480 | Q | 1480 | Q | |||
1481 | "RTN","SDA MEVT",26,0 ) | 1481 | "RTN","SDA MEVT",26,0 ) | |||
1482 | ; | 1482 | ; | |||
1483 | "RTN","SDA MEVT",27,0 ) | 1483 | "RTN","SDA MEVT",27,0 ) | |||
1484 | CAPTURE(SD CAP,SDATA, DFN,SDT,SD CL,SDDA,SD HDL) ; | 1484 | CAPTURE(SD CAP,SDATA, DFN,SDT,SD CL,SDDA,SD HDL) ; | |||
1485 | "RTN","SDA MEVT",28,0 ) | 1485 | "RTN","SDA MEVT",28,0 ) | |||
1486 | N Z | 1486 | N Z | |||
1487 | "RTN","SDA MEVT",29,0 ) | 1487 | "RTN","SDA MEVT",29,0 ) | |||
1488 | S (Z,^TMP ("SDAMEVT" ,$J,SDCAP, "DPT"),^TM P("SDEVT", $J,SDHDL,1 ,"DPT",0,S DCAP))=$G( ^DPT(DFN," S",SDT,0)) | 1488 | S (Z,^TMP ("SDAMEVT" ,$J,SDCAP, "DPT"),^TM P("SDEVT", $J,SDHDL,1 ,"DPT",0,S DCAP))=$G( ^DPT(DFN," S",SDT,0)) | |||
1489 | "RTN","SDA MEVT",30,0 ) | 1489 | "RTN","SDA MEVT",30,0 ) | |||
1490 | S (^TMP(" SDAMEVT",$ J,SDCAP,"S C"),^TMP(" SDEVT",$J, SDHDL,1,"S C",0,SDCAP ))=$G(^SC( SDCL,"S",S DT,1,+SDDA ,0)) | 1490 | S (^TMP(" SDAMEVT",$ J,SDCAP,"S C"),^TMP(" SDEVT",$J, SDHDL,1,"S C",0,SDCAP ))=$G(^SC( SDCL,"S",S DT,1,+SDDA ,0)) | |||
1491 | "RTN","SDA MEVT",31,0 ) | 1491 | "RTN","SDA MEVT",31,0 ) | |||
1492 | S (^TMP(" SDAMEVT",$ J,SDCAP,"S TATUS"),SD ATA(SDCAP, "STATUS")) =$TR($$STA TUS^SDAM1( DFN,SDT,SD CL,Z,SDDA) ,";","^") | 1492 | S (^TMP(" SDAMEVT",$ J,SDCAP,"S TATUS"),SD ATA(SDCAP, "STATUS")) =$TR($$STA TUS^SDAM1( DFN,SDT,SD CL,Z,SDDA) ,";","^") | |||
1493 | "RTN","SDA MEVT",32,0 ) | 1493 | "RTN","SDA MEVT",32,0 ) | |||
1494 | D:$P(Z,U, 20) OE(.SD CAP,1,$P(Z ,U,20),.SD HDL) | 1494 | D:$P(Z,U, 20) OE(.SD CAP,1,$P(Z ,U,20),.SD HDL) | |||
1495 | "RTN","SDA MEVT",33,0 ) | 1495 | "RTN","SDA MEVT",33,0 ) | |||
1496 | Q | 1496 | Q | |||
1497 | "RTN","SDA MEVT",34,0 ) | 1497 | "RTN","SDA MEVT",34,0 ) | |||
1498 | ; | 1498 | ; | |||
1499 | "RTN","SDA MEVT",35,0 ) | 1499 | "RTN","SDA MEVT",35,0 ) | |||
1500 | ; | 1500 | ; | |||
1501 | "RTN","SDA MEVT",36,0 ) | 1501 | "RTN","SDA MEVT",36,0 ) | |||
1502 | EVT(SDATA, SDAMEVT,SD MODE,SDHDL ) ; -- cal ls the sda m event pr otocol | 1502 | EVT(SDATA, SDAMEVT,SD MODE,SDHDL ) ; -- cal ls the sda m event pr otocol | |||
1503 | "RTN","SDA MEVT",37,0 ) | 1503 | "RTN","SDA MEVT",37,0 ) | |||
1504 | N OROLD | 1504 | N OROLD | |||
1505 | "RTN","SDA MEVT",38,0 ) | 1505 | "RTN","SDA MEVT",38,0 ) | |||
1506 | K DTOUT,D IROUT | 1506 | K DTOUT,D IROUT | |||
1507 | "RTN","SDA MEVT",39,0 ) | 1507 | "RTN","SDA MEVT",39,0 ) | |||
1508 | I $G(SDAT A("BEFORE" ,"STATUS") )=$G(SDATA ("AFTER"," STATUS")), '$$COMP^SD AMEVT4(SDH DL,SDAMEVT ) G EVTQ ; SD*5.3*4 43 | 1508 | I $G(SDAT A("BEFORE" ,"STATUS") )=$G(SDATA ("AFTER"," STATUS")), '$$COMP^SD AMEVT4(SDH DL,SDAMEVT ) G EVTQ ; SD*5.3*4 43 | |||
1509 | "RTN","SDA MEVT",40,0 ) | 1509 | "RTN","SDA MEVT",40,0 ) | |||
1510 | S:$P(SDAT A,U,3) $P( SDATA,U,5) =$$REQ^SDM 1A(+$P(SDA TA,U,3)) | 1510 | S:$P(SDAT A,U,3) $P( SDATA,U,5) =$$REQ^SDM 1A(+$P(SDA TA,U,3)) | |||
1511 | "RTN","SDA MEVT",41,0 ) | 1511 | "RTN","SDA MEVT",41,0 ) | |||
1512 | I SDMODE= 2 N DGQUIE T S DGQUIE T=1 ;*zeb 10/4/18 7 17 set DGQ UIET to su ppress use r interact ion when c alled from GUI | 1512 | I SDMODE= 2 N DGQUIE T S DGQUIE T=1 ;*zeb 10/4/18 7 17 set DGQ UIET to su ppress use r interact ion when c alled from GUI | |||
1513 | "RTN","SDA MEVT",42,0 ) | 1513 | "RTN","SDA MEVT",42,0 ) | |||
1514 | S X=+$O(^ ORD(101,"B ","SDAM AP POINTMENT EVENTS",0) )_";ORD(10 1," | 1514 | S X=+$O(^ ORD(101,"B ","SDAM AP POINTMENT EVENTS",0) )_";ORD(10 1," | |||
1515 | "RTN","SDA MEVT",43,0 ) | 1515 | "RTN","SDA MEVT",43,0 ) | |||
1516 | D EN^XQOR | 1516 | D EN^XQOR | |||
1517 | "RTN","SDA MEVT",44,0 ) | 1517 | "RTN","SDA MEVT",44,0 ) | |||
1518 | EVTQ K XQO RPOP,X,^TM P("SDAMEVT ",$J) D CL EAN(SDHDL) Q | 1518 | EVTQ K XQO RPOP,X,^TM P("SDAMEVT ",$J) D CL EAN(SDHDL) Q | |||
1519 | "RTN","SDA MEVT",45,0 ) | 1519 | "RTN","SDA MEVT",45,0 ) | |||
1520 | ; | 1520 | ; | |||
1521 | "RTN","SDA MEVT",46,0 ) | 1521 | "RTN","SDA MEVT",46,0 ) | |||
1522 | ; | 1522 | ; | |||
1523 | "RTN","SDA MEVT",47,0 ) | 1523 | "RTN","SDA MEVT",47,0 ) | |||
1524 | MAKE(DFN,S DT,SDCL,SD DA,SDMODE) ; -- make appt even t #1 | 1524 | MAKE(DFN,S DT,SDCL,SD DA,SDMODE) ; -- make appt even t #1 | |||
1525 | "RTN","SDA MEVT",48,0 ) | 1525 | "RTN","SDA MEVT",48,0 ) | |||
1526 | N SDATA,% ,SDMKHDL,S DHDL K ^TM P("SDAMEVT ",$J) | 1526 | N SDATA,% ,SDMKHDL,S DHDL K ^TM P("SDAMEVT ",$J) | |||
1527 | "RTN","SDA MEVT",49,0 ) | 1527 | "RTN","SDA MEVT",49,0 ) | |||
1528 | S SDMKHDL =$$HANDLE( 1) | 1528 | S SDMKHDL =$$HANDLE( 1) | |||
1529 | "RTN","SDA MEVT",50,0 ) | 1529 | "RTN","SDA MEVT",50,0 ) | |||
1530 | S (^TMP(" SDAMEVT",$ J,"BEFORE" ,"DPT"),^T MP("SDAMEV T",$J,"BEF ORE","SC") ,SDATA("BE FORE","STA TUS"),^TMP ("SDAMEVT" ,$J,"BEFOR E","STATUS "),^TMP("S DEVT",$J,S DMKHDL,1," DPT",0,"BE FORE"),^TM P("SDEVT", $J,SDMKHDL ,1,"SC",0, "BEFORE")) ="" | 1530 | S (^TMP(" SDAMEVT",$ J,"BEFORE" ,"DPT"),^T MP("SDAMEV T",$J,"BEF ORE","SC") ,SDATA("BE FORE","STA TUS"),^TMP ("SDAMEVT" ,$J,"BEFOR E","STATUS "),^TMP("S DEVT",$J,S DMKHDL,1," DPT",0,"BE FORE"),^TM P("SDEVT", $J,SDMKHDL ,1,"SC",0, "BEFORE")) ="" | |||
1531 | "RTN","SDA MEVT",51,0 ) | 1531 | "RTN","SDA MEVT",51,0 ) | |||
1532 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDMKHD L) | 1532 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDMKHD L) | |||
1533 | "RTN","SDA MEVT",52,0 ) | 1533 | "RTN","SDA MEVT",52,0 ) | |||
1534 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | 1534 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |||
1535 | "RTN","SDA MEVT",53,0 ) | 1535 | "RTN","SDA MEVT",53,0 ) | |||
1536 | D EVT(.SD ATA,1,+$G( SDMODE),SD MKHDL) ;* zeb 10/25/ 18 717 fix typo with SDMODE so SDMODE is passed co rrectly | 1536 | D EVT(.SD ATA,1,+$G( SDMODE),SD MKHDL) ;* zeb 10/25/ 18 717 fix typo with SDMODE so SDMODE is passed co rrectly | |||
1537 | "RTN","SDA MEVT",54,0 ) | 1537 | "RTN","SDA MEVT",54,0 ) | |||
1538 | Q:SDMODE= 2 ;*zeb 1 0/24/18 71 7 don't ne ed check i n/out code below if calling fr om GUI | 1538 | Q:SDMODE= 2 ;*zeb 1 0/24/18 71 7 don't ne ed check i n/out code below if calling fr om GUI | |||
1539 | "RTN","SDA MEVT",55,0 ) | 1539 | "RTN","SDA MEVT",55,0 ) | |||
1540 | ; -- if a ppt d/t is less than NOW then check-in | 1540 | ; -- if a ppt d/t is less than NOW then check-in | |||
1541 | "RTN","SDA MEVT",56,0 ) | 1541 | "RTN","SDA MEVT",56,0 ) | |||
1542 | D NOW^%DT C | 1542 | D NOW^%DT C | |||
1543 | "RTN","SDA MEVT",57,0 ) | 1543 | "RTN","SDA MEVT",57,0 ) | |||
1544 | I SDT<% W :'$G(SDMOD E) ! D | 1544 | I SDT<% W :'$G(SDMOD E) ! D | |||
1545 | "RTN","SDA MEVT",58,0 ) | 1545 | "RTN","SDA MEVT",58,0 ) | |||
1546 | .N SDACT, SDCOQUIT | 1546 | .N SDACT, SDCOQUIT | |||
1547 | "RTN","SDA MEVT",59,0 ) | 1547 | "RTN","SDA MEVT",59,0 ) | |||
1548 | .S SDDA=+ SDATA,DFN= $P(SDATA,U ,2),SDT=$P (SDATA,U,3 ),SDCL=$P( SDATA,U,4) K SDATA | 1548 | .S SDDA=+ SDATA,DFN= $P(SDATA,U ,2),SDT=$P (SDATA,U,3 ),SDCL=$P( SDATA,U,4) K SDATA | |||
1549 | "RTN","SDA MEVT",60,0 ) | 1549 | "RTN","SDA MEVT",60,0 ) | |||
1550 | .I $$REQ^ SDM1A(SDT) ="CO",'$G( SDCOACT) D | 1550 | .I $$REQ^ SDM1A(SDT) ="CO",'$G( SDCOACT) D | |||
1551 | "RTN","SDA MEVT",61,0 ) | 1551 | "RTN","SDA MEVT",61,0 ) | |||
1552 | ..S SDACT =$S(SDT<DT :"CO",1:$$ ASK^SDAMEX ) I SDACT' ]"" S SDCO QUIT=1 Q | 1552 | ..S SDACT =$S(SDT<DT :"CO",1:$$ ASK^SDAMEX ) I SDACT' ]"" S SDCO QUIT=1 Q | |||
1553 | "RTN","SDA MEVT",62,0 ) | 1553 | "RTN","SDA MEVT",62,0 ) | |||
1554 | ..I SDACT ="CO" D CO ^SDCO1(DFN ,SDT,SDCL, SDDA,0,SDT ) | 1554 | ..I SDACT ="CO" D CO ^SDCO1(DFN ,SDT,SDCL, SDDA,0,SDT ) | |||
1555 | "RTN","SDA MEVT",63,0 ) | 1555 | "RTN","SDA MEVT",63,0 ) | |||
1556 | .I '$G(SD COQUIT),$G (SDACT)'=" CO" D ONE^ SDAM2(DFN, SDCL,SDT,S DDA,0,SDT) | 1556 | .I '$G(SD COQUIT),$G (SDACT)'=" CO" D ONE^ SDAM2(DFN, SDCL,SDT,S DDA,0,SDT) | |||
1557 | "RTN","SDA MEVT",64,0 ) | 1557 | "RTN","SDA MEVT",64,0 ) | |||
1558 | Q | 1558 | Q | |||
1559 | "RTN","SDA MEVT",65,0 ) | 1559 | "RTN","SDA MEVT",65,0 ) | |||
1560 | ; | 1560 | ; | |||
1561 | "RTN","SDA MEVT",66,0 ) | 1561 | "RTN","SDA MEVT",66,0 ) | |||
1562 | ; | 1562 | ; | |||
1563 | "RTN","SDA MEVT",67,0 ) | 1563 | "RTN","SDA MEVT",67,0 ) | |||
1564 | CANCEL(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; -- cancel eve nt #2 | 1564 | CANCEL(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; -- cancel eve nt #2 | |||
1565 | "RTN","SDA MEVT",68,0 ) | 1565 | "RTN","SDA MEVT",68,0 ) | |||
1566 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL) | 1566 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL) | |||
1567 | "RTN","SDA MEVT",69,0 ) | 1567 | "RTN","SDA MEVT",69,0 ) | |||
1568 | I (SDMODE '=2),("^5^ 7^9^10^"[( "^"_+SDATA ("AFTER"," STATUS")_" ^")),($P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) ) D EN^SDC ODEL(+$P(^ (0),"^",20 ),0,SDHDL) ,OENUL^SDA MEVT1("AFT ER",SDHDL) ;*zeb 10 /25/18 717 status ha s already changed fo r GUI call s | 1568 | I (SDMODE '=2),("^5^ 7^9^10^"[( "^"_+SDATA ("AFTER"," STATUS")_" ^")),($P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) ) D EN^SDC ODEL(+$P(^ (0),"^",20 ),0,SDHDL) ,OENUL^SDA MEVT1("AFT ER",SDHDL) ;*zeb 10 /25/18 717 status ha s already changed fo r GUI call s | |||
1569 | "RTN","SDA MEVT",70,0 ) | 1569 | "RTN","SDA MEVT",70,0 ) | |||
1570 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | 1570 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |||
1571 | "RTN","SDA MEVT",71,0 ) | 1571 | "RTN","SDA MEVT",71,0 ) | |||
1572 | D EVT(.SD ATA,2,$S(S DMODE=2:2, 1:0),SDHDL ) ;*zeb 1 0/25/18 71 7 don't as sume SDMOD E is 0 if it is 2 | 1572 | D EVT(.SD ATA,2,$S(S DMODE=2:2, 1:0),SDHDL ) ;*zeb 1 0/25/18 71 7 don't as sume SDMOD E is 0 if it is 2 | |||
1573 | "RTN","SDA MEVT",72,0 ) | 1573 | "RTN","SDA MEVT",72,0 ) | |||
1574 | Q | 1574 | Q | |||
1575 | "RTN","SDA MEVT",73,0 ) | 1575 | "RTN","SDA MEVT",73,0 ) | |||
1576 | ; | 1576 | ; | |||
1577 | "RTN","SDA MEVT",74,0 ) | 1577 | "RTN","SDA MEVT",74,0 ) | |||
1578 | ; | 1578 | ; | |||
1579 | "RTN","SDA MEVT",75,0 ) | 1579 | "RTN","SDA MEVT",75,0 ) | |||
1580 | NOSHOW(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; -- no-show ev ent #3 | 1580 | NOSHOW(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; -- no-show ev ent #3 | |||
1581 | "RTN","SDA MEVT",76,0 ) | 1581 | "RTN","SDA MEVT",76,0 ) | |||
1582 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL) | 1582 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL) | |||
1583 | "RTN","SDA MEVT",77,0 ) | 1583 | "RTN","SDA MEVT",77,0 ) | |||
1584 | I "^4^6^" [("^"_+SDA TA("AFTER" ,"STATUS") _"^"),$P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) D EN^SDCO DEL(+$P(^( 0),"^",20) ,0,SDHDL), OENUL^SDAM EVT1("AFTE R",SDHDL) | 1584 | I "^4^6^" [("^"_+SDA TA("AFTER" ,"STATUS") _"^"),$P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) D EN^SDCO DEL(+$P(^( 0),"^",20) ,0,SDHDL), OENUL^SDAM EVT1("AFTE R",SDHDL) | |||
1585 | "RTN","SDA MEVT",78,0 ) | 1585 | "RTN","SDA MEVT",78,0 ) | |||
1586 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | 1586 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |||
1587 | "RTN","SDA MEVT",79,0 ) | 1587 | "RTN","SDA MEVT",79,0 ) | |||
1588 | D EVT(.SD ATA,3,0,SD HDL) | 1588 | D EVT(.SD ATA,3,0,SD HDL) | |||
1589 | "RTN","SDA MEVT",80,0 ) | 1589 | "RTN","SDA MEVT",80,0 ) | |||
1590 | Q | 1590 | Q | |||
1591 | "RTN","SDA MEVT",81,0 ) | 1591 | "RTN","SDA MEVT",81,0 ) | |||
1592 | ; | 1592 | ; | |||
1593 | "RTN","SDA MEVT",82,0 ) | 1593 | "RTN","SDA MEVT",82,0 ) | |||
1594 | OE(SDCAP,S DORG,SDOE, SDHDL) ; - - set up e ncounter d ata | 1594 | OE(SDCAP,S DORG,SDOE, SDHDL) ; - - set up e ncounter d ata | |||
1595 | "RTN","SDA MEVT",83,0 ) | 1595 | "RTN","SDA MEVT",83,0 ) | |||
1596 | N I,OP,FI LE,X,SDKID | 1596 | N I,OP,FI LE,X,SDKID | |||
1597 | "RTN","SDA MEVT",84,0 ) | 1597 | "RTN","SDA MEVT",84,0 ) | |||
1598 | ; | 1598 | ; | |||
1599 | "RTN","SDA MEVT",85,0 ) | 1599 | "RTN","SDA MEVT",85,0 ) | |||
1600 | ; -- set up 'OP'pos ite variab le | 1600 | ; -- set up 'OP'pos ite variab le | |||
1601 | "RTN","SDA MEVT",86,0 ) | 1601 | "RTN","SDA MEVT",86,0 ) | |||
1602 | S OP=$S(S DCAP="BEFO RE":"AFTER ",1:"BEFOR E") | 1602 | S OP=$S(S DCAP="BEFO RE":"AFTER ",1:"BEFOR E") | |||
1603 | "RTN","SDA MEVT",87,0 ) | 1603 | "RTN","SDA MEVT",87,0 ) | |||
1604 | ; | 1604 | ; | |||
1605 | "RTN","SDA MEVT",88,0 ) | 1605 | "RTN","SDA MEVT",88,0 ) | |||
1606 | ; -- set zero of oe | 1606 | ; -- set zero of oe | |||
1607 | "RTN","SDA MEVT",89,0 ) | 1607 | "RTN","SDA MEVT",89,0 ) | |||
1608 | S X=$G(^S CE(SDOE,0) ) | 1608 | S X=$G(^S CE(SDOE,0) ) | |||
1609 | "RTN","SDA MEVT",90,0 ) | 1609 | "RTN","SDA MEVT",90,0 ) | |||
1610 | S ^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,0,SDCAP )=X | 1610 | S ^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,0,SDCAP )=X | |||
1611 | "RTN","SDA MEVT",91,0 ) | 1611 | "RTN","SDA MEVT",91,0 ) | |||
1612 | S:'$D(^TM P("SDEVT", $J,SDHDL,S DORG,"SDOE ",SDOE,0,O P)) ^(OP)= "" | 1612 | S:'$D(^TM P("SDEVT", $J,SDHDL,S DORG,"SDOE ",SDOE,0,O P)) ^(OP)= "" | |||
1613 | "RTN","SDA MEVT",92,0 ) | 1613 | "RTN","SDA MEVT",92,0 ) | |||
1614 | ; | 1614 | ; | |||
1615 | "RTN","SDA MEVT",93,0 ) | 1615 | "RTN","SDA MEVT",93,0 ) | |||
1616 | ; -- save other dat a | 1616 | ; -- save other dat a | |||
1617 | "RTN","SDA MEVT",94,0 ) | 1617 | "RTN","SDA MEVT",94,0 ) | |||
1618 | S FILE=40 9.42 | 1618 | S FILE=40 9.42 | |||
1619 | "RTN","SDA MEVT",95,0 ) | 1619 | "RTN","SDA MEVT",95,0 ) | |||
1620 | S I=0 F S I=$O(^SD D(FILE,"OE ",SDOE,I)) Q:'I D | 1620 | S I=0 F S I=$O(^SD D(FILE,"OE ",SDOE,I)) Q:'I D | |||
1621 | "RTN","SDA MEVT",96,0 ) | 1621 | "RTN","SDA MEVT",96,0 ) | |||
1622 | . S X=$G( ^SDD(FILE, I,0)) | 1622 | . S X=$G( ^SDD(FILE, I,0)) | |||
1623 | "RTN","SDA MEVT",97,0 ) | 1623 | "RTN","SDA MEVT",97,0 ) | |||
1624 | . S ^TMP( "SDEVT",$J ,SDHDL,SDO RG,"SDOE", SDOE,"CL", I,0,SDCAP) =X | 1624 | . S ^TMP( "SDEVT",$J ,SDHDL,SDO RG,"SDOE", SDOE,"CL", I,0,SDCAP) =X | |||
1625 | "RTN","SDA MEVT",98,0 ) | 1625 | "RTN","SDA MEVT",98,0 ) | |||
1626 | . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,SDORG,"SD OE",SDOE," CL",I,0,OP )) ^(OP)=" " | 1626 | . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,SDORG,"SD OE",SDOE," CL",I,0,OP )) ^(OP)=" " | |||
1627 | "RTN","SDA MEVT",99,0 ) | 1627 | "RTN","SDA MEVT",99,0 ) | |||
1628 | ; | 1628 | ; | |||
1629 | "RTN","SDA MEVT",100, 0) | 1629 | "RTN","SDA MEVT",100, 0) | |||
1630 | IF SDORG' =1,SDORG'= 3 G OEQ | 1630 | IF SDORG' =1,SDORG'= 3 G OEQ | |||
1631 | "RTN","SDA MEVT",101, 0) | 1631 | "RTN","SDA MEVT",101, 0) | |||
1632 | ; | 1632 | ; | |||
1633 | "RTN","SDA MEVT",102, 0) | 1633 | "RTN","SDA MEVT",102, 0) | |||
1634 | ; -- gets children oe's | 1634 | ; -- gets children oe's | |||
1635 | "RTN","SDA MEVT",103, 0) | 1635 | "RTN","SDA MEVT",103, 0) | |||
1636 | S SDKID=0 | 1636 | S SDKID=0 | |||
1637 | "RTN","SDA MEVT",104, 0) | 1637 | "RTN","SDA MEVT",104, 0) | |||
1638 | F S SDKI D=$O(^SCE( "APAR",SDO E,SDKID)) Q:'SDKID D | 1638 | F S SDKI D=$O(^SCE( "APAR",SDO E,SDKID)) Q:'SDKID D | |||
1639 | "RTN","SDA MEVT",105, 0) | 1639 | "RTN","SDA MEVT",105, 0) | |||
1640 | . S X=$G( ^SCE(SDKID ,0)) | 1640 | . S X=$G( ^SCE(SDKID ,0)) | |||
1641 | "RTN","SDA MEVT",106, 0) | 1641 | "RTN","SDA MEVT",106, 0) | |||
1642 | . IF $P(X ,U,8)'=4 Q ; -- mus t be a cre dit stop e ncounter | 1642 | . IF $P(X ,U,8)'=4 Q ; -- mus t be a cre dit stop e ncounter | |||
1643 | "RTN","SDA MEVT",107, 0) | 1643 | "RTN","SDA MEVT",107, 0) | |||
1644 | . S ^TMP( "SDEVT",$J ,SDHDL,4," SDOE",SDKI D,0,SDCAP) =X | 1644 | . S ^TMP( "SDEVT",$J ,SDHDL,4," SDOE",SDKI D,0,SDCAP) =X | |||
1645 | "RTN","SDA MEVT",108, 0) | 1645 | "RTN","SDA MEVT",108, 0) | |||
1646 | . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,4,"SDOE", SDKID,0,OP )) ^(OP)=" " | 1646 | . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,4,"SDOE", SDKID,0,OP )) ^(OP)=" " | |||
1647 | "RTN","SDA MEVT",109, 0) | 1647 | "RTN","SDA MEVT",109, 0) | |||
1648 | OEQ Q | 1648 | OEQ Q | |||
1649 | "RTN","SDA MEVT",110, 0) | 1649 | "RTN","SDA MEVT",110, 0) | |||
1650 | ; | 1650 | ; | |||
1651 | "RTN","SDA MEVT",111, 0) | 1651 | "RTN","SDA MEVT",111, 0) | |||
1652 | OECHG(SDOR G,SDHDL) ; -- compar e befores and afters | 1652 | OECHG(SDOR G,SDHDL) ; -- compar e befores and afters | |||
1653 | "RTN","SDA MEVT",112, 0) | 1653 | "RTN","SDA MEVT",112, 0) | |||
1654 | N Y,I,SDO E S (Y,SDO E)=0 | 1654 | N Y,I,SDO E S (Y,SDO E)=0 | |||
1655 | "RTN","SDA MEVT",113, 0) | 1655 | "RTN","SDA MEVT",113, 0) | |||
1656 | F S SDOE =$O(^TMP(" SDEVT",$J, SDHDL,SDOR G,"SDOE",S DOE)) Q:'S DOE D Q: Y | 1656 | F S SDOE =$O(^TMP(" SDEVT",$J, SDHDL,SDOR G,"SDOE",S DOE)) Q:'S DOE D Q: Y | |||
1657 | "RTN","SDA MEVT",114, 0) | 1657 | "RTN","SDA MEVT",114, 0) | |||
1658 | . S I=0 | 1658 | . S I=0 | |||
1659 | "RTN","SDA MEVT",115, 0) | 1659 | "RTN","SDA MEVT",115, 0) | |||
1660 | . F S I= $O(^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,"CL",I) ) Q:'I I $G(^(I,0," BEFORE"))= '$G(^("AFT ER")) S Y= 1 Q | 1660 | . F S I= $O(^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,"CL",I) ) Q:'I I $G(^(I,0," BEFORE"))= '$G(^("AFT ER")) S Y= 1 Q | |||
1661 | "RTN","SDA MEVT",116, 0) | 1661 | "RTN","SDA MEVT",116, 0) | |||
1662 | Q Y | 1662 | Q Y | |||
1663 | "RTN","SDA MEVT",117, 0) | 1663 | "RTN","SDA MEVT",117, 0) | |||
1664 | ; | 1664 | ; | |||
1665 | "RTN","SDA MEVT",118, 0) | 1665 | "RTN","SDA MEVT",118, 0) | |||
1666 | OEVT(SDOE, SDCAP,SDHD L,SDATA,SD OE0) ; -- event driv er calls b y oe | 1666 | OEVT(SDOE, SDCAP,SDHD L,SDATA,SD OE0) ; -- event driv er calls b y oe | |||
1667 | "RTN","SDA MEVT",119, 0) | 1667 | "RTN","SDA MEVT",119, 0) | |||
1668 | ; SDATA o nly requir ed for app ts | 1668 | ; SDATA o nly requir ed for app ts | |||
1669 | "RTN","SDA MEVT",120, 0) | 1669 | "RTN","SDA MEVT",120, 0) | |||
1670 | ; SDOE0 o nly requir ed for che ck out del etion AFTE R | 1670 | ; SDOE0 o nly requir ed for che ck out del etion AFTE R | |||
1671 | "RTN","SDA MEVT",121, 0) | 1671 | "RTN","SDA MEVT",121, 0) | |||
1672 | ; | 1672 | ; | |||
1673 | "RTN","SDA MEVT",122, 0) | 1673 | "RTN","SDA MEVT",122, 0) | |||
1674 | N SD0,SDO RG,SDT,DFN ,SDDA,SDCL ,SDOEP | 1674 | N SD0,SDO RG,SDT,DFN ,SDDA,SDCL ,SDOEP | |||
1675 | "RTN","SDA MEVT",123, 0) | 1675 | "RTN","SDA MEVT",123, 0) | |||
1676 | S SD0=$S( $D(^SCE(SD OE,0)):^(0 ),1:$G(SDO E0)),SDOEP =$P(SD0,U, 6) | 1676 | S SD0=$S( $D(^SCE(SD OE,0)):^(0 ),1:$G(SDO E0)),SDOEP =$P(SD0,U, 6) | |||
1677 | "RTN","SDA MEVT",124, 0) | 1677 | "RTN","SDA MEVT",124, 0) | |||
1678 | I SD0']"" !(SDOEP) G OEVTQ | 1678 | I SD0']"" !(SDOEP) G OEVTQ | |||
1679 | "RTN","SDA MEVT",125, 0) | 1679 | "RTN","SDA MEVT",125, 0) | |||
1680 | S SDT=+SD 0,DFN=+$P( SD0,U,2),S DCL=+$P(SD 0,U,4),SDO RG=+$P(SD0 ,U,8),SDDA =$P(SD0,U, 9) | 1680 | S SDT=+SD 0,DFN=+$P( SD0,U,2),S DCL=+$P(SD 0,U,4),SDO RG=+$P(SD0 ,U,8),SDDA =$P(SD0,U, 9) | |||
1681 | "RTN","SDA MEVT",126, 0) | 1681 | "RTN","SDA MEVT",126, 0) | |||
1682 | I SDCAP=" BEFORE" D | 1682 | I SDCAP=" BEFORE" D | |||
1683 | "RTN","SDA MEVT",127, 0) | 1683 | "RTN","SDA MEVT",127, 0) | |||
1684 | .I SDORG= 1 D BEFORE (.SDATA,DF N,SDT,SDCL ,SDDA,SDHD L) Q | 1684 | .I SDORG= 1 D BEFORE (.SDATA,DF N,SDT,SDCL ,SDDA,SDHD L) Q | |||
1685 | "RTN","SDA MEVT",128, 0) | 1685 | "RTN","SDA MEVT",128, 0) | |||
1686 | .I SDORG= 2 D BEFORE ^SDAMEVT2( SDOE,SDHDL ) Q | 1686 | .I SDORG= 2 D BEFORE ^SDAMEVT2( SDOE,SDHDL ) Q | |||
1687 | "RTN","SDA MEVT",129, 0) | 1687 | "RTN","SDA MEVT",129, 0) | |||
1688 | .I SDORG= 3 D BEFORE ^SDAMEVT3( DFN,SDT,9, SDHDL) | 1688 | .I SDORG= 3 D BEFORE ^SDAMEVT3( DFN,SDT,9, SDHDL) | |||
1689 | "RTN","SDA MEVT",130, 0) | 1689 | "RTN","SDA MEVT",130, 0) | |||
1690 | I SDCAP=" AFTER" D | 1690 | I SDCAP=" AFTER" D | |||
1691 | "RTN","SDA MEVT",131, 0) | 1691 | "RTN","SDA MEVT",131, 0) | |||
1692 | .I SDORG= 1 S SDATA= SDDA_"^"_D FN_"^"_SDT _"^"_SDCL D AFTER(.S DATA,DFN,S DT,SDCL,SD DA,SDHDL), EVT(.SDATA ,5,0,SDHDL ) Q | 1692 | .I SDORG= 1 S SDATA= SDDA_"^"_D FN_"^"_SDT _"^"_SDCL D AFTER(.S DATA,DFN,S DT,SDCL,SD DA,SDHDL), EVT(.SDATA ,5,0,SDHDL ) Q | |||
1693 | "RTN","SDA MEVT",132, 0) | 1693 | "RTN","SDA MEVT",132, 0) | |||
1694 | .I SDORG= 2 D EVT^SD AMEVT2(SDO E,7,SDHDL) Q | 1694 | .I SDORG= 2 D EVT^SD AMEVT2(SDO E,7,SDHDL) Q | |||
1695 | "RTN","SDA MEVT",133, 0) | 1695 | "RTN","SDA MEVT",133, 0) | |||
1696 | .I SDORG= 3 D EVT^SD AMEVT3(DFN ,SDT,9,SDH DL) | 1696 | .I SDORG= 3 D EVT^SD AMEVT3(DFN ,SDT,9,SDH DL) | |||
1697 | "RTN","SDA MEVT",134, 0) | 1697 | "RTN","SDA MEVT",134, 0) | |||
1698 | OEVTQ Q | 1698 | OEVTQ Q | |||
1699 | "RTN","SDA MEVT",135, 0) | 1699 | "RTN","SDA MEVT",135, 0) | |||
1700 | ; | 1700 | ; | |||
1701 | "RTN","SDA MEVT",136, 0) | 1701 | "RTN","SDA MEVT",136, 0) | |||
1702 | ; -- SEE SDAMEVT0 F OR DOC ON VARIABLES | 1702 | ; -- SEE SDAMEVT0 F OR DOC ON VARIABLES | |||
1703 | "RTN","SDC O3") | 1703 | "RTN","SDC O3") | |||
1704 | 0^2^B42837 89^B391393 5 | 1704 | 0^2^B42837 89^B391393 5 | |||
1705 | "RTN","SDC O3",1,0) | 1705 | "RTN","SDC O3",1,0) | |||
1706 | SDCO3 ;ALB /RMO - Pro vider - Ch eck Out;08 DEC 1992 4:05 pm | 1706 | SDCO3 ;ALB /RMO - Pro vider - Ch eck Out;08 DEC 1992 4:05 pm | |||
1707 | "RTN","SDC O3",2,0) | 1707 | "RTN","SDC O3",2,0) | |||
1708 | ;;5.3;Sch eduling;** 28,27,44,6 7,71,132,4 66,717**;0 8/13/93;Bu ild 7 | 1708 | ;;5.3;Sch eduling;** 28,27,44,6 7,71,132,4 66,717**;0 8/13/93;Bu ild 7 | |||
1709 | "RTN","SDC O3",3,0) | 1709 | "RTN","SDC O3",3,0) | |||
1710 | ; | 1710 | ; | |||
1711 | "RTN","SDC O3",4,0) | 1711 | "RTN","SDC O3",4,0) | |||
1712 | EN ;Entry point for SDCO PROVI DER protoc ol | 1712 | EN ;Entry point for SDCO PROVI DER protoc ol | |||
1713 | "RTN","SDC O3",5,0) | 1713 | "RTN","SDC O3",5,0) | |||
1714 | ; Input -- SDOE | 1714 | ; Input -- SDOE | |||
1715 | "RTN","SDC O3",6,0) | 1715 | "RTN","SDC O3",6,0) | |||
1716 | ; | 1716 | ; | |||
1717 | "RTN","SDC O3",7,0) | 1717 | "RTN","SDC O3",7,0) | |||
1718 | S VALMBCK ="" | 1718 | S VALMBCK ="" | |||
1719 | "RTN","SDC O3",8,0) | 1719 | "RTN","SDC O3",8,0) | |||
1720 | ; | 1720 | ; | |||
1721 | "RTN","SDC O3",9,0) | 1721 | "RTN","SDC O3",9,0) | |||
1722 | ; -- if O LD encount er, quit | 1722 | ; -- if O LD encount er, quit | |||
1723 | "RTN","SDC O3",10,0) | 1723 | "RTN","SDC O3",10,0) | |||
1724 | IF '$$EDI TOK($G(SDO E),1) G EN Q | 1724 | IF '$$EDI TOK($G(SDO E),1) G EN Q | |||
1725 | "RTN","SDC O3",11,0) | 1725 | "RTN","SDC O3",11,0) | |||
1726 | ; | 1726 | ; | |||
1727 | "RTN","SDC O3",12,0) | 1727 | "RTN","SDC O3",12,0) | |||
1728 | ; -- call PCE inter view | 1728 | ; -- call PCE inter view | |||
1729 | "RTN","SDC O3",13,0) | 1729 | "RTN","SDC O3",13,0) | |||
1730 | N SDVISIT ,SDHL | 1730 | N SDVISIT ,SDHL | |||
1731 | "RTN","SDC O3",14,0) | 1731 | "RTN","SDC O3",14,0) | |||
1732 | S SDVISIT =$P($G(^SC E(+SDOE,0) ),U,5) | 1732 | S SDVISIT =$P($G(^SC E(+SDOE,0) ),U,5) | |||
1733 | "RTN","SDC O3",15,0) | 1733 | "RTN","SDC O3",15,0) | |||
1734 | S X=$$INT V^PXAPI("P RV","SD"," PIMS",SDVI SIT) | 1734 | S X=$$INT V^PXAPI("P RV","SD"," PIMS",SDVI SIT) | |||
1735 | "RTN","SDC O3",16,0) | 1735 | "RTN","SDC O3",16,0) | |||
1736 | D BLD^SDC O S VALMBC K="R" | 1736 | D BLD^SDC O S VALMBC K="R" | |||
1737 | "RTN","SDC O3",17,0) | 1737 | "RTN","SDC O3",17,0) | |||
1738 | ENQ Q | 1738 | ENQ Q | |||
1739 | "RTN","SDC O3",18,0) | 1739 | "RTN","SDC O3",18,0) | |||
1740 | ; | 1740 | ; | |||
1741 | "RTN","SDC O3",19,0) | 1741 | "RTN","SDC O3",19,0) | |||
1742 | PRASK(SDOE ) ;Ask Pro vider on C heck Out | 1742 | PRASK(SDOE ) ;Ask Pro vider on C heck Out | |||
1743 | "RTN","SDC O3",20,0) | 1743 | "RTN","SDC O3",20,0) | |||
1744 | ; Input -- SDOE Outpati ent Encoun ter IEN | 1744 | ; Input -- SDOE Outpati ent Encoun ter IEN | |||
1745 | "RTN","SDC O3",21,0) | 1745 | "RTN","SDC O3",21,0) | |||
1746 | ; Output -- 0=No, 1 =Yes/Requi red, 2=Yes /Not Requi red | 1746 | ; Output -- 0=No, 1 =Yes/Requi red, 2=Yes /Not Requi red | |||
1747 | "RTN","SDC O3",22,0) | 1747 | "RTN","SDC O3",22,0) | |||
1748 | N SDCL,SD OE0,SDORG, Y | 1748 | N SDCL,SD OE0,SDORG, Y | |||
1749 | "RTN","SDC O3",23,0) | 1749 | "RTN","SDC O3",23,0) | |||
1750 | S SDOE0=$ G(^SCE(+SD OE,0)),SDC L=+$P(SDOE 0,"^",4),S DORG=+$P(S DOE0,"^",8 ) | 1750 | S SDOE0=$ G(^SCE(+SD OE,0)),SDC L=+$P(SDOE 0,"^",4),S DORG=+$P(S DOE0,"^",8 ) | |||
1751 | "RTN","SDC O3",24,0) | 1751 | "RTN","SDC O3",24,0) | |||
1752 | I $$REQ^S DM1A(+SDOE 0)'="CO" G PRASKQ | 1752 | I $$REQ^S DM1A(+SDOE 0)'="CO" G PRASKQ | |||
1753 | "RTN","SDC O3",25,0) | 1753 | "RTN","SDC O3",25,0) | |||
1754 | I SDORG=1 ,'$$CLINIC ^SDAMU(SDC L) G PRASK Q | 1754 | I SDORG=1 ,'$$CLINIC ^SDAMU(SDC L) G PRASK Q | |||
1755 | "RTN","SDC O3",26,0) | 1755 | "RTN","SDC O3",26,0) | |||
1756 | ;I "^1^2^ "[("^"_SDO RG_"^"),$$ INP^SDAM2( +$P(SDOE0, "^",2),+SD OE0)="I" G PRASKQ ; SD*5.3*466 allow pro vider chec k for inpa tients | 1756 | ;I "^1^2^ "[("^"_SDO RG_"^"),$$ INP^SDAM2( +$P(SDOE0, "^",2),+SD OE0)="I" G PRASKQ ; SD*5.3*466 allow pro vider chec k for inpa tients | |||
1757 | "RTN","SDC O3",27,0) | 1757 | "RTN","SDC O3",27,0) | |||
1758 | I +SDOE0< 2961001 S Y=2 G PRAS KQ | 1758 | I +SDOE0< 2961001 S Y=2 G PRAS KQ | |||
1759 | "RTN","SDC O3",28,0) | 1759 | "RTN","SDC O3",28,0) | |||
1760 | I SDCL S Y=1 G PRAS KQ | 1760 | I SDCL S Y=1 G PRAS KQ | |||
1761 | "RTN","SDC O3",29,0) | 1761 | "RTN","SDC O3",29,0) | |||
1762 | I SDORG=3 S Y=1 | 1762 | I SDORG=3 S Y=1 | |||
1763 | "RTN","SDC O3",30,0) | 1763 | "RTN","SDC O3",30,0) | |||
1764 | PRASKQ Q + $G(Y) | 1764 | PRASKQ Q + $G(Y) | |||
1765 | "RTN","SDC O3",31,0) | 1765 | "RTN","SDC O3",31,0) | |||
1766 | ; | 1766 | ; | |||
1767 | "RTN","SDC O3",32,0) | 1767 | "RTN","SDC O3",32,0) | |||
1768 | SET(SDOE) ;Set-up Pr ovider Arr ay for Out patient En counter | 1768 | SET(SDOE) ;Set-up Pr ovider Arr ay for Out patient En counter | |||
1769 | "RTN","SDC O3",33,0) | 1769 | "RTN","SDC O3",33,0) | |||
1770 | ; Input -- SDOE Outpati ent Encoun ter IEN | 1770 | ; Input -- SDOE Outpati ent Encoun ter IEN | |||
1771 | "RTN","SDC O3",34,0) | 1771 | "RTN","SDC O3",34,0) | |||
1772 | ; Output -- SDPRY Provide r Array Su bscripted by a Numbe r | 1772 | ; Output -- SDPRY Provide r Array Su bscripted by a Numbe r | |||
1773 | "RTN","SDC O3",35,0) | 1773 | "RTN","SDC O3",35,0) | |||
1774 | ; SDCNT Number of Array E ntries | 1774 | ; SDCNT Number of Array E ntries | |||
1775 | "RTN","SDC O3",36,0) | 1775 | "RTN","SDC O3",36,0) | |||
1776 | N SDVA200 ,SDVPRV,SD PRVS | 1776 | N SDVA200 ,SDVPRV,SD PRVS | |||
1777 | "RTN","SDC O3",37,0) | 1777 | "RTN","SDC O3",37,0) | |||
1778 | K SDPRY | 1778 | K SDPRY | |||
1779 | "RTN","SDC O3",38,0) | 1779 | "RTN","SDC O3",38,0) | |||
1780 | D GETPRV^ SDOE(SDOE, "SDPRVS") | 1780 | D GETPRV^ SDOE(SDOE, "SDPRVS") | |||
1781 | "RTN","SDC O3",39,0) | 1781 | "RTN","SDC O3",39,0) | |||
1782 | S (SDCNT, SDVPRV)=0 | 1782 | S (SDCNT, SDVPRV)=0 | |||
1783 | "RTN","SDC O3",40,0) | 1783 | "RTN","SDC O3",40,0) | |||
1784 | F S SDVP RV=$O(SDPR VS(SDVPRV) ) Q:'SDVPR V D | 1784 | F S SDVP RV=$O(SDPR VS(SDVPRV) ) Q:'SDVPR V D | |||
1785 | "RTN","SDC O3",41,0) | 1785 | "RTN","SDC O3",41,0) | |||
1786 | . S SDVA2 00=+$G(SDP RVS(SDVPRV )) | 1786 | . S SDVA2 00=+$G(SDP RVS(SDVPRV )) | |||
1787 | "RTN","SDC O3",42,0) | 1787 | "RTN","SDC O3",42,0) | |||
1788 | . S SDCNT =SDCNT+1 | 1788 | . S SDCNT =SDCNT+1 | |||
1789 | "RTN","SDC O3",43,0) | 1789 | "RTN","SDC O3",43,0) | |||
1790 | . S SDPRY (SDCNT)=SD VPRV_"^"_S DVA200 | 1790 | . S SDPRY (SDCNT)=SD VPRV_"^"_S DVA200 | |||
1791 | "RTN","SDC O3",44,0) | 1791 | "RTN","SDC O3",44,0) | |||
1792 | SETQ Q | 1792 | SETQ Q | |||
1793 | "RTN","SDC O3",45,0) | 1793 | "RTN","SDC O3",45,0) | |||
1794 | ; | 1794 | ; | |||
1795 | "RTN","SDC O3",46,0) | 1795 | "RTN","SDC O3",46,0) | |||
1796 | LIST(SDPRY ) ;List Pr ovider Arr ay | 1796 | LIST(SDPRY ) ;List Pr ovider Arr ay | |||
1797 | "RTN","SDC O3",47,0) | 1797 | "RTN","SDC O3",47,0) | |||
1798 | ; Input -- SDPRY Provide r Array Su bscripted by a Numbe r | 1798 | ; Input -- SDPRY Provide r Array Su bscripted by a Numbe r | |||
1799 | "RTN","SDC O3",48,0) | 1799 | "RTN","SDC O3",48,0) | |||
1800 | ; Output -- List Pr ovider Arr ay | 1800 | ; Output -- List Pr ovider Arr ay | |||
1801 | "RTN","SDC O3",49,0) | 1801 | "RTN","SDC O3",49,0) | |||
1802 | N I | 1802 | N I | |||
1803 | "RTN","SDC O3",50,0) | 1803 | "RTN","SDC O3",50,0) | |||
1804 | W ! | 1804 | W ! | |||
1805 | "RTN","SDC O3",51,0) | 1805 | "RTN","SDC O3",51,0) | |||
1806 | S I=0 F S I=$O(SDP RY(I)) Q:' I W !?2,I ," ",$$PR ^SDCO31(+$ P(SDPRY(I) ,"^",2)) | 1806 | S I=0 F S I=$O(SDP RY(I)) Q:' I W !?2,I ," ",$$PR ^SDCO31(+$ P(SDPRY(I) ,"^",2)) | |||
1807 | "RTN","SDC O3",52,0) | 1807 | "RTN","SDC O3",52,0) | |||
1808 | Q | 1808 | Q | |||
1809 | "RTN","SDC O3",53,0) | 1809 | "RTN","SDC O3",53,0) | |||
1810 | ; | 1810 | ; | |||
1811 | "RTN","SDC O3",54,0) | 1811 | "RTN","SDC O3",54,0) | |||
1812 | EDITOK(SDO E,SDMODE) ; -- ok to edit? | 1812 | EDITOK(SDO E,SDMODE) ; -- ok to edit? | |||
1813 | "RTN","SDC O3",55,0) | 1813 | "RTN","SDC O3",55,0) | |||
1814 | ; input: SDOE := ien of 40 9.68 [require d] | 1814 | ; input: SDOE := ien of 40 9.68 [require d] | |||
1815 | "RTN","SDC O3",56,0) | 1815 | "RTN","SDC O3",56,0) | |||
1816 | ; SDMODE := 1 -- inte ractive ; 0 -- silen t [require d] | 1816 | ; SDMODE := 1 -- inte ractive ; 0 -- silen t [require d] | |||
1817 | "RTN","SDC O3",57,0) | 1817 | "RTN","SDC O3",57,0) | |||
1818 | ; | 1818 | ; | |||
1819 | "RTN","SDC O3",58,0) | 1819 | "RTN","SDC O3",58,0) | |||
1820 | ; returne d: 1 -- y es, it's o k to edit or delete SDOE entry | 1820 | ; returne d: 1 -- y es, it's o k to edit or delete SDOE entry | |||
1821 | "RTN","SDC O3",59,0) | 1821 | "RTN","SDC O3",59,0) | |||
1822 | ; 0 -- n o, cannot not change SDOE entr y | 1822 | ; 0 -- n o, cannot not change SDOE entr y | |||
1823 | "RTN","SDC O3",60,0) | 1823 | "RTN","SDC O3",60,0) | |||
1824 | ; | 1824 | ; | |||
1825 | "RTN","SDC O3",61,0) | 1825 | "RTN","SDC O3",61,0) | |||
1826 | N DIR,SDO K | 1826 | N DIR,SDO K | |||
1827 | "RTN","SDC O3",62,0) | 1827 | "RTN","SDC O3",62,0) | |||
1828 | S SDOK=$$ NEW^SDPCE( $P($G(^SCE (+$G(SDOE) ,0)),U)) | 1828 | S SDOK=$$ NEW^SDPCE( $P($G(^SCE (+$G(SDOE) ,0)),U)) | |||
1829 | "RTN","SDC O3",63,0) | 1829 | "RTN","SDC O3",63,0) | |||
1830 | IF 'SDOK, SDMODE=1 D OLDMSG ; *zeb 10/25 /18 717 su pport SDMO DE=2 for G UI | 1830 | IF 'SDOK, SDMODE=1 D OLDMSG ; *zeb 10/25 /18 717 su pport SDMO DE=2 for G UI | |||
1831 | "RTN","SDC O3",64,0) | 1831 | "RTN","SDC O3",64,0) | |||
1832 | EDITOKQ Q SDOK | 1832 | EDITOKQ Q SDOK | |||
1833 | "RTN","SDC O3",65,0) | 1833 | "RTN","SDC O3",65,0) | |||
1834 | ; | 1834 | ; | |||
1835 | "RTN","SDC O3",66,0) | 1835 | "RTN","SDC O3",66,0) | |||
1836 | OLDMSG ; - - display message to user | 1836 | OLDMSG ; - - display message to user | |||
1837 | "RTN","SDC O3",67,0) | 1837 | "RTN","SDC O3",67,0) | |||
1838 | W !!,">>> Editing a nd deletin g old enco unters not allowed." ,! | 1838 | W !!,">>> Editing a nd deletin g old enco unters not allowed." ,! | |||
1839 | "RTN","SDC O3",68,0) | 1839 | "RTN","SDC O3",68,0) | |||
1840 | N DIR | 1840 | N DIR | |||
1841 | "RTN","SDC O3",69,0) | 1841 | "RTN","SDC O3",69,0) | |||
1842 | S DIR(0)= "E" | 1842 | S DIR(0)= "E" | |||
1843 | "RTN","SDC O3",70,0) | 1843 | "RTN","SDC O3",70,0) | |||
1844 | S DIR("A" )="Press R eturn key to continu e" | 1844 | S DIR("A" )="Press R eturn key to continu e" | |||
1845 | "RTN","SDC O3",71,0) | 1845 | "RTN","SDC O3",71,0) | |||
1846 | D ^DIR | 1846 | D ^DIR | |||
1847 | "RTN","SDC O3",72,0) | 1847 | "RTN","SDC O3",72,0) | |||
1848 | Q | 1848 | Q | |||
1849 | "RTN","SDC O3",73,0) | 1849 | "RTN","SDC O3",73,0) | |||
1850 | ; | 1850 | ; | |||
1851 | "RTN","SDC ODEL") | 1851 | "RTN","SDC ODEL") | |||
1852 | 0^3^B14749 068^B11313 917 | 1852 | 0^3^B14749 068^B11313 917 | |||
1853 | "RTN","SDC ODEL",1,0) | 1853 | "RTN","SDC ODEL",1,0) | |||
1854 | SDCODEL ;A LB/RMO - D elete Chec k Out ;JAN 15, 2016 | 1854 | SDCODEL ;A LB/RMO - D elete Chec k Out ;JAN 15, 2016 | |||
1855 | "RTN","SDC ODEL",2,0) | 1855 | "RTN","SDC ODEL",2,0) | |||
1856 | ;;5.3;Sch eduling;** 20,27,44,9 7,105,110, 132,257,62 7,717**;Au g 13, 1993 ;Build 7 | 1856 | ;;5.3;Sch eduling;** 20,27,44,9 7,105,110, 132,257,62 7,717**;Au g 13, 1993 ;Build 7 | |||
1857 | "RTN","SDC ODEL",3,0) | 1857 | "RTN","SDC ODEL",3,0) | |||
1858 | ; | 1858 | ; | |||
1859 | "RTN","SDC ODEL",4,0) | 1859 | "RTN","SDC ODEL",4,0) | |||
1860 | EN(SDOE,SD MOD,SDELHD L,SDELSRC) ;Delete C heck Out | 1860 | EN(SDOE,SD MOD,SDELHD L,SDELSRC) ;Delete C heck Out | |||
1861 | "RTN","SDC ODEL",5,0) | 1861 | "RTN","SDC ODEL",5,0) | |||
1862 | ; Input -- SDOE Outpatie nt Encount er file IE N | 1862 | ; Input -- SDOE Outpatie nt Encount er file IE N | |||
1863 | "RTN","SDC ODEL",6,0) | 1863 | "RTN","SDC ODEL",6,0) | |||
1864 | ; SDMOD 1=Intera ctive and 0=Non-inte ractive, 2 =Non-inter active/fro m GUI | 1864 | ; SDMOD 1=Intera ctive and 0=Non-inte ractive, 2 =Non-inter active/fro m GUI | |||
1865 | "RTN","SDC ODEL",7,0) | 1865 | "RTN","SDC ODEL",7,0) | |||
1866 | ; SDELHDL Check Ou t Deletion Handle [ Optional] | 1866 | ; SDELHDL Check Ou t Deletion Handle [ Optional] | |||
1867 | "RTN","SDC ODEL",8,0) | 1867 | "RTN","SDC ODEL",8,0) | |||
1868 | ; SDELSRC Source o f delete | 1868 | ; SDELSRC Source o f delete | |||
1869 | "RTN","SDC ODEL",9,0) | 1869 | "RTN","SDC ODEL",9,0) | |||
1870 | ; Output -- Delete Check Out | 1870 | ; Output -- Delete Check Out | |||
1871 | "RTN","SDC ODEL",10,0 ) | 1871 | "RTN","SDC ODEL",10,0 ) | |||
1872 | N DA,DFN, DE,DIE,DR, SDCL,SDDA, SDEVTF,SDO E0,SDOEP,S DORG,SDT,S DVSAV,SDVF LG | 1872 | N DA,DFN, DE,DIE,DR, SDCL,SDDA, SDEVTF,SDO E0,SDOEP,S DORG,SDT,S DVSAV,SDVF LG | |||
1873 | "RTN","SDC ODEL",11,0 ) | 1873 | "RTN","SDC ODEL",11,0 ) | |||
1874 | D SET(SDO E,.SDOE0,. SDT,.DFN,. SDCL,.SDOR G,.SDDA) | 1874 | D SET(SDO E,.SDOE0,. SDT,.DFN,. SDCL,.SDOR G,.SDDA) | |||
1875 | "RTN","SDC ODEL",12,0 ) | 1875 | "RTN","SDC ODEL",12,0 ) | |||
1876 | S SDVSAV= $P(SDOE0,U ,5) | 1876 | S SDVSAV= $P(SDOE0,U ,5) | |||
1877 | "RTN","SDC ODEL",13,0 ) | 1877 | "RTN","SDC ODEL",13,0 ) | |||
1878 | ; | 1878 | ; | |||
1879 | "RTN","SDC ODEL",14,0 ) | 1879 | "RTN","SDC ODEL",14,0 ) | |||
1880 | ; -- ok t o delete? | 1880 | ; -- ok t o delete? | |||
1881 | "RTN","SDC ODEL",15,0 ) | 1881 | "RTN","SDC ODEL",15,0 ) | |||
1882 | IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G ENQ | 1882 | IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G ENQ | |||
1883 | "RTN","SDC ODEL",16,0 ) | 1883 | "RTN","SDC ODEL",16,0 ) | |||
1884 | ; | 1884 | ; | |||
1885 | "RTN","SDC ODEL",17,0 ) | 1885 | "RTN","SDC ODEL",17,0 ) | |||
1886 | S SDELSRC =$G(SDELSR C) ;*zeb+ 1 717 11/6 /18 suppre ss event i f coming f rom cancel appointme nt | 1886 | S SDELSRC =$G(SDELSR C) ;*zeb+ 1 717 11/6 /18 suppre ss event i f coming f rom cancel appointme nt | |||
1887 | "RTN","SDC ODEL",18,0 ) | 1887 | "RTN","SDC ODEL",18,0 ) | |||
1888 | IF SDELSR C'="PCE" S X=$$DELVF ILE^PXAPI( "ALL",$P($ G(^SCE(SDO E,0)),U,5) ,"","","", 1) | 1888 | IF SDELSR C'="PCE" S X=$$DELVF ILE^PXAPI( "ALL",$P($ G(^SCE(SDO E,0)),U,5) ,"","","", 1) | |||
1889 | "RTN","SDC ODEL",19,0 ) | 1889 | "RTN","SDC ODEL",19,0 ) | |||
1890 | S SDVFLG= 1 | 1890 | S SDVFLG= 1 | |||
1891 | "RTN","SDC ODEL",20,0 ) | 1891 | "RTN","SDC ODEL",20,0 ) | |||
1892 | ; | 1892 | ; | |||
1893 | "RTN","SDC ODEL",21,0 ) | 1893 | "RTN","SDC ODEL",21,0 ) | |||
1894 | ; -- get handle if not passed and do 'b efore' | 1894 | ; -- get handle if not passed and do 'b efore' | |||
1895 | "RTN","SDC ODEL",22,0 ) | 1895 | "RTN","SDC ODEL",22,0 ) | |||
1896 | I '$G(SDE LHDL),("^C ANCEL^NOSH OW^"'["^"_ SDELSRC_"^ ") N SDATA ,SDELHDL S SDEVTF=1 D EVT^SDCO U1(SDOE,"B EFORE",.SD ELHDL,.SDA TA) ;*zeb 717 11/6/ 18 suppres s event if coming fr om cancel or no show | 1896 | I '$G(SDE LHDL),("^C ANCEL^NOSH OW^"'["^"_ SDELSRC_"^ ") N SDATA ,SDELHDL S SDEVTF=1 D EVT^SDCO U1(SDOE,"B EFORE",.SD ELHDL,.SDA TA) ;*zeb 717 11/6/ 18 suppres s event if coming fr om cancel or no show | |||
1897 | "RTN","SDC ODEL",23,0 ) | 1897 | "RTN","SDC ODEL",23,0 ) | |||
1898 | ; | 1898 | ; | |||
1899 | "RTN","SDC ODEL",24,0 ) | 1899 | "RTN","SDC ODEL",24,0 ) | |||
1900 | I $G(SDMO D)=1 W !!, ">>> Delet ing check out inform ation..." ;*zeb 10/ 25/18 717 fix test f or SDMOD=2 for GUI | 1900 | I $G(SDMO D)=1 W !!, ">>> Delet ing check out inform ation..." ;*zeb 10/ 25/18 717 fix test f or SDMOD=2 for GUI | |||
1901 | "RTN","SDC ODEL",25,0 ) | 1901 | "RTN","SDC ODEL",25,0 ) | |||
1902 | ; | 1902 | ; | |||
1903 | "RTN","SDC ODEL",26,0 ) | 1903 | "RTN","SDC ODEL",26,0 ) | |||
1904 | ; -- dele te child d ata for ap pts, dispo sition and stop code addition | 1904 | ; -- dele te child d ata for ap pts, dispo sition and stop code addition | |||
1905 | "RTN","SDC ODEL",27,0 ) | 1905 | "RTN","SDC ODEL",27,0 ) | |||
1906 | I "^1^2^3 ^"[("^"_SD ORG_"^") D CHLD(SDOE ,SDMOD) ;S D/257 | 1906 | I "^1^2^3 ^"[("^"_SD ORG_"^") D CHLD(SDOE ,SDMOD) ;S D/257 | |||
1907 | "RTN","SDC ODEL",28,0 ) | 1907 | "RTN","SDC ODEL",28,0 ) | |||
1908 | ; | 1908 | ; | |||
1909 | "RTN","SDC ODEL",29,0 ) | 1909 | "RTN","SDC ODEL",29,0 ) | |||
1910 | ; -- dele te SDOE po inters and co d/t | 1910 | ; -- dele te SDOE po inters and co d/t | |||
1911 | "RTN","SDC ODEL",30,0 ) | 1911 | "RTN","SDC ODEL",30,0 ) | |||
1912 | I SDORG=1 D | 1912 | I SDORG=1 D | |||
1913 | "RTN","SDC ODEL",31,0 ) | 1913 | "RTN","SDC ODEL",31,0 ) | |||
1914 | .S DA(1)= DFN,DA=SDT ,DIE="^DPT ("_DFN_"," "S"",",DR= "21///@" D ^DIE | 1914 | .S DA(1)= DFN,DA=SDT ,DIE="^DPT ("_DFN_"," "S"",",DR= "21///@" D ^DIE | |||
1915 | "RTN","SDC ODEL",32,0 ) | 1915 | "RTN","SDC ODEL",32,0 ) | |||
1916 | .I $G(SDM OD) W !?3, "...deleti ng check o ut date/ti me" | 1916 | .I $G(SDM OD) W !?3, "...deleti ng check o ut date/ti me" | |||
1917 | "RTN","SDC ODEL",33,0 ) | 1917 | "RTN","SDC ODEL",33,0 ) | |||
1918 | .S DR="30 3///@" D D IE^SDCO1(S DCL,SDT,+S DDA,DR) | 1918 | .S DR="30 3///@" D D IE^SDCO1(S DCL,SDT,+S DDA,DR) | |||
1919 | "RTN","SDC ODEL",34,0 ) | 1919 | "RTN","SDC ODEL",34,0 ) | |||
1920 | I SDORG=3 D | 1920 | I SDORG=3 D | |||
1921 | "RTN","SDC ODEL",35,0 ) | 1921 | "RTN","SDC ODEL",35,0 ) | |||
1922 | .S DA(1)= DFN,DA=+SD DA,DIE="^D PT("_DFN_" ,""DIS""," ,DR="18/// @" D ^DIE | 1922 | .S DA(1)= DFN,DA=+SD DA,DIE="^D PT("_DFN_" ,""DIS""," ,DR="18/// @" D ^DIE | |||
1923 | "RTN","SDC ODEL",36,0 ) | 1923 | "RTN","SDC ODEL",36,0 ) | |||
1924 | ; | 1924 | ; | |||
1925 | "RTN","SDC ODEL",37,0 ) | 1925 | "RTN","SDC ODEL",37,0 ) | |||
1926 | ; -- do f inal delet es for sdo e | 1926 | ; -- do f inal delet es for sdo e | |||
1927 | "RTN","SDC ODEL",38,0 ) | 1927 | "RTN","SDC ODEL",38,0 ) | |||
1928 | D CO(SDOE ,SDMOD) | 1928 | D CO(SDOE ,SDMOD) | |||
1929 | "RTN","SDC ODEL",39,0 ) | 1929 | "RTN","SDC ODEL",39,0 ) | |||
1930 | D OE(SDOE ,SDMOD) | 1930 | D OE(SDOE ,SDMOD) | |||
1931 | "RTN","SDC ODEL",40,0 ) | 1931 | "RTN","SDC ODEL",40,0 ) | |||
1932 | D SDEC(DF N,SDT,SDCL ) ;delet e checkout in SDEC A PPOINTMENT ;alb/sat 627 | 1932 | D SDEC(DF N,SDT,SDCL ) ;delet e checkout in SDEC A PPOINTMENT ;alb/sat 627 | |||
1933 | "RTN","SDC ODEL",41,0 ) | 1933 | "RTN","SDC ODEL",41,0 ) | |||
1934 | ; | 1934 | ; | |||
1935 | "RTN","SDC ODEL",42,0 ) | 1935 | "RTN","SDC ODEL",42,0 ) | |||
1936 | I $G(SDMO D) W !,">> > done." | 1936 | I $G(SDMO D) W !,">> > done." | |||
1937 | "RTN","SDC ODEL",43,0 ) | 1937 | "RTN","SDC ODEL",43,0 ) | |||
1938 | ; | 1938 | ; | |||
1939 | "RTN","SDC ODEL",44,0 ) | 1939 | "RTN","SDC ODEL",44,0 ) | |||
1940 | ; -- if h andle not passed, th en 'after' and event | 1940 | ; -- if h andle not passed, th en 'after' and event | |||
1941 | "RTN","SDC ODEL",45,0 ) | 1941 | "RTN","SDC ODEL",45,0 ) | |||
1942 | I $G(SDEV TF),(SDELS RC'="CANCE L") D EVT^ SDCOU1(SDO E,"AFTER", SDELHDL,.S DATA,SDOE0 ) ;*zeb 7 17 11/6/18 suppress event if c oming from cancel ap pointment | 1942 | I $G(SDEV TF),(SDELS RC'="CANCE L") D EVT^ SDCOU1(SDO E,"AFTER", SDELHDL,.S DATA,SDOE0 ) ;*zeb 7 17 11/6/18 suppress event if c oming from cancel ap pointment | |||
1943 | "RTN","SDC ODEL",46,0 ) | 1943 | "RTN","SDC ODEL",46,0 ) | |||
1944 | ; | 1944 | ; | |||
1945 | "RTN","SDC ODEL",47,0 ) | 1945 | "RTN","SDC ODEL",47,0 ) | |||
1946 | ; -- call pce to ma ke sure it s data is gone | 1946 | ; -- call pce to ma ke sure it s data is gone | |||
1947 | "RTN","SDC ODEL",48,0 ) | 1947 | "RTN","SDC ODEL",48,0 ) | |||
1948 | I $G(SDVF LG) D DEAD ^PXUTLSTP( SDVSAV) | 1948 | I $G(SDVF LG) D DEAD ^PXUTLSTP( SDVSAV) | |||
1949 | "RTN","SDC ODEL",49,0 ) | 1949 | "RTN","SDC ODEL",49,0 ) | |||
1950 | ENQ Q | 1950 | ENQ Q | |||
1951 | "RTN","SDC ODEL",50,0 ) | 1951 | "RTN","SDC ODEL",50,0 ) | |||
1952 | ; | 1952 | ; | |||
1953 | "RTN","SDC ODEL",51,0 ) | 1953 | "RTN","SDC ODEL",51,0 ) | |||
1954 | CHLD(SDOEP ,SDMOD) ;D elete Chil dren | 1954 | CHLD(SDOEP ,SDMOD) ;D elete Chil dren | |||
1955 | "RTN","SDC ODEL",52,0 ) | 1955 | "RTN","SDC ODEL",52,0 ) | |||
1956 | N DFN,SDC L,SDDA,SDO E0,SDOEC,S DORG,SDT | 1956 | N DFN,SDC L,SDDA,SDO E0,SDOEC,S DORG,SDT | |||
1957 | "RTN","SDC ODEL",53,0 ) | 1957 | "RTN","SDC ODEL",53,0 ) | |||
1958 | S SDOEC=0 | 1958 | S SDOEC=0 | |||
1959 | "RTN","SDC ODEL",54,0 ) | 1959 | "RTN","SDC ODEL",54,0 ) | |||
1960 | F S SDOE C=$O(^SCE( "APAR",SDO EP,SDOEC)) Q:'SDOEC D | 1960 | F S SDOE C=$O(^SCE( "APAR",SDO EP,SDOEC)) Q:'SDOEC D | |||
1961 | "RTN","SDC ODEL",55,0 ) | 1961 | "RTN","SDC ODEL",55,0 ) | |||
1962 | .D SET(SD OEC,.SDOE0 ,.SDT,.DFN ,.SDCL,.SD ORG,.SDDA) | 1962 | .D SET(SD OEC,.SDOE0 ,.SDT,.DFN ,.SDCL,.SD ORG,.SDDA) | |||
1963 | "RTN","SDC ODEL",56,0 ) | 1963 | "RTN","SDC ODEL",56,0 ) | |||
1964 | .D OE(SDO EC,SDMOD) | 1964 | .D OE(SDO EC,SDMOD) | |||
1965 | "RTN","SDC ODEL",57,0 ) | 1965 | "RTN","SDC ODEL",57,0 ) | |||
1966 | Q | 1966 | Q | |||
1967 | "RTN","SDC ODEL",58,0 ) | 1967 | "RTN","SDC ODEL",58,0 ) | |||
1968 | ; | 1968 | ; | |||
1969 | "RTN","SDC ODEL",59,0 ) | 1969 | "RTN","SDC ODEL",59,0 ) | |||
1970 | SET(SDOE,S DOE0,SDT,D FN,SDCL,SD ORG,SDDA) ;Set Varia bles | 1970 | SET(SDOE,S DOE0,SDT,D FN,SDCL,SD ORG,SDDA) ;Set Varia bles | |||
1971 | "RTN","SDC ODEL",60,0 ) | 1971 | "RTN","SDC ODEL",60,0 ) | |||
1972 | S SDOE0=$ G(^SCE(+SD OE,0)),SDT =+SDOE0,DF N=+$P(SDOE 0,"^",2),S DCL=+$P(SD OE0,"^",4) ,SDORG=+$P (SDOE0,"^" ,8),SDDA=$ P(SDOE0,"^ ",9) | 1972 | S SDOE0=$ G(^SCE(+SD OE,0)),SDT =+SDOE0,DF N=+$P(SDOE 0,"^",2),S DCL=+$P(SD OE0,"^",4) ,SDORG=+$P (SDOE0,"^" ,8),SDDA=$ P(SDOE0,"^ ",9) | |||
1973 | "RTN","SDC ODEL",61,0 ) | 1973 | "RTN","SDC ODEL",61,0 ) | |||
1974 | Q | 1974 | Q | |||
1975 | "RTN","SDC ODEL",62,0 ) | 1975 | "RTN","SDC ODEL",62,0 ) | |||
1976 | ; | 1976 | ; | |||
1977 | "RTN","SDC ODEL",63,0 ) | 1977 | "RTN","SDC ODEL",63,0 ) | |||
1978 | CO(SDOE,SD MOD) ;Dele te Classif ication | 1978 | CO(SDOE,SD MOD) ;Dele te Classif ication | |||
1979 | "RTN","SDC ODEL",64,0 ) | 1979 | "RTN","SDC ODEL",64,0 ) | |||
1980 | N DA,DIK, SDFL,SDI | 1980 | N DA,DIK, SDFL,SDI | |||
1981 | "RTN","SDC ODEL",65,0 ) | 1981 | "RTN","SDC ODEL",65,0 ) | |||
1982 | I $P($G(^ SCE(SDOE,0 )),"^",6) G COQ | 1982 | I $P($G(^ SCE(SDOE,0 )),"^",6) G COQ | |||
1983 | "RTN","SDC ODEL",66,0 ) | 1983 | "RTN","SDC ODEL",66,0 ) | |||
1984 | I $O(^SDD (409.42,"A O",SDOE,0) )>0 D | 1984 | I $O(^SDD (409.42,"A O",SDOE,0) )>0 D | |||
1985 | "RTN","SDC ODEL",67,0 ) | 1985 | "RTN","SDC ODEL",67,0 ) | |||
1986 | .I $G(SDM OD) W !?3, "...deleti ng classif ications" | 1986 | .I $G(SDM OD) W !?3, "...deleti ng classif ications" | |||
1987 | "RTN","SDC ODEL",68,0 ) | 1987 | "RTN","SDC ODEL",68,0 ) | |||
1988 | .D DEL(SD OE,409.42) | 1988 | .D DEL(SD OE,409.42) | |||
1989 | "RTN","SDC ODEL",69,0 ) | 1989 | "RTN","SDC ODEL",69,0 ) | |||
1990 | COQ Q | 1990 | COQ Q | |||
1991 | "RTN","SDC ODEL",70,0 ) | 1991 | "RTN","SDC ODEL",70,0 ) | |||
1992 | ; | 1992 | ; | |||
1993 | "RTN","SDC ODEL",71,0 ) | 1993 | "RTN","SDC ODEL",71,0 ) | |||
1994 | DEL(SDOE,S DFL) ;Dele te Classif ication | 1994 | DEL(SDOE,S DFL) ;Dele te Classif ication | |||
1995 | "RTN","SDC ODEL",72,0 ) | 1995 | "RTN","SDC ODEL",72,0 ) | |||
1996 | N DA,DIK, SDI | 1996 | N DA,DIK, SDI | |||
1997 | "RTN","SDC ODEL",73,0 ) | 1997 | "RTN","SDC ODEL",73,0 ) | |||
1998 | S DIK="^S DD("_SDFL_ ",",SDI=0 | 1998 | S DIK="^S DD("_SDFL_ ",",SDI=0 | |||
1999 | "RTN","SDC ODEL",74,0 ) | 1999 | "RTN","SDC ODEL",74,0 ) | |||
2000 | F S SDI= $O(^SDD(SD FL,"AO",SD OE,SDI)) Q :'SDI S D A=+$O(^(SD I,0)) D ^D IK | 2000 | F S SDI= $O(^SDD(SD FL,"AO",SD OE,SDI)) Q :'SDI S D A=+$O(^(SD I,0)) D ^D IK | |||
2001 | "RTN","SDC ODEL",75,0 ) | 2001 | "RTN","SDC ODEL",75,0 ) | |||
2002 | Q | 2002 | Q | |||
2003 | "RTN","SDC ODEL",76,0 ) | 2003 | "RTN","SDC ODEL",76,0 ) | |||
2004 | ; | 2004 | ; | |||
2005 | "RTN","SDC ODEL",77,0 ) | 2005 | "RTN","SDC ODEL",77,0 ) | |||
2006 | OE(SDOE,SD MOD) ;Dele te Outpati ent Encoun ter | 2006 | OE(SDOE,SD MOD) ;Dele te Outpati ent Encoun ter | |||
2007 | "RTN","SDC ODEL",78,0 ) | 2007 | "RTN","SDC ODEL",78,0 ) | |||
2008 | N DA,DIK, SDVSIT,SDO RG,SDAT | 2008 | N DA,DIK, SDVSIT,SDO RG,SDAT | |||
2009 | "RTN","SDC ODEL",79,0 ) | 2009 | "RTN","SDC ODEL",79,0 ) | |||
2010 | IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G OEQ | 2010 | IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G OEQ | |||
2011 | "RTN","SDC ODEL",80,0 ) | 2011 | "RTN","SDC ODEL",80,0 ) | |||
2012 | S SDAT=$P ($G(^SCE(+ SDOE,0)),U ,1) | 2012 | S SDAT=$P ($G(^SCE(+ SDOE,0)),U ,1) | |||
2013 | "RTN","SDC ODEL",81,0 ) | 2013 | "RTN","SDC ODEL",81,0 ) | |||
2014 | S SDVSIT= $P($G(^SCE (SDOE,0)), U,5),SDORG =$P($G(^SC E(SDOE,0)) ,U,8) | 2014 | S SDVSIT= $P($G(^SCE (SDOE,0)), U,5),SDORG =$P($G(^SC E(SDOE,0)) ,U,8) | |||
2015 | "RTN","SDC ODEL",82,0 ) | 2015 | "RTN","SDC ODEL",82,0 ) | |||
2016 | S DA=SDOE ,DIK="^SCE (" D ^DIK | 2016 | S DA=SDOE ,DIK="^SCE (" D ^DIK | |||
2017 | "RTN","SDC ODEL",83,0 ) | 2017 | "RTN","SDC ODEL",83,0 ) | |||
2018 | S X=$$KIL L^VSITKIL( SDVSIT) | 2018 | S X=$$KIL L^VSITKIL( SDVSIT) | |||
2019 | "RTN","SDC ODEL",84,0 ) | 2019 | "RTN","SDC ODEL",84,0 ) | |||
2020 | OEQ Q | 2020 | OEQ Q | |||
2021 | "RTN","SDC ODEL",85,0 ) | 2021 | "RTN","SDC ODEL",85,0 ) | |||
2022 | ; | 2022 | ; | |||
2023 | "RTN","SDC ODEL",86,0 ) | 2023 | "RTN","SDC ODEL",86,0 ) | |||
2024 | COMDT(SDOE ,SDMOD) ;D elete Chec k Out Proc ess Comple tion Date | 2024 | COMDT(SDOE ,SDMOD) ;D elete Chec k Out Proc ess Comple tion Date | |||
2025 | "RTN","SDC ODEL",87,0 ) | 2025 | "RTN","SDC ODEL",87,0 ) | |||
2026 | N DA,DE,D IE,DQ,DR | 2026 | N DA,DE,D IE,DQ,DR | |||
2027 | "RTN","SDC ODEL",88,0 ) | 2027 | "RTN","SDC ODEL",88,0 ) | |||
2028 | I $G(SDMO D) W !?3," ...deletin g check ou t process completion date" | 2028 | I $G(SDMO D) W !?3," ...deletin g check ou t process completion date" | |||
2029 | "RTN","SDC ODEL",89,0 ) | 2029 | "RTN","SDC ODEL",89,0 ) | |||
2030 | S DA=SDOE ,DIE="^SCE (",DR=".07 ///@" D ^D IE | 2030 | S DA=SDOE ,DIE="^SCE (",DR=".07 ///@" D ^D IE | |||
2031 | "RTN","SDC ODEL",90,0 ) | 2031 | "RTN","SDC ODEL",90,0 ) | |||
2032 | Q | 2032 | Q | |||
2033 | "RTN","SDC ODEL",91,0 ) | 2033 | "RTN","SDC ODEL",91,0 ) | |||
2034 | ; | 2034 | ; | |||
2035 | "RTN","SDC ODEL",92,0 ) | 2035 | "RTN","SDC ODEL",92,0 ) | |||
2036 | SDEC(DFN,S DT,SDCL) ;delete c heck out i n SDEC APP OINTMENT ;alb/sat 6 27 | 2036 | SDEC(DFN,S DT,SDCL) ;delete c heck out i n SDEC APP OINTMENT ;alb/sat 6 27 | |||
2037 | "RTN","SDC ODEL",93,0 ) | 2037 | "RTN","SDC ODEL",93,0 ) | |||
2038 | N SDECAPI D | 2038 | N SDECAPI D | |||
2039 | "RTN","SDC ODEL",94,0 ) | 2039 | "RTN","SDC ODEL",94,0 ) | |||
2040 | S SDECAPI D=$$APPTGE T^SDECUTL( DFN,SDT,SD CL) | 2040 | S SDECAPI D=$$APPTGE T^SDECUTL( DFN,SDT,SD CL) | |||
2041 | "RTN","SDC ODEL",95,0 ) | 2041 | "RTN","SDC ODEL",95,0 ) | |||
2042 | D CANAPPT ^SDEC25(SD ECAPID) | 2042 | D CANAPPT ^SDEC25(SD ECAPID) | |||
2043 | "RTN","SDC ODEL",96,0 ) | 2043 | "RTN","SDC ODEL",96,0 ) | |||
2044 | Q | 2044 | Q | |||
2045 | "RTN","SDE C07B") | 2045 | "RTN","SDE C07B") | |||
2046 | 0^4^B86344 811^B55538 827 | 2046 | 0^4^B86344 811^B55538 827 | |||
2047 | "RTN","SDE C07B",1,0) | 2047 | "RTN","SDE C07B",1,0) | |||
2048 | SDEC07B ;A LB/SAT - V ISTA SCHED ULING RPCS ; 26 Mar 2019 7:44 AM | 2048 | SDEC07B ;A LB/SAT - V ISTA SCHED ULING RPCS ; 26 Mar 2019 7:44 AM | |||
2049 | "RTN","SDE C07B",2,0) | 2049 | "RTN","SDE C07B",2,0) | |||
2050 | ;;5.3;Sch eduling;** 627,658,66 5,669,722, 717**;Aug 13, 1993;B uild 7 | 2050 | ;;5.3;Sch eduling;** 627,658,66 5,669,722, 717**;Aug 13, 1993;B uild 7 | |||
2051 | "RTN","SDE C07B",3,0) | 2051 | "RTN","SDE C07B",3,0) | |||
2052 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | 2052 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | |||
2053 | "RTN","SDE C07B",4,0) | 2053 | "RTN","SDE C07B",4,0) | |||
2054 | ; | 2054 | ; | |||
2055 | "RTN","SDE C07B",5,0) | 2055 | "RTN","SDE C07B",5,0) | |||
2056 | Q | 2056 | Q | |||
2057 | "RTN","SDE C07B",6,0) | 2057 | "RTN","SDE C07B",6,0) | |||
2058 | ; | 2058 | ; | |||
2059 | "RTN","SDE C07B",7,0) | 2059 | "RTN","SDE C07B",7,0) | |||
2060 | MAKE(BSDR) ;PEP; cal l to store appt made | 2060 | MAKE(BSDR) ;PEP; cal l to store appt made | |||
2061 | "RTN","SDE C07B",8,0) | 2061 | "RTN","SDE C07B",8,0) | |||
2062 | ; | 2062 | ; | |||
2063 | "RTN","SDE C07B",9,0) | 2063 | "RTN","SDE C07B",9,0) | |||
2064 | ; Make ca ll using: S ERR=$$MA KE^SDEC07B (.ARRAY) | 2064 | ; Make ca ll using: S ERR=$$MA KE^SDEC07B (.ARRAY) | |||
2065 | "RTN","SDE C07B",10,0 ) | 2065 | "RTN","SDE C07B",10,0 ) | |||
2066 | ; | 2066 | ; | |||
2067 | "RTN","SDE C07B",11,0 ) | 2067 | "RTN","SDE C07B",11,0 ) | |||
2068 | ; Input A rray - | 2068 | ; Input A rray - | |||
2069 | "RTN","SDE C07B",12,0 ) | 2069 | "RTN","SDE C07B",12,0 ) | |||
2070 | ; BSDR("P AT") = ien of patien t in file 2 | 2070 | ; BSDR("P AT") = ien of patien t in file 2 | |||
2071 | "RTN","SDE C07B",13,0 ) | 2071 | "RTN","SDE C07B",13,0 ) | |||
2072 | ; BSDR("C LN") = ien of clinic in file 4 4 | 2072 | ; BSDR("C LN") = ien of clinic in file 4 4 | |||
2073 | "RTN","SDE C07B",14,0 ) | 2073 | "RTN","SDE C07B",14,0 ) | |||
2074 | ; BSDR("T YP") = C&P if appoin tment type is C&P, 3 for sched uled appts , 4 for wa lkins | 2074 | ; BSDR("T YP") = C&P if appoin tment type is C&P, 3 for sched uled appts , 4 for wa lkins | |||
2075 | "RTN","SDE C07B",15,0 ) | 2075 | "RTN","SDE C07B",15,0 ) | |||
2076 | ; BSDR("C OL") = col lateral if appointme nt type is COLLATERA L OF VET. | 2076 | ; BSDR("C OL") = col lateral if appointme nt type is COLLATERA L OF VET. | |||
2077 | "RTN","SDE C07B",16,0 ) | 2077 | "RTN","SDE C07B",16,0 ) | |||
2078 | ; BSDR("A PT") = App ointment t ype pointe r to APPOI NTMENT TYP E file 409 .1 | 2078 | ; BSDR("A PT") = App ointment t ype pointe r to APPOI NTMENT TYP E file 409 .1 | |||
2079 | "RTN","SDE C07B",17,0 ) | 2079 | "RTN","SDE C07B",17,0 ) | |||
2080 | ; BSDR("A DT") = app ointment d ate and ti me | 2080 | ; BSDR("A DT") = app ointment d ate and ti me | |||
2081 | "RTN","SDE C07B",18,0 ) | 2081 | "RTN","SDE C07B",18,0 ) | |||
2082 | ; BSDR("L EN") = app ointment l ength in m inutes (5- 120) | 2082 | ; BSDR("L EN") = app ointment l ength in m inutes (5- 120) | |||
2083 | "RTN","SDE C07B",19,0 ) | 2083 | "RTN","SDE C07B",19,0 ) | |||
2084 | ; BSDR("O I") = rea son for ap pt - up to 150 chara cters | 2084 | ; BSDR("O I") = rea son for ap pt - up to 150 chara cters | |||
2085 | "RTN","SDE C07B",20,0 ) | 2085 | "RTN","SDE C07B",20,0 ) | |||
2086 | ; BSDR("U SR") = use r who made appt | 2086 | ; BSDR("U SR") = use r who made appt | |||
2087 | "RTN","SDE C07B",21,0 ) | 2087 | "RTN","SDE C07B",21,0 ) | |||
2088 | ; BSDR("R ES") = res ource poin ter to SDE C RESOURCE ^SDEC(409 .831, | 2088 | ; BSDR("R ES") = res ource poin ter to SDE C RESOURCE ^SDEC(409 .831, | |||
2089 | "RTN","SDE C07B",22,0 ) | 2089 | "RTN","SDE C07B",22,0 ) | |||
2090 | ; BSDR("M TR") = MTR C flag (mu ltiple app ointments) 0=False ( default) 1=True | 2090 | ; BSDR("M TR") = MTR C flag (mu ltiple app ointments) 0=False ( default) 1=True | |||
2091 | "RTN","SDE C07B",23,0 ) | 2091 | "RTN","SDE C07B",23,0 ) | |||
2092 | ; BSDR("D DT") = Des ired Date of Appt in fm format | 2092 | ; BSDR("D DT") = Des ired Date of Appt in fm format | |||
2093 | "RTN","SDE C07B",24,0 ) | 2093 | "RTN","SDE C07B",24,0 ) | |||
2094 | ; BSDR("R EQ") = Req uested By - valid va lues are 1 =PROVIDER 2=PATIENT or "" | 2094 | ; BSDR("R EQ") = Req uested By - valid va lues are 1 =PROVIDER 2=PATIENT or "" | |||
2095 | "RTN","SDE C07B",25,0 ) | 2095 | "RTN","SDE C07B",25,0 ) | |||
2096 | ; BSDR("L AB") = LAB date/time in fm for mat | 2096 | ; BSDR("L AB") = LAB date/time in fm for mat | |||
2097 | "RTN","SDE C07B",26,0 ) | 2097 | "RTN","SDE C07B",26,0 ) | |||
2098 | ; BSDR("E KG") = EKG date/time in fm for mat | 2098 | ; BSDR("E KG") = EKG date/time in fm for mat | |||
2099 | "RTN","SDE C07B",27,0 ) | 2099 | "RTN","SDE C07B",27,0 ) | |||
2100 | ; BSDR("X RA") = XRA Y date/tim e in fm fo rmat | 2100 | ; BSDR("X RA") = XRA Y date/tim e in fm fo rmat | |||
2101 | "RTN","SDE C07B",28,0 ) | 2101 | "RTN","SDE C07B",28,0 ) | |||
2102 | ; BSDR("C ON") = Con sult link - pointer to file 12 3 | 2102 | ; BSDR("C ON") = Con sult link - pointer to file 12 3 | |||
2103 | "RTN","SDE C07B",29,0 ) | 2103 | "RTN","SDE C07B",29,0 ) | |||
2104 | ; BSDR("O VB") = ove rbook flag - 1=yes, this is an overbook | 2104 | ; BSDR("O VB") = ove rbook flag - 1=yes, this is an overbook | |||
2105 | "RTN","SDE C07B",30,0 ) | 2105 | "RTN","SDE C07B",30,0 ) | |||
2106 | ; BSDR("E LG") = Pat ient Eligi bilty | 2106 | ; BSDR("E LG") = Pat ient Eligi bilty | |||
2107 | "RTN","SDE C07B",31,0 ) | 2107 | "RTN","SDE C07B",31,0 ) | |||
2108 | ; | 2108 | ; | |||
2109 | "RTN","SDE C07B",32,0 ) | 2109 | "RTN","SDE C07B",32,0 ) | |||
2110 | ;Output: error stat us and mes sage | 2110 | ;Output: error stat us and mes sage | |||
2111 | "RTN","SDE C07B",33,0 ) | 2111 | "RTN","SDE C07B",33,0 ) | |||
2112 | ; = 0 o r null: e verything okay | 2112 | ; = 0 o r null: e verything okay | |||
2113 | "RTN","SDE C07B",34,0 ) | 2113 | "RTN","SDE C07B",34,0 ) | |||
2114 | ; = 1^m essage: e rror and r eason | 2114 | ; = 1^m essage: e rror and r eason | |||
2115 | "RTN","SDE C07B",35,0 ) | 2115 | "RTN","SDE C07B",35,0 ) | |||
2116 | ; | 2116 | ; | |||
2117 | "RTN","SDE C07B",36,0 ) | 2117 | "RTN","SDE C07B",36,0 ) | |||
2118 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | 2118 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | |||
2119 | "RTN","SDE C07B",37,0 ) | 2119 | "RTN","SDE C07B",37,0 ) | |||
2120 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | 2120 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | |||
2121 | "RTN","SDE C07B",38,0 ) | 2121 | "RTN","SDE C07B",38,0 ) | |||
2122 | I "1234"' [$G(BSDR(" TYP")) Q 1 _U_"Appt T ype error: "_$G(BSDR ("TYP")) | 2122 | I "1234"' [$G(BSDR(" TYP")) Q 1 _U_"Appt T ype error: "_$G(BSDR ("TYP")) | |||
2123 | "RTN","SDE C07B",39,0 ) | 2123 | "RTN","SDE C07B",39,0 ) | |||
2124 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | 2124 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | |||
2125 | "RTN","SDE C07B",40,0 ) | 2125 | "RTN","SDE C07B",40,0 ) | |||
2126 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | 2126 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | |||
2127 | "RTN","SDE C07B",41,0 ) | 2127 | "RTN","SDE C07B",41,0 ) | |||
2128 | ; | 2128 | ; | |||
2129 | "RTN","SDE C07B",42,0 ) | 2129 | "RTN","SDE C07B",42,0 ) | |||
2130 | I ($G(BSD R("LEN"))< 5)!($G(BSD R("LEN"))> 240) Q 1_U _"Appt Len gth error: "_$G(BSDR ("LEN")) | 2130 | I ($G(BSD R("LEN"))< 5)!($G(BSD R("LEN"))> 240) Q 1_U _"Appt Len gth error: "_$G(BSDR ("LEN")) | |||
2131 | "RTN","SDE C07B",43,0 ) | 2131 | "RTN","SDE C07B",43,0 ) | |||
2132 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Made App t Error: " _$G(BSDR(" USR")) | 2132 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Made App t Error: " _$G(BSDR(" USR")) | |||
2133 | "RTN","SDE C07B",44,0 ) | 2133 | "RTN","SDE C07B",44,0 ) | |||
2134 | I $D(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 )),$P(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 ),U,2)'="C ",$P(^DPT( BSDR("PAT" ),"S",BSDR ("ADT"),0) ,U,2)'="PC " Q 1_U_"P atient "_$ $GET1^DIQ( 2,BSDR("PA T")_",",.0 1)_" alrea dy has app t at "_$$F MTE^XLFDT( BSDR("ADT" )) | 2134 | I $D(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 )),$P(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 ),U,2)'="C ",$P(^DPT( BSDR("PAT" ),"S",BSDR ("ADT"),0) ,U,2)'="PC " Q 1_U_"P atient "_$ $GET1^DIQ( 2,BSDR("PA T")_",",.0 1)_" alrea dy has app t at "_$$F MTE^XLFDT( BSDR("ADT" )) | |||
2135 | "RTN","SDE C07B",45,0 ) | 2135 | "RTN","SDE C07B",45,0 ) | |||
2136 | ; | 2136 | ; | |||
2137 | "RTN","SDE C07B",46,0 ) | 2137 | "RTN","SDE C07B",46,0 ) | |||
2138 | N DIC,DA, Y,X,DD,DO, DLAYGO | 2138 | N DIC,DA, Y,X,DD,DO, DLAYGO | |||
2139 | "RTN","SDE C07B",47,0 ) | 2139 | "RTN","SDE C07B",47,0 ) | |||
2140 | N SDECERR | 2140 | N SDECERR | |||
2141 | "RTN","SDE C07B",48,0 ) | 2141 | "RTN","SDE C07B",48,0 ) | |||
2142 | N SDFU,SD NA,SDRET,S DSRT,PATCH 722,PATCH7 17 ; 717/7 22 WTC 3/2 6/19 | 2142 | N SDFU,SD NA,SDRET,S DSRT,PATCH 722,PATCH7 17 ; 717/7 22 WTC 3/2 6/19 | |||
2143 | "RTN","SDE C07B",49,0 ) | 2143 | "RTN","SDE C07B",49,0 ) | |||
2144 | S PATCH72 2=$$PATCHS TS(722) ; | 2144 | S PATCH72 2=$$PATCHS TS(722) ; | |||
2145 | "RTN","SDE C07B",50,0 ) | 2145 | "RTN","SDE C07B",50,0 ) | |||
2146 | S PATCH71 7=$$PATCHS TS(717) ; | 2146 | S PATCH71 7=$$PATCHS TS(717) ; | |||
2147 | "RTN","SDE C07B",51,0 ) | 2147 | "RTN","SDE C07B",51,0 ) | |||
2148 | ; | 2148 | ; | |||
2149 | "RTN","SDE C07B",52,0 ) | 2149 | "RTN","SDE C07B",52,0 ) | |||
2150 | S BSDR("A PT")=+$G(B SDR("APT") ) | 2150 | S BSDR("A PT")=+$G(B SDR("APT") ) | |||
2151 | "RTN","SDE C07B",53,0 ) | 2151 | "RTN","SDE C07B",53,0 ) | |||
2152 | S BSDR("C OL")=+$G(B SDR("COL") ) | 2152 | S BSDR("C OL")=+$G(B SDR("COL") ) | |||
2153 | "RTN","SDE C07B",54,0 ) | 2153 | "RTN","SDE C07B",54,0 ) | |||
2154 | ;get sche duling req uest type AND next a va. appt. indicator | 2154 | ;get sche duling req uest type AND next a va. appt. indicator | |||
2155 | "RTN","SDE C07B",55,0 ) | 2155 | "RTN","SDE C07B",55,0 ) | |||
2156 | S SDSRT=$ $SDSRT(BSD R("TYP"),B SDR("MTR") ,BSDR("DDT "),BSDR("R EQ")) | 2156 | S SDSRT=$ $SDSRT(BSD R("TYP"),B SDR("MTR") ,BSDR("DDT "),BSDR("R EQ")) | |||
2157 | "RTN","SDE C07B",56,0 ) | 2157 | "RTN","SDE C07B",56,0 ) | |||
2158 | ; next av a.appt. in dicator fi eld 26 | 2158 | ; next av a.appt. in dicator fi eld 26 | |||
2159 | "RTN","SDE C07B",57,0 ) | 2159 | "RTN","SDE C07B",57,0 ) | |||
2160 | S SDNA=$P (SDSRT,U,2 ) | 2160 | S SDNA=$P (SDSRT,U,2 ) | |||
2161 | "RTN","SDE C07B",58,0 ) | 2161 | "RTN","SDE C07B",58,0 ) | |||
2162 | ; schedul ing reques t type fie ld 25 | 2162 | ; schedul ing reques t type fie ld 25 | |||
2163 | "RTN","SDE C07B",59,0 ) | 2163 | "RTN","SDE C07B",59,0 ) | |||
2164 | S SDSRT=$ P(SDSRT,U, 1) | 2164 | S SDSRT=$ P(SDSRT,U, 1) | |||
2165 | "RTN","SDE C07B",60,0 ) | 2165 | "RTN","SDE C07B",60,0 ) | |||
2166 | ;determin e if Follo w-up visit field 28 | 2166 | ;determin e if Follo w-up visit field 28 | |||
2167 | "RTN","SDE C07B",61,0 ) | 2167 | "RTN","SDE C07B",61,0 ) | |||
2168 | S SDRET=" " | 2168 | S SDRET=" " | |||
2169 | "RTN","SDE C07B",62,0 ) | 2169 | "RTN","SDE C07B",62,0 ) | |||
2170 | D PCSTGET ^SDEC(.SDR ET,BSDR("P AT"),BSDR( "CLN")) | 2170 | D PCSTGET ^SDEC(.SDR ET,BSDR("P AT"),BSDR( "CLN")) | |||
2171 | "RTN","SDE C07B",63,0 ) | 2171 | "RTN","SDE C07B",63,0 ) | |||
2172 | S SDFU=$P ($P(@SDRET @(1),U,2), $C(30,31), 1) | 2172 | S SDFU=$P ($P(@SDRET @(1),U,2), $C(30,31), 1) | |||
2173 | "RTN","SDE C07B",64,0 ) | 2173 | "RTN","SDE C07B",64,0 ) | |||
2174 | S SDFU=$S (SDFU="YES ":1,1:0) | 2174 | S SDFU=$S (SDFU="YES ":1,1:0) | |||
2175 | "RTN","SDE C07B",65,0 ) | 2175 | "RTN","SDE C07B",65,0 ) | |||
2176 | K @SDRET | 2176 | K @SDRET | |||
2177 | "RTN","SDE C07B",66,0 ) | 2177 | "RTN","SDE C07B",66,0 ) | |||
2178 | ;store | 2178 | ;store | |||
2179 | "RTN","SDE C07B",67,0 ) | 2179 | "RTN","SDE C07B",67,0 ) | |||
2180 | N SDECCON D ; 722/7 17 wtc 3/2 6/2019 | 2180 | N SDECCON D ; 722/7 17 wtc 3/2 6/2019 | |||
2181 | "RTN","SDE C07B",68,0 ) | 2181 | "RTN","SDE C07B",68,0 ) | |||
2182 | S SDECCON D=0 I $D(^ DPT(BSDR(" PAT"),"S", BSDR("ADT" ),0)),(($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="C")!($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="PC")) S SDECCOND= 1 ; | 2182 | S SDECCON D=0 I $D(^ DPT(BSDR(" PAT"),"S", BSDR("ADT" ),0)),(($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="C")!($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="PC")) S SDECCOND= 1 ; | |||
2183 | "RTN","SDE C07B",69,0 ) | 2183 | "RTN","SDE C07B",69,0 ) | |||
2184 | ; | 2184 | ; | |||
2185 | "RTN","SDE C07B",70,0 ) | 2185 | "RTN","SDE C07B",70,0 ) | |||
2186 | I SDECCON D D | 2186 | I SDECCON D D | |||
2187 | "RTN","SDE C07B",71,0 ) | 2187 | "RTN","SDE C07B",71,0 ) | |||
2188 | . ; "un-c ancel" exi sting appt in file 2 | 2188 | . ; "un-c ancel" exi sting appt in file 2 | |||
2189 | "RTN","SDE C07B",72,0 ) | 2189 | "RTN","SDE C07B",72,0 ) | |||
2190 | . N SDECF DA,SDECIEN S,SDECMSG | 2190 | . N SDECF DA,SDECIEN S,SDECMSG | |||
2191 | "RTN","SDE C07B",73,0 ) | 2191 | "RTN","SDE C07B",73,0 ) | |||
2192 | . S SDECI ENS=BSDR(" ADT")_","_ BSDR("PAT" )_"," | 2192 | . S SDECI ENS=BSDR(" ADT")_","_ BSDR("PAT" )_"," | |||
2193 | "RTN","SDE C07B",74,0 ) | 2193 | "RTN","SDE C07B",74,0 ) | |||
2194 | . ; | 2194 | . ; | |||
2195 | "RTN","SDE C07B",75,0 ) | 2195 | "RTN","SDE C07B",75,0 ) | |||
2196 | . I PATCH 722'=3 D ; Execute code if p atch 722 n ot install ed. | 2196 | . I PATCH 722'=3 D ; Execute code if p atch 722 n ot install ed. | |||
2197 | "RTN","SDE C07B",76,0 ) | 2197 | "RTN","SDE C07B",76,0 ) | |||
2198 | .. S SDEC FDA(2.98,S DECIENS,". 01")=BSDR( "CLN") | 2198 | .. S SDEC FDA(2.98,S DECIENS,". 01")=BSDR( "CLN") | |||
2199 | "RTN","SDE C07B",77,0 ) | 2199 | "RTN","SDE C07B",77,0 ) | |||
2200 | .. S SDEC FDA(2.98,S DECIENS,"3 ")=$S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"") | 2200 | .. S SDEC FDA(2.98,S DECIENS,"3 ")=$S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"") | |||
2201 | "RTN","SDE C07B",78,0 ) | 2201 | "RTN","SDE C07B",78,0 ) | |||
2202 | .. S SDEC FDA(2.98,S DECIENS,"5 ")=BSDR("L AB") ;l ab date/ti me | 2202 | .. S SDEC FDA(2.98,S DECIENS,"5 ")=BSDR("L AB") ;l ab date/ti me | |||
2203 | "RTN","SDE C07B",79,0 ) | 2203 | "RTN","SDE C07B",79,0 ) | |||
2204 | .. S SDEC FDA(2.98,S DECIENS,"6 ")=BSDR("X RA") ;x ray date/t ime | 2204 | .. S SDEC FDA(2.98,S DECIENS,"6 ")=BSDR("X RA") ;x ray date/t ime | |||
2205 | "RTN","SDE C07B",80,0 ) | 2205 | "RTN","SDE C07B",80,0 ) | |||
2206 | .. S SDEC FDA(2.98,S DECIENS,"7 ")=BSDR("E KG") ;e kg date/ti me | 2206 | .. S SDEC FDA(2.98,S DECIENS,"7 ")=BSDR("E KG") ;e kg date/ti me | |||
2207 | "RTN","SDE C07B",81,0 ) | 2207 | "RTN","SDE C07B",81,0 ) | |||
2208 | .. S SDEC FDA(2.98,S DECIENS,"9 ")=BSDR("T YP") | 2208 | .. S SDEC FDA(2.98,S DECIENS,"9 ")=BSDR("T YP") | |||
2209 | "RTN","SDE C07B",82,0 ) | 2209 | "RTN","SDE C07B",82,0 ) | |||
2210 | .. S:+BSD R("APT") S DECFDA(2.9 8,SDECIENS ,"9.5")=BS DR("APT") | 2210 | .. S:+BSD R("APT") S DECFDA(2.9 8,SDECIENS ,"9.5")=BS DR("APT") | |||
2211 | "RTN","SDE C07B",83,0 ) | 2211 | "RTN","SDE C07B",83,0 ) | |||
2212 | .. S:+BSD R("COL") S DECFDA(2.9 8,SDECIENS ,"13")=BSD R("COL") | 2212 | .. S:+BSD R("COL") S DECFDA(2.9 8,SDECIENS ,"13")=BSD R("COL") | |||
2213 | "RTN","SDE C07B",84,0 ) | 2213 | "RTN","SDE C07B",84,0 ) | |||
2214 | .. S SDEC FDA(2.98,S DECIENS,"1 4")="" | 2214 | .. S SDEC FDA(2.98,S DECIENS,"1 4")="" | |||
2215 | "RTN","SDE C07B",85,0 ) | 2215 | "RTN","SDE C07B",85,0 ) | |||
2216 | .. S SDEC FDA(2.98,S DECIENS,"1 5")="" | 2216 | .. S SDEC FDA(2.98,S DECIENS,"1 5")="" | |||
2217 | "RTN","SDE C07B",86,0 ) | 2217 | "RTN","SDE C07B",86,0 ) | |||
2218 | .. S SDEC FDA(2.98,S DECIENS,"1 6")="" | 2218 | .. S SDEC FDA(2.98,S DECIENS,"1 6")="" | |||
2219 | "RTN","SDE C07B",87,0 ) | 2219 | "RTN","SDE C07B",87,0 ) | |||
2220 | .. S SDEC FDA(2.98,S DECIENS,"1 7")="" ; alb/sat 65 8 | 2220 | .. S SDEC FDA(2.98,S DECIENS,"1 7")="" ; alb/sat 65 8 | |||
2221 | "RTN","SDE C07B",88,0 ) | 2221 | "RTN","SDE C07B",88,0 ) | |||
2222 | .. S SDEC FDA(2.98,S DECIENS,"1 9")=DUZ ;d ata entry clerk | 2222 | .. S SDEC FDA(2.98,S DECIENS,"1 9")=DUZ ;d ata entry clerk | |||
2223 | "RTN","SDE C07B",89,0 ) | 2223 | "RTN","SDE C07B",89,0 ) | |||
2224 | .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT | 2224 | .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT | |||
2225 | "RTN","SDE C07B",90,0 ) | 2225 | "RTN","SDE C07B",90,0 ) | |||
2226 | .. S SDEC FDA(2.98,S DECIENS,"2 5")=SDSRT ;s cheduling request ty pe | 2226 | .. S SDEC FDA(2.98,S DECIENS,"2 5")=SDSRT ;s cheduling request ty pe | |||
2227 | "RTN","SDE C07B",91,0 ) | 2227 | "RTN","SDE C07B",91,0 ) | |||
2228 | .. S SDEC FDA(2.98,S DECIENS,"2 6")=SDNA ;n ext ava. a ppt. indic ator | 2228 | .. S SDEC FDA(2.98,S DECIENS,"2 6")=SDNA ;n ext ava. a ppt. indic ator | |||
2229 | "RTN","SDE C07B",92,0 ) | 2229 | "RTN","SDE C07B",92,0 ) | |||
2230 | .. S SDEC FDA(2.98,S DECIENS,"2 7")=BSDR(" DDT") ;d esired dat e of appt | 2230 | .. S SDEC FDA(2.98,S DECIENS,"2 7")=BSDR(" DDT") ;d esired dat e of appt | |||
2231 | "RTN","SDE C07B",93,0 ) | 2231 | "RTN","SDE C07B",93,0 ) | |||
2232 | .. S SDEC FDA(2.98,S DECIENS,"2 8")=SDFU ;f ollow-up v isit yes/ no | 2232 | .. S SDEC FDA(2.98,S DECIENS,"2 8")=SDFU ;f ollow-up v isit yes/ no | |||
2233 | "RTN","SDE C07B",94,0 ) | 2233 | "RTN","SDE C07B",94,0 ) | |||
2234 | . ; | 2234 | . ; | |||
2235 | "RTN","SDE C07B",95,0 ) | 2235 | "RTN","SDE C07B",95,0 ) | |||
2236 | . I PATCH 722=3 D ; Excecute code if p atch 722 i s installe d | 2236 | . I PATCH 722=3 D ; Excecute code if p atch 722 i s installe d | |||
2237 | "RTN","SDE C07B",96,0 ) | 2237 | "RTN","SDE C07B",96,0 ) | |||
2238 | .. S SDEC FDA(2.98,S DECIENS,". 01")=$$NUL LDEL(BSDR( "CLN")) ;* zeb+19 722 2/19/19 c ompletely replace ol d appt's d ata if ove rlaying; p revent chi mera appt | 2238 | .. S SDEC FDA(2.98,S DECIENS,". 01")=$$NUL LDEL(BSDR( "CLN")) ;* zeb+19 722 2/19/19 c ompletely replace ol d appt's d ata if ove rlaying; p revent chi mera appt | |||
2239 | "RTN","SDE C07B",97,0 ) | 2239 | "RTN","SDE C07B",97,0 ) | |||
2240 | .. S SDEC FDA(2.98,S DECIENS,"3 ")=$$NULLD EL($S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"")) | 2240 | .. S SDEC FDA(2.98,S DECIENS,"3 ")=$$NULLD EL($S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"")) | |||
2241 | "RTN","SDE C07B",98,0 ) | 2241 | "RTN","SDE C07B",98,0 ) | |||
2242 | .. S SDEC FDA(2.98,S DECIENS,"5 ")=$$NULLD EL(BSDR("L AB")) ; lab date/t ime | 2242 | .. S SDEC FDA(2.98,S DECIENS,"5 ")=$$NULLD EL(BSDR("L AB")) ; lab date/t ime | |||
2243 | "RTN","SDE C07B",99,0 ) | 2243 | "RTN","SDE C07B",99,0 ) | |||
2244 | .. S SDEC FDA(2.98,S DECIENS,"6 ")=$$NULLD EL(BSDR("X RA")) ; xray date/ time | 2244 | .. S SDEC FDA(2.98,S DECIENS,"6 ")=$$NULLD EL(BSDR("X RA")) ; xray date/ time | |||
2245 | "RTN","SDE C07B",100, 0) | 2245 | "RTN","SDE C07B",100, 0) | |||
2246 | .. S SDEC FDA(2.98,S DECIENS,"7 ")=$$NULLD EL(BSDR("E KG")) ; ekg date/t ime | 2246 | .. S SDEC FDA(2.98,S DECIENS,"7 ")=$$NULLD EL(BSDR("E KG")) ; ekg date/t ime | |||
2247 | "RTN","SDE C07B",101, 0) | 2247 | "RTN","SDE C07B",101, 0) | |||
2248 | .. S SDEC FDA(2.98,S DECIENS,"9 ")=$$NULLD EL(BSDR("T YP")) | 2248 | .. S SDEC FDA(2.98,S DECIENS,"9 ")=$$NULLD EL(BSDR("T YP")) | |||
2249 | "RTN","SDE C07B",102, 0) | 2249 | "RTN","SDE C07B",102, 0) | |||
2250 | .. S SDEC FDA(2.98,S DECIENS,"9 .5")=$$NUL LDEL(BSDR( "APT")) | 2250 | .. S SDEC FDA(2.98,S DECIENS,"9 .5")=$$NUL LDEL(BSDR( "APT")) | |||
2251 | "RTN","SDE C07B",103, 0) | 2251 | "RTN","SDE C07B",103, 0) | |||
2252 | .. S SDEC FDA(2.98,S DECIENS,"1 3")=$$NULL DEL(BSDR(" COL")) | 2252 | .. S SDEC FDA(2.98,S DECIENS,"1 3")=$$NULL DEL(BSDR(" COL")) | |||
2253 | "RTN","SDE C07B",104, 0) | 2253 | "RTN","SDE C07B",104, 0) | |||
2254 | .. S SDEC FDA(2.98,S DECIENS,"1 4")="@" | 2254 | .. S SDEC FDA(2.98,S DECIENS,"1 4")="@" | |||
2255 | "RTN","SDE C07B",105, 0) | 2255 | "RTN","SDE C07B",105, 0) | |||
2256 | .. S SDEC FDA(2.98,S DECIENS,"1 5")="@" | 2256 | .. S SDEC FDA(2.98,S DECIENS,"1 5")="@" | |||
2257 | "RTN","SDE C07B",106, 0) | 2257 | "RTN","SDE C07B",106, 0) | |||
2258 | .. S SDEC FDA(2.98,S DECIENS,"1 6")="@" | 2258 | .. S SDEC FDA(2.98,S DECIENS,"1 6")="@" | |||
2259 | "RTN","SDE C07B",107, 0) | 2259 | "RTN","SDE C07B",107, 0) | |||
2260 | .. S SDEC FDA(2.98,S DECIENS,"1 7")="@" ;alb/sat 6 58 | 2260 | .. S SDEC FDA(2.98,S DECIENS,"1 7")="@" ;alb/sat 6 58 | |||
2261 | "RTN","SDE C07B",108, 0) | 2261 | "RTN","SDE C07B",108, 0) | |||
2262 | .. S SDEC FDA(2.98,S DECIENS,"1 9")=$$NULL DEL(DUZ) ; data entry clerk | 2262 | .. S SDEC FDA(2.98,S DECIENS,"1 9")=$$NULL DEL(DUZ) ; data entry clerk | |||
2263 | "RTN","SDE C07B",109, 0) | 2263 | "RTN","SDE C07B",109, 0) | |||
2264 | .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT | 2264 | .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT | |||
2265 | "RTN","SDE C07B",110, 0) | 2265 | "RTN","SDE C07B",110, 0) | |||
2266 | .. S SDEC FDA(2.98,S DECIENS,"2 1")="@" ; outpatient encounter ;*zeb 722 2/26/19 c lear to fi x OE link issue if c ancelled a gain | 2266 | .. S SDEC FDA(2.98,S DECIENS,"2 1")="@" ; outpatient encounter ;*zeb 722 2/26/19 c lear to fi x OE link issue if c ancelled a gain | |||
2267 | "RTN","SDE C07B",111, 0) | 2267 | "RTN","SDE C07B",111, 0) | |||
2268 | .. S SDEC FDA(2.98,S DECIENS,"2 5")=$$NULL DEL(SDSRT) ; scheduling request t ype | 2268 | .. S SDEC FDA(2.98,S DECIENS,"2 5")=$$NULL DEL(SDSRT) ; scheduling request t ype | |||
2269 | "RTN","SDE C07B",112, 0) | 2269 | "RTN","SDE C07B",112, 0) | |||
2270 | .. S SDEC FDA(2.98,S DECIENS,"2 6")=$$NULL DEL(SDNA) ; next ava. appt. indi cator | 2270 | .. S SDEC FDA(2.98,S DECIENS,"2 6")=$$NULL DEL(SDNA) ; next ava. appt. indi cator | |||
2271 | "RTN","SDE C07B",113, 0) | 2271 | "RTN","SDE C07B",113, 0) | |||
2272 | .. S SDEC FDA(2.98,S DECIENS,"2 7")=$$NULL DEL(BSDR(" DDT")) ; desired da te of appt | 2272 | .. S SDEC FDA(2.98,S DECIENS,"2 7")=$$NULL DEL(BSDR(" DDT")) ; desired da te of appt | |||
2273 | "RTN","SDE C07B",114, 0) | 2273 | "RTN","SDE C07B",114, 0) | |||
2274 | .. S SDEC FDA(2.98,S DECIENS,"2 8")=$$NULL DEL(SDFU) ; follow-up visit yes /no. ; | 2274 | .. S SDEC FDA(2.98,S DECIENS,"2 8")=$$NULL DEL(SDFU) ; follow-up visit yes /no. ; | |||
2275 | "RTN","SDE C07B",115, 0) | 2275 | "RTN","SDE C07B",115, 0) | |||
2276 | . ; | 2276 | . ; | |||
2277 | "RTN","SDE C07B",116, 0) | 2277 | "RTN","SDE C07B",116, 0) | |||
2278 | . D FILE^ DIE("","SD ECFDA","SD ECMSG") | 2278 | . D FILE^ DIE("","SD ECFDA","SD ECMSG") | |||
2279 | "RTN","SDE C07B",117, 0) | 2279 | "RTN","SDE C07B",117, 0) | |||
2280 | . ; | 2280 | . ; | |||
2281 | "RTN","SDE C07B",118, 0) | 2281 | "RTN","SDE C07B",118, 0) | |||
2282 | . I PATCH 722'=3 N S DECTEMP S SDECTEMP=$ G(SDECMSG) | 2282 | . I PATCH 722'=3 N S DECTEMP S SDECTEMP=$ G(SDECMSG) | |||
2283 | "RTN","SDE C07B",119, 0) | 2283 | "RTN","SDE C07B",119, 0) | |||
2284 | . I PATCH 722=3 N SD ECTEMP S S DECTEMP=$$ NULLDEL($G (SDECMSG)) | 2284 | . I PATCH 722=3 N SD ECTEMP S S DECTEMP=$$ NULLDEL($G (SDECMSG)) | |||
2285 | "RTN","SDE C07B",120, 0) | 2285 | "RTN","SDE C07B",120, 0) | |||
2286 | . ; | 2286 | . ; | |||
2287 | "RTN","SDE C07B",121, 0) | 2287 | "RTN","SDE C07B",121, 0) | |||
2288 | I 'SDECCO ND D I $G (SDECERR(1 )) Q 1_U_" FileMan ad d to DPT e rror: Pati ent="_BSDR ("PAT")_" Appt="_BSD R("ADT") | 2288 | I 'SDECCO ND D I $G (SDECERR(1 )) Q 1_U_" FileMan ad d to DPT e rror: Pati ent="_BSDR ("PAT")_" Appt="_BSD R("ADT") | |||
2289 | "RTN","SDE C07B",122, 0) | 2289 | "RTN","SDE C07B",122, 0) | |||
2290 | . ; add a ppt to fil e 2 | 2290 | . ; add a ppt to fil e 2 | |||
2291 | "RTN","SDE C07B",123, 0) | 2291 | "RTN","SDE C07B",123, 0) | |||
2292 | . N SDECF DA,SDECIEN S,SDECMSG | 2292 | . N SDECF DA,SDECIEN S,SDECMSG | |||
2293 | "RTN","SDE C07B",124, 0) | 2293 | "RTN","SDE C07B",124, 0) | |||
2294 | . S SDECI ENS="?+2," _BSDR("PAT ")_"," | 2294 | . S SDECI ENS="?+2," _BSDR("PAT ")_"," | |||
2295 | "RTN","SDE C07B",125, 0) | 2295 | "RTN","SDE C07B",125, 0) | |||
2296 | . S SDECI ENS(2)=BSD R("ADT") | 2296 | . S SDECI ENS(2)=BSD R("ADT") | |||
2297 | "RTN","SDE C07B",126, 0) | 2297 | "RTN","SDE C07B",126, 0) | |||
2298 | . S SDECF DA(2.98,SD ECIENS,.01 )=BSDR("CL N") | 2298 | . S SDECF DA(2.98,SD ECIENS,.01 )=BSDR("CL N") | |||
2299 | "RTN","SDE C07B",127, 0) | 2299 | "RTN","SDE C07B",127, 0) | |||
2300 | . S SDECF DA(2.98,SD ECIENS,"3" )=$S($G(^D PT(+$G(BSD R("PAT")), .1))'="":" I",1:"") | 2300 | . S SDECF DA(2.98,SD ECIENS,"3" )=$S($G(^D PT(+$G(BSD R("PAT")), .1))'="":" I",1:"") | |||
2301 | "RTN","SDE C07B",128, 0) | 2301 | "RTN","SDE C07B",128, 0) | |||
2302 | . S SDECF DA(2.98,SD ECIENS,"5" )=BSDR("LA B") ;la b date/tim e | 2302 | . S SDECF DA(2.98,SD ECIENS,"5" )=BSDR("LA B") ;la b date/tim e | |||
2303 | "RTN","SDE C07B",129, 0) | 2303 | "RTN","SDE C07B",129, 0) | |||
2304 | . S SDECF DA(2.98,SD ECIENS,"6" )=BSDR("XR A") ;xr ay date/ti me | 2304 | . S SDECF DA(2.98,SD ECIENS,"6" )=BSDR("XR A") ;xr ay date/ti me | |||
2305 | "RTN","SDE C07B",130, 0) | 2305 | "RTN","SDE C07B",130, 0) | |||
2306 | . S SDECF DA(2.98,SD ECIENS,"7" )=BSDR("EK G") ;ek g date/tim e | 2306 | . S SDECF DA(2.98,SD ECIENS,"7" )=BSDR("EK G") ;ek g date/tim e | |||
2307 | "RTN","SDE C07B",131, 0) | 2307 | "RTN","SDE C07B",131, 0) | |||
2308 | . S SDECF DA(2.98,SD ECIENS,"9" )=BSDR("TY P") | 2308 | . S SDECF DA(2.98,SD ECIENS,"9" )=BSDR("TY P") | |||
2309 | "RTN","SDE C07B",132, 0) | 2309 | "RTN","SDE C07B",132, 0) | |||
2310 | . S:+BSDR ("APT") SD ECFDA(2.98 ,SDECIENS, "9.5")=BSD R("APT") | 2310 | . S:+BSDR ("APT") SD ECFDA(2.98 ,SDECIENS, "9.5")=BSD R("APT") | |||
2311 | "RTN","SDE C07B",133, 0) | 2311 | "RTN","SDE C07B",133, 0) | |||
2312 | . S:+BSDR ("COL") SD ECFDA(2.98 ,SDECIENS, "13")=BSDR ("COL") | 2312 | . S:+BSDR ("COL") SD ECFDA(2.98 ,SDECIENS, "13")=BSDR ("COL") | |||
2313 | "RTN","SDE C07B",134, 0) | 2313 | "RTN","SDE C07B",134, 0) | |||
2314 | . S SDECF DA(2.98,SD ECIENS,"14 ")="" | 2314 | . S SDECF DA(2.98,SD ECIENS,"14 ")="" | |||
2315 | "RTN","SDE C07B",135, 0) | 2315 | "RTN","SDE C07B",135, 0) | |||
2316 | . S SDECF DA(2.98,SD ECIENS,"15 ")="" | 2316 | . S SDECF DA(2.98,SD ECIENS,"15 ")="" | |||
2317 | "RTN","SDE C07B",136, 0) | 2317 | "RTN","SDE C07B",136, 0) | |||
2318 | . S SDECF DA(2.98,SD ECIENS,"16 ")="" | 2318 | . S SDECF DA(2.98,SD ECIENS,"16 ")="" | |||
2319 | "RTN","SDE C07B",137, 0) | 2319 | "RTN","SDE C07B",137, 0) | |||
2320 | . S SDECF DA(2.98,SD ECIENS,"17 ")="" ;a lb/sat 658 | 2320 | . S SDECF DA(2.98,SD ECIENS,"17 ")="" ;a lb/sat 658 | |||
2321 | "RTN","SDE C07B",138, 0) | 2321 | "RTN","SDE C07B",138, 0) | |||
2322 | . S SDECF DA(2.98,SD ECIENS,"19 ")=DUZ ;da ta entry c lerk | 2322 | . S SDECF DA(2.98,SD ECIENS,"19 ")=DUZ ;da ta entry c lerk | |||
2323 | "RTN","SDE C07B",139, 0) | 2323 | "RTN","SDE C07B",139, 0) | |||
2324 | . S SDECF DA(2.98,SD ECIENS,"20 ")=$$NOW^X LFDT | 2324 | . S SDECF DA(2.98,SD ECIENS,"20 ")=$$NOW^X LFDT | |||
2325 | "RTN","SDE C07B",140, 0) | 2325 | "RTN","SDE C07B",140, 0) | |||
2326 | . S SDECF DA(2.98,SD ECIENS,"25 ")=SDSRT ;sc heduling r equest typ e | 2326 | . S SDECF DA(2.98,SD ECIENS,"25 ")=SDSRT ;sc heduling r equest typ e | |||
2327 | "RTN","SDE C07B",141, 0) | 2327 | "RTN","SDE C07B",141, 0) | |||
2328 | . S SDECF DA(2.98,SD ECIENS,"26 ")=SDNA ;ne xt ava. ap pt. indica tor | 2328 | . S SDECF DA(2.98,SD ECIENS,"26 ")=SDNA ;ne xt ava. ap pt. indica tor | |||
2329 | "RTN","SDE C07B",142, 0) | 2329 | "RTN","SDE C07B",142, 0) | |||
2330 | . S SDECF DA(2.98,SD ECIENS,"27 ")=BSDR("D DT") ;de sired date of appt | 2330 | . S SDECF DA(2.98,SD ECIENS,"27 ")=BSDR("D DT") ;de sired date of appt | |||
2331 | "RTN","SDE C07B",143, 0) | 2331 | "RTN","SDE C07B",143, 0) | |||
2332 | . S SDECF DA(2.98,SD ECIENS,"28 ")=SDFU ;fo llow-up vi sit yes/n o | 2332 | . S SDECF DA(2.98,SD ECIENS,"28 ")=SDFU ;fo llow-up vi sit yes/n o | |||
2333 | "RTN","SDE C07B",144, 0) | 2333 | "RTN","SDE C07B",144, 0) | |||
2334 | . D UPDAT E^DIE(""," SDECFDA"," SDECIENS", "SDECERR(1 )") | 2334 | . D UPDAT E^DIE(""," SDECFDA"," SDECIENS", "SDECERR(1 )") | |||
2335 | "RTN","SDE C07B",145, 0) | 2335 | "RTN","SDE C07B",145, 0) | |||
2336 | ; | 2336 | ; | |||
2337 | "RTN","SDE C07B",146, 0) | 2337 | "RTN","SDE C07B",146, 0) | |||
2338 | ; add app t to file 44 | 2338 | ; add app t to file 44 | |||
2339 | "RTN","SDE C07B",147, 0) | 2339 | "RTN","SDE C07B",147, 0) | |||
2340 | K DIC,DA, X,Y,DLAYGO ,DD,DO | 2340 | K DIC,DA, X,Y,DLAYGO ,DD,DO | |||
2341 | "RTN","SDE C07B",148, 0) | 2341 | "RTN","SDE C07B",148, 0) | |||
2342 | I '$D(^SC (BSDR("CLN "),"S",0)) S ^SC(BSD R("CLN")," S",0)="^44 .001DA^^" | 2342 | I '$D(^SC (BSDR("CLN "),"S",0)) S ^SC(BSD R("CLN")," S",0)="^44 .001DA^^" | |||
2343 | "RTN","SDE C07B",149, 0) | 2343 | "RTN","SDE C07B",149, 0) | |||
2344 | I '$D(^SC (BSDR("CLN "),"S",BSD R("ADT"),0 )) D I Y< 1 Q 1_U_"E rror addin g date to file 44: C linic="_BS DR("CLN")_ " Date="_B SDR("ADT") | 2344 | I '$D(^SC (BSDR("CLN "),"S",BSD R("ADT"),0 )) D I Y< 1 Q 1_U_"E rror addin g date to file 44: C linic="_BS DR("CLN")_ " Date="_B SDR("ADT") | |||
2345 | "RTN","SDE C07B",150, 0) | 2345 | "RTN","SDE C07B",150, 0) | |||
2346 | . S DIC=" ^SC("_BSDR ("CLN")_", ""S"",",DA (1)=BSDR(" CLN"),(X,D INUM)=BSDR ("ADT") | 2346 | . S DIC=" ^SC("_BSDR ("CLN")_", ""S"",",DA (1)=BSDR(" CLN"),(X,D INUM)=BSDR ("ADT") | |||
2347 | "RTN","SDE C07B",151, 0) | 2347 | "RTN","SDE C07B",151, 0) | |||
2348 | . S DIC(" P")="44.00 1DA",DIC(0 )="L",DLAY GO=44.001 | 2348 | . S DIC(" P")="44.00 1DA",DIC(0 )="L",DLAY GO=44.001 | |||
2349 | "RTN","SDE C07B",152, 0) | 2349 | "RTN","SDE C07B",152, 0) | |||
2350 | . S Y=1 I '$D(@(DIC _X_")")) D FILE^DICN | 2350 | . S Y=1 I '$D(@(DIC _X_")")) D FILE^DICN | |||
2351 | "RTN","SDE C07B",153, 0) | 2351 | "RTN","SDE C07B",153, 0) | |||
2352 | ; | 2352 | ; | |||
2353 | "RTN","SDE C07B",154, 0) | 2353 | "RTN","SDE C07B",154, 0) | |||
2354 | K DIC,DA, X,Y,DLAYGO ,DD,DO,DIN UM | 2354 | K DIC,DA, X,Y,DLAYGO ,DD,DO,DIN UM | |||
2355 | "RTN","SDE C07B",155, 0) | 2355 | "RTN","SDE C07B",155, 0) | |||
2356 | S DIC="^S C("_BSDR(" CLN")_","" S"","_BSDR ("ADT")_", 1," | 2356 | S DIC="^S C("_BSDR(" CLN")_","" S"","_BSDR ("ADT")_", 1," | |||
2357 | "RTN","SDE C07B",156, 0) | 2357 | "RTN","SDE C07B",156, 0) | |||
2358 | S DA(2)=B SDR("CLN") ,DA(1)=BSD R("ADT"),X =BSDR("PAT ") | 2358 | S DA(2)=B SDR("CLN") ,DA(1)=BSD R("ADT"),X =BSDR("PAT ") | |||
2359 | "RTN","SDE C07B",157, 0) | 2359 | "RTN","SDE C07B",157, 0) | |||
2360 | S DIC("DR ")="1////" _BSDR("LEN ")_";3///" _$E($G(BSD R("OI")),1 ,150)_";7/ ///"_BSDR( "USR")_";8 ////"_$$NO W^XLFDT_"; 30////"_BS DR("ELG")_ $S(+$G(BSD R("OVB")): ";9////O", 1:"") | 2360 | S DIC("DR ")="1////" _BSDR("LEN ")_";3///" _$E($G(BSD R("OI")),1 ,150)_";7/ ///"_BSDR( "USR")_";8 ////"_$$NO W^XLFDT_"; 30////"_BS DR("ELG")_ $S(+$G(BSD R("OVB")): ";9////O", 1:"") | |||
2361 | "RTN","SDE C07B",158, 0) | 2361 | "RTN","SDE C07B",158, 0) | |||
2362 | S DIC("P" )="44.003P A",DIC(0)= "L",DLAYGO =44.003 | 2362 | S DIC("P" )="44.003P A",DIC(0)= "L",DLAYGO =44.003 | |||
2363 | "RTN","SDE C07B",159, 0) | 2363 | "RTN","SDE C07B",159, 0) | |||
2364 | D FILE^DI CN | 2364 | D FILE^DI CN | |||
2365 | "RTN","SDE C07B",160, 0) | 2365 | "RTN","SDE C07B",160, 0) | |||
2366 | ;add cons ult link | 2366 | ;add cons ult link | |||
2367 | "RTN","SDE C07B",161, 0) | 2367 | "RTN","SDE C07B",161, 0) | |||
2368 | I $G(BSDR ("CON")) D | 2368 | I $G(BSDR ("CON")) D | |||
2369 | "RTN","SDE C07B",162, 0) | 2369 | "RTN","SDE C07B",162, 0) | |||
2370 | .N SDFDA, SDIEN | 2370 | .N SDFDA, SDIEN | |||
2371 | "RTN","SDE C07B",163, 0) | 2371 | "RTN","SDE C07B",163, 0) | |||
2372 | .S SDIEN= +Y | 2372 | .S SDIEN= +Y | |||
2373 | "RTN","SDE C07B",164, 0) | 2373 | "RTN","SDE C07B",164, 0) | |||
2374 | .Q:SDIEN= -1 | 2374 | .Q:SDIEN= -1 | |||
2375 | "RTN","SDE C07B",165, 0) | 2375 | "RTN","SDE C07B",165, 0) | |||
2376 | .S SDFDA( 44.003,SDI EN_","_BSD R("ADT")_" ,"_BSDR("C LN")_",",6 88)=BSDR(" CON") | 2376 | .S SDFDA( 44.003,SDI EN_","_BSD R("ADT")_" ,"_BSDR("C LN")_",",6 88)=BSDR(" CON") | |||
2377 | "RTN","SDE C07B",166, 0) | 2377 | "RTN","SDE C07B",166, 0) | |||
2378 | .D UPDATE ^DIE("","S DFDA") | 2378 | .D UPDATE ^DIE("","S DFDA") | |||
2379 | "RTN","SDE C07B",167, 0) | 2379 | "RTN","SDE C07B",167, 0) | |||
2380 | ; | 2380 | ; | |||
2381 | "RTN","SDE C07B",168, 0) | 2381 | "RTN","SDE C07B",168, 0) | |||
2382 | I PATCH71 7'=3 Q 0 ;*zeb 10/2 4/18 717 c omment out quit to e nable even t driver ; WTC 3/26/ 19 Enable line only if patch 7 17 not ins talled yet . | 2382 | I PATCH71 7'=3 Q 0 ;*zeb 10/2 4/18 717 c omment out quit to e nable even t driver ; WTC 3/26/ 19 Enable line only if patch 7 17 not ins talled yet . | |||
2383 | "RTN","SDE C07B",169, 0) | 2383 | "RTN","SDE C07B",169, 0) | |||
2384 | ; call ev ent driver | 2384 | ; call ev ent driver | |||
2385 | "RTN","SDE C07B",170, 0) | 2385 | "RTN","SDE C07B",170, 0) | |||
2386 | NEW DFN,S DT,SDCL,SD DA,SDMODE | 2386 | NEW DFN,S DT,SDCL,SD DA,SDMODE | |||
2387 | "RTN","SDE C07B",171, 0) | 2387 | "RTN","SDE C07B",171, 0) | |||
2388 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 | 2388 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 | |||
2389 | "RTN","SDE C07B",172, 0) | 2389 | "RTN","SDE C07B",172, 0) | |||
2390 | S SDDA=$$ SCIEN^SDEC U2(BSDR("P AT"),BSDR( "CLN"),BSD R("ADT")) | 2390 | S SDDA=$$ SCIEN^SDEC U2(BSDR("P AT"),BSDR( "CLN"),BSD R("ADT")) | |||
2391 | "RTN","SDE C07B",173, 0) | 2391 | "RTN","SDE C07B",173, 0) | |||
2392 | D MAKE^SD AMEVT(DFN, SDT,SDCL,S DDA,SDMODE ) | 2392 | D MAKE^SD AMEVT(DFN, SDT,SDCL,S DDA,SDMODE ) | |||
2393 | "RTN","SDE C07B",174, 0) | 2393 | "RTN","SDE C07B",174, 0) | |||
2394 | Q 0 | 2394 | Q 0 | |||
2395 | "RTN","SDE C07B",175, 0) | 2395 | "RTN","SDE C07B",175, 0) | |||
2396 | ; | 2396 | ; | |||
2397 | "RTN","SDE C07B",176, 0) | 2397 | "RTN","SDE C07B",176, 0) | |||
2398 | NULLDEL(ST R) ;return "@" to de lete a fie ld if the new data w ould be nu ll ;*zeb+t ag 722 2/1 9/19 added to suppor t APPADD | 2398 | NULLDEL(ST R) ;return "@" to de lete a fie ld if the new data w ould be nu ll ;*zeb+t ag 722 2/1 9/19 added to suppor t APPADD | |||
2399 | "RTN","SDE C07B",177, 0) | 2399 | "RTN","SDE C07B",177, 0) | |||
2400 | Q $S(STR] "":STR,1:" @") | 2400 | Q $S(STR] "":STR,1:" @") | |||
2401 | "RTN","SDE C07B",178, 0) | 2401 | "RTN","SDE C07B",178, 0) | |||
2402 | ; | 2402 | ; | |||
2403 | "RTN","SDE C07B",179, 0) | 2403 | "RTN","SDE C07B",179, 0) | |||
2404 | SDSRT(TYP, MTR,DDT,RE Q) ;get SC HEDULING R EQUEST TYP E and NEXT AVA.APPT. INDICATOR | 2404 | SDSRT(TYP, MTR,DDT,RE Q) ;get SC HEDULING R EQUEST TYP E and NEXT AVA.APPT. INDICATOR | |||
2405 | "RTN","SDE C07B",180, 0) | 2405 | "RTN","SDE C07B",180, 0) | |||
2406 | ;INPUT: | 2406 | ;INPUT: | |||
2407 | "RTN","SDE C07B",181, 0) | 2407 | "RTN","SDE C07B",181, 0) | |||
2408 | ; TYP = 3 for sche duled appt s, 4 for w alkins | 2408 | ; TYP = 3 for sche duled appt s, 4 for w alkins | |||
2409 | "RTN","SDE C07B",182, 0) | 2409 | "RTN","SDE C07B",182, 0) | |||
2410 | ; MTR = M TRC flag ( multiple a ppointment s) 0=False (default) 1=True | 2410 | ; MTR = M TRC flag ( multiple a ppointment s) 0=False (default) 1=True | |||
2411 | "RTN","SDE C07B",183, 0) | 2411 | "RTN","SDE C07B",183, 0) | |||
2412 | ; DDT = D esired Dat e of Appt in fm form at | 2412 | ; DDT = D esired Dat e of Appt in fm form at | |||
2413 | "RTN","SDE C07B",184, 0) | 2413 | "RTN","SDE C07B",184, 0) | |||
2414 | ; REQ = R equested B y - valid values are 1=PROVIDE R 2=PATIE NT or "" | 2414 | ; REQ = R equested B y - valid values are 1=PROVIDE R 2=PATIE NT or "" | |||
2415 | "RTN","SDE C07B",185, 0) | 2415 | "RTN","SDE C07B",185, 0) | |||
2416 | ;RETURN: 2 ^ pieces : | 2416 | ;RETURN: 2 ^ pieces : | |||
2417 | "RTN","SDE C07B",186, 0) | 2417 | "RTN","SDE C07B",186, 0) | |||
2418 | ; 1 - SCHEDULIN G REQUEST TYPE inte rnal forma t - valid values: | 2418 | ; 1 - SCHEDULIN G REQUEST TYPE inte rnal forma t - valid values: | |||
2419 | "RTN","SDE C07B",187, 0) | 2419 | "RTN","SDE C07B",187, 0) | |||
2420 | ; N:'NEXT AVAILABLE' APPT. | 2420 | ; N:'NEXT AVAILABLE' APPT. | |||
2421 | "RTN","SDE C07B",188, 0) | 2421 | "RTN","SDE C07B",188, 0) | |||
2422 | ; C:OTHER THAN 'NEXT AVA.' (CL INICIAN RE Q.) | 2422 | ; C:OTHER THAN 'NEXT AVA.' (CL INICIAN RE Q.) | |||
2423 | "RTN","SDE C07B",189, 0) | 2423 | "RTN","SDE C07B",189, 0) | |||
2424 | ; P:OTHER THAN 'NEXT AVA.' (PA TIENT REQ. ) | 2424 | ; P:OTHER THAN 'NEXT AVA.' (PA TIENT REQ. ) | |||
2425 | "RTN","SDE C07B",190, 0) | 2425 | "RTN","SDE C07B",190, 0) | |||
2426 | ; W:WALKIN APPT. | 2426 | ; W:WALKIN APPT. | |||
2427 | "RTN","SDE C07B",191, 0) | 2427 | "RTN","SDE C07B",191, 0) | |||
2428 | ; M:MULTIP LE APPT. B OOKING | 2428 | ; M:MULTIP LE APPT. B OOKING | |||
2429 | "RTN","SDE C07B",192, 0) | 2429 | "RTN","SDE C07B",192, 0) | |||
2430 | ; A:AUTO R EBOOK | 2430 | ; A:AUTO R EBOOK | |||
2431 | "RTN","SDE C07B",193, 0) | 2431 | "RTN","SDE C07B",193, 0) | |||
2432 | ; O:OTHER THAN 'NEXT AVA.' APP T. | 2432 | ; O:OTHER THAN 'NEXT AVA.' APP T. | |||
2433 | "RTN","SDE C07B",194, 0) | 2433 | "RTN","SDE C07B",194, 0) | |||
2434 | ; 2 - NEXT AVA. APPT. IND ICATOR in ternal for mat - vali d values: | 2434 | ; 2 - NEXT AVA. APPT. IND ICATOR in ternal for mat - vali d values: | |||
2435 | "RTN","SDE C07B",195, 0) | 2435 | "RTN","SDE C07B",195, 0) | |||
2436 | ; N:'NEXT AVAILABLE' APPT. | 2436 | ; N:'NEXT AVAILABLE' APPT. | |||
2437 | "RTN","SDE C07B",196, 0) | 2437 | "RTN","SDE C07B",196, 0) | |||
2438 | ; C:OTHER THAN 'NEXT AVA.' (CL INICIAN RE Q.) | 2438 | ; C:OTHER THAN 'NEXT AVA.' (CL INICIAN RE Q.) | |||
2439 | "RTN","SDE C07B",197, 0) | 2439 | "RTN","SDE C07B",197, 0) | |||
2440 | ; P:OTHER THAN 'NEXT AVA.' (PA TIENT REQ. ) | 2440 | ; P:OTHER THAN 'NEXT AVA.' (PA TIENT REQ. ) | |||
2441 | "RTN","SDE C07B",198, 0) | 2441 | "RTN","SDE C07B",198, 0) | |||
2442 | ; W:WALKIN APPT. | 2442 | ; W:WALKIN APPT. | |||
2443 | "RTN","SDE C07B",199, 0) | 2443 | "RTN","SDE C07B",199, 0) | |||
2444 | ; M:MULTIP LE APPT. B OOKING | 2444 | ; M:MULTIP LE APPT. B OOKING | |||
2445 | "RTN","SDE C07B",200, 0) | 2445 | "RTN","SDE C07B",200, 0) | |||
2446 | ; A:AUTO R EBOOK | 2446 | ; A:AUTO R EBOOK | |||
2447 | "RTN","SDE C07B",201, 0) | 2447 | "RTN","SDE C07B",201, 0) | |||
2448 | ; O:OTHER THAN 'NEXT AVA.' APP T. | 2448 | ; O:OTHER THAN 'NEXT AVA.' APP T. | |||
2449 | "RTN","SDE C07B",202, 0) | 2449 | "RTN","SDE C07B",202, 0) | |||
2450 | ; | 2450 | ; | |||
2451 | "RTN","SDE C07B",203, 0) | 2451 | "RTN","SDE C07B",203, 0) | |||
2452 | N RET | 2452 | N RET | |||
2453 | "RTN","SDE C07B",204, 0) | 2453 | "RTN","SDE C07B",204, 0) | |||
2454 | S RET="" | 2454 | S RET="" | |||
2455 | "RTN","SDE C07B",205, 0) | 2455 | "RTN","SDE C07B",205, 0) | |||
2456 | ;1. If us er creates a walkin appointmen t would be W:WALKIN APPT, 0:NO T INDICATE D TO BE A 'NEXT AVA. ' APPT | 2456 | ;1. If us er creates a walkin appointmen t would be W:WALKIN APPT, 0:NO T INDICATE D TO BE A 'NEXT AVA. ' APPT | |||
2457 | "RTN","SDE C07B",206, 0) | 2457 | "RTN","SDE C07B",206, 0) | |||
2458 | I TYP=4 Q "W^0" | 2458 | I TYP=4 Q "W^0" | |||
2459 | "RTN","SDE C07B",207, 0) | 2459 | "RTN","SDE C07B",207, 0) | |||
2460 | ;2. If us er creates an rm req uest with MTRC flagg ed | 2460 | ;2. If us er creates an rm req uest with MTRC flagg ed | |||
2461 | "RTN","SDE C07B",208, 0) | 2461 | "RTN","SDE C07B",208, 0) | |||
2462 | ; AND d esired dat e is 'toda y' | 2462 | ; AND d esired dat e is 'toda y' | |||
2463 | "RTN","SDE C07B",209, 0) | 2463 | "RTN","SDE C07B",209, 0) | |||
2464 | ; would b e M:MULTIP LE APPT. B OOKING, 3: 'NEXT AVA. ' APPT. IN DICATED BY USER & CA LCULATION | 2464 | ; would b e M:MULTIP LE APPT. B OOKING, 3: 'NEXT AVA. ' APPT. IN DICATED BY USER & CA LCULATION | |||
2465 | "RTN","SDE C07B",210, 0) | 2465 | "RTN","SDE C07B",210, 0) | |||
2466 | I +MTR,$P ($$NOW^XLF DT,".",1)= DDT Q "M^3 " | 2466 | I +MTR,$P ($$NOW^XLF DT,".",1)= DDT Q "M^3 " | |||
2467 | "RTN","SDE C07B",211, 0) | 2467 | "RTN","SDE C07B",211, 0) | |||
2468 | ;3. If us er creates an rm req uest with MTRC flagg ed | 2468 | ;3. If us er creates an rm req uest with MTRC flagg ed | |||
2469 | "RTN","SDE C07B",212, 0) | 2469 | "RTN","SDE C07B",212, 0) | |||
2470 | ; AND d esired dat e is not ' today' | 2470 | ; AND d esired dat e is not ' today' | |||
2471 | "RTN","SDE C07B",213, 0) | 2471 | "RTN","SDE C07B",213, 0) | |||
2472 | ; would b e M:MULTIP LE APPT. B OOKING, 0: 'NOT INDIC ATED TO BE A 'NEXT A VA.' APPT | 2472 | ; would b e M:MULTIP LE APPT. B OOKING, 0: 'NOT INDIC ATED TO BE A 'NEXT A VA.' APPT | |||
2473 | "RTN","SDE C07B",214, 0) | 2473 | "RTN","SDE C07B",214, 0) | |||
2474 | I +MTR,$P ($$NOW^XLF DT,".",1)' =DDT Q "M^ 0" | 2474 | I +MTR,$P ($$NOW^XLF DT,".",1)' =DDT Q "M^ 0" | |||
2475 | "RTN","SDE C07B",215, 0) | 2475 | "RTN","SDE C07B",215, 0) | |||
2476 | ;4. If th e user ent ers a desi red date f or the cli nic stop t hat is tod ay | 2476 | ;4. If th e user ent ers a desi red date f or the cli nic stop t hat is tod ay | |||
2477 | "RTN","SDE C07B",216, 0) | 2477 | "RTN","SDE C07B",216, 0) | |||
2478 | ; then N :'NEXT AVA ILABLE' AP PT., 1:'NE XT AVA.' A PPT. INDIC ATED BY US ER | 2478 | ; then N :'NEXT AVA ILABLE' AP PT., 1:'NE XT AVA.' A PPT. INDIC ATED BY US ER | |||
2479 | "RTN","SDE C07B",217, 0) | 2479 | "RTN","SDE C07B",217, 0) | |||
2480 | I $P($$NO W^XLFDT(), ".",1)=DDT Q "N^1" | 2480 | I $P($$NO W^XLFDT(), ".",1)=DDT Q "N^1" | |||
2481 | "RTN","SDE C07B",218, 0) | 2481 | "RTN","SDE C07B",218, 0) | |||
2482 | ;5. If th e user ent ers a desi red date n ot today | 2482 | ;5. If th e user ent ers a desi red date n ot today | |||
2483 | "RTN","SDE C07B",219, 0) | 2483 | "RTN","SDE C07B",219, 0) | |||
2484 | ; AND t he request is by pat ient | 2484 | ; AND t he request is by pat ient | |||
2485 | "RTN","SDE C07B",220, 0) | 2485 | "RTN","SDE C07B",220, 0) | |||
2486 | ; then P: OTHER THAN 'NEXT AVA .' (PATIEN T REQ.); 0 :NOT INDIC ATED TO BE A 'NEXT A VA.' APPT. | 2486 | ; then P: OTHER THAN 'NEXT AVA .' (PATIEN T REQ.); 0 :NOT INDIC ATED TO BE A 'NEXT A VA.' APPT. | |||
2487 | "RTN","SDE C07B",221, 0) | 2487 | "RTN","SDE C07B",221, 0) | |||
2488 | I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=2 Q "P^0" | 2488 | I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=2 Q "P^0" | |||
2489 | "RTN","SDE C07B",222, 0) | 2489 | "RTN","SDE C07B",222, 0) | |||
2490 | ;6. If th e user ent ers a desi red date n ot today | 2490 | ;6. If th e user ent ers a desi red date n ot today | |||
2491 | "RTN","SDE C07B",223, 0) | 2491 | "RTN","SDE C07B",223, 0) | |||
2492 | ; AND t he request is by pro vider | 2492 | ; AND t he request is by pro vider | |||
2493 | "RTN","SDE C07B",224, 0) | 2493 | "RTN","SDE C07B",224, 0) | |||
2494 | ; then C: OTHER THAN 'NEXT AVA .' (CLINIC IAN REQ.); 0:NOT IND ICATED TO BE A 'NEXT AVA.' APP T. | 2494 | ; then C: OTHER THAN 'NEXT AVA .' (CLINIC IAN REQ.); 0:NOT IND ICATED TO BE A 'NEXT AVA.' APP T. | |||
2495 | "RTN","SDE C07B",225, 0) | 2495 | "RTN","SDE C07B",225, 0) | |||
2496 | I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=1 Q "C^0" | 2496 | I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=1 Q "C^0" | |||
2497 | "RTN","SDE C07B",226, 0) | 2497 | "RTN","SDE C07B",226, 0) | |||
2498 | Q RET | 2498 | Q RET | |||
2499 | "RTN","SDE C07B",227, 0) | 2499 | "RTN","SDE C07B",227, 0) | |||
2500 | ; | 2500 | ; | |||
2501 | "RTN","SDE C07B",228, 0) | 2501 | "RTN","SDE C07B",228, 0) | |||
2502 | ;Create A ppointment ;alb/sat 665 moved from SDEC 07 | 2502 | ;Create A ppointment ;alb/sat 665 moved from SDEC 07 | |||
2503 | "RTN","SDE C07B",229, 0) | 2503 | "RTN","SDE C07B",229, 0) | |||
2504 | APPVISTA(S DECLEN,SDE CNOTE,DFN, SDECRESD,S DECSTART,S DECWKIN,SD CL,SDECI) ; | 2504 | APPVISTA(S DECLEN,SDE CNOTE,DFN, SDECRESD,S DECSTART,S DECWKIN,SD CL,SDECI) ; | |||
2505 | "RTN","SDE C07B",230, 0) | 2505 | "RTN","SDE C07B",230, 0) | |||
2506 | N SDECC,S DECERR,SDE CRNOD | 2506 | N SDECC,S DECERR,SDE CRNOD | |||
2507 | "RTN","SDE C07B",231, 0) | 2507 | "RTN","SDE C07B",231, 0) | |||
2508 | S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) ) | 2508 | S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) ) | |||
2509 | "RTN","SDE C07B",232, 0) | 2509 | "RTN","SDE C07B",232, 0) | |||
2510 | I SDECRNO D="" D ERR ^SDEC07(SD ECI+1,"SDE C07 Error: Unable to add appoi ntment -- invalid Re source ent ry.") Q 1 | 2510 | I SDECRNO D="" D ERR ^SDEC07(SD ECI+1,"SDE C07 Error: Unable to add appoi ntment -- invalid Re source ent ry.") Q 1 | |||
2511 | "RTN","SDE C07B",233, 0) | 2511 | "RTN","SDE C07B",233, 0) | |||
2512 | S SDECERR ="" | 2512 | S SDECERR ="" | |||
2513 | "RTN","SDE C07B",234, 0) | 2513 | "RTN","SDE C07B",234, 0) | |||
2514 | I +SDCL,$ D(^SC(SDCL ,0)) D I +SDECERR D ERR^SDEC0 7(SDECI+1, SDECERR) Q SDECERR | 2514 | I +SDCL,$ D(^SC(SDCL ,0)) D I +SDECERR D ERR^SDEC0 7(SDECI+1, SDECERR) Q SDECERR | |||
2515 | "RTN","SDE C07B",235, 0) | 2515 | "RTN","SDE C07B",235, 0) | |||
2516 | . S SDECC ("PAT")=DF N | 2516 | . S SDECC ("PAT")=DF N | |||
2517 | "RTN","SDE C07B",236, 0) | 2517 | "RTN","SDE C07B",236, 0) | |||
2518 | . S SDECC ("CLN")=SD CL | 2518 | . S SDECC ("CLN")=SD CL | |||
2519 | "RTN","SDE C07B",237, 0) | 2519 | "RTN","SDE C07B",237, 0) | |||
2520 | . S SDECC ("TYP")=3 ;3 for sch eduled app ts, 4 for walkins | 2520 | . S SDECC ("TYP")=3 ;3 for sch eduled app ts, 4 for walkins | |||
2521 | "RTN","SDE C07B",238, 0) | 2521 | "RTN","SDE C07B",238, 0) | |||
2522 | . S:SDECW KIN SDECC( "TYP")=4 | 2522 | . S:SDECW KIN SDECC( "TYP")=4 | |||
2523 | "RTN","SDE C07B",239, 0) | 2523 | "RTN","SDE C07B",239, 0) | |||
2524 | . S SDECC ("ADT")=SD ECSTART | 2524 | . S SDECC ("ADT")=SD ECSTART | |||
2525 | "RTN","SDE C07B",240, 0) | 2525 | "RTN","SDE C07B",240, 0) | |||
2526 | . S SDECC ("LEN")=SD ECLEN | 2526 | . S SDECC ("LEN")=SD ECLEN | |||
2527 | "RTN","SDE C07B",241, 0) | 2527 | "RTN","SDE C07B",241, 0) | |||
2528 | . S SDECC ("OI")=$E( $G(SDECNOT E),1,150) ;File 44 h as 150 cha racter lim it on OTHE R field | 2528 | . S SDECC ("OI")=$E( $G(SDECNOT E),1,150) ;File 44 h as 150 cha racter lim it on OTHE R field | |||
2529 | "RTN","SDE C07B",242, 0) | 2529 | "RTN","SDE C07B",242, 0) | |||
2530 | . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed | 2530 | . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed | |||
2531 | "RTN","SDE C07B",243, 0) | 2531 | "RTN","SDE C07B",243, 0) | |||
2532 | . S SDECC ("OI")=$$S TRIP^SDEC0 7(SDECC("O I")) ;Stri p control characters from note | 2532 | . S SDECC ("OI")=$$S TRIP^SDEC0 7(SDECC("O I")) ;Stri p control characters from note | |||
2533 | "RTN","SDE C07B",244, 0) | 2533 | "RTN","SDE C07B",244, 0) | |||
2534 | . S SDECC ("RES")=SD ECRESD | 2534 | . S SDECC ("RES")=SD ECRESD | |||
2535 | "RTN","SDE C07B",245, 0) | 2535 | "RTN","SDE C07B",245, 0) | |||
2536 | . S SDECC ("USR")=DU Z | 2536 | . S SDECC ("USR")=DU Z | |||
2537 | "RTN","SDE C07B",246, 0) | 2537 | "RTN","SDE C07B",246, 0) | |||
2538 | . S SDECE RR=$$MAKE^ SDEC07B(.S DECC) | 2538 | . S SDECE RR=$$MAKE^ SDEC07B(.S DECC) | |||
2539 | "RTN","SDE C07B",247, 0) | 2539 | "RTN","SDE C07B",247, 0) | |||
2540 | . Q:SDECE RR | 2540 | . Q:SDECE RR | |||
2541 | "RTN","SDE C07B",248, 0) | 2541 | "RTN","SDE C07B",248, 0) | |||
2542 | . D AVUPD T^SDEC07(S DCL,SDECST ART,SDECLE N) | 2542 | . D AVUPD T^SDEC07(S DCL,SDECST ART,SDECLE N) | |||
2543 | "RTN","SDE C07B",249, 0) | 2543 | "RTN","SDE C07B",249, 0) | |||
2544 | . ;L | 2544 | . ;L | |||
2545 | "RTN","SDE C07B",250, 0) | 2545 | "RTN","SDE C07B",250, 0) | |||
2546 | . Q | 2546 | . Q | |||
2547 | "RTN","SDE C07B",251, 0) | 2547 | "RTN","SDE C07B",251, 0) | |||
2548 | Q +SDECER R | 2548 | Q +SDECER R | |||
2549 | "RTN","SDE C07B",252, 0) | 2549 | "RTN","SDE C07B",252, 0) | |||
2550 | ; | 2550 | ; | |||
2551 | "RTN","SDE C07B",253, 0) | 2551 | "RTN","SDE C07B",253, 0) | |||
2552 | PATCHSTS(N UMBER) ; 7 17/722 WTC 3/26/19 | 2552 | PATCHSTS(N UMBER) ; 7 17/722 WTC 3/26/19 | |||
2553 | "RTN","SDE C07B",254, 0) | 2553 | "RTN","SDE C07B",254, 0) | |||
2554 | ; | 2554 | ; | |||
2555 | "RTN","SDE C07B",255, 0) | 2555 | "RTN","SDE C07B",255, 0) | |||
2556 | ; Determ ine if pat ch has bee n installe d. Return status fr om Install file (#9. 7). | 2556 | ; Determ ine if pat ch has bee n installe d. Return status fr om Install file (#9. 7). | |||
2557 | "RTN","SDE C07B",256, 0) | 2557 | "RTN","SDE C07B",256, 0) | |||
2558 | ; | 2558 | ; | |||
2559 | "RTN","SDE C07B",257, 0) | 2559 | "RTN","SDE C07B",257, 0) | |||
2560 | N X,DA ; | 2560 | N X,DA ; | |||
2561 | "RTN","SDE C07B",258, 0) | 2561 | "RTN","SDE C07B",258, 0) | |||
2562 | S DA=$O(^ XPD(9.7,"B ","SD*5.3* "_NUMBER,9 9999),-1) I 'DA Q "" ; | 2562 | S DA=$O(^ XPD(9.7,"B ","SD*5.3* "_NUMBER,9 9999),-1) I 'DA Q "" ; | |||
2563 | "RTN","SDE C07B",259, 0) | 2563 | "RTN","SDE C07B",259, 0) | |||
2564 | S X=$P($G (^XPD(9.7, DA,0)),U,9 ) Q X ; | 2564 | S X=$P($G (^XPD(9.7, DA,0)),U,9 ) Q X ; | |||
2565 | "RTN","SDE C07B",260, 0) | 2565 | "RTN","SDE C07B",260, 0) | |||
2566 | ; | 2566 | ; | |||
2567 | "RTN","SDE C08") | 2567 | "RTN","SDE C08") | |||
2568 | 0^5^B21703 6692^B2096 47726 | 2568 | 0^5^B21703 6692^B2096 47726 | |||
2569 | "RTN","SDE C08",1,0) | 2569 | "RTN","SDE C08",1,0) | |||
2570 | SDEC08 ;AL B/SAT/JSM - VISTA SC HEDULING R PCS ;JUN 2 1, 2017 | 2570 | SDEC08 ;AL B/SAT/JSM - VISTA SC HEDULING R PCS ;JUN 2 1, 2017 | |||
2571 | "RTN","SDE C08",2,0) | 2571 | "RTN","SDE C08",2,0) | |||
2572 | ;;5.3;Sch eduling;** 627,651,65 8,665,722, 717**;Aug 13, 1993;B uild 7 | 2572 | ;;5.3;Sch eduling;** 627,651,65 8,665,722, 717**;Aug 13, 1993;B uild 7 | |||
2573 | "RTN","SDE C08",3,0) | 2573 | "RTN","SDE C08",3,0) | |||
2574 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | 2574 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | |||
2575 | "RTN","SDE C08",4,0) | 2575 | "RTN","SDE C08",4,0) | |||
2576 | ; | 2576 | ; | |||
2577 | "RTN","SDE C08",5,0) | 2577 | "RTN","SDE C08",5,0) | |||
2578 | Q | 2578 | Q | |||
2579 | "RTN","SDE C08",6,0) | 2579 | "RTN","SDE C08",6,0) | |||
2580 | ; | 2580 | ; | |||
2581 | "RTN","SDE C08",7,0) | 2581 | "RTN","SDE C08",7,0) | |||
2582 | APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent | 2582 | APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent | |||
2583 | "RTN","SDE C08",8,0) | 2583 | "RTN","SDE C08",8,0) | |||
2584 | ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER) exte rnal param eter tag i s in SDEC | 2584 | ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER) exte rnal param eter tag i s in SDEC | |||
2585 | "RTN","SDE C08",9,0) | 2585 | "RTN","SDE C08",9,0) | |||
2586 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | 2586 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | |||
2587 | "RTN","SDE C08",10,0) | 2587 | "RTN","SDE C08",10,0) | |||
2588 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | 2588 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | |||
2589 | "RTN","SDE C08",11,0) | 2589 | "RTN","SDE C08",11,0) | |||
2590 | ; C= CANCELLED BY CLINIC | 2590 | ; C= CANCELLED BY CLINIC | |||
2591 | "RTN","SDE C08",12,0) | 2591 | "RTN","SDE C08",12,0) | |||
2592 | ; PC= CANCELLED BY PATIENT | 2592 | ; PC= CANCELLED BY PATIENT | |||
2593 | "RTN","SDE C08",13,0) | 2593 | "RTN","SDE C08",13,0) | |||
2594 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | 2594 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | |||
2595 | "RTN","SDE C08",14,0) | 2595 | "RTN","SDE C08",14,0) | |||
2596 | ;SDECNOT - (optio nal) text representi ng user no te | 2596 | ;SDECNOT - (optio nal) text representi ng user no te | |||
2597 | "RTN","SDE C08",15,0) | 2597 | "RTN","SDE C08",15,0) | |||
2598 | ;SDECDATE - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW | 2598 | ;SDECDATE - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW | |||
2599 | "RTN","SDE C08",16,0) | 2599 | "RTN","SDE C08",16,0) | |||
2600 | ;SDUSER - (opti onal) User that canc elled appt ; defaults to curren t user | 2600 | ;SDUSER - (opti onal) User that canc elled appt ; defaults to curren t user | |||
2601 | "RTN","SDE C08",17,0) | 2601 | "RTN","SDE C08",17,0) | |||
2602 | ;Returns error code in record set field ERRORID | 2602 | ;Returns error code in record set field ERRORID | |||
2603 | "RTN","SDE C08",18,0) | 2603 | "RTN","SDE C08",18,0) | |||
2604 | ; | 2604 | ; | |||
2605 | "RTN","SDE C08",19,0) | 2605 | "RTN","SDE C08",19,0) | |||
2606 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR | 2606 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR | |||
2607 | "RTN","SDE C08",20,0) | 2607 | "RTN","SDE C08",20,0) | |||
2608 | N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1 | 2608 | N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1 | |||
2609 | "RTN","SDE C08",21,0) | 2609 | "RTN","SDE C08",21,0) | |||
2610 | N SDECNOE V,SDECSC1, SDRET | 2610 | N SDECNOE V,SDECSC1, SDRET | |||
2611 | "RTN","SDE C08",22,0) | 2611 | "RTN","SDE C08",22,0) | |||
2612 | N %DT,X,Y | 2612 | N %DT,X,Y | |||
2613 | "RTN","SDE C08",23,0) | 2613 | "RTN","SDE C08",23,0) | |||
2614 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l | 2614 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l | |||
2615 | "RTN","SDE C08",24,0) | 2615 | "RTN","SDE C08",24,0) | |||
2616 | S SDECSCI EN1=0 | 2616 | S SDECSCI EN1=0 | |||
2617 | "RTN","SDE C08",25,0) | 2617 | "RTN","SDE C08",25,0) | |||
2618 | ; | 2618 | ; | |||
2619 | "RTN","SDE C08",26,0) | 2619 | "RTN","SDE C08",26,0) | |||
2620 | S SDECI=0 | 2620 | S SDECI=0 | |||
2621 | "RTN","SDE C08",27,0) | 2621 | "RTN","SDE C08",27,0) | |||
2622 | S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")" | 2622 | S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")" | |||
2623 | "RTN","SDE C08",28,0) | 2623 | "RTN","SDE C08",28,0) | |||
2624 | K @SDECY | 2624 | K @SDECY | |||
2625 | "RTN","SDE C08",29,0) | 2625 | "RTN","SDE C08",29,0) | |||
2626 | S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30) | 2626 | S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30) | |||
2627 | "RTN","SDE C08",30,0) | 2627 | "RTN","SDE C08",30,0) | |||
2628 | S SDECI=S DECI+1 | 2628 | S SDECI=S DECI+1 | |||
2629 | "RTN","SDE C08",31,0) | 2629 | "RTN","SDE C08",31,0) | |||
2630 | ;validate SDEC APPO INTMENT po inter (req uired) | 2630 | ;validate SDEC APPO INTMENT po inter (req uired) | |||
2631 | "RTN","SDE C08",32,0) | 2631 | "RTN","SDE C08",32,0) | |||
2632 | I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D ERR(SDECI ,"SDEC08: Invalid Ap pointment ID") Q | 2632 | I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D ERR(SDECI ,"SDEC08: Invalid Ap pointment ID") Q | |||
2633 | "RTN","SDE C08",33,0) | 2633 | "RTN","SDE C08",33,0) | |||
2634 | ;validate appointme nt status type (requ ired) | 2634 | ;validate appointme nt status type (requ ired) | |||
2635 | "RTN","SDE C08",34,0) | 2635 | "RTN","SDE C08",34,0) | |||
2636 | S SDECTYP =$G(SDECTY P) | 2636 | S SDECTYP =$G(SDECTY P) | |||
2637 | "RTN","SDE C08",35,0) | 2637 | "RTN","SDE C08",35,0) | |||
2638 | S SDECTYP =$S(SDECTY P="C":"C", SDECTYP="C ANCELLED B Y CLINIC": "C",SDECTY P="PC":"PC ",SDECTYP= "CANCELLED BY PATIEN T":"PC",1: "") | 2638 | S SDECTYP =$S(SDECTY P="C":"C", SDECTYP="C ANCELLED B Y CLINIC": "C",SDECTY P="PC":"PC ",SDECTYP= "CANCELLED BY PATIEN T":"PC",1: "") | |||
2639 | "RTN","SDE C08",36,0) | 2639 | "RTN","SDE C08",36,0) | |||
2640 | I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status type") Q | 2640 | I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status type") Q | |||
2641 | "RTN","SDE C08",37,0) | 2641 | "RTN","SDE C08",37,0) | |||
2642 | ;validate CANCELLAT ION REASON pointer ( optional) | 2642 | ;validate CANCELLAT ION REASON pointer ( optional) | |||
2643 | "RTN","SDE C08",38,0) | 2643 | "RTN","SDE C08",38,0) | |||
2644 | S SDECCR= $G(SDECCR) | 2644 | S SDECCR= $G(SDECCR) | |||
2645 | "RTN","SDE C08",39,0) | 2645 | "RTN","SDE C08",39,0) | |||
2646 | I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0)) | 2646 | I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0)) | |||
2647 | "RTN","SDE C08",40,0) | 2647 | "RTN","SDE C08",40,0) | |||
2648 | ;validate SDECNOT | 2648 | ;validate SDECNOT | |||
2649 | "RTN","SDE C08",41,0) | 2649 | "RTN","SDE C08",41,0) | |||
2650 | S SDECNOT =$TR(SDECN OT,"^"," " ) ;alb/sa t 658 - st rip out ^ | 2650 | S SDECNOT =$TR(SDECN OT,"^"," " ) ;alb/sa t 658 - st rip out ^ | |||
2651 | "RTN","SDE C08",42,0) | 2651 | "RTN","SDE C08",42,0) | |||
2652 | ;validate cancel da te/time | 2652 | ;validate cancel da te/time | |||
2653 | "RTN","SDE C08",43,0) | 2653 | "RTN","SDE C08",43,0) | |||
2654 | S SDECDAT E=$G(SDECD ATE) | 2654 | S SDECDAT E=$G(SDECD ATE) | |||
2655 | "RTN","SDE C08",44,0) | 2655 | "RTN","SDE C08",44,0) | |||
2656 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | 2656 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | |||
2657 | "RTN","SDE C08",45,0) | 2657 | "RTN","SDE C08",45,0) | |||
2658 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | 2658 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | |||
2659 | "RTN","SDE C08",46,0) | 2659 | "RTN","SDE C08",46,0) | |||
2660 | ;validate user | 2660 | ;validate user | |||
2661 | "RTN","SDE C08",47,0) | 2661 | "RTN","SDE C08",47,0) | |||
2662 | S SDUSER= $G(SDUSER) | 2662 | S SDUSER= $G(SDUSER) | |||
2663 | "RTN","SDE C08",48,0) | 2663 | "RTN","SDE C08",48,0) | |||
2664 | I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0)) S SDUSER=" " | 2664 | I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0)) S SDUSER=" " | |||
2665 | "RTN","SDE C08",49,0) | 2665 | "RTN","SDE C08",49,0) | |||
2666 | I SDUSER= "" S SDUSE R=DUZ | 2666 | I SDUSER= "" S SDUSE R=DUZ | |||
2667 | "RTN","SDE C08",50,0) | 2667 | "RTN","SDE C08",50,0) | |||
2668 | ; | 2668 | ; | |||
2669 | "RTN","SDE C08",51,0) | 2669 | "RTN","SDE C08",51,0) | |||
2670 | TSTART | 2670 | TSTART | |||
2671 | "RTN","SDE C08",52,0) | 2671 | "RTN","SDE C08",52,0) | |||
2672 | ; | 2672 | ; | |||
2673 | "RTN","SDE C08",53,0) | 2673 | "RTN","SDE C08",53,0) | |||
2674 | ;Delete A PPOINTMENT entries | 2674 | ;Delete A PPOINTMENT entries | |||
2675 | "RTN","SDE C08",54,0) | 2675 | "RTN","SDE C08",54,0) | |||
2676 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 2676 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
2677 | "RTN","SDE C08",55,0) | 2677 | "RTN","SDE C08",55,0) | |||
2678 | S SDECPAT ID=$P(SDEC NOD,U,5) | 2678 | S SDECPAT ID=$P(SDEC NOD,U,5) | |||
2679 | "RTN","SDE C08",56,0) | 2679 | "RTN","SDE C08",56,0) | |||
2680 | S SDECSTA RT=$P(SDEC NOD,U) | 2680 | S SDECSTA RT=$P(SDEC NOD,U) | |||
2681 | "RTN","SDE C08",57,0) | 2681 | "RTN","SDE C08",57,0) | |||
2682 | ; | 2682 | ; | |||
2683 | "RTN","SDE C08",58,0) | 2683 | "RTN","SDE C08",58,0) | |||
2684 | ;Lock SDE C node | 2684 | ;Lock SDE C node | |||
2685 | "RTN","SDE C08",59,0) | 2685 | "RTN","SDE C08",59,0) | |||
2686 | L +^SDEC( 409.84,SDE CPATID):5 I '$T D ER R(SDECI+1, "Another u ser is wor king with this patie nt's recor d. Please try again later") T ROLLBACK Q | 2686 | L +^SDEC( 409.84,SDE CPATID):5 I '$T D ER R(SDECI+1, "Another u ser is wor king with this patie nt's recor d. Please try again later") T ROLLBACK Q | |||
2687 | "RTN","SDE C08",60,0) | 2687 | "RTN","SDE C08",60,0) | |||
2688 | ;cancel c heck-in if walk-in | 2688 | ;cancel c heck-in if walk-in | |||
2689 | "RTN","SDE C08",61,0) | 2689 | "RTN","SDE C08",61,0) | |||
2690 | I $P(SDEC NOD,U,13)= "y" D | 2690 | I $P(SDEC NOD,U,13)= "y" D | |||
2691 | "RTN","SDE C08",62,0) | 2691 | "RTN","SDE C08",62,0) | |||
2692 | .S SDRET= "" | 2692 | .S SDRET= "" | |||
2693 | "RTN","SDE C08",63,0) | 2693 | "RTN","SDE C08",63,0) | |||
2694 | .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@") | 2694 | .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@") | |||
2695 | "RTN","SDE C08",64,0) | 2695 | "RTN","SDE C08",64,0) | |||
2696 | ;cancel S DEC APPOIN TMENT reco rd | 2696 | ;cancel S DEC APPOIN TMENT reco rd | |||
2697 | "RTN","SDE C08",65,0) | 2697 | "RTN","SDE C08",65,0) | |||
2698 | D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1) | 2698 | D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1) | |||
2699 | "RTN","SDE C08",66,0) | 2699 | "RTN","SDE C08",66,0) | |||
2700 | ; | 2700 | ; | |||
2701 | "RTN","SDE C08",67,0) | 2701 | "RTN","SDE C08",67,0) | |||
2702 | S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID | 2702 | S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID | |||
2703 | "RTN","SDE C08",68,0) | 2703 | "RTN","SDE C08",68,0) | |||
2704 | I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D I +$ G(SDECZ) S SDECERR=+ SDECZ D ER R(SDECI,$P (SDECZ,U,2 )) Q | 2704 | I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D I +$ G(SDECZ) S SDECERR=+ SDECZ D ER R(SDECI,$P (SDECZ,U,2 )) Q | |||
2705 | "RTN","SDE C08",69,0) | 2705 | "RTN","SDE C08",69,0) | |||
2706 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | 2706 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | |||
2707 | "RTN","SDE C08",70,0) | 2707 | "RTN","SDE C08",70,0) | |||
2708 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | 2708 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | |||
2709 | "RTN","SDE C08",71,0) | 2709 | "RTN","SDE C08",71,0) | |||
2710 | . Q:'+SDE CLOC | 2710 | . Q:'+SDE CLOC | |||
2711 | "RTN","SDE C08",72,0) | 2711 | "RTN","SDE C08",72,0) | |||
2712 | . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I SDECSCIEN ="" D I ' SDECZ Q ; Q:SDECZ | 2712 | . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I SDECSCIEN ="" D I ' SDECZ Q ; Q:SDECZ | |||
2713 | "RTN","SDE C08",73,0) | 2713 | "RTN","SDE C08",73,0) | |||
2714 | . . S SDE CERR="SDEC 08: Unable to find a ssociated appointmen t for this patient. " | 2714 | . . S SDE CERR="SDEC 08: Unable to find a ssociated appointmen t for this patient. " | |||
2715 | "RTN","SDE C08",74,0) | 2715 | "RTN","SDE C08",74,0) | |||
2716 | . . S SDE CZ=1 | 2716 | . . S SDE CZ=1 | |||
2717 | "RTN","SDE C08",75,0) | 2717 | "RTN","SDE C08",75,0) | |||
2718 | . . I '$D (^SDEC(409 .831,SDECS C1,20)) S SDECZ=0 Q | 2718 | . . I '$D (^SDEC(409 .831,SDECS C1,20)) S SDECZ=0 Q | |||
2719 | "RTN","SDE C08",76,0) | 2719 | "RTN","SDE C08",76,0) | |||
2720 | . . N SDE C1 | 2720 | . . N SDE C1 | |||
2721 | "RTN","SDE C08",77,0) | 2721 | "RTN","SDE C08",77,0) | |||
2722 | . . S SDE C1=0 | 2722 | . . S SDE C1=0 | |||
2723 | "RTN","SDE C08",78,0) | 2723 | "RTN","SDE C08",78,0) | |||
2724 | . . F S SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1 Q:SDECZ =0 D | 2724 | . . F S SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1 Q:SDECZ =0 D | |||
2725 | "RTN","SDE C08",79,0) | 2725 | "RTN","SDE C08",79,0) | |||
2726 | . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0)) | 2726 | . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0)) | |||
2727 | "RTN","SDE C08",80,0) | 2727 | "RTN","SDE C08",80,0) | |||
2728 | . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U) | 2728 | . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U) | |||
2729 | "RTN","SDE C08",81,0) | 2729 | "RTN","SDE C08",81,0) | |||
2730 | . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q | 2730 | . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q | |||
2731 | "RTN","SDE C08",82,0) | 2731 | "RTN","SDE C08",82,0) | |||
2732 | . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned " | 2732 | . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned " | |||
2733 | "RTN","SDE C08",83,0) | 2733 | "RTN","SDE C08",83,0) | |||
2734 | . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for this patie nt." Q | 2734 | . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for this patie nt." Q | |||
2735 | "RTN","SDE C08",84,0) | 2735 | "RTN","SDE C08",84,0) | |||
2736 | . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find associate d appointm ent for th is patient ." Q | 2736 | . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find associate d appointm ent for th is patient ." Q | |||
2737 | "RTN","SDE C08",85,0) | 2737 | "RTN","SDE C08",85,0) | |||
2738 | . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0)) | 2738 | . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0)) | |||
2739 | "RTN","SDE C08",86,0) | 2739 | "RTN","SDE C08",86,0) | |||
2740 | . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q | 2740 | . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q | |||
2741 | "RTN","SDE C08",87,0) | 2741 | "RTN","SDE C08",87,0) | |||
2742 | . S SDECL EN=$P(SDEC NOD,U,2) | 2742 | . S SDECL EN=$P(SDEC NOD,U,2) | |||
2743 | "RTN","SDE C08",88,0) | 2743 | "RTN","SDE C08",88,0) | |||
2744 | . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN) | 2744 | . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN) | |||
2745 | "RTN","SDE C08",89,0) | 2745 | "RTN","SDE C08",89,0) | |||
2746 | . Q:+$G(S DECZ) | 2746 | . Q:+$G(S DECZ) | |||
2747 | "RTN","SDE C08",90,0) | 2747 | "RTN","SDE C08",90,0) | |||
2748 | . D AVUPD T(SDECLOC, SDECSTART, SDECLEN) | 2748 | . D AVUPD T(SDECLOC, SDECSTART, SDECLEN) | |||
2749 | "RTN","SDE C08",91,0) | 2749 | "RTN","SDE C08",91,0) | |||
2750 | . D AR433 D^SDECAR2( SDECAPTID) | 2750 | . D AR433 D^SDECAR2( SDECAPTID) | |||
2751 | "RTN","SDE C08",92,0) | 2751 | "RTN","SDE C08",92,0) | |||
2752 | . ;L | 2752 | . ;L | |||
2753 | "RTN","SDE C08",93,0) | 2753 | "RTN","SDE C08",93,0) | |||
2754 | ; | 2754 | ; | |||
2755 | "RTN","SDE C08",94,0) | 2755 | "RTN","SDE C08",94,0) | |||
2756 | TCOMMIT | 2756 | TCOMMIT | |||
2757 | "RTN","SDE C08",95,0) | 2757 | "RTN","SDE C08",95,0) | |||
2758 | L -^SDEC( 409.84,SDE CPATID) | 2758 | L -^SDEC( 409.84,SDE CPATID) | |||
2759 | "RTN","SDE C08",96,0) | 2759 | "RTN","SDE C08",96,0) | |||
2760 | S SDECI=S DECI+1 | 2760 | S SDECI=S DECI+1 | |||
2761 | "RTN","SDE C08",97,0) | 2761 | "RTN","SDE C08",97,0) | |||
2762 | S @SDECY@ (SDECI)="" _$C(30) | 2762 | S @SDECY@ (SDECI)="" _$C(30) | |||
2763 | "RTN","SDE C08",98,0) | 2763 | "RTN","SDE C08",98,0) | |||
2764 | S SDECI=S DECI+1 | 2764 | S SDECI=S DECI+1 | |||
2765 | "RTN","SDE C08",99,0) | 2765 | "RTN","SDE C08",99,0) | |||
2766 | S @SDECY@ (SDECI)=$C (31) | 2766 | S @SDECY@ (SDECI)=$C (31) | |||
2767 | "RTN","SDE C08",100,0 ) | 2767 | "RTN","SDE C08",100,0 ) | |||
2768 | Q | 2768 | Q | |||
2769 | "RTN","SDE C08",101,0 ) | 2769 | "RTN","SDE C08",101,0 ) | |||
2770 | ; | 2770 | ; | |||
2771 | "RTN","SDE C08",102,0 ) | 2771 | "RTN","SDE C08",102,0 ) | |||
2772 | AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y | 2772 | AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y | |||
2773 | "RTN","SDE C08",103,0 ) | 2773 | "RTN","SDE C08",103,0 ) | |||
2774 | ;See SDCN P0 | 2774 | ;See SDCN P0 | |||
2775 | "RTN","SDE C08",104,0 ) | 2775 | "RTN","SDE C08",104,0 ) | |||
2776 | N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y | 2776 | N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y | |||
2777 | "RTN","SDE C08",105,0 ) | 2777 | "RTN","SDE C08",105,0 ) | |||
2778 | S (SD,S)= SDECSTART | 2778 | S (SD,S)= SDECSTART | |||
2779 | "RTN","SDE C08",106,0 ) | 2779 | "RTN","SDE C08",106,0 ) | |||
2780 | S I=SDECS CD | 2780 | S I=SDECS CD | |||
2781 | "RTN","SDE C08",107,0 ) | 2781 | "RTN","SDE C08",107,0 ) | |||
2782 | Q:'$D(^SC (I,"ST",SD \1,1)) | 2782 | Q:'$D(^SC (I,"ST",SD \1,1)) | |||
2783 | "RTN","SDE C08",108,0 ) | 2783 | "RTN","SDE C08",108,0 ) | |||
2784 | S SL=^SC( I,"SL"),X= $P(SL,U,3) ,STARTDAY= $S($L(X):X ,1:8),SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X:X,1: 4),SI=$S(X ="":4,X<3: 4,X:X,1:4) ,STR="#@!$ * XXWVUTSR QPONMLKJIH GFEDCBA012 3456789jkl mnopqrstuv wxyz",SDDI F=$S(HSI<3 :8/HSI,1:2 ) | 2784 | S SL=^SC( I,"SL"),X= $P(SL,U,3) ,STARTDAY= $S($L(X):X ,1:8),SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X:X,1: 4),SI=$S(X ="":4,X<3: 4,X:X,1:4) ,STR="#@!$ * XXWVUTSR QPONMLKJIH GFEDCBA012 3456789jkl mnopqrstuv wxyz",SDDI F=$S(HSI<3 :8/HSI,1:2 ) | |||
2785 | "RTN","SDE C08",109,0 ) | 2785 | "RTN","SDE C08",109,0 ) | |||
2786 | S SL=SDEC LEN | 2786 | S SL=SDEC LEN | |||
2787 | "RTN","SDE C08",110,0 ) | 2787 | "RTN","SDE C08",110,0 ) | |||
2788 | S S=^SC(I ,"ST",SD\1 ,1),Y=SD#1 -SB*100,ST =Y#1*SI\.6 +(Y\1*SI), SS=SL*HSI/ 60 | 2788 | S S=^SC(I ,"ST",SD\1 ,1),Y=SD#1 -SB*100,ST =Y#1*SI\.6 +(Y\1*SI), SS=SL*HSI/ 60 | |||
2789 | "RTN","SDE C08",111,0 ) | 2789 | "RTN","SDE C08",111,0 ) | |||
2790 | I Y'<1 F I=ST+ST:SD DIF S Y=$E (STR,$F(ST R,$E(S,I+1 ))) Q:Y="" S S=$E(S ,1,I)_Y_$E (S,I+2,999 ),SS=SS-1 Q:SS'>0 | 2790 | I Y'<1 F I=ST+ST:SD DIF S Y=$E (STR,$F(ST R,$E(S,I+1 ))) Q:Y="" S S=$E(S ,1,I)_Y_$E (S,I+2,999 ),SS=SS-1 Q:SS'>0 | |||
2791 | "RTN","SDE C08",112,0 ) | 2791 | "RTN","SDE C08",112,0 ) | |||
2792 | S ^SC(SDE CSCD,"ST", SD\1,1)=S | 2792 | S ^SC(SDE CSCD,"ST", SD\1,1)=S | |||
2793 | "RTN","SDE C08",113,0 ) | 2793 | "RTN","SDE C08",113,0 ) | |||
2794 | Q | 2794 | Q | |||
2795 | "RTN","SDE C08",114,0 ) | 2795 | "RTN","SDE C08",114,0 ) | |||
2796 | ; | 2796 | ; | |||
2797 | "RTN","SDE C08",115,0 ) | 2797 | "RTN","SDE C08",115,0 ) | |||
2798 | APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ; | 2798 | APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ; | |||
2799 | "RTN","SDE C08",116,0 ) | 2799 | "RTN","SDE C08",116,0 ) | |||
2800 | ;Cancel a ppointment for patie nt SDECDFN in clinic SDECSC1 | 2800 | ;Cancel a ppointment for patie nt SDECDFN in clinic SDECSC1 | |||
2801 | "RTN","SDE C08",117,0 ) | 2801 | "RTN","SDE C08",117,0 ) | |||
2802 | ;at time SDECSD | 2802 | ;at time SDECSD | |||
2803 | "RTN","SDE C08",118,0 ) | 2803 | "RTN","SDE C08",118,0 ) | |||
2804 | N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H | 2804 | N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H | |||
2805 | "RTN","SDE C08",119,0 ) | 2805 | "RTN","SDE C08",119,0 ) | |||
2806 | ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt length) | 2806 | ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt length) | |||
2807 | "RTN","SDE C08",120,0 ) | 2807 | "RTN","SDE C08",120,0 ) | |||
2808 | S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0) | 2808 | S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0) | |||
2809 | "RTN","SDE C08",121,0 ) | 2809 | "RTN","SDE C08",121,0 ) | |||
2810 | S DPTST=$ P(SDECPNOD ,U,2) | 2810 | S DPTST=$ P(SDECPNOD ,U,2) | |||
2811 | "RTN","SDE C08",122,0 ) | 2811 | "RTN","SDE C08",122,0 ) | |||
2812 | S DIE=409 .84 | 2812 | S DIE=409 .84 | |||
2813 | "RTN","SDE C08",123,0 ) | 2813 | "RTN","SDE C08",123,0 ) | |||
2814 | S DA=SDEC APTID | 2814 | S DA=SDEC APTID | |||
2815 | "RTN","SDE C08",124,0 ) | 2815 | "RTN","SDE C08",124,0 ) | |||
2816 | S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N | 2816 | S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N | |||
2817 | "RTN","SDE C08",125,0 ) | 2817 | "RTN","SDE C08",125,0 ) | |||
2818 | D ^DIE | 2818 | D ^DIE | |||
2819 | "RTN","SDE C08",126,0 ) | 2819 | "RTN","SDE C08",126,0 ) | |||
2820 | S SDECC(" PAT")=SDEC DFN | 2820 | S SDECC(" PAT")=SDEC DFN | |||
2821 | "RTN","SDE C08",127,0 ) | 2821 | "RTN","SDE C08",127,0 ) | |||
2822 | S SDECC(" CLN")=SDEC LOC | 2822 | S SDECC(" CLN")=SDEC LOC | |||
2823 | "RTN","SDE C08",128,0 ) | 2823 | "RTN","SDE C08",128,0 ) | |||
2824 | S SDECC(" TYP")=SDEC TYP | 2824 | S SDECC(" TYP")=SDEC TYP | |||
2825 | "RTN","SDE C08",129,0 ) | 2825 | "RTN","SDE C08",129,0 ) | |||
2826 | S SDECC(" ADT")=SDEC SD | 2826 | S SDECC(" ADT")=SDEC SD | |||
2827 | "RTN","SDE C08",130,0 ) | 2827 | "RTN","SDE C08",130,0 ) | |||
2828 | S %H=$H D YMD^%DTC | 2828 | S %H=$H D YMD^%DTC | |||
2829 | "RTN","SDE C08",131,0 ) | 2829 | "RTN","SDE C08",131,0 ) | |||
2830 | S SDECC(" CDT")=SDEC DATE ;X+ % | 2830 | S SDECC(" CDT")=SDEC DATE ;X+ % | |||
2831 | "RTN","SDE C08",132,0 ) | 2831 | "RTN","SDE C08",132,0 ) | |||
2832 | S SDECC(" NOT")=SDEC NOT | 2832 | S SDECC(" NOT")=SDEC NOT | |||
2833 | "RTN","SDE C08",133,0 ) | 2833 | "RTN","SDE C08",133,0 ) | |||
2834 | S:+SDECCR SDECC("CR ")=SDECCR | 2834 | S:+SDECCR SDECC("CR ")=SDECCR | |||
2835 | "RTN","SDE C08",134,0 ) | 2835 | "RTN","SDE C08",134,0 ) | |||
2836 | S SDECC(" USR")=SDUS ER | 2836 | S SDECC(" USR")=SDUS ER | |||
2837 | "RTN","SDE C08",135,0 ) | 2837 | "RTN","SDE C08",135,0 ) | |||
2838 | ; | 2838 | ; | |||
2839 | "RTN","SDE C08",136,0 ) | 2839 | "RTN","SDE C08",136,0 ) | |||
2840 | S SDECZ=$ $CANCEL(.S DECC) | 2840 | S SDECZ=$ $CANCEL(.S DECC) | |||
2841 | "RTN","SDE C08",137,0 ) | 2841 | "RTN","SDE C08",137,0 ) | |||
2842 | Q | 2842 | Q | |||
2843 | "RTN","SDE C08",138,0 ) | 2843 | "RTN","SDE C08",138,0 ) | |||
2844 | ; | 2844 | ; | |||
2845 | "RTN","SDE C08",139,0 ) | 2845 | "RTN","SDE C08",139,0 ) | |||
2846 | SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel SDEC APPOI NTMENT ent ry | 2846 | SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel SDEC APPOI NTMENT ent ry | |||
2847 | "RTN","SDE C08",140,0 ) | 2847 | "RTN","SDE C08",140,0 ) | |||
2848 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | 2848 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | |||
2849 | "RTN","SDE C08",141,0 ) | 2849 | "RTN","SDE C08",141,0 ) | |||
2850 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | 2850 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | |||
2851 | "RTN","SDE C08",142,0 ) | 2851 | "RTN","SDE C08",142,0 ) | |||
2852 | ; C= CANCELLED BY CLINIC | 2852 | ; C= CANCELLED BY CLINIC | |||
2853 | "RTN","SDE C08",143,0 ) | 2853 | "RTN","SDE C08",143,0 ) | |||
2854 | ; PC= CANCELLED BY PATIENT | 2854 | ; PC= CANCELLED BY PATIENT | |||
2855 | "RTN","SDE C08",144,0 ) | 2855 | "RTN","SDE C08",144,0 ) | |||
2856 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | 2856 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | |||
2857 | "RTN","SDE C08",145,0 ) | 2857 | "RTN","SDE C08",145,0 ) | |||
2858 | ;SDECNOT - (optio nal) text representi ng user no te | 2858 | ;SDECNOT - (optio nal) text representi ng user no te | |||
2859 | "RTN","SDE C08",146,0 ) | 2859 | "RTN","SDE C08",146,0 ) | |||
2860 | ;SDECDATE - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ; | 2860 | ;SDECDATE - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ; | |||
2861 | "RTN","SDE C08",147,0 ) | 2861 | "RTN","SDE C08",147,0 ) | |||
2862 | ;SDF - (optio nal) flags | 2862 | ;SDF - (optio nal) flags | |||
2863 | "RTN","SDE C08",148,0 ) | 2863 | "RTN","SDE C08",148,0 ) | |||
2864 | ; 1. ca lled from GUI (updat e consult only if ca lled from GUI) | 2864 | ; 1. ca lled from GUI (updat e consult only if ca lled from GUI) | |||
2865 | "RTN","SDE C08",149,0 ) | 2865 | "RTN","SDE C08",149,0 ) | |||
2866 | ; 2. ca lled from cancel in SDAM (CAN^ SDCNP0) (d o not reop en appt) | 2866 | ; 2. ca lled from cancel in SDAM (CAN^ SDCNP0) (d o not reop en appt) | |||
2867 | "RTN","SDE C08",150,0 ) | 2867 | "RTN","SDE C08",150,0 ) | |||
2868 | ;Cancel S DEC APPOIN TMENT entr y | 2868 | ;Cancel S DEC APPOIN TMENT entr y | |||
2869 | "RTN","SDE C08",151,0 ) | 2869 | "RTN","SDE C08",151,0 ) | |||
2870 | N DFN,PRO VIEN,Y | 2870 | N DFN,PRO VIEN,Y | |||
2871 | "RTN","SDE C08",152,0 ) | 2871 | "RTN","SDE C08",152,0 ) | |||
2872 | N SAVESTR T,SDAPTYP, SDCL,SDI,S DIEN,SDECI ENS,SDECFD A,SDECMSG, SDECWP,SDR ES,SDT ; alb/sat 65 1 add SAVE STRT and S DRES | 2872 | N SAVESTR T,SDAPTYP, SDCL,SDI,S DIEN,SDECI ENS,SDECFD A,SDECMSG, SDECWP,SDR ES,SDT ; alb/sat 65 1 add SAVE STRT and S DRES | |||
2873 | "RTN","SDE C08",153,0 ) | 2873 | "RTN","SDE C08",153,0 ) | |||
2874 | S SDF=$G( SDF,0) | 2874 | S SDF=$G( SDF,0) | |||
2875 | "RTN","SDE C08",154,0 ) | 2875 | "RTN","SDE C08",154,0 ) | |||
2876 | S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05) ;alb /sat 658 | 2876 | S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05) ;alb /sat 658 | |||
2877 | "RTN","SDE C08",155,0 ) | 2877 | "RTN","SDE C08",155,0 ) | |||
2878 | S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I") | 2878 | S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I") | |||
2879 | "RTN","SDE C08",156,0 ) | 2879 | "RTN","SDE C08",156,0 ) | |||
2880 | S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01) ;alb/sat 651 | 2880 | S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01) ;alb/sat 651 | |||
2881 | "RTN","SDE C08",157,0 ) | 2881 | "RTN","SDE C08",157,0 ) | |||
2882 | S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I") ;alb/sat 651 | 2882 | S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I") ;alb/sat 651 | |||
2883 | "RTN","SDE C08",158,0 ) | 2883 | "RTN","SDE C08",158,0 ) | |||
2884 | S SDECIEN S=SDECAPTI D_"," | 2884 | S SDECIEN S=SDECAPTI D_"," | |||
2885 | "RTN","SDE C08",159,0 ) | 2885 | "RTN","SDE C08",159,0 ) | |||
2886 | S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT) | 2886 | S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT) | |||
2887 | "RTN","SDE C08",160,0 ) | 2887 | "RTN","SDE C08",160,0 ) | |||
2888 | S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ) | 2888 | S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ) | |||
2889 | "RTN","SDE C08",161,0 ) | 2889 | "RTN","SDE C08",161,0 ) | |||
2890 | S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR | 2890 | S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR | |||
2891 | "RTN","SDE C08",162,0 ) | 2891 | "RTN","SDE C08",162,0 ) | |||
2892 | S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP | 2892 | S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP | |||
2893 | "RTN","SDE C08",163,0 ) | 2893 | "RTN","SDE C08",163,0 ) | |||
2894 | K SDECMSG | 2894 | K SDECMSG | |||
2895 | "RTN","SDE C08",164,0 ) | 2895 | "RTN","SDE C08",164,0 ) | |||
2896 | D FILE^DI E("","SDEC FDA","SDEC MSG") | 2896 | D FILE^DI E("","SDEC FDA","SDEC MSG") | |||
2897 | "RTN","SDE C08",165,0 ) | 2897 | "RTN","SDE C08",165,0 ) | |||
2898 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | 2898 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | |||
2899 | "RTN","SDE C08",166,0 ) | 2899 | "RTN","SDE C08",166,0 ) | |||
2900 | ;alb/sat 658 modifi cation beg in | 2900 | ;alb/sat 658 modifi cation beg in | |||
2901 | "RTN","SDE C08",167,0 ) | 2901 | "RTN","SDE C08",167,0 ) | |||
2902 | S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160) | 2902 | S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160) | |||
2903 | "RTN","SDE C08",168,0 ) | 2903 | "RTN","SDE C08",168,0 ) | |||
2904 | I $L(SDEC NOT)>2,'$E (SDF,2) K SDECFDA S SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT D UPDATE^ DIE("","SD ECFDA") | 2904 | I $L(SDEC NOT)>2,'$E (SDF,2) K SDECFDA S SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT D UPDATE^ DIE("","SD ECFDA") | |||
2905 | "RTN","SDE C08",169,0 ) | 2905 | "RTN","SDE C08",169,0 ) | |||
2906 | ;alb/sat 658 modifi cation end | 2906 | ;alb/sat 658 modifi cation end | |||
2907 | "RTN","SDE C08",170,0 ) | 2907 | "RTN","SDE C08",170,0 ) | |||
2908 | I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D | 2908 | I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D | |||
2909 | "RTN","SDE C08",171,0 ) | 2909 | "RTN","SDE C08",171,0 ) | |||
2910 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | 2910 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | |||
2911 | "RTN","SDE C08",172,0 ) | 2911 | "RTN","SDE C08",172,0 ) | |||
2912 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | 2912 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | |||
2913 | "RTN","SDE C08",173,0 ) | 2913 | "RTN","SDE C08",173,0 ) | |||
2914 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES ) ;alb/sa t 651 adde d SAVESTRT | 2914 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES ) ;alb/sa t 651 adde d SAVESTRT | |||
2915 | "RTN","SDE C08",174,0 ) | 2915 | "RTN","SDE C08",174,0 ) | |||
2916 | I $P(SDAP TYP,";",2) ="SDWL(409 .3," D ; update EWL | 2916 | I $P(SDAP TYP,";",2) ="SDWL(409 .3," D ; update EWL | |||
2917 | "RTN","SDE C08",175,0 ) | 2917 | "RTN","SDE C08",175,0 ) | |||
2918 | .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I") | 2918 | .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I") | |||
2919 | "RTN","SDE C08",176,0 ) | 2919 | "RTN","SDE C08",176,0 ) | |||
2920 | .Q:DFN="" | 2920 | .Q:DFN="" | |||
2921 | "RTN","SDE C08",177,0 ) | 2921 | "RTN","SDE C08",177,0 ) | |||
2922 | .S SDIEN= 0 F S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N="" D | 2922 | .S SDIEN= 0 F S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N="" D | |||
2923 | "RTN","SDE C08",178,0 ) | 2923 | "RTN","SDE C08",178,0 ) | |||
2924 | ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D | 2924 | ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D | |||
2925 | "RTN","SDE C08",179,0 ) | 2925 | "RTN","SDE C08",179,0 ) | |||
2926 | ...K SDEC FDA,SDECMS G,SDECWP | 2926 | ...K SDEC FDA,SDECMS G,SDECWP | |||
2927 | "RTN","SDE C08",180,0 ) | 2927 | "RTN","SDE C08",180,0 ) | |||
2928 | ...;S SDI EN=$P(SDAP TYP,";",1) | 2928 | ...;S SDI EN=$P(SDAP TYP,";",1) | |||
2929 | "RTN","SDE C08",181,0 ) | 2929 | "RTN","SDE C08",181,0 ) | |||
2930 | ...S SDEC FDA(409.3, SDIEN_",", 13)="@" | 2930 | ...S SDEC FDA(409.3, SDIEN_",", 13)="@" | |||
2931 | "RTN","SDE C08",182,0 ) | 2931 | "RTN","SDE C08",182,0 ) | |||
2932 | ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@" | 2932 | ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@" | |||
2933 | "RTN","SDE C08",183,0 ) | 2933 | "RTN","SDE C08",183,0 ) | |||
2934 | ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@" | 2934 | ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@" | |||
2935 | "RTN","SDE C08",184,0 ) | 2935 | "RTN","SDE C08",184,0 ) | |||
2936 | ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@" | 2936 | ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@" | |||
2937 | "RTN","SDE C08",185,0 ) | 2937 | "RTN","SDE C08",185,0 ) | |||
2938 | ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@" | 2938 | ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@" | |||
2939 | "RTN","SDE C08",186,0 ) | 2939 | "RTN","SDE C08",186,0 ) | |||
2940 | ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@" | 2940 | ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@" | |||
2941 | "RTN","SDE C08",187,0 ) | 2941 | "RTN","SDE C08",187,0 ) | |||
2942 | ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@" | 2942 | ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@" | |||
2943 | "RTN","SDE C08",188,0 ) | 2943 | "RTN","SDE C08",188,0 ) | |||
2944 | ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@" | 2944 | ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@" | |||
2945 | "RTN","SDE C08",189,0 ) | 2945 | "RTN","SDE C08",189,0 ) | |||
2946 | ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@" | 2946 | ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@" | |||
2947 | "RTN","SDE C08",190,0 ) | 2947 | "RTN","SDE C08",190,0 ) | |||
2948 | ...D UPDA TE^DIE("", "SDECFDA") | 2948 | ...D UPDA TE^DIE("", "SDECFDA") | |||
2949 | "RTN","SDE C08",191,0 ) | 2949 | "RTN","SDE C08",191,0 ) | |||
2950 | ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN) ;alb/ jsm 658 do not reope n if calle d from SDE C^SDCNP0 | 2950 | ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN) ;alb/ jsm 658 do not reope n if calle d from SDE C^SDCNP0 | |||
2951 | "RTN","SDE C08",192,0 ) | 2951 | "RTN","SDE C08",192,0 ) | |||
2952 | I $P(SDAP TYP,";",2) ="SDEC(409 .85," D ;update AP PT | 2952 | I $P(SDAP TYP,";",2) ="SDEC(409 .85," D ;update AP PT | |||
2953 | "RTN","SDE C08",193,0 ) | 2953 | "RTN","SDE C08",193,0 ) | |||
2954 | .K SDECFD A,SDECMSG, SDECWP | 2954 | .K SDECFD A,SDECMSG, SDECWP | |||
2955 | "RTN","SDE C08",194,0 ) | 2955 | "RTN","SDE C08",194,0 ) | |||
2956 | .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D) ;alb/j sm 658 do not reopen if called from SDEC ^SDCNP0 | 2956 | .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D) ;alb/j sm 658 do not reopen if called from SDEC ^SDCNP0 | |||
2957 | "RTN","SDE C08",195,0 ) | 2957 | "RTN","SDE C08",195,0 ) | |||
2958 | .S SDIEN= $P(SDAPTYP ,";",1) | 2958 | .S SDIEN= $P(SDAPTYP ,";",1) | |||
2959 | "RTN","SDE C08",196,0 ) | 2959 | "RTN","SDE C08",196,0 ) | |||
2960 | .S SDECFD A(409.85,S DIEN_",",1 3)="@" | 2960 | .S SDECFD A(409.85,S DIEN_",",1 3)="@" | |||
2961 | "RTN","SDE C08",197,0 ) | 2961 | "RTN","SDE C08",197,0 ) | |||
2962 | .S SDECFD A(409.85,S DIEN_",",1 3.1)="@" | 2962 | .S SDECFD A(409.85,S DIEN_",",1 3.1)="@" | |||
2963 | "RTN","SDE C08",198,0 ) | 2963 | "RTN","SDE C08",198,0 ) | |||
2964 | .S SDECFD A(409.85,S DIEN_",",1 3.2)="@" | 2964 | .S SDECFD A(409.85,S DIEN_",",1 3.2)="@" | |||
2965 | "RTN","SDE C08",199,0 ) | 2965 | "RTN","SDE C08",199,0 ) | |||
2966 | .S SDECFD A(409.85,S DIEN_",",1 3.3)="@" | 2966 | .S SDECFD A(409.85,S DIEN_",",1 3.3)="@" | |||
2967 | "RTN","SDE C08",200,0 ) | 2967 | "RTN","SDE C08",200,0 ) | |||
2968 | .S SDECFD A(409.85,S DIEN_",",1 3.4)="@" | 2968 | .S SDECFD A(409.85,S DIEN_",",1 3.4)="@" | |||
2969 | "RTN","SDE C08",201,0 ) | 2969 | "RTN","SDE C08",201,0 ) | |||
2970 | .S SDECFD A(409.85,S DIEN_",",1 3.5)="@" | 2970 | .S SDECFD A(409.85,S DIEN_",",1 3.5)="@" | |||
2971 | "RTN","SDE C08",202,0 ) | 2971 | "RTN","SDE C08",202,0 ) | |||
2972 | .S SDECFD A(409.85,S DIEN_",",1 3.6)="@" | 2972 | .S SDECFD A(409.85,S DIEN_",",1 3.6)="@" | |||
2973 | "RTN","SDE C08",203,0 ) | 2973 | "RTN","SDE C08",203,0 ) | |||
2974 | .S SDECFD A(409.85,S DIEN_",",1 3.7)="@" | 2974 | .S SDECFD A(409.85,S DIEN_",",1 3.7)="@" | |||
2975 | "RTN","SDE C08",204,0 ) | 2975 | "RTN","SDE C08",204,0 ) | |||
2976 | .S SDECFD A(409.85,S DIEN_",",1 3.8)="@" | 2976 | .S SDECFD A(409.85,S DIEN_",",1 3.8)="@" | |||
2977 | "RTN","SDE C08",205,0 ) | 2977 | "RTN","SDE C08",205,0 ) | |||
2978 | .D UPDATE ^DIE("","S DECFDA") | 2978 | .D UPDATE ^DIE("","S DECFDA") | |||
2979 | "RTN","SDE C08",206,0 ) | 2979 | "RTN","SDE C08",206,0 ) | |||
2980 | Q | 2980 | Q | |||
2981 | "RTN","SDE C08",207,0 ) | 2981 | "RTN","SDE C08",207,0 ) | |||
2982 | ; | 2982 | ; | |||
2983 | "RTN","SDE C08",208,0 ) | 2983 | "RTN","SDE C08",208,0 ) | |||
2984 | CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT event | 2984 | CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT event | |||
2985 | "RTN","SDE C08",209,0 ) | 2985 | "RTN","SDE C08",209,0 ) | |||
2986 | ;when app ointments cancelled via PIMS i nterface. | 2986 | ;when app ointments cancelled via PIMS i nterface. | |||
2987 | "RTN","SDE C08",210,0 ) | 2987 | "RTN","SDE C08",210,0 ) | |||
2988 | ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients | 2988 | ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients | |||
2989 | "RTN","SDE C08",211,0 ) | 2989 | "RTN","SDE C08",211,0 ) | |||
2990 | N SDECFOU ND,SDECRES | 2990 | N SDECFOU ND,SDECRES | |||
2991 | "RTN","SDE C08",212,0 ) | 2991 | "RTN","SDE C08",212,0 ) | |||
2992 | Q:+$G(SDE CNOEV) | 2992 | Q:+$G(SDE CNOEV) | |||
2993 | "RTN","SDE C08",213,0 ) | 2993 | "RTN","SDE C08",213,0 ) | |||
2994 | Q:'+$G(SD ECSC) | 2994 | Q:'+$G(SD ECSC) | |||
2995 | "RTN","SDE C08",214,0 ) | 2995 | "RTN","SDE C08",214,0 ) | |||
2996 | S SDECFOU ND=0 | 2996 | S SDECFOU ND=0 | |||
2997 | "RTN","SDE C08",215,0 ) | 2997 | "RTN","SDE C08",215,0 ) | |||
2998 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$CANEV T1(SDECRES ,SDECSTART ,SDECPAT) | 2998 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$CANEV T1(SDECRES ,SDECSTART ,SDECPAT) | |||
2999 | "RTN","SDE C08",216,0 ) | 2999 | "RTN","SDE C08",216,0 ) | |||
3000 | I SDECFOU ND D CANEV T3(SDECRES ) Q | 3000 | I SDECFOU ND D CANEV T3(SDECRES ) Q | |||
3001 | "RTN","SDE C08",217,0 ) | 3001 | "RTN","SDE C08",217,0 ) | |||
3002 | Q | 3002 | Q | |||
3003 | "RTN","SDE C08",218,0 ) | 3003 | "RTN","SDE C08",218,0 ) | |||
3004 | ; | 3004 | ; | |||
3005 | "RTN","SDE C08",219,0 ) | 3005 | "RTN","SDE C08",219,0 ) | |||
3006 | CANEVT1(SD ECRES,SDEC START,SDEC PAT) ; | 3006 | CANEVT1(SD ECRES,SDEC START,SDEC PAT) ; | |||
3007 | "RTN","SDE C08",220,0 ) | 3007 | "RTN","SDE C08",220,0 ) | |||
3008 | ;Get appo intment id in SDECAP T | 3008 | ;Get appo intment id in SDECAP T | |||
3009 | "RTN","SDE C08",221,0 ) | 3009 | "RTN","SDE C08",221,0 ) | |||
3010 | ;If found , call SDE CCAN(SDECA PPT) and r eturn 1 | 3010 | ;If found , call SDE CCAN(SDECA PPT) and r eturn 1 | |||
3011 | "RTN","SDE C08",222,0 ) | 3011 | "RTN","SDE C08",222,0 ) | |||
3012 | ;else ret urn 0 | 3012 | ;else ret urn 0 | |||
3013 | "RTN","SDE C08",223,0 ) | 3013 | "RTN","SDE C08",223,0 ) | |||
3014 | N SDECFOU ND,SDECAPP T | 3014 | N SDECFOU ND,SDECAPP T | |||
3015 | "RTN","SDE C08",224,0 ) | 3015 | "RTN","SDE C08",224,0 ) | |||
3016 | S SDECFOU ND=0 | 3016 | S SDECFOU ND=0 | |||
3017 | "RTN","SDE C08",225,0 ) | 3017 | "RTN","SDE C08",225,0 ) | |||
3018 | Q:'+SDECR ES SDECFOU ND | 3018 | Q:'+SDECR ES SDECFOU ND | |||
3019 | "RTN","SDE C08",226,0 ) | 3019 | "RTN","SDE C08",226,0 ) | |||
3020 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | 3020 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | |||
3021 | "RTN","SDE C08",227,0 ) | 3021 | "RTN","SDE C08",227,0 ) | |||
3022 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | 3022 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | |||
3023 | "RTN","SDE C08",228,0 ) | 3023 | "RTN","SDE C08",228,0 ) | |||
3024 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | 3024 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | |||
3025 | "RTN","SDE C08",229,0 ) | 3025 | "RTN","SDE C08",229,0 ) | |||
3026 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | 3026 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | |||
3027 | "RTN","SDE C08",230,0 ) | 3027 | "RTN","SDE C08",230,0 ) | |||
3028 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1) | 3028 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1) | |||
3029 | "RTN","SDE C08",231,0 ) | 3029 | "RTN","SDE C08",231,0 ) | |||
3030 | Q SDECFOU ND | 3030 | Q SDECFOU ND | |||
3031 | "RTN","SDE C08",232,0 ) | 3031 | "RTN","SDE C08",232,0 ) | |||
3032 | ; | 3032 | ; | |||
3033 | "RTN","SDE C08",233,0 ) | 3033 | "RTN","SDE C08",233,0 ) | |||
3034 | CANEVT3(SD ECRES) ; | 3034 | CANEVT3(SD ECRES) ; | |||
3035 | "RTN","SDE C08",234,0 ) | 3035 | "RTN","SDE C08",234,0 ) | |||
3036 | ;Call Rai seEvent to notify GU I clients | 3036 | ;Call Rai seEvent to notify GU I clients | |||
3037 | "RTN","SDE C08",235,0 ) | 3037 | "RTN","SDE C08",235,0 ) | |||
3038 | ; | 3038 | ; | |||
3039 | "RTN","SDE C08",236,0 ) | 3039 | "RTN","SDE C08",236,0 ) | |||
3040 | Q | 3040 | Q | |||
3041 | "RTN","SDE C08",237,0 ) | 3041 | "RTN","SDE C08",237,0 ) | |||
3042 | N SDECRES N | 3042 | N SDECRES N | |||
3043 | "RTN","SDE C08",238,0 ) | 3043 | "RTN","SDE C08",238,0 ) | |||
3044 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | 3044 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | |||
3045 | "RTN","SDE C08",239,0 ) | 3045 | "RTN","SDE C08",239,0 ) | |||
3046 | Q:SDECRES N="" | 3046 | Q:SDECRES N="" | |||
3047 | "RTN","SDE C08",240,0 ) | 3047 | "RTN","SDE C08",240,0 ) | |||
3048 | S SDECRES N=$P(SDECR ESN,"^") | 3048 | S SDECRES N=$P(SDECR ESN,"^") | |||
3049 | "RTN","SDE C08",241,0 ) | 3049 | "RTN","SDE C08",241,0 ) | |||
3050 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | 3050 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | |||
3051 | "RTN","SDE C08",242,0 ) | 3051 | "RTN","SDE C08",242,0 ) | |||
3052 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | 3052 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | |||
3053 | "RTN","SDE C08",243,0 ) | 3053 | "RTN","SDE C08",243,0 ) | |||
3054 | Q | 3054 | Q | |||
3055 | "RTN","SDE C08",244,0 ) | 3055 | "RTN","SDE C08",244,0 ) | |||
3056 | ; | 3056 | ; | |||
3057 | "RTN","SDE C08",245,0 ) | 3057 | "RTN","SDE C08",245,0 ) | |||
3058 | CANCEL(BSD R) ;EP; ca lled to ca ncel appt | 3058 | CANCEL(BSD R) ;EP; ca lled to ca ncel appt | |||
3059 | "RTN","SDE C08",246,0 ) | 3059 | "RTN","SDE C08",246,0 ) | |||
3060 | ; | 3060 | ; | |||
3061 | "RTN","SDE C08",247,0 ) | 3061 | "RTN","SDE C08",247,0 ) | |||
3062 | ; Make ca ll using: S ERR=$$CA NCEL^SDEC0 8(.ARRAY) | 3062 | ; Make ca ll using: S ERR=$$CA NCEL^SDEC0 8(.ARRAY) | |||
3063 | "RTN","SDE C08",248,0 ) | 3063 | "RTN","SDE C08",248,0 ) | |||
3064 | ; | 3064 | ; | |||
3065 | "RTN","SDE C08",249,0 ) | 3065 | "RTN","SDE C08",249,0 ) | |||
3066 | ; Input A rray - | 3066 | ; Input A rray - | |||
3067 | "RTN","SDE C08",250,0 ) | 3067 | "RTN","SDE C08",250,0 ) | |||
3068 | ; BSDR("P AT") = ien of patien t in file 2 | 3068 | ; BSDR("P AT") = ien of patien t in file 2 | |||
3069 | "RTN","SDE C08",251,0 ) | 3069 | "RTN","SDE C08",251,0 ) | |||
3070 | ; BSDR("C LN") = ien of clinic in file 4 4 | 3070 | ; BSDR("C LN") = ien of clinic in file 4 4 | |||
3071 | "RTN","SDE C08",252,0 ) | 3071 | "RTN","SDE C08",252,0 ) | |||
3072 | ; BSDR("T YP") = C f or cancele d by clini c; PC for patient ca nceled | 3072 | ; BSDR("T YP") = C f or cancele d by clini c; PC for patient ca nceled | |||
3073 | "RTN","SDE C08",253,0 ) | 3073 | "RTN","SDE C08",253,0 ) | |||
3074 | ; BSDR("A DT") = app ointment d ate and ti me | 3074 | ; BSDR("A DT") = app ointment d ate and ti me | |||
3075 | "RTN","SDE C08",254,0 ) | 3075 | "RTN","SDE C08",254,0 ) | |||
3076 | ; BSDR("C DT") = can cel date a nd time | 3076 | ; BSDR("C DT") = can cel date a nd time | |||
3077 | "RTN","SDE C08",255,0 ) | 3077 | "RTN","SDE C08",255,0 ) | |||
3078 | ; BSDR("U SR") = use r who canc eled appt | 3078 | ; BSDR("U SR") = use r who canc eled appt | |||
3079 | "RTN","SDE C08",256,0 ) | 3079 | "RTN","SDE C08",256,0 ) | |||
3080 | ; BSDR("C R") = can cel reason - pointer to file 4 09.2 | 3080 | ; BSDR("C R") = can cel reason - pointer to file 4 09.2 | |||
3081 | "RTN","SDE C08",257,0 ) | 3081 | "RTN","SDE C08",257,0 ) | |||
3082 | ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters | 3082 | ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters | |||
3083 | "RTN","SDE C08",258,0 ) | 3083 | "RTN","SDE C08",258,0 ) | |||
3084 | ; | 3084 | ; | |||
3085 | "RTN","SDE C08",259,0 ) | 3085 | "RTN","SDE C08",259,0 ) | |||
3086 | ;Output: error stat us and mes sage | 3086 | ;Output: error stat us and mes sage | |||
3087 | "RTN","SDE C08",260,0 ) | 3087 | "RTN","SDE C08",260,0 ) | |||
3088 | ; = 0 o r null: e verything okay | 3088 | ; = 0 o r null: e verything okay | |||
3089 | "RTN","SDE C08",261,0 ) | 3089 | "RTN","SDE C08",261,0 ) | |||
3090 | ; = 1^m essage: e rror and r eason | 3090 | ; = 1^m essage: e rror and r eason | |||
3091 | "RTN","SDE C08",262,0 ) | 3091 | "RTN","SDE C08",262,0 ) | |||
3092 | ; | 3092 | ; | |||
3093 | "RTN","SDE C08",263,0 ) | 3093 | "RTN","SDE C08",263,0 ) | |||
3094 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | 3094 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | |||
3095 | "RTN","SDE C08",264,0 ) | 3095 | "RTN","SDE C08",264,0 ) | |||
3096 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | 3096 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | |||
3097 | "RTN","SDE C08",265,0 ) | 3097 | "RTN","SDE C08",265,0 ) | |||
3098 | I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC") Q 1_U_"Can cel Status error: "_ $G(BSDR("T YP")) | 3098 | I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC") Q 1_U_"Can cel Status error: "_ $G(BSDR("T YP")) | |||
3099 | "RTN","SDE C08",266,0 ) | 3099 | "RTN","SDE C08",266,0 ) | |||
3100 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | 3100 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | |||
3101 | "RTN","SDE C08",267,0 ) | 3101 | "RTN","SDE C08",267,0 ) | |||
3102 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | 3102 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | |||
3103 | "RTN","SDE C08",268,0 ) | 3103 | "RTN","SDE C08",268,0 ) | |||
3104 | I $G(BSDR ("CDT")) S BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12) ;rem ove second s | 3104 | I $G(BSDR ("CDT")) S BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12) ;rem ove second s | |||
3105 | "RTN","SDE C08",269,0 ) | 3105 | "RTN","SDE C08",269,0 ) | |||
3106 | I $G(BSDR ("CDT"))'? 7N1".".4N Q 1_U_"Can cel Date/T ime error: "_$G(BSDR ("CDT")) | 3106 | I $G(BSDR ("CDT"))'? 7N1".".4N Q 1_U_"Can cel Date/T ime error: "_$G(BSDR ("CDT")) | |||
3107 | "RTN","SDE C08",270,0 ) | 3107 | "RTN","SDE C08",270,0 ) | |||
3108 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | 3108 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | |||
3109 | "RTN","SDE C08",271,0 ) | 3109 | "RTN","SDE C08",271,0 ) | |||
3110 | I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR")) | 3110 | I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR")) | |||
3111 | "RTN","SDE C08",272,0 ) | 3111 | "RTN","SDE C08",272,0 ) | |||
3112 | ; | 3112 | ; | |||
3113 | "RTN","SDE C08",273,0 ) | 3113 | "RTN","SDE C08",273,0 ) | |||
3114 | NEW IEN,D IE,DA,DR,S DMODE,HLAP TIEN ;*zeb +1 722 2/2 1/19 save IEN for ca nceling ap pt | 3114 | NEW IEN,D IE,DA,DR,S DMODE,HLAP TIEN ;*zeb +1 722 2/2 1/19 save IEN for ca nceling ap pt | |||
3115 | "RTN","SDE C08",274,0 ) | 3115 | "RTN","SDE C08",274,0 ) | |||
3116 | S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),H LAPTIEN=IE N | 3116 | S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),H LAPTIEN=IE N | |||
3117 | "RTN","SDE C08",275,0 ) | 3117 | "RTN","SDE C08",275,0 ) | |||
3118 | I 'IEN Q 1_U_"Error trying to find appo intment fo r cancel: Patient="_ BSDR("PAT" )_" Clinic ="_BSDR("C LN")_" App t="_BSDR(" ADT") | 3118 | I 'IEN Q 1_U_"Error trying to find appo intment fo r cancel: Patient="_ BSDR("PAT" )_" Clinic ="_BSDR("C LN")_" App t="_BSDR(" ADT") | |||
3119 | "RTN","SDE C08",276,0 ) | 3119 | "RTN","SDE C08",276,0 ) | |||
3120 | ; | 3120 | ; | |||
3121 | "RTN","SDE C08",277,0 ) | 3121 | "RTN","SDE C08",277,0 ) | |||
3122 | I $$CI^SD ECU2(BSDR( "PAT"),BSD R("CLN"),B SDR("ADT") ,IEN) Q 1_ U_"Patient already c hecked in; cannot ca ncel until check-in deleted: P atient="_B SDR("PAT") _" Clinic= "_BSDR("CL N")_" Appt ="_BSDR("A DT") | 3122 | I $$CI^SD ECU2(BSDR( "PAT"),BSD R("CLN"),B SDR("ADT") ,IEN) Q 1_ U_"Patient already c hecked in; cannot ca ncel until check-in deleted: P atient="_B SDR("PAT") _" Clinic= "_BSDR("CL N")_" Appt ="_BSDR("A DT") | |||
3123 | "RTN","SDE C08",278,0 ) | 3123 | "RTN","SDE C08",278,0 ) | |||
3124 | ; | 3124 | ; | |||
3125 | "RTN","SDE C08",279,0 ) | 3125 | "RTN","SDE C08",279,0 ) | |||
3126 | ; remembe r before s tatus | 3126 | ; remembe r before s tatus | |||
3127 | "RTN","SDE C08",280,0 ) | 3127 | "RTN","SDE C08",280,0 ) | |||
3128 | NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL | 3128 | NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL | |||
3129 | "RTN","SDE C08",281,0 ) | 3129 | "RTN","SDE C08",281,0 ) | |||
3130 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN | 3130 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN | |||
3131 | "RTN","SDE C08",282,0 ) | 3131 | "RTN","SDE C08",282,0 ) | |||
3132 | S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL | 3132 | S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL | |||
3133 | "RTN","SDE C08",283,0 ) | 3133 | "RTN","SDE C08",283,0 ) | |||
3134 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL ) | 3134 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL ) | |||
3135 | "RTN","SDE C08",284,0 ) | 3135 | "RTN","SDE C08",284,0 ) | |||
3136 | ; | 3136 | ; | |||
3137 | "RTN","SDE C08",285,0 ) | 3137 | "RTN","SDE C08",285,0 ) | |||
3138 | ; get use r who made appt and date appt made from ^SC | 3138 | ; get use r who made appt and date appt made from ^SC | |||
3139 | "RTN","SDE C08",286,0 ) | 3139 | "RTN","SDE C08",286,0 ) | |||
3140 | ; beca use data i n ^SC will be delete d | 3140 | ; beca use data i n ^SC will be delete d | |||
3141 | "RTN","SDE C08",287,0 ) | 3141 | "RTN","SDE C08",287,0 ) | |||
3142 | NEW USER, DATE | 3142 | NEW USER, DATE | |||
3143 | "RTN","SDE C08",288,0 ) | 3143 | "RTN","SDE C08",288,0 ) | |||
3144 | S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6) | 3144 | S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6) | |||
3145 | "RTN","SDE C08",289,0 ) | 3145 | "RTN","SDE C08",289,0 ) | |||
3146 | S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7) | 3146 | S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7) | |||
3147 | "RTN","SDE C08",290,0 ) | 3147 | "RTN","SDE C08",290,0 ) | |||
3148 | ; | 3148 | ; | |||
3149 | "RTN","SDE C08",291,0 ) | 3149 | "RTN","SDE C08",291,0 ) | |||
3150 | ; update file 2 inf o | 3150 | ; update file 2 inf o | |||
3151 | "RTN","SDE C08",292,0 ) | 3151 | "RTN","SDE C08",292,0 ) | |||
3152 | NEW DIE,D A,DR | 3152 | NEW DIE,D A,DR | |||
3153 | "RTN","SDE C08",293,0 ) | 3153 | "RTN","SDE C08",293,0 ) | |||
3154 | N SDFDA,S DIEN,SDMSG | 3154 | N SDFDA,S DIEN,SDMSG | |||
3155 | "RTN","SDE C08",294,0 ) | 3155 | "RTN","SDE C08",294,0 ) | |||
3156 | S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )" | 3156 | S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )" | |||
3157 | "RTN","SDE C08",295,0 ) | 3157 | "RTN","SDE C08",295,0 ) | |||
3158 | S @SDFDA@ (3)=BSDR(" TYP") | 3158 | S @SDFDA@ (3)=BSDR(" TYP") | |||
3159 | "RTN","SDE C08",296,0 ) | 3159 | "RTN","SDE C08",296,0 ) | |||
3160 | S @SDFDA@ (14)=BSDR( "USR") | 3160 | S @SDFDA@ (14)=BSDR( "USR") | |||
3161 | "RTN","SDE C08",297,0 ) | 3161 | "RTN","SDE C08",297,0 ) | |||
3162 | S @SDFDA@ (15)=BSDR( "CDT") | 3162 | S @SDFDA@ (15)=BSDR( "CDT") | |||
3163 | "RTN","SDE C08",298,0 ) | 3163 | "RTN","SDE C08",298,0 ) | |||
3164 | S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" ) | 3164 | S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" ) | |||
3165 | "RTN","SDE C08",299,0 ) | 3165 | "RTN","SDE C08",299,0 ) | |||
3166 | S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160) | 3166 | S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160) | |||
3167 | "RTN","SDE C08",300,0 ) | 3167 | "RTN","SDE C08",300,0 ) | |||
3168 | S @SDFDA@ (19)=USER | 3168 | S @SDFDA@ (19)=USER | |||
3169 | "RTN","SDE C08",301,0 ) | 3169 | "RTN","SDE C08",301,0 ) | |||
3170 | S @SDFDA@ (20)=DATE | 3170 | S @SDFDA@ (20)=DATE | |||
3171 | "RTN","SDE C08",302,0 ) | 3171 | "RTN","SDE C08",302,0 ) | |||
3172 | D UPDATE^ DIE("","SD FDA") | 3172 | D UPDATE^ DIE("","SD FDA") | |||
3173 | "RTN","SDE C08",303,0 ) | 3173 | "RTN","SDE C08",303,0 ) | |||
3174 | N SDPCE | 3174 | N SDPCE | |||
3175 | "RTN","SDE C08",304,0 ) | 3175 | "RTN","SDE C08",304,0 ) | |||
3176 | S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 ) | 3176 | S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 ) | |||
3177 | "RTN","SDE C08",305,0 ) | 3177 | "RTN","SDE C08",305,0 ) | |||
3178 | D:+SDPCE EN^SDCODEL (SDPCE,2," ","CANCEL" ) ;remove OUTPATIEN T ENCOUNTE R link ;* zeb 10/25/ 18 717 pas s in corre ct SDMODE and delete source | 3178 | D:+SDPCE EN^SDCODEL (SDPCE,2," ","CANCEL" ) ;remove OUTPATIEN T ENCOUNTE R link ;* zeb 10/25/ 18 717 pas s in corre ct SDMODE and delete source | |||
3179 | "RTN","SDE C08",306,0 ) | 3179 | "RTN","SDE C08",306,0 ) | |||
3180 | ; | 3180 | ; | |||
3181 | "RTN","SDE C08",307,0 ) | 3181 | "RTN","SDE C08",307,0 ) | |||
3182 | ; cancel appointmen t in ^SC | 3182 | ; cancel appointmen t in ^SC | |||
3183 | "RTN","SDE C08",308,0 ) | 3183 | "RTN","SDE C08",308,0 ) | |||
3184 | ;NEW DIK, DA ;*zeb+ 4 722 2/21 /19 mark a s canceled instead o f (failing to) delet e so expan d entry wo rks correc tly | 3184 | ;NEW DIK, DA ;*zeb+ 4 722 2/21 /19 mark a s canceled instead o f (failing to) delet e so expan d entry wo rks correc tly | |||
3185 | "RTN","SDE C08",309,0 ) | 3185 | "RTN","SDE C08",309,0 ) | |||
3186 | ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1," | 3186 | ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1," | |||
3187 | "RTN","SDE C08",310,0 ) | 3187 | "RTN","SDE C08",310,0 ) | |||
3188 | ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN | 3188 | ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN | |||
3189 | "RTN","SDE C08",311,0 ) | 3189 | "RTN","SDE C08",311,0 ) | |||
3190 | ;D ^DIK | 3190 | ;D ^DIK | |||
3191 | "RTN","SDE C08",312,0 ) | 3191 | "RTN","SDE C08",312,0 ) | |||
3192 | S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, HLAPTIEN,0 ),"^",9)=" C" | 3192 | S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, HLAPTIEN,0 ),"^",9)=" C" | |||
3193 | "RTN","SDE C08",313,0 ) | 3193 | "RTN","SDE C08",313,0 ) | |||
3194 | ; call ev ent driver | 3194 | ; call ev ent driver | |||
3195 | "RTN","SDE C08",314,0 ) | 3195 | "RTN","SDE C08",314,0 ) | |||
3196 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | 3196 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |||
3197 | "RTN","SDE C08",315,0 ) | 3197 | "RTN","SDE C08",315,0 ) | |||
3198 | D CANCEL^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDMODE, SDCPHDL) ;*zeb 10/2 5/18 717 u ncomment t o re-enabl e event dr iver | 3198 | D CANCEL^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDMODE, SDCPHDL) ;*zeb 10/2 5/18 717 u ncomment t o re-enabl e event dr iver | |||
3199 | "RTN","SDE C08",316,0 ) | 3199 | "RTN","SDE C08",316,0 ) | |||
3200 | Q 0 | 3200 | Q 0 | |||
3201 | "RTN","SDE C08",317,0 ) | 3201 | "RTN","SDE C08",317,0 ) | |||
3202 | ; | 3202 | ; | |||
3203 | "RTN","SDE C08",318,0 ) | 3203 | "RTN","SDE C08",318,0 ) | |||
3204 | UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment | 3204 | UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment | |||
3205 | "RTN","SDE C08",319,0 ) | 3205 | "RTN","SDE C08",319,0 ) | |||
3206 | ;UNDOCANA (SDECY,SDE CAPTID) e xternal pa rameter ta g in SDEC | 3206 | ;UNDOCANA (SDECY,SDE CAPTID) e xternal pa rameter ta g in SDEC | |||
3207 | "RTN","SDE C08",320,0 ) | 3207 | "RTN","SDE C08",320,0 ) | |||
3208 | ;called b y SDEC UNC ANCEL APPT | 3208 | ;called b y SDEC UNC ANCEL APPT | |||
3209 | "RTN","SDE C08",321,0 ) | 3209 | "RTN","SDE C08",321,0 ) | |||
3210 | ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file 409.84 | 3210 | ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file 409.84 | |||
3211 | "RTN","SDE C08",322,0 ) | 3211 | "RTN","SDE C08",322,0 ) | |||
3212 | N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT | 3212 | N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT | |||
3213 | "RTN","SDE C08",323,0 ) | 3213 | "RTN","SDE C08",323,0 ) | |||
3214 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l ;is thi s used? | 3214 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l ;is thi s used? | |||
3215 | "RTN","SDE C08",324,0 ) | 3215 | "RTN","SDE C08",324,0 ) | |||
3216 | ; | 3216 | ; | |||
3217 | "RTN","SDE C08",325,0 ) | 3217 | "RTN","SDE C08",325,0 ) | |||
3218 | S SDECI=0 | 3218 | S SDECI=0 | |||
3219 | "RTN","SDE C08",326,0 ) | 3219 | "RTN","SDE C08",326,0 ) | |||
3220 | K ^TMP("S DEC",$J) | 3220 | K ^TMP("S DEC",$J) | |||
3221 | "RTN","SDE C08",327,0 ) | 3221 | "RTN","SDE C08",327,0 ) | |||
3222 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | 3222 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |||
3223 | "RTN","SDE C08",328,0 ) | 3223 | "RTN","SDE C08",328,0 ) | |||
3224 | S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30) | 3224 | S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30) | |||
3225 | "RTN","SDE C08",329,0 ) | 3225 | "RTN","SDE C08",329,0 ) | |||
3226 | TSTART | 3226 | TSTART | |||
3227 | "RTN","SDE C08",330,0 ) | 3227 | "RTN","SDE C08",330,0 ) | |||
3228 | I '+SDECA PTID TROLL BACK D ER R(SDECI+1, "Invalid A ppointment ID.") Q | 3228 | I '+SDECA PTID TROLL BACK D ER R(SDECI+1, "Invalid A ppointment ID.") Q | |||
3229 | "RTN","SDE C08",331,0 ) | 3229 | "RTN","SDE C08",331,0 ) | |||
3230 | I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK D ERR (SDECI+1," Invalid Ap pointment ID") Q | 3230 | I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK D ERR (SDECI+1," Invalid Ap pointment ID") Q | |||
3231 | "RTN","SDE C08",332,0 ) | 3231 | "RTN","SDE C08",332,0 ) | |||
3232 | ;Make sur e appointm ent is can celled | 3232 | ;Make sur e appointm ent is can celled | |||
3233 | "RTN","SDE C08",333,0 ) | 3233 | "RTN","SDE C08",333,0 ) | |||
3234 | I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK D ERR( SDECI+1,"A ppointment is not Ca ncelled.") Q | 3234 | I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK D ERR( SDECI+1,"A ppointment is not Ca ncelled.") Q | |||
3235 | "RTN","SDE C08",334,0 ) | 3235 | "RTN","SDE C08",334,0 ) | |||
3236 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 3236 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
3237 | "RTN","SDE C08",335,0 ) | 3237 | "RTN","SDE C08",335,0 ) | |||
3238 | ;appts ca ncelled by patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */ | 3238 | ;appts ca ncelled by patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */ | |||
3239 | "RTN","SDE C08",336,0 ) | 3239 | "RTN","SDE C08",336,0 ) | |||
3240 | ;I $P(^DP T($P(SDECN OD,U,5),"S ",$P(SDECN OD,U,1),0) ,U,2)="PC" TROLLBACK D ERR(SD ECI+1,"Can celled by patient ap pointment cannot be uncancelle d.") Q | 3240 | ;I $P(^DP T($P(SDECN OD,U,5),"S ",$P(SDECN OD,U,1),0) ,U,2)="PC" TROLLBACK D ERR(SD ECI+1,"Can celled by patient ap pointment cannot be uncancelle d.") Q | |||
3241 | "RTN","SDE C08",337,0 ) | 3241 | "RTN","SDE C08",337,0 ) | |||
3242 | ;get appo intment da ta | 3242 | ;get appo intment da ta | |||
3243 | "RTN","SDE C08",338,0 ) | 3243 | "RTN","SDE C08",338,0 ) | |||
3244 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 3244 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
3245 | "RTN","SDE C08",339,0 ) | 3245 | "RTN","SDE C08",339,0 ) | |||
3246 | S SDECDAM =$P(SDECNO D,U,9) ;date appt made | 3246 | S SDECDAM =$P(SDECNO D,U,9) ;date appt made | |||
3247 | "RTN","SDE C08",340,0 ) | 3247 | "RTN","SDE C08",340,0 ) | |||
3248 | S SDECDEC =$P(SDECNO D,U,8) ;data entry cler k | 3248 | S SDECDEC =$P(SDECNO D,U,8) ;data entry cler k | |||
3249 | "RTN","SDE C08",341,0 ) | 3249 | "RTN","SDE C08",341,0 ) | |||
3250 | S SDECLEN =$P(SDECNO D,U,18) ;lengt h of appt in minutes | 3250 | S SDECLEN =$P(SDECNO D,U,18) ;lengt h of appt in minutes | |||
3251 | "RTN","SDE C08",342,0 ) | 3251 | "RTN","SDE C08",342,0 ) | |||
3252 | S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0)) ;no te from SD EC APPOINT MENT | 3252 | S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0)) ;no te from SD EC APPOINT MENT | |||
3253 | "RTN","SDE C08",343,0 ) | 3253 | "RTN","SDE C08",343,0 ) | |||
3254 | S SDECPAT ID=$P(SDEC NOD,U,5) ;point er to VA P ATIENT fil e 2 | 3254 | S SDECPAT ID=$P(SDEC NOD,U,5) ;point er to VA P ATIENT fil e 2 | |||
3255 | "RTN","SDE C08",344,0 ) | 3255 | "RTN","SDE C08",344,0 ) | |||
3256 | S SDECSC1 =$P($G(SDE CNOD),U,7) ;resou rce | 3256 | S SDECSC1 =$P($G(SDE CNOD),U,7) ;resou rce | |||
3257 | "RTN","SDE C08",345,0 ) | 3257 | "RTN","SDE C08",345,0 ) | |||
3258 | S SDECSTA RT=$P(SDEC NOD,U) ;appt start time | 3258 | S SDECSTA RT=$P(SDEC NOD,U) ;appt start time | |||
3259 | "RTN","SDE C08",346,0 ) | 3259 | "RTN","SDE C08",346,0 ) | |||
3260 | S SDECWKI N=$P($G(SD ECNOD),U,1 3) ;walk- in | 3260 | S SDECWKI N=$P($G(SD ECNOD),U,1 3) ;walk- in | |||
3261 | "RTN","SDE C08",347,0 ) | 3261 | "RTN","SDE C08",347,0 ) | |||
3262 | ;lock SDE C node | 3262 | ;lock SDE C node | |||
3263 | "RTN","SDE C08",348,0 ) | 3263 | "RTN","SDE C08",348,0 ) | |||
3264 | L +^SDEC( 409.84,SDE CPATID):5 I '$T D ER R(SDECI+1, "Another u ser is wor king with this patie nt's recor d. Please try again later") T ROLLBACK Q | 3264 | L +^SDEC( 409.84,SDE CPATID):5 I '$T D ER R(SDECI+1, "Another u ser is wor king with this patie nt's recor d. Please try again later") T ROLLBACK Q | |||
3265 | "RTN","SDE C08",349,0 ) | 3265 | "RTN","SDE C08",349,0 ) | |||
3266 | ;un-cance l SDEC APP OINTMENT | 3266 | ;un-cance l SDEC APP OINTMENT | |||
3267 | "RTN","SDE C08",350,0 ) | 3267 | "RTN","SDE C08",350,0 ) | |||
3268 | D SDECUCA N(SDECAPTI D) | 3268 | D SDECUCA N(SDECAPTI D) | |||
3269 | "RTN","SDE C08",351,0 ) | 3269 | "RTN","SDE C08",351,0 ) | |||
3270 | I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D I +$ G(SDECZ) S SDECERR=S DECERR_$P( SDECZ,U,2) D ERR(SDE CI,SDECERR ) Q | 3270 | I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D I +$ G(SDECZ) S SDECERR=S DECERR_$P( SDECZ,U,2) D ERR(SDE CI,SDECERR ) Q | |||
3271 | "RTN","SDE C08",352,0 ) | 3271 | "RTN","SDE C08",352,0 ) | |||
3272 | . S SDECL OC="" | 3272 | . S SDECL OC="" | |||
3273 | "RTN","SDE C08",353,0 ) | 3273 | "RTN","SDE C08",353,0 ) | |||
3274 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | 3274 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | |||
3275 | "RTN","SDE C08",354,0 ) | 3275 | "RTN","SDE C08",354,0 ) | |||
3276 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION ;support f or single HOSPITAL L OCATION in SDEC RESO URCE | 3276 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION ;support f or single HOSPITAL L OCATION in SDEC RESO URCE | |||
3277 | "RTN","SDE C08",355,0 ) | 3277 | "RTN","SDE C08",355,0 ) | |||
3278 | . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID ) ;HOSPIT AL LOCATIO N | 3278 | . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID ) ;HOSPIT AL LOCATIO N | |||
3279 | "RTN","SDE C08",356,0 ) | 3279 | "RTN","SDE C08",356,0 ) | |||
3280 | . Q:'+SDE CLOC | 3280 | . Q:'+SDE CLOC | |||
3281 | "RTN","SDE C08",357,0 ) | 3281 | "RTN","SDE C08",357,0 ) | |||
3282 | . ;un-can cel patien t appointm ent and re -instate c linic appo intment | 3282 | . ;un-can cel patien t appointm ent and re -instate c linic appo intment | |||
3283 | "RTN","SDE C08",358,0 ) | 3283 | "RTN","SDE C08",358,0 ) | |||
3284 | . S SDECZ ="" | 3284 | . S SDECZ ="" | |||
3285 | "RTN","SDE C08",359,0 ) | 3285 | "RTN","SDE C08",359,0 ) | |||
3286 | . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN) | 3286 | . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN) | |||
3287 | "RTN","SDE C08",360,0 ) | 3287 | "RTN","SDE C08",360,0 ) | |||
3288 | TCOMMIT | 3288 | TCOMMIT | |||
3289 | "RTN","SDE C08",361,0 ) | 3289 | "RTN","SDE C08",361,0 ) | |||
3290 | L -^SDEC( 409.84,SDE CPATID) | 3290 | L -^SDEC( 409.84,SDE CPATID) | |||
3291 | "RTN","SDE C08",362,0 ) | 3291 | "RTN","SDE C08",362,0 ) | |||
3292 | S SDECI=S DECI+1 | 3292 | S SDECI=S DECI+1 | |||
3293 | "RTN","SDE C08",363,0 ) | 3293 | "RTN","SDE C08",363,0 ) | |||
3294 | S ^TMP("S DEC",$J,SD ECI)=""_$C (30) | 3294 | S ^TMP("S DEC",$J,SD ECI)=""_$C (30) | |||
3295 | "RTN","SDE C08",364,0 ) | 3295 | "RTN","SDE C08",364,0 ) | |||
3296 | S SDECI=S DECI+1 | 3296 | S SDECI=S DECI+1 | |||
3297 | "RTN","SDE C08",365,0 ) | 3297 | "RTN","SDE C08",365,0 ) | |||
3298 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 3298 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
3299 | "RTN","SDE C08",366,0 ) | 3299 | "RTN","SDE C08",366,0 ) | |||
3300 | Q | 3300 | Q | |||
3301 | "RTN","SDE C08",367,0 ) | 3301 | "RTN","SDE C08",367,0 ) | |||
3302 | ; | 3302 | ; | |||
3303 | "RTN","SDE C08",368,0 ) | 3303 | "RTN","SDE C08",368,0 ) | |||
3304 | SDECUCAN(S DECAPTID) ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time | 3304 | SDECUCAN(S DECAPTID) ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time | |||
3305 | "RTN","SDE C08",369,0 ) | 3305 | "RTN","SDE C08",369,0 ) | |||
3306 | N PROVIEN ,SDAPTYP,S DCL,SDRES | 3306 | N PROVIEN ,SDAPTYP,S DCL,SDRES | |||
3307 | "RTN","SDE C08",370,0 ) | 3307 | "RTN","SDE C08",370,0 ) | |||
3308 | S SDECIEN S=SDECAPTI D_"," | 3308 | S SDECIEN S=SDECAPTI D_"," | |||
3309 | "RTN","SDE C08",371,0 ) | 3309 | "RTN","SDE C08",371,0 ) | |||
3310 | S SDECFDA (409.84,SD ECIENS,.12 )="" | 3310 | S SDECFDA (409.84,SD ECIENS,.12 )="" | |||
3311 | "RTN","SDE C08",372,0 ) | 3311 | "RTN","SDE C08",372,0 ) | |||
3312 | K SDECMSG | 3312 | K SDECMSG | |||
3313 | "RTN","SDE C08",373,0 ) | 3313 | "RTN","SDE C08",373,0 ) | |||
3314 | D FILE^DI E("","SDEC FDA","SDEC MSG") | 3314 | D FILE^DI E("","SDEC FDA","SDEC MSG") | |||
3315 | "RTN","SDE C08",374,0 ) | 3315 | "RTN","SDE C08",374,0 ) | |||
3316 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | 3316 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | |||
3317 | "RTN","SDE C08",375,0 ) | 3317 | "RTN","SDE C08",375,0 ) | |||
3318 | I $P(SDAP TYP,";",2) ="GMR(123, " D | 3318 | I $P(SDAP TYP,";",2) ="GMR(123, " D | |||
3319 | "RTN","SDE C08",376,0 ) | 3319 | "RTN","SDE C08",376,0 ) | |||
3320 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | 3320 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | |||
3321 | "RTN","SDE C08",377,0 ) | 3321 | "RTN","SDE C08",377,0 ) | |||
3322 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | 3322 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | |||
3323 | "RTN","SDE C08",378,0 ) | 3323 | "RTN","SDE C08",378,0 ) | |||
3324 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1) | 3324 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1) | |||
3325 | "RTN","SDE C08",379,0 ) | 3325 | "RTN","SDE C08",379,0 ) | |||
3326 | Q | 3326 | Q | |||
3327 | "RTN","SDE C08",380,0 ) | 3327 | "RTN","SDE C08",380,0 ) | |||
3328 | ; | 3328 | ; | |||
3329 | "RTN","SDE C08",381,0 ) | 3329 | "RTN","SDE C08",381,0 ) | |||
3330 | APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ; | 3330 | APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ; | |||
3331 | "RTN","SDE C08",382,0 ) | 3331 | "RTN","SDE C08",382,0 ) | |||
3332 | ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1 | 3332 | ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1 | |||
3333 | "RTN","SDE C08",383,0 ) | 3333 | "RTN","SDE C08",383,0 ) | |||
3334 | ; SDECLO C = poin ter to hos pital loca tion ^SC f ile 44 | 3334 | ; SDECLO C = poin ter to hos pital loca tion ^SC f ile 44 | |||
3335 | "RTN","SDE C08",384,0 ) | 3335 | "RTN","SDE C08",384,0 ) | |||
3336 | ; SDECPA TID = poin ter to VA Patient ^D PT file 2 | 3336 | ; SDECPA TID = poin ter to VA Patient ^D PT file 2 | |||
3337 | "RTN","SDE C08",385,0 ) | 3337 | "RTN","SDE C08",385,0 ) | |||
3338 | ; SDECST ART = Appo intment ti me | 3338 | ; SDECST ART = Appo intment ti me | |||
3339 | "RTN","SDE C08",386,0 ) | 3339 | "RTN","SDE C08",386,0 ) | |||
3340 | ; SDECDA M = Date appointme nt made in FM format | 3340 | ; SDECDA M = Date appointme nt made in FM format | |||
3341 | "RTN","SDE C08",387,0 ) | 3341 | "RTN","SDE C08",387,0 ) | |||
3342 | ; SDECDE C = Data entry cle rk - point er to NEW PERSON fil e 200 | 3342 | ; SDECDE C = Data entry cle rk - point er to NEW PERSON fil e 200 | |||
3343 | "RTN","SDE C08",388,0 ) | 3343 | "RTN","SDE C08",388,0 ) | |||
3344 | N SDECC,% H | 3344 | N SDECC,% H | |||
3345 | "RTN","SDE C08",389,0 ) | 3345 | "RTN","SDE C08",389,0 ) | |||
3346 | S SDECC(" PAT")=SDEC PATID | 3346 | S SDECC(" PAT")=SDEC PATID | |||
3347 | "RTN","SDE C08",390,0 ) | 3347 | "RTN","SDE C08",390,0 ) | |||
3348 | S SDECC(" CLN")=SDEC LOC | 3348 | S SDECC(" CLN")=SDEC LOC | |||
3349 | "RTN","SDE C08",391,0 ) | 3349 | "RTN","SDE C08",391,0 ) | |||
3350 | S SDECC(" ADT")=SDEC START | 3350 | S SDECC(" ADT")=SDEC START | |||
3351 | "RTN","SDE C08",392,0 ) | 3351 | "RTN","SDE C08",392,0 ) | |||
3352 | S SDECC(" NOTE")=SDE CNOTE ;us er note | 3352 | S SDECC(" NOTE")=SDE CNOTE ;us er note | |||
3353 | "RTN","SDE C08",393,0 ) | 3353 | "RTN","SDE C08",393,0 ) | |||
3354 | S SDECC(" RES")=SDEC RES | 3354 | S SDECC(" RES")=SDEC RES | |||
3355 | "RTN","SDE C08",394,0 ) | 3355 | "RTN","SDE C08",394,0 ) | |||
3356 | S SDECC(" USR")=DUZ | 3356 | S SDECC(" USR")=DUZ | |||
3357 | "RTN","SDE C08",395,0 ) | 3357 | "RTN","SDE C08",395,0 ) | |||
3358 | S SDECC(" LEN")=SDEC LEN | 3358 | S SDECC(" LEN")=SDEC LEN | |||
3359 | "RTN","SDE C08",396,0 ) | 3359 | "RTN","SDE C08",396,0 ) | |||
3360 | S SDECC(" WKIN")=SDE CWKIN | 3360 | S SDECC(" WKIN")=SDE CWKIN | |||
3361 | "RTN","SDE C08",397,0 ) | 3361 | "RTN","SDE C08",397,0 ) | |||
3362 | ; | 3362 | ; | |||
3363 | "RTN","SDE C08",398,0 ) | 3363 | "RTN","SDE C08",398,0 ) | |||
3364 | S SDECZ=$ $UNCANCEL( .SDECC) | 3364 | S SDECZ=$ $UNCANCEL( .SDECC) | |||
3365 | "RTN","SDE C08",399,0 ) | 3365 | "RTN","SDE C08",399,0 ) | |||
3366 | Q | 3366 | Q | |||
3367 | "RTN","SDE C08",400,0 ) | 3367 | "RTN","SDE C08",400,0 ) | |||
3368 | ; | 3368 | ; | |||
3369 | "RTN","SDE C08",401,0 ) | 3369 | "RTN","SDE C08",401,0 ) | |||
3370 | UNCANCEL(B SDR) ;PEP; called to un-cancel appt | 3370 | UNCANCEL(B SDR) ;PEP; called to un-cancel appt | |||
3371 | "RTN","SDE C08",402,0 ) | 3371 | "RTN","SDE C08",402,0 ) | |||
3372 | ; | 3372 | ; | |||
3373 | "RTN","SDE C08",403,0 ) | 3373 | "RTN","SDE C08",403,0 ) | |||
3374 | ; Make ca ll using: S ERR=$$UN CANCEL(.AR RAY) | 3374 | ; Make ca ll using: S ERR=$$UN CANCEL(.AR RAY) | |||
3375 | "RTN","SDE C08",404,0 ) | 3375 | "RTN","SDE C08",404,0 ) | |||
3376 | ; | 3376 | ; | |||
3377 | "RTN","SDE C08",405,0 ) | 3377 | "RTN","SDE C08",405,0 ) | |||
3378 | ; Input A rray - | 3378 | ; Input A rray - | |||
3379 | "RTN","SDE C08",406,0 ) | 3379 | "RTN","SDE C08",406,0 ) | |||
3380 | ; BSDR("P AT") = ien of patien t in file 2 | 3380 | ; BSDR("P AT") = ien of patien t in file 2 | |||
3381 | "RTN","SDE C08",407,0 ) | 3381 | "RTN","SDE C08",407,0 ) | |||
3382 | ; BSDR("C LN") = ien of clinic in file 4 4 | 3382 | ; BSDR("C LN") = ien of clinic in file 4 4 | |||
3383 | "RTN","SDE C08",408,0 ) | 3383 | "RTN","SDE C08",408,0 ) | |||
3384 | ; BSDR("A DT") = app ointment d ate and ti me | 3384 | ; BSDR("A DT") = app ointment d ate and ti me | |||
3385 | "RTN","SDE C08",409,0 ) | 3385 | "RTN","SDE C08",409,0 ) | |||
3386 | ; BSDR("U SR") = use r who un-c anceled ap pt | 3386 | ; BSDR("U SR") = use r who un-c anceled ap pt | |||
3387 | "RTN","SDE C08",410,0 ) | 3387 | "RTN","SDE C08",410,0 ) | |||
3388 | ; BSDR("N OTE") = ap pointment note from SDEC APPOI NTMENT | 3388 | ; BSDR("N OTE") = ap pointment note from SDEC APPOI NTMENT | |||
3389 | "RTN","SDE C08",411,0 ) | 3389 | "RTN","SDE C08",411,0 ) | |||
3390 | ; BSDR("L EN") = app t length i n minutes (numeric) | 3390 | ; BSDR("L EN") = app t length i n minutes (numeric) | |||
3391 | "RTN","SDE C08",412,0 ) | 3391 | "RTN","SDE C08",412,0 ) | |||
3392 | ; BSDR("R ES") = res ource | 3392 | ; BSDR("R ES") = res ource | |||
3393 | "RTN","SDE C08",413,0 ) | 3393 | "RTN","SDE C08",413,0 ) | |||
3394 | ; BSDR("W KIN")= wal k-in | 3394 | ; BSDR("W KIN")= wal k-in | |||
3395 | "RTN","SDE C08",414,0 ) | 3395 | "RTN","SDE C08",414,0 ) | |||
3396 | ; | 3396 | ; | |||
3397 | "RTN","SDE C08",415,0 ) | 3397 | "RTN","SDE C08",415,0 ) | |||
3398 | ;Output: error stat us and mes sage | 3398 | ;Output: error stat us and mes sage | |||
3399 | "RTN","SDE C08",416,0 ) | 3399 | "RTN","SDE C08",416,0 ) | |||
3400 | ; = 0 o r null: e verything okay | 3400 | ; = 0 o r null: e verything okay | |||
3401 | "RTN","SDE C08",417,0 ) | 3401 | "RTN","SDE C08",417,0 ) | |||
3402 | ; = 1^m essage: e rror and r eason | 3402 | ; = 1^m essage: e rror and r eason | |||
3403 | "RTN","SDE C08",418,0 ) | 3403 | "RTN","SDE C08",418,0 ) | |||
3404 | ; | 3404 | ; | |||
3405 | "RTN","SDE C08",419,0 ) | 3405 | "RTN","SDE C08",419,0 ) | |||
3406 | N DPTNOD, DPTNODR | 3406 | N DPTNOD, DPTNODR | |||
3407 | "RTN","SDE C08",420,0 ) | 3407 | "RTN","SDE C08",420,0 ) | |||
3408 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | 3408 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | |||
3409 | "RTN","SDE C08",421,0 ) | 3409 | "RTN","SDE C08",421,0 ) | |||
3410 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | 3410 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | |||
3411 | "RTN","SDE C08",422,0 ) | 3411 | "RTN","SDE C08",422,0 ) | |||
3412 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | 3412 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | |||
3413 | "RTN","SDE C08",423,0 ) | 3413 | "RTN","SDE C08",423,0 ) | |||
3414 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | 3414 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | |||
3415 | "RTN","SDE C08",424,0 ) | 3415 | "RTN","SDE C08",424,0 ) | |||
3416 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | 3416 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | |||
3417 | "RTN","SDE C08",425,0 ) | 3417 | "RTN","SDE C08",425,0 ) | |||
3418 | ; | 3418 | ; | |||
3419 | "RTN","SDE C08",426,0 ) | 3419 | "RTN","SDE C08",426,0 ) | |||
3420 | S SDECERR =$$APPVIST A^SDEC07B( BSDR("LEN" ),BSDR("NO TE"),BSDR( "PAT"),BSD R("RES"),B SDR("ADT") ,BSDR("WKI N"),BSDR(" CLN"),.SDE CI) ;alb/ sat 665 AP PVISTA mov ed to SDEC 07B | 3420 | S SDECERR =$$APPVIST A^SDEC07B( BSDR("LEN" ),BSDR("NO TE"),BSDR( "PAT"),BSD R("RES"),B SDR("ADT") ,BSDR("WKI N"),BSDR(" CLN"),.SDE CI) ;alb/ sat 665 AP PVISTA mov ed to SDEC 07B | |||
3421 | "RTN","SDE C08",427,0 ) | 3421 | "RTN","SDE C08",427,0 ) | |||
3422 | Q SDECERR | 3422 | Q SDECERR | |||
3423 | "RTN","SDE C08",428,0 ) | 3423 | "RTN","SDE C08",428,0 ) | |||
3424 | ; | 3424 | ; | |||
3425 | "RTN","SDE C08",429,0 ) | 3425 | "RTN","SDE C08",429,0 ) | |||
3426 | ERR(SDECI, SDECERR) ; Error proc essing | 3426 | ERR(SDECI, SDECERR) ; Error proc essing | |||
3427 | "RTN","SDE C08",430,0 ) | 3427 | "RTN","SDE C08",430,0 ) | |||
3428 | S SDECI=S DECI+1 | 3428 | S SDECI=S DECI+1 | |||
3429 | "RTN","SDE C08",431,0 ) | 3429 | "RTN","SDE C08",431,0 ) | |||
3430 | S SDECERR =$TR(SDECE RR,"^","~" ) | 3430 | S SDECERR =$TR(SDECE RR,"^","~" ) | |||
3431 | "RTN","SDE C08",432,0 ) | 3431 | "RTN","SDE C08",432,0 ) | |||
3432 | TROLLBACK | 3432 | TROLLBACK | |||
3433 | "RTN","SDE C08",433,0 ) | 3433 | "RTN","SDE C08",433,0 ) | |||
3434 | S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30) | 3434 | S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30) | |||
3435 | "RTN","SDE C08",434,0 ) | 3435 | "RTN","SDE C08",434,0 ) | |||
3436 | S SDECI=S DECI+1 | 3436 | S SDECI=S DECI+1 | |||
3437 | "RTN","SDE C08",435,0 ) | 3437 | "RTN","SDE C08",435,0 ) | |||
3438 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 3438 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
3439 | "RTN","SDE C08",436,0 ) | 3439 | "RTN","SDE C08",436,0 ) | |||
3440 | Q | 3440 | Q | |||
3441 | "RTN","SDE C08",437,0 ) | 3441 | "RTN","SDE C08",437,0 ) | |||
3442 | ; | 3442 | ; | |||
3443 | "RTN","SDE C08",438,0 ) | 3443 | "RTN","SDE C08",438,0 ) | |||
3444 | ETRAP ;EP Error trap entry | 3444 | ETRAP ;EP Error trap entry | |||
3445 | "RTN","SDE C08",439,0 ) | 3445 | "RTN","SDE C08",439,0 ) | |||
3446 | D ^%ZTER | 3446 | D ^%ZTER | |||
3447 | "RTN","SDE C08",440,0 ) | 3447 | "RTN","SDE C08",440,0 ) | |||
3448 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | 3448 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | |||
3449 | "RTN","SDE C08",441,0 ) | 3449 | "RTN","SDE C08",441,0 ) | |||
3450 | S SDECI=S DECI+1 | 3450 | S SDECI=S DECI+1 | |||
3451 | "RTN","SDE C08",442,0 ) | 3451 | "RTN","SDE C08",442,0 ) | |||
3452 | D ERR(SDE CI,"SDEC08 Error") | 3452 | D ERR(SDE CI,"SDEC08 Error") | |||
3453 | "RTN","SDE C08",443,0 ) | 3453 | "RTN","SDE C08",443,0 ) | |||
3454 | Q | 3454 | Q | |||
3455 | "RTN","SDE C25") | 3455 | "RTN","SDE C25") | |||
3456 | 0^6^B15147 2805^B1152 73682 | 3456 | 0^6^B15147 2805^B1152 73682 | |||
3457 | "RTN","SDE C25",1,0) | 3457 | "RTN","SDE C25",1,0) | |||
3458 | SDEC25 ;AL B/SAT - VI STA SCHEDU LING RPCS ;MAY 15, 2 017 | 3458 | SDEC25 ;AL B/SAT - VI STA SCHEDU LING RPCS ;MAY 15, 2 017 | |||
3459 | "RTN","SDE C25",2,0) | 3459 | "RTN","SDE C25",2,0) | |||
3460 | ;;5.3;Sch eduling;** 627,665,67 1,717**;Au g 13, 1993 ;Build 7 | 3460 | ;;5.3;Sch eduling;** 627,665,67 1,717**;Au g 13, 1993 ;Build 7 | |||
3461 | "RTN","SDE C25",3,0) | 3461 | "RTN","SDE C25",3,0) | |||
3462 | ; | 3462 | ; | |||
3463 | "RTN","SDE C25",4,0) | 3463 | "RTN","SDE C25",4,0) | |||
3464 | Q | 3464 | Q | |||
3465 | "RTN","SDE C25",5,0) | 3465 | "RTN","SDE C25",5,0) | |||
3466 | ; | 3466 | ; | |||
3467 | "RTN","SDE C25",6,0) | 3467 | "RTN","SDE C25",6,0) | |||
3468 | CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;Check i n appointm ent | 3468 | CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;Check i n appointm ent | |||
3469 | "RTN","SDE C25",7,0) | 3469 | "RTN","SDE C25",7,0) | |||
3470 | ;CHECKIN( SDECY,SDEC APTID,SDEC CDT,SDECCC ,SDECPRV,S DECROU,SDE CVCL,SDECV FM,SDECOG, SDECCR,SDE CPCC,SDECW HF) | 3470 | ;CHECKIN( SDECY,SDEC APTID,SDEC CDT,SDECCC ,SDECPRV,S DECROU,SDE CVCL,SDECV FM,SDECOG, SDECCR,SDE CPCC,SDECW HF) | |||
3471 | "RTN","SDE C25",8,0) | 3471 | "RTN","SDE C25",8,0) | |||
3472 | ; extern al paramet er tag is in SDEC | 3472 | ; extern al paramet er tag is in SDEC | |||
3473 | "RTN","SDE C25",9,0) | 3473 | "RTN","SDE C25",9,0) | |||
3474 | ; | 3474 | ; | |||
3475 | "RTN","SDE C25",10,0) | 3475 | "RTN","SDE C25",10,0) | |||
3476 | ; INPUT: SDECAPTID - (require d) Appoint ment ID | 3476 | ; INPUT: SDECAPTID - (require d) Appoint ment ID | |||
3477 | "RTN","SDE C25",11,0) | 3477 | "RTN","SDE C25",11,0) | |||
3478 | ; SDECCDT - (optiona l) Check-i n date/tim e | 3478 | ; SDECCDT - (optiona l) Check-i n date/tim e | |||
3479 | "RTN","SDE C25",12,0) | 3479 | "RTN","SDE C25",12,0) | |||
3480 | ; "@" - i ndicates d elete chec k-in | 3480 | ; "@" - i ndicates d elete chec k-in | |||
3481 | "RTN","SDE C25",13,0) | 3481 | "RTN","SDE C25",13,0) | |||
3482 | ; SDECCC - (??????? ?) Clinic Stop point er to CLIN IC STOP fi le | 3482 | ; SDECCC - (??????? ?) Clinic Stop point er to CLIN IC STOP fi le | |||
3483 | "RTN","SDE C25",14,0) | 3483 | "RTN","SDE C25",14,0) | |||
3484 | ; SDECPRV - (optiona l) Provide r pointer to NEW PER SON file | 3484 | ; SDECPRV - (optiona l) Provide r pointer to NEW PER SON file | |||
3485 | "RTN","SDE C25",15,0) | 3485 | "RTN","SDE C25",15,0) | |||
3486 | ; default to curren t user | 3486 | ; default to curren t user | |||
3487 | "RTN","SDE C25",16,0) | 3487 | "RTN","SDE C25",16,0) | |||
3488 | ; SDECROU - (optiona l) Print R outing Sli p flag, va lid values : | 3488 | ; SDECROU - (optiona l) Print R outing Sli p flag, va lid values : | |||
3489 | "RTN","SDE C25",17,0) | 3489 | "RTN","SDE C25",17,0) | |||
3490 | ; 0=fal se 1=tru e | 3490 | ; 0=fal se 1=tru e | |||
3491 | "RTN","SDE C25",18,0) | 3491 | "RTN","SDE C25",18,0) | |||
3492 | ; SDECVCL - (??????? ?) Clinic pointer to HOSPITAL LOCATION | 3492 | ; SDECVCL - (??????? ?) Clinic pointer to HOSPITAL LOCATION | |||
3493 | "RTN","SDE C25",19,0) | 3493 | "RTN","SDE C25",19,0) | |||
3494 | ; SDECVFM - FORM | 3494 | ; SDECVFM - FORM | |||
3495 | "RTN","SDE C25",20,0) | 3495 | "RTN","SDE C25",20,0) | |||
3496 | ; SDECOG - OUTGUIDE FLAG | 3496 | ; SDECOG - OUTGUIDE FLAG | |||
3497 | "RTN","SDE C25",21,0) | 3497 | "RTN","SDE C25",21,0) | |||
3498 | ; SDECCR - Generate Chart req uest upon check-in? (1-Yes, ot herwise no ) | 3498 | ; SDECCR - Generate Chart req uest upon check-in? (1-Yes, ot herwise no ) | |||
3499 | "RTN","SDE C25",22,0) | 3499 | "RTN","SDE C25",22,0) | |||
3500 | ; SDECPCC - ien of P WH Type in HEALTH SU MMARY PWH TYPE file ^APCHPWHT | 3500 | ; SDECPCC - ien of P WH Type in HEALTH SU MMARY PWH TYPE file ^APCHPWHT | |||
3501 | "RTN","SDE C25",23,0) | 3501 | "RTN","SDE C25",23,0) | |||
3502 | ; SDECWHF - Print Pa tient Well ness Hando ut flag | 3502 | ; SDECWHF - Print Pa tient Well ness Hando ut flag | |||
3503 | "RTN","SDE C25",24,0) | 3503 | "RTN","SDE C25",24,0) | |||
3504 | ; | 3504 | ; | |||
3505 | "RTN","SDE C25",25,0) | 3505 | "RTN","SDE C25",25,0) | |||
3506 | ENDBG ; | 3506 | ENDBG ; | |||
3507 | "RTN","SDE C25",26,0) | 3507 | "RTN","SDE C25",26,0) | |||
3508 | N BSDVSTN ,EMSG | 3508 | N BSDVSTN ,EMSG | |||
3509 | "RTN","SDE C25",27,0) | 3509 | "RTN","SDE C25",27,0) | |||
3510 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CIENS,SDEC VEN | 3510 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CIENS,SDEC VEN | |||
3511 | "RTN","SDE C25",28,0) | 3511 | "RTN","SDE C25",28,0) | |||
3512 | N SDECNOE V,SDECCAN, SDECR1,%DT ,X,Y | 3512 | N SDECNOE V,SDECCAN, SDECR1,%DT ,X,Y | |||
3513 | "RTN","SDE C25",29,0) | 3513 | "RTN","SDE C25",29,0) | |||
3514 | S SDECNOE V=1 ;Don't execute p rotocol | 3514 | S SDECNOE V=1 ;Don't execute p rotocol | |||
3515 | "RTN","SDE C25",30,0) | 3515 | "RTN","SDE C25",30,0) | |||
3516 | S SDECCAN =0 | 3516 | S SDECCAN =0 | |||
3517 | "RTN","SDE C25",31,0) | 3517 | "RTN","SDE C25",31,0) | |||
3518 | ; | 3518 | ; | |||
3519 | "RTN","SDE C25",32,0) | 3519 | "RTN","SDE C25",32,0) | |||
3520 | S SDECI=0 | 3520 | S SDECI=0 | |||
3521 | "RTN","SDE C25",33,0) | 3521 | "RTN","SDE C25",33,0) | |||
3522 | K ^TMP("S DEC",$J) | 3522 | K ^TMP("S DEC",$J) | |||
3523 | "RTN","SDE C25",34,0) | 3523 | "RTN","SDE C25",34,0) | |||
3524 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | 3524 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |||
3525 | "RTN","SDE C25",35,0) | 3525 | "RTN","SDE C25",35,0) | |||
3526 | S ^TMP("S DEC",$J,0) ="T00020ER RORID^T001 50MESSAGE" _$C(30) | 3526 | S ^TMP("S DEC",$J,0) ="T00020ER RORID^T001 50MESSAGE" _$C(30) | |||
3527 | "RTN","SDE C25",36,0) | 3527 | "RTN","SDE C25",36,0) | |||
3528 | ;validate SDEC appo intment ID | 3528 | ;validate SDEC appo intment ID | |||
3529 | "RTN","SDE C25",37,0) | 3529 | "RTN","SDE C25",37,0) | |||
3530 | I '+$G(SD ECAPTID) D ERR("SDEC 25: Invali d Appointm ent ID") Q | 3530 | I '+$G(SD ECAPTID) D ERR("SDEC 25: Invali d Appointm ent ID") Q | |||
3531 | "RTN","SDE C25",38,0) | 3531 | "RTN","SDE C25",38,0) | |||
3532 | I '$D(^SD EC(409.84, +SDECAPTID ,0)) D ERR ("SDEC25: Invalid Ap pointment ID") Q | 3532 | I '$D(^SD EC(409.84, +SDECAPTID ,0)) D ERR ("SDEC25: Invalid Ap pointment ID") Q | |||
3533 | "RTN","SDE C25",39,0) | 3533 | "RTN","SDE C25",39,0) | |||
3534 | ;validate checkin d ate/time ( required) | 3534 | ;validate checkin d ate/time ( required) | |||
3535 | "RTN","SDE C25",40,0) | 3535 | "RTN","SDE C25",40,0) | |||
3536 | S SDECCDT =$G(SDECCD T) | 3536 | S SDECCDT =$G(SDECCD T) | |||
3537 | "RTN","SDE C25",41,0) | 3537 | "RTN","SDE C25",41,0) | |||
3538 | S:SDECCDT ="@" SDECC AN=1 | 3538 | S:SDECCDT ="@" SDECC AN=1 | |||
3539 | "RTN","SDE C25",42,0) | 3539 | "RTN","SDE C25",42,0) | |||
3540 | I 'SDECCA N,SDECCDT' ="" S %DT= "T" S X=SD ECCDT D ^% DT S SDECC DT=Y I Y=- 1 S SDECCD T="" | 3540 | I 'SDECCA N,SDECCDT' ="" S %DT= "T" S X=SD ECCDT D ^% DT S SDECC DT=Y I Y=- 1 S SDECCD T="" | |||
3541 | "RTN","SDE C25",43,0) | 3541 | "RTN","SDE C25",43,0) | |||
3542 | I SDECCDT ="" D ERR( "SDEC25: I nvalid Che ck-In Time ") Q | 3542 | I SDECCDT ="" D ERR( "SDEC25: I nvalid Che ck-In Time ") Q | |||
3543 | "RTN","SDE C25",44,0) | 3543 | "RTN","SDE C25",44,0) | |||
3544 | ;validate clinic st op code | 3544 | ;validate clinic st op code | |||
3545 | "RTN","SDE C25",45,0) | 3545 | "RTN","SDE C25",45,0) | |||
3546 | S SDECCC= $G(SDECCC) | 3546 | S SDECCC= $G(SDECCC) | |||
3547 | "RTN","SDE C25",46,0) | 3547 | "RTN","SDE C25",46,0) | |||
3548 | I SDECCC' ="" I '$D( ^DIC(40.7, SDECCC,0)) S SDECCC= "" | 3548 | I SDECCC' ="" I '$D( ^DIC(40.7, SDECCC,0)) S SDECCC= "" | |||
3549 | "RTN","SDE C25",47,0) | 3549 | "RTN","SDE C25",47,0) | |||
3550 | ;validate provider (optional) | 3550 | ;validate provider (optional) | |||
3551 | "RTN","SDE C25",48,0) | 3551 | "RTN","SDE C25",48,0) | |||
3552 | S SDECPRV =$G(SDECPR V) | 3552 | S SDECPRV =$G(SDECPR V) | |||
3553 | "RTN","SDE C25",49,0) | 3553 | "RTN","SDE C25",49,0) | |||
3554 | I SDECPRV '="" I '$D (^VA(200,+ SDECPRV,0) ) S SDECPR V="" | 3554 | I SDECPRV '="" I '$D (^VA(200,+ SDECPRV,0) ) S SDECPR V="" | |||
3555 | "RTN","SDE C25",50,0) | 3555 | "RTN","SDE C25",50,0) | |||
3556 | ;I SDECPR V="" S SDE CPRV=DUZ | 3556 | ;I SDECPR V="" S SDE CPRV=DUZ | |||
3557 | "RTN","SDE C25",51,0) | 3557 | "RTN","SDE C25",51,0) | |||
3558 | ;I SDECPR V="" S SDE CPRV="" | 3558 | ;I SDECPR V="" S SDE CPRV="" | |||
3559 | "RTN","SDE C25",52,0) | 3559 | "RTN","SDE C25",52,0) | |||
3560 | ;validate routine s lip flag ( optional) | 3560 | ;validate routine s lip flag ( optional) | |||
3561 | "RTN","SDE C25",53,0) | 3561 | "RTN","SDE C25",53,0) | |||
3562 | S SDECROU =$$UP^XLFS TR($G(SDEC ROU)) | 3562 | S SDECROU =$$UP^XLFS TR($G(SDEC ROU)) | |||
3563 | "RTN","SDE C25",54,0) | 3563 | "RTN","SDE C25",54,0) | |||
3564 | S SDECROU =$S(SDECRO U=1:"true" ,SDECROU=" TRUE":"tru e",1:0) | 3564 | S SDECROU =$S(SDECRO U=1:"true" ,SDECROU=" TRUE":"tru e",1:0) | |||
3565 | "RTN","SDE C25",55,0) | 3565 | "RTN","SDE C25",55,0) | |||
3566 | ;validate clinic | 3566 | ;validate clinic | |||
3567 | "RTN","SDE C25",56,0) | 3567 | "RTN","SDE C25",56,0) | |||
3568 | S SDECVCL =$G(SDECVC L) | 3568 | S SDECVCL =$G(SDECVC L) | |||
3569 | "RTN","SDE C25",57,0) | 3569 | "RTN","SDE C25",57,0) | |||
3570 | I SDECVCL '="" I '$D (^SC(SDECV CL,0)) S S DECVCL="" | 3570 | I SDECVCL '="" I '$D (^SC(SDECV CL,0)) S S DECVCL="" | |||
3571 | "RTN","SDE C25",58,0) | 3571 | "RTN","SDE C25",58,0) | |||
3572 | I SDECCC= "",SDECVCL '="" S SDE CCC=$P($G( ^SC(SDECVC L,0)),U,7) ;get cl inic stop from 44 | 3572 | I SDECCC= "",SDECVCL '="" S SDE CCC=$P($G( ^SC(SDECVC L,0)),U,7) ;get cl inic stop from 44 | |||
3573 | "RTN","SDE C25",59,0) | 3573 | "RTN","SDE C25",59,0) | |||
3574 | ; | 3574 | ; | |||
3575 | "RTN","SDE C25",60,0) | 3575 | "RTN","SDE C25",60,0) | |||
3576 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 3576 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
3577 | "RTN","SDE C25",61,0) | 3577 | "RTN","SDE C25",61,0) | |||
3578 | S DFN=$P( SDECNOD,U, 5) | 3578 | S DFN=$P( SDECNOD,U, 5) | |||
3579 | "RTN","SDE C25",62,0) | 3579 | "RTN","SDE C25",62,0) | |||
3580 | S SDECPAT ID=$P(SDEC NOD,U,5) | 3580 | S SDECPAT ID=$P(SDEC NOD,U,5) | |||
3581 | "RTN","SDE C25",63,0) | 3581 | "RTN","SDE C25",63,0) | |||
3582 | S SDECSTA RT=$P(SDEC NOD,U) | 3582 | S SDECSTA RT=$P(SDEC NOD,U) | |||
3583 | "RTN","SDE C25",64,0) | 3583 | "RTN","SDE C25",64,0) | |||
3584 | ; | 3584 | ; | |||
3585 | "RTN","SDE C25",65,0) | 3585 | "RTN","SDE C25",65,0) | |||
3586 | S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID | 3586 | S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID | |||
3587 | "RTN","SDE C25",66,0) | 3587 | "RTN","SDE C25",66,0) | |||
3588 | ;if resou rceId is n ot null AN D there is a valid r esource re cord | 3588 | ;if resou rceId is n ot null AN D there is a valid r esource re cord | |||
3589 | "RTN","SDE C25",67,0) | 3589 | "RTN","SDE C25",67,0) | |||
3590 | I SDECR1] "",$D(^SDE C(409.831, SDECR1,0)) D I +$G( SDECZ) D E RR($P(SDEC Z,U,2)) Q | 3590 | I SDECR1] "",$D(^SDE C(409.831, SDECR1,0)) D I +$G( SDECZ) D E RR($P(SDEC Z,U,2)) Q | |||
3591 | "RTN","SDE C25",68,0) | 3591 | "RTN","SDE C25",68,0) | |||
3592 | . S SDECN OD=^SDEC(4 09.831,SDE CR1,0) | 3592 | . S SDECN OD=^SDEC(4 09.831,SDE CR1,0) | |||
3593 | "RTN","SDE C25",69,0) | 3593 | "RTN","SDE C25",69,0) | |||
3594 | . S SDECS C1=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | 3594 | . S SDECS C1=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | |||
3595 | "RTN","SDE C25",70,0) | 3595 | "RTN","SDE C25",70,0) | |||
3596 | . ;Hospit al Locatio n is requi red for CH ECKIN | 3596 | . ;Hospit al Locatio n is requi red for CH ECKIN | |||
3597 | "RTN","SDE C25",71,0) | 3597 | "RTN","SDE C25",71,0) | |||
3598 | . ;I 'SDE CSC1]"",'$ D(^SC(+SDE CSC1,0)) D ERR("SDEC 25: Clinic not defin ed for thi s Resource : "_$P(SDE CNOD,U,1)_ " ("_SDECS C1_")") Q | 3598 | . ;I 'SDE CSC1]"",'$ D(^SC(+SDE CSC1,0)) D ERR("SDEC 25: Clinic not defin ed for thi s Resource : "_$P(SDE CNOD,U,1)_ " ("_SDECS C1_")") Q | |||
3599 | "RTN","SDE C25",72,0) | 3599 | "RTN","SDE C25",72,0) | |||
3600 | . I 'SDEC SC1]"",'$D (^SC(+SDEC SC1,0)) D ERR("Clini c not defi ned for th is Resourc e: "_$P(SD ECNOD,U,1) _" ("_SDEC SC1_")") Q | 3600 | . I 'SDEC SC1]"",'$D (^SC(+SDEC SC1,0)) D ERR("Clini c not defi ned for th is Resourc e: "_$P(SD ECNOD,U,1) _" ("_SDEC SC1_")") Q | |||
3601 | "RTN","SDE C25",73,0) | 3601 | "RTN","SDE C25",73,0) | |||
3602 | . ; | 3602 | . ; | |||
3603 | "RTN","SDE C25",74,0) | 3603 | "RTN","SDE C25",74,0) | |||
3604 | . ; Even t driver " BEFORE" ac tions - wt c SD*5.3*7 17 10/24/1 8 | 3604 | . ; Even t driver " BEFORE" ac tions - wt c SD*5.3*7 17 10/24/1 8 | |||
3605 | "RTN","SDE C25",75,0) | 3605 | "RTN","SDE C25",75,0) | |||
3606 | . ; | 3606 | . ; | |||
3607 | "RTN","SDE C25",76,0) | 3607 | "RTN","SDE C25",76,0) | |||
3608 | . N SDATA ,SDDA,SDCI HDL ; | 3608 | . N SDATA ,SDDA,SDCI HDL ; | |||
3609 | "RTN","SDE C25",77,0) | 3609 | "RTN","SDE C25",77,0) | |||
3610 | . S SDDA= $$FIND(DFN ,SDECSTART ,SDECSC1), SDATA=SDDA _U_DFN_U_S DECSTART_U _SDECSC1,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | 3610 | . S SDDA= $$FIND(DFN ,SDECSTART ,SDECSC1), SDATA=SDDA _U_DFN_U_S DECSTART_U _SDECSC1,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | |||
3611 | "RTN","SDE C25",78,0) | 3611 | "RTN","SDE C25",78,0) | |||
3612 | . D BEFOR E^SDAMEVT( .SDATA,DFN ,SDECSTART ,SDECSC1,S DDA,SDCIHD L) ; | 3612 | . D BEFOR E^SDAMEVT( .SDATA,DFN ,SDECSTART ,SDECSC1,S DDA,SDCIHD L) ; | |||
3613 | "RTN","SDE C25",79,0) | 3613 | "RTN","SDE C25",79,0) | |||
3614 | . ; | 3614 | . ; | |||
3615 | "RTN","SDE C25",80,0) | 3615 | "RTN","SDE C25",80,0) | |||
3616 | . I 'SDEC CAN D ; | 3616 | . I 'SDEC CAN D ; | |||
3617 | "RTN","SDE C25",81,0) | 3617 | "RTN","SDE C25",81,0) | |||
3618 | .. ; | 3618 | .. ; | |||
3619 | "RTN","SDE C25",82,0) | 3619 | "RTN","SDE C25",82,0) | |||
3620 | .. ; Che ckin SDEC APPOINTMEN T entry - wtc SD*5.3 *717 10/24 /18 | 3620 | .. ; Che ckin SDEC APPOINTMEN T entry - wtc SD*5.3 *717 10/24 /18 | |||
3621 | "RTN","SDE C25",83,0) | 3621 | "RTN","SDE C25",83,0) | |||
3622 | .. ; | 3622 | .. ; | |||
3623 | "RTN","SDE C25",84,0) | 3623 | "RTN","SDE C25",84,0) | |||
3624 | .. D SDEC CHK(SDECAP TID,SDECCD T) ; sets field .03 (Checkin), in file 4 09.84 | 3624 | .. D SDEC CHK(SDECAP TID,SDECCD T) ; sets field .03 (Checkin), in file 4 09.84 | |||
3625 | "RTN","SDE C25",85,0) | 3625 | "RTN","SDE C25",85,0) | |||
3626 | .. D APCH K(.SDECZ,S DECSC1,SDE CPATID,SDE CCDT,SDECS TART) | 3626 | .. D APCH K(.SDECZ,S DECSC1,SDE CPATID,SDE CCDT,SDECS TART) | |||
3627 | "RTN","SDE C25",86,0) | 3627 | "RTN","SDE C25",86,0) | |||
3628 | .. I $G(S DECPRV) S DIE="^SDEC (409.84,", DA=SDECAPT ID,DR=".16 ///"_SDECP RV D ^DIE | 3628 | .. I $G(S DECPRV) S DIE="^SDEC (409.84,", DA=SDECAPT ID,DR=".16 ///"_SDECP RV D ^DIE | |||
3629 | "RTN","SDE C25",87,0) | 3629 | "RTN","SDE C25",87,0) | |||
3630 | . ; | 3630 | . ; | |||
3631 | "RTN","SDE C25",88,0) | 3631 | "RTN","SDE C25",88,0) | |||
3632 | . I SDECC AN D ; | 3632 | . I SDECC AN D ; | |||
3633 | "RTN","SDE C25",89,0) | 3633 | "RTN","SDE C25",89,0) | |||
3634 | .. ; | 3634 | .. ; | |||
3635 | "RTN","SDE C25",90,0) | 3635 | "RTN","SDE C25",90,0) | |||
3636 | .. ; Can cel check in - wtc S D*5.3*717 10/24/18 | 3636 | .. ; Can cel check in - wtc S D*5.3*717 10/24/18 | |||
3637 | "RTN","SDE C25",91,0) | 3637 | "RTN","SDE C25",91,0) | |||
3638 | .. ; | 3638 | .. ; | |||
3639 | "RTN","SDE C25",92,0) | 3639 | "RTN","SDE C25",92,0) | |||
3640 | .. D SDEC CHK(SDECAP TID,"") ; sets field .03 (Chec kin), in f ile 409.84 | 3640 | .. D SDEC CHK(SDECAP TID,"") ; sets field .03 (Chec kin), in f ile 409.84 | |||
3641 | "RTN","SDE C25",93,0) | 3641 | "RTN","SDE C25",93,0) | |||
3642 | .. D CANC HKIN(SDECP ATID,SDECS C1,SDECSTA RT) ; | 3642 | .. D CANC HKIN(SDECP ATID,SDECS C1,SDECSTA RT) ; | |||
3643 | "RTN","SDE C25",94,0) | 3643 | "RTN","SDE C25",94,0) | |||
3644 | . ; | 3644 | . ; | |||
3645 | "RTN","SDE C25",95,0) | 3645 | "RTN","SDE C25",95,0) | |||
3646 | . ; Even t driver " AFTER" act ions - wtc SD*5.3*71 7 10/24/18 | 3646 | . ; Even t driver " AFTER" act ions - wtc SD*5.3*71 7 10/24/18 | |||
3647 | "RTN","SDE C25",96,0) | 3647 | "RTN","SDE C25",96,0) | |||
3648 | . ; | 3648 | . ; | |||
3649 | "RTN","SDE C25",97,0) | 3649 | "RTN","SDE C25",97,0) | |||
3650 | . D AFTER ^SDAMEVT(. SDATA,DFN, SDECSTART, SDECSC1,SD DA,SDCIHDL ) ; | 3650 | . D AFTER ^SDAMEVT(. SDATA,DFN, SDECSTART, SDECSC1,SD DA,SDCIHDL ) ; | |||
3651 | "RTN","SDE C25",98,0) | 3651 | "RTN","SDE C25",98,0) | |||
3652 | . ; | 3652 | . ; | |||
3653 | "RTN","SDE C25",99,0) | 3653 | "RTN","SDE C25",99,0) | |||
3654 | . ; Exec ute event driver. 4 =check in (see #409. 66), 2=non -interacti ve - wtc S D*5.3*717 10/25/18 | 3654 | . ; Exec ute event driver. 4 =check in (see #409. 66), 2=non -interacti ve - wtc S D*5.3*717 10/25/18 | |||
3655 | "RTN","SDE C25",100,0 ) | 3655 | "RTN","SDE C25",100,0 ) | |||
3656 | . ; | 3656 | . ; | |||
3657 | "RTN","SDE C25",101,0 ) | 3657 | "RTN","SDE C25",101,0 ) | |||
3658 | . ;*zeb+1 717 3/19/ 19 prevent extra can cel check- in when ca nceling a checked-in appointme nt | 3658 | . ;*zeb+1 717 3/19/ 19 prevent extra can cel check- in when ca nceling a checked-in appointme nt | |||
3659 | "RTN","SDE C25",102,0 ) | 3659 | "RTN","SDE C25",102,0 ) | |||
3660 | . I '((SD ECCDT="@") &($G(SDECT YP)]"")) D EVT^SDAME VT(.SDATA, 4,2,SDCIHD L) ;assume s SDECTYP, which is defined if coming fr om APPDEL^ SDEC08 | 3660 | . I '((SD ECCDT="@") &($G(SDECT YP)]"")) D EVT^SDAME VT(.SDATA, 4,2,SDCIHD L) ;assume s SDECTYP, which is defined if coming fr om APPDEL^ SDEC08 | |||
3661 | "RTN","SDE C25",103,0 ) | 3661 | "RTN","SDE C25",103,0 ) | |||
3662 | ; | 3662 | ; | |||
3663 | "RTN","SDE C25",104,0 ) | 3663 | "RTN","SDE C25",104,0 ) | |||
3664 | S SDECI=S DECI+1 | 3664 | S SDECI=S DECI+1 | |||
3665 | "RTN","SDE C25",105,0 ) | 3665 | "RTN","SDE C25",105,0 ) | |||
3666 | S ^TMP("S DEC",$J,SD ECI)="0^"_ $S($G(EMSG )'="":EMSG ,1:"")_$C( 30) | 3666 | S ^TMP("S DEC",$J,SD ECI)="0^"_ $S($G(EMSG )'="":EMSG ,1:"")_$C( 30) | |||
3667 | "RTN","SDE C25",106,0 ) | 3667 | "RTN","SDE C25",106,0 ) | |||
3668 | S SDECI=S DECI+1 | 3668 | S SDECI=S DECI+1 | |||
3669 | "RTN","SDE C25",107,0 ) | 3669 | "RTN","SDE C25",107,0 ) | |||
3670 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 3670 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
3671 | "RTN","SDE C25",108,0 ) | 3671 | "RTN","SDE C25",108,0 ) | |||
3672 | Q | 3672 | Q | |||
3673 | "RTN","SDE C25",109,0 ) | 3673 | "RTN","SDE C25",109,0 ) | |||
3674 | ; | 3674 | ; | |||
3675 | "RTN","SDE C25",110,0 ) | 3675 | "RTN","SDE C25",110,0 ) | |||
3676 | SDECCHK(SD ECAPTID,SD ECCDT) ; | 3676 | SDECCHK(SD ECAPTID,SD ECCDT) ; | |||
3677 | "RTN","SDE C25",111,0 ) | 3677 | "RTN","SDE C25",111,0 ) | |||
3678 | N SDECFDA ,SDECMSG | 3678 | N SDECFDA ,SDECMSG | |||
3679 | "RTN","SDE C25",112,0 ) | 3679 | "RTN","SDE C25",112,0 ) | |||
3680 | S SDECIEN S=SDECAPTI D_"," | 3680 | S SDECIEN S=SDECAPTI D_"," | |||
3681 | "RTN","SDE C25",113,0 ) | 3681 | "RTN","SDE C25",113,0 ) | |||
3682 | S SDECFDA (409.84,SD ECIENS,.03 )=SDECCDT | 3682 | S SDECFDA (409.84,SD ECIENS,.03 )=SDECCDT | |||
3683 | "RTN","SDE C25",114,0 ) | 3683 | "RTN","SDE C25",114,0 ) | |||
3684 | S SDECFDA (409.84,SD ECIENS,.04 )=$S(SDECC DT'="":$$N OW^XLFDT,1 :"") | 3684 | S SDECFDA (409.84,SD ECIENS,.04 )=$S(SDECC DT'="":$$N OW^XLFDT,1 :"") | |||
3685 | "RTN","SDE C25",115,0 ) | 3685 | "RTN","SDE C25",115,0 ) | |||
3686 | D FILE^DI E("","SDEC FDA","SDEC MSG") | 3686 | D FILE^DI E("","SDEC FDA","SDEC MSG") | |||
3687 | "RTN","SDE C25",116,0 ) | 3687 | "RTN","SDE C25",116,0 ) | |||
3688 | Q | 3688 | Q | |||
3689 | "RTN","SDE C25",117,0 ) | 3689 | "RTN","SDE C25",117,0 ) | |||
3690 | ; | 3690 | ; | |||
3691 | "RTN","SDE C25",118,0 ) | 3691 | "RTN","SDE C25",118,0 ) | |||
3692 | APCHK(SDEC Z,SDECSC1, SDECDFN,SD ECCDT,SDEC START) ; | 3692 | APCHK(SDEC Z,SDECSC1, SDECDFN,SD ECCDT,SDEC START) ; | |||
3693 | "RTN","SDE C25",119,0 ) | 3693 | "RTN","SDE C25",119,0 ) | |||
3694 | ;Checkin appointmen t for pati ent SDECDF N in clini c SDECSC1 | 3694 | ;Checkin appointmen t for pati ent SDECDF N in clini c SDECSC1 | |||
3695 | "RTN","SDE C25",120,0 ) | 3695 | "RTN","SDE C25",120,0 ) | |||
3696 | ;at time SDECSD | 3696 | ;at time SDECSD | |||
3697 | "RTN","SDE C25",121,0 ) | 3697 | "RTN","SDE C25",121,0 ) | |||
3698 | N APTN,BS DMSG,SDECC | 3698 | N APTN,BS DMSG,SDECC | |||
3699 | "RTN","SDE C25",122,0 ) | 3699 | "RTN","SDE C25",122,0 ) | |||
3700 | S SDECC(" PAT")=SDEC PATID | 3700 | S SDECC(" PAT")=SDEC PATID | |||
3701 | "RTN","SDE C25",123,0 ) | 3701 | "RTN","SDE C25",123,0 ) | |||
3702 | S SDECC(" HOS LOC")= SDECSC1 | 3702 | S SDECC(" HOS LOC")= SDECSC1 | |||
3703 | "RTN","SDE C25",124,0 ) | 3703 | "RTN","SDE C25",124,0 ) | |||
3704 | S SDECC(" CLINIC COD E")=SDECCC | 3704 | S SDECC(" CLINIC COD E")=SDECCC | |||
3705 | "RTN","SDE C25",125,0 ) | 3705 | "RTN","SDE C25",125,0 ) | |||
3706 | S SDECC(" PROVIDER") =SDECPRV | 3706 | S SDECC(" PROVIDER") =SDECPRV | |||
3707 | "RTN","SDE C25",126,0 ) | 3707 | "RTN","SDE C25",126,0 ) | |||
3708 | S SDECC(" APPT DATE" )=SDECSTAR T | 3708 | S SDECC(" APPT DATE" )=SDECSTAR T | |||
3709 | "RTN","SDE C25",127,0 ) | 3709 | "RTN","SDE C25",127,0 ) | |||
3710 | S SDECC(" CDT")=SDEC CDT | 3710 | S SDECC(" CDT")=SDEC CDT | |||
3711 | "RTN","SDE C25",128,0 ) | 3711 | "RTN","SDE C25",128,0 ) | |||
3712 | S SDECC(" USR")=DUZ | 3712 | S SDECC(" USR")=DUZ | |||
3713 | "RTN","SDE C25",129,0 ) | 3713 | "RTN","SDE C25",129,0 ) | |||
3714 | ;find IEN in ^SC mu ltiple or null | 3714 | ;find IEN in ^SC mu ltiple or null | |||
3715 | "RTN","SDE C25",130,0 ) | 3715 | "RTN","SDE C25",130,0 ) | |||
3716 | S APTN=$$ FIND^SDAM2 (SDECC("PA T"),SDECC( "APPT DATE "),SDECC(" HOS LOC")) | 3716 | S APTN=$$ FIND^SDAM2 (SDECC("PA T"),SDECC( "APPT DATE "),SDECC(" HOS LOC")) | |||
3717 | "RTN","SDE C25",131,0 ) | 3717 | "RTN","SDE C25",131,0 ) | |||
3718 | ; | 3718 | ; | |||
3719 | "RTN","SDE C25",132,0 ) | 3719 | "RTN","SDE C25",132,0 ) | |||
3720 | ;Required by NEW AP I: | 3720 | ;Required by NEW AP I: | |||
3721 | "RTN","SDE C25",133,0 ) | 3721 | "RTN","SDE C25",133,0 ) | |||
3722 | S SDECC(" SRV CAT")= "A" | 3722 | S SDECC(" SRV CAT")= "A" | |||
3723 | "RTN","SDE C25",134,0 ) | 3723 | "RTN","SDE C25",134,0 ) | |||
3724 | S SDECC(" TIME RANGE ")=-1 | 3724 | S SDECC(" TIME RANGE ")=-1 | |||
3725 | "RTN","SDE C25",135,0 ) | 3725 | "RTN","SDE C25",135,0 ) | |||
3726 | S SDECC(" VISIT DATE ")=SDECCDT | 3726 | S SDECC(" VISIT DATE ")=SDECCDT | |||
3727 | "RTN","SDE C25",136,0 ) | 3727 | "RTN","SDE C25",136,0 ) | |||
3728 | S SDECC(" SITE")=$G( DUZ(2)) | 3728 | S SDECC(" SITE")=$G( DUZ(2)) | |||
3729 | "RTN","SDE C25",137,0 ) | 3729 | "RTN","SDE C25",137,0 ) | |||
3730 | S SDECC(" VISIT TYPE ")="V" | 3730 | S SDECC(" VISIT TYPE ")="V" | |||
3731 | "RTN","SDE C25",138,0 ) | 3731 | "RTN","SDE C25",138,0 ) | |||
3732 | S SDECC(" CLN")=SDEC C("HOS LOC ") | 3732 | S SDECC(" CLN")=SDEC C("HOS LOC ") | |||
3733 | "RTN","SDE C25",139,0 ) | 3733 | "RTN","SDE C25",139,0 ) | |||
3734 | S SDECC(" ADT")=SDEC C("APPT DA TE") | 3734 | S SDECC(" ADT")=SDEC C("APPT DA TE") | |||
3735 | "RTN","SDE C25",140,0 ) | 3735 | "RTN","SDE C25",140,0 ) | |||
3736 | ; | 3736 | ; | |||
3737 | "RTN","SDE C25",141,0 ) | 3737 | "RTN","SDE C25",141,0 ) | |||
3738 | ;Set up S DECVEN arr ay contain ing VEN EH P CLINIC, VEN EHP FO RM, OUTGUI DE FLAG | 3738 | ;Set up S DECVEN arr ay contain ing VEN EH P CLINIC, VEN EHP FO RM, OUTGUI DE FLAG | |||
3739 | "RTN","SDE C25",142,0 ) | 3739 | "RTN","SDE C25",142,0 ) | |||
3740 | ;These va lues come from input param | 3740 | ;These va lues come from input param | |||
3741 | "RTN","SDE C25",143,0 ) | 3741 | "RTN","SDE C25",143,0 ) | |||
3742 | S SDECVEN ("CLINIC") =SDECVCL | 3742 | S SDECVEN ("CLINIC") =SDECVCL | |||
3743 | "RTN","SDE C25",144,0 ) | 3743 | "RTN","SDE C25",144,0 ) | |||
3744 | S SDECVEN ("FORM")=S DECVFM | 3744 | S SDECVEN ("FORM")=S DECVFM | |||
3745 | "RTN","SDE C25",145,0 ) | 3745 | "RTN","SDE C25",145,0 ) | |||
3746 | S SDECVEN ("OUTGUIDE ")=SDECOG | 3746 | S SDECVEN ("OUTGUIDE ")=SDECOG | |||
3747 | "RTN","SDE C25",146,0 ) | 3747 | "RTN","SDE C25",146,0 ) | |||
3748 | ; | 3748 | ; | |||
3749 | "RTN","SDE C25",147,0 ) | 3749 | "RTN","SDE C25",147,0 ) | |||
3750 | N SDECOUT | 3750 | N SDECOUT | |||
3751 | "RTN","SDE C25",148,0 ) | 3751 | "RTN","SDE C25",148,0 ) | |||
3752 | D GETVISI T^SDECAPI4 (.SDECC,.S DECOUT) | 3752 | D GETVISI T^SDECAPI4 (.SDECC,.S DECOUT) | |||
3753 | "RTN","SDE C25",149,0 ) | 3753 | "RTN","SDE C25",149,0 ) | |||
3754 | ;K SDECC | 3754 | ;K SDECC | |||
3755 | "RTN","SDE C25",150,0 ) | 3755 | "RTN","SDE C25",150,0 ) | |||
3756 | ;I SDECOU T(0)=1 S B SDVSTN=$O( SDECOUT(0) ) ;if match found, set visit IEN | 3756 | ;I SDECOU T(0)=1 S B SDVSTN=$O( SDECOUT(0) ) ;if match found, set visit IEN | |||
3757 | "RTN","SDE C25",151,0 ) | 3757 | "RTN","SDE C25",151,0 ) | |||
3758 | ;D VISIT^ SDECV(SDEC C("HOS LOC "),SDECC(" APPT DATE" ),APTN,SDE CC("PAT"), SDECC("CLI NIC CODE") ,SDECC("PR OVIDER"),, .BSDMSG,.B SDVSTN,.SD ECC) ;re place GETV ISIT^SDECA PI4 to mak e sure all visit dat a is updat ed | 3758 | ;D VISIT^ SDECV(SDEC C("HOS LOC "),SDECC(" APPT DATE" ),APTN,SDE CC("PAT"), SDECC("CLI NIC CODE") ,SDECC("PR OVIDER"),, .BSDMSG,.B SDVSTN,.SD ECC) ;re place GETV ISIT^SDECA PI4 to mak e sure all visit dat a is updat ed | |||
3759 | "RTN","SDE C25",152,0 ) | 3759 | "RTN","SDE C25",152,0 ) | |||
3760 | Q | 3760 | Q | |||
3761 | "RTN","SDE C25",153,0 ) | 3761 | "RTN","SDE C25",153,0 ) | |||
3762 | ; | 3762 | ; | |||
3763 | "RTN","SDE C25",154,0 ) | 3763 | "RTN","SDE C25",154,0 ) | |||
3764 | CANCHKIN(D FN,SDCL,SD T) ; Logic to cancel a checkin if the ch eckin date /time is p assed in a s '@' | 3764 | CANCHKIN(D FN,SDCL,SD T) ; Logic to cancel a checkin if the ch eckin date /time is p assed in a s '@' | |||
3765 | "RTN","SDE C25",155,0 ) | 3765 | "RTN","SDE C25",155,0 ) | |||
3766 | ; input: DFN := if n of patie nt | 3766 | ; input: DFN := if n of patie nt | |||
3767 | "RTN","SDE C25",156,0 ) | 3767 | "RTN","SDE C25",156,0 ) | |||
3768 | ; SDCL := cl inic# | 3768 | ; SDCL := cl inic# | |||
3769 | "RTN","SDE C25",157,0 ) | 3769 | "RTN","SDE C25",157,0 ) | |||
3770 | ; SDT := ap pt d/t | 3770 | ; SDT := ap pt d/t | |||
3771 | "RTN","SDE C25",158,0 ) | 3771 | "RTN","SDE C25",158,0 ) | |||
3772 | ; | 3772 | ; | |||
3773 | "RTN","SDE C25",159,0 ) | 3773 | "RTN","SDE C25",159,0 ) | |||
3774 | N SDDA | 3774 | N SDDA | |||
3775 | "RTN","SDE C25",160,0 ) | 3775 | "RTN","SDE C25",160,0 ) | |||
3776 | S SDDA=$$ FIND(DFN,S DT,SDCL) | 3776 | S SDDA=$$ FIND(DFN,S DT,SDCL) | |||
3777 | "RTN","SDE C25",161,0 ) | 3777 | "RTN","SDE C25",161,0 ) | |||
3778 | ;I 'SDDA D ERR("SDE C25: Could not locat e appointm ent in dat abase or a ppointment is cancel led.") Q | 3778 | ;I 'SDDA D ERR("SDE C25: Could not locat e appointm ent in dat abase or a ppointment is cancel led.") Q | |||
3779 | "RTN","SDE C25",162,0 ) | 3779 | "RTN","SDE C25",162,0 ) | |||
3780 | ;I 'SDDA D ERR("Cou ld not loc ate appoin tment in d atabase or appointme nt is canc elled.") Q | 3780 | ;I 'SDDA D ERR("Cou ld not loc ate appoin tment in d atabase or appointme nt is canc elled.") Q | |||
3781 | "RTN","SDE C25",163,0 ) | 3781 | "RTN","SDE C25",163,0 ) | |||
3782 | ; | 3782 | ; | |||
3783 | "RTN","SDE C25",164,0 ) | 3783 | "RTN","SDE C25",164,0 ) | |||
3784 | ; Disabl ed event d river call s as they are presen t above in CHECKIN. SD*5.3*71 7 wtc 10/2 5/2018 | 3784 | ; Disabl ed event d river call s as they are presen t above in CHECKIN. SD*5.3*71 7 wtc 10/2 5/2018 | |||
3785 | "RTN","SDE C25",165,0 ) | 3785 | "RTN","SDE C25",165,0 ) | |||
3786 | ; | 3786 | ; | |||
3787 | "RTN","SDE C25",166,0 ) | 3787 | "RTN","SDE C25",166,0 ) | |||
3788 | ;N SDATA, SDCIHDL,X S SDATA=SD DA_U_DFN_U _SDT_U_SDC L,SDCIHDL= $$HANDLE^S DAMEVT(1) | 3788 | ;N SDATA, SDCIHDL,X S SDATA=SD DA_U_DFN_U _SDT_U_SDC L,SDCIHDL= $$HANDLE^S DAMEVT(1) | |||
3789 | "RTN","SDE C25",167,0 ) | 3789 | "RTN","SDE C25",167,0 ) | |||
3790 | ;D BEFORE ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) | 3790 | ;D BEFORE ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) | |||
3791 | "RTN","SDE C25",168,0 ) | 3791 | "RTN","SDE C25",168,0 ) | |||
3792 | S FDA(44. 003,SDDA_" ,"_SDT_"," _SDCL_",", 309)="" D FILE^DIE(, "FDA","ERR ") | 3792 | S FDA(44. 003,SDDA_" ,"_SDT_"," _SDCL_",", 309)="" D FILE^DIE(, "FDA","ERR ") | |||
3793 | "RTN","SDE C25",169,0 ) | 3793 | "RTN","SDE C25",169,0 ) | |||
3794 | ;D AFTER^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) | 3794 | ;D AFTER^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) | |||
3795 | "RTN","SDE C25",170,0 ) | 3795 | "RTN","SDE C25",170,0 ) | |||
3796 | ;D CHKEVT D(DFN,SDT, SDCL) | 3796 | ;D CHKEVT D(DFN,SDT, SDCL) | |||
3797 | "RTN","SDE C25",171,0 ) | 3797 | "RTN","SDE C25",171,0 ) | |||
3798 | K FDA,ERR | 3798 | K FDA,ERR | |||
3799 | "RTN","SDE C25",172,0 ) | 3799 | "RTN","SDE C25",172,0 ) | |||
3800 | Q | 3800 | Q | |||
3801 | "RTN","SDE C25",173,0 ) | 3801 | "RTN","SDE C25",173,0 ) | |||
3802 | ; | 3802 | ; | |||
3803 | "RTN","SDE C25",174,0 ) | 3803 | "RTN","SDE C25",174,0 ) | |||
3804 | FIND(DFN,S DT,SDCL) ; -- return appt ifn for pat | 3804 | FIND(DFN,S DT,SDCL) ; -- return appt ifn for pat | |||
3805 | "RTN","SDE C25",175,0 ) | 3805 | "RTN","SDE C25",175,0 ) | |||
3806 | ; input : D FN := ifn of pat. | 3806 | ; input : D FN := ifn of pat. | |||
3807 | "RTN","SDE C25",176,0 ) | 3807 | "RTN","SDE C25",176,0 ) | |||
3808 | ; S DT := appt d/t | 3808 | ; S DT := appt d/t | |||
3809 | "RTN","SDE C25",177,0 ) | 3809 | "RTN","SDE C25",177,0 ) | |||
3810 | ; SD CL := ifn of clinic | 3810 | ; SD CL := ifn of clinic | |||
3811 | "RTN","SDE C25",178,0 ) | 3811 | "RTN","SDE C25",178,0 ) | |||
3812 | ; output : [returne d] := ifn if pat has appt on d ate/time | 3812 | ; output : [returne d] := ifn if pat has appt on d ate/time | |||
3813 | "RTN","SDE C25",179,0 ) | 3813 | "RTN","SDE C25",179,0 ) | |||
3814 | ; | 3814 | ; | |||
3815 | "RTN","SDE C25",180,0 ) | 3815 | "RTN","SDE C25",180,0 ) | |||
3816 | N Y | 3816 | N Y | |||
3817 | "RTN","SDE C25",181,0 ) | 3817 | "RTN","SDE C25",181,0 ) | |||
3818 | S Y=0 F S Y=$O(^SC (SDCL,"S", SDT,1,Y)) Q:'Y I $D (^(Y,0)),D FN=+^(0),$ D(^DPT(+DF N,"S",SDT, 0)),$$VALI D(DFN,SDCL ,SDT,Y) Q | 3818 | S Y=0 F S Y=$O(^SC (SDCL,"S", SDT,1,Y)) Q:'Y I $D (^(Y,0)),D FN=+^(0),$ D(^DPT(+DF N,"S",SDT, 0)),$$VALI D(DFN,SDCL ,SDT,Y) Q | |||
3819 | "RTN","SDE C25",182,0 ) | 3819 | "RTN","SDE C25",182,0 ) | |||
3820 | Q Y | 3820 | Q Y | |||
3821 | "RTN","SDE C25",183,0 ) | 3821 | "RTN","SDE C25",183,0 ) | |||
3822 | ; | 3822 | ; | |||
3823 | "RTN","SDE C25",184,0 ) | 3823 | "RTN","SDE C25",184,0 ) | |||
3824 | VALID(DFN, SDCL,SDT,S DDA) ; -- return val id appt. | 3824 | VALID(DFN, SDCL,SDT,S DDA) ; -- return val id appt. | |||
3825 | "RTN","SDE C25",185,0 ) | 3825 | "RTN","SDE C25",185,0 ) | |||
3826 | ; **NOTE: For spee d consider ation the ^SC and ^D PT nodes m ust be | 3826 | ; **NOTE: For spee d consider ation the ^SC and ^D PT nodes m ust be | |||
3827 | "RTN","SDE C25",186,0 ) | 3827 | "RTN","SDE C25",186,0 ) | |||
3828 | ; check to see they exist prio r to calli ng this en try point. | 3828 | ; check to see they exist prio r to calli ng this en try point. | |||
3829 | "RTN","SDE C25",187,0 ) | 3829 | "RTN","SDE C25",187,0 ) | |||
3830 | ; input : D FN := ifn of pat. | 3830 | ; input : D FN := ifn of pat. | |||
3831 | "RTN","SDE C25",188,0 ) | 3831 | "RTN","SDE C25",188,0 ) | |||
3832 | ; S DT := appt d/t | 3832 | ; S DT := appt d/t | |||
3833 | "RTN","SDE C25",189,0 ) | 3833 | "RTN","SDE C25",189,0 ) | |||
3834 | ; SD CL := ifn of clinic | 3834 | ; SD CL := ifn of clinic | |||
3835 | "RTN","SDE C25",190,0 ) | 3835 | "RTN","SDE C25",190,0 ) | |||
3836 | ; SD DA := ifn of appt | 3836 | ; SD DA := ifn of appt | |||
3837 | "RTN","SDE C25",191,0 ) | 3837 | "RTN","SDE C25",191,0 ) | |||
3838 | ; output : [returne d] := 1 fo r valid ap pt., 0 for not valid | 3838 | ; output : [returne d] := 1 fo r valid ap pt., 0 for not valid | |||
3839 | "RTN","SDE C25",192,0 ) | 3839 | "RTN","SDE C25",192,0 ) | |||
3840 | Q $S($P(^ SC(SDCL,"S ",SDT,1,SD DA,0),U,9) '="C":1,$P (^DPT(DFN, "S",SDT,0) ,U,2)["C": 1,1:0) | 3840 | Q $S($P(^ SC(SDCL,"S ",SDT,1,SD DA,0),U,9) '="C":1,$P (^DPT(DFN, "S",SDT,0) ,U,2)["C": 1,1:0) | |||
3841 | "RTN","SDE C25",193,0 ) | 3841 | "RTN","SDE C25",193,0 ) | |||
3842 | ; | 3842 | ; | |||
3843 | "RTN","SDE C25",194,0 ) | 3843 | "RTN","SDE C25",194,0 ) | |||
3844 | CHKEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CHECKIN APPOINTMEN T event | 3844 | CHKEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CHECKIN APPOINTMEN T event | |||
3845 | "RTN","SDE C25",195,0 ) | 3845 | "RTN","SDE C25",195,0 ) | |||
3846 | ;when app ointments CHECKIN vi a PIMS int erface. | 3846 | ;when app ointments CHECKIN vi a PIMS int erface. | |||
3847 | "RTN","SDE C25",196,0 ) | 3847 | "RTN","SDE C25",196,0 ) | |||
3848 | ;Propagat es CHECKIN to SDECAP PT and rai ses refres h event to running G UI clients | 3848 | ;Propagat es CHECKIN to SDECAP PT and rai ses refres h event to running G UI clients | |||
3849 | "RTN","SDE C25",197,0 ) | 3849 | "RTN","SDE C25",197,0 ) | |||
3850 | ; | 3850 | ; | |||
3851 | "RTN","SDE C25",198,0 ) | 3851 | "RTN","SDE C25",198,0 ) | |||
3852 | Q:+$G(SDE CNOEV) | 3852 | Q:+$G(SDE CNOEV) | |||
3853 | "RTN","SDE C25",199,0 ) | 3853 | "RTN","SDE C25",199,0 ) | |||
3854 | Q:'+$G(SD ECSC) | 3854 | Q:'+$G(SD ECSC) | |||
3855 | "RTN","SDE C25",200,0 ) | 3855 | "RTN","SDE C25",200,0 ) | |||
3856 | N SDECSTA T,SDECFOUN D,SDECRES | 3856 | N SDECSTA T,SDECFOUN D,SDECRES | |||
3857 | "RTN","SDE C25",201,0 ) | 3857 | "RTN","SDE C25",201,0 ) | |||
3858 | S SDECSTA T="" | 3858 | S SDECSTA T="" | |||
3859 | "RTN","SDE C25",202,0 ) | 3859 | "RTN","SDE C25",202,0 ) | |||
3860 | S:$G(SDAT A("AFTER", "STATUS")) ["CHECKED IN" SDECST AT=$P(SDAT A("AFTER", "STATUS"), "^",4) | 3860 | S:$G(SDAT A("AFTER", "STATUS")) ["CHECKED IN" SDECST AT=$P(SDAT A("AFTER", "STATUS"), "^",4) | |||
3861 | "RTN","SDE C25",203,0 ) | 3861 | "RTN","SDE C25",203,0 ) | |||
3862 | S SDECFOU ND=0 | 3862 | S SDECFOU ND=0 | |||
3863 | "RTN","SDE C25",204,0 ) | 3863 | "RTN","SDE C25",204,0 ) | |||
3864 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$CHKEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT) | 3864 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$CHKEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT) | |||
3865 | "RTN","SDE C25",205,0 ) | 3865 | "RTN","SDE C25",205,0 ) | |||
3866 | I SDECFOU ND D CHKEV T3(SDECRES ) Q | 3866 | I SDECFOU ND D CHKEV T3(SDECRES ) Q | |||
3867 | "RTN","SDE C25",206,0 ) | 3867 | "RTN","SDE C25",206,0 ) | |||
3868 | Q | 3868 | Q | |||
3869 | "RTN","SDE C25",207,0 ) | 3869 | "RTN","SDE C25",207,0 ) | |||
3870 | ; | 3870 | ; | |||
3871 | "RTN","SDE C25",208,0 ) | 3871 | "RTN","SDE C25",208,0 ) | |||
3872 | CHKEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ; | 3872 | CHKEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ; | |||
3873 | "RTN","SDE C25",209,0 ) | 3873 | "RTN","SDE C25",209,0 ) | |||
3874 | ;Get appo intment id in SDECAP T | 3874 | ;Get appo intment id in SDECAP T | |||
3875 | "RTN","SDE C25",210,0 ) | 3875 | "RTN","SDE C25",210,0 ) | |||
3876 | ;If found , call SDE CNOS(SDECA PPT) and r eturn 1 | 3876 | ;If found , call SDE CNOS(SDECA PPT) and r eturn 1 | |||
3877 | "RTN","SDE C25",211,0 ) | 3877 | "RTN","SDE C25",211,0 ) | |||
3878 | ;else ret urn 0 | 3878 | ;else ret urn 0 | |||
3879 | "RTN","SDE C25",212,0 ) | 3879 | "RTN","SDE C25",212,0 ) | |||
3880 | N SDECFOU ND,SDECAPP T | 3880 | N SDECFOU ND,SDECAPP T | |||
3881 | "RTN","SDE C25",213,0 ) | 3881 | "RTN","SDE C25",213,0 ) | |||
3882 | S SDECFOU ND=0 | 3882 | S SDECFOU ND=0 | |||
3883 | "RTN","SDE C25",214,0 ) | 3883 | "RTN","SDE C25",214,0 ) | |||
3884 | Q:'+$G(SD ECRES) SDE CFOUND | 3884 | Q:'+$G(SD ECRES) SDE CFOUND | |||
3885 | "RTN","SDE C25",215,0 ) | 3885 | "RTN","SDE C25",215,0 ) | |||
3886 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | 3886 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | |||
3887 | "RTN","SDE C25",216,0 ) | 3887 | "RTN","SDE C25",216,0 ) | |||
3888 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | 3888 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | |||
3889 | "RTN","SDE C25",217,0 ) | 3889 | "RTN","SDE C25",217,0 ) | |||
3890 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | 3890 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | |||
3891 | "RTN","SDE C25",218,0 ) | 3891 | "RTN","SDE C25",218,0 ) | |||
3892 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | 3892 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | |||
3893 | "RTN","SDE C25",219,0 ) | 3893 | "RTN","SDE C25",219,0 ) | |||
3894 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCHK(SDE CAPPT,SDEC STAT) | 3894 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCHK(SDE CAPPT,SDEC STAT) | |||
3895 | "RTN","SDE C25",220,0 ) | 3895 | "RTN","SDE C25",220,0 ) | |||
3896 | Q SDECFOU ND | 3896 | Q SDECFOU ND | |||
3897 | "RTN","SDE C25",221,0 ) | 3897 | "RTN","SDE C25",221,0 ) | |||
3898 | ; | 3898 | ; | |||
3899 | "RTN","SDE C25",222,0 ) | 3899 | "RTN","SDE C25",222,0 ) | |||
3900 | CHKEVT3(SD ECRES) ; | 3900 | CHKEVT3(SD ECRES) ; | |||
3901 | "RTN","SDE C25",223,0 ) | 3901 | "RTN","SDE C25",223,0 ) | |||
3902 | ;Call Rai seEvent to notify GU I clients | 3902 | ;Call Rai seEvent to notify GU I clients | |||
3903 | "RTN","SDE C25",224,0 ) | 3903 | "RTN","SDE C25",224,0 ) | |||
3904 | ; | 3904 | ; | |||
3905 | "RTN","SDE C25",225,0 ) | 3905 | "RTN","SDE C25",225,0 ) | |||
3906 | Q | 3906 | Q | |||
3907 | "RTN","SDE C25",226,0 ) | 3907 | "RTN","SDE C25",226,0 ) | |||
3908 | N SDECRES N | 3908 | N SDECRES N | |||
3909 | "RTN","SDE C25",227,0 ) | 3909 | "RTN","SDE C25",227,0 ) | |||
3910 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | 3910 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | |||
3911 | "RTN","SDE C25",228,0 ) | 3911 | "RTN","SDE C25",228,0 ) | |||
3912 | Q:SDECRES N="" | 3912 | Q:SDECRES N="" | |||
3913 | "RTN","SDE C25",229,0 ) | 3913 | "RTN","SDE C25",229,0 ) | |||
3914 | S SDECRES N=$P(SDECR ESN,"^") | 3914 | S SDECRES N=$P(SDECR ESN,"^") | |||
3915 | "RTN","SDE C25",230,0 ) | 3915 | "RTN","SDE C25",230,0 ) | |||
3916 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | 3916 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | |||
3917 | "RTN","SDE C25",231,0 ) | 3917 | "RTN","SDE C25",231,0 ) | |||
3918 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | 3918 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | |||
3919 | "RTN","SDE C25",232,0 ) | 3919 | "RTN","SDE C25",232,0 ) | |||
3920 | Q | 3920 | Q | |||
3921 | "RTN","SDE C25",233,0 ) | 3921 | "RTN","SDE C25",233,0 ) | |||
3922 | ; | 3922 | ; | |||
3923 | "RTN","SDE C25",234,0 ) | 3923 | "RTN","SDE C25",234,0 ) | |||
3924 | CHKEVTD(SD ECPAT,SDEC START,SDEC SC) ;EP Ca lled by SD EC CHECKIN APPOINTME NT event | 3924 | CHKEVTD(SD ECPAT,SDEC START,SDEC SC) ;EP Ca lled by SD EC CHECKIN APPOINTME NT event | |||
3925 | "RTN","SDE C25",235,0 ) | 3925 | "RTN","SDE C25",235,0 ) | |||
3926 | ;when an appointme nt CHECKIN is delete d via. | 3926 | ;when an appointme nt CHECKIN is delete d via. | |||
3927 | "RTN","SDE C25",236,0 ) | 3927 | "RTN","SDE C25",236,0 ) | |||
3928 | ;Deletes CHECKIN to and raise s refresh event to r unning GUI clients | 3928 | ;Deletes CHECKIN to and raise s refresh event to r unning GUI clients | |||
3929 | "RTN","SDE C25",237,0 ) | 3929 | "RTN","SDE C25",237,0 ) | |||
3930 | ; | 3930 | ; | |||
3931 | "RTN","SDE C25",238,0 ) | 3931 | "RTN","SDE C25",238,0 ) | |||
3932 | ; | 3932 | ; | |||
3933 | "RTN","SDE C25",239,0 ) | 3933 | "RTN","SDE C25",239,0 ) | |||
3934 | Q:+$G(SDE CNOEV) | 3934 | Q:+$G(SDE CNOEV) | |||
3935 | "RTN","SDE C25",240,0 ) | 3935 | "RTN","SDE C25",240,0 ) | |||
3936 | Q:'+$G(SD ECSC) | 3936 | Q:'+$G(SD ECSC) | |||
3937 | "RTN","SDE C25",241,0 ) | 3937 | "RTN","SDE C25",241,0 ) | |||
3938 | N SDECSTA T,SDECFOUN D,SDECRES | 3938 | N SDECSTA T,SDECFOUN D,SDECRES | |||
3939 | "RTN","SDE C25",242,0 ) | 3939 | "RTN","SDE C25",242,0 ) | |||
3940 | S SDECSTA T="" | 3940 | S SDECSTA T="" | |||
3941 | "RTN","SDE C25",243,0 ) | 3941 | "RTN","SDE C25",243,0 ) | |||
3942 | S:$G(SDAT A("AFTER", "STATUS")) '="CHECKED IN" SDECS TAT=$P(SDA TA("AFTER" ,"STATUS") ,"^",4) | 3942 | S:$G(SDAT A("AFTER", "STATUS")) '="CHECKED IN" SDECS TAT=$P(SDA TA("AFTER" ,"STATUS") ,"^",4) | |||
3943 | "RTN","SDE C25",244,0 ) | 3943 | "RTN","SDE C25",244,0 ) | |||
3944 | I SDECSTA T="" S SDE CRES=$O(^S DEC(409.83 1,"ALOC",S DECSC,0)) | 3944 | I SDECSTA T="" S SDE CRES=$O(^S DEC(409.83 1,"ALOC",S DECSC,0)) | |||
3945 | "RTN","SDE C25",245,0 ) | 3945 | "RTN","SDE C25",245,0 ) | |||
3946 | I SDECRES D CHKEVT3 (SDECRES) Q | 3946 | I SDECRES D CHKEVT3 (SDECRES) Q | |||
3947 | "RTN","SDE C25",246,0 ) | 3947 | "RTN","SDE C25",246,0 ) | |||
3948 | S SDECFOU ND=0 | 3948 | S SDECFOU ND=0 | |||
3949 | "RTN","SDE C25",247,0 ) | 3949 | "RTN","SDE C25",247,0 ) | |||
3950 | ; | 3950 | ; | |||
3951 | "RTN","SDE C25",248,0 ) | 3951 | "RTN","SDE C25",248,0 ) | |||
3952 | ;I $D(^SD EC(409.831 ,"ALOC",SD ECSC)) S S DECRES=$O( ^SDEC(409. 831,"ALOC" ,SDECSC,0) ) S SDECFO UND=$$CHKE VT1(SDECRE S,SDECSTAR T,SDECPAT, SDECSTAT) | 3952 | ;I $D(^SD EC(409.831 ,"ALOC",SD ECSC)) S S DECRES=$O( ^SDEC(409. 831,"ALOC" ,SDECSC,0) ) S SDECFO UND=$$CHKE VT1(SDECRE S,SDECSTAR T,SDECPAT, SDECSTAT) | |||
3953 | "RTN","SDE C25",249,0 ) | 3953 | "RTN","SDE C25",249,0 ) | |||
3954 | ;I SDECFO UND D CHKE VT3(SDECRE S) Q | 3954 | ;I SDECFO UND D CHKE VT3(SDECRE S) Q | |||
3955 | "RTN","SDE C25",250,0 ) | 3955 | "RTN","SDE C25",250,0 ) | |||
3956 | Q | 3956 | Q | |||
3957 | "RTN","SDE C25",251,0 ) | 3957 | "RTN","SDE C25",251,0 ) | |||
3958 | ; | 3958 | ; | |||
3959 | "RTN","SDE C25",252,0 ) | 3959 | "RTN","SDE C25",252,0 ) | |||
3960 | ;CHECK OU T APPOINTM ENT - RPC | 3960 | ;CHECK OU T APPOINTM ENT - RPC | |||
3961 | "RTN","SDE C25",253,0 ) | 3961 | "RTN","SDE C25",253,0 ) | |||
3962 | CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;Che ck Out app ointment | 3962 | CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;Che ck Out app ointment | |||
3963 | "RTN","SDE C25",254,0 ) | 3963 | "RTN","SDE C25",254,0 ) | |||
3964 | ;CHECKOUT (SDECY,DFN ,SDT,SDCOD T,SDECAPTI D,VPRV) e xternal pa rameter ta g is in SD EC | 3964 | ;CHECKOUT (SDECY,DFN ,SDT,SDCOD T,SDECAPTI D,VPRV) e xternal pa rameter ta g is in SD EC | |||
3965 | "RTN","SDE C25",255,0 ) | 3965 | "RTN","SDE C25",255,0 ) | |||
3966 | ; Returns SDECY | 3966 | ; Returns SDECY | |||
3967 | "RTN","SDE C25",256,0 ) | 3967 | "RTN","SDE C25",256,0 ) | |||
3968 | ; Input -- DFN Patient file IEN | 3968 | ; Input -- DFN Patient file IEN | |||
3969 | "RTN","SDE C25",257,0 ) | 3969 | "RTN","SDE C25",257,0 ) | |||
3970 | ; SDT Appointm ent Date/T ime in FM format | 3970 | ; SDT Appointm ent Date/T ime in FM format | |||
3971 | "RTN","SDE C25",258,0 ) | 3971 | "RTN","SDE C25",258,0 ) | |||
3972 | ; SDCODT Date/Tim e of Check Out FM FO RMAT [REQU IRED] | 3972 | ; SDCODT Date/Tim e of Check Out FM FO RMAT [REQU IRED] | |||
3973 | "RTN","SDE C25",259,0 ) | 3973 | "RTN","SDE C25",259,0 ) | |||
3974 | ; SDECAPT ID - Appoi ntment ID | 3974 | ; SDECAPT ID - Appoi ntment ID | |||
3975 | "RTN","SDE C25",260,0 ) | 3975 | "RTN","SDE C25",260,0 ) | |||
3976 | ; VPRV - V Pro vider | 3976 | ; VPRV - V Pro vider | |||
3977 | "RTN","SDE C25",261,0 ) | 3977 | "RTN","SDE C25",261,0 ) | |||
3978 | ;SETUP ER ROR TRACKI NG | 3978 | ;SETUP ER ROR TRACKI NG | |||
3979 | "RTN","SDE C25",262,0 ) | 3979 | "RTN","SDE C25",262,0 ) | |||
3980 | N APIERR, CNT,ERR,%D T,X,Y | 3980 | N APIERR, CNT,ERR,%D T,X,Y | |||
3981 | "RTN","SDE C25",263,0 ) | 3981 | "RTN","SDE C25",263,0 ) | |||
3982 | N SDCL,SD ASK,SDCOAC T,SDCOALBF ,SDDA,SDLN E,SDQUIET | 3982 | N SDCL,SD ASK,SDCOAC T,SDCOALBF ,SDDA,SDLN E,SDQUIET | |||
3983 | "RTN","SDE C25",264,0 ) | 3983 | "RTN","SDE C25",264,0 ) | |||
3984 | N SDECI,S DECNOD,RPC PERM | 3984 | N SDECI,S DECNOD,RPC PERM | |||
3985 | "RTN","SDE C25",265,0 ) | 3985 | "RTN","SDE C25",265,0 ) | |||
3986 | S SDECI=0 | 3986 | S SDECI=0 | |||
3987 | "RTN","SDE C25",266,0 ) | 3987 | "RTN","SDE C25",266,0 ) | |||
3988 | K ^TMP("S DEC",$J) | 3988 | K ^TMP("S DEC",$J) | |||
3989 | "RTN","SDE C25",267,0 ) | 3989 | "RTN","SDE C25",267,0 ) | |||
3990 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | 3990 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |||
3991 | "RTN","SDE C25",268,0 ) | 3991 | "RTN","SDE C25",268,0 ) | |||
3992 | S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30) | 3992 | S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30) | |||
3993 | "RTN","SDE C25",269,0 ) | 3993 | "RTN","SDE C25",269,0 ) | |||
3994 | S RPCPERM ="" | 3994 | S RPCPERM ="" | |||
3995 | "RTN","SDE C25",270,0 ) | 3995 | "RTN","SDE C25",270,0 ) | |||
3996 | S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD SUPERVISO R KEY IS R EQUIRED TO PERFORM T HIS ACTION .") Q | 3996 | S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD SUPERVISO R KEY IS R EQUIRED TO PERFORM T HIS ACTION .") Q | |||
3997 | "RTN","SDE C25",271,0 ) | 3997 | "RTN","SDE C25",271,0 ) | |||
3998 | I '+SDECA PTID D ERR ("Invalid Appointmen t ID.") Q | 3998 | I '+SDECA PTID D ERR ("Invalid Appointmen t ID.") Q | |||
3999 | "RTN","SDE C25",272,0 ) | 3999 | "RTN","SDE C25",272,0 ) | |||
4000 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment ID.") Q | 4000 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment ID.") Q | |||
4001 | "RTN","SDE C25",273,0 ) | 4001 | "RTN","SDE C25",273,0 ) | |||
4002 | ;INITIALI ZE VARIABL ES | 4002 | ;INITIALI ZE VARIABL ES | |||
4003 | "RTN","SDE C25",274,0 ) | 4003 | "RTN","SDE C25",274,0 ) | |||
4004 | S %DT="T" | 4004 | S %DT="T" | |||
4005 | "RTN","SDE C25",275,0 ) | 4005 | "RTN","SDE C25",275,0 ) | |||
4006 | S X=SDT | 4006 | S X=SDT | |||
4007 | "RTN","SDE C25",276,0 ) | 4007 | "RTN","SDE C25",276,0 ) | |||
4008 | D ^%DT ; GET FM F ORMAT FOR APPOINTMEN T DATE/TIM E | 4008 | D ^%DT ; GET FM F ORMAT FOR APPOINTMEN T DATE/TIM E | |||
4009 | "RTN","SDE C25",277,0 ) | 4009 | "RTN","SDE C25",277,0 ) | |||
4010 | S SDT=Y | 4010 | S SDT=Y | |||
4011 | "RTN","SDE C25",278,0 ) | 4011 | "RTN","SDE C25",278,0 ) | |||
4012 | S X=SDCOD T | 4012 | S X=SDCOD T | |||
4013 | "RTN","SDE C25",279,0 ) | 4013 | "RTN","SDE C25",279,0 ) | |||
4014 | D ^%DT ; GET FM F ORMAT FOR CHECKOUT D ATE/TIME | 4014 | D ^%DT ; GET FM F ORMAT FOR CHECKOUT D ATE/TIME | |||
4015 | "RTN","SDE C25",280,0 ) | 4015 | "RTN","SDE C25",280,0 ) | |||
4016 | ;ChecOut time canno t be in th e future | 4016 | ;ChecOut time canno t be in th e future | |||
4017 | "RTN","SDE C25",281,0 ) | 4017 | "RTN","SDE C25",281,0 ) | |||
4018 | S SDCODT= Y | 4018 | S SDCODT= Y | |||
4019 | "RTN","SDE C25",282,0 ) | 4019 | "RTN","SDE C25",282,0 ) | |||
4020 | I SDCODT> $$HTFM^XLF DT($H) D E RR("Check Out time c annot be i n the futu re.") Q | 4020 | I SDCODT> $$HTFM^XLF DT($H) D E RR("Check Out time c annot be i n the futu re.") Q | |||
4021 | "RTN","SDE C25",283,0 ) | 4021 | "RTN","SDE C25",283,0 ) | |||
4022 | ; | 4022 | ; | |||
4023 | "RTN","SDE C25",284,0 ) | 4023 | "RTN","SDE C25",284,0 ) | |||
4024 | ;appointm ent record | 4024 | ;appointm ent record | |||
4025 | "RTN","SDE C25",285,0 ) | 4025 | "RTN","SDE C25",285,0 ) | |||
4026 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 4026 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
4027 | "RTN","SDE C25",286,0 ) | 4027 | "RTN","SDE C25",286,0 ) | |||
4028 | ;make sur e CHECKOUT time is a fter CHECK IN time | 4028 | ;make sur e CHECKOUT time is a fter CHECK IN time | |||
4029 | "RTN","SDE C25",287,0 ) | 4029 | "RTN","SDE C25",287,0 ) | |||
4030 | I SDCODT' >$P(SDECNO D,U,3) D E RR("Check Out time m ust be at least 1 mi nute after the Check In time o f "_$TR($$ FMTE^XLFDT ($P(SDECNO D,U,3)),"@ "," ")_"." ) Q ;alb /sat 665 | 4030 | I SDCODT' >$P(SDECNO D,U,3) D E RR("Check Out time m ust be at least 1 mi nute after the Check In time o f "_$TR($$ FMTE^XLFDT ($P(SDECNO D,U,3)),"@ "," ")_"." ) Q ;alb /sat 665 | |||
4031 | "RTN","SDE C25",288,0 ) | 4031 | "RTN","SDE C25",288,0 ) | |||
4032 | ;Hospital Location of RESOURC E | 4032 | ;Hospital Location of RESOURC E | |||
4033 | "RTN","SDE C25",289,0 ) | 4033 | "RTN","SDE C25",289,0 ) | |||
4034 | S SDECRES =$P(SDECNO D,U,7) ;RE SOURCEID | 4034 | S SDECRES =$P(SDECNO D,U,7) ;RE SOURCEID | |||
4035 | "RTN","SDE C25",290,0 ) | 4035 | "RTN","SDE C25",290,0 ) | |||
4036 | S SDECNOD =^SDEC(409 .831,SDECR ES,0) | 4036 | S SDECNOD =^SDEC(409 .831,SDECR ES,0) | |||
4037 | "RTN","SDE C25",291,0 ) | 4037 | "RTN","SDE C25",291,0 ) | |||
4038 | S SDCL=$P (SDECNOD,U ,4) ;HOSPI TAL LOCATI ON | 4038 | S SDCL=$P (SDECNOD,U ,4) ;HOSPI TAL LOCATI ON | |||
4039 | "RTN","SDE C25",292,0 ) | 4039 | "RTN","SDE C25",292,0 ) | |||
4040 | ; | 4040 | ; | |||
4041 | "RTN","SDE C25",293,0 ) | 4041 | "RTN","SDE C25",293,0 ) | |||
4042 | S SDDA=0 | 4042 | S SDDA=0 | |||
4043 | "RTN","SDE C25",294,0 ) | 4043 | "RTN","SDE C25",294,0 ) | |||
4044 | S SDASK=0 | 4044 | S SDASK=0 | |||
4045 | "RTN","SDE C25",295,0 ) | 4045 | "RTN","SDE C25",295,0 ) | |||
4046 | S SDCOALB F="" | 4046 | S SDCOALB F="" | |||
4047 | "RTN","SDE C25",296,0 ) | 4047 | "RTN","SDE C25",296,0 ) | |||
4048 | S SDCOACT ="CO" | 4048 | S SDCOACT ="CO" | |||
4049 | "RTN","SDE C25",297,0 ) | 4049 | "RTN","SDE C25",297,0 ) | |||
4050 | S SDLNE=" " | 4050 | S SDLNE=" " | |||
4051 | "RTN","SDE C25",298,0 ) | 4051 | "RTN","SDE C25",298,0 ) | |||
4052 | S SDQUIET =1 | 4052 | S SDQUIET =1 | |||
4053 | "RTN","SDE C25",299,0 ) | 4053 | "RTN","SDE C25",299,0 ) | |||
4054 | K APIERR | 4054 | K APIERR | |||
4055 | "RTN","SDE C25",300,0 ) | 4055 | "RTN","SDE C25",300,0 ) | |||
4056 | S APIERR= 0 | 4056 | S APIERR= 0 | |||
4057 | "RTN","SDE C25",301,0 ) | 4057 | "RTN","SDE C25",301,0 ) | |||
4058 | ; | 4058 | ; | |||
4059 | "RTN","SDE C25",302,0 ) | 4059 | "RTN","SDE C25",302,0 ) | |||
4060 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | 4060 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |||
4061 | "RTN","SDE C25",303,0 ) | 4061 | "RTN","SDE C25",303,0 ) | |||
4062 | ; | 4062 | ; | |||
4063 | "RTN","SDE C25",304,0 ) | 4063 | "RTN","SDE C25",304,0 ) | |||
4064 | N SDATA,S DDA,SDCIHD L ; | 4064 | N SDATA,S DDA,SDCIHD L ; | |||
4065 | "RTN","SDE C25",305,0 ) | 4065 | "RTN","SDE C25",305,0 ) | |||
4066 | S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | 4066 | S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | |||
4067 | "RTN","SDE C25",306,0 ) | 4067 | "RTN","SDE C25",306,0 ) | |||
4068 | ; | 4068 | ; | |||
4069 | "RTN","SDE C25",307,0 ) | 4069 | "RTN","SDE C25",307,0 ) | |||
4070 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | 4070 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |||
4071 | "RTN","SDE C25",308,0 ) | 4071 | "RTN","SDE C25",308,0 ) | |||
4072 | ; | 4072 | ; | |||
4073 | "RTN","SDE C25",309,0 ) | 4073 | "RTN","SDE C25",309,0 ) | |||
4074 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ; | 4074 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ; | |||
4075 | "RTN","SDE C25",310,0 ) | 4075 | "RTN","SDE C25",310,0 ) | |||
4076 | ; | 4076 | ; | |||
4077 | "RTN","SDE C25",311,0 ) | 4077 | "RTN","SDE C25",311,0 ) | |||
4078 | D CO^SDEC 25A(DFN,SD T,SDCL,SDD A,SDASK,SD CODT,SDCOA CT,SDLNE,. SDCOALBF,S DECAPTID,S DQUIET,VPR V,.APIERR) ;Appt Che ck Out | 4078 | D CO^SDEC 25A(DFN,SD T,SDCL,SDD A,SDASK,SD CODT,SDCOA CT,SDLNE,. SDCOALBF,S DECAPTID,S DQUIET,VPR V,.APIERR) ;Appt Che ck Out | |||
4079 | "RTN","SDE C25",312,0 ) | 4079 | "RTN","SDE C25",312,0 ) | |||
4080 | ; | 4080 | ; | |||
4081 | "RTN","SDE C25",313,0 ) | 4081 | "RTN","SDE C25",313,0 ) | |||
4082 | ; Skip e vent drive r actions if error o ccurred ch ecking app ointment o ut. - wtc SD*5.3*717 10/25/201 8 | 4082 | ; Skip e vent drive r actions if error o ccurred ch ecking app ointment o ut. - wtc SD*5.3*717 10/25/201 8 | |||
4083 | "RTN","SDE C25",314,0 ) | 4083 | "RTN","SDE C25",314,0 ) | |||
4084 | ; | 4084 | ; | |||
4085 | "RTN","SDE C25",315,0 ) | 4085 | "RTN","SDE C25",315,0 ) | |||
4086 | I 'APIERR D ; | 4086 | I 'APIERR D ; | |||
4087 | "RTN","SDE C25",316,0 ) | 4087 | "RTN","SDE C25",316,0 ) | |||
4088 | . ; | 4088 | . ; | |||
4089 | "RTN","SDE C25",317,0 ) | 4089 | "RTN","SDE C25",317,0 ) | |||
4090 | . ; Even t driver " AFTER" act ions - wtc SD*5.3*71 7 10/25/18 | 4090 | . ; Even t driver " AFTER" act ions - wtc SD*5.3*71 7 10/25/18 | |||
4091 | "RTN","SDE C25",318,0 ) | 4091 | "RTN","SDE C25",318,0 ) | |||
4092 | . ; | 4092 | . ; | |||
4093 | "RTN","SDE C25",319,0 ) | 4093 | "RTN","SDE C25",319,0 ) | |||
4094 | . D AFTER ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) ; | 4094 | . D AFTER ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) ; | |||
4095 | "RTN","SDE C25",320,0 ) | 4095 | "RTN","SDE C25",320,0 ) | |||
4096 | . ; | 4096 | . ; | |||
4097 | "RTN","SDE C25",321,0 ) | 4097 | "RTN","SDE C25",321,0 ) | |||
4098 | . ; Exec ute event driver. 5 =check out (see #409 .66), 2=no n-interact ive - wtc SD*5.3*717 10/25/18 | 4098 | . ; Exec ute event driver. 5 =check out (see #409 .66), 2=no n-interact ive - wtc SD*5.3*717 10/25/18 | |||
4099 | "RTN","SDE C25",322,0 ) | 4099 | "RTN","SDE C25",322,0 ) | |||
4100 | . ; | 4100 | . ; | |||
4101 | "RTN","SDE C25",323,0 ) | 4101 | "RTN","SDE C25",323,0 ) | |||
4102 | . D EVT^S DAMEVT(.SD ATA,5,2,SD CIHDL) ; | 4102 | . D EVT^S DAMEVT(.SD ATA,5,2,SD CIHDL) ; | |||
4103 | "RTN","SDE C25",324,0 ) | 4103 | "RTN","SDE C25",324,0 ) | |||
4104 | ; | 4104 | ; | |||
4105 | "RTN","SDE C25",325,0 ) | 4105 | "RTN","SDE C25",325,0 ) | |||
4106 | ;ERROR(S) FOUND | 4106 | ;ERROR(S) FOUND | |||
4107 | "RTN","SDE C25",326,0 ) | 4107 | "RTN","SDE C25",326,0 ) | |||
4108 | I APIERR> 0 D | 4108 | I APIERR> 0 D | |||
4109 | "RTN","SDE C25",327,0 ) | 4109 | "RTN","SDE C25",327,0 ) | |||
4110 | . S CNT=" " | 4110 | . S CNT=" " | |||
4111 | "RTN","SDE C25",328,0 ) | 4111 | "RTN","SDE C25",328,0 ) | |||
4112 | . F S CN T=$O(APIER R(CNT)) Q: CNT="" S ERR=APIERR (CNT) S SD ECI=SDECI+ 1 D ERR(ER R) | 4112 | . F S CN T=$O(APIER R(CNT)) Q: CNT="" S ERR=APIERR (CNT) S SD ECI=SDECI+ 1 D ERR(ER R) | |||
4113 | "RTN","SDE C25",329,0 ) | 4113 | "RTN","SDE C25",329,0 ) | |||
4114 | ;NO ERROR | 4114 | ;NO ERROR | |||
4115 | "RTN","SDE C25",330,0 ) | 4115 | "RTN","SDE C25",330,0 ) | |||
4116 | I APIERR< 1 D | 4116 | I APIERR< 1 D | |||
4117 | "RTN","SDE C25",331,0 ) | 4117 | "RTN","SDE C25",331,0 ) | |||
4118 | . S SDECI =SDECI+1 | 4118 | . S SDECI =SDECI+1 | |||
4119 | "RTN","SDE C25",332,0 ) | 4119 | "RTN","SDE C25",332,0 ) | |||
4120 | . S ^TMP( "SDEC",$J, SDECI)="0" _$C(30) | 4120 | . S ^TMP( "SDEC",$J, SDECI)="0" _$C(30) | |||
4121 | "RTN","SDE C25",333,0 ) | 4121 | "RTN","SDE C25",333,0 ) | |||
4122 | . S SDECI =SDECI+1 | 4122 | . S SDECI =SDECI+1 | |||
4123 | "RTN","SDE C25",334,0 ) | 4123 | "RTN","SDE C25",334,0 ) | |||
4124 | . S ^TMP( "SDEC",$J, SDECI)=$C( 31) | 4124 | . S ^TMP( "SDEC",$J, SDECI)=$C( 31) | |||
4125 | "RTN","SDE C25",335,0 ) | 4125 | "RTN","SDE C25",335,0 ) | |||
4126 | Q | 4126 | Q | |||
4127 | "RTN","SDE C25",336,0 ) | 4127 | "RTN","SDE C25",336,0 ) | |||
4128 | ; | 4128 | ; | |||
4129 | "RTN","SDE C25",337,0 ) | 4129 | "RTN","SDE C25",337,0 ) | |||
4130 | ;CHECK OU T APPOINTM ENT - RPC | 4130 | ;CHECK OU T APPOINTM ENT - RPC | |||
4131 | "RTN","SDE C25",338,0 ) | 4131 | "RTN","SDE C25",338,0 ) | |||
4132 | CANCKOUT(S DECY,SDECA PTID) ;Can cel Check Out appoin tment | 4132 | CANCKOUT(S DECY,SDECA PTID) ;Can cel Check Out appoin tment | |||
4133 | "RTN","SDE C25",339,0 ) | 4133 | "RTN","SDE C25",339,0 ) | |||
4134 | ;CANCKOUT (SDECY,SDE CAPTID) e xternal pa rameter ta g is in SD EC | 4134 | ;CANCKOUT (SDECY,SDE CAPTID) e xternal pa rameter ta g is in SD EC | |||
4135 | "RTN","SDE C25",340,0 ) | 4135 | "RTN","SDE C25",340,0 ) | |||
4136 | ; Returns SDECY | 4136 | ; Returns SDECY | |||
4137 | "RTN","SDE C25",341,0 ) | 4137 | "RTN","SDE C25",341,0 ) | |||
4138 | ; Input -- SDECAPT ID - Appoi ntment ID | 4138 | ; Input -- SDECAPT ID - Appoi ntment ID | |||
4139 | "RTN","SDE C25",342,0 ) | 4139 | "RTN","SDE C25",342,0 ) | |||
4140 | N APS,DA, DFN,DIE,DR ,RES | 4140 | N APS,DA, DFN,DIE,DR ,RES | |||
4141 | "RTN","SDE C25",343,0 ) | 4141 | "RTN","SDE C25",343,0 ) | |||
4142 | N SDCL,SD N,SDOE,SDT ,SDV | 4142 | N SDCL,SD N,SDOE,SDT ,SDV | |||
4143 | "RTN","SDE C25",344,0 ) | 4143 | "RTN","SDE C25",344,0 ) | |||
4144 | N SDECI,S DECNOD,RPC PERM | 4144 | N SDECI,S DECNOD,RPC PERM | |||
4145 | "RTN","SDE C25",345,0 ) | 4145 | "RTN","SDE C25",345,0 ) | |||
4146 | S SDECI=0 | 4146 | S SDECI=0 | |||
4147 | "RTN","SDE C25",346,0 ) | 4147 | "RTN","SDE C25",346,0 ) | |||
4148 | K ^TMP("S DEC",$J) | 4148 | K ^TMP("S DEC",$J) | |||
4149 | "RTN","SDE C25",347,0 ) | 4149 | "RTN","SDE C25",347,0 ) | |||
4150 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | 4150 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |||
4151 | "RTN","SDE C25",348,0 ) | 4151 | "RTN","SDE C25",348,0 ) | |||
4152 | S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30) | 4152 | S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30) | |||
4153 | "RTN","SDE C25",349,0 ) | 4153 | "RTN","SDE C25",349,0 ) | |||
4154 | S RPCPERM ="" | 4154 | S RPCPERM ="" | |||
4155 | "RTN","SDE C25",350,0 ) | 4155 | "RTN","SDE C25",350,0 ) | |||
4156 | S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD SUPERVISO R KEY IS R EQUIRED TO PERFORM T HIS ACTION .") Q | 4156 | S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD SUPERVISO R KEY IS R EQUIRED TO PERFORM T HIS ACTION .") Q | |||
4157 | "RTN","SDE C25",351,0 ) | 4157 | "RTN","SDE C25",351,0 ) | |||
4158 | I '+SDECA PTID D ERR ("Invalid Appointmen t ID.") Q | 4158 | I '+SDECA PTID D ERR ("Invalid Appointmen t ID.") Q | |||
4159 | "RTN","SDE C25",352,0 ) | 4159 | "RTN","SDE C25",352,0 ) | |||
4160 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment ID.") Q | 4160 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment ID.") Q | |||
4161 | "RTN","SDE C25",353,0 ) | 4161 | "RTN","SDE C25",353,0 ) | |||
4162 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 4162 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
4163 | "RTN","SDE C25",354,0 ) | 4163 | "RTN","SDE C25",354,0 ) | |||
4164 | S APS=$P( SDECNOD,U, 19) | 4164 | S APS=$P( SDECNOD,U, 19) | |||
4165 | "RTN","SDE C25",355,0 ) | 4165 | "RTN","SDE C25",355,0 ) | |||
4166 | S DFN=$P( SDECNOD,U, 5) | 4166 | S DFN=$P( SDECNOD,U, 5) | |||
4167 | "RTN","SDE C25",356,0 ) | 4167 | "RTN","SDE C25",356,0 ) | |||
4168 | S SDT=$P( SDECNOD,U) | 4168 | S SDT=$P( SDECNOD,U) | |||
4169 | "RTN","SDE C25",357,0 ) | 4169 | "RTN","SDE C25",357,0 ) | |||
4170 | S RES=$P( SDECNOD,U, 7) | 4170 | S RES=$P( SDECNOD,U, 7) | |||
4171 | "RTN","SDE C25",358,0 ) | 4171 | "RTN","SDE C25",358,0 ) | |||
4172 | S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4) | 4172 | S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4) | |||
4173 | "RTN","SDE C25",359,0 ) | 4173 | "RTN","SDE C25",359,0 ) | |||
4174 | I $P(SDEC NOD,U,14)= "" D ERR(" Appointmen t is not C hecked Out .") Q | 4174 | I $P(SDEC NOD,U,14)= "" D ERR(" Appointmen t is not C hecked Out .") Q | |||
4175 | "RTN","SDE C25",360,0 ) | 4175 | "RTN","SDE C25",360,0 ) | |||
4176 | ; | 4176 | ; | |||
4177 | "RTN","SDE C25",361,0 ) | 4177 | "RTN","SDE C25",361,0 ) | |||
4178 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | 4178 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |||
4179 | "RTN","SDE C25",362,0 ) | 4179 | "RTN","SDE C25",362,0 ) | |||
4180 | ; | 4180 | ; | |||
4181 | "RTN","SDE C25",363,0 ) | 4181 | "RTN","SDE C25",363,0 ) | |||
4182 | N SDATA,S DDA,SDCIHD L ; | 4182 | N SDATA,S DDA,SDCIHD L ; | |||
4183 | "RTN","SDE C25",364,0 ) | 4183 | "RTN","SDE C25",364,0 ) | |||
4184 | S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | 4184 | S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | |||
4185 | "RTN","SDE C25",365,0 ) | 4185 | "RTN","SDE C25",365,0 ) | |||
4186 | ; | 4186 | ; | |||
4187 | "RTN","SDE C25",366,0 ) | 4187 | "RTN","SDE C25",366,0 ) | |||
4188 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | 4188 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |||
4189 | "RTN","SDE C25",367,0 ) | 4189 | "RTN","SDE C25",367,0 ) | |||
4190 | ; | 4190 | ; | |||
4191 | "RTN","SDE C25",368,0 ) | 4191 | "RTN","SDE C25",368,0 ) | |||
4192 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ; | 4192 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ; | |||
4193 | "RTN","SDE C25",369,0 ) | 4193 | "RTN","SDE C25",369,0 ) | |||
4194 | ; | 4194 | ; | |||
4195 | "RTN","SDE C25",370,0 ) | 4195 | "RTN","SDE C25",370,0 ) | |||
4196 | ; ^SDECAP PT: update piece 8: Data Entry Clerk; cl ear piece 14: CHECKO UT; | 4196 | ; ^SDECAP PT: update piece 8: Data Entry Clerk; cl ear piece 14: CHECKO UT; | |||
4197 | "RTN","SDE C25",371,0 ) | 4197 | "RTN","SDE C25",371,0 ) | |||
4198 | S DIE="^S DEC(409.84 ," | 4198 | S DIE="^S DEC(409.84 ," | |||
4199 | "RTN","SDE C25",372,0 ) | 4199 | "RTN","SDE C25",372,0 ) | |||
4200 | S DA=SDEC APTID | 4200 | S DA=SDEC APTID | |||
4201 | "RTN","SDE C25",373,0 ) | 4201 | "RTN","SDE C25",373,0 ) | |||
4202 | S DR=".14 ////@;.08/ //"_DUZ | 4202 | S DR=".14 ////@;.08/ //"_DUZ | |||
4203 | "RTN","SDE C25",374,0 ) | 4203 | "RTN","SDE C25",374,0 ) | |||
4204 | D ^DIE | 4204 | D ^DIE | |||
4205 | "RTN","SDE C25",375,0 ) | 4205 | "RTN","SDE C25",375,0 ) | |||
4206 | ; ^SC fil e 44: clea r piece C; 3: CHECKED OUT; clea r piece C; 4: CHECK O UT USER; c lear C;6: CHECK OUT ENTERED | 4206 | ; ^SC fil e 44: clea r piece C; 3: CHECKED OUT; clea r piece C; 4: CHECK O UT USER; c lear C;6: CHECK OUT ENTERED | |||
4207 | "RTN","SDE C25",376,0 ) | 4207 | "RTN","SDE C25",376,0 ) | |||
4208 | S DIE="^S C("_SDCL_" ,""S"","_S DT_",1," | 4208 | S DIE="^S C("_SDCL_" ,""S"","_S DT_",1," | |||
4209 | "RTN","SDE C25",377,0 ) | 4209 | "RTN","SDE C25",377,0 ) | |||
4210 | S DA(2)=S DCL,DA(1)= SDT,(DA,SD N)=$$SCIEN ^SDECU2(DF N,SDCL,SDT ) | 4210 | S DA(2)=S DCL,DA(1)= SDT,(DA,SD N)=$$SCIEN ^SDECU2(DF N,SDCL,SDT ) | |||
4211 | "RTN","SDE C25",378,0 ) | 4211 | "RTN","SDE C25",378,0 ) | |||
4212 | S DR="303 ///@;304// /@;306///@ " | 4212 | S DR="303 ///@;304// /@;306///@ " | |||
4213 | "RTN","SDE C25",379,0 ) | 4213 | "RTN","SDE C25",379,0 ) | |||
4214 | D ^DIE | 4214 | D ^DIE | |||
4215 | "RTN","SDE C25",380,0 ) | 4215 | "RTN","SDE C25",380,0 ) | |||
4216 | ; ^AUPNVS IT file 90 00010: cle ar piece 1 8: CHECK O UT DATE&TI ME | 4216 | ; ^AUPNVS IT file 90 00010: cle ar piece 1 8: CHECK O UT DATE&TI ME | |||
4217 | "RTN","SDE C25",381,0 ) | 4217 | "RTN","SDE C25",381,0 ) | |||
4218 | S SDOE=$$ GETAPT^SDV SIT2(DFN,S DT,SDCL) | 4218 | S SDOE=$$ GETAPT^SDV SIT2(DFN,S DT,SDCL) | |||
4219 | "RTN","SDE C25",382,0 ) | 4219 | "RTN","SDE C25",382,0 ) | |||
4220 | S SDV=$$G ET1^DIQ(40 9.68,SDOE, .05,"I") | 4220 | S SDV=$$G ET1^DIQ(40 9.68,SDOE, .05,"I") | |||
4221 | "RTN","SDE C25",383,0 ) | 4221 | "RTN","SDE C25",383,0 ) | |||
4222 | I +SDV D | 4222 | I +SDV D | |||
4223 | "RTN","SDE C25",384,0 ) | 4223 | "RTN","SDE C25",384,0 ) | |||
4224 | . S DIE=" ^AUPNVSIT( ",DA=SDV | 4224 | . S DIE=" ^AUPNVSIT( ",DA=SDV | |||
4225 | "RTN","SDE C25",385,0 ) | 4225 | "RTN","SDE C25",385,0 ) | |||
4226 | . S DR=". 18///@" | 4226 | . S DR=". 18///@" | |||
4227 | "RTN","SDE C25",386,0 ) | 4227 | "RTN","SDE C25",386,0 ) | |||
4228 | . D ^DIE | 4228 | . D ^DIE | |||
4229 | "RTN","SDE C25",387,0 ) | 4229 | "RTN","SDE C25",387,0 ) | |||
4230 | ; ^SCE fi le 409.68: Set piece 12 back t o CHECKED IN, pointe r to APPOI NTMENT STA TUS file 4 09.63; cle ar piece 7 : CHECK OU T PROCESS COMPLETION | 4230 | ; ^SCE fi le 409.68: Set piece 12 back t o CHECKED IN, pointe r to APPOI NTMENT STA TUS file 4 09.63; cle ar piece 7 : CHECK OU T PROCESS COMPLETION | |||
4231 | "RTN","SDE C25",388,0 ) | 4231 | "RTN","SDE C25",388,0 ) | |||
4232 | I +APS D | 4232 | I +APS D | |||
4233 | "RTN","SDE C25",389,0 ) | 4233 | "RTN","SDE C25",389,0 ) | |||
4234 | . S DIE=4 09.68,DA=S DOE,DR=".0 7///@;.12/ //"_APS_"; 101///"_DU Z_";102/// "_$$NOW^XL FDT | 4234 | . S DIE=4 09.68,DA=S DOE,DR=".0 7///@;.12/ //"_APS_"; 101///"_DU Z_";102/// "_$$NOW^XL FDT | |||
4235 | "RTN","SDE C25",390,0 ) | 4235 | "RTN","SDE C25",390,0 ) | |||
4236 | . D ^DIE | 4236 | . D ^DIE | |||
4237 | "RTN","SDE C25",391,0 ) | 4237 | "RTN","SDE C25",391,0 ) | |||
4238 | ; | 4238 | ; | |||
4239 | "RTN","SDE C25",392,0 ) | 4239 | "RTN","SDE C25",392,0 ) | |||
4240 | ; Event driver "AF TER" actio ns - wtc S D*5.3*717 10/25/18 | 4240 | ; Event driver "AF TER" actio ns - wtc S D*5.3*717 10/25/18 | |||
4241 | "RTN","SDE C25",393,0 ) | 4241 | "RTN","SDE C25",393,0 ) | |||
4242 | ; | 4242 | ; | |||
4243 | "RTN","SDE C25",394,0 ) | 4243 | "RTN","SDE C25",394,0 ) | |||
4244 | D AFTER^S DAMEVT(.SD ATA,DFN,SD T,SDCL,SDD A,SDCIHDL) ; | 4244 | D AFTER^S DAMEVT(.SD ATA,DFN,SD T,SDCL,SDD A,SDCIHDL) ; | |||
4245 | "RTN","SDE C25",395,0 ) | 4245 | "RTN","SDE C25",395,0 ) | |||
4246 | ; | 4246 | ; | |||
4247 | "RTN","SDE C25",396,0 ) | 4247 | "RTN","SDE C25",396,0 ) | |||
4248 | ; Execut e event dr iver. 5=c heck out ( see #409.6 6), 2=non- interactiv e - wtc SD *5.3*717 1 0/25/18 | 4248 | ; Execut e event dr iver. 5=c heck out ( see #409.6 6), 2=non- interactiv e - wtc SD *5.3*717 1 0/25/18 | |||
4249 | "RTN","SDE C25",397,0 ) | 4249 | "RTN","SDE C25",397,0 ) | |||
4250 | ; | 4250 | ; | |||
4251 | "RTN","SDE C25",398,0 ) | 4251 | "RTN","SDE C25",398,0 ) | |||
4252 | D EVT^SDA MEVT(.SDAT A,5,2,SDCI HDL) ; | 4252 | D EVT^SDA MEVT(.SDAT A,5,2,SDCI HDL) ; | |||
4253 | "RTN","SDE C25",399,0 ) | 4253 | "RTN","SDE C25",399,0 ) | |||
4254 | ; | 4254 | ; | |||
4255 | "RTN","SDE C25",400,0 ) | 4255 | "RTN","SDE C25",400,0 ) | |||
4256 | S SDECI=S DECI+1 | 4256 | S SDECI=S DECI+1 | |||
4257 | "RTN","SDE C25",401,0 ) | 4257 | "RTN","SDE C25",401,0 ) | |||
4258 | S ^TMP("S DEC",$J,SD ECI)="0"_$ C(30) | 4258 | S ^TMP("S DEC",$J,SD ECI)="0"_$ C(30) | |||
4259 | "RTN","SDE C25",402,0 ) | 4259 | "RTN","SDE C25",402,0 ) | |||
4260 | S SDECI=S DECI+1 | 4260 | S SDECI=S DECI+1 | |||
4261 | "RTN","SDE C25",403,0 ) | 4261 | "RTN","SDE C25",403,0 ) | |||
4262 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 4262 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
4263 | "RTN","SDE C25",404,0 ) | 4263 | "RTN","SDE C25",404,0 ) | |||
4264 | Q | 4264 | Q | |||
4265 | "RTN","SDE C25",405,0 ) | 4265 | "RTN","SDE C25",405,0 ) | |||
4266 | ; | 4266 | ; | |||
4267 | "RTN","SDE C25",406,0 ) | 4267 | "RTN","SDE C25",406,0 ) | |||
4268 | CANAPPT(SD ECAPTID) ;external call to ca ncel check out in SD EC APPOINT MENT calle d by SDCOD EL for Vis tA Delete Check Out | 4268 | CANAPPT(SD ECAPTID) ;external call to ca ncel check out in SD EC APPOINT MENT calle d by SDCOD EL for Vis tA Delete Check Out | |||
4269 | "RTN","SDE C25",407,0 ) | 4269 | "RTN","SDE C25",407,0 ) | |||
4270 | N APS,DA, DIE,DR,DFN ,RES,SDCL, SDT | 4270 | N APS,DA, DIE,DR,DFN ,RES,SDCL, SDT | |||
4271 | "RTN","SDE C25",408,0 ) | 4271 | "RTN","SDE C25",408,0 ) | |||
4272 | N SDECNOD | 4272 | N SDECNOD | |||
4273 | "RTN","SDE C25",409,0 ) | 4273 | "RTN","SDE C25",409,0 ) | |||
4274 | I '+$G(SD ECAPTID) Q | 4274 | I '+$G(SD ECAPTID) Q | |||
4275 | "RTN","SDE C25",410,0 ) | 4275 | "RTN","SDE C25",410,0 ) | |||
4276 | I '$D(^SD EC(409.84, +SDECAPTID ,0)) Q | 4276 | I '$D(^SD EC(409.84, +SDECAPTID ,0)) Q | |||
4277 | "RTN","SDE C25",411,0 ) | 4277 | "RTN","SDE C25",411,0 ) | |||
4278 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 4278 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
4279 | "RTN","SDE C25",412,0 ) | 4279 | "RTN","SDE C25",412,0 ) | |||
4280 | S APS=$P( SDECNOD,U, 19) | 4280 | S APS=$P( SDECNOD,U, 19) | |||
4281 | "RTN","SDE C25",413,0 ) | 4281 | "RTN","SDE C25",413,0 ) | |||
4282 | S DFN=$P( SDECNOD,U, 5) | 4282 | S DFN=$P( SDECNOD,U, 5) | |||
4283 | "RTN","SDE C25",414,0 ) | 4283 | "RTN","SDE C25",414,0 ) | |||
4284 | S SDT=$P( SDECNOD,U) | 4284 | S SDT=$P( SDECNOD,U) | |||
4285 | "RTN","SDE C25",415,0 ) | 4285 | "RTN","SDE C25",415,0 ) | |||
4286 | S RES=$P( SDECNOD,U, 7) | 4286 | S RES=$P( SDECNOD,U, 7) | |||
4287 | "RTN","SDE C25",416,0 ) | 4287 | "RTN","SDE C25",416,0 ) | |||
4288 | S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4) | 4288 | S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4) | |||
4289 | "RTN","SDE C25",417,0 ) | 4289 | "RTN","SDE C25",417,0 ) | |||
4290 | I $P(SDEC NOD,U,14)= "" Q | 4290 | I $P(SDEC NOD,U,14)= "" Q | |||
4291 | "RTN","SDE C25",418,0 ) | 4291 | "RTN","SDE C25",418,0 ) | |||
4292 | ; ^SDEC(4 09.84: upd ate piece 8: Data En try Clerk; clear pie ce 14: CHE CKOUT; | 4292 | ; ^SDEC(4 09.84: upd ate piece 8: Data En try Clerk; clear pie ce 14: CHE CKOUT; | |||
4293 | "RTN","SDE C25",419,0 ) | 4293 | "RTN","SDE C25",419,0 ) | |||
4294 | S DIE="^S DEC(409.84 ," | 4294 | S DIE="^S DEC(409.84 ," | |||
4295 | "RTN","SDE C25",420,0 ) | 4295 | "RTN","SDE C25",420,0 ) | |||
4296 | S DA=SDEC APTID | 4296 | S DA=SDEC APTID | |||
4297 | "RTN","SDE C25",421,0 ) | 4297 | "RTN","SDE C25",421,0 ) | |||
4298 | S DR=".14 ////@;.08/ //"_DUZ | 4298 | S DR=".14 ////@;.08/ //"_DUZ | |||
4299 | "RTN","SDE C25",422,0 ) | 4299 | "RTN","SDE C25",422,0 ) | |||
4300 | D ^DIE | 4300 | D ^DIE | |||
4301 | "RTN","SDE C25",423,0 ) | 4301 | "RTN","SDE C25",423,0 ) | |||
4302 | Q | 4302 | Q | |||
4303 | "RTN","SDE C25",424,0 ) | 4303 | "RTN","SDE C25",424,0 ) | |||
4304 | ; | 4304 | ; | |||
4305 | "RTN","SDE C25",425,0 ) | 4305 | "RTN","SDE C25",425,0 ) | |||
4306 | ERROR ; | 4306 | ERROR ; | |||
4307 | "RTN","SDE C25",426,0 ) | 4307 | "RTN","SDE C25",426,0 ) | |||
4308 | D ERR("VI STA Error" ) | 4308 | D ERR("VI STA Error" ) | |||
4309 | "RTN","SDE C25",427,0 ) | 4309 | "RTN","SDE C25",427,0 ) | |||
4310 | Q | 4310 | Q | |||
4311 | "RTN","SDE C25",428,0 ) | 4311 | "RTN","SDE C25",428,0 ) | |||
4312 | ; | 4312 | ; | |||
4313 | "RTN","SDE C25",429,0 ) | 4313 | "RTN","SDE C25",429,0 ) | |||
4314 | ERR(ERRNO) ;Error pr ocessing | 4314 | ERR(ERRNO) ;Error pr ocessing | |||
4315 | "RTN","SDE C25",430,0 ) | 4315 | "RTN","SDE C25",430,0 ) | |||
4316 | S SDECI=S DECI+1 | 4316 | S SDECI=S DECI+1 | |||
4317 | "RTN","SDE C25",431,0 ) | 4317 | "RTN","SDE C25",431,0 ) | |||
4318 | S ^TMP("S DEC",$J,SD ECI)=ERRNO _$C(30) | 4318 | S ^TMP("S DEC",$J,SD ECI)=ERRNO _$C(30) | |||
4319 | "RTN","SDE C25",432,0 ) | 4319 | "RTN","SDE C25",432,0 ) | |||
4320 | S SDECI=S DECI+1 | 4320 | S SDECI=S DECI+1 | |||
4321 | "RTN","SDE C25",433,0 ) | 4321 | "RTN","SDE C25",433,0 ) | |||
4322 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 4322 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
4323 | "RTN","SDE C25",434,0 ) | 4323 | "RTN","SDE C25",434,0 ) | |||
4324 | Q | 4324 | Q | |||
4325 | "RTN","SDE C31") | 4325 | "RTN","SDE C31") | |||
4326 | 0^8^B34969 907^B26336 338 | 4326 | 0^8^B34969 907^B26336 338 | |||
4327 | "RTN","SDE C31",1,0) | 4327 | "RTN","SDE C31",1,0) | |||
4328 | SDEC31 ;AL B/SAT - VI STA SCHEDU LING RPCS ;JAN 15, 2 016 | 4328 | SDEC31 ;AL B/SAT - VI STA SCHEDU LING RPCS ;JAN 15, 2 016 | |||
4329 | "RTN","SDE C31",2,0) | 4329 | "RTN","SDE C31",2,0) | |||
4330 | ;;5.3;Sch eduling;** 627,683,71 7**;Aug 13 , 1993;Bui ld 7 | 4330 | ;;5.3;Sch eduling;** 627,683,71 7**;Aug 13 , 1993;Bui ld 7 | |||
4331 | "RTN","SDE C31",3,0) | 4331 | "RTN","SDE C31",3,0) | |||
4332 | ; | 4332 | ; | |||
4333 | "RTN","SDE C31",4,0) | 4333 | "RTN","SDE C31",4,0) | |||
4334 | Q | 4334 | Q | |||
4335 | "RTN","SDE C31",5,0) | 4335 | "RTN","SDE C31",5,0) | |||
4336 | ; | 4336 | ; | |||
4337 | "RTN","SDE C31",6,0) | 4337 | "RTN","SDE C31",6,0) | |||
4338 | NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE) ; Sets appoi ntment nos how flag i n SDEC APP OINTMENT f ile | 4338 | NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE) ; Sets appoi ntment nos how flag i n SDEC APP OINTMENT f ile | |||
4339 | "RTN","SDE C31",7,0) | 4339 | "RTN","SDE C31",7,0) | |||
4340 | ;NOSHOW(S DECY,SDECA PTID,SDECN S,USERIEN, SDECDATE) external parameter tag is in SDEC | 4340 | ;NOSHOW(S DECY,SDECA PTID,SDECN S,USERIEN, SDECDATE) external parameter tag is in SDEC | |||
4341 | "RTN","SDE C31",8,0) | 4341 | "RTN","SDE C31",8,0) | |||
4342 | ;Called b y SDEC NOS HOW | 4342 | ;Called b y SDEC NOS HOW | |||
4343 | "RTN","SDE C31",9,0) | 4343 | "RTN","SDE C31",9,0) | |||
4344 | ;SDECAPTI D - (requi red) Appoi ntment ID - Pointer to SDEC AP POINTMENT file | 4344 | ;SDECAPTI D - (requi red) Appoi ntment ID - Pointer to SDEC AP POINTMENT file | |||
4345 | "RTN","SDE C31",10,0) | 4345 | "RTN","SDE C31",10,0) | |||
4346 | ;SDECNS - (requi red) Cance l flag 1= YES (Set N OSHOW); 0= NO (Cancel NOSHOW) | 4346 | ;SDECNS - (requi red) Cance l flag 1= YES (Set N OSHOW); 0= NO (Cancel NOSHOW) | |||
4347 | "RTN","SDE C31",11,0) | 4347 | "RTN","SDE C31",11,0) | |||
4348 | ;USERIEN - (optio nal) User that enter ed NoShow pointer to NEW PERSO N | 4348 | ;USERIEN - (optio nal) User that enter ed NoShow pointer to NEW PERSO N | |||
4349 | "RTN","SDE C31",12,0) | 4349 | "RTN","SDE C31",12,0) | |||
4350 | ; defau lt to curr ent user | 4350 | ; defau lt to curr ent user | |||
4351 | "RTN","SDE C31",13,0) | 4351 | "RTN","SDE C31",13,0) | |||
4352 | ;SDECDATE - (optio nal) Date/ Time that No-show wa s entered in externa l format | 4352 | ;SDECDATE - (optio nal) Date/ Time that No-show wa s entered in externa l format | |||
4353 | "RTN","SDE C31",14,0) | 4353 | "RTN","SDE C31",14,0) | |||
4354 | ; defaul t to NOW. | 4354 | ; defaul t to NOW. | |||
4355 | "RTN","SDE C31",15,0) | 4355 | "RTN","SDE C31",15,0) | |||
4356 | ;Calls CA NCEL^SDEC0 8 to set n oshow data in ^DPT <<== NOT T RUE wtc 10 /25/18 | 4356 | ;Calls CA NCEL^SDEC0 8 to set n oshow data in ^DPT <<== NOT T RUE wtc 10 /25/18 | |||
4357 | "RTN","SDE C31",16,0) | 4357 | "RTN","SDE C31",16,0) | |||
4358 | ;Returns error code in record set field ERRORID | 4358 | ;Returns error code in record set field ERRORID | |||
4359 | "RTN","SDE C31",17,0) | 4359 | "RTN","SDE C31",17,0) | |||
4360 | ; | 4360 | ; | |||
4361 | "RTN","SDE C31",18,0) | 4361 | "RTN","SDE C31",18,0) | |||
4362 | N SDECNOD ,DFN,SDECS TART,SDECI D,SDECI,SD ECZ,SDECER R,SDECMSG, SDFDA,SDEC IENS | 4362 | N SDECNOD ,DFN,SDECS TART,SDECI D,SDECI,SD ECZ,SDECER R,SDECMSG, SDFDA,SDEC IENS | |||
4363 | "RTN","SDE C31",19,0) | 4363 | "RTN","SDE C31",19,0) | |||
4364 | N SDECNOE V,%DT,X,Y, SDECOE | 4364 | N SDECNOE V,%DT,X,Y, SDECOE | |||
4365 | "RTN","SDE C31",20,0) | 4365 | "RTN","SDE C31",20,0) | |||
4366 | S SDECNOE V=1 ;Don't execute p rotocol | 4366 | S SDECNOE V=1 ;Don't execute p rotocol | |||
4367 | "RTN","SDE C31",21,0) | 4367 | "RTN","SDE C31",21,0) | |||
4368 | ; | 4368 | ; | |||
4369 | "RTN","SDE C31",22,0) | 4369 | "RTN","SDE C31",22,0) | |||
4370 | S SDECI=0 | 4370 | S SDECI=0 | |||
4371 | "RTN","SDE C31",23,0) | 4371 | "RTN","SDE C31",23,0) | |||
4372 | K ^TMP("S DEC",$J) | 4372 | K ^TMP("S DEC",$J) | |||
4373 | "RTN","SDE C31",24,0) | 4373 | "RTN","SDE C31",24,0) | |||
4374 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | 4374 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |||
4375 | "RTN","SDE C31",25,0) | 4375 | "RTN","SDE C31",25,0) | |||
4376 | S ^TMP("S DEC",$J,SD ECI)="I000 20ERRORID^ T00030ERRO RTEXT"_$C( 30) | 4376 | S ^TMP("S DEC",$J,SD ECI)="I000 20ERRORID^ T00030ERRO RTEXT"_$C( 30) | |||
4377 | "RTN","SDE C31",26,0) | 4377 | "RTN","SDE C31",26,0) | |||
4378 | S SDECI=S DECI+1 | 4378 | S SDECI=S DECI+1 | |||
4379 | "RTN","SDE C31",27,0) | 4379 | "RTN","SDE C31",27,0) | |||
4380 | ;validate SDEC appo intment ID | 4380 | ;validate SDEC appo intment ID | |||
4381 | "RTN","SDE C31",28,0) | 4381 | "RTN","SDE C31",28,0) | |||
4382 | I '+SDECA PTID D ERR (0,"SDEC31 : Invalid Appointmen t ID") Q | 4382 | I '+SDECA PTID D ERR (0,"SDEC31 : Invalid Appointmen t ID") Q | |||
4383 | "RTN","SDE C31",29,0) | 4383 | "RTN","SDE C31",29,0) | |||
4384 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( 0,"SDEC31: Invalid A ppointment ID") Q | 4384 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( 0,"SDEC31: Invalid A ppointment ID") Q | |||
4385 | "RTN","SDE C31",30,0) | 4385 | "RTN","SDE C31",30,0) | |||
4386 | ;validate cancel fl ag | 4386 | ;validate cancel fl ag | |||
4387 | "RTN","SDE C31",31,0) | 4387 | "RTN","SDE C31",31,0) | |||
4388 | S SDECNS= $G(SDECNS) | 4388 | S SDECNS= $G(SDECNS) | |||
4389 | "RTN","SDE C31",32,0) | 4389 | "RTN","SDE C31",32,0) | |||
4390 | S SDECNS= $S(SDECNS= "YES":1,SD ECNS=1:1,S DECNS="NO" :0,SDECNS= 0:0,1:"") | 4390 | S SDECNS= $S(SDECNS= "YES":1,SD ECNS=1:1,S DECNS="NO" :0,SDECNS= 0:0,1:"") | |||
4391 | "RTN","SDE C31",33,0) | 4391 | "RTN","SDE C31",33,0) | |||
4392 | I SDECNS= "" D ERR(0 ,"SDEC31: Invalid No Show valu e") Q | 4392 | I SDECNS= "" D ERR(0 ,"SDEC31: Invalid No Show valu e") Q | |||
4393 | "RTN","SDE C31",34,0) | 4393 | "RTN","SDE C31",34,0) | |||
4394 | ;validate user IEN (optional) | 4394 | ;validate user IEN (optional) | |||
4395 | "RTN","SDE C31",35,0) | 4395 | "RTN","SDE C31",35,0) | |||
4396 | S USERIEN =$G(USERIE N) | 4396 | S USERIEN =$G(USERIE N) | |||
4397 | "RTN","SDE C31",36,0) | 4397 | "RTN","SDE C31",36,0) | |||
4398 | I USERIEN '="" I '$D (^VA(200,+ USERIEN,0) ) S USERIE N="" | 4398 | I USERIEN '="" I '$D (^VA(200,+ USERIEN,0) ) S USERIE N="" | |||
4399 | "RTN","SDE C31",37,0) | 4399 | "RTN","SDE C31",37,0) | |||
4400 | I USERIEN ="" S USER IEN=DUZ | 4400 | I USERIEN ="" S USER IEN=DUZ | |||
4401 | "RTN","SDE C31",38,0) | 4401 | "RTN","SDE C31",38,0) | |||
4402 | ;validate cancel da te/time (o ptional) | 4402 | ;validate cancel da te/time (o ptional) | |||
4403 | "RTN","SDE C31",39,0) | 4403 | "RTN","SDE C31",39,0) | |||
4404 | S SDECDAT E=$G(SDECD ATE) | 4404 | S SDECDAT E=$G(SDECD ATE) | |||
4405 | "RTN","SDE C31",40,0) | 4405 | "RTN","SDE C31",40,0) | |||
4406 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | 4406 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | |||
4407 | "RTN","SDE C31",41,0) | 4407 | "RTN","SDE C31",41,0) | |||
4408 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | 4408 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | |||
4409 | "RTN","SDE C31",42,0) | 4409 | "RTN","SDE C31",42,0) | |||
4410 | TSTART | 4410 | TSTART | |||
4411 | "RTN","SDE C31",43,0) | 4411 | "RTN","SDE C31",43,0) | |||
4412 | ; | 4412 | ; | |||
4413 | "RTN","SDE C31",44,0) | 4413 | "RTN","SDE C31",44,0) | |||
4414 | ;Edit SDE C APPOINTM ENT entry NOSHOW fie ld | 4414 | ;Edit SDE C APPOINTM ENT entry NOSHOW fie ld | |||
4415 | "RTN","SDE C31",45,0) | 4415 | "RTN","SDE C31",45,0) | |||
4416 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | 4416 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |||
4417 | "RTN","SDE C31",46,0) | 4417 | "RTN","SDE C31",46,0) | |||
4418 | ;I SDECNO D="" D ERR (0,"SDEC31 : Invalid Appointmen t ID") Q | 4418 | ;I SDECNO D="" D ERR (0,"SDEC31 : Invalid Appointmen t ID") Q | |||
4419 | "RTN","SDE C31",47,0) | 4419 | "RTN","SDE C31",47,0) | |||
4420 | S DFN=$P( SDECNOD,U, 5) | 4420 | S DFN=$P( SDECNOD,U, 5) | |||
4421 | "RTN","SDE C31",48,0) | 4421 | "RTN","SDE C31",48,0) | |||
4422 | S SDECSTA RT=$P(SDEC NOD,U) | 4422 | S SDECSTA RT=$P(SDEC NOD,U) | |||
4423 | "RTN","SDE C31",49,0) | 4423 | "RTN","SDE C31",49,0) | |||
4424 | ; | 4424 | ; | |||
4425 | "RTN","SDE C31",50,0) | 4425 | "RTN","SDE C31",50,0) | |||
4426 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | 4426 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |||
4427 | "RTN","SDE C31",51,0) | 4427 | "RTN","SDE C31",51,0) | |||
4428 | ; | 4428 | ; | |||
4429 | "RTN","SDE C31",52,0) | 4429 | "RTN","SDE C31",52,0) | |||
4430 | N SDATA,S DDA,SDCIHD L,SDECR1,S DECSC1 ; | 4430 | N SDATA,S DDA,SDCIHD L,SDECR1,S DECSC1 ; | |||
4431 | "RTN","SDE C31",53,0) | 4431 | "RTN","SDE C31",53,0) | |||
4432 | S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID | 4432 | S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID | |||
4433 | "RTN","SDE C31",54,0) | 4433 | "RTN","SDE C31",54,0) | |||
4434 | I SDECR1= "" D ERR(0 ,"SDEC31: Missing re source") Q ; | 4434 | I SDECR1= "" D ERR(0 ,"SDEC31: Missing re source") Q ; | |||
4435 | "RTN","SDE C31",55,0) | 4435 | "RTN","SDE C31",55,0) | |||
4436 | S SDECNOD =$G(^SDEC( 409.831,SD ECR1,0)) I SDECNOD=" " D ERR(0, "SDEC31: R esource no de missing ") Q ; | 4436 | S SDECNOD =$G(^SDEC( 409.831,SD ECR1,0)) I SDECNOD=" " D ERR(0, "SDEC31: R esource no de missing ") Q ; | |||
4437 | "RTN","SDE C31",56,0) | 4437 | "RTN","SDE C31",56,0) | |||
4438 | S SDECSC1 =$P(SDECNO D,U,4) ;HO SPITAL LOC ATION | 4438 | S SDECSC1 =$P(SDECNO D,U,4) ;HO SPITAL LOC ATION | |||
4439 | "RTN","SDE C31",57,0) | 4439 | "RTN","SDE C31",57,0) | |||
4440 | I SDECSC1 ="" D ERR (0,"SDEC31 : No locat ion for re source") Q ; | 4440 | I SDECSC1 ="" D ERR (0,"SDEC31 : No locat ion for re source") Q ; | |||
4441 | "RTN","SDE C31",58,0) | 4441 | "RTN","SDE C31",58,0) | |||
4442 | I '$D(^SC (SDECSC1,0 )) D ERR(0 ,"SDEC31: Location n ode missin g") Q ; | 4442 | I '$D(^SC (SDECSC1,0 )) D ERR(0 ,"SDEC31: Location n ode missin g") Q ; | |||
4443 | "RTN","SDE C31",59,0) | 4443 | "RTN","SDE C31",59,0) | |||
4444 | ; | 4444 | ; | |||
4445 | "RTN","SDE C31",60,0) | 4445 | "RTN","SDE C31",60,0) | |||
4446 | S SDDA=$$ FIND^SDEC2 5(DFN,SDEC START,SDEC SC1),SDATA =SDDA_U_DF N_U_SDECST ART_U_SDEC SC1,SDCIHD L=$$HANDLE ^SDAMEVT(1 ) ; | 4446 | S SDDA=$$ FIND^SDEC2 5(DFN,SDEC START,SDEC SC1),SDATA =SDDA_U_DF N_U_SDECST ART_U_SDEC SC1,SDCIHD L=$$HANDLE ^SDAMEVT(1 ) ; | |||
4447 | "RTN","SDE C31",61,0) | 4447 | "RTN","SDE C31",61,0) | |||
4448 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DECSTART,S DECSC1,SDD A,SDCIHDL) ; | 4448 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DECSTART,S DECSC1,SDD A,SDCIHDL) ; | |||
4449 | "RTN","SDE C31",62,0) | 4449 | "RTN","SDE C31",62,0) | |||
4450 | ; | 4450 | ; | |||
4451 | "RTN","SDE C31",63,0) | 4451 | "RTN","SDE C31",63,0) | |||
4452 | ; Proces s no show | 4452 | ; Proces s no show | |||
4453 | "RTN","SDE C31",64,0) | 4453 | "RTN","SDE C31",64,0) | |||
4454 | ; | 4454 | ; | |||
4455 | "RTN","SDE C31",65,0) | 4455 | "RTN","SDE C31",65,0) | |||
4456 | D SDECNOS (SDECAPTID ,SDECNS,US ERIEN,SDEC DATE) ; | 4456 | D SDECNOS (SDECAPTID ,SDECNS,US ERIEN,SDEC DATE) ; | |||
4457 | "RTN","SDE C31",66,0) | 4457 | "RTN","SDE C31",66,0) | |||
4458 | I $D(SDEC MSG("DIERR ")) S SDEC MSG=$G(SDE CMSG("DIER R",1,"TEXT ",1)) D ER R(0,"SDEC3 1: "_SDECM SG) Q ; | 4458 | I $D(SDEC MSG("DIERR ")) S SDEC MSG=$G(SDE CMSG("DIER R",1,"TEXT ",1)) D ER R(0,"SDEC3 1: "_SDECM SG) Q ; | |||
4459 | "RTN","SDE C31",67,0) | 4459 | "RTN","SDE C31",67,0) | |||
4460 | D APNOSHO (.SDECZ,SD ECSC1,DFN, SDECSTART, SDECNS,USE RIEN,SDECD ATE,SDECAP TID) ; | 4460 | D APNOSHO (.SDECZ,SD ECSC1,DFN, SDECSTART, SDECNS,USE RIEN,SDECD ATE,SDECAP TID) ; | |||
4461 | "RTN","SDE C31",68,0) | 4461 | "RTN","SDE C31",68,0) | |||
4462 | I +$G(SDE CZ) S SDEC ERR="SDEC3 1: APNOSHO Returned: "_SDECZ D ERR(0,SDE CERR) Q ; | 4462 | I +$G(SDE CZ) S SDEC ERR="SDEC3 1: APNOSHO Returned: "_SDECZ D ERR(0,SDE CERR) Q ; | |||
4463 | "RTN","SDE C31",69,0) | 4463 | "RTN","SDE C31",69,0) | |||
4464 | ; | 4464 | ; | |||
4465 | "RTN","SDE C31",70,0) | 4465 | "RTN","SDE C31",70,0) | |||
4466 | ;*zeb+2 6 83 2/6/18 fix action required in PCE aft er no-show from GUI | 4466 | ;*zeb+2 6 83 2/6/18 fix action required in PCE aft er no-show from GUI | |||
4467 | "RTN","SDE C31",71,0) | 4467 | "RTN","SDE C31",71,0) | |||
4468 | S SDECOE= $P($G(^DPT (DFN,"S",S DECSTART,0 )),"^",20) | 4468 | S SDECOE= $P($G(^DPT (DFN,"S",S DECSTART,0 )),"^",20) | |||
4469 | "RTN","SDE C31",72,0) | 4469 | "RTN","SDE C31",72,0) | |||
4470 | I SDECOE D EN^SDCOD EL(SDECOE, 2,"","NOSH OW") ;*ze b 717 11/1 3/18 suppr ess event logging fo r cancel c heckout wh en no-show ing | 4470 | I SDECOE D EN^SDCOD EL(SDECOE, 2,"","NOSH OW") ;*ze b 717 11/1 3/18 suppr ess event logging fo r cancel c heckout wh en no-show ing | |||
4471 | "RTN","SDE C31",73,0) | 4471 | "RTN","SDE C31",73,0) | |||
4472 | ; | 4472 | ; | |||
4473 | "RTN","SDE C31",74,0) | 4473 | "RTN","SDE C31",74,0) | |||
4474 | ; Event driver "AF TER" actio ns - wtc S D*5.3*717 10/24/18 | 4474 | ; Event driver "AF TER" actio ns - wtc S D*5.3*717 10/24/18 | |||
4475 | "RTN","SDE C31",75,0) | 4475 | "RTN","SDE C31",75,0) | |||
4476 | ; | 4476 | ; | |||
4477 | "RTN","SDE C31",76,0) | 4477 | "RTN","SDE C31",76,0) | |||
4478 | D AFTER^S DAMEVT(.SD ATA,DFN,SD ECSTART,SD ECSC1,SDDA ,SDCIHDL) ; | 4478 | D AFTER^S DAMEVT(.SD ATA,DFN,SD ECSTART,SD ECSC1,SDDA ,SDCIHDL) ; | |||
4479 | "RTN","SDE C31",77,0) | 4479 | "RTN","SDE C31",77,0) | |||
4480 | ; | 4480 | ; | |||
4481 | "RTN","SDE C31",78,0) | 4481 | "RTN","SDE C31",78,0) | |||
4482 | ; Execut e event dr iver. 3=n o show (se e #409.66) , 2=non-in teractive - wtc SD*5 .3*717 10/ 25/18 | 4482 | ; Execut e event dr iver. 3=n o show (se e #409.66) , 2=non-in teractive - wtc SD*5 .3*717 10/ 25/18 | |||
4483 | "RTN","SDE C31",79,0) | 4483 | "RTN","SDE C31",79,0) | |||
4484 | ; | 4484 | ; | |||
4485 | "RTN","SDE C31",80,0) | 4485 | "RTN","SDE C31",80,0) | |||
4486 | D EVT^SDA MEVT(.SDAT A,3,2,SDCI HDL) ; | 4486 | D EVT^SDA MEVT(.SDAT A,3,2,SDCI HDL) ; | |||
4487 | "RTN","SDE C31",81,0) | 4487 | "RTN","SDE C31",81,0) | |||
4488 | ; | 4488 | ; | |||
4489 | "RTN","SDE C31",82,0) | 4489 | "RTN","SDE C31",82,0) | |||
4490 | TCOMMIT | 4490 | TCOMMIT | |||
4491 | "RTN","SDE C31",83,0) | 4491 | "RTN","SDE C31",83,0) | |||
4492 | S SDECI=S DECI+1 | 4492 | S SDECI=S DECI+1 | |||
4493 | "RTN","SDE C31",84,0) | 4493 | "RTN","SDE C31",84,0) | |||
4494 | S ^TMP("S DEC",$J,SD ECI)="1^"_ $C(30) | 4494 | S ^TMP("S DEC",$J,SD ECI)="1^"_ $C(30) | |||
4495 | "RTN","SDE C31",85,0) | 4495 | "RTN","SDE C31",85,0) | |||
4496 | S SDECI=S DECI+1 | 4496 | S SDECI=S DECI+1 | |||
4497 | "RTN","SDE C31",86,0) | 4497 | "RTN","SDE C31",86,0) | |||
4498 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 4498 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
4499 | "RTN","SDE C31",87,0) | 4499 | "RTN","SDE C31",87,0) | |||
4500 | Q | 4500 | Q | |||
4501 | "RTN","SDE C31",88,0) | 4501 | "RTN","SDE C31",88,0) | |||
4502 | ; | 4502 | ; | |||
4503 | "RTN","SDE C31",89,0) | 4503 | "RTN","SDE C31",89,0) | |||
4504 | APNOSHO(SD ECZ,SDCL,D FN,SDT,SDE CNS,USERIE N,SDECCDT, SDAPID) ; | 4504 | APNOSHO(SD ECZ,SDCL,D FN,SDT,SDE CNS,USERIE N,SDECCDT, SDAPID) ; | |||
4505 | "RTN","SDE C31",90,0) | 4505 | "RTN","SDE C31",90,0) | |||
4506 | ; update file 2 inf o | 4506 | ; update file 2 inf o | |||
4507 | "RTN","SDE C31",91,0) | 4507 | "RTN","SDE C31",91,0) | |||
4508 | ;Set nosh ow for pat ient DFN i n clinic S DCL | 4508 | ;Set nosh ow for pat ient DFN i n clinic S DCL | |||
4509 | "RTN","SDE C31",92,0) | 4509 | "RTN","SDE C31",92,0) | |||
4510 | ;at time SDT | 4510 | ;at time SDT | |||
4511 | "RTN","SDE C31",93,0) | 4511 | "RTN","SDE C31",93,0) | |||
4512 | N SDECC,% H,SDECIEN, SDRTYP | 4512 | N SDECC,% H,SDECIEN, SDRTYP | |||
4513 | "RTN","SDE C31",94,0) | 4513 | "RTN","SDE C31",94,0) | |||
4514 | N SDECIEN S,SDFDA,SD ECMSG,IEN | 4514 | N SDECIEN S,SDFDA,SD ECMSG,IEN | |||
4515 | "RTN","SDE C31",95,0) | 4515 | "RTN","SDE C31",95,0) | |||
4516 | S %H=$H D YMD^%DTC | 4516 | S %H=$H D YMD^%DTC | |||
4517 | "RTN","SDE C31",96,0) | 4517 | "RTN","SDE C31",96,0) | |||
4518 | ; | 4518 | ; | |||
4519 | "RTN","SDE C31",97,0) | 4519 | "RTN","SDE C31",97,0) | |||
4520 | S SDECIEN S=SDT_","_ DFN_"," | 4520 | S SDECIEN S=SDT_","_ DFN_"," | |||
4521 | "RTN","SDE C31",98,0) | 4521 | "RTN","SDE C31",98,0) | |||
4522 | I +SDECNS D | 4522 | I +SDECNS D | |||
4523 | "RTN","SDE C31",99,0) | 4523 | "RTN","SDE C31",99,0) | |||
4524 | . S SDFDA (2.98,SDEC IENS,3)="N " | 4524 | . S SDFDA (2.98,SDEC IENS,3)="N " | |||
4525 | "RTN","SDE C31",100,0 ) | 4525 | "RTN","SDE C31",100,0 ) | |||
4526 | . S SDFDA (2.98,SDEC IENS,14)=U SERIEN | 4526 | . S SDFDA (2.98,SDEC IENS,14)=U SERIEN | |||
4527 | "RTN","SDE C31",101,0 ) | 4527 | "RTN","SDE C31",101,0 ) | |||
4528 | . S SDFDA (2.98,SDEC IENS,15)=S DECCDT | 4528 | . S SDFDA (2.98,SDEC IENS,15)=S DECCDT | |||
4529 | "RTN","SDE C31",102,0 ) | 4529 | "RTN","SDE C31",102,0 ) | |||
4530 | E D | 4530 | E D | |||
4531 | "RTN","SDE C31",103,0 ) | 4531 | "RTN","SDE C31",103,0 ) | |||
4532 | . S SDFDA (2.98,SDEC IENS,3)="" | 4532 | . S SDFDA (2.98,SDEC IENS,3)="" | |||
4533 | "RTN","SDE C31",104,0 ) | 4533 | "RTN","SDE C31",104,0 ) | |||
4534 | . S SDFDA (2.98,SDEC IENS,14)=" " | 4534 | . S SDFDA (2.98,SDEC IENS,14)=" " | |||
4535 | "RTN","SDE C31",105,0 ) | 4535 | "RTN","SDE C31",105,0 ) | |||
4536 | . S SDFDA (2.98,SDEC IENS,15)=" " | 4536 | . S SDFDA (2.98,SDEC IENS,15)=" " | |||
4537 | "RTN","SDE C31",106,0 ) | 4537 | "RTN","SDE C31",106,0 ) | |||
4538 | K SDECIEN | 4538 | K SDECIEN | |||
4539 | "RTN","SDE C31",107,0 ) | 4539 | "RTN","SDE C31",107,0 ) | |||
4540 | D UPDATE^ DIE("","SD FDA","SDEC IEN","SDEC MSG") | 4540 | D UPDATE^ DIE("","SD FDA","SDEC IEN","SDEC MSG") | |||
4541 | "RTN","SDE C31",108,0 ) | 4541 | "RTN","SDE C31",108,0 ) | |||
4542 | S SDECZ=$ G(SDECMSG( "DIERR",1, "TEXT",1)) | 4542 | S SDECZ=$ G(SDECMSG( "DIERR",1, "TEXT",1)) | |||
4543 | "RTN","SDE C31",109,0 ) | 4543 | "RTN","SDE C31",109,0 ) | |||
4544 | S SDRTYP= $$GET1^DIQ (409.84,SD APID_",",. 22,"I") | 4544 | S SDRTYP= $$GET1^DIQ (409.84,SD APID_",",. 22,"I") | |||
4545 | "RTN","SDE C31",110,0 ) | 4545 | "RTN","SDE C31",110,0 ) | |||
4546 | I $P(SDRT YP,";",2)= "GMR(123," D | 4546 | I $P(SDRT YP,";",2)= "GMR(123," D | |||
4547 | "RTN","SDE C31",111,0 ) | 4547 | "RTN","SDE C31",111,0 ) | |||
4548 | .S IEN=$$ SCIEN^SDEC U2(DFN,SDC L,SDT) | 4548 | .S IEN=$$ SCIEN^SDEC U2(DFN,SDC L,SDT) | |||
4549 | "RTN","SDE C31",112,0 ) | 4549 | "RTN","SDE C31",112,0 ) | |||
4550 | .D NOSHOW ^SDCNSLT(S DCL,SDT,DF N,$P(SDRTY P,";",1),I EN) ;, AUTO,NSDIE ,NSDA) | 4550 | .D NOSHOW ^SDCNSLT(S DCL,SDT,DF N,$P(SDRTY P,";",1),I EN) ;, AUTO,NSDIE ,NSDA) | |||
4551 | "RTN","SDE C31",113,0 ) | 4551 | "RTN","SDE C31",113,0 ) | |||
4552 | Q | 4552 | Q | |||
4553 | "RTN","SDE C31",114,0 ) | 4553 | "RTN","SDE C31",114,0 ) | |||
4554 | ; | 4554 | ; | |||
4555 | "RTN","SDE C31",115,0 ) | 4555 | "RTN","SDE C31",115,0 ) | |||
4556 | SDECNOS(SD ECAPTID,SD ECNS,USERI EN,SDECDAT E) ; | 4556 | SDECNOS(SD ECAPTID,SD ECNS,USERI EN,SDECDAT E) ; | |||
4557 | "RTN","SDE C31",116,0 ) | 4557 | "RTN","SDE C31",116,0 ) | |||
4558 | ; | 4558 | ; | |||
4559 | "RTN","SDE C31",117,0 ) | 4559 | "RTN","SDE C31",117,0 ) | |||
4560 | N SDFDA,S DECIENS | 4560 | N SDFDA,S DECIENS | |||
4561 | "RTN","SDE C31",118,0 ) | 4561 | "RTN","SDE C31",118,0 ) | |||
4562 | S SDECIEN S=SDECAPTI D_"," | 4562 | S SDECIEN S=SDECAPTI D_"," | |||
4563 | "RTN","SDE C31",119,0 ) | 4563 | "RTN","SDE C31",119,0 ) | |||
4564 | S SDFDA(4 09.84,SDEC IENS,.1)=S DECNS ;NOS HOW | 4564 | S SDFDA(4 09.84,SDEC IENS,.1)=S DECNS ;NOS HOW | |||
4565 | "RTN","SDE C31",120,0 ) | 4565 | "RTN","SDE C31",120,0 ) | |||
4566 | S SDFDA(4 09.84,SDEC IENS,.101) =$S(+SDECN S:SDECDATE ,1:"") ;N OSHOW DATE | 4566 | S SDFDA(4 09.84,SDEC IENS,.101) =$S(+SDECN S:SDECDATE ,1:"") ;N OSHOW DATE | |||
4567 | "RTN","SDE C31",121,0 ) | 4567 | "RTN","SDE C31",121,0 ) | |||
4568 | S SDFDA(4 09.84,SDEC IENS,.102) =$S(+SDECN S:USERIEN, 1:"") ;N OSHOW USER | 4568 | S SDFDA(4 09.84,SDEC IENS,.102) =$S(+SDECN S:USERIEN, 1:"") ;N OSHOW USER | |||
4569 | "RTN","SDE C31",122,0 ) | 4569 | "RTN","SDE C31",122,0 ) | |||
4570 | S SDFDA(4 09.84,SDEC IENS,.17)= $S(+SDECNS :"N",1:"") ; Update STATUS SD *5.3*717 w tc 10/25/1 8 | 4570 | S SDFDA(4 09.84,SDEC IENS,.17)= $S(+SDECNS :"N",1:"") ; Update STATUS SD *5.3*717 w tc 10/25/1 8 | |||
4571 | "RTN","SDE C31",123,0 ) | 4571 | "RTN","SDE C31",123,0 ) | |||
4572 | D FILE^DI E("","SDFD A","SDECMS G") | 4572 | D FILE^DI E("","SDFD A","SDECMS G") | |||
4573 | "RTN","SDE C31",124,0 ) | 4573 | "RTN","SDE C31",124,0 ) | |||
4574 | ; | 4574 | ; | |||
4575 | "RTN","SDE C31",125,0 ) | 4575 | "RTN","SDE C31",125,0 ) | |||
4576 | Q | 4576 | Q | |||
4577 | "RTN","SDE C31",126,0 ) | 4577 | "RTN","SDE C31",126,0 ) | |||
4578 | ; | 4578 | ; | |||
4579 | "RTN","SDE C31",127,0 ) | 4579 | "RTN","SDE C31",127,0 ) | |||
4580 | NOSEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C NOSHOW A PPOINTMENT event | 4580 | NOSEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C NOSHOW A PPOINTMENT event | |||
4581 | "RTN","SDE C31",128,0 ) | 4581 | "RTN","SDE C31",128,0 ) | |||
4582 | ;when app ointments NOSHOW via PIMS inte rface. | 4582 | ;when app ointments NOSHOW via PIMS inte rface. | |||
4583 | "RTN","SDE C31",129,0 ) | 4583 | "RTN","SDE C31",129,0 ) | |||
4584 | ;Propagat es NOSHOW to SDECAPP T and rais es refresh event to running GU I clients | 4584 | ;Propagat es NOSHOW to SDECAPP T and rais es refresh event to running GU I clients | |||
4585 | "RTN","SDE C31",130,0 ) | 4585 | "RTN","SDE C31",130,0 ) | |||
4586 | ; | 4586 | ; | |||
4587 | "RTN","SDE C31",131,0 ) | 4587 | "RTN","SDE C31",131,0 ) | |||
4588 | Q:+$G(SDE CNOEV) | 4588 | Q:+$G(SDE CNOEV) | |||
4589 | "RTN","SDE C31",132,0 ) | 4589 | "RTN","SDE C31",132,0 ) | |||
4590 | Q:'+$G(SD ECSC) | 4590 | Q:'+$G(SD ECSC) | |||
4591 | "RTN","SDE C31",133,0 ) | 4591 | "RTN","SDE C31",133,0 ) | |||
4592 | ;Q:$G(SDA TA("AFTER" ,"STATUS") )["AUTO RE -BOOK" | 4592 | ;Q:$G(SDA TA("AFTER" ,"STATUS") )["AUTO RE -BOOK" | |||
4593 | "RTN","SDE C31",134,0 ) | 4593 | "RTN","SDE C31",134,0 ) | |||
4594 | N SDECSTA T,SDECFOUN D,SDECRES | 4594 | N SDECSTA T,SDECFOUN D,SDECRES | |||
4595 | "RTN","SDE C31",135,0 ) | 4595 | "RTN","SDE C31",135,0 ) | |||
4596 | S SDECSTA T=1 | 4596 | S SDECSTA T=1 | |||
4597 | "RTN","SDE C31",136,0 ) | 4597 | "RTN","SDE C31",136,0 ) | |||
4598 | ;S:$G(SDA TA("BEFORE ","STATUS" ))["NO-SHO W" SDECSTA T=0 | 4598 | ;S:$G(SDA TA("BEFORE ","STATUS" ))["NO-SHO W" SDECSTA T=0 | |||
4599 | "RTN","SDE C31",137,0 ) | 4599 | "RTN","SDE C31",137,0 ) | |||
4600 | S SDECFOU ND=0 | 4600 | S SDECFOU ND=0 | |||
4601 | "RTN","SDE C31",138,0 ) | 4601 | "RTN","SDE C31",138,0 ) | |||
4602 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$NOSEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT) | 4602 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$NOSEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT) | |||
4603 | "RTN","SDE C31",139,0 ) | 4603 | "RTN","SDE C31",139,0 ) | |||
4604 | I SDECFOU ND D NOSEV T3(SDECRES ) Q | 4604 | I SDECFOU ND D NOSEV T3(SDECRES ) Q | |||
4605 | "RTN","SDE C31",140,0 ) | 4605 | "RTN","SDE C31",140,0 ) | |||
4606 | Q | 4606 | Q | |||
4607 | "RTN","SDE C31",141,0 ) | 4607 | "RTN","SDE C31",141,0 ) | |||
4608 | ; | 4608 | ; | |||
4609 | "RTN","SDE C31",142,0 ) | 4609 | "RTN","SDE C31",142,0 ) | |||
4610 | NOSEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ; | 4610 | NOSEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ; | |||
4611 | "RTN","SDE C31",143,0 ) | 4611 | "RTN","SDE C31",143,0 ) | |||
4612 | ;Get appo intment id in SDECAP T | 4612 | ;Get appo intment id in SDECAP T | |||
4613 | "RTN","SDE C31",144,0 ) | 4613 | "RTN","SDE C31",144,0 ) | |||
4614 | ;If found , call SDE CNOS(SDECA PPT) and r eturn 1 | 4614 | ;If found , call SDE CNOS(SDECA PPT) and r eturn 1 | |||
4615 | "RTN","SDE C31",145,0 ) | 4615 | "RTN","SDE C31",145,0 ) | |||
4616 | ;else ret urn 0 | 4616 | ;else ret urn 0 | |||
4617 | "RTN","SDE C31",146,0 ) | 4617 | "RTN","SDE C31",146,0 ) | |||
4618 | N SDECFOU ND,SDECAPP T | 4618 | N SDECFOU ND,SDECAPP T | |||
4619 | "RTN","SDE C31",147,0 ) | 4619 | "RTN","SDE C31",147,0 ) | |||
4620 | S SDECFOU ND=0 | 4620 | S SDECFOU ND=0 | |||
4621 | "RTN","SDE C31",148,0 ) | 4621 | "RTN","SDE C31",148,0 ) | |||
4622 | Q:'+$G(SD ECRES) SDE CFOUND | 4622 | Q:'+$G(SD ECRES) SDE CFOUND | |||
4623 | "RTN","SDE C31",149,0 ) | 4623 | "RTN","SDE C31",149,0 ) | |||
4624 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | 4624 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | |||
4625 | "RTN","SDE C31",150,0 ) | 4625 | "RTN","SDE C31",150,0 ) | |||
4626 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | 4626 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | |||
4627 | "RTN","SDE C31",151,0 ) | 4627 | "RTN","SDE C31",151,0 ) | |||
4628 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | 4628 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | |||
4629 | "RTN","SDE C31",152,0 ) | 4629 | "RTN","SDE C31",152,0 ) | |||
4630 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | 4630 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | |||
4631 | "RTN","SDE C31",153,0 ) | 4631 | "RTN","SDE C31",153,0 ) | |||
4632 | I SDECFOU ND,+$G(SDE CAPPT) D S DECNOS(SDE CAPPT,SDEC STAT) | 4632 | I SDECFOU ND,+$G(SDE CAPPT) D S DECNOS(SDE CAPPT,SDEC STAT) | |||
4633 | "RTN","SDE C31",154,0 ) | 4633 | "RTN","SDE C31",154,0 ) | |||
4634 | Q SDECFOU ND | 4634 | Q SDECFOU ND | |||
4635 | "RTN","SDE C31",155,0 ) | 4635 | "RTN","SDE C31",155,0 ) | |||
4636 | ; | 4636 | ; | |||
4637 | "RTN","SDE C31",156,0 ) | 4637 | "RTN","SDE C31",156,0 ) | |||
4638 | NOSEVT3(SD ECRES) ; | 4638 | NOSEVT3(SD ECRES) ; | |||
4639 | "RTN","SDE C31",157,0 ) | 4639 | "RTN","SDE C31",157,0 ) | |||
4640 | ;Call Rai seEvent to notify GU I clients | 4640 | ;Call Rai seEvent to notify GU I clients | |||
4641 | "RTN","SDE C31",158,0 ) | 4641 | "RTN","SDE C31",158,0 ) | |||
4642 | ; | 4642 | ; | |||
4643 | "RTN","SDE C31",159,0 ) | 4643 | "RTN","SDE C31",159,0 ) | |||
4644 | Q | 4644 | Q | |||
4645 | "RTN","SDE C31",160,0 ) | 4645 | "RTN","SDE C31",160,0 ) | |||
4646 | N SDECRES N | 4646 | N SDECRES N | |||
4647 | "RTN","SDE C31",161,0 ) | 4647 | "RTN","SDE C31",161,0 ) | |||
4648 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | 4648 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | |||
4649 | "RTN","SDE C31",162,0 ) | 4649 | "RTN","SDE C31",162,0 ) | |||
4650 | Q:SDECRES N="" | 4650 | Q:SDECRES N="" | |||
4651 | "RTN","SDE C31",163,0 ) | 4651 | "RTN","SDE C31",163,0 ) | |||
4652 | S SDECRES N=$P(SDECR ESN,"^") | 4652 | S SDECRES N=$P(SDECR ESN,"^") | |||
4653 | "RTN","SDE C31",164,0 ) | 4653 | "RTN","SDE C31",164,0 ) | |||
4654 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | 4654 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | |||
4655 | "RTN","SDE C31",165,0 ) | 4655 | "RTN","SDE C31",165,0 ) | |||
4656 | Q | 4656 | Q | |||
4657 | "RTN","SDE C31",166,0 ) | 4657 | "RTN","SDE C31",166,0 ) | |||
4658 | ; | 4658 | ; | |||
4659 | "RTN","SDE C31",167,0 ) | 4659 | "RTN","SDE C31",167,0 ) | |||
4660 | ; | 4660 | ; | |||
4661 | "RTN","SDE C31",168,0 ) | 4661 | "RTN","SDE C31",168,0 ) | |||
4662 | ERR(SDECER ID,ERRTXT) ;Error pr ocessing | 4662 | ERR(SDECER ID,ERRTXT) ;Error pr ocessing | |||
4663 | "RTN","SDE C31",169,0 ) | 4663 | "RTN","SDE C31",169,0 ) | |||
4664 | S:'+$G(SD ECI) SDECI =999999 | 4664 | S:'+$G(SD ECI) SDECI =999999 | |||
4665 | "RTN","SDE C31",170,0 ) | 4665 | "RTN","SDE C31",170,0 ) | |||
4666 | S SDECI=S DECI+1 | 4666 | S SDECI=S DECI+1 | |||
4667 | "RTN","SDE C31",171,0 ) | 4667 | "RTN","SDE C31",171,0 ) | |||
4668 | TROLLBACK | 4668 | TROLLBACK | |||
4669 | "RTN","SDE C31",172,0 ) | 4669 | "RTN","SDE C31",172,0 ) | |||
4670 | S ^TMP("S DEC",$J,SD ECI)=SDECE RID_"^"_ER RTXT_$C(30 ) | 4670 | S ^TMP("S DEC",$J,SD ECI)=SDECE RID_"^"_ER RTXT_$C(30 ) | |||
4671 | "RTN","SDE C31",173,0 ) | 4671 | "RTN","SDE C31",173,0 ) | |||
4672 | S SDECI=S DECI+1 | 4672 | S SDECI=S DECI+1 | |||
4673 | "RTN","SDE C31",174,0 ) | 4673 | "RTN","SDE C31",174,0 ) | |||
4674 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | 4674 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |||
4675 | "RTN","SDE C31",175,0 ) | 4675 | "RTN","SDE C31",175,0 ) | |||
4676 | Q | 4676 | Q | |||
4677 | "RTN","SDE C31",176,0 ) | 4677 | "RTN","SDE C31",176,0 ) | |||
4678 | ; | 4678 | ; | |||
4679 | "RTN","SDE C31",177,0 ) | 4679 | "RTN","SDE C31",177,0 ) | |||
4680 | ETRAP ;EP Error trap entry | 4680 | ETRAP ;EP Error trap entry | |||
4681 | "RTN","SDE C31",178,0 ) | 4681 | "RTN","SDE C31",178,0 ) | |||
4682 | D ^%ZTER | 4682 | D ^%ZTER | |||
4683 | "RTN","SDE C31",179,0 ) | 4683 | "RTN","SDE C31",179,0 ) | |||
4684 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | 4684 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | |||
4685 | "RTN","SDE C31",180,0 ) | 4685 | "RTN","SDE C31",180,0 ) | |||
4686 | S SDECI=S DECI+1 | 4686 | S SDECI=S DECI+1 | |||
4687 | "RTN","SDE C31",181,0 ) | 4687 | "RTN","SDE C31",181,0 ) | |||
4688 | D ERR(0," SDEC31 Err or") | 4688 | D ERR(0," SDEC31 Err or") | |||
4689 | "RTN","SDE C31",182,0 ) | 4689 | "RTN","SDE C31",182,0 ) | |||
4690 | Q | 4690 | Q | |||
4691 | "RTN","SDE C31",183,0 ) | 4691 | "RTN","SDE C31",183,0 ) | |||
4692 | ; | 4692 | ; | |||
4693 | "RTN","SDE C31",184,0 ) | 4693 | "RTN","SDE C31",184,0 ) | |||
4694 | IMHERE(SDE CRES) ;I'm Here | 4694 | IMHERE(SDE CRES) ;I'm Here | |||
4695 | "RTN","SDE C31",185,0 ) | 4695 | "RTN","SDE C31",185,0 ) | |||
4696 | ;IMHERE(S DECRES) e xternal pa rameter ta g is in SD EC | 4696 | ;IMHERE(S DECRES) e xternal pa rameter ta g is in SD EC | |||
4697 | "RTN","SDE C31",186,0 ) | 4697 | "RTN","SDE C31",186,0 ) | |||
4698 | ;Entry po int for SD EC IM HERE remote pr ocedure | 4698 | ;Entry po int for SD EC IM HERE remote pr ocedure | |||
4699 | "RTN","SDE C31",187,0 ) | 4699 | "RTN","SDE C31",187,0 ) | |||
4700 | ; Returns a simple value to c lient. Us ed to esta blish cont inued exis tence | 4700 | ; Returns a simple value to c lient. Us ed to esta blish cont inued exis tence | |||
4701 | "RTN","SDE C31",188,0 ) | 4701 | "RTN","SDE C31",188,0 ) | |||
4702 | ; of the client to the server ; resets t he server READ timeo ut. | 4702 | ; of the client to the server ; resets t he server READ timeo ut. | |||
4703 | "RTN","SDE C31",189,0 ) | 4703 | "RTN","SDE C31",189,0 ) | |||
4704 | S SDECRES =1 | 4704 | S SDECRES =1 | |||
4705 | "RTN","SDE C31",190,0 ) | 4705 | "RTN","SDE C31",190,0 ) | |||
4706 | Q | 4706 | Q | |||
4707 | "RTN","SDE C31",191,0 ) | 4707 | "RTN","SDE C31",191,0 ) | |||
4708 | ; | 4708 | ; | |||
4709 | "VER") | 4709 | "VER") | |||
4710 | 8.0^22.2 | 4710 | 8.0^22.2 | |||
4711 | "BLD",1036 4,6) | 4711 | "BLD",1036 4,6) | |||
4712 | 4^ | 4712 | 4^ | |||
4713 | $END KID S D*5.3*717 | 4713 | $END KID S D*5.3*717 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.