1 | KIDS Distribution saved on Mar 31, 2010@18:16:06
|
---|
2 | TMG1*1.0*5
|
---|
3 | **KIDS**:TMG1*1.0*5^
|
---|
4 |
|
---|
5 | **INSTALL NAME**
|
---|
6 | TMG1*1.0*5
|
---|
7 | "BLD",7630,0)
|
---|
8 | TMG1*1.0*5^^0^3100331^n
|
---|
9 | "BLD",7630,1,0)
|
---|
10 | ^^3^3^3100331^^
|
---|
11 | "BLD",7630,1,1,0)
|
---|
12 | This patch provides server code for imaging
|
---|
13 | "BLD",7630,1,2,0)
|
---|
14 | functionality in TMG-CPRS. I provides RPC calls
|
---|
15 | "BLD",7630,1,3,0)
|
---|
16 | for uploading and downloading images from CPRS.
|
---|
17 | "BLD",7630,4,0)
|
---|
18 | ^9.64PA^^
|
---|
19 | "BLD",7630,6.3)
|
---|
20 | 2
|
---|
21 | "BLD",7630,"KRN",0)
|
---|
22 | ^9.67PA^8989.52^19
|
---|
23 | "BLD",7630,"KRN",.4,0)
|
---|
24 | .4
|
---|
25 | "BLD",7630,"KRN",.401,0)
|
---|
26 | .401
|
---|
27 | "BLD",7630,"KRN",.402,0)
|
---|
28 | .402
|
---|
29 | "BLD",7630,"KRN",.403,0)
|
---|
30 | .403
|
---|
31 | "BLD",7630,"KRN",.5,0)
|
---|
32 | .5
|
---|
33 | "BLD",7630,"KRN",.84,0)
|
---|
34 | .84
|
---|
35 | "BLD",7630,"KRN",3.6,0)
|
---|
36 | 3.6
|
---|
37 | "BLD",7630,"KRN",3.8,0)
|
---|
38 | 3.8
|
---|
39 | "BLD",7630,"KRN",9.2,0)
|
---|
40 | 9.2
|
---|
41 | "BLD",7630,"KRN",9.8,0)
|
---|
42 | 9.8
|
---|
43 | "BLD",7630,"KRN",9.8,"NM",0)
|
---|
44 | ^9.68A^2^2
|
---|
45 | "BLD",7630,"KRN",9.8,"NM",1,0)
|
---|
46 | TMGRPC1^^0^B224963
|
---|
47 | "BLD",7630,"KRN",9.8,"NM",2,0)
|
---|
48 | TMGRPC1A^^0^B23521637
|
---|
49 | "BLD",7630,"KRN",9.8,"NM","B","TMGRPC1",1)
|
---|
50 |
|
---|
51 | "BLD",7630,"KRN",9.8,"NM","B","TMGRPC1A",2)
|
---|
52 |
|
---|
53 | "BLD",7630,"KRN",19,0)
|
---|
54 | 19
|
---|
55 | "BLD",7630,"KRN",19,"NM",0)
|
---|
56 | ^9.68A^1^1
|
---|
57 | "BLD",7630,"KRN",19,"NM",1,0)
|
---|
58 | OR CPRS GUI CHART^^0
|
---|
59 | "BLD",7630,"KRN",19,"NM","B","OR CPRS GUI CHART",1)
|
---|
60 |
|
---|
61 | "BLD",7630,"KRN",19.1,0)
|
---|
62 | 19.1
|
---|
63 | "BLD",7630,"KRN",101,0)
|
---|
64 | 101
|
---|
65 | "BLD",7630,"KRN",409.61,0)
|
---|
66 | 409.61
|
---|
67 | "BLD",7630,"KRN",771,0)
|
---|
68 | 771
|
---|
69 | "BLD",7630,"KRN",870,0)
|
---|
70 | 870
|
---|
71 | "BLD",7630,"KRN",8989.51,0)
|
---|
72 | 8989.51
|
---|
73 | "BLD",7630,"KRN",8989.52,0)
|
---|
74 | 8989.52
|
---|
75 | "BLD",7630,"KRN",8994,0)
|
---|
76 | 8994
|
---|
77 | "BLD",7630,"KRN",8994,"NM",0)
|
---|
78 | ^9.68A^16^16
|
---|
79 | "BLD",7630,"KRN",8994,"NM",1,0)
|
---|
80 | TMG ADD PATIENT^^0
|
---|
81 | "BLD",7630,"KRN",8994,"NM",2,0)
|
---|
82 | TMG AUTOSIGN TIU DOCUMENT^^0
|
---|
83 | "BLD",7630,"KRN",8994,"NM",3,0)
|
---|
84 | TMG BARCODE DECODE^^0
|
---|
85 | "BLD",7630,"KRN",8994,"NM",4,0)
|
---|
86 | TMG BARCODE ENCODE^^0
|
---|
87 | "BLD",7630,"KRN",8994,"NM",5,0)
|
---|
88 | TMG CPRS GET URL LIST^^0
|
---|
89 | "BLD",7630,"KRN",8994,"NM",6,0)
|
---|
90 | TMG DOWNLOAD FILE^^0
|
---|
91 | "BLD",7630,"KRN",8994,"NM",7,0)
|
---|
92 | TMG DOWNLOAD FILE DROPBOX^^0
|
---|
93 | "BLD",7630,"KRN",8994,"NM",8,0)
|
---|
94 | TMG GET BLANK TIU DOCUMENT^^0
|
---|
95 | "BLD",7630,"KRN",8994,"NM",9,0)
|
---|
96 | TMG GET DFN^^0
|
---|
97 | "BLD",7630,"KRN",8994,"NM",10,0)
|
---|
98 | TMG GET IMAGE LONG DESCRIPTION^^0
|
---|
99 | "BLD",7630,"KRN",8994,"NM",11,0)
|
---|
100 | TMG GET PATIENT DEMOGRAPHICS^^0
|
---|
101 | "BLD",7630,"KRN",8994,"NM",12,0)
|
---|
102 | TMG INIFILE GET^^0
|
---|
103 | "BLD",7630,"KRN",8994,"NM",13,0)
|
---|
104 | TMG INIFILE SET^^0
|
---|
105 | "BLD",7630,"KRN",8994,"NM",14,0)
|
---|
106 | TMG SET PATIENT DEMOGRAPHICS^^0
|
---|
107 | "BLD",7630,"KRN",8994,"NM",15,0)
|
---|
108 | TMG UPLOAD FILE^^0
|
---|
109 | "BLD",7630,"KRN",8994,"NM",16,0)
|
---|
110 | TMG UPLOAD FILE DROPBOX^^0
|
---|
111 | "BLD",7630,"KRN",8994,"NM","B","TMG ADD PATIENT",1)
|
---|
112 |
|
---|
113 | "BLD",7630,"KRN",8994,"NM","B","TMG AUTOSIGN TIU DOCUMENT",2)
|
---|
114 |
|
---|
115 | "BLD",7630,"KRN",8994,"NM","B","TMG BARCODE DECODE",3)
|
---|
116 |
|
---|
117 | "BLD",7630,"KRN",8994,"NM","B","TMG BARCODE ENCODE",4)
|
---|
118 |
|
---|
119 | "BLD",7630,"KRN",8994,"NM","B","TMG CPRS GET URL LIST",5)
|
---|
120 |
|
---|
121 | "BLD",7630,"KRN",8994,"NM","B","TMG DOWNLOAD FILE",6)
|
---|
122 |
|
---|
123 | "BLD",7630,"KRN",8994,"NM","B","TMG DOWNLOAD FILE DROPBOX",7)
|
---|
124 |
|
---|
125 | "BLD",7630,"KRN",8994,"NM","B","TMG GET BLANK TIU DOCUMENT",8)
|
---|
126 |
|
---|
127 | "BLD",7630,"KRN",8994,"NM","B","TMG GET DFN",9)
|
---|
128 |
|
---|
129 | "BLD",7630,"KRN",8994,"NM","B","TMG GET IMAGE LONG DESCRIPTION",10)
|
---|
130 |
|
---|
131 | "BLD",7630,"KRN",8994,"NM","B","TMG GET PATIENT DEMOGRAPHICS",11)
|
---|
132 |
|
---|
133 | "BLD",7630,"KRN",8994,"NM","B","TMG INIFILE GET",12)
|
---|
134 |
|
---|
135 | "BLD",7630,"KRN",8994,"NM","B","TMG INIFILE SET",13)
|
---|
136 |
|
---|
137 | "BLD",7630,"KRN",8994,"NM","B","TMG SET PATIENT DEMOGRAPHICS",14)
|
---|
138 |
|
---|
139 | "BLD",7630,"KRN",8994,"NM","B","TMG UPLOAD FILE",15)
|
---|
140 |
|
---|
141 | "BLD",7630,"KRN",8994,"NM","B","TMG UPLOAD FILE DROPBOX",16)
|
---|
142 |
|
---|
143 | "BLD",7630,"KRN","B",.4,.4)
|
---|
144 |
|
---|
145 | "BLD",7630,"KRN","B",.401,.401)
|
---|
146 |
|
---|
147 | "BLD",7630,"KRN","B",.402,.402)
|
---|
148 |
|
---|
149 | "BLD",7630,"KRN","B",.403,.403)
|
---|
150 |
|
---|
151 | "BLD",7630,"KRN","B",.5,.5)
|
---|
152 |
|
---|
153 | "BLD",7630,"KRN","B",.84,.84)
|
---|
154 |
|
---|
155 | "BLD",7630,"KRN","B",3.6,3.6)
|
---|
156 |
|
---|
157 | "BLD",7630,"KRN","B",3.8,3.8)
|
---|
158 |
|
---|
159 | "BLD",7630,"KRN","B",9.2,9.2)
|
---|
160 |
|
---|
161 | "BLD",7630,"KRN","B",9.8,9.8)
|
---|
162 |
|
---|
163 | "BLD",7630,"KRN","B",19,19)
|
---|
164 |
|
---|
165 | "BLD",7630,"KRN","B",19.1,19.1)
|
---|
166 |
|
---|
167 | "BLD",7630,"KRN","B",101,101)
|
---|
168 |
|
---|
169 | "BLD",7630,"KRN","B",409.61,409.61)
|
---|
170 |
|
---|
171 | "BLD",7630,"KRN","B",771,771)
|
---|
172 |
|
---|
173 | "BLD",7630,"KRN","B",870,870)
|
---|
174 |
|
---|
175 | "BLD",7630,"KRN","B",8989.51,8989.51)
|
---|
176 |
|
---|
177 | "BLD",7630,"KRN","B",8989.52,8989.52)
|
---|
178 |
|
---|
179 | "BLD",7630,"KRN","B",8994,8994)
|
---|
180 |
|
---|
181 | "BLD",7630,"PRET")
|
---|
182 |
|
---|
183 | "KRN",19,8552,-1)
|
---|
184 | 0^1
|
---|
185 | "KRN",19,8552,0)
|
---|
186 | OR CPRS GUI CHART^CPRSChart version 1.0.26.69^^B^^^^^^^^
|
---|
187 | "KRN",19,8552,1,0)
|
---|
188 | ^19.06^2^2^3100324^^^^
|
---|
189 | "KRN",19,8552,1,1,0)
|
---|
190 | This option is required by the Kernel Broker to give access to the
|
---|
191 | "KRN",19,8552,1,2,0)
|
---|
192 | RPCs used by the CPRS GUI (CPRSChart.EXE).
|
---|
193 | "KRN",19,8552,3)
|
---|
194 |
|
---|
195 | "KRN",19,8552,20)
|
---|
196 |
|
---|
197 | "KRN",19,8552,99.1)
|
---|
198 | 60722,37566
|
---|
199 | "KRN",19,8552,"RPC",0)
|
---|
200 | ^19.05P^2071^2071
|
---|
201 | "KRN",19,8552,"RPC",1,0)
|
---|
202 | GMRC LIST CONSULT REQUESTS
|
---|
203 | "KRN",19,8552,"RPC",218,0)
|
---|
204 | XWB GET VARIABLE VALUE
|
---|
205 | "KRN",19,8552,"RPC",219,0)
|
---|
206 | TIU AUTHORIZATION
|
---|
207 | "KRN",19,8552,"RPC",220,0)
|
---|
208 | TIU CAN CHANGE COSIGNER?
|
---|
209 | "KRN",19,8552,"RPC",221,0)
|
---|
210 | TIU CREATE ADDENDUM RECORD
|
---|
211 | "KRN",19,8552,"RPC",222,0)
|
---|
212 | TIU CREATE RECORD
|
---|
213 | "KRN",19,8552,"RPC",223,0)
|
---|
214 | TIU DELETE RECORD
|
---|
215 | "KRN",19,8552,"RPC",224,0)
|
---|
216 | TIU DETAILED DISPLAY
|
---|
217 | "KRN",19,8552,"RPC",225,0)
|
---|
218 | TIU DOCUMENTS BY CONTEXT
|
---|
219 | "KRN",19,8552,"RPC",226,0)
|
---|
220 | TIU GET ADDITIONAL SIGNERS
|
---|
221 | "KRN",19,8552,"RPC",227,0)
|
---|
222 | TIU GET ALERT INFO
|
---|
223 | "KRN",19,8552,"RPC",228,0)
|
---|
224 | TIU GET DOCUMENT PARAMETERS
|
---|
225 | "KRN",19,8552,"RPC",229,0)
|
---|
226 | TIU GET DS TITLES
|
---|
227 | "KRN",19,8552,"RPC",230,0)
|
---|
228 | TIU GET DS URGENCIES
|
---|
229 | "KRN",19,8552,"RPC",231,0)
|
---|
230 | TIU GET PERSONAL PREFERENCES
|
---|
231 | "KRN",19,8552,"RPC",232,0)
|
---|
232 | TIU GET PN TITLES
|
---|
233 | "KRN",19,8552,"RPC",233,0)
|
---|
234 | TIU GET RECORD TEXT
|
---|
235 | "KRN",19,8552,"RPC",234,0)
|
---|
236 | TIU IDENTIFY CONSULTS CLASS
|
---|
237 | "KRN",19,8552,"RPC",235,0)
|
---|
238 | TIU IS THIS A CONSULT?
|
---|
239 | "KRN",19,8552,"RPC",236,0)
|
---|
240 | TIU JUSTIFY DELETE?
|
---|
241 | "KRN",19,8552,"RPC",237,0)
|
---|
242 | TIU LOAD BOILERPLATE TEXT
|
---|
243 | "KRN",19,8552,"RPC",238,0)
|
---|
244 | TIU LOAD RECORD FOR EDIT
|
---|
245 | "KRN",19,8552,"RPC",239,0)
|
---|
246 | TIU LOCK RECORD
|
---|
247 | "KRN",19,8552,"RPC",240,0)
|
---|
248 | TIU LONG LIST CONSULT TITLES
|
---|
249 | "KRN",19,8552,"RPC",241,0)
|
---|
250 | TIU LONG LIST OF TITLES
|
---|
251 | "KRN",19,8552,"RPC",242,0)
|
---|
252 | TIU NOTES
|
---|
253 | "KRN",19,8552,"RPC",243,0)
|
---|
254 | TIU NOTES 16 BIT
|
---|
255 | "KRN",19,8552,"RPC",244,0)
|
---|
256 | TIU NOTES BY VISIT
|
---|
257 | "KRN",19,8552,"RPC",245,0)
|
---|
258 | TIU PERSONAL TITLE LIST
|
---|
259 | "KRN",19,8552,"RPC",246,0)
|
---|
260 | TIU PRINT RECORD
|
---|
261 | "KRN",19,8552,"RPC",247,0)
|
---|
262 | TIU REQUIRES COSIGNATURE
|
---|
263 | "KRN",19,8552,"RPC",248,0)
|
---|
264 | TIU SIGN RECORD
|
---|
265 | "KRN",19,8552,"RPC",249,0)
|
---|
266 | TIU SUMMARIES
|
---|
267 | "KRN",19,8552,"RPC",250,0)
|
---|
268 | TIU SUMMARIES BY VISIT
|
---|
269 | "KRN",19,8552,"RPC",251,0)
|
---|
270 | TIU UNLOCK RECORD
|
---|
271 | "KRN",19,8552,"RPC",252,0)
|
---|
272 | TIU UPDATE ADDITIONAL SIGNERS
|
---|
273 | "KRN",19,8552,"RPC",253,0)
|
---|
274 | TIU UPDATE RECORD
|
---|
275 | "KRN",19,8552,"RPC",254,0)
|
---|
276 | TIU WHICH SIGNATURE ACTION
|
---|
277 | "KRN",19,8552,"RPC",1032,0)
|
---|
278 | ORB DELETE ALERT
|
---|
279 | "KRN",19,8552,"RPC",1033,0)
|
---|
280 | ORB FOLLOW-UP ARRAY
|
---|
281 | "KRN",19,8552,"RPC",1034,0)
|
---|
282 | ORB FOLLOW-UP STRING
|
---|
283 | "KRN",19,8552,"RPC",1035,0)
|
---|
284 | ORB FOLLOW-UP TYPE
|
---|
285 | "KRN",19,8552,"RPC",1036,0)
|
---|
286 | ORB SORT METHOD
|
---|
287 | "KRN",19,8552,"RPC",1037,0)
|
---|
288 | ORK TRIGGER
|
---|
289 | "KRN",19,8552,"RPC",1038,0)
|
---|
290 | ORQ NULL LIST
|
---|
291 | "KRN",19,8552,"RPC",1039,0)
|
---|
292 | ORQOR DETAIL
|
---|
293 | "KRN",19,8552,"RPC",1040,0)
|
---|
294 | TIU TEMPLATE CHECK BOILERPLATE
|
---|
295 | "KRN",19,8552,"RPC",1041,0)
|
---|
296 | TIU TEMPLATE CREATE/MODIFY
|
---|
297 | "KRN",19,8552,"RPC",1042,0)
|
---|
298 | TIU TEMPLATE DELETE
|
---|
299 | "KRN",19,8552,"RPC",1045,0)
|
---|
300 | TIU TEMPLATE GETPROOT
|
---|
301 | "KRN",19,8552,"RPC",1049,0)
|
---|
302 | TIU TEMPLATE LISTOWNR
|
---|
303 | "KRN",19,8552,"RPC",1050,0)
|
---|
304 | TIU TEMPLATE SET ITEMS
|
---|
305 | "KRN",19,8552,"RPC",1051,0)
|
---|
306 | TIU GET LIST OF OBJECTS
|
---|
307 | "KRN",19,8552,"RPC",1052,0)
|
---|
308 | ORQOR LIST
|
---|
309 | "KRN",19,8552,"RPC",1053,0)
|
---|
310 | ORQORB SORT
|
---|
311 | "KRN",19,8552,"RPC",1054,0)
|
---|
312 | ORQPT ATTENDING/PRIMARY
|
---|
313 | "KRN",19,8552,"RPC",1055,0)
|
---|
314 | ORQPT CLINIC PATIENTS
|
---|
315 | "KRN",19,8552,"RPC",1056,0)
|
---|
316 | ORQPT CLINICS
|
---|
317 | "KRN",19,8552,"RPC",1057,0)
|
---|
318 | ORQPT DEFAULT LIST SOURCE
|
---|
319 | "KRN",19,8552,"RPC",1058,0)
|
---|
320 | ORQPT DEFAULT PATIENT LIST
|
---|
321 | "KRN",19,8552,"RPC",1059,0)
|
---|
322 | ORQPT PATIENT TEAM PROVIDERS
|
---|
323 | "KRN",19,8552,"RPC",1060,0)
|
---|
324 | ORQPT PROVIDER PATIENTS
|
---|
325 | "KRN",19,8552,"RPC",1061,0)
|
---|
326 | ORQPT PROVIDERS
|
---|
327 | "KRN",19,8552,"RPC",1062,0)
|
---|
328 | ORQPT SPECIALTIES
|
---|
329 | "KRN",19,8552,"RPC",1063,0)
|
---|
330 | ORQPT SPECIALTY PATIENTS
|
---|
331 | "KRN",19,8552,"RPC",1064,0)
|
---|
332 | ORQPT TEAM PATIENTS
|
---|
333 | "KRN",19,8552,"RPC",1065,0)
|
---|
334 | ORQPT TEAMS
|
---|
335 | "KRN",19,8552,"RPC",1066,0)
|
---|
336 | ORQPT WARD PATIENTS
|
---|
337 | "KRN",19,8552,"RPC",1067,0)
|
---|
338 | ORQPT WARDRMBED
|
---|
339 | "KRN",19,8552,"RPC",1068,0)
|
---|
340 | ORQPT WARDS
|
---|
341 | "KRN",19,8552,"RPC",1069,0)
|
---|
342 | ORQQAL DETAIL
|
---|
343 | "KRN",19,8552,"RPC",1070,0)
|
---|
344 | ORQQAL LIST
|
---|
345 | "KRN",19,8552,"RPC",1071,0)
|
---|
346 | ORQQAL LIST REPORT
|
---|
347 | "KRN",19,8552,"RPC",1072,0)
|
---|
348 | ORQQCN ADDCMT
|
---|
349 | "KRN",19,8552,"RPC",1073,0)
|
---|
350 | ORQQCN ADMIN COMPLETE
|
---|
351 | "KRN",19,8552,"RPC",1074,0)
|
---|
352 | ORQQCN DETAIL
|
---|
353 | "KRN",19,8552,"RPC",1075,0)
|
---|
354 | ORQQCN DISCONTINUE
|
---|
355 | "KRN",19,8552,"RPC",1076,0)
|
---|
356 | ORQQCN FIND CONSULT
|
---|
357 | "KRN",19,8552,"RPC",1077,0)
|
---|
358 | ORQQCN FORWARD
|
---|
359 | "KRN",19,8552,"RPC",1078,0)
|
---|
360 | ORQQCN GET CONSULT
|
---|
361 | "KRN",19,8552,"RPC",1079,0)
|
---|
362 | ORQQCN GET ORDER NUMBER
|
---|
363 | "KRN",19,8552,"RPC",1080,0)
|
---|
364 | ORQQCN GET PROC SVCS
|
---|
365 | "KRN",19,8552,"RPC",1081,0)
|
---|
366 | ORQQCN LIST
|
---|
367 | "KRN",19,8552,"RPC",1082,0)
|
---|
368 | ORQQCN LOAD FOR EDIT
|
---|
369 | "KRN",19,8552,"RPC",1083,0)
|
---|
370 | ORQQCN MED RESULTS
|
---|
371 | "KRN",19,8552,"RPC",1084,0)
|
---|
372 | ORQQCN PRINT SF513
|
---|
373 | "KRN",19,8552,"RPC",1085,0)
|
---|
374 | ORQQCN RECEIVE
|
---|
375 | "KRN",19,8552,"RPC",1086,0)
|
---|
376 | ORQQCN RESUBMIT
|
---|
377 | "KRN",19,8552,"RPC",1087,0)
|
---|
378 | ORQQCN SET ACT MENUS
|
---|
379 | "KRN",19,8552,"RPC",1088,0)
|
---|
380 | ORQQCN SHOW SF513
|
---|
381 | "KRN",19,8552,"RPC",1089,0)
|
---|
382 | ORQQCN SIGFIND
|
---|
383 | "KRN",19,8552,"RPC",1090,0)
|
---|
384 | ORQQCN STATUS
|
---|
385 | "KRN",19,8552,"RPC",1091,0)
|
---|
386 | ORQQCN SVCLIST
|
---|
387 | "KRN",19,8552,"RPC",1092,0)
|
---|
388 | ORQQCN SVCTREE
|
---|
389 | "KRN",19,8552,"RPC",1093,0)
|
---|
390 | ORQQCN URGENCIES
|
---|
391 | "KRN",19,8552,"RPC",1094,0)
|
---|
392 | ORQQCN2 GET CONTEXT
|
---|
393 | "KRN",19,8552,"RPC",1095,0)
|
---|
394 | ORQQCN2 SAVE CONTEXT
|
---|
395 | "KRN",19,8552,"RPC",1096,0)
|
---|
396 | ORQQLR DETAIL
|
---|
397 | "KRN",19,8552,"RPC",1097,0)
|
---|
398 | ORQQLR SEARCH RANGE INPT
|
---|
399 | "KRN",19,8552,"RPC",1098,0)
|
---|
400 | ORQQLR SEARCH RANGE OUTPT
|
---|
401 | "KRN",19,8552,"RPC",1099,0)
|
---|
402 | ORQQPL ADD SAVE
|
---|
403 | "KRN",19,8552,"RPC",1100,0)
|
---|
404 | ORQQPL AUDIT HIST
|
---|
405 | "KRN",19,8552,"RPC",1101,0)
|
---|
406 | ORQQPL CHECK DUP
|
---|
407 | "KRN",19,8552,"RPC",1102,0)
|
---|
408 | ORQQPL CLIN FILTER LIST
|
---|
409 | "KRN",19,8552,"RPC",1103,0)
|
---|
410 | ORQQPL CLIN SRCH
|
---|
411 | "KRN",19,8552,"RPC",1104,0)
|
---|
412 | ORQQPL DELETE
|
---|
413 | "KRN",19,8552,"RPC",1105,0)
|
---|
414 | ORQQPL DETAIL
|
---|
415 | "KRN",19,8552,"RPC",1106,0)
|
---|
416 | ORQQPL EDIT LOAD
|
---|
417 | "KRN",19,8552,"RPC",1107,0)
|
---|
418 | ORQQPL EDIT SAVE
|
---|
419 | "KRN",19,8552,"RPC",1108,0)
|
---|
420 | ORQQPL INACTIVATE
|
---|
421 | "KRN",19,8552,"RPC",1109,0)
|
---|
422 | ORQQPL INIT PT
|
---|
423 | "KRN",19,8552,"RPC",1110,0)
|
---|
424 | ORQQPL INIT USER
|
---|
425 | "KRN",19,8552,"RPC",1111,0)
|
---|
426 | ORQQPL LIST
|
---|
427 | "KRN",19,8552,"RPC",1112,0)
|
---|
428 | ORQQPL PROB COMMENTS
|
---|
429 | "KRN",19,8552,"RPC",1113,0)
|
---|
430 | ORQQPL PROBLEM LEX SEARCH
|
---|
431 | "KRN",19,8552,"RPC",1114,0)
|
---|
432 | ORQQPL PROBLEM LIST
|
---|
433 | "KRN",19,8552,"RPC",1115,0)
|
---|
434 | ORQQPL PROV FILTER LIST
|
---|
435 | "KRN",19,8552,"RPC",1116,0)
|
---|
436 | ORQQPL PROVIDER LIST
|
---|
437 | "KRN",19,8552,"RPC",1117,0)
|
---|
438 | ORQQPL REPLACE
|
---|
439 | "KRN",19,8552,"RPC",1118,0)
|
---|
440 | ORQQPL SAVEVIEW
|
---|
441 | "KRN",19,8552,"RPC",1119,0)
|
---|
442 | ORQQPL SERV FILTER LIST
|
---|
443 | "KRN",19,8552,"RPC",1120,0)
|
---|
444 | ORQQPL SRVC SRCH
|
---|
445 | "KRN",19,8552,"RPC",1121,0)
|
---|
446 | ORQQPL UPDATE
|
---|
447 | "KRN",19,8552,"RPC",1122,0)
|
---|
448 | ORQQPL USER PROB CATS
|
---|
449 | "KRN",19,8552,"RPC",1123,0)
|
---|
450 | ORQQPL USER PROB LIST
|
---|
451 | "KRN",19,8552,"RPC",1124,0)
|
---|
452 | ORQQPL VERIFY
|
---|
453 | "KRN",19,8552,"RPC",1125,0)
|
---|
454 | ORQQPP LIST
|
---|
455 | "KRN",19,8552,"RPC",1126,0)
|
---|
456 | ORQQPS DETAIL
|
---|
457 | "KRN",19,8552,"RPC",1127,0)
|
---|
458 | ORQQPS LIST
|
---|
459 | "KRN",19,8552,"RPC",1133,0)
|
---|
460 | ORQQPX REMINDER DETAIL
|
---|
461 | "KRN",19,8552,"RPC",1135,0)
|
---|
462 | ORQQPX REMINDERS LIST
|
---|
463 | "KRN",19,8552,"RPC",1136,0)
|
---|
464 | ORQQVI NOTEVIT
|
---|
465 | "KRN",19,8552,"RPC",1137,0)
|
---|
466 | ORQQVI VITALS
|
---|
467 | "KRN",19,8552,"RPC",1138,0)
|
---|
468 | ORQQVI VITALS FOR DATE RANGE
|
---|
469 | "KRN",19,8552,"RPC",1139,0)
|
---|
470 | ORQQVI1 DETAIL
|
---|
471 | "KRN",19,8552,"RPC",1140,0)
|
---|
472 | ORQQVI1 GRID
|
---|
473 | "KRN",19,8552,"RPC",1141,0)
|
---|
474 | ORQQVI2 VITALS HELP
|
---|
475 | "KRN",19,8552,"RPC",1142,0)
|
---|
476 | ORQQVI2 VITALS RATE CHECK
|
---|
477 | "KRN",19,8552,"RPC",1144,0)
|
---|
478 | ORQQVI2 VITALS VAL & STORE
|
---|
479 | "KRN",19,8552,"RPC",1145,0)
|
---|
480 | ORQQVI2 VITALS VALIDATE
|
---|
481 | "KRN",19,8552,"RPC",1146,0)
|
---|
482 | ORQQVI2 VITALS VALIDATE TYPE
|
---|
483 | "KRN",19,8552,"RPC",1147,0)
|
---|
484 | ORQQVS DETAIL NOTES
|
---|
485 | "KRN",19,8552,"RPC",1148,0)
|
---|
486 | ORQQVS DETAIL SUMMARY
|
---|
487 | "KRN",19,8552,"RPC",1149,0)
|
---|
488 | ORQQVS VISITS/APPTS
|
---|
489 | "KRN",19,8552,"RPC",1150,0)
|
---|
490 | ORQQXMB MAIL GROUPS
|
---|
491 | "KRN",19,8552,"RPC",1151,0)
|
---|
492 | ORQQXQA PATIENT
|
---|
493 | "KRN",19,8552,"RPC",1152,0)
|
---|
494 | ORQQXQA USER
|
---|
495 | "KRN",19,8552,"RPC",1153,0)
|
---|
496 | ORWCH LOADALL
|
---|
497 | "KRN",19,8552,"RPC",1154,0)
|
---|
498 | ORWCH LOADSIZ
|
---|
499 | "KRN",19,8552,"RPC",1155,0)
|
---|
500 | ORWCH SAVEALL
|
---|
501 | "KRN",19,8552,"RPC",1156,0)
|
---|
502 | ORWCH SAVESIZ
|
---|
503 | "KRN",19,8552,"RPC",1157,0)
|
---|
504 | ORWCS LIST OF CONSULT REPORTS
|
---|
505 | "KRN",19,8552,"RPC",1158,0)
|
---|
506 | ORWCS PRINT REPORT
|
---|
507 | "KRN",19,8552,"RPC",1159,0)
|
---|
508 | ORWCS REPORT TEXT
|
---|
509 | "KRN",19,8552,"RPC",1160,0)
|
---|
510 | ORWCV DTLVST
|
---|
511 | "KRN",19,8552,"RPC",1161,0)
|
---|
512 | ORWCV LAB
|
---|
513 | "KRN",19,8552,"RPC",1162,0)
|
---|
514 | ORWCV POLL
|
---|
515 | "KRN",19,8552,"RPC",1163,0)
|
---|
516 | ORWCV START
|
---|
517 | "KRN",19,8552,"RPC",1164,0)
|
---|
518 | ORWCV STOP
|
---|
519 | "KRN",19,8552,"RPC",1165,0)
|
---|
520 | ORWCV VST
|
---|
521 | "KRN",19,8552,"RPC",1166,0)
|
---|
522 | ORWD DEF
|
---|
523 | "KRN",19,8552,"RPC",1167,0)
|
---|
524 | ORWD DT
|
---|
525 | "KRN",19,8552,"RPC",1168,0)
|
---|
526 | ORWD FORMID
|
---|
527 | "KRN",19,8552,"RPC",1169,0)
|
---|
528 | ORWD GET4EDIT
|
---|
529 | "KRN",19,8552,"RPC",1170,0)
|
---|
530 | ORWD KEY
|
---|
531 | "KRN",19,8552,"RPC",1171,0)
|
---|
532 | ORWD OI
|
---|
533 | "KRN",19,8552,"RPC",1172,0)
|
---|
534 | ORWD PROVKEY
|
---|
535 | "KRN",19,8552,"RPC",1173,0)
|
---|
536 | ORWD SAVE
|
---|
537 | "KRN",19,8552,"RPC",1174,0)
|
---|
538 | ORWD SAVEACT
|
---|
539 | "KRN",19,8552,"RPC",1175,0)
|
---|
540 | ORWD SIGN
|
---|
541 | "KRN",19,8552,"RPC",1176,0)
|
---|
542 | ORWD VALIDACT
|
---|
543 | "KRN",19,8552,"RPC",1177,0)
|
---|
544 | ORWD1 PARAM
|
---|
545 | "KRN",19,8552,"RPC",1178,0)
|
---|
546 | ORWD1 PRINTGUI
|
---|
547 | "KRN",19,8552,"RPC",1179,0)
|
---|
548 | ORWD1 RVPRINT
|
---|
549 | "KRN",19,8552,"RPC",1180,0)
|
---|
550 | ORWD2 DEVINFO
|
---|
551 | "KRN",19,8552,"RPC",1181,0)
|
---|
552 | ORWD2 MANUAL
|
---|
553 | "KRN",19,8552,"RPC",1182,0)
|
---|
554 | ORWDAL32 ALLERGY MATCH
|
---|
555 | "KRN",19,8552,"RPC",1183,0)
|
---|
556 | ORWDAL32 DEF
|
---|
557 | "KRN",19,8552,"RPC",1184,0)
|
---|
558 | ORWDAL32 SYMPTOMS
|
---|
559 | "KRN",19,8552,"RPC",1185,0)
|
---|
560 | ORWDCN32 DEF
|
---|
561 | "KRN",19,8552,"RPC",1186,0)
|
---|
562 | ORWDCN32 ORDRMSG
|
---|
563 | "KRN",19,8552,"RPC",1187,0)
|
---|
564 | ORWDCN32 PROCEDURES
|
---|
565 | "KRN",19,8552,"RPC",1188,0)
|
---|
566 | ORWDCSLT DEF
|
---|
567 | "KRN",19,8552,"RPC",1189,0)
|
---|
568 | ORWDCSLT LOOK200
|
---|
569 | "KRN",19,8552,"RPC",1190,0)
|
---|
570 | ORWDFH ADDLATE
|
---|
571 | "KRN",19,8552,"RPC",1191,0)
|
---|
572 | ORWDFH ATTR
|
---|
573 | "KRN",19,8552,"RPC",1192,0)
|
---|
574 | ORWDFH CURISO
|
---|
575 | "KRN",19,8552,"RPC",1193,0)
|
---|
576 | ORWDFH DIETS
|
---|
577 | "KRN",19,8552,"RPC",1194,0)
|
---|
578 | ORWDFH FINDTYP
|
---|
579 | "KRN",19,8552,"RPC",1195,0)
|
---|
580 | ORWDFH ISOIEN
|
---|
581 | "KRN",19,8552,"RPC",1196,0)
|
---|
582 | ORWDFH ISOLIST
|
---|
583 | "KRN",19,8552,"RPC",1197,0)
|
---|
584 | ORWDFH PARAM
|
---|
585 | "KRN",19,8552,"RPC",1198,0)
|
---|
586 | ORWDFH QTY2CC
|
---|
587 | "KRN",19,8552,"RPC",1199,0)
|
---|
588 | ORWDFH TFPROD
|
---|
589 | "KRN",19,8552,"RPC",1200,0)
|
---|
590 | ORWDFH TXT
|
---|
591 | "KRN",19,8552,"RPC",1201,0)
|
---|
592 | ORWDGX LOAD
|
---|
593 | "KRN",19,8552,"RPC",1202,0)
|
---|
594 | ORWDGX VMDEF
|
---|
595 | "KRN",19,8552,"RPC",1203,0)
|
---|
596 | ORWDLR ABBSPEC
|
---|
597 | "KRN",19,8552,"RPC",1204,0)
|
---|
598 | ORWDLR ALLSAMP
|
---|
599 | "KRN",19,8552,"RPC",1205,0)
|
---|
600 | ORWDLR DEF
|
---|
601 | "KRN",19,8552,"RPC",1206,0)
|
---|
602 | ORWDLR LOAD
|
---|
603 | "KRN",19,8552,"RPC",1207,0)
|
---|
604 | ORWDLR OIPARAM
|
---|
605 | "KRN",19,8552,"RPC",1208,0)
|
---|
606 | ORWDLR STOP
|
---|
607 | "KRN",19,8552,"RPC",1209,0)
|
---|
608 | ORWDLR32 ABBSPEC
|
---|
609 | "KRN",19,8552,"RPC",1210,0)
|
---|
610 | ORWDLR32 ALLSAMP
|
---|
611 | "KRN",19,8552,"RPC",1211,0)
|
---|
612 | ORWDLR32 ALLSPEC
|
---|
613 | "KRN",19,8552,"RPC",1212,0)
|
---|
614 | ORWDLR32 DEF
|
---|
615 | "KRN",19,8552,"RPC",1213,0)
|
---|
616 | ORWDLR32 IC DEFAULT
|
---|
617 | "KRN",19,8552,"RPC",1214,0)
|
---|
618 | ORWDLR32 IC VALID
|
---|
619 | "KRN",19,8552,"RPC",1215,0)
|
---|
620 | ORWDLR32 IMMED COLLECT
|
---|
621 | "KRN",19,8552,"RPC",1216,0)
|
---|
622 | ORWDLR32 LAB COLL TIME
|
---|
623 | "KRN",19,8552,"RPC",1217,0)
|
---|
624 | ORWDLR32 LOAD
|
---|
625 | "KRN",19,8552,"RPC",1218,0)
|
---|
626 | ORWDLR32 MAXDAYS
|
---|
627 | "KRN",19,8552,"RPC",1219,0)
|
---|
628 | ORWDLR32 ONE SAMPLE
|
---|
629 | "KRN",19,8552,"RPC",1220,0)
|
---|
630 | ORWDLR32 ONE SPECIMEN
|
---|
631 | "KRN",19,8552,"RPC",1221,0)
|
---|
632 | ORWDLR32 STOP
|
---|
633 | "KRN",19,8552,"RPC",1222,0)
|
---|
634 | ORWDOR VMSLCT
|
---|
635 | "KRN",19,8552,"RPC",1227,0)
|
---|
636 | ORWDPS32 ALLROUTE
|
---|
637 | "KRN",19,8552,"RPC",1228,0)
|
---|
638 | ORWDPS32 AUTH
|
---|
639 | "KRN",19,8552,"RPC",1229,0)
|
---|
640 | ORWDPS32 DLGSLCT
|
---|
641 | "KRN",19,8552,"RPC",1230,0)
|
---|
642 | ORWDPS32 DOSES
|
---|
643 | "KRN",19,8552,"RPC",1231,0)
|
---|
644 | ORWDPS32 DRUGMSG
|
---|
645 | "KRN",19,8552,"RPC",1232,0)
|
---|
646 | ORWDPS32 FORMALT
|
---|
647 | "KRN",19,8552,"RPC",1233,0)
|
---|
648 | ORWDPS32 ISSPLY
|
---|
649 | "KRN",19,8552,"RPC",1234,0)
|
---|
650 | ORWDPS32 IVAMT
|
---|
651 | "KRN",19,8552,"RPC",1235,0)
|
---|
652 | ORWDPS32 MEDISIV
|
---|
653 | "KRN",19,8552,"RPC",1236,0)
|
---|
654 | ORWDPS32 OISLCT
|
---|
655 | "KRN",19,8552,"RPC",1237,0)
|
---|
656 | ORWDPS32 SCSTS
|
---|
657 | "KRN",19,8552,"RPC",1238,0)
|
---|
658 | ORWDPS32 VALQTY
|
---|
659 | "KRN",19,8552,"RPC",1239,0)
|
---|
660 | ORWDPS32 VALRATE
|
---|
661 | "KRN",19,8552,"RPC",1240,0)
|
---|
662 | ORWDPS32 VALSCH
|
---|
663 | "KRN",19,8552,"RPC",1241,0)
|
---|
664 | ORWDRA DEF
|
---|
665 | "KRN",19,8552,"RPC",1242,0)
|
---|
666 | ORWDRA32 APPROVAL
|
---|
667 | "KRN",19,8552,"RPC",1243,0)
|
---|
668 | ORWDRA32 DEF
|
---|
669 | "KRN",19,8552,"RPC",1244,0)
|
---|
670 | ORWDRA32 IMTYPSEL
|
---|
671 | "KRN",19,8552,"RPC",1245,0)
|
---|
672 | ORWDRA32 ISOLATN
|
---|
673 | "KRN",19,8552,"RPC",1246,0)
|
---|
674 | ORWDRA32 LOCTYPE
|
---|
675 | "KRN",19,8552,"RPC",1247,0)
|
---|
676 | ORWDRA32 PROCMSG
|
---|
677 | "KRN",19,8552,"RPC",1248,0)
|
---|
678 | ORWDRA32 RADSRC
|
---|
679 | "KRN",19,8552,"RPC",1249,0)
|
---|
680 | ORWDRA32 RAORDITM
|
---|
681 | "KRN",19,8552,"RPC",1250,0)
|
---|
682 | ORWDX AGAIN
|
---|
683 | "KRN",19,8552,"RPC",1251,0)
|
---|
684 | ORWDX DGRP
|
---|
685 | "KRN",19,8552,"RPC",1252,0)
|
---|
686 | ORWDX DISMSG
|
---|
687 | "KRN",19,8552,"RPC",1253,0)
|
---|
688 | ORWDX DLGDEF
|
---|
689 | "KRN",19,8552,"RPC",1254,0)
|
---|
690 | ORWDX DLGID
|
---|
691 | "KRN",19,8552,"RPC",1255,0)
|
---|
692 | ORWDX DLGQUIK
|
---|
693 | "KRN",19,8552,"RPC",1256,0)
|
---|
694 | ORWDX FORMID
|
---|
695 | "KRN",19,8552,"RPC",1257,0)
|
---|
696 | ORWDX LOADRSP
|
---|
697 | "KRN",19,8552,"RPC",1258,0)
|
---|
698 | ORWDX LOCK
|
---|
699 | "KRN",19,8552,"RPC",1259,0)
|
---|
700 | ORWDX MSG
|
---|
701 | "KRN",19,8552,"RPC",1260,0)
|
---|
702 | ORWDX ORDITM
|
---|
703 | "KRN",19,8552,"RPC",1261,0)
|
---|
704 | ORWDX SAVE
|
---|
705 | "KRN",19,8552,"RPC",1262,0)
|
---|
706 | ORWDX SEND
|
---|
707 | "KRN",19,8552,"RPC",1263,0)
|
---|
708 | ORWDX SENDP
|
---|
709 | "KRN",19,8552,"RPC",1264,0)
|
---|
710 | ORWDX UNLOCK
|
---|
711 | "KRN",19,8552,"RPC",1265,0)
|
---|
712 | ORWDX WRLST
|
---|
713 | "KRN",19,8552,"RPC",1266,0)
|
---|
714 | ORWDXA ALERT
|
---|
715 | "KRN",19,8552,"RPC",1267,0)
|
---|
716 | ORWDXA COMPLETE
|
---|
717 | "KRN",19,8552,"RPC",1268,0)
|
---|
718 | ORWDXA DC
|
---|
719 | "KRN",19,8552,"RPC",1269,0)
|
---|
720 | ORWDXA DCREASON
|
---|
721 | "KRN",19,8552,"RPC",1270,0)
|
---|
722 | ORWDXA DCREQIEN
|
---|
723 | "KRN",19,8552,"RPC",1271,0)
|
---|
724 | ORWDXA FLAG
|
---|
725 | "KRN",19,8552,"RPC",1272,0)
|
---|
726 | ORWDXA FLAGTXT
|
---|
727 | "KRN",19,8552,"RPC",1273,0)
|
---|
728 | ORWDXA HOLD
|
---|
729 | "KRN",19,8552,"RPC",1274,0)
|
---|
730 | ORWDXA UNFLAG
|
---|
731 | "KRN",19,8552,"RPC",1275,0)
|
---|
732 | ORWDXA UNHOLD
|
---|
733 | "KRN",19,8552,"RPC",1276,0)
|
---|
734 | ORWDXA VALID
|
---|
735 | "KRN",19,8552,"RPC",1277,0)
|
---|
736 | ORWDXA VERIFY
|
---|
737 | "KRN",19,8552,"RPC",1278,0)
|
---|
738 | ORWDXA WCGET
|
---|
739 | "KRN",19,8552,"RPC",1279,0)
|
---|
740 | ORWDXA WCPUT
|
---|
741 | "KRN",19,8552,"RPC",1280,0)
|
---|
742 | ORWDXC ACCEPT
|
---|
743 | "KRN",19,8552,"RPC",1281,0)
|
---|
744 | ORWDXC DELAY
|
---|
745 | "KRN",19,8552,"RPC",1282,0)
|
---|
746 | ORWDXC DELORD
|
---|
747 | "KRN",19,8552,"RPC",1283,0)
|
---|
748 | ORWDXC DISPLAY
|
---|
749 | "KRN",19,8552,"RPC",1284,0)
|
---|
750 | ORWDXC FILLID
|
---|
751 | "KRN",19,8552,"RPC",1285,0)
|
---|
752 | ORWDXC ON
|
---|
753 | "KRN",19,8552,"RPC",1286,0)
|
---|
754 | ORWDXC SAVECHK
|
---|
755 | "KRN",19,8552,"RPC",1287,0)
|
---|
756 | ORWDXC SESSION
|
---|
757 | "KRN",19,8552,"RPC",1288,0)
|
---|
758 | ORWDXM AUTOACK
|
---|
759 | "KRN",19,8552,"RPC",1289,0)
|
---|
760 | ORWDXM DLGNAME
|
---|
761 | "KRN",19,8552,"RPC",1290,0)
|
---|
762 | ORWDXM FORMID
|
---|
763 | "KRN",19,8552,"RPC",1291,0)
|
---|
764 | ORWDXM LOADSET
|
---|
765 | "KRN",19,8552,"RPC",1292,0)
|
---|
766 | ORWDXM MENU
|
---|
767 | "KRN",19,8552,"RPC",1293,0)
|
---|
768 | ORWDXM MSTYLE
|
---|
769 | "KRN",19,8552,"RPC",1294,0)
|
---|
770 | ORWDXM PROMPTS
|
---|
771 | "KRN",19,8552,"RPC",1295,0)
|
---|
772 | ORWDXM1 BLDQRSP
|
---|
773 | "KRN",19,8552,"RPC",1296,0)
|
---|
774 | ORWDXM2 CLRRCL
|
---|
775 | "KRN",19,8552,"RPC",1297,0)
|
---|
776 | ORWDXQ DLGNAME
|
---|
777 | "KRN",19,8552,"RPC",1298,0)
|
---|
778 | ORWDXQ DLGSAVE
|
---|
779 | "KRN",19,8552,"RPC",1299,0)
|
---|
780 | ORWDXQ GETQLST
|
---|
781 | "KRN",19,8552,"RPC",1300,0)
|
---|
782 | ORWDXQ GETQNAM
|
---|
783 | "KRN",19,8552,"RPC",1301,0)
|
---|
784 | ORWDXQ PUTQLST
|
---|
785 | "KRN",19,8552,"RPC",1302,0)
|
---|
786 | ORWDXQ PUTQNAM
|
---|
787 | "KRN",19,8552,"RPC",1303,0)
|
---|
788 | ORWDXR ISREL
|
---|
789 | "KRN",19,8552,"RPC",1304,0)
|
---|
790 | ORWDXR RENEW
|
---|
791 | "KRN",19,8552,"RPC",1305,0)
|
---|
792 | ORWDXR RNWFLDS
|
---|
793 | "KRN",19,8552,"RPC",1306,0)
|
---|
794 | ORWGEPT CLINRNG
|
---|
795 | "KRN",19,8552,"RPC",1307,0)
|
---|
796 | ORWLR CUMULATIVE REPORT
|
---|
797 | "KRN",19,8552,"RPC",1308,0)
|
---|
798 | ORWLR CUMULATIVE SECTION
|
---|
799 | "KRN",19,8552,"RPC",1309,0)
|
---|
800 | ORWLR REPORT LISTS
|
---|
801 | "KRN",19,8552,"RPC",1310,0)
|
---|
802 | ORWLRR ALLTESTS
|
---|
803 | "KRN",19,8552,"RPC",1311,0)
|
---|
804 | ORWLRR ATESTS
|
---|
805 | "KRN",19,8552,"RPC",1312,0)
|
---|
806 | ORWLRR ATG
|
---|
807 | "KRN",19,8552,"RPC",1313,0)
|
---|
808 | ORWLRR ATOMICS
|
---|
809 | "KRN",19,8552,"RPC",1314,0)
|
---|
810 | ORWLRR CHART
|
---|
811 | "KRN",19,8552,"RPC",1315,0)
|
---|
812 | ORWLRR CHEMTEST
|
---|
813 | "KRN",19,8552,"RPC",1316,0)
|
---|
814 | ORWLRR GRID
|
---|
815 | "KRN",19,8552,"RPC",1317,0)
|
---|
816 | ORWLRR INTERIM
|
---|
817 | "KRN",19,8552,"RPC",1318,0)
|
---|
818 | ORWLRR INTERIMG
|
---|
819 | "KRN",19,8552,"RPC",1319,0)
|
---|
820 | ORWLRR INTERIMS
|
---|
821 | "KRN",19,8552,"RPC",1320,0)
|
---|
822 | ORWLRR MICRO
|
---|
823 | "KRN",19,8552,"RPC",1321,0)
|
---|
824 | ORWLRR NEWOLD
|
---|
825 | "KRN",19,8552,"RPC",1322,0)
|
---|
826 | ORWLRR PARAM
|
---|
827 | "KRN",19,8552,"RPC",1323,0)
|
---|
828 | ORWLRR SPEC
|
---|
829 | "KRN",19,8552,"RPC",1324,0)
|
---|
830 | ORWLRR TG
|
---|
831 | "KRN",19,8552,"RPC",1325,0)
|
---|
832 | ORWLRR USERS
|
---|
833 | "KRN",19,8552,"RPC",1326,0)
|
---|
834 | ORWLRR UTGA
|
---|
835 | "KRN",19,8552,"RPC",1327,0)
|
---|
836 | ORWLRR UTGD
|
---|
837 | "KRN",19,8552,"RPC",1328,0)
|
---|
838 | ORWLRR UTGR
|
---|
839 | "KRN",19,8552,"RPC",1329,0)
|
---|
840 | ORWMC PATIENT PROCEDURES
|
---|
841 | "KRN",19,8552,"RPC",1330,0)
|
---|
842 | ORWOR RESULT
|
---|
843 | "KRN",19,8552,"RPC",1331,0)
|
---|
844 | ORWOR SHEETS
|
---|
845 | "KRN",19,8552,"RPC",1332,0)
|
---|
846 | ORWOR TSALL
|
---|
847 | "KRN",19,8552,"RPC",1333,0)
|
---|
848 | ORWORB AUTOUNFLAG ORDERS
|
---|
849 | "KRN",19,8552,"RPC",1334,0)
|
---|
850 | ORWORB FASTUSER
|
---|
851 | "KRN",19,8552,"RPC",1335,0)
|
---|
852 | ORWORB GET TIU ALERT INFO
|
---|
853 | "KRN",19,8552,"RPC",1336,0)
|
---|
854 | ORWORB GETDATA
|
---|
855 | "KRN",19,8552,"RPC",1337,0)
|
---|
856 | ORWORB KILL UNSIG ORDERS ALERT
|
---|
857 | "KRN",19,8552,"RPC",1339,0)
|
---|
858 | ORWORDG ALLTREE
|
---|
859 | "KRN",19,8552,"RPC",1340,0)
|
---|
860 | ORWORDG GRPSEQB
|
---|
861 | "KRN",19,8552,"RPC",1341,0)
|
---|
862 | ORWORDG IEN
|
---|
863 | "KRN",19,8552,"RPC",1342,0)
|
---|
864 | ORWORDG MAPSEQ
|
---|
865 | "KRN",19,8552,"RPC",1343,0)
|
---|
866 | ORWORDG REVSTS
|
---|
867 | "KRN",19,8552,"RPC",1344,0)
|
---|
868 | ORWORR AGET
|
---|
869 | "KRN",19,8552,"RPC",1345,0)
|
---|
870 | ORWORR GET
|
---|
871 | "KRN",19,8552,"RPC",1346,0)
|
---|
872 | ORWORR GET4LST
|
---|
873 | "KRN",19,8552,"RPC",1347,0)
|
---|
874 | ORWORR GETBYIFN
|
---|
875 | "KRN",19,8552,"RPC",1348,0)
|
---|
876 | ORWORR GETTXT
|
---|
877 | "KRN",19,8552,"RPC",1349,0)
|
---|
878 | ORWPCE ACTIVE PROV
|
---|
879 | "KRN",19,8552,"RPC",1350,0)
|
---|
880 | ORWPCE ACTPROB
|
---|
881 | "KRN",19,8552,"RPC",1351,0)
|
---|
882 | ORWPCE CPTREQD
|
---|
883 | "KRN",19,8552,"RPC",1352,0)
|
---|
884 | ORWPCE DELETE
|
---|
885 | "KRN",19,8552,"RPC",1353,0)
|
---|
886 | ORWPCE DIAG
|
---|
887 | "KRN",19,8552,"RPC",1354,0)
|
---|
888 | ORWPCE GET EDUCATION TOPICS
|
---|
889 | "KRN",19,8552,"RPC",1355,0)
|
---|
890 | ORWPCE GET EXAM TYPE
|
---|
891 | "KRN",19,8552,"RPC",1356,0)
|
---|
892 | ORWPCE GET HEALTH FACTORS TY
|
---|
893 | "KRN",19,8552,"RPC",1357,0)
|
---|
894 | ORWPCE GET IMMUNIZATION TYPE
|
---|
895 | "KRN",19,8552,"RPC",1358,0)
|
---|
896 | ORWPCE GET SET OF CODES
|
---|
897 | "KRN",19,8552,"RPC",1359,0)
|
---|
898 | ORWPCE GET SKIN TEST TYPE
|
---|
899 | "KRN",19,8552,"RPC",1360,0)
|
---|
900 | ORWPCE GET TREATMENT TYPE
|
---|
901 | "KRN",19,8552,"RPC",1361,0)
|
---|
902 | ORWPCE HF
|
---|
903 | "KRN",19,8552,"RPC",1362,0)
|
---|
904 | ORWPCE IMM
|
---|
905 | "KRN",19,8552,"RPC",1363,0)
|
---|
906 | ORWPCE LEX
|
---|
907 | "KRN",19,8552,"RPC",1364,0)
|
---|
908 | ORWPCE LEXCODE
|
---|
909 | "KRN",19,8552,"RPC",1366,0)
|
---|
910 | ORWPCE NOTEVSTR
|
---|
911 | "KRN",19,8552,"RPC",1367,0)
|
---|
912 | ORWPCE PCE4NOTE
|
---|
913 | "KRN",19,8552,"RPC",1368,0)
|
---|
914 | ORWPCE PED
|
---|
915 | "KRN",19,8552,"RPC",1369,0)
|
---|
916 | ORWPCE PROC
|
---|
917 | "KRN",19,8552,"RPC",1370,0)
|
---|
918 | ORWPCE SAVE
|
---|
919 | "KRN",19,8552,"RPC",1371,0)
|
---|
920 | ORWPCE SCDIS
|
---|
921 | "KRN",19,8552,"RPC",1372,0)
|
---|
922 | ORWPCE SCSEL
|
---|
923 | "KRN",19,8552,"RPC",1373,0)
|
---|
924 | ORWPCE SK
|
---|
925 | "KRN",19,8552,"RPC",1374,0)
|
---|
926 | ORWPCE TRT
|
---|
927 | "KRN",19,8552,"RPC",1375,0)
|
---|
928 | ORWPCE VISIT
|
---|
929 | "KRN",19,8552,"RPC",1376,0)
|
---|
930 | ORWPCE XAM
|
---|
931 | "KRN",19,8552,"RPC",1377,0)
|
---|
932 | ORWPS ACTIVE
|
---|
933 | "KRN",19,8552,"RPC",1378,0)
|
---|
934 | ORWPS COVER
|
---|
935 | "KRN",19,8552,"RPC",1379,0)
|
---|
936 | ORWPS DETAIL
|
---|
937 | "KRN",19,8552,"RPC",1380,0)
|
---|
938 | ORWPS1 NEWDLG
|
---|
939 | "KRN",19,8552,"RPC",1381,0)
|
---|
940 | ORWPS1 PICKUP
|
---|
941 | "KRN",19,8552,"RPC",1382,0)
|
---|
942 | ORWPS1 REFILL
|
---|
943 | "KRN",19,8552,"RPC",1383,0)
|
---|
944 | ORWPT ADMITLST
|
---|
945 | "KRN",19,8552,"RPC",1384,0)
|
---|
946 | ORWPT APPTLST
|
---|
947 | "KRN",19,8552,"RPC",1385,0)
|
---|
948 | ORWPT CLINRNG
|
---|
949 | "KRN",19,8552,"RPC",1386,0)
|
---|
950 | ORWPT CWAD
|
---|
951 | "KRN",19,8552,"RPC",1387,0)
|
---|
952 | ORWPT DFLTSRC
|
---|
953 | "KRN",19,8552,"RPC",1388,0)
|
---|
954 | ORWPT DIEDON
|
---|
955 | "KRN",19,8552,"RPC",1389,0)
|
---|
956 | ORWPT DISCHARGE
|
---|
957 | "KRN",19,8552,"RPC",1390,0)
|
---|
958 | ORWPT ENCTITL
|
---|
959 | "KRN",19,8552,"RPC",1391,0)
|
---|
960 | ORWPT FULLSSN
|
---|
961 | "KRN",19,8552,"RPC",1392,0)
|
---|
962 | ORWPT ID INFO
|
---|
963 | "KRN",19,8552,"RPC",1393,0)
|
---|
964 | ORWPT LAST5
|
---|
965 | "KRN",19,8552,"RPC",1394,0)
|
---|
966 | ORWPT LIST ALL
|
---|
967 | "KRN",19,8552,"RPC",1395,0)
|
---|
968 | ORWPT PTINQ
|
---|
969 | "KRN",19,8552,"RPC",1396,0)
|
---|
970 | ORWPT SAVDFLT
|
---|
971 | "KRN",19,8552,"RPC",1397,0)
|
---|
972 | ORWPT SELCHK
|
---|
973 | "KRN",19,8552,"RPC",1398,0)
|
---|
974 | ORWPT SELECT
|
---|
975 | "KRN",19,8552,"RPC",1399,0)
|
---|
976 | ORWPT SHARE
|
---|
977 | "KRN",19,8552,"RPC",1400,0)
|
---|
978 | ORWPT TOP
|
---|
979 | "KRN",19,8552,"RPC",1401,0)
|
---|
980 | ORWPT1 PCDETAIL
|
---|
981 | "KRN",19,8552,"RPC",1402,0)
|
---|
982 | ORWPT1 PRCARE
|
---|
983 | "KRN",19,8552,"RPC",1403,0)
|
---|
984 | ORWPT16 ADMITLST
|
---|
985 | "KRN",19,8552,"RPC",1404,0)
|
---|
986 | ORWPT16 APPTLST
|
---|
987 | "KRN",19,8552,"RPC",1405,0)
|
---|
988 | ORWPT16 DEMOG
|
---|
989 | "KRN",19,8552,"RPC",1406,0)
|
---|
990 | ORWPT16 GETVSIT
|
---|
991 | "KRN",19,8552,"RPC",1407,0)
|
---|
992 | ORWPT16 ID INFO
|
---|
993 | "KRN",19,8552,"RPC",1408,0)
|
---|
994 | ORWPT16 LIST ALL
|
---|
995 | "KRN",19,8552,"RPC",1409,0)
|
---|
996 | ORWPT16 LOOKUP
|
---|
997 | "KRN",19,8552,"RPC",1410,0)
|
---|
998 | ORWPT16 PSCNVT
|
---|
999 | "KRN",19,8552,"RPC",1411,0)
|
---|
1000 | ORWRA DEFAULT EXAM SETTINGS
|
---|
1001 | "KRN",19,8552,"RPC",1412,0)
|
---|
1002 | ORWRA IMAGING EXAMS
|
---|
1003 | "KRN",19,8552,"RPC",1413,0)
|
---|
1004 | ORWRA PRINT REPORT
|
---|
1005 | "KRN",19,8552,"RPC",1414,0)
|
---|
1006 | ORWRA REPORT TEXT
|
---|
1007 | "KRN",19,8552,"RPC",1415,0)
|
---|
1008 | ORWRP PRINT LAB REPORTS
|
---|
1009 | "KRN",19,8552,"RPC",1416,0)
|
---|
1010 | ORWRP PRINT REPORT
|
---|
1011 | "KRN",19,8552,"RPC",1417,0)
|
---|
1012 | ORWRP REPORT LISTS
|
---|
1013 | "KRN",19,8552,"RPC",1418,0)
|
---|
1014 | ORWRP REPORT TEXT
|
---|
1015 | "KRN",19,8552,"RPC",1419,0)
|
---|
1016 | ORWRP1 LISTNUTR
|
---|
1017 | "KRN",19,8552,"RPC",1420,0)
|
---|
1018 | ORWRP16 REPORT LISTS
|
---|
1019 | "KRN",19,8552,"RPC",1421,0)
|
---|
1020 | ORWRP16 REPORT TEXT
|
---|
1021 | "KRN",19,8552,"RPC",1422,0)
|
---|
1022 | ORWTIU GET DCSUMM CONTEXT
|
---|
1023 | "KRN",19,8552,"RPC",1423,0)
|
---|
1024 | ORWTIU GET TIU CONTEXT
|
---|
1025 | "KRN",19,8552,"RPC",1424,0)
|
---|
1026 | ORWTIU SAVE DCSUMM CONTEXT
|
---|
1027 | "KRN",19,8552,"RPC",1425,0)
|
---|
1028 | ORWTIU SAVE TIU CONTEXT
|
---|
1029 | "KRN",19,8552,"RPC",1426,0)
|
---|
1030 | ORWU CLINLOC
|
---|
1031 | "KRN",19,8552,"RPC",1427,0)
|
---|
1032 | ORWU DEVICE
|
---|
1033 | "KRN",19,8552,"RPC",1428,0)
|
---|
1034 | ORWU DT
|
---|
1035 | "KRN",19,8552,"RPC",1429,0)
|
---|
1036 | ORWU EXTNAME
|
---|
1037 | "KRN",19,8552,"RPC",1430,0)
|
---|
1038 | ORWU GBLREF
|
---|
1039 | "KRN",19,8552,"RPC",1431,0)
|
---|
1040 | ORWU GENERIC
|
---|
1041 | "KRN",19,8552,"RPC",1432,0)
|
---|
1042 | ORWU HASKEY
|
---|
1043 | "KRN",19,8552,"RPC",1433,0)
|
---|
1044 | ORWU HOSPLOC
|
---|
1045 | "KRN",19,8552,"RPC",1434,0)
|
---|
1046 | ORWU INPLOC
|
---|
1047 | "KRN",19,8552,"RPC",1435,0)
|
---|
1048 | ORWU NEWPERS
|
---|
1049 | "KRN",19,8552,"RPC",1436,0)
|
---|
1050 | ORWU NPHASKEY
|
---|
1051 | "KRN",19,8552,"RPC",1437,0)
|
---|
1052 | ORWU PATCH
|
---|
1053 | "KRN",19,8552,"RPC",1438,0)
|
---|
1054 | ORWU TOOLMENU
|
---|
1055 | "KRN",19,8552,"RPC",1439,0)
|
---|
1056 | ORWU USERINFO
|
---|
1057 | "KRN",19,8552,"RPC",1440,0)
|
---|
1058 | ORWU VALDT
|
---|
1059 | "KRN",19,8552,"RPC",1441,0)
|
---|
1060 | ORWU VALIDSIG
|
---|
1061 | "KRN",19,8552,"RPC",1442,0)
|
---|
1062 | ORWU VERSRV
|
---|
1063 | "KRN",19,8552,"RPC",1443,0)
|
---|
1064 | ORWU16 DEVICE
|
---|
1065 | "KRN",19,8552,"RPC",1444,0)
|
---|
1066 | ORWU16 HOSPLOC
|
---|
1067 | "KRN",19,8552,"RPC",1445,0)
|
---|
1068 | ORWU16 NEWPERS
|
---|
1069 | "KRN",19,8552,"RPC",1446,0)
|
---|
1070 | ORWU16 USERINFO
|
---|
1071 | "KRN",19,8552,"RPC",1447,0)
|
---|
1072 | ORWU16 VALDT
|
---|
1073 | "KRN",19,8552,"RPC",1448,0)
|
---|
1074 | ORWU16 VALIDSIG
|
---|
1075 | "KRN",19,8552,"RPC",1449,0)
|
---|
1076 | ORWUH POPUP
|
---|
1077 | "KRN",19,8552,"RPC",1450,0)
|
---|
1078 | ORWUX SYMTAB
|
---|
1079 | "KRN",19,8552,"RPC",1451,0)
|
---|
1080 | ORWUXT LST
|
---|
1081 | "KRN",19,8552,"RPC",1452,0)
|
---|
1082 | ORWUXT REF
|
---|
1083 | "KRN",19,8552,"RPC",1453,0)
|
---|
1084 | ORWUXT VAL
|
---|
1085 | "KRN",19,8552,"RPC",1454,0)
|
---|
1086 | ORQQCN DEFAULT REQUEST REASON
|
---|
1087 | "KRN",19,8552,"RPC",1455,0)
|
---|
1088 | ORWDX LOCK ORDER
|
---|
1089 | "KRN",19,8552,"RPC",1456,0)
|
---|
1090 | ORWDX UNLOCK ORDER
|
---|
1091 | "KRN",19,8552,"RPC",1457,0)
|
---|
1092 | ORWDCN32 NEWDLG
|
---|
1093 | "KRN",19,8552,"RPC",1458,0)
|
---|
1094 | ORQQCN GET SERVICE IEN
|
---|
1095 | "KRN",19,8552,"RPC",1459,0)
|
---|
1096 | ORQQCN PROVDX
|
---|
1097 | "KRN",19,8552,"RPC",1460,0)
|
---|
1098 | TIU TEMPLATE ACCESS LEVEL
|
---|
1099 | "KRN",19,8552,"RPC",1461,0)
|
---|
1100 | TIU GET DOCUMENT TITLE
|
---|
1101 | "KRN",19,8552,"RPC",1462,0)
|
---|
1102 | ORWPT BYWARD
|
---|
1103 | "KRN",19,8552,"RPC",1463,0)
|
---|
1104 | ORQQPX GET HIST LOCATIONS
|
---|
1105 | "KRN",19,8552,"RPC",1464,0)
|
---|
1106 | ORQQPX NEW REMINDERS ACTIVE
|
---|
1107 | "KRN",19,8552,"RPC",1465,0)
|
---|
1108 | ORWPCE GET VISIT
|
---|
1109 | "KRN",19,8552,"RPC",1480,0)
|
---|
1110 | TIU GET REQUEST
|
---|
1111 | "KRN",19,8552,"RPC",1481,0)
|
---|
1112 | ORWORB KILL EXPIR MED ALERT
|
---|
1113 | "KRN",19,8552,"RPC",1482,0)
|
---|
1114 | DG CHK BS5 XREF ARRAY
|
---|
1115 | "KRN",19,8552,"RPC",1483,0)
|
---|
1116 | DG CHK BS5 XREF Y/N
|
---|
1117 | "KRN",19,8552,"RPC",1484,0)
|
---|
1118 | DG CHK PAT/DIV MEANS TEST
|
---|
1119 | "KRN",19,8552,"RPC",1485,0)
|
---|
1120 | DG SENSITIVE RECORD ACCESS
|
---|
1121 | "KRN",19,8552,"RPC",1486,0)
|
---|
1122 | DG SENSITIVE RECORD BULLETIN
|
---|
1123 | "KRN",19,8552,"RPC",1487,0)
|
---|
1124 | ORQQCN CANEDIT
|
---|
1125 | "KRN",19,8552,"RPC",1488,0)
|
---|
1126 | ORQQCN EDIT DEFAULT REASON
|
---|
1127 | "KRN",19,8552,"RPC",1489,0)
|
---|
1128 | ORQQCN SF513 WINDOWS PRINT
|
---|
1129 | "KRN",19,8552,"RPC",1490,0)
|
---|
1130 | ORWCIRN FACLIST
|
---|
1131 | "KRN",19,8552,"RPC",1491,0)
|
---|
1132 | ORWDLR32 GET LAB TIMES
|
---|
1133 | "KRN",19,8552,"RPC",1492,0)
|
---|
1134 | ORWPT LEGACY
|
---|
1135 | "KRN",19,8552,"RPC",1493,0)
|
---|
1136 | ORWRP GET DEFAULT PRINTER
|
---|
1137 | "KRN",19,8552,"RPC",1494,0)
|
---|
1138 | ORWRP PRINT WINDOWS REPORT
|
---|
1139 | "KRN",19,8552,"RPC",1495,0)
|
---|
1140 | ORWRP SAVE DEFAULT PRINTER
|
---|
1141 | "KRN",19,8552,"RPC",1496,0)
|
---|
1142 | ORWRP WINPRINT DEFAULT
|
---|
1143 | "KRN",19,8552,"RPC",1497,0)
|
---|
1144 | ORWRP WINPRINT LAB REPORTS
|
---|
1145 | "KRN",19,8552,"RPC",1498,0)
|
---|
1146 | ORWTIU WINPRINT NOTE
|
---|
1147 | "KRN",19,8552,"RPC",1500,0)
|
---|
1148 | ORWPCE GAFOK
|
---|
1149 | "KRN",19,8552,"RPC",1501,0)
|
---|
1150 | ORWPCE MHCLINIC
|
---|
1151 | "KRN",19,8552,"RPC",1502,0)
|
---|
1152 | ORWPCE LOADGAF
|
---|
1153 | "KRN",19,8552,"RPC",1503,0)
|
---|
1154 | ORWPCE SAVEGAF
|
---|
1155 | "KRN",19,8552,"RPC",1504,0)
|
---|
1156 | ORWPCE FORCE
|
---|
1157 | "KRN",19,8552,"RPC",1505,0)
|
---|
1158 | TIU GET DEFAULT PROVIDER
|
---|
1159 | "KRN",19,8552,"RPC",1506,0)
|
---|
1160 | TIU GET SITE PARAMETERS
|
---|
1161 | "KRN",19,8552,"RPC",1507,0)
|
---|
1162 | TIU IS USER A PROVIDER?
|
---|
1163 | "KRN",19,8552,"RPC",1508,0)
|
---|
1164 | ORWOR VWGET
|
---|
1165 | "KRN",19,8552,"RPC",1509,0)
|
---|
1166 | ORWOR VWSET
|
---|
1167 | "KRN",19,8552,"RPC",1510,0)
|
---|
1168 | ORWU PARAM
|
---|
1169 | "KRN",19,8552,"RPC",1511,0)
|
---|
1170 | ORWDOR LKSCRN
|
---|
1171 | "KRN",19,8552,"RPC",1512,0)
|
---|
1172 | ORWDOR VALNUM
|
---|
1173 | "KRN",19,8552,"RPC",1513,0)
|
---|
1174 | ORWDPS32 VALROUTE
|
---|
1175 | "KRN",19,8552,"RPC",1515,0)
|
---|
1176 | ORWORB UNSIG ORDERS FOLLOWUP
|
---|
1177 | "KRN",19,8552,"RPC",1516,0)
|
---|
1178 | ORWTIU GET LISTBOX ITEM
|
---|
1179 | "KRN",19,8552,"RPC",1517,0)
|
---|
1180 | ORWRP2 HS COMP FILES
|
---|
1181 | "KRN",19,8552,"RPC",1518,0)
|
---|
1182 | ORWRP2 HS COMPONENTS
|
---|
1183 | "KRN",19,8552,"RPC",1519,0)
|
---|
1184 | ORWRP2 HS FILE LOOKUP
|
---|
1185 | "KRN",19,8552,"RPC",1520,0)
|
---|
1186 | ORWRP2 HS REPORT TEXT
|
---|
1187 | "KRN",19,8552,"RPC",1521,0)
|
---|
1188 | ORWRP2 HS SUBITEMS
|
---|
1189 | "KRN",19,8552,"RPC",1522,0)
|
---|
1190 | ORWPCE HASCPT
|
---|
1191 | "KRN",19,8552,"RPC",1523,0)
|
---|
1192 | ORWPCE ASKPCE
|
---|
1193 | "KRN",19,8552,"RPC",1524,0)
|
---|
1194 | ORWPCE MHTESTOK
|
---|
1195 | "KRN",19,8552,"RPC",1525,0)
|
---|
1196 | ORWPCE GAFURL
|
---|
1197 | "KRN",19,8552,"RPC",1526,0)
|
---|
1198 | ORQQPXRM DIALOG PROMPTS
|
---|
1199 | "KRN",19,8552,"RPC",1527,0)
|
---|
1200 | ORQQPXRM EDUCATION SUBTOPICS
|
---|
1201 | "KRN",19,8552,"RPC",1528,0)
|
---|
1202 | ORQQPXRM EDUCATION SUMMARY
|
---|
1203 | "KRN",19,8552,"RPC",1529,0)
|
---|
1204 | ORQQPXRM EDUCATION TOPIC
|
---|
1205 | "KRN",19,8552,"RPC",1530,0)
|
---|
1206 | ORQQPXRM MENTAL HEALTH
|
---|
1207 | "KRN",19,8552,"RPC",1531,0)
|
---|
1208 | ORQQPXRM MENTAL HEALTH RESULTS
|
---|
1209 | "KRN",19,8552,"RPC",1532,0)
|
---|
1210 | ORQQPXRM MENTAL HEALTH SAVE
|
---|
1211 | "KRN",19,8552,"RPC",1533,0)
|
---|
1212 | ORQQPXRM PROGRESS NOTE HEADER
|
---|
1213 | "KRN",19,8552,"RPC",1534,0)
|
---|
1214 | ORQQPXRM REMINDER CATEGORIES
|
---|
1215 | "KRN",19,8552,"RPC",1535,0)
|
---|
1216 | ORQQPXRM REMINDER DETAIL
|
---|
1217 | "KRN",19,8552,"RPC",1536,0)
|
---|
1218 | ORQQPXRM REMINDER DIALOG
|
---|
1219 | "KRN",19,8552,"RPC",1537,0)
|
---|
1220 | ORQQPXRM REMINDER EVALUATION
|
---|
1221 | "KRN",19,8552,"RPC",1538,0)
|
---|
1222 | ORQQPXRM REMINDER INQUIRY
|
---|
1223 | "KRN",19,8552,"RPC",1539,0)
|
---|
1224 | ORQQPXRM REMINDER WEB
|
---|
1225 | "KRN",19,8552,"RPC",1540,0)
|
---|
1226 | ORQQPXRM REMINDERS APPLICABLE
|
---|
1227 | "KRN",19,8552,"RPC",1541,0)
|
---|
1228 | ORQQPXRM REMINDERS UNEVALUATED
|
---|
1229 | "KRN",19,8552,"RPC",1542,0)
|
---|
1230 | ORWLRR INFO
|
---|
1231 | "KRN",19,8552,"RPC",1543,0)
|
---|
1232 | TIU GET PRINT NAME
|
---|
1233 | "KRN",19,8552,"RPC",1544,0)
|
---|
1234 | TIU WAS THIS SAVED?
|
---|
1235 | "KRN",19,8552,"RPC",1545,0)
|
---|
1236 | ORWD1 COMLOC
|
---|
1237 | "KRN",19,8552,"RPC",1546,0)
|
---|
1238 | ORWD1 SIG4ANY
|
---|
1239 | "KRN",19,8552,"RPC",1547,0)
|
---|
1240 | ORWD1 SIG4ONE
|
---|
1241 | "KRN",19,8552,"RPC",1548,0)
|
---|
1242 | ORWOR UNSIGN
|
---|
1243 | "KRN",19,8552,"RPC",1549,0)
|
---|
1244 | ORWPT INPLOC
|
---|
1245 | "KRN",19,8552,"RPC",1553,0)
|
---|
1246 | ORQQCN2 GET PREREQUISITE
|
---|
1247 | "KRN",19,8552,"RPC",1554,0)
|
---|
1248 | ORQQCN2 SCHEDULE CONSULT
|
---|
1249 | "KRN",19,8552,"RPC",1555,0)
|
---|
1250 | YS GAF API
|
---|
1251 | "KRN",19,8552,"RPC",1556,0)
|
---|
1252 | TIU LONG LIST BOILERPLATED
|
---|
1253 | "KRN",19,8552,"RPC",1557,0)
|
---|
1254 | ORWDLR33 FUTURE LAB COLLECTS
|
---|
1255 | "KRN",19,8552,"RPC",1558,0)
|
---|
1256 | ORWRP PRINT REMOTE REPORT
|
---|
1257 | "KRN",19,8552,"RPC",1559,0)
|
---|
1258 | ORWRP PRINT WINDOWS REMOTE
|
---|
1259 | "KRN",19,8552,"RPC",1560,0)
|
---|
1260 | ORWRP PRINT LAB REMOTE
|
---|
1261 | "KRN",19,8552,"RPC",1561,0)
|
---|
1262 | ORWRP PRINT WINDOWS LAB REMOTE
|
---|
1263 | "KRN",19,8552,"RPC",1562,0)
|
---|
1264 | ORQQPXRM DIALOG ACTIVE
|
---|
1265 | "KRN",19,8552,"RPC",1563,0)
|
---|
1266 | ORWPCE MH TEST AUTHORIZED
|
---|
1267 | "KRN",19,8552,"RPC",1564,0)
|
---|
1268 | TIU GET BOILERPLATE
|
---|
1269 | "KRN",19,8552,"RPC",1565,0)
|
---|
1270 | ORWRP2 HS COMPONENT SUBS
|
---|
1271 | "KRN",19,8552,"RPC",1566,0)
|
---|
1272 | ORWCH SAVFONT
|
---|
1273 | "KRN",19,8552,"RPC",1567,0)
|
---|
1274 | ORWDLR33 LASTTIME
|
---|
1275 | "KRN",19,8552,"RPC",1568,0)
|
---|
1276 | ORWD1 SVONLY
|
---|
1277 | "KRN",19,8552,"RPC",1569,0)
|
---|
1278 | ORWPCE HASVISIT
|
---|
1279 | "KRN",19,8552,"RPC",1570,0)
|
---|
1280 | ORWPCE GETMOD
|
---|
1281 | "KRN",19,8552,"RPC",1571,0)
|
---|
1282 | ORWPCE CPTMODS
|
---|
1283 | "KRN",19,8552,"RPC",1572,0)
|
---|
1284 | XWB REMOTE CLEAR
|
---|
1285 | "KRN",19,8552,"RPC",1573,0)
|
---|
1286 | XWB REMOTE GETDATA
|
---|
1287 | "KRN",19,8552,"RPC",1574,0)
|
---|
1288 | XWB REMOTE RPC
|
---|
1289 | "KRN",19,8552,"RPC",1575,0)
|
---|
1290 | XWB REMOTE STATUS CHECK
|
---|
1291 | "KRN",19,8552,"RPC",1576,0)
|
---|
1292 | ORQQCN ASSIGNABLE MED RESULTS
|
---|
1293 | "KRN",19,8552,"RPC",1577,0)
|
---|
1294 | ORQQCN ATTACH MED RESULTS
|
---|
1295 | "KRN",19,8552,"RPC",1578,0)
|
---|
1296 | ORQQCN GET MED RESULT DETAILS
|
---|
1297 | "KRN",19,8552,"RPC",1579,0)
|
---|
1298 | ORQQCN REMOVABLE MED RESULTS
|
---|
1299 | "KRN",19,8552,"RPC",1580,0)
|
---|
1300 | ORQQCN REMOVE MED RESULTS
|
---|
1301 | "KRN",19,8552,"RPC",1581,0)
|
---|
1302 | ORQQCN SVC W/SYNONYMS
|
---|
1303 | "KRN",19,8552,"RPC",1582,0)
|
---|
1304 | ORWCV1 COVERSHEET LIST
|
---|
1305 | "KRN",19,8552,"RPC",1583,0)
|
---|
1306 | ORWORB KILL EXPIR OI ALERT
|
---|
1307 | "KRN",19,8552,"RPC",1584,0)
|
---|
1308 | ORWPCE GETSVC
|
---|
1309 | "KRN",19,8552,"RPC",1585,0)
|
---|
1310 | ORWRP LAB REPORT LISTS
|
---|
1311 | "KRN",19,8552,"RPC",1587,0)
|
---|
1312 | ORWTPN GETCLASS
|
---|
1313 | "KRN",19,8552,"RPC",1588,0)
|
---|
1314 | ORWTPN GETTC
|
---|
1315 | "KRN",19,8552,"RPC",1589,0)
|
---|
1316 | ORWTPO CSARNGD
|
---|
1317 | "KRN",19,8552,"RPC",1590,0)
|
---|
1318 | ORWTPO CSLABD
|
---|
1319 | "KRN",19,8552,"RPC",1591,0)
|
---|
1320 | ORWTPO GETTABS
|
---|
1321 | "KRN",19,8552,"RPC",1592,0)
|
---|
1322 | ORWTPP ADDLIST
|
---|
1323 | "KRN",19,8552,"RPC",1593,0)
|
---|
1324 | ORWTPP CHKSURR
|
---|
1325 | "KRN",19,8552,"RPC",1594,0)
|
---|
1326 | ORWTPP CLDAYS
|
---|
1327 | "KRN",19,8552,"RPC",1595,0)
|
---|
1328 | ORWTPP CLEARNOT
|
---|
1329 | "KRN",19,8552,"RPC",1596,0)
|
---|
1330 | ORWTPP CLRANGE
|
---|
1331 | "KRN",19,8552,"RPC",1597,0)
|
---|
1332 | ORWTPP CSARNG
|
---|
1333 | "KRN",19,8552,"RPC",1598,0)
|
---|
1334 | ORWTPP CSLAB
|
---|
1335 | "KRN",19,8552,"RPC",1599,0)
|
---|
1336 | ORWTPP DELLIST
|
---|
1337 | "KRN",19,8552,"RPC",1600,0)
|
---|
1338 | ORWTPP GETCOMBO
|
---|
1339 | "KRN",19,8552,"RPC",1601,0)
|
---|
1340 | ORWTPP GETCOS
|
---|
1341 | "KRN",19,8552,"RPC",1602,0)
|
---|
1342 | ORWTPP GETDCOS
|
---|
1343 | "KRN",19,8552,"RPC",1603,0)
|
---|
1344 | ORWTPP GETNOT
|
---|
1345 | "KRN",19,8552,"RPC",1604,0)
|
---|
1346 | ORWTPP GETNOTO
|
---|
1347 | "KRN",19,8552,"RPC",1605,0)
|
---|
1348 | ORWTPP GETOC
|
---|
1349 | "KRN",19,8552,"RPC",1606,0)
|
---|
1350 | ORWTPP GETOTHER
|
---|
1351 | "KRN",19,8552,"RPC",1607,0)
|
---|
1352 | ORWTPP GETREM
|
---|
1353 | "KRN",19,8552,"RPC",1608,0)
|
---|
1354 | ORWTPP GETSUB
|
---|
1355 | "KRN",19,8552,"RPC",1609,0)
|
---|
1356 | ORWTPP GETSURR
|
---|
1357 | "KRN",19,8552,"RPC",1610,0)
|
---|
1358 | ORWTPP GETTD
|
---|
1359 | "KRN",19,8552,"RPC",1611,0)
|
---|
1360 | ORWTPP GETTU
|
---|
1361 | "KRN",19,8552,"RPC",1612,0)
|
---|
1362 | ORWTPP LSDEF
|
---|
1363 | "KRN",19,8552,"RPC",1613,0)
|
---|
1364 | ORWTPP NEWLIST
|
---|
1365 | "KRN",19,8552,"RPC",1614,0)
|
---|
1366 | ORWTPP PLISTS
|
---|
1367 | "KRN",19,8552,"RPC",1615,0)
|
---|
1368 | ORWTPP PLTEAMS
|
---|
1369 | "KRN",19,8552,"RPC",1616,0)
|
---|
1370 | ORWTPP REMLIST
|
---|
1371 | "KRN",19,8552,"RPC",1617,0)
|
---|
1372 | ORWTPP SAVECD
|
---|
1373 | "KRN",19,8552,"RPC",1618,0)
|
---|
1374 | ORWTPP SAVECS
|
---|
1375 | "KRN",19,8552,"RPC",1619,0)
|
---|
1376 | ORWTPP SAVELIST
|
---|
1377 | "KRN",19,8552,"RPC",1620,0)
|
---|
1378 | ORWTPP SAVENOT
|
---|
1379 | "KRN",19,8552,"RPC",1621,0)
|
---|
1380 | ORWTPP SAVENOTO
|
---|
1381 | "KRN",19,8552,"RPC",1622,0)
|
---|
1382 | ORWTPP SAVEOC
|
---|
1383 | "KRN",19,8552,"RPC",1623,0)
|
---|
1384 | ORWTPP SAVEPLD
|
---|
1385 | "KRN",19,8552,"RPC",1624,0)
|
---|
1386 | ORWTPP SAVESURR
|
---|
1387 | "KRN",19,8552,"RPC",1625,0)
|
---|
1388 | ORWTPP SAVET
|
---|
1389 | "KRN",19,8552,"RPC",1626,0)
|
---|
1390 | ORWTPP SETCOMBO
|
---|
1391 | "KRN",19,8552,"RPC",1627,0)
|
---|
1392 | ORWTPP SETDCOS
|
---|
1393 | "KRN",19,8552,"RPC",1628,0)
|
---|
1394 | ORWTPP SETOTHER
|
---|
1395 | "KRN",19,8552,"RPC",1629,0)
|
---|
1396 | ORWTPP SETREM
|
---|
1397 | "KRN",19,8552,"RPC",1630,0)
|
---|
1398 | ORWTPP SETSUB
|
---|
1399 | "KRN",19,8552,"RPC",1631,0)
|
---|
1400 | ORWTPP SORTDEF
|
---|
1401 | "KRN",19,8552,"RPC",1632,0)
|
---|
1402 | ORWTPP TEAMS
|
---|
1403 | "KRN",19,8552,"RPC",1633,0)
|
---|
1404 | ORWTPT ATEAMS
|
---|
1405 | "KRN",19,8552,"RPC",1634,0)
|
---|
1406 | ORWTPT GETTEAM
|
---|
1407 | "KRN",19,8552,"RPC",1635,0)
|
---|
1408 | TIU TEMPLATE GET DEFAULTS
|
---|
1409 | "KRN",19,8552,"RPC",1636,0)
|
---|
1410 | TIU TEMPLATE GET DESCRIPTION
|
---|
1411 | "KRN",19,8552,"RPC",1637,0)
|
---|
1412 | TIU TEMPLATE SET DEFAULTS
|
---|
1413 | "KRN",19,8552,"RPC",1638,0)
|
---|
1414 | ORWTIU IDNOTES INSTALLED
|
---|
1415 | "KRN",19,8552,"RPC",1639,0)
|
---|
1416 | ORQQPX GET FOLDERS
|
---|
1417 | "KRN",19,8552,"RPC",1640,0)
|
---|
1418 | ORQQPX SET FOLDERS
|
---|
1419 | "KRN",19,8552,"RPC",1641,0)
|
---|
1420 | TIU FIELD CAN EDIT
|
---|
1421 | "KRN",19,8552,"RPC",1642,0)
|
---|
1422 | TIU FIELD DELETE
|
---|
1423 | "KRN",19,8552,"RPC",1643,0)
|
---|
1424 | TIU FIELD EXPORT
|
---|
1425 | "KRN",19,8552,"RPC",1644,0)
|
---|
1426 | TIU FIELD IMPORT
|
---|
1427 | "KRN",19,8552,"RPC",1645,0)
|
---|
1428 | TIU FIELD LIST
|
---|
1429 | "KRN",19,8552,"RPC",1646,0)
|
---|
1430 | TIU FIELD LOAD
|
---|
1431 | "KRN",19,8552,"RPC",1647,0)
|
---|
1432 | TIU FIELD LOAD BY IEN
|
---|
1433 | "KRN",19,8552,"RPC",1648,0)
|
---|
1434 | TIU FIELD LOCK
|
---|
1435 | "KRN",19,8552,"RPC",1649,0)
|
---|
1436 | TIU FIELD NAME IS UNIQUE
|
---|
1437 | "KRN",19,8552,"RPC",1650,0)
|
---|
1438 | TIU FIELD SAVE
|
---|
1439 | "KRN",19,8552,"RPC",1651,0)
|
---|
1440 | TIU FIELD UNLOCK
|
---|
1441 | "KRN",19,8552,"RPC",1652,0)
|
---|
1442 | ORWDPS1 CHK94
|
---|
1443 | "KRN",19,8552,"RPC",1653,0)
|
---|
1444 | ORWDPS1 ODSLCT
|
---|
1445 | "KRN",19,8552,"RPC",1654,0)
|
---|
1446 | ORWDPS1 SCHALL
|
---|
1447 | "KRN",19,8552,"RPC",1655,0)
|
---|
1448 | ORWDPS2 ADMIN
|
---|
1449 | "KRN",19,8552,"RPC",1656,0)
|
---|
1450 | ORWDPS2 DAY2QTY
|
---|
1451 | "KRN",19,8552,"RPC",1657,0)
|
---|
1452 | ORWDPS2 OISLCT
|
---|
1453 | "KRN",19,8552,"RPC",1658,0)
|
---|
1454 | ORWDPS2 REQST
|
---|
1455 | "KRN",19,8552,"RPC",1659,0)
|
---|
1456 | ORWDX DGNM
|
---|
1457 | "KRN",19,8552,"RPC",1660,0)
|
---|
1458 | ORWUL FV4DG
|
---|
1459 | "KRN",19,8552,"RPC",1661,0)
|
---|
1460 | ORWUL FVIDX
|
---|
1461 | "KRN",19,8552,"RPC",1662,0)
|
---|
1462 | ORWUL FVSUB
|
---|
1463 | "KRN",19,8552,"RPC",1663,0)
|
---|
1464 | ORWUL QV4DG
|
---|
1465 | "KRN",19,8552,"RPC",1664,0)
|
---|
1466 | ORWUL QVIDX
|
---|
1467 | "KRN",19,8552,"RPC",1665,0)
|
---|
1468 | ORWUL QVSUB
|
---|
1469 | "KRN",19,8552,"RPC",1666,0)
|
---|
1470 | ORWDPS1 DFLTSPLY
|
---|
1471 | "KRN",19,8552,"RPC",1668,0)
|
---|
1472 | PXRM REMINDER DIALOG (TIU)
|
---|
1473 | "KRN",19,8552,"RPC",1669,0)
|
---|
1474 | ORWPCE ANYTIME
|
---|
1475 | "KRN",19,8552,"RPC",1670,0)
|
---|
1476 | ORQQPX GET DEF LOCATIONS
|
---|
1477 | "KRN",19,8552,"RPC",1671,0)
|
---|
1478 | ORWTPP GETIMG
|
---|
1479 | "KRN",19,8552,"RPC",1672,0)
|
---|
1480 | ORWTPP SETIMG
|
---|
1481 | "KRN",19,8552,"RPC",1673,0)
|
---|
1482 | ORWTPO GETIMGD
|
---|
1483 | "KRN",19,8552,"RPC",1674,0)
|
---|
1484 | ORQQPX REM INSERT AT CURSOR
|
---|
1485 | "KRN",19,8552,"RPC",1675,0)
|
---|
1486 | TIU REMINDER DIALOGS
|
---|
1487 | "KRN",19,8552,"RPC",1676,0)
|
---|
1488 | TIU REM DLG OK AS TEMPLATE
|
---|
1489 | "KRN",19,8552,"RPC",1677,0)
|
---|
1490 | ORWDPS2 MAXREF
|
---|
1491 | "KRN",19,8552,"RPC",1678,0)
|
---|
1492 | ORWDPS2 SCHREQ
|
---|
1493 | "KRN",19,8552,"RPC",1679,0)
|
---|
1494 | ORWRP COLUMN HEADERS
|
---|
1495 | "KRN",19,8552,"RPC",1680,0)
|
---|
1496 | TIU FIELD DOLMTEXT
|
---|
1497 | "KRN",19,8552,"RPC",1681,0)
|
---|
1498 | TIU TEMPLATE PERSONAL OBJECTS
|
---|
1499 | "KRN",19,8552,"RPC",1682,0)
|
---|
1500 | ORWPCE AUTO VISIT TYPE SELECT
|
---|
1501 | "KRN",19,8552,"RPC",1683,0)
|
---|
1502 | ORWDPS2 QTY2DAY
|
---|
1503 | "KRN",19,8552,"RPC",1684,0)
|
---|
1504 | ORWU HAS OPTION ACCESS
|
---|
1505 | "KRN",19,8552,"RPC",1685,0)
|
---|
1506 | TIU TEMPLATE LOCK
|
---|
1507 | "KRN",19,8552,"RPC",1686,0)
|
---|
1508 | ORQQPX LVREMLST
|
---|
1509 | "KRN",19,8552,"RPC",1687,0)
|
---|
1510 | ORQQPX NEW COVER SHEET ACTIVE
|
---|
1511 | "KRN",19,8552,"RPC",1688,0)
|
---|
1512 | ORQQPX NEW COVER SHEET REMS
|
---|
1513 | "KRN",19,8552,"RPC",1689,0)
|
---|
1514 | ORQQPX SAVELVL
|
---|
1515 | "KRN",19,8552,"RPC",1690,0)
|
---|
1516 | PXRM REMINDER CATEGORY
|
---|
1517 | "KRN",19,8552,"RPC",1691,0)
|
---|
1518 | PXRM REMINDERS AND CATEGORIES
|
---|
1519 | "KRN",19,8552,"RPC",1692,0)
|
---|
1520 | TIU DIV AND CLASS INFO
|
---|
1521 | "KRN",19,8552,"RPC",1693,0)
|
---|
1522 | TIU TEMPLATE GETBOIL
|
---|
1523 | "KRN",19,8552,"RPC",1694,0)
|
---|
1524 | TIU TEMPLATE GETITEMS
|
---|
1525 | "KRN",19,8552,"RPC",1695,0)
|
---|
1526 | TIU TEMPLATE GETROOTS
|
---|
1527 | "KRN",19,8552,"RPC",1696,0)
|
---|
1528 | TIU TEMPLATE GETTEXT
|
---|
1529 | "KRN",19,8552,"RPC",1697,0)
|
---|
1530 | TIU TEMPLATE ISEDITOR
|
---|
1531 | "KRN",19,8552,"RPC",1698,0)
|
---|
1532 | TIU TEMPLATE UNLOCK
|
---|
1533 | "KRN",19,8552,"RPC",1699,0)
|
---|
1534 | TIU USER CLASS LONG LIST
|
---|
1535 | "KRN",19,8552,"RPC",1700,0)
|
---|
1536 | ORWPCE ALWAYS CHECKOUT
|
---|
1537 | "KRN",19,8552,"RPC",1701,0)
|
---|
1538 | ORWPCE GET EXCLUDED
|
---|
1539 | "KRN",19,8552,"RPC",1702,0)
|
---|
1540 | ORWDPS1 FORMALT
|
---|
1541 | "KRN",19,8552,"RPC",1703,0)
|
---|
1542 | ORQPT DEFAULT LIST SORT
|
---|
1543 | "KRN",19,8552,"RPC",1704,0)
|
---|
1544 | ORWDPS1 DOSEALT
|
---|
1545 | "KRN",19,8552,"RPC",1705,0)
|
---|
1546 | ORWTPR OCDESC
|
---|
1547 | "KRN",19,8552,"RPC",1706,0)
|
---|
1548 | ORWTPR NOTDESC
|
---|
1549 | "KRN",19,8552,"RPC",1707,0)
|
---|
1550 | ORWDPS1 FAILDEA
|
---|
1551 | "KRN",19,8552,"RPC",1708,0)
|
---|
1552 | ORQPT DEFAULT CLINIC DATE RANG
|
---|
1553 | "KRN",19,8552,"RPC",1709,0)
|
---|
1554 | ORWTIU CANLINK
|
---|
1555 | "KRN",19,8552,"RPC",1710,0)
|
---|
1556 | TIU ID ATTACH ENTRY
|
---|
1557 | "KRN",19,8552,"RPC",1711,0)
|
---|
1558 | TIU ID CAN ATTACH
|
---|
1559 | "KRN",19,8552,"RPC",1712,0)
|
---|
1560 | TIU ID CAN RECEIVE
|
---|
1561 | "KRN",19,8552,"RPC",1713,0)
|
---|
1562 | TIU ID DETACH ENTRY
|
---|
1563 | "KRN",19,8552,"RPC",1714,0)
|
---|
1564 | ORWCOM GETOBJS
|
---|
1565 | "KRN",19,8552,"RPC",1715,0)
|
---|
1566 | ORWCOM DETAILS
|
---|
1567 | "KRN",19,8552,"RPC",1716,0)
|
---|
1568 | ORWCOM PTOBJ
|
---|
1569 | "KRN",19,8552,"RPC",1718,0)
|
---|
1570 | TIU TEMPLATE GETLINK
|
---|
1571 | "KRN",19,8552,"RPC",1719,0)
|
---|
1572 | TIU TEMPLATE ALL TITLES
|
---|
1573 | "KRN",19,8552,"RPC",1720,0)
|
---|
1574 | ORWSR LIST
|
---|
1575 | "KRN",19,8552,"RPC",1721,0)
|
---|
1576 | ORWSR SHOW SURG TAB
|
---|
1577 | "KRN",19,8552,"RPC",1722,0)
|
---|
1578 | ORWSR GET SURG CONTEXT
|
---|
1579 | "KRN",19,8552,"RPC",1723,0)
|
---|
1580 | ORWSR SAVE SURG CONTEXT
|
---|
1581 | "KRN",19,8552,"RPC",1724,0)
|
---|
1582 | ORWSR ONECASE
|
---|
1583 | "KRN",19,8552,"RPC",1727,0)
|
---|
1584 | ORWSR SHOW OPTOP WHEN SIGNING
|
---|
1585 | "KRN",19,8552,"RPC",1728,0)
|
---|
1586 | ORWSR IS NON-OR PROCEDURE
|
---|
1587 | "KRN",19,8552,"RPC",1729,0)
|
---|
1588 | ORWSR CASELIST
|
---|
1589 | "KRN",19,8552,"RPC",1730,0)
|
---|
1590 | ORQQCN GET PROC IEN
|
---|
1591 | "KRN",19,8552,"RPC",1731,0)
|
---|
1592 | ORWRP PRINT V REPORT
|
---|
1593 | "KRN",19,8552,"RPC",1732,0)
|
---|
1594 | ORWRP3 EXPAND COLUMNS
|
---|
1595 | "KRN",19,8552,"RPC",1733,0)
|
---|
1596 | ORWTPD ACTDF
|
---|
1597 | "KRN",19,8552,"RPC",1734,0)
|
---|
1598 | ORWTPD DELDFLT
|
---|
1599 | "KRN",19,8552,"RPC",1735,0)
|
---|
1600 | ORWTPD GETDFLT
|
---|
1601 | "KRN",19,8552,"RPC",1736,0)
|
---|
1602 | ORWTPD RSDFLT
|
---|
1603 | "KRN",19,8552,"RPC",1737,0)
|
---|
1604 | ORWTPD SUDF
|
---|
1605 | "KRN",19,8552,"RPC",1738,0)
|
---|
1606 | ORWTPD SUINDV
|
---|
1607 | "KRN",19,8552,"RPC",1739,0)
|
---|
1608 | ORWTPD GETSETS
|
---|
1609 | "KRN",19,8552,"RPC",1740,0)
|
---|
1610 | ORWCOM ORDEROBJ
|
---|
1611 | "KRN",19,8552,"RPC",1741,0)
|
---|
1612 | ORWRP2 COMPABV
|
---|
1613 | "KRN",19,8552,"RPC",1742,0)
|
---|
1614 | ORWRP2 GETLKUP
|
---|
1615 | "KRN",19,8552,"RPC",1743,0)
|
---|
1616 | ORWRP2 SAVLKUP
|
---|
1617 | "KRN",19,8552,"RPC",1744,0)
|
---|
1618 | ORWRP2 COMPDISP
|
---|
1619 | "KRN",19,8552,"RPC",1745,0)
|
---|
1620 | ORWPCE ISCLINIC
|
---|
1621 | "KRN",19,8552,"RPC",1746,0)
|
---|
1622 | ORWCH SAVECOL
|
---|
1623 | "KRN",19,8552,"RPC",1747,0)
|
---|
1624 | ORWSR RPTLIST
|
---|
1625 | "KRN",19,8552,"RPC",1748,0)
|
---|
1626 | ORQQPXRM MST UPDATE
|
---|
1627 | "KRN",19,8552,"RPC",1749,0)
|
---|
1628 | ORWMC PATIENT PROCEDURES1
|
---|
1629 | "KRN",19,8552,"RPC",1750,0)
|
---|
1630 | ORWRA IMAGING EXAMS1
|
---|
1631 | "KRN",19,8552,"RPC",1751,0)
|
---|
1632 | ORWRA REPORT TEXT1
|
---|
1633 | "KRN",19,8552,"RPC",1752,0)
|
---|
1634 | ORWDPS4 CPINFO
|
---|
1635 | "KRN",19,8552,"RPC",1753,0)
|
---|
1636 | ORWDPS4 CPLST
|
---|
1637 | "KRN",19,8552,"RPC",1754,0)
|
---|
1638 | ORWORB KILL UNVER MEDS ALERT
|
---|
1639 | "KRN",19,8552,"RPC",1755,0)
|
---|
1640 | ORWORB KILL UNVER ORDERS ALERT
|
---|
1641 | "KRN",19,8552,"RPC",1756,0)
|
---|
1642 | ORWPCE HNCOK
|
---|
1643 | "KRN",19,8552,"RPC",1757,0)
|
---|
1644 | ORWPS MEDHIST
|
---|
1645 | "KRN",19,8552,"RPC",1758,0)
|
---|
1646 | TIU FIELD CHECK
|
---|
1647 | "KRN",19,8552,"RPC",1759,0)
|
---|
1648 | TIU FIELD LIST ADD
|
---|
1649 | "KRN",19,8552,"RPC",1760,0)
|
---|
1650 | TIU FIELD LIST IMPORT
|
---|
1651 | "KRN",19,8552,"RPC",1761,0)
|
---|
1652 | TIU SET DOCUMENT TEXT
|
---|
1653 | "KRN",19,8552,"RPC",1762,0)
|
---|
1654 | ORWDPS2 CHKPI
|
---|
1655 | "KRN",19,8552,"RPC",1763,0)
|
---|
1656 | ORWDXR GTORITM
|
---|
1657 | "KRN",19,8552,"RPC",1764,0)
|
---|
1658 | ORWDPS2 CHKGRP
|
---|
1659 | "KRN",19,8552,"RPC",1765,0)
|
---|
1660 | ORWDPS2 QOGRP
|
---|
1661 | "KRN",19,8552,"RPC",1766,0)
|
---|
1662 | ORWDXR GETPKG
|
---|
1663 | "KRN",19,8552,"RPC",1767,0)
|
---|
1664 | ORQPT MAKE RPL
|
---|
1665 | "KRN",19,8552,"RPC",1768,0)
|
---|
1666 | ORQPT READ RPL
|
---|
1667 | "KRN",19,8552,"RPC",1769,0)
|
---|
1668 | ORQPT KILL RPL
|
---|
1669 | "KRN",19,8552,"RPC",1770,0)
|
---|
1670 | ORWTIU GET SAVED CP FIELDS
|
---|
1671 | "KRN",19,8552,"RPC",1771,0)
|
---|
1672 | ORWDPS1 LOCPICK
|
---|
1673 | "KRN",19,8552,"RPC",1772,0)
|
---|
1674 | ORWPT LAST5 RPL
|
---|
1675 | "KRN",19,8552,"RPC",1773,0)
|
---|
1676 | ORWPT FULLSSN RPL
|
---|
1677 | "KRN",19,8552,"RPC",1774,0)
|
---|
1678 | ORWOR PKIUSE
|
---|
1679 | "KRN",19,8552,"RPC",1775,0)
|
---|
1680 | ORWOR1 SIG
|
---|
1681 | "KRN",19,8552,"RPC",1776,0)
|
---|
1682 | ORWOR1 CHKDIG
|
---|
1683 | "KRN",19,8552,"RPC",1777,0)
|
---|
1684 | ORWOR1 GETDTEXT
|
---|
1685 | "KRN",19,8552,"RPC",1778,0)
|
---|
1686 | ORWOR1 GETDSIG
|
---|
1687 | "KRN",19,8552,"RPC",1779,0)
|
---|
1688 | ORWTPD GETIMG
|
---|
1689 | "KRN",19,8552,"RPC",1780,0)
|
---|
1690 | OREVNTX1 PRMPTID
|
---|
1691 | "KRN",19,8552,"RPC",1781,0)
|
---|
1692 | ORECS01 CHKESSO
|
---|
1693 | "KRN",19,8552,"RPC",1782,0)
|
---|
1694 | ORECS01 VSITID
|
---|
1695 | "KRN",19,8552,"RPC",1784,0)
|
---|
1696 | OREVNTX LIST
|
---|
1697 | "KRN",19,8552,"RPC",1785,0)
|
---|
1698 | OREVNTX PAT
|
---|
1699 | "KRN",19,8552,"RPC",1786,0)
|
---|
1700 | OREVNTX1 GTEVT
|
---|
1701 | "KRN",19,8552,"RPC",1787,0)
|
---|
1702 | OREVNTX1 CPACT
|
---|
1703 | "KRN",19,8552,"RPC",1788,0)
|
---|
1704 | OREVNTX1 CURSPE
|
---|
1705 | "KRN",19,8552,"RPC",1789,0)
|
---|
1706 | OREVNTX1 CHGEVT
|
---|
1707 | "KRN",19,8552,"RPC",1790,0)
|
---|
1708 | OREVNTX1 DELPTEVT
|
---|
1709 | "KRN",19,8552,"RPC",1791,0)
|
---|
1710 | OREVNTX1 DFLTEVT
|
---|
1711 | "KRN",19,8552,"RPC",1792,0)
|
---|
1712 | OREVNTX ACTIVE
|
---|
1713 | "KRN",19,8552,"RPC",1793,0)
|
---|
1714 | OREVNTX1 PUTEVNT
|
---|
1715 | "KRN",19,8552,"RPC",1794,0)
|
---|
1716 | OREVNTX1 WRLSTED
|
---|
1717 | "KRN",19,8552,"RPC",1795,0)
|
---|
1718 | OREVNTX1 EVT
|
---|
1719 | "KRN",19,8552,"RPC",1796,0)
|
---|
1720 | OREVNTX1 NAME
|
---|
1721 | "KRN",19,8552,"RPC",1797,0)
|
---|
1722 | OREVNTX1 MATCH
|
---|
1723 | "KRN",19,8552,"RPC",1798,0)
|
---|
1724 | OREVNTX1 EMPTY
|
---|
1725 | "KRN",19,8552,"RPC",1799,0)
|
---|
1726 | OREVNTX1 EXISTS
|
---|
1727 | "KRN",19,8552,"RPC",1800,0)
|
---|
1728 | OREVNTX1 GTEVT1
|
---|
1729 | "KRN",19,8552,"RPC",1801,0)
|
---|
1730 | OREVNTX1 DIV
|
---|
1731 | "KRN",19,8552,"RPC",1802,0)
|
---|
1732 | OREVNTX1 DIV1
|
---|
1733 | "KRN",19,8552,"RPC",1803,0)
|
---|
1734 | OREVNTX1 LOC
|
---|
1735 | "KRN",19,8552,"RPC",1804,0)
|
---|
1736 | OREVNTX1 LOC1
|
---|
1737 | "KRN",19,8552,"RPC",1805,0)
|
---|
1738 | ORWDX SENDED
|
---|
1739 | "KRN",19,8552,"RPC",1806,0)
|
---|
1740 | OREVNTX1 GETDLG
|
---|
1741 | "KRN",19,8552,"RPC",1807,0)
|
---|
1742 | ORECS01 ECPRINT
|
---|
1743 | "KRN",19,8552,"RPC",1811,0)
|
---|
1744 | ORECS01 ECRPT
|
---|
1745 | "KRN",19,8552,"RPC",1812,0)
|
---|
1746 | OREVNTX1 ISDCOD
|
---|
1747 | "KRN",19,8552,"RPC",1813,0)
|
---|
1748 | OREVNTX1 SETDFLT
|
---|
1749 | "KRN",19,8552,"RPC",1815,0)
|
---|
1750 | TIU IS THIS A CLINPROC?
|
---|
1751 | "KRN",19,8552,"RPC",1816,0)
|
---|
1752 | TIU IDENTIFY CLINPROC CLASS
|
---|
1753 | "KRN",19,8552,"RPC",1817,0)
|
---|
1754 | TIU LONG LIST CLINPROC TITLES
|
---|
1755 | "KRN",19,8552,"RPC",1819,0)
|
---|
1756 | ORWDPS1 HASOIPI
|
---|
1757 | "KRN",19,8552,"RPC",1821,0)
|
---|
1758 | OREVNTX1 DEFLTS
|
---|
1759 | "KRN",19,8552,"RPC",1822,0)
|
---|
1760 | OREVNTX1 MULTS
|
---|
1761 | "KRN",19,8552,"RPC",1823,0)
|
---|
1762 | OREVNTX1 DONE
|
---|
1763 | "KRN",19,8552,"RPC",1824,0)
|
---|
1764 | OREVNTX1 PROMPT IDS
|
---|
1765 | "KRN",19,8552,"RPC",1825,0)
|
---|
1766 | ORWCIRN CHECKLINK
|
---|
1767 | "KRN",19,8552,"RPC",1826,0)
|
---|
1768 | XWB DIRECT RPC
|
---|
1769 | "KRN",19,8552,"RPC",1827,0)
|
---|
1770 | ORWDPS1 HASROUTE
|
---|
1771 | "KRN",19,8552,"RPC",1828,0)
|
---|
1772 | ORQQCN UNRESOLVED
|
---|
1773 | "KRN",19,8552,"RPC",1829,0)
|
---|
1774 | OREVNTX1 DELDFLT
|
---|
1775 | "KRN",19,8552,"RPC",1830,0)
|
---|
1776 | ORWCH LDFONT
|
---|
1777 | "KRN",19,8552,"RPC",1831,0)
|
---|
1778 | ORWU1 NAMECVT
|
---|
1779 | "KRN",19,8552,"RPC",1832,0)
|
---|
1780 | OREVNTX1 DFLTDLG
|
---|
1781 | "KRN",19,8552,"RPC",1833,0)
|
---|
1782 | ORWDPS5 LESAPI
|
---|
1783 | "KRN",19,8552,"RPC",1834,0)
|
---|
1784 | ORWDPS5 LESGRP
|
---|
1785 | "KRN",19,8552,"RPC",1839,0)
|
---|
1786 | OREVNTX1 TYPEXT
|
---|
1787 | "KRN",19,8552,"RPC",1840,0)
|
---|
1788 | ORWORR RGET
|
---|
1789 | "KRN",19,8552,"RPC",1841,0)
|
---|
1790 | OREVNTX1 AUTHMREL
|
---|
1791 | "KRN",19,8552,"RPC",1842,0)
|
---|
1792 | OREVNTX1 HAVEPRT
|
---|
1793 | "KRN",19,8552,"RPC",1843,0)
|
---|
1794 | OREVNTX1 CMEVTS
|
---|
1795 | "KRN",19,8552,"RPC",1844,0)
|
---|
1796 | OREVNTX1 ODPTEVID
|
---|
1797 | "KRN",19,8552,"RPC",1845,0)
|
---|
1798 | ORWOR PKISITE
|
---|
1799 | "KRN",19,8552,"RPC",1846,0)
|
---|
1800 | OREVNTX1 COMP
|
---|
1801 | "KRN",19,8552,"RPC",1847,0)
|
---|
1802 | OREVNTX1 ISHDORD
|
---|
1803 | "KRN",19,8552,"RPC",1848,0)
|
---|
1804 | ORWDXR ORCPLX
|
---|
1805 | "KRN",19,8552,"RPC",1849,0)
|
---|
1806 | OREVNTX1 ISPASS
|
---|
1807 | "KRN",19,8552,"RPC",1850,0)
|
---|
1808 | OREVNTX1 ISPASS1
|
---|
1809 | "KRN",19,8552,"RPC",1851,0)
|
---|
1810 | OREVNTX1 DLGIEN
|
---|
1811 | "KRN",19,8552,"RPC",1852,0)
|
---|
1812 | ORWDXR CANRN
|
---|
1813 | "KRN",19,8552,"RPC",1853,0)
|
---|
1814 | ORWDXR ISCPLX
|
---|
1815 | "KRN",19,8552,"RPC",1854,0)
|
---|
1816 | ORWDXA OFCPLX
|
---|
1817 | "KRN",19,8552,"RPC",1855,0)
|
---|
1818 | ORQQPX GET NOT PURPOSE
|
---|
1819 | "KRN",19,8552,"RPC",1856,0)
|
---|
1820 | ORWDPS1 IVDEA
|
---|
1821 | "KRN",19,8552,"RPC",1857,0)
|
---|
1822 | ORWDXR ISNOW
|
---|
1823 | "KRN",19,8552,"RPC",1858,0)
|
---|
1824 | ORRHCQ QRYITR
|
---|
1825 | "KRN",19,8552,"RPC",1859,0)
|
---|
1826 | OREVNTX1 GETSTS
|
---|
1827 | "KRN",19,8552,"RPC",1860,0)
|
---|
1828 | ORWU DEFAULT DIVISION
|
---|
1829 | "KRN",19,8552,"RPC",1861,0)
|
---|
1830 | ORWDXA ISACTOI
|
---|
1831 | "KRN",19,8552,"RPC",1862,0)
|
---|
1832 | ORECS01 SAVPATH
|
---|
1833 | "KRN",19,8552,"RPC",1863,0)
|
---|
1834 | ORWOR RESULT HISTORY
|
---|
1835 | "KRN",19,8552,"RPC",1864,0)
|
---|
1836 | XUS GET TOKEN
|
---|
1837 | "KRN",19,8552,"RPC",1865,0)
|
---|
1838 | ORQQPX IMMUN LIST
|
---|
1839 | "KRN",19,8552,"RPC",1866,0)
|
---|
1840 | XWB DEFERRED CLEARALL
|
---|
1841 | "KRN",19,8552,"RPC",1867,0)
|
---|
1842 | ORWOR1 SETDTEXT
|
---|
1843 | "KRN",19,8552,"RPC",1868,0)
|
---|
1844 | ORWOR1 GETDEA
|
---|
1845 | "KRN",19,8552,"RPC",1869,0)
|
---|
1846 | ORWOR1 GETDSCH
|
---|
1847 | "KRN",19,8552,"RPC",1870,0)
|
---|
1848 | ORWORB TEXT FOLLOWUP
|
---|
1849 | "KRN",19,8552,"RPC",1871,0)
|
---|
1850 | ORWU1 NEWLOC
|
---|
1851 | "KRN",19,8552,"RPC",1872,0)
|
---|
1852 | ORWPCE ACTIVE CODE
|
---|
1853 | "KRN",19,8552,"RPC",1873,0)
|
---|
1854 | ORQQPXRM GET WH LETTER TEXT
|
---|
1855 | "KRN",19,8552,"RPC",1874,0)
|
---|
1856 | ORQQPXRM GET WH LETTER TYPE
|
---|
1857 | "KRN",19,8552,"RPC",1875,0)
|
---|
1858 | ORQQPXRM GET WH PROC RESULT
|
---|
1859 | "KRN",19,8552,"RPC",1876,0)
|
---|
1860 | ORQQPXRM WOMEN HEALTH SAVE
|
---|
1861 | "KRN",19,8552,"RPC",1877,0)
|
---|
1862 | ORB FORWARD ALERT
|
---|
1863 | "KRN",19,8552,"RPC",1878,0)
|
---|
1864 | ORB RENEW ALERT
|
---|
1865 | "KRN",19,8552,"RPC",1879,0)
|
---|
1866 | ORPRF CLEAR
|
---|
1867 | "KRN",19,8552,"RPC",1880,0)
|
---|
1868 | ORPRF GETFLG
|
---|
1869 | "KRN",19,8552,"RPC",1881,0)
|
---|
1870 | ORPRF HASFLG
|
---|
1871 | "KRN",19,8552,"RPC",1882,0)
|
---|
1872 | ORWTPD GETOCM
|
---|
1873 | "KRN",19,8552,"RPC",1883,0)
|
---|
1874 | TIU ONE VISIT NOTE?
|
---|
1875 | "KRN",19,8552,"RPC",1884,0)
|
---|
1876 | VAFCTFU CONVERT ICN TO DFN
|
---|
1877 | "KRN",19,8552,"RPC",1885,0)
|
---|
1878 | ORIMO IMOLOC
|
---|
1879 | "KRN",19,8552,"RPC",1886,0)
|
---|
1880 | ORIMO IMOOD
|
---|
1881 | "KRN",19,8552,"RPC",1887,0)
|
---|
1882 | ORWDPS4 IPOD4OP
|
---|
1883 | "KRN",19,8552,"RPC",1888,0)
|
---|
1884 | ORWDPS4 UPDTDG
|
---|
1885 | "KRN",19,8552,"RPC",1889,0)
|
---|
1886 | TIU USER INACTIVE?
|
---|
1887 | "KRN",19,8552,"RPC",1890,0)
|
---|
1888 | ORWTPD PUTOCM
|
---|
1889 | "KRN",19,8552,"RPC",1891,0)
|
---|
1890 | ORWOR ACTION TEXT
|
---|
1891 | "KRN",19,8552,"RPC",1892,0)
|
---|
1892 | ORQQPXRM GEC DIALOG
|
---|
1893 | "KRN",19,8552,"RPC",1893,0)
|
---|
1894 | ORQQPXRM GET WH REPORT TEXT
|
---|
1895 | "KRN",19,8552,"RPC",1894,0)
|
---|
1896 | ORWDXR01 CANCHG
|
---|
1897 | "KRN",19,8552,"RPC",1895,0)
|
---|
1898 | ORWDXR01 SAVCHG
|
---|
1899 | "KRN",19,8552,"RPC",1896,0)
|
---|
1900 | TIU HAS AUTHOR SIGNED?
|
---|
1901 | "KRN",19,8552,"RPC",1897,0)
|
---|
1902 | ORQQPXRM CHECK REM VERSION
|
---|
1903 | "KRN",19,8552,"RPC",1898,0)
|
---|
1904 | ORQQPXRM GEC STATUS PROMPT
|
---|
1905 | "KRN",19,8552,"RPC",1899,0)
|
---|
1906 | ORQQPXRM GEC STATUS PROMPT
|
---|
1907 | "KRN",19,8552,"RPC",1900,0)
|
---|
1908 | ORWDAL32 SEND BULLETIN
|
---|
1909 | "KRN",19,8552,"RPC",1901,0)
|
---|
1910 | ORWDBA1 ORPKGTYP
|
---|
1911 | "KRN",19,8552,"RPC",1902,0)
|
---|
1912 | ORWDXR01 ISSPLY
|
---|
1913 | "KRN",19,8552,"RPC",1903,0)
|
---|
1914 | ORWDBA1 RCVORCI
|
---|
1915 | "KRN",19,8552,"RPC",1904,0)
|
---|
1916 | ORWPS REASON
|
---|
1917 | "KRN",19,8552,"RPC",1905,0)
|
---|
1918 | ORQQPXRM GEC FINISHED?
|
---|
1919 | "KRN",19,8552,"RPC",1906,0)
|
---|
1920 | ORWDXM3 ISUDQO
|
---|
1921 | "KRN",19,8552,"RPC",1908,0)
|
---|
1922 | ORWDBA1 SCLST
|
---|
1923 | "KRN",19,8552,"RPC",1909,0)
|
---|
1924 | ORWDXR01 OXDATA
|
---|
1925 | "KRN",19,8552,"RPC",1914,0)
|
---|
1926 | ORWDBA1 BASTATUS
|
---|
1927 | "KRN",19,8552,"RPC",1920,0)
|
---|
1928 | ORWORB SETSORT
|
---|
1929 | "KRN",19,8552,"RPC",1921,0)
|
---|
1930 | ORWORB GETSORT
|
---|
1931 | "KRN",19,8552,"RPC",1922,0)
|
---|
1932 | ORWOR EXPIRED
|
---|
1933 | "KRN",19,8552,"RPC",1928,0)
|
---|
1934 | ORECS01 GETDIV
|
---|
1935 | "KRN",19,8552,"RPC",1933,0)
|
---|
1936 | ORWTPD1 GETEFDAT
|
---|
1937 | "KRN",19,8552,"RPC",1934,0)
|
---|
1938 | ORWTPD1 GETEDATS
|
---|
1939 | "KRN",19,8552,"RPC",1935,0)
|
---|
1940 | ORWTPD1 PUTEDATS
|
---|
1941 | "KRN",19,8552,"RPC",1936,0)
|
---|
1942 | ORWTPD1 GETCSDEF
|
---|
1943 | "KRN",19,8552,"RPC",1937,0)
|
---|
1944 | ORWTPD1 GETCSRNG
|
---|
1945 | "KRN",19,8552,"RPC",1938,0)
|
---|
1946 | ORWTPD1 PUTCSRNG
|
---|
1947 | "KRN",19,8552,"RPC",1939,0)
|
---|
1948 | ORWTPD1 GETEAFL
|
---|
1949 | "KRN",19,8552,"RPC",1940,0)
|
---|
1950 | ORWDBA1 GETORDX
|
---|
1951 | "KRN",19,8552,"RPC",1941,0)
|
---|
1952 | ORWDBA3 HINTS
|
---|
1953 | "KRN",19,8552,"RPC",1942,0)
|
---|
1954 | ORWDAL32 LOAD FOR EDIT
|
---|
1955 | "KRN",19,8552,"RPC",1943,0)
|
---|
1956 | ORWDAL32 SAVE ALLERGY
|
---|
1957 | "KRN",19,8552,"RPC",1944,0)
|
---|
1958 | ORWDAL32 SITE PARAMS
|
---|
1959 | "KRN",19,8552,"RPC",1945,0)
|
---|
1960 | ORWPCE CXNOSHOW
|
---|
1961 | "KRN",19,8552,"RPC",1946,0)
|
---|
1962 | ORWDBA2 ADDPDL
|
---|
1963 | "KRN",19,8552,"RPC",1947,0)
|
---|
1964 | ORWDBA2 DELPDL
|
---|
1965 | "KRN",19,8552,"RPC",1948,0)
|
---|
1966 | ORWDBA2 GETDUDC
|
---|
1967 | "KRN",19,8552,"RPC",1949,0)
|
---|
1968 | ORWDBA2 GETPDL
|
---|
1969 | "KRN",19,8552,"RPC",1950,0)
|
---|
1970 | ORWDBA4 GETBAUSR
|
---|
1971 | "KRN",19,8552,"RPC",1951,0)
|
---|
1972 | ORWDBA4 GETTFCI
|
---|
1973 | "KRN",19,8552,"RPC",1952,0)
|
---|
1974 | ORWNSS NSSMSG
|
---|
1975 | "KRN",19,8552,"RPC",1953,0)
|
---|
1976 | ORWNSS QOSCH
|
---|
1977 | "KRN",19,8552,"RPC",1954,0)
|
---|
1978 | ORWNSS VALSCH
|
---|
1979 | "KRN",19,8552,"RPC",1955,0)
|
---|
1980 | ORWNSS CHKSCH
|
---|
1981 | "KRN",19,8552,"RPC",1956,0)
|
---|
1982 | ORWDPS4 ISUDIV
|
---|
1983 | "KRN",19,8552,"RPC",1957,0)
|
---|
1984 | ORWDPS32 AUTHNVA
|
---|
1985 | "KRN",19,8552,"RPC",1962,0)
|
---|
1986 | ORWTIU CHKTXT
|
---|
1987 | "KRN",19,8552,"RPC",1964,0)
|
---|
1988 | ORWDPS5 ISVTP
|
---|
1989 | "KRN",19,8552,"RPC",1965,0)
|
---|
1990 | TIU IS THIS A SURGERY?
|
---|
1991 | "KRN",19,8552,"RPC",1966,0)
|
---|
1992 | TIU IDENTIFY SURGERY CLASS
|
---|
1993 | "KRN",19,8552,"RPC",1967,0)
|
---|
1994 | TIU LONG LIST SURGERY TITLES
|
---|
1995 | "KRN",19,8552,"RPC",1968,0)
|
---|
1996 | TIU GET DOCUMENTS FOR REQUEST
|
---|
1997 | "KRN",19,8552,"RPC",1969,0)
|
---|
1998 | TIU SET ADMINISTRATIVE CLOSURE
|
---|
1999 | "KRN",19,8552,"RPC",1970,0)
|
---|
2000 | ORBCMA5 GETUDID
|
---|
2001 | "KRN",19,8552,"RPC",1973,0)
|
---|
2002 | ORIMO ISCLOC
|
---|
2003 | "KRN",19,8552,"RPC",1974,0)
|
---|
2004 | ORIMO ISIVQO
|
---|
2005 | "KRN",19,8552,"RPC",1975,0)
|
---|
2006 | ORWDBA7 GETIEN9
|
---|
2007 | "KRN",19,8552,"RPC",1976,0)
|
---|
2008 | ORWGN GNLOC
|
---|
2009 | "KRN",19,8552,"RPC",1977,0)
|
---|
2010 | ORWGN AUTHUSR
|
---|
2011 | "KRN",19,8552,"RPC",1978,0)
|
---|
2012 | ORVAA VAA
|
---|
2013 | "KRN",19,8552,"RPC",1979,0)
|
---|
2014 | ORWCIRN VISTAWEB
|
---|
2015 | "KRN",19,8552,"RPC",1980,0)
|
---|
2016 | ORWCIRN WEBCH
|
---|
2017 | "KRN",19,8552,"RPC",1981,0)
|
---|
2018 | ORWDAL32 CLINUSER
|
---|
2019 | "KRN",19,8552,"RPC",1982,0)
|
---|
2020 | ORWDBA7 ISWITCH
|
---|
2021 | "KRN",19,8552,"RPC",1983,0)
|
---|
2022 | ORWDFH CURRENT MEALS
|
---|
2023 | "KRN",19,8552,"RPC",1984,0)
|
---|
2024 | ORWDFH NFSLOC READY
|
---|
2025 | "KRN",19,8552,"RPC",1985,0)
|
---|
2026 | ORWDFH OPDIETS
|
---|
2027 | "KRN",19,8552,"RPC",1986,0)
|
---|
2028 | ORWMHV MHV
|
---|
2029 | "KRN",19,8552,"RPC",1987,0)
|
---|
2030 | ORWPCE1 NONCOUNT
|
---|
2031 | "KRN",19,8552,"RPC",1988,0)
|
---|
2032 | ORWPFSS IS PFSS ACTIVE?
|
---|
2033 | "KRN",19,8552,"RPC",1989,0)
|
---|
2034 | GMV EXTRACT REC
|
---|
2035 | "KRN",19,8552,"RPC",1990,0)
|
---|
2036 | GMV MARK ERROR
|
---|
2037 | "KRN",19,8552,"RPC",1991,0)
|
---|
2038 | ORWDXVB COMPORD
|
---|
2039 | "KRN",19,8552,"RPC",1992,0)
|
---|
2040 | ORWDXVB GETALL
|
---|
2041 | "KRN",19,8552,"RPC",1993,0)
|
---|
2042 | ORWDXVB RAW
|
---|
2043 | "KRN",19,8552,"RPC",1994,0)
|
---|
2044 | ORWDXVB RESULTS
|
---|
2045 | "KRN",19,8552,"RPC",1995,0)
|
---|
2046 | ORWDXVB STATALOW
|
---|
2047 | "KRN",19,8552,"RPC",1996,0)
|
---|
2048 | ORWGRPC ALLITEMS
|
---|
2049 | "KRN",19,8552,"RPC",1997,0)
|
---|
2050 | ORWGRPC CLASS
|
---|
2051 | "KRN",19,8552,"RPC",1998,0)
|
---|
2052 | ORWGRPC DATEITEM
|
---|
2053 | "KRN",19,8552,"RPC",1999,0)
|
---|
2054 | ORWGRPC DELVIEWS
|
---|
2055 | "KRN",19,8552,"RPC",2000,0)
|
---|
2056 | ORWGRPC DETAILS
|
---|
2057 | "KRN",19,8552,"RPC",2001,0)
|
---|
2058 | ORWGRPC GETDATES
|
---|
2059 | "KRN",19,8552,"RPC",2002,0)
|
---|
2060 | ORWGRPC GETPREF
|
---|
2061 | "KRN",19,8552,"RPC",2003,0)
|
---|
2062 | ORWGRPC GETVIEWS
|
---|
2063 | "KRN",19,8552,"RPC",2004,0)
|
---|
2064 | ORWGRPC ITEMDATA
|
---|
2065 | "KRN",19,8552,"RPC",2005,0)
|
---|
2066 | ORWGRPC ITEMS
|
---|
2067 | "KRN",19,8552,"RPC",2006,0)
|
---|
2068 | ORWGRPC LOOKUP
|
---|
2069 | "KRN",19,8552,"RPC",2007,0)
|
---|
2070 | ORWGRPC PUBLIC
|
---|
2071 | "KRN",19,8552,"RPC",2008,0)
|
---|
2072 | ORWGRPC RPTPARAM
|
---|
2073 | "KRN",19,8552,"RPC",2009,0)
|
---|
2074 | ORWGRPC SETPREF
|
---|
2075 | "KRN",19,8552,"RPC",2010,0)
|
---|
2076 | ORWGRPC SETVIEWS
|
---|
2077 | "KRN",19,8552,"RPC",2011,0)
|
---|
2078 | ORWGRPC TESTSPEC
|
---|
2079 | "KRN",19,8552,"RPC",2012,0)
|
---|
2080 | ORWGRPC TYPES
|
---|
2081 | "KRN",19,8552,"RPC",2013,0)
|
---|
2082 | TIU GET DOCUMENT STATUS
|
---|
2083 | "KRN",19,8552,"RPC",2014,0)
|
---|
2084 | TIU GET PRF ACTIONS
|
---|
2085 | "KRN",19,8552,"RPC",2015,0)
|
---|
2086 | TIU ISPRF
|
---|
2087 | "KRN",19,8552,"RPC",2016,0)
|
---|
2088 | TIU LINK TO FLAG
|
---|
2089 | "KRN",19,8552,"RPC",2017,0)
|
---|
2090 | ORWGRPC DETAIL
|
---|
2091 | "KRN",19,8552,"RPC",2018,0)
|
---|
2092 | ORWU VERSION
|
---|
2093 | "KRN",19,8552,"RPC",2019,0)
|
---|
2094 | GMV ALLERGY
|
---|
2095 | "KRN",19,8552,"RPC",2020,0)
|
---|
2096 | ORWCIRN WEBADDR
|
---|
2097 | "KRN",19,8552,"RPC",2023,0)
|
---|
2098 | ORWGRPC TAX
|
---|
2099 | "KRN",19,8552,"RPC",2024,0)
|
---|
2100 | GMV DLL VERSION
|
---|
2101 | "KRN",19,8552,"RPC",2025,0)
|
---|
2102 | ORWDX CHANGE
|
---|
2103 | "KRN",19,8552,"RPC",2026,0)
|
---|
2104 | GMV ADD VM
|
---|
2105 | "KRN",19,8552,"RPC",2027,0)
|
---|
2106 | GMV CONVERT DATE
|
---|
2107 | "KRN",19,8552,"RPC",2028,0)
|
---|
2108 | GMV GET CATEGORY IEN
|
---|
2109 | "KRN",19,8552,"RPC",2029,0)
|
---|
2110 | GMV GET CURRENT TIME
|
---|
2111 | "KRN",19,8552,"RPC",2030,0)
|
---|
2112 | GMV GET VITAL TYPE IEN
|
---|
2113 | "KRN",19,8552,"RPC",2031,0)
|
---|
2114 | GMV LATEST VM
|
---|
2115 | "KRN",19,8552,"RPC",2032,0)
|
---|
2116 | GMV MANAGER
|
---|
2117 | "KRN",19,8552,"RPC",2033,0)
|
---|
2118 | GMV PARAMETER
|
---|
2119 | "KRN",19,8552,"RPC",2034,0)
|
---|
2120 | GMV USER
|
---|
2121 | "KRN",19,8552,"RPC",2035,0)
|
---|
2122 | GMV VITALS/CAT/QUAL
|
---|
2123 | "KRN",19,8552,"RPC",2036,0)
|
---|
2124 | GMV V/M ALLDATA
|
---|
2125 | "KRN",19,8552,"RPC",2037,0)
|
---|
2126 | TIU GET LINKED PRF NOTES
|
---|
2127 | "KRN",19,8552,"RPC",2038,0)
|
---|
2128 | TIU GET PRF TITLE
|
---|
2129 | "KRN",19,8552,"RPC",2039,0)
|
---|
2130 | ORWDX1 PATWARD
|
---|
2131 | "KRN",19,8552,"RPC",2040,0)
|
---|
2132 | ORWRP4 HDR MODIFY
|
---|
2133 | "KRN",19,8552,"RPC",2041,0)
|
---|
2134 | ORWDX1 STCHANGE
|
---|
2135 | "KRN",19,8552,"RPC",2042,0)
|
---|
2136 | ORWDX1 DCREN
|
---|
2137 | "KRN",19,8552,"RPC",2043,0)
|
---|
2138 | ORQQPXRM MHV
|
---|
2139 | "KRN",19,8552,"RPC",2044,0)
|
---|
2140 | ORWGRPC GETSIZE
|
---|
2141 | "KRN",19,8552,"RPC",2045,0)
|
---|
2142 | ORWGRPC SETSIZE
|
---|
2143 | "KRN",19,8552,"RPC",2046,0)
|
---|
2144 | GMV LOCATION SELECT
|
---|
2145 | "KRN",19,8552,"RPC",2047,0)
|
---|
2146 | ORWCIRN AUTORDV
|
---|
2147 | "KRN",19,8552,"RPC",2048,0)
|
---|
2148 | ORPRF TRIGGER POPUP
|
---|
2149 | "KRN",19,8552,"RPC",2049,0)
|
---|
2150 | ORWCIRN HDRON
|
---|
2151 | "KRN",19,8552,"RPC",2050,0)
|
---|
2152 | MAG4 REMOTE IMPORT
|
---|
2153 | "KRN",19,8552,"RPC",2051,0)
|
---|
2154 | ORWPT ENHANCED PATLOOKUP
|
---|
2155 | "KRN",19,8552,"RPC",2052,0)
|
---|
2156 | ORWPT OTHER-RADIOBUTTONS
|
---|
2157 | "KRN",19,8552,"RPC",2053,0)
|
---|
2158 | TMG ADD PATIENT
|
---|
2159 | "KRN",19,8552,"RPC",2054,0)
|
---|
2160 | TMG AUTOSIGN TIU DOCUMENT
|
---|
2161 | "KRN",19,8552,"RPC",2055,0)
|
---|
2162 | TMG BARCODE DECODE
|
---|
2163 | "KRN",19,8552,"RPC",2056,0)
|
---|
2164 | TMG BARCODE ENCODE
|
---|
2165 | "KRN",19,8552,"RPC",2057,0)
|
---|
2166 | TMG DOWNLOAD FILE
|
---|
2167 | "KRN",19,8552,"RPC",2058,0)
|
---|
2168 | TMG DOWNLOAD FILE DROPBOX
|
---|
2169 | "KRN",19,8552,"RPC",2059,0)
|
---|
2170 | TMG GET BLANK TIU DOCUMENT
|
---|
2171 | "KRN",19,8552,"RPC",2060,0)
|
---|
2172 | TMG GET DFN
|
---|
2173 | "KRN",19,8552,"RPC",2061,0)
|
---|
2174 | TMG GET IMAGE LONG DESCRIPTION
|
---|
2175 | "KRN",19,8552,"RPC",2062,0)
|
---|
2176 | TMG GET PATIENT DEMOGRAPHICS
|
---|
2177 | "KRN",19,8552,"RPC",2063,0)
|
---|
2178 | TMG SET PATIENT DEMOGRAPHICS
|
---|
2179 | "KRN",19,8552,"RPC",2064,0)
|
---|
2180 | TMG UPLOAD FILE
|
---|
2181 | "KRN",19,8552,"RPC",2065,0)
|
---|
2182 | TMG UPLOAD FILE DROPBOX
|
---|
2183 | "KRN",19,8552,"RPC",2066,0)
|
---|
2184 | TMG CPRS GET URL LIST
|
---|
2185 | "KRN",19,8552,"RPC",2067,0)
|
---|
2186 | MAG3 CPRS TIU NOTE
|
---|
2187 | "KRN",19,8552,"RPC",2068,0)
|
---|
2188 | MAG3 TIU IMAGE
|
---|
2189 | "KRN",19,8552,"RPC",2069,0)
|
---|
2190 | MAGGADDIMAGE
|
---|
2191 | "KRN",19,8552,"RPC",2070,0)
|
---|
2192 | TMG INIFILE GET
|
---|
2193 | "KRN",19,8552,"RPC",2071,0)
|
---|
2194 | TMG INIFILE SET
|
---|
2195 | "KRN",19,8552,"U")
|
---|
2196 | CPRSCHART VERSION 1.0.26.69
|
---|
2197 | "KRN",8994,2381,-1)
|
---|
2198 | 0^6
|
---|
2199 | "KRN",8994,2381,0)
|
---|
2200 | TMG DOWNLOAD FILE^DOWNLOAD^TMGRPC1^4^P^^^1^.5
|
---|
2201 | "KRN",8994,2381,1,0)
|
---|
2202 | ^^5^5^3050926^^
|
---|
2203 | "KRN",8994,2381,1,1,0)
|
---|
2204 | This RPC will be for requesting a file from the server.
|
---|
2205 | "KRN",8994,2381,1,2,0)
|
---|
2206 |
|
---|
2207 | "KRN",8994,2381,1,3,0)
|
---|
2208 | By tunneling file transfer through the RPCBroker, it allows the server to
|
---|
2209 | "KRN",8994,2381,1,4,0)
|
---|
2210 | control access to files. And it negates need to set up an independant ftp
|
---|
2211 | "KRN",8994,2381,1,5,0)
|
---|
2212 | or filesystem server etc.
|
---|
2213 | "KRN",8994,2381,2,0)
|
---|
2214 | ^8994.02A^2^2
|
---|
2215 | "KRN",8994,2381,2,1,0)
|
---|
2216 | FNAME^1^256^1^2
|
---|
2217 | "KRN",8994,2381,2,1,1,0)
|
---|
2218 | ^^8^8^3050902^^
|
---|
2219 | "KRN",8994,2381,2,1,1,1,0)
|
---|
2220 | This should be the filename of the requested file. This needs to be in a
|
---|
2221 | "KRN",8994,2381,2,1,1,2,0)
|
---|
2222 | format that can be passed to the host filesystem.
|
---|
2223 | "KRN",8994,2381,2,1,1,3,0)
|
---|
2224 |
|
---|
2225 | "KRN",8994,2381,2,1,1,4,0)
|
---|
2226 | This should be only the filename (not including the path)
|
---|
2227 | "KRN",8994,2381,2,1,1,5,0)
|
---|
2228 |
|
---|
2229 | "KRN",8994,2381,2,1,1,6,0)
|
---|
2230 | For my implementation, I am planning for the server to pass a list of
|
---|
2231 | "KRN",8994,2381,2,1,1,7,0)
|
---|
2232 | available files to the client. The client can then pass these back one at
|
---|
2233 | "KRN",8994,2381,2,1,1,8,0)
|
---|
2234 | a time to get the actual file.
|
---|
2235 | "KRN",8994,2381,2,2,0)
|
---|
2236 | FPATH^1^256^1^1
|
---|
2237 | "KRN",8994,2381,2,2,1,0)
|
---|
2238 | ^^2^2^3050926^^
|
---|
2239 | "KRN",8994,2381,2,2,1,1,0)
|
---|
2240 | This should be the path up to, but not including, the filename, of the file
|
---|
2241 | "KRN",8994,2381,2,2,1,2,0)
|
---|
2242 | to be requested from the server.
|
---|
2243 | "KRN",8994,2381,2,"B","FNAME",1)
|
---|
2244 |
|
---|
2245 | "KRN",8994,2381,2,"B","FPATH",2)
|
---|
2246 |
|
---|
2247 | "KRN",8994,2381,2,"PARAMSEQ",1,2)
|
---|
2248 |
|
---|
2249 | "KRN",8994,2381,2,"PARAMSEQ",2,1)
|
---|
2250 |
|
---|
2251 | "KRN",8994,2381,3,0)
|
---|
2252 | ^8994.03^19^19^3050926^^^
|
---|
2253 | "KRN",8994,2381,3,1,0)
|
---|
2254 | The return value will be an array, with each node containing 512
|
---|
2255 | "KRN",8994,2381,3,2,0)
|
---|
2256 | bytes, encoded for ASCII transfer with a Base64 formula (an improvement
|
---|
2257 | "KRN",8994,2381,3,3,0)
|
---|
2258 | on UUENCODE functions)
|
---|
2259 | "KRN",8994,2381,3,4,0)
|
---|
2260 |
|
---|
2261 | "KRN",8994,2381,3,5,0)
|
---|
2262 | GREF(0)=1 <---- 1=valid 0=invalid (failure of load)
|
---|
2263 | "KRN",8994,2381,3,6,0)
|
---|
2264 | GREF(1)=";lakjsdasvoin;lkj32409u234,mnsdfoi239483....."
|
---|
2265 | "KRN",8994,2381,3,7,0)
|
---|
2266 | GREF(2)="987sdf,n09xc,/knm6flkhdgjkhsdo4ioidk,sdf....."
|
---|
2267 | "KRN",8994,2381,3,8,0)
|
---|
2268 | GREF(3)="asdoi,xmnsdkh98xd,.m3ddbdsgkhsdf=cxjkdgm ....."
|
---|
2269 | "KRN",8994,2381,3,9,0)
|
---|
2270 | ...
|
---|
2271 | "KRN",8994,2381,3,10,0)
|
---|
2272 |
|
---|
2273 | "KRN",8994,2381,3,11,0)
|
---|
2274 | Note: Here I am showing random ascii characters. But in actuality, each
|
---|
2275 | "KRN",8994,2381,3,12,0)
|
---|
2276 | position will hold only those characters used in the Base64 method.
|
---|
2277 | "KRN",8994,2381,3,13,0)
|
---|
2278 |
|
---|
2279 | "KRN",8994,2381,3,14,0)
|
---|
2280 | On the client RPCBroker end, the result will be stored in a TStringList,
|
---|
2281 | "KRN",8994,2381,3,15,0)
|
---|
2282 | with each line being stored in a separate index (i.e. Strings[i])
|
---|
2283 | "KRN",8994,2381,3,16,0)
|
---|
2284 |
|
---|
2285 | "KRN",8994,2381,3,17,0)
|
---|
2286 | Notice that when saving on the client side, the zero node,GREF(0), is NOT
|
---|
2287 | "KRN",8994,2381,3,18,0)
|
---|
2288 | part of the file, and should be discarded or otherwise not included in the
|
---|
2289 | "KRN",8994,2381,3,19,0)
|
---|
2290 | save.
|
---|
2291 | "KRN",8994,2382,-1)
|
---|
2292 | 0^15
|
---|
2293 | "KRN",8994,2382,0)
|
---|
2294 | TMG UPLOAD FILE^UPLOAD^TMGRPC1^1^P^^^1^.1
|
---|
2295 | "KRN",8994,2382,1,0)
|
---|
2296 | ^8994.01^2^2^3050928^^^
|
---|
2297 | "KRN",8994,2382,1,1,0)
|
---|
2298 | This function will accept a binary file uploaded to the server, encoded in a
|
---|
2299 | "KRN",8994,2382,1,2,0)
|
---|
2300 | BASE64 ascii encoding format.
|
---|
2301 | "KRN",8994,2382,2,0)
|
---|
2302 | ^8994.02A^4^4
|
---|
2303 | "KRN",8994,2382,2,1,0)
|
---|
2304 | FPATH^1^1024^1^1
|
---|
2305 | "KRN",8994,2382,2,1,1,0)
|
---|
2306 | ^8994.021^14^14^3050928^^^^
|
---|
2307 | "KRN",8994,2382,2,1,1,1,0)
|
---|
2308 | This is the path to store the file into. Note that the server will store
|
---|
2309 | "KRN",8994,2382,2,1,1,2,0)
|
---|
2310 | all files relative to an internal (hidden) directory. Thus if the storage
|
---|
2311 | "KRN",8994,2382,2,1,1,3,0)
|
---|
2312 | location is specified to be:
|
---|
2313 | "KRN",8994,2382,2,1,1,4,0)
|
---|
2314 | /ZZ1/002/IMAGE0001.JPG
|
---|
2315 | "KRN",8994,2382,2,1,1,5,0)
|
---|
2316 |
|
---|
2317 | "KRN",8994,2382,2,1,1,6,0)
|
---|
2318 | then the actual storage location might actually be:
|
---|
2319 | "KRN",8994,2382,2,1,1,7,0)
|
---|
2320 |
|
---|
2321 | "KRN",8994,2382,2,1,1,8,0)
|
---|
2322 | /var/local/images/storage/ZZ1/002/IMAGE0001.JPG
|
---|
2323 | "KRN",8994,2382,2,1,1,9,0)
|
---|
2324 |
|
---|
2325 | "KRN",8994,2382,2,1,1,10,0)
|
---|
2326 | The internal (hidden) directory is stored in field #22700 (TMG PRIVATE
|
---|
2327 | "KRN",8994,2382,2,1,1,11,0)
|
---|
2328 | PHYSICAL REFERENCE) of file 2005.2 (NETWORK LOCATION)
|
---|
2329 | "KRN",8994,2382,2,1,1,12,0)
|
---|
2330 |
|
---|
2331 | "KRN",8994,2382,2,1,1,13,0)
|
---|
2332 | Which record of the NETWORK LOCATION file to use is specified as in the input
|
---|
2333 | "KRN",8994,2382,2,1,1,14,0)
|
---|
2334 | parameter LOCIEN for this RPC Call (TMG UPLOAD FILE)
|
---|
2335 | "KRN",8994,2382,2,2,0)
|
---|
2336 | FNAME^1^1024^1^2
|
---|
2337 | "KRN",8994,2382,2,2,1,0)
|
---|
2338 | ^^1^1^3050928^^
|
---|
2339 | "KRN",8994,2382,2,2,1,1,0)
|
---|
2340 | This is the name of the file to store. It should not include path elements.
|
---|
2341 | "KRN",8994,2382,2,3,0)
|
---|
2342 | LOCIEN^1^16^0^3
|
---|
2343 | "KRN",8994,2382,2,3,1,0)
|
---|
2344 | ^^6^6^3050928^^
|
---|
2345 | "KRN",8994,2382,2,3,1,1,0)
|
---|
2346 | This is the record number (IEN) from file 2005.2 (NETWORK LOCATION) that the
|
---|
2347 | "KRN",8994,2382,2,3,1,2,0)
|
---|
2348 | file will be uploaded to.
|
---|
2349 | "KRN",8994,2382,2,3,1,3,0)
|
---|
2350 |
|
---|
2351 | "KRN",8994,2382,2,3,1,4,0)
|
---|
2352 | This is required so that a relative root path can be obtained from custom
|
---|
2353 | "KRN",8994,2382,2,3,1,5,0)
|
---|
2354 | field 22700 (TMG PRIVATE PHYSICAL LOCATION). See also description of input
|
---|
2355 | "KRN",8994,2382,2,3,1,6,0)
|
---|
2356 | parameter FPATH.
|
---|
2357 | "KRN",8994,2382,2,4,0)
|
---|
2358 | ARRAY^2^^1^4
|
---|
2359 | "KRN",8994,2382,2,4,1,0)
|
---|
2360 | ^^11^11^3050928^^
|
---|
2361 | "KRN",8994,2382,2,4,1,1,0)
|
---|
2362 | This will be the array to store the uploaded data into.
|
---|
2363 | "KRN",8994,2382,2,4,1,2,0)
|
---|
2364 | For example:
|
---|
2365 | "KRN",8994,2382,2,4,1,3,0)
|
---|
2366 |
|
---|
2367 | "KRN",8994,2382,2,4,1,4,0)
|
---|
2368 | ARRAY(0)= "(ascii encoude data in BASE64 format)"
|
---|
2369 | "KRN",8994,2382,2,4,1,5,0)
|
---|
2370 | ARRAY(0)= "(ascii encoude data in BASE64 format)"
|
---|
2371 | "KRN",8994,2382,2,4,1,6,0)
|
---|
2372 | ARRAY(1)= "(ascii encoude data in BASE64 format)"
|
---|
2373 | "KRN",8994,2382,2,4,1,7,0)
|
---|
2374 | ARRAY(2)= "(ascii encoude data in BASE64 format)"
|
---|
2375 | "KRN",8994,2382,2,4,1,8,0)
|
---|
2376 | ARRAY(3)= "(ascii encoude data in BASE64 format)"
|
---|
2377 | "KRN",8994,2382,2,4,1,9,0)
|
---|
2378 | ARRAY(4)= "(ascii encoude data in BASE64 format)"
|
---|
2379 | "KRN",8994,2382,2,4,1,10,0)
|
---|
2380 | ARRAY(5)= "(ascii encoude data in BASE64 format)"
|
---|
2381 | "KRN",8994,2382,2,4,1,11,0)
|
---|
2382 | ARRAY(6)= "(ascii encoude data in BASE64 format)"
|
---|
2383 | "KRN",8994,2382,2,"B","ARRAY",4)
|
---|
2384 |
|
---|
2385 | "KRN",8994,2382,2,"B","FNAME",2)
|
---|
2386 |
|
---|
2387 | "KRN",8994,2382,2,"B","FPATH",1)
|
---|
2388 |
|
---|
2389 | "KRN",8994,2382,2,"B","LOCIEN",3)
|
---|
2390 |
|
---|
2391 | "KRN",8994,2382,2,"PARAMSEQ",1,1)
|
---|
2392 |
|
---|
2393 | "KRN",8994,2382,2,"PARAMSEQ",2,2)
|
---|
2394 |
|
---|
2395 | "KRN",8994,2382,2,"PARAMSEQ",3,3)
|
---|
2396 |
|
---|
2397 | "KRN",8994,2382,2,"PARAMSEQ",4,4)
|
---|
2398 |
|
---|
2399 | "KRN",8994,2383,-1)
|
---|
2400 | 0^10
|
---|
2401 | "KRN",8994,2383,0)
|
---|
2402 | TMG GET IMAGE LONG DESCRIPTION^GETLONG^TMGRPC1^4^P^^^1^1
|
---|
2403 | "KRN",8994,2383,1,0)
|
---|
2404 | ^8994.01^2^2^3051016^^^
|
---|
2405 | "KRN",8994,2383,1,1,0)
|
---|
2406 | This RPC will return the LONG DESCRIPTION (field 11) from specified record
|
---|
2407 | "KRN",8994,2383,1,2,0)
|
---|
2408 | in IMAGE file.
|
---|
2409 | "KRN",8994,2383,2,0)
|
---|
2410 | ^8994.02A^1^1
|
---|
2411 | "KRN",8994,2383,2,1,0)
|
---|
2412 | IMAGEIEN^1^6^1^1
|
---|
2413 | "KRN",8994,2383,2,1,1,0)
|
---|
2414 | ^8994.021^3^3^3051016^^^
|
---|
2415 | "KRN",8994,2383,2,1,1,1,0)
|
---|
2416 | This value should be the IEN for the record in question, from file IMAGE
|
---|
2417 | "KRN",8994,2383,2,1,1,2,0)
|
---|
2418 | (file 2005). If IEN references a non-existing record, then empty result
|
---|
2419 | "KRN",8994,2383,2,1,1,3,0)
|
---|
2420 | will be returned.
|
---|
2421 | "KRN",8994,2383,2,"B","IMAGEIEN",1)
|
---|
2422 |
|
---|
2423 | "KRN",8994,2383,2,"PARAMSEQ",1,1)
|
---|
2424 |
|
---|
2425 | "KRN",8994,2383,3,0)
|
---|
2426 | ^^18^18^3051016^^
|
---|
2427 | "KRN",8994,2383,3,1,0)
|
---|
2428 | This will return the results from the WP field, number 11 (LONG DESCRIPTION)
|
---|
2429 | "KRN",8994,2383,3,2,0)
|
---|
2430 | from the IMAGE file (2005)
|
---|
2431 | "KRN",8994,2383,3,3,0)
|
---|
2432 |
|
---|
2433 | "KRN",8994,2383,3,4,0)
|
---|
2434 | The return format will be as follows:
|
---|
2435 | "KRN",8994,2383,3,5,0)
|
---|
2436 | Array(0)=WP header line. Format is: ^^MaxLine^MaxLine^FMDate/TimeStamp
|
---|
2437 | "KRN",8994,2383,3,6,0)
|
---|
2438 | Array(1)=WP Line 1
|
---|
2439 | "KRN",8994,2383,3,7,0)
|
---|
2440 | Array(2)=WP LIne 2
|
---|
2441 | "KRN",8994,2383,3,8,0)
|
---|
2442 | ... etc.
|
---|
2443 | "KRN",8994,2383,3,9,0)
|
---|
2444 |
|
---|
2445 | "KRN",8994,2383,3,10,0)
|
---|
2446 | In client, these results could be accesible as follows:
|
---|
2447 | "KRN",8994,2383,3,11,0)
|
---|
2448 |
|
---|
2449 | "KRN",8994,2383,3,12,0)
|
---|
2450 | RPCBroker.Results[0]=WP Header Line
|
---|
2451 | "KRN",8994,2383,3,13,0)
|
---|
2452 | RPCBroker.Results[1]=WP Line 1
|
---|
2453 | "KRN",8994,2383,3,14,0)
|
---|
2454 | RPCBroker.Results[2]=WP Line 2
|
---|
2455 | "KRN",8994,2383,3,15,0)
|
---|
2456 | ... etc.
|
---|
2457 | "KRN",8994,2383,3,16,0)
|
---|
2458 |
|
---|
2459 | "KRN",8994,2383,3,17,0)
|
---|
2460 | If there is no value for field 11, result will be:
|
---|
2461 | "KRN",8994,2383,3,18,0)
|
---|
2462 | Array(0)=""
|
---|
2463 | "KRN",8994,2384,-1)
|
---|
2464 | 0^9
|
---|
2465 | "KRN",8994,2384,0)
|
---|
2466 | TMG GET DFN^GETDFN^TMGRPC1^1^P^0^^1^1
|
---|
2467 | "KRN",8994,2384,1,0)
|
---|
2468 | ^8994.01^2^2^3070725^^^^
|
---|
2469 | "KRN",8994,2384,1,1,0)
|
---|
2470 | Used by CPRS customization for looking up a patient, and returning
|
---|
2471 | "KRN",8994,2384,1,2,0)
|
---|
2472 | the DFN (IEN in PATIENT file).
|
---|
2473 | "KRN",8994,2384,2,0)
|
---|
2474 | ^8994.02A^9^9
|
---|
2475 | "KRN",8994,2384,2,1,0)
|
---|
2476 | RECNUM^1^64^0^1
|
---|
2477 | "KRN",8994,2384,2,1,1,0)
|
---|
2478 | ^^2^2^3070725^^
|
---|
2479 | "KRN",8994,2384,2,1,1,1,0)
|
---|
2480 | This parameter is for a chart or account number in an independent PMS.
|
---|
2481 | "KRN",8994,2384,2,1,1,2,0)
|
---|
2482 | Optional parameter.
|
---|
2483 | "KRN",8994,2384,2,2,0)
|
---|
2484 | PMS^1^16^0^2
|
---|
2485 | "KRN",8994,2384,2,2,1,0)
|
---|
2486 | ^^12^12^3070725^^
|
---|
2487 | "KRN",8994,2384,2,2,1,1,0)
|
---|
2488 | This is a number indicating which PMS that the RECNUM parameter
|
---|
2489 | "KRN",8994,2384,2,2,1,2,0)
|
---|
2490 | refers to.
|
---|
2491 | "KRN",8994,2384,2,2,1,3,0)
|
---|
2492 |
|
---|
2493 | "KRN",8994,2384,2,2,1,4,0)
|
---|
2494 | Example inputs:
|
---|
2495 | "KRN",8994,2384,2,2,1,5,0)
|
---|
2496 | 1 <-- for TMG MEDIC ACCOUNT NUMBER
|
---|
2497 | "KRN",8994,2384,2,2,1,6,0)
|
---|
2498 | 2 <-- for SEQUEL ACCOUNT NUMBER
|
---|
2499 | "KRN",8994,2384,2,2,1,7,0)
|
---|
2500 |
|
---|
2501 | "KRN",8994,2384,2,2,1,8,0)
|
---|
2502 | Note: This is an 'optional' parameter, BUT if RECNUM parameter is supplied,
|
---|
2503 | "KRN",8994,2384,2,2,1,9,0)
|
---|
2504 | then this parameter must also be supplied, otherwise RecNum will be ignored.
|
---|
2505 | "KRN",8994,2384,2,2,1,10,0)
|
---|
2506 |
|
---|
2507 | "KRN",8994,2384,2,2,1,11,0)
|
---|
2508 | Note: Dealing with these numbers is hard coded into the RPC server code,
|
---|
2509 | "KRN",8994,2384,2,2,1,12,0)
|
---|
2510 | and adding additional PMS support must be coded into the calls.
|
---|
2511 | "KRN",8994,2384,2,3,0)
|
---|
2512 | LNAME^1^64^^3
|
---|
2513 | "KRN",8994,2384,2,3,1,0)
|
---|
2514 | ^^1^1^3070725^^
|
---|
2515 | "KRN",8994,2384,2,3,1,1,0)
|
---|
2516 | This is the patient's last name (i.e. family name)
|
---|
2517 | "KRN",8994,2384,2,4,0)
|
---|
2518 | FNAME^1^64^^4
|
---|
2519 | "KRN",8994,2384,2,4,1,0)
|
---|
2520 | ^^1^1^3070725^^
|
---|
2521 | "KRN",8994,2384,2,4,1,1,0)
|
---|
2522 | This is the patient's first (given) name.
|
---|
2523 | "KRN",8994,2384,2,5,0)
|
---|
2524 | MNAME^1^64^^5
|
---|
2525 | "KRN",8994,2384,2,5,1,0)
|
---|
2526 | ^^1^1^3070725^^
|
---|
2527 | "KRN",8994,2384,2,5,1,1,0)
|
---|
2528 | This is the patient's middle name, OR middle initial.
|
---|
2529 | "KRN",8994,2384,2,6,0)
|
---|
2530 | DOB^1^32^^6
|
---|
2531 | "KRN",8994,2384,2,6,1,0)
|
---|
2532 | ^^2^2^3070725^^
|
---|
2533 | "KRN",8994,2384,2,6,1,1,0)
|
---|
2534 | This is the patient's date of birth, in EXTERNAL (i.e.
|
---|
2535 | "KRN",8994,2384,2,6,1,2,0)
|
---|
2536 | user supplied) format.
|
---|
2537 | "KRN",8994,2384,2,7,0)
|
---|
2538 | SEX^1^1^^7
|
---|
2539 | "KRN",8994,2384,2,7,1,0)
|
---|
2540 | ^^3^3^3070725^^
|
---|
2541 | "KRN",8994,2384,2,7,1,1,0)
|
---|
2542 | This is the patient's sex. Should be:
|
---|
2543 | "KRN",8994,2384,2,7,1,2,0)
|
---|
2544 | M for male
|
---|
2545 | "KRN",8994,2384,2,7,1,3,0)
|
---|
2546 | F for female
|
---|
2547 | "KRN",8994,2384,2,8,0)
|
---|
2548 | SSNUM^1^9^^8
|
---|
2549 | "KRN",8994,2384,2,8,1,0)
|
---|
2550 | ^^6^6^3070725^^
|
---|
2551 | "KRN",8994,2384,2,8,1,1,0)
|
---|
2552 | This is the patient's Social Security Number (SS Num)
|
---|
2553 | "KRN",8994,2384,2,8,1,2,0)
|
---|
2554 | Should NOT include dashes.
|
---|
2555 | "KRN",8994,2384,2,8,1,3,0)
|
---|
2556 |
|
---|
2557 | "KRN",8994,2384,2,8,1,4,0)
|
---|
2558 | Example:
|
---|
2559 | "KRN",8994,2384,2,8,1,5,0)
|
---|
2560 | 123456789
|
---|
2561 | "KRN",8994,2384,2,8,1,6,0)
|
---|
2562 | NOT: 123-45-6789
|
---|
2563 | "KRN",8994,2384,2,9,0)
|
---|
2564 | AUTOADD^1^1^^9
|
---|
2565 | "KRN",8994,2384,2,9,1,0)
|
---|
2566 | ^^6^6^3070725^^
|
---|
2567 | "KRN",8994,2384,2,9,1,1,0)
|
---|
2568 | If this parameter value is 1, then patient will be automatically
|
---|
2569 | "KRN",8994,2384,2,9,1,2,0)
|
---|
2570 | registered if they are not found during lookup.
|
---|
2571 | "KRN",8994,2384,2,9,1,3,0)
|
---|
2572 |
|
---|
2573 | "KRN",8994,2384,2,9,1,4,0)
|
---|
2574 | Examples:
|
---|
2575 | "KRN",8994,2384,2,9,1,5,0)
|
---|
2576 | 1 <-- auto add if not found
|
---|
2577 | "KRN",8994,2384,2,9,1,6,0)
|
---|
2578 | 0 <-- don't auto add (default value)
|
---|
2579 | "KRN",8994,2384,2,"B","AUTOADD",9)
|
---|
2580 |
|
---|
2581 | "KRN",8994,2384,2,"B","DOB",6)
|
---|
2582 |
|
---|
2583 | "KRN",8994,2384,2,"B","FNAME",4)
|
---|
2584 |
|
---|
2585 | "KRN",8994,2384,2,"B","LNAME",3)
|
---|
2586 |
|
---|
2587 | "KRN",8994,2384,2,"B","MNAME",5)
|
---|
2588 |
|
---|
2589 | "KRN",8994,2384,2,"B","PMS",2)
|
---|
2590 |
|
---|
2591 | "KRN",8994,2384,2,"B","RECNUM",1)
|
---|
2592 |
|
---|
2593 | "KRN",8994,2384,2,"B","SEX",7)
|
---|
2594 |
|
---|
2595 | "KRN",8994,2384,2,"B","SSNUM",8)
|
---|
2596 |
|
---|
2597 | "KRN",8994,2384,2,"PARAMSEQ",1,1)
|
---|
2598 |
|
---|
2599 | "KRN",8994,2384,2,"PARAMSEQ",2,2)
|
---|
2600 |
|
---|
2601 | "KRN",8994,2384,2,"PARAMSEQ",3,3)
|
---|
2602 |
|
---|
2603 | "KRN",8994,2384,2,"PARAMSEQ",4,4)
|
---|
2604 |
|
---|
2605 | "KRN",8994,2384,2,"PARAMSEQ",5,5)
|
---|
2606 |
|
---|
2607 | "KRN",8994,2384,2,"PARAMSEQ",6,6)
|
---|
2608 |
|
---|
2609 | "KRN",8994,2384,2,"PARAMSEQ",7,7)
|
---|
2610 |
|
---|
2611 | "KRN",8994,2384,2,"PARAMSEQ",8,8)
|
---|
2612 |
|
---|
2613 | "KRN",8994,2384,2,"PARAMSEQ",9,9)
|
---|
2614 |
|
---|
2615 | "KRN",8994,2384,3,0)
|
---|
2616 | ^8994.03^1^1^3070725^^^^
|
---|
2617 | "KRN",8994,2384,3,1,0)
|
---|
2618 | This will return the DFN (IEN in PATIENT file), or -1 if not found or error.
|
---|
2619 | "KRN",8994,2385,-1)
|
---|
2620 | 0^8
|
---|
2621 | "KRN",8994,2385,0)
|
---|
2622 | TMG GET BLANK TIU DOCUMENT^BLANKTIU^TMGRPC1^1^P^0^^1^1
|
---|
2623 | "KRN",8994,2385,1,0)
|
---|
2624 | ^8994.01^3^3^3070725^^
|
---|
2625 | "KRN",8994,2385,1,1,0)
|
---|
2626 | This RPC call will be used to create a new record in file 8925 (TIU DOCUMENT)
|
---|
2627 | "KRN",8994,2385,1,2,0)
|
---|
2628 | that can be used for other purposes.
|
---|
2629 | "KRN",8994,2385,1,3,0)
|
---|
2630 | Note: This will be an UNSIGNED document that will later need to be signed.
|
---|
2631 | "KRN",8994,2385,2,0)
|
---|
2632 | ^8994.02A^5^5
|
---|
2633 | "KRN",8994,2385,2,1,0)
|
---|
2634 | DFN^1^16^1^1
|
---|
2635 | "KRN",8994,2385,2,1,1,0)
|
---|
2636 | ^^2^2^3070725^^
|
---|
2637 | "KRN",8994,2385,2,1,1,1,0)
|
---|
2638 | This is the IEN in the PATIENT file. I.e. the record number of the patient
|
---|
2639 | "KRN",8994,2385,2,1,1,2,0)
|
---|
2640 | for which the note is being created.
|
---|
2641 | "KRN",8994,2385,2,2,0)
|
---|
2642 | PERSON^1^64^1^2
|
---|
2643 | "KRN",8994,2385,2,2,1,0)
|
---|
2644 | ^^1^1^3070725^^
|
---|
2645 | "KRN",8994,2385,2,2,1,1,0)
|
---|
2646 | This is the name of the provider of record for the new document.
|
---|
2647 | "KRN",8994,2385,2,3,0)
|
---|
2648 | LOC^1^64^1^3
|
---|
2649 | "KRN",8994,2385,2,3,1,0)
|
---|
2650 | ^^3^3^3070725^^
|
---|
2651 | "KRN",8994,2385,2,3,1,1,0)
|
---|
2652 | This is the location for the new document. Note this location should be the
|
---|
2653 | "KRN",8994,2385,2,3,1,2,0)
|
---|
2654 | name of a location named in the HOSPITAL LOCATION file (#44). That is, the
|
---|
2655 | "KRN",8994,2385,2,3,1,3,0)
|
---|
2656 | .01 field name, or perhaps the abbreviation for the location if defined.
|
---|
2657 | "KRN",8994,2385,2,4,0)
|
---|
2658 | DOS^1^32^1^4
|
---|
2659 | "KRN",8994,2385,2,4,1,0)
|
---|
2660 | ^^1^1^3070725^^
|
---|
2661 | "KRN",8994,2385,2,4,1,1,0)
|
---|
2662 | This is the Date of Service for the new document.
|
---|
2663 | "KRN",8994,2385,2,5,0)
|
---|
2664 | TITLE^1^64^1^5
|
---|
2665 | "KRN",8994,2385,2,5,1,0)
|
---|
2666 | ^^4^4^3070725^^
|
---|
2667 | "KRN",8994,2385,2,5,1,1,0)
|
---|
2668 | This is the title for the new note.
|
---|
2669 | "KRN",8994,2385,2,5,1,2,0)
|
---|
2670 | Note: This must be a title as defined in file 8925.1 (TIU DOCUMENT DEFINITION).
|
---|
2671 | "KRN",8994,2385,2,5,1,3,0)
|
---|
2672 | That is to say, the name of the .01 field, or perhaps any abbreviation
|
---|
2673 | "KRN",8994,2385,2,5,1,4,0)
|
---|
2674 | if defined.
|
---|
2675 | "KRN",8994,2385,2,"B","DFN",1)
|
---|
2676 |
|
---|
2677 | "KRN",8994,2385,2,"B","DOS",4)
|
---|
2678 |
|
---|
2679 | "KRN",8994,2385,2,"B","LOC",3)
|
---|
2680 |
|
---|
2681 | "KRN",8994,2385,2,"B","PERSON",2)
|
---|
2682 |
|
---|
2683 | "KRN",8994,2385,2,"B","TITLE",5)
|
---|
2684 |
|
---|
2685 | "KRN",8994,2385,2,"PARAMSEQ",1,1)
|
---|
2686 |
|
---|
2687 | "KRN",8994,2385,2,"PARAMSEQ",2,2)
|
---|
2688 |
|
---|
2689 | "KRN",8994,2385,2,"PARAMSEQ",3,3)
|
---|
2690 |
|
---|
2691 | "KRN",8994,2385,2,"PARAMSEQ",4,4)
|
---|
2692 |
|
---|
2693 | "KRN",8994,2385,2,"PARAMSEQ",5,5)
|
---|
2694 |
|
---|
2695 | "KRN",8994,2385,3,0)
|
---|
2696 | ^^1^1^3070725^^
|
---|
2697 | "KRN",8994,2385,3,1,0)
|
---|
2698 | Returns the IEN (record number) of a new, blank note in file 8925
|
---|
2699 | "KRN",8994,2386,-1)
|
---|
2700 | 0^2
|
---|
2701 | "KRN",8994,2386,0)
|
---|
2702 | TMG AUTOSIGN TIU DOCUMENT^AUTOSIGN^TMGRPC1^2^P^0^^1^1
|
---|
2703 | "KRN",8994,2386,1,0)
|
---|
2704 | ^^2^2^3070730^^
|
---|
2705 | "KRN",8994,2386,1,1,0)
|
---|
2706 | This will allow the auto-signing of a document. It is designed to automatically
|
---|
2707 | "KRN",8994,2386,1,2,0)
|
---|
2708 | complete documents that are added to VistA via scanning.
|
---|
2709 | "KRN",8994,2386,2,0)
|
---|
2710 | ^8994.02A^1^1
|
---|
2711 | "KRN",8994,2386,2,1,0)
|
---|
2712 | DOCIEN^1^16^1^1
|
---|
2713 | "KRN",8994,2386,2,1,1,0)
|
---|
2714 | ^^1^1^3070730^^
|
---|
2715 | "KRN",8994,2386,2,1,1,1,0)
|
---|
2716 | This is the IEN (internal entry number) of the document to be signed.
|
---|
2717 | "KRN",8994,2386,2,"B","DOCIEN",1)
|
---|
2718 |
|
---|
2719 | "KRN",8994,2386,2,"PARAMSEQ",1,1)
|
---|
2720 |
|
---|
2721 | "KRN",8994,2386,3,0)
|
---|
2722 | ^^3^3^3070730^^
|
---|
2723 | "KRN",8994,2386,3,1,0)
|
---|
2724 | Return value is an array.
|
---|
2725 | "KRN",8994,2386,3,2,0)
|
---|
2726 | Array(0)=1 if success, or -1 if failure.
|
---|
2727 | "KRN",8994,2386,3,3,0)
|
---|
2728 | Errors are returned in Array("DIERR")
|
---|
2729 | "KRN",8994,2387,-1)
|
---|
2730 | 0^11
|
---|
2731 | "KRN",8994,2387,0)
|
---|
2732 | TMG GET PATIENT DEMOGRAPHICS^DFNINFO^TMGRPC1^2^P^^^1^1
|
---|
2733 | "KRN",8994,2387,1,0)
|
---|
2734 | ^^2^2^3070923^^
|
---|
2735 | "KRN",8994,2387,1,1,0)
|
---|
2736 | This RPC calls returns patient demographic info in a formatted array.
|
---|
2737 | "KRN",8994,2387,1,2,0)
|
---|
2738 | See description of return parameter for details.
|
---|
2739 | "KRN",8994,2387,2,0)
|
---|
2740 | ^8994.02A^1^1
|
---|
2741 | "KRN",8994,2387,2,1,0)
|
---|
2742 | DFN^1^^1^1
|
---|
2743 | "KRN",8994,2387,2,1,1,0)
|
---|
2744 | ^^2^2^3070923^^
|
---|
2745 | "KRN",8994,2387,2,1,1,1,0)
|
---|
2746 | This is the IEN (internal entry number), aka record number,
|
---|
2747 | "KRN",8994,2387,2,1,1,2,0)
|
---|
2748 | of the patient to get the demographics for.
|
---|
2749 | "KRN",8994,2387,2,"B","DFN",1)
|
---|
2750 |
|
---|
2751 | "KRN",8994,2387,2,"PARAMSEQ",1,1)
|
---|
2752 |
|
---|
2753 | "KRN",8994,2387,3,0)
|
---|
2754 | ^^49^49^3070923^^
|
---|
2755 | "KRN",8994,2387,3,1,0)
|
---|
2756 | ;" The results are in format: KeyName=Value,
|
---|
2757 | "KRN",8994,2387,3,2,0)
|
---|
2758 | ;" There is no set order these will appear.
|
---|
2759 | "KRN",8994,2387,3,3,0)
|
---|
2760 | ;" Here are the KeyName names that will be provided.
|
---|
2761 | "KRN",8994,2387,3,4,0)
|
---|
2762 | ;" If the record has no value, then value will be empty
|
---|
2763 | "KRN",8994,2387,3,5,0)
|
---|
2764 | ;"
|
---|
2765 | "KRN",8994,2387,3,6,0)
|
---|
2766 | ;" IEN=record#
|
---|
2767 | "KRN",8994,2387,3,7,0)
|
---|
2768 | ;" COMBINED_NAME=
|
---|
2769 | "KRN",8994,2387,3,8,0)
|
---|
2770 | ;" LNAME=
|
---|
2771 | "KRN",8994,2387,3,9,0)
|
---|
2772 | ;" FNAME=
|
---|
2773 | "KRN",8994,2387,3,10,0)
|
---|
2774 | ;" MNAME=
|
---|
2775 | "KRN",8994,2387,3,11,0)
|
---|
2776 | ;" PREFIX=
|
---|
2777 | "KRN",8994,2387,3,12,0)
|
---|
2778 | ;" SUFFIX=
|
---|
2779 | "KRN",8994,2387,3,13,0)
|
---|
2780 | ;" DEGREE
|
---|
2781 | "KRN",8994,2387,3,14,0)
|
---|
2782 | ;" DOB=
|
---|
2783 | "KRN",8994,2387,3,15,0)
|
---|
2784 | ;" SEX=
|
---|
2785 | "KRN",8994,2387,3,16,0)
|
---|
2786 | ;" SS_NUM=
|
---|
2787 | "KRN",8994,2387,3,17,0)
|
---|
2788 | ;" ADDRESS_LINE_1=
|
---|
2789 | "KRN",8994,2387,3,18,0)
|
---|
2790 | ;" ADDRESS_LINE_2=
|
---|
2791 | "KRN",8994,2387,3,19,0)
|
---|
2792 | ;" ADDRESS_LINE_3=
|
---|
2793 | "KRN",8994,2387,3,20,0)
|
---|
2794 | ;" CITY=
|
---|
2795 | "KRN",8994,2387,3,21,0)
|
---|
2796 | ;" STATE=
|
---|
2797 | "KRN",8994,2387,3,22,0)
|
---|
2798 | ;" ZIP4=
|
---|
2799 | "KRN",8994,2387,3,23,0)
|
---|
2800 | ;" BAD_ADDRESS=
|
---|
2801 | "KRN",8994,2387,3,24,0)
|
---|
2802 | ;" TEMP_ADDRESS_LINE_1=
|
---|
2803 | "KRN",8994,2387,3,25,0)
|
---|
2804 | ;" TEMP_ADDRESS_LINE_2=
|
---|
2805 | "KRN",8994,2387,3,26,0)
|
---|
2806 | ;" TEMP_ADDRESS_LINE_3=
|
---|
2807 | "KRN",8994,2387,3,27,0)
|
---|
2808 | ;" TEMP_CITY=
|
---|
2809 | "KRN",8994,2387,3,28,0)
|
---|
2810 | ;" TEMP_STATE=
|
---|
2811 | "KRN",8994,2387,3,29,0)
|
---|
2812 | ;" TEMP_ZIP4=
|
---|
2813 | "KRN",8994,2387,3,30,0)
|
---|
2814 | ;" TEMP_STARTING_DATE=
|
---|
2815 | "KRN",8994,2387,3,31,0)
|
---|
2816 | ;" TEMP_ENDING_DATE=
|
---|
2817 | "KRN",8994,2387,3,32,0)
|
---|
2818 | ;" TEMP_ADDRESS_ACTIVE=
|
---|
2819 | "KRN",8994,2387,3,33,0)
|
---|
2820 | ;" CONF_ADDRESS_LINE_1=
|
---|
2821 | "KRN",8994,2387,3,34,0)
|
---|
2822 | ;" CONF_ADDRESS_LINE_2=
|
---|
2823 | "KRN",8994,2387,3,35,0)
|
---|
2824 | ;" CONF_ADDRESS_LINE_3=
|
---|
2825 | "KRN",8994,2387,3,36,0)
|
---|
2826 | ;" CONF_CITY=
|
---|
2827 | "KRN",8994,2387,3,37,0)
|
---|
2828 | ;" CONF_STATE=
|
---|
2829 | "KRN",8994,2387,3,38,0)
|
---|
2830 | ;" CONF_ZIP4=
|
---|
2831 | "KRN",8994,2387,3,39,0)
|
---|
2832 | ;" CONF_STARTING_DATE=
|
---|
2833 | "KRN",8994,2387,3,40,0)
|
---|
2834 | ;" CONF_ENDING_DATE=
|
---|
2835 | "KRN",8994,2387,3,41,0)
|
---|
2836 | ;" CONF_ADDRESS_ACTIVE=
|
---|
2837 | "KRN",8994,2387,3,42,0)
|
---|
2838 | ;" PHONE_RESIDENCE=
|
---|
2839 | "KRN",8994,2387,3,43,0)
|
---|
2840 | ;" PHONE_WORK=
|
---|
2841 | "KRN",8994,2387,3,44,0)
|
---|
2842 | ;" PHONE_CELL=
|
---|
2843 | "KRN",8994,2387,3,45,0)
|
---|
2844 | ;" PHONE_TEMP=
|
---|
2845 | "KRN",8994,2387,3,46,0)
|
---|
2846 |
|
---|
2847 | "KRN",8994,2387,3,47,0)
|
---|
2848 | ;"Note, for the following, there may be multiple entries. # is record number
|
---|
2849 | "KRN",8994,2387,3,48,0)
|
---|
2850 | ;" ALIAS # NAME
|
---|
2851 | "KRN",8994,2387,3,49,0)
|
---|
2852 | ;" ALIAS # SSN
|
---|
2853 | "KRN",8994,2388,-1)
|
---|
2854 | 0^14
|
---|
2855 | "KRN",8994,2388,0)
|
---|
2856 | TMG SET PATIENT DEMOGRAPHICS^STPTINFO^TMGRPC1^1^P^^^1^1
|
---|
2857 | "KRN",8994,2388,1,0)
|
---|
2858 | ^8994.01^1^1^3070926^^^
|
---|
2859 | "KRN",8994,2388,1,1,0)
|
---|
2860 | This RPC is for setting basic demographics info for a patient.
|
---|
2861 | "KRN",8994,2388,2,0)
|
---|
2862 | ^8994.02A^2^2
|
---|
2863 | "KRN",8994,2388,2,1,0)
|
---|
2864 | DFN^1^^1^1
|
---|
2865 | "KRN",8994,2388,2,1,1,0)
|
---|
2866 | ^^1^1^3070926^^
|
---|
2867 | "KRN",8994,2388,2,1,1,1,0)
|
---|
2868 | This DFN value is the IEN (internal entry number) of the patient in the PATIENT file.
|
---|
2869 | "KRN",8994,2388,2,2,0)
|
---|
2870 | INFO^2^^1^2
|
---|
2871 | "KRN",8994,2388,2,2,1,0)
|
---|
2872 | ^^47^47^3070926^^
|
---|
2873 | "KRN",8994,2388,2,2,1,1,0)
|
---|
2874 | This will be the data to set for the specified patient.
|
---|
2875 | "KRN",8994,2388,2,2,1,2,0)
|
---|
2876 | Demographics are passed in a Key=Value format:
|
---|
2877 | "KRN",8994,2388,2,2,1,3,0)
|
---|
2878 |
|
---|
2879 | "KRN",8994,2388,2,2,1,4,0)
|
---|
2880 | Here are the KeyName names that will be provided.
|
---|
2881 | "KRN",8994,2388,2,2,1,5,0)
|
---|
2882 | There is no set order these will appear.
|
---|
2883 | "KRN",8994,2388,2,2,1,6,0)
|
---|
2884 | If the record has no value, then value will be empty
|
---|
2885 | "KRN",8994,2388,2,2,1,7,0)
|
---|
2886 | If a record should be deleted, its value will be @
|
---|
2887 | "KRN",8994,2388,2,2,1,8,0)
|
---|
2888 | INFO("COMBINED_NAME")=
|
---|
2889 | "KRN",8994,2388,2,2,1,9,0)
|
---|
2890 | INFO("PREFIX")=
|
---|
2891 | "KRN",8994,2388,2,2,1,10,0)
|
---|
2892 | INFO("SUFFIX")=
|
---|
2893 | "KRN",8994,2388,2,2,1,11,0)
|
---|
2894 | INFO("DEGREE")=
|
---|
2895 | "KRN",8994,2388,2,2,1,12,0)
|
---|
2896 | INFO("DOB")=
|
---|
2897 | "KRN",8994,2388,2,2,1,13,0)
|
---|
2898 | INFO("SEX")=
|
---|
2899 | "KRN",8994,2388,2,2,1,14,0)
|
---|
2900 | INFO("SS_NUM")=
|
---|
2901 | "KRN",8994,2388,2,2,1,15,0)
|
---|
2902 | INFO("ADDRESS_LINE_1")=
|
---|
2903 | "KRN",8994,2388,2,2,1,16,0)
|
---|
2904 | INFO("ADDRESS_LINE_2")=
|
---|
2905 | "KRN",8994,2388,2,2,1,17,0)
|
---|
2906 | INFO("ADDRESS_LINE_3")=
|
---|
2907 | "KRN",8994,2388,2,2,1,18,0)
|
---|
2908 | INFO("CITY")=
|
---|
2909 | "KRN",8994,2388,2,2,1,19,0)
|
---|
2910 | INFO("STATE")=
|
---|
2911 | "KRN",8994,2388,2,2,1,20,0)
|
---|
2912 | INFO("ZIP4")=
|
---|
2913 | "KRN",8994,2388,2,2,1,21,0)
|
---|
2914 | INFO("BAD_ADDRESS")=
|
---|
2915 | "KRN",8994,2388,2,2,1,22,0)
|
---|
2916 | INFO("TEMP_ADDRESS_LINE_1")=
|
---|
2917 | "KRN",8994,2388,2,2,1,23,0)
|
---|
2918 | INFO("TEMP_ADDRESS_LINE_2")=
|
---|
2919 | "KRN",8994,2388,2,2,1,24,0)
|
---|
2920 | INFO("TEMP_ADDRESS_LINE_3")=
|
---|
2921 | "KRN",8994,2388,2,2,1,25,0)
|
---|
2922 | INFO("TEMP_CITY")=
|
---|
2923 | "KRN",8994,2388,2,2,1,26,0)
|
---|
2924 | INFO("TEMP_STATE")=
|
---|
2925 | "KRN",8994,2388,2,2,1,27,0)
|
---|
2926 | INFO("TEMP_ZIP4")=
|
---|
2927 | "KRN",8994,2388,2,2,1,28,0)
|
---|
2928 | INFO("TEMP_STARTING_DATE")=
|
---|
2929 | "KRN",8994,2388,2,2,1,29,0)
|
---|
2930 | INFO("TEMP_ENDING_DATE")=
|
---|
2931 | "KRN",8994,2388,2,2,1,30,0)
|
---|
2932 | INFO("TEMP_ADDRESS_ACTIVE")=
|
---|
2933 | "KRN",8994,2388,2,2,1,31,0)
|
---|
2934 | INFO("CONF_ADDRESS_LINE_1")=
|
---|
2935 | "KRN",8994,2388,2,2,1,32,0)
|
---|
2936 | INFO("CONF_ADDRESS_LINE_2")=
|
---|
2937 | "KRN",8994,2388,2,2,1,33,0)
|
---|
2938 | INFO("CONF_ADDRESS_LINE_3")=
|
---|
2939 | "KRN",8994,2388,2,2,1,34,0)
|
---|
2940 | INFO("CONF_CITY")=
|
---|
2941 | "KRN",8994,2388,2,2,1,35,0)
|
---|
2942 | INFO("CONF_STATE")=
|
---|
2943 | "KRN",8994,2388,2,2,1,36,0)
|
---|
2944 | INFO("CONF_ZIP4")=
|
---|
2945 | "KRN",8994,2388,2,2,1,37,0)
|
---|
2946 | INFO("CONF_STARTING_DATE")=
|
---|
2947 | "KRN",8994,2388,2,2,1,38,0)
|
---|
2948 | INFO("CONF_ENDING_DATE")=
|
---|
2949 | "KRN",8994,2388,2,2,1,39,0)
|
---|
2950 | INFO("CONF_ADDRESS_ACTIVE")=
|
---|
2951 | "KRN",8994,2388,2,2,1,40,0)
|
---|
2952 | INFO("PHONE_RESIDENCE")=
|
---|
2953 | "KRN",8994,2388,2,2,1,41,0)
|
---|
2954 | INFO("PHONE_WORK")=
|
---|
2955 | "KRN",8994,2388,2,2,1,42,0)
|
---|
2956 | INFO("PHONE_CELL")=
|
---|
2957 | "KRN",8994,2388,2,2,1,43,0)
|
---|
2958 | INFO("PHONE_TEMP")=
|
---|
2959 | "KRN",8994,2388,2,2,1,44,0)
|
---|
2960 | Note, for the following, there may be multiple entries. # is record number
|
---|
2961 | "KRN",8994,2388,2,2,1,45,0)
|
---|
2962 | If a record should be added, it will be marked +1, +2 etc.
|
---|
2963 | "KRN",8994,2388,2,2,1,46,0)
|
---|
2964 | INFO("ALIAS # NAME")=
|
---|
2965 | "KRN",8994,2388,2,2,1,47,0)
|
---|
2966 | INFO("ALIAS # SSN")=
|
---|
2967 | "KRN",8994,2388,2,"B","DFN",1)
|
---|
2968 |
|
---|
2969 | "KRN",8994,2388,2,"B","INFO",2)
|
---|
2970 |
|
---|
2971 | "KRN",8994,2388,2,"PARAMSEQ",1,1)
|
---|
2972 |
|
---|
2973 | "KRN",8994,2388,2,"PARAMSEQ",2,2)
|
---|
2974 |
|
---|
2975 | "KRN",8994,2388,3,0)
|
---|
2976 | ^^4^4^3070926^^
|
---|
2977 | "KRN",8994,2388,3,1,0)
|
---|
2978 | Return value will be:
|
---|
2979 | "KRN",8994,2388,3,2,0)
|
---|
2980 | 1 for success, or
|
---|
2981 | "KRN",8994,2388,3,3,0)
|
---|
2982 | -1^Message for failure
|
---|
2983 | "KRN",8994,2388,3,4,0)
|
---|
2984 |
|
---|
2985 | "KRN",8994,2389,-1)
|
---|
2986 | 0^1
|
---|
2987 | "KRN",8994,2389,0)
|
---|
2988 | TMG ADD PATIENT^PTADD^TMGRPC1^1^^^^1
|
---|
2989 | "KRN",8994,2389,1,0)
|
---|
2990 | ^8994.01^1^1^3071010^^^^
|
---|
2991 | "KRN",8994,2389,1,1,0)
|
---|
2992 | This RPC is to add a patient.
|
---|
2993 | "KRN",8994,2389,2,0)
|
---|
2994 | ^8994.02A^1^1
|
---|
2995 | "KRN",8994,2389,2,1,0)
|
---|
2996 | INFO^2^^1^1
|
---|
2997 | "KRN",8994,2389,2,1,1,0)
|
---|
2998 | ^8994.021^12^12^3071010^^^^
|
---|
2999 | "KRN",8994,2389,2,1,1,1,0)
|
---|
3000 | ;" INFO: Format as follows:
|
---|
3001 | "KRN",8994,2389,2,1,1,2,0)
|
---|
3002 | ;" The results are in format: INFO("KeyName")=Value,
|
---|
3003 | "KRN",8994,2389,2,1,1,3,0)
|
---|
3004 | ;" There is no set order these will appear.
|
---|
3005 | "KRN",8994,2389,2,1,1,4,0)
|
---|
3006 | ;" Here are the KeyName names that will be provided.
|
---|
3007 | "KRN",8994,2389,2,1,1,5,0)
|
---|
3008 | ;" If the record has no value, then value will be empty
|
---|
3009 | "KRN",8994,2389,2,1,1,6,0)
|
---|
3010 | ;" If a record should be deleted, its value will be @
|
---|
3011 | "KRN",8994,2389,2,1,1,7,0)
|
---|
3012 | ;" INFO("COMBINED_NAME")=
|
---|
3013 | "KRN",8994,2389,2,1,1,8,0)
|
---|
3014 | ;" INFO("DOB")=
|
---|
3015 | "KRN",8994,2389,2,1,1,9,0)
|
---|
3016 | ;" INFO("SEX")=
|
---|
3017 | "KRN",8994,2389,2,1,1,10,0)
|
---|
3018 | ;" INFO("SS_NUM")=
|
---|
3019 | "KRN",8994,2389,2,1,1,11,0)
|
---|
3020 | ;" INFO("Veteran")=
|
---|
3021 | "KRN",8994,2389,2,1,1,12,0)
|
---|
3022 | ;" INFO("PtType")=
|
---|
3023 | "KRN",8994,2389,2,"B","INFO",1)
|
---|
3024 |
|
---|
3025 | "KRN",8994,2389,2,"PARAMSEQ",1,1)
|
---|
3026 |
|
---|
3027 | "KRN",8994,2389,3,0)
|
---|
3028 | ^8994.03^3^3^3071010^^^
|
---|
3029 | "KRN",8994,2389,3,1,0)
|
---|
3030 | ;"Results: Results passed back in RESULT string:
|
---|
3031 | "KRN",8994,2389,3,2,0)
|
---|
3032 | ;" 1^DFN = success
|
---|
3033 | "KRN",8994,2389,3,3,0)
|
---|
3034 | ;" -1^Message = failure
|
---|
3035 | "KRN",8994,2390,-1)
|
---|
3036 | 0^4
|
---|
3037 | "KRN",8994,2390,0)
|
---|
3038 | TMG BARCODE ENCODE^GETBARCD^TMGRPC1^4^P^^^1^1
|
---|
3039 | "KRN",8994,2390,1,0)
|
---|
3040 | ^^17^17^3071227^^
|
---|
3041 | "KRN",8994,2390,1,1,0)
|
---|
3042 | This RPC will be for requesting a barcode from the server.
|
---|
3043 | "KRN",8994,2390,1,2,0)
|
---|
3044 | This will return an image containing a DataMatrix 2D
|
---|
3045 | "KRN",8994,2390,1,3,0)
|
---|
3046 | barcode.
|
---|
3047 | "KRN",8994,2390,1,4,0)
|
---|
3048 |
|
---|
3049 | "KRN",8994,2390,1,5,0)
|
---|
3050 | It is dependent on a command to be installed on the
|
---|
3051 | "KRN",8994,2390,1,6,0)
|
---|
3052 | linux host server: libdtmx which may be installed
|
---|
3053 | "KRN",8994,2390,1,7,0)
|
---|
3054 | from www.sourceforge.org. See comments in TMGBARC.m for
|
---|
3055 | "KRN",8994,2390,1,8,0)
|
---|
3056 | details.
|
---|
3057 | "KRN",8994,2390,1,9,0)
|
---|
3058 |
|
---|
3059 | "KRN",8994,2390,1,10,0)
|
---|
3060 | If an image type of other than .png is desired then this
|
---|
3061 | "KRN",8994,2390,1,11,0)
|
---|
3062 | is dependent on "convert" utility being installed on the
|
---|
3063 | "KRN",8994,2390,1,12,0)
|
---|
3064 | linux host server. This is part of the linux ImageMagick
|
---|
3065 | "KRN",8994,2390,1,13,0)
|
---|
3066 | package.
|
---|
3067 | "KRN",8994,2390,1,14,0)
|
---|
3068 |
|
---|
3069 | "KRN",8994,2390,1,15,0)
|
---|
3070 | It will return the barcode in ascii armour encoding, which
|
---|
3071 | "KRN",8994,2390,1,16,0)
|
---|
3072 | must be decoded on the client side. This functionality is
|
---|
3073 | "KRN",8994,2390,1,17,0)
|
---|
3074 | the same as used for TMG UPLOAD and TMG DOWNLOAD of images.
|
---|
3075 | "KRN",8994,2390,2,0)
|
---|
3076 | ^8994.02A^2^2
|
---|
3077 | "KRN",8994,2390,2,1,0)
|
---|
3078 | MESSAGE^1^1024^1^1
|
---|
3079 | "KRN",8994,2390,2,1,1,0)
|
---|
3080 | ^^12^12^3071221^^
|
---|
3081 | "KRN",8994,2390,2,1,1,1,0)
|
---|
3082 | This should be the message / text / numbers to be
|
---|
3083 | "KRN",8994,2390,2,1,1,2,0)
|
---|
3084 | encoded in the barcode.
|
---|
3085 | "KRN",8994,2390,2,1,1,3,0)
|
---|
3086 |
|
---|
3087 | "KRN",8994,2390,2,1,1,4,0)
|
---|
3088 | I have not explored the limits of what type of chars
|
---|
3089 | "KRN",8994,2390,2,1,1,5,0)
|
---|
3090 | can be stored in the barcode. I think that it does
|
---|
3091 | "KRN",8994,2390,2,1,1,6,0)
|
---|
3092 | NOT allow extended chars or control chars.
|
---|
3093 | "KRN",8994,2390,2,1,1,7,0)
|
---|
3094 |
|
---|
3095 | "KRN",8994,2390,2,1,1,8,0)
|
---|
3096 | I am also not sure of the allowed length. This can
|
---|
3097 | "KRN",8994,2390,2,1,1,9,0)
|
---|
3098 | be explored more later. With some bar code creators,
|
---|
3099 | "KRN",8994,2390,2,1,1,10,0)
|
---|
3100 | if the length exceeds the allowed chars for one 2D
|
---|
3101 | "KRN",8994,2390,2,1,1,11,0)
|
---|
3102 | square, then a second square is created beside the first
|
---|
3103 | "KRN",8994,2390,2,1,1,12,0)
|
---|
3104 | for the extra characters.
|
---|
3105 | "KRN",8994,2390,2,2,0)
|
---|
3106 | OPTION^2^^0^2
|
---|
3107 | "KRN",8994,2390,2,2,1,0)
|
---|
3108 | ^^15^15^3071227^^
|
---|
3109 | "KRN",8994,2390,2,2,1,1,0)
|
---|
3110 | This array may contain options:
|
---|
3111 | "KRN",8994,2390,2,2,1,2,0)
|
---|
3112 |
|
---|
3113 | "KRN",8994,2390,2,2,1,3,0)
|
---|
3114 | OPTION("IMAGE TYPE")=image type.
|
---|
3115 | "KRN",8994,2390,2,2,1,4,0)
|
---|
3116 |
|
---|
3117 | "KRN",8994,2390,2,2,1,5,0)
|
---|
3118 | Example
|
---|
3119 | "KRN",8994,2390,2,2,1,6,0)
|
---|
3120 | OPTION("IMAGE TYPE")="jpg" <-- image returned in jpg format
|
---|
3121 | "KRN",8994,2390,2,2,1,7,0)
|
---|
3122 | or
|
---|
3123 | "KRN",8994,2390,2,2,1,8,0)
|
---|
3124 | OPTION("IMAGE TYPE")="tiff" <-- image returned in tiff format
|
---|
3125 | "KRN",8994,2390,2,2,1,9,0)
|
---|
3126 |
|
---|
3127 | "KRN",8994,2390,2,2,1,10,0)
|
---|
3128 | Specified image type is NOT case sensitive.
|
---|
3129 | "KRN",8994,2390,2,2,1,11,0)
|
---|
3130 |
|
---|
3131 | "KRN",8994,2390,2,2,1,12,0)
|
---|
3132 | Allowed image types is determined by ImageMagick utility
|
---|
3133 | "KRN",8994,2390,2,2,1,13,0)
|
---|
3134 | 'convert' installed on host linux system.
|
---|
3135 | "KRN",8994,2390,2,2,1,14,0)
|
---|
3136 |
|
---|
3137 | "KRN",8994,2390,2,2,1,15,0)
|
---|
3138 |
|
---|
3139 | "KRN",8994,2390,2,"B","MESSAGE",1)
|
---|
3140 |
|
---|
3141 | "KRN",8994,2390,2,"B","OPTION",2)
|
---|
3142 |
|
---|
3143 | "KRN",8994,2390,2,"PARAMSEQ",1,1)
|
---|
3144 |
|
---|
3145 | "KRN",8994,2390,2,"PARAMSEQ",2,2)
|
---|
3146 |
|
---|
3147 | "KRN",8994,2390,3,0)
|
---|
3148 | ^^23^23^3071227^^
|
---|
3149 | "KRN",8994,2390,3,1,0)
|
---|
3150 | By default, the returned image is the created barcode image in .png format.
|
---|
3151 | "KRN",8994,2390,3,2,0)
|
---|
3152 | See OPTION parameter regarding specifying other image formats.
|
---|
3153 | "KRN",8994,2390,3,3,0)
|
---|
3154 |
|
---|
3155 | "KRN",8994,2390,3,4,0)
|
---|
3156 | Regarding the data transfer itself:
|
---|
3157 | "KRN",8994,2390,3,5,0)
|
---|
3158 | The return value will be an array, with each node containing 512
|
---|
3159 | "KRN",8994,2390,3,6,0)
|
---|
3160 | bytes, encoded for ASCII transfer with a Base64 formula (an improvement
|
---|
3161 | "KRN",8994,2390,3,7,0)
|
---|
3162 | on UUENCODE functions)
|
---|
3163 | "KRN",8994,2390,3,8,0)
|
---|
3164 |
|
---|
3165 | "KRN",8994,2390,3,9,0)
|
---|
3166 | GREF(0)=1 <---- 1=valid 0=invalid (failure of load)
|
---|
3167 | "KRN",8994,2390,3,10,0)
|
---|
3168 | GREF(1)=";lakjsdasvoin;lkj32409u234,mnsdfoi239483....."
|
---|
3169 | "KRN",8994,2390,3,11,0)
|
---|
3170 | GREF(2)="987sdf,n09xc,/knm6flkhdgjkhsdo4ioidk,sdf....."
|
---|
3171 | "KRN",8994,2390,3,12,0)
|
---|
3172 | GREF(3)="asdoi,xmnsdkh98xd,.m3ddbdsgkhsdf=cxjkdgm ....."
|
---|
3173 | "KRN",8994,2390,3,13,0)
|
---|
3174 | ...
|
---|
3175 | "KRN",8994,2390,3,14,0)
|
---|
3176 |
|
---|
3177 | "KRN",8994,2390,3,15,0)
|
---|
3178 | Note: Here I am showing random ascii characters. But in actuality, each
|
---|
3179 | "KRN",8994,2390,3,16,0)
|
---|
3180 | position will hold only those characters used in the Base64 method.
|
---|
3181 | "KRN",8994,2390,3,17,0)
|
---|
3182 |
|
---|
3183 | "KRN",8994,2390,3,18,0)
|
---|
3184 | On the client RPCBroker end, the result will be stored in a TStringList,
|
---|
3185 | "KRN",8994,2390,3,19,0)
|
---|
3186 | with each line being stored in a separate index (i.e. Strings[i])
|
---|
3187 | "KRN",8994,2390,3,20,0)
|
---|
3188 |
|
---|
3189 | "KRN",8994,2390,3,21,0)
|
---|
3190 | Notice that when saving on the client side, the zero node,GREF(0), is NOT
|
---|
3191 | "KRN",8994,2390,3,22,0)
|
---|
3192 | part of the file, and should be discarded or otherwise not included in the
|
---|
3193 | "KRN",8994,2390,3,23,0)
|
---|
3194 | save.
|
---|
3195 | "KRN",8994,2391,-1)
|
---|
3196 | 0^3
|
---|
3197 | "KRN",8994,2391,0)
|
---|
3198 | TMG BARCODE DECODE^DECODEBC^TMGRPC1^1^^^^1^1
|
---|
3199 | "KRN",8994,2391,1,0)
|
---|
3200 | ^8994.01^5^5^3080102^^^^
|
---|
3201 | "KRN",8994,2391,1,1,0)
|
---|
3202 | This function will return the text encoded inside
|
---|
3203 | "KRN",8994,2391,1,2,0)
|
---|
3204 | barcode stored on an image that is uploaded to
|
---|
3205 | "KRN",8994,2391,1,3,0)
|
---|
3206 | function.
|
---|
3207 | "KRN",8994,2391,1,4,0)
|
---|
3208 |
|
---|
3209 | "KRN",8994,2391,1,5,0)
|
---|
3210 | Barcode must be in DataMatrix format.
|
---|
3211 | "KRN",8994,2391,2,0)
|
---|
3212 | ^8994.02A^2^2
|
---|
3213 | "KRN",8994,2391,2,1,0)
|
---|
3214 | ARRAY^2^^1^1
|
---|
3215 | "KRN",8994,2391,2,1,1,0)
|
---|
3216 | ^^21^21^3071227^^
|
---|
3217 | "KRN",8994,2391,2,1,1,1,0)
|
---|
3218 | This will be used for uploading the image that contains
|
---|
3219 | "KRN",8994,2391,2,1,1,2,0)
|
---|
3220 | the barcode for decoding.
|
---|
3221 | "KRN",8994,2391,2,1,1,3,0)
|
---|
3222 |
|
---|
3223 | "KRN",8994,2391,2,1,1,4,0)
|
---|
3224 | Default format for Image is a .png format. See OPTION
|
---|
3225 | "KRN",8994,2391,2,1,1,5,0)
|
---|
3226 | parameter for specifying Image to be in another format.
|
---|
3227 | "KRN",8994,2391,2,1,1,6,0)
|
---|
3228 |
|
---|
3229 | "KRN",8994,2391,2,1,1,7,0)
|
---|
3230 | Barcode should be a DataMatrix barcode.
|
---|
3231 | "KRN",8994,2391,2,1,1,8,0)
|
---|
3232 |
|
---|
3233 | "KRN",8994,2391,2,1,1,9,0)
|
---|
3234 | It is OK for the image to NOT contain a barcode. This
|
---|
3235 | "KRN",8994,2391,2,1,1,10,0)
|
---|
3236 | will cause a null value to be returned.
|
---|
3237 | "KRN",8994,2391,2,1,1,11,0)
|
---|
3238 |
|
---|
3239 | "KRN",8994,2391,2,1,1,12,0)
|
---|
3240 | Array Format:
|
---|
3241 | "KRN",8994,2391,2,1,1,13,0)
|
---|
3242 | For example:
|
---|
3243 | "KRN",8994,2391,2,1,1,14,0)
|
---|
3244 | ARRAY(0)= "(ascii encoude data in BASE64 format)"
|
---|
3245 | "KRN",8994,2391,2,1,1,15,0)
|
---|
3246 | ARRAY(0)= "(ascii encoude data in BASE64 format)"
|
---|
3247 | "KRN",8994,2391,2,1,1,16,0)
|
---|
3248 | ARRAY(1)= "(ascii encoude data in BASE64 format)"
|
---|
3249 | "KRN",8994,2391,2,1,1,17,0)
|
---|
3250 | ARRAY(2)= "(ascii encoude data in BASE64 format)"
|
---|
3251 | "KRN",8994,2391,2,1,1,18,0)
|
---|
3252 | ARRAY(3)= "(ascii encoude data in BASE64 format)"
|
---|
3253 | "KRN",8994,2391,2,1,1,19,0)
|
---|
3254 | ARRAY(4)= "(ascii encoude data in BASE64 format)"
|
---|
3255 | "KRN",8994,2391,2,1,1,20,0)
|
---|
3256 | ARRAY(5)= "(ascii encoude data in BASE64 format)"
|
---|
3257 | "KRN",8994,2391,2,1,1,21,0)
|
---|
3258 | ARRAY(6)= "(ascii encoude data in BASE64 format)"
|
---|
3259 | "KRN",8994,2391,2,2,0)
|
---|
3260 | IMGTYPE^1^^1^2
|
---|
3261 | "KRN",8994,2391,2,2,1,0)
|
---|
3262 | ^^10^10^3080102^^
|
---|
3263 | "KRN",8994,2391,2,2,1,1,0)
|
---|
3264 | This should be the type of the image held in ARRAY
|
---|
3265 | "KRN",8994,2391,2,2,1,2,0)
|
---|
3266 |
|
---|
3267 | "KRN",8994,2391,2,2,1,3,0)
|
---|
3268 | e.g. "jpg", or "JPG", or "tif" etc.
|
---|
3269 | "KRN",8994,2391,2,2,1,4,0)
|
---|
3270 |
|
---|
3271 | "KRN",8994,2391,2,2,1,5,0)
|
---|
3272 | NOTE: do not include the "." i.e. use "jpg", NOT ".jpg"
|
---|
3273 | "KRN",8994,2391,2,2,1,6,0)
|
---|
3274 |
|
---|
3275 | "KRN",8994,2391,2,2,1,7,0)
|
---|
3276 | Specified image type is NOT case sensitive.
|
---|
3277 | "KRN",8994,2391,2,2,1,8,0)
|
---|
3278 |
|
---|
3279 | "KRN",8994,2391,2,2,1,9,0)
|
---|
3280 | Allowed image types is determined by ImageMagick utility
|
---|
3281 | "KRN",8994,2391,2,2,1,10,0)
|
---|
3282 | 'convert' installed on host linux system.
|
---|
3283 | "KRN",8994,2391,2,"B","ARRAY",1)
|
---|
3284 |
|
---|
3285 | "KRN",8994,2391,2,"B","IMGTYPE",2)
|
---|
3286 |
|
---|
3287 | "KRN",8994,2391,2,"PARAMSEQ",1,1)
|
---|
3288 |
|
---|
3289 | "KRN",8994,2391,2,"PARAMSEQ",2,2)
|
---|
3290 |
|
---|
3291 | "KRN",8994,2391,3,0)
|
---|
3292 | ^8994.03^4^4^3080102^^^^
|
---|
3293 | "KRN",8994,2391,3,1,0)
|
---|
3294 | Value to be returned will be:
|
---|
3295 | "KRN",8994,2391,3,2,0)
|
---|
3296 |
|
---|
3297 | "KRN",8994,2391,3,3,0)
|
---|
3298 | 1^Decoded Message
|
---|
3299 | "KRN",8994,2391,3,4,0)
|
---|
3300 | 0^Failure Message
|
---|
3301 | "KRN",8994,2392,-1)
|
---|
3302 | 0^7
|
---|
3303 | "KRN",8994,2392,0)
|
---|
3304 | TMG DOWNLOAD FILE DROPBOX^DOWNDROP^TMGRPC1^1^^^^^1
|
---|
3305 | "KRN",8994,2392,1,0)
|
---|
3306 | ^8994.01^3^3^3080131^^^
|
---|
3307 | "KRN",8994,2392,1,1,0)
|
---|
3308 | This will cause a file to be transferred from the server's
|
---|
3309 | "KRN",8994,2392,1,2,0)
|
---|
3310 | private file storage location into the drop box location.
|
---|
3311 | "KRN",8994,2392,1,3,0)
|
---|
3312 |
|
---|
3313 | "KRN",8994,2392,2,0)
|
---|
3314 | ^8994.02A^3^3
|
---|
3315 | "KRN",8994,2392,2,1,0)
|
---|
3316 | FPATH^1^128^1^1
|
---|
3317 | "KRN",8994,2392,2,1,1,0)
|
---|
3318 | ^^26^26^3080131^^
|
---|
3319 | "KRN",8994,2392,2,1,1,1,0)
|
---|
3320 | The file path up to, but not including, the filename. This
|
---|
3321 | "KRN",8994,2392,2,1,1,2,0)
|
---|
3322 | is the path that the file is stored at on the server, relative
|
---|
3323 | "KRN",8994,2392,2,1,1,3,0)
|
---|
3324 | to a private server path.
|
---|
3325 | "KRN",8994,2392,2,1,1,4,0)
|
---|
3326 |
|
---|
3327 | "KRN",8994,2392,2,1,1,5,0)
|
---|
3328 | It is NOT the location of the dropbox path. (That is stored in
|
---|
3329 | "KRN",8994,2392,2,1,1,6,0)
|
---|
3330 | field 22702 in file 2005.2)
|
---|
3331 | "KRN",8994,2392,2,1,1,7,0)
|
---|
3332 |
|
---|
3333 | "KRN",8994,2392,2,1,1,8,0)
|
---|
3334 | For security reasons, all path requests will be considered relative to a root path.
|
---|
3335 | "KRN",8994,2392,2,1,1,9,0)
|
---|
3336 | e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
3337 | "KRN",8994,2392,2,1,1,10,0)
|
---|
3338 | /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
3339 | "KRN",8994,2392,2,1,1,11,0)
|
---|
3340 |
|
---|
3341 | "KRN",8994,2392,2,1,1,12,0)
|
---|
3342 | This root path is found in custom field 22701 in file 2005.2
|
---|
3343 | "KRN",8994,2392,2,1,1,13,0)
|
---|
3344 | Note Also: dropbox location is obtained from custom field 22702 in file 2005.2
|
---|
3345 | "KRN",8994,2392,2,1,1,14,0)
|
---|
3346 |
|
---|
3347 | "KRN",8994,2392,2,1,1,15,0)
|
---|
3348 | So for input:
|
---|
3349 | "KRN",8994,2392,2,1,1,16,0)
|
---|
3350 | FPATH = /download/
|
---|
3351 | "KRN",8994,2392,2,1,1,17,0)
|
---|
3352 | FNAME = SomeFile.jpg
|
---|
3353 | "KRN",8994,2392,2,1,1,18,0)
|
---|
3354 |
|
---|
3355 | "KRN",8994,2392,2,1,1,19,0)
|
---|
3356 | And configurations:
|
---|
3357 | "KRN",8994,2392,2,1,1,20,0)
|
---|
3358 | field 22701 = /var/local/Dir1/Dir2
|
---|
3359 | "KRN",8994,2392,2,1,1,21,0)
|
---|
3360 | field 22702 = /mnt/WinServer/DropBox/
|
---|
3361 | "KRN",8994,2392,2,1,1,22,0)
|
---|
3362 |
|
---|
3363 | "KRN",8994,2392,2,1,1,23,0)
|
---|
3364 | Then file:
|
---|
3365 | "KRN",8994,2392,2,1,1,24,0)
|
---|
3366 | /var/local/Dir1/dir2/download/SomeFile.jpg
|
---|
3367 | "KRN",8994,2392,2,1,1,25,0)
|
---|
3368 | will be moved to
|
---|
3369 | "KRN",8994,2392,2,1,1,26,0)
|
---|
3370 | /mnt/WinServer/DropBox/SomeFile.jpg
|
---|
3371 | "KRN",8994,2392,2,2,0)
|
---|
3372 | FNAME^1^128^1^2
|
---|
3373 | "KRN",8994,2392,2,2,1,0)
|
---|
3374 | ^8994.021^3^3^3080131^^^
|
---|
3375 | "KRN",8994,2392,2,2,1,1,0)
|
---|
3376 | This is the filename to be transferred, without any path
|
---|
3377 | "KRN",8994,2392,2,2,1,2,0)
|
---|
3378 | specifications.
|
---|
3379 | "KRN",8994,2392,2,2,1,3,0)
|
---|
3380 | See help for FNAME parameter for more details.
|
---|
3381 | "KRN",8994,2392,2,3,0)
|
---|
3382 | LOCIEN^1^16^0^3
|
---|
3383 | "KRN",8994,2392,2,3,1,0)
|
---|
3384 | ^8994.021^13^13^3080131^^^
|
---|
3385 | "KRN",8994,2392,2,3,1,1,0)
|
---|
3386 | [optional] --
|
---|
3387 | "KRN",8994,2392,2,3,1,2,0)
|
---|
3388 |
|
---|
3389 | "KRN",8994,2392,2,3,1,3,0)
|
---|
3390 | This is the IEN from file 2005.2 (network location) to obtain
|
---|
3391 | "KRN",8994,2392,2,3,1,4,0)
|
---|
3392 | folder path and drive information from.
|
---|
3393 | "KRN",8994,2392,2,3,1,5,0)
|
---|
3394 |
|
---|
3395 | "KRN",8994,2392,2,3,1,6,0)
|
---|
3396 | Default value is 1
|
---|
3397 | "KRN",8994,2392,2,3,1,7,0)
|
---|
3398 |
|
---|
3399 | "KRN",8994,2392,2,3,1,8,0)
|
---|
3400 | Note: For security reasons, all path requests will be considered relative to a root path.
|
---|
3401 | "KRN",8994,2392,2,3,1,9,0)
|
---|
3402 | e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
3403 | "KRN",8994,2392,2,3,1,10,0)
|
---|
3404 | /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
3405 | "KRN",8994,2392,2,3,1,11,0)
|
---|
3406 | This root path is found in custom field 22701 in file 2005.2
|
---|
3407 | "KRN",8994,2392,2,3,1,12,0)
|
---|
3408 | Also: dropbox location is obtained from custom field 22702 in file 2005.2
|
---|
3409 | "KRN",8994,2392,2,3,1,13,0)
|
---|
3410 |
|
---|
3411 | "KRN",8994,2392,2,"B","FNAME",2)
|
---|
3412 |
|
---|
3413 | "KRN",8994,2392,2,"B","FPATH",1)
|
---|
3414 |
|
---|
3415 | "KRN",8994,2392,2,"B","LOCIEN",3)
|
---|
3416 |
|
---|
3417 | "KRN",8994,2392,2,"PARAMSEQ",1,1)
|
---|
3418 |
|
---|
3419 | "KRN",8994,2392,2,"PARAMSEQ",2,2)
|
---|
3420 |
|
---|
3421 | "KRN",8994,2392,2,"PARAMSEQ",3,3)
|
---|
3422 |
|
---|
3423 | "KRN",8994,2392,3,0)
|
---|
3424 | ^8994.03^5^5^3080131^^^^
|
---|
3425 | "KRN",8994,2392,3,1,0)
|
---|
3426 | Returns:
|
---|
3427 | "KRN",8994,2392,3,2,0)
|
---|
3428 | 1^Successful Download <-- file is ready in dropbox
|
---|
3429 | "KRN",8994,2392,3,3,0)
|
---|
3430 | or
|
---|
3431 | "KRN",8994,2392,3,4,0)
|
---|
3432 | 0^Error message
|
---|
3433 | "KRN",8994,2392,3,5,0)
|
---|
3434 |
|
---|
3435 | "KRN",8994,2393,-1)
|
---|
3436 | 0^16
|
---|
3437 | "KRN",8994,2393,0)
|
---|
3438 | TMG UPLOAD FILE DROPBOX^UPLDDROP^TMGRPC1^1^^^^^1
|
---|
3439 | "KRN",8994,2393,1,0)
|
---|
3440 | ^8994.01^3^3^3080131^^^
|
---|
3441 | "KRN",8994,2393,1,1,0)
|
---|
3442 | This will cause a file to be transferred from the drop box
|
---|
3443 | "KRN",8994,2393,1,2,0)
|
---|
3444 | location into the server's private file storage location.
|
---|
3445 | "KRN",8994,2393,1,3,0)
|
---|
3446 |
|
---|
3447 | "KRN",8994,2393,2,0)
|
---|
3448 | ^8994.02A^3^3
|
---|
3449 | "KRN",8994,2393,2,1,0)
|
---|
3450 | FPATH^1^128^1^1
|
---|
3451 | "KRN",8994,2393,2,1,1,0)
|
---|
3452 | ^^29^29^3080131^^
|
---|
3453 | "KRN",8994,2393,2,1,1,1,0)
|
---|
3454 | The file path up to, but not including, the filename.
|
---|
3455 | "KRN",8994,2393,2,1,1,2,0)
|
---|
3456 |
|
---|
3457 | "KRN",8994,2393,2,1,1,3,0)
|
---|
3458 | This is the path that the server is to store the file in,
|
---|
3459 | "KRN",8994,2393,2,1,1,4,0)
|
---|
3460 | relative to a private server path.
|
---|
3461 | "KRN",8994,2393,2,1,1,5,0)
|
---|
3462 | It is NOT the location of the dropbox path. (That is stored in
|
---|
3463 | "KRN",8994,2393,2,1,1,6,0)
|
---|
3464 | field 22702 in file 2005.2)
|
---|
3465 | "KRN",8994,2393,2,1,1,7,0)
|
---|
3466 |
|
---|
3467 | "KRN",8994,2393,2,1,1,8,0)
|
---|
3468 | For security reasons, all path requests will be considered
|
---|
3469 | "KRN",8994,2393,2,1,1,9,0)
|
---|
3470 | relative to a root path.
|
---|
3471 | "KRN",8994,2393,2,1,1,10,0)
|
---|
3472 | e.g. if user asks to store at /download/SomeFile.jpg, this
|
---|
3473 | "KRN",8994,2393,2,1,1,11,0)
|
---|
3474 | function will store the file at:
|
---|
3475 | "KRN",8994,2393,2,1,1,12,0)
|
---|
3476 | /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
3477 | "KRN",8994,2393,2,1,1,13,0)
|
---|
3478 |
|
---|
3479 | "KRN",8994,2393,2,1,1,14,0)
|
---|
3480 | This root path is found in custom field 22701 in file 2005.2
|
---|
3481 | "KRN",8994,2393,2,1,1,15,0)
|
---|
3482 | Note Also: dropbox location is obtained from custom field 22702 in file 2005.2
|
---|
3483 | "KRN",8994,2393,2,1,1,16,0)
|
---|
3484 |
|
---|
3485 | "KRN",8994,2393,2,1,1,17,0)
|
---|
3486 | So for input:
|
---|
3487 | "KRN",8994,2393,2,1,1,18,0)
|
---|
3488 | FPATH = /download/
|
---|
3489 | "KRN",8994,2393,2,1,1,19,0)
|
---|
3490 | FNAME = SomeFile.jpg
|
---|
3491 | "KRN",8994,2393,2,1,1,20,0)
|
---|
3492 |
|
---|
3493 | "KRN",8994,2393,2,1,1,21,0)
|
---|
3494 | And configurations:
|
---|
3495 | "KRN",8994,2393,2,1,1,22,0)
|
---|
3496 | field 22701 = /var/local/Dir1/Dir2
|
---|
3497 | "KRN",8994,2393,2,1,1,23,0)
|
---|
3498 | field 22702 = /mnt/WinServer/DropBox/
|
---|
3499 | "KRN",8994,2393,2,1,1,24,0)
|
---|
3500 |
|
---|
3501 | "KRN",8994,2393,2,1,1,25,0)
|
---|
3502 |
|
---|
3503 | "KRN",8994,2393,2,1,1,26,0)
|
---|
3504 | Then file:
|
---|
3505 | "KRN",8994,2393,2,1,1,27,0)
|
---|
3506 | /mnt/WinServer/DropBox/SomeFile.jpg <-- the drop box
|
---|
3507 | "KRN",8994,2393,2,1,1,28,0)
|
---|
3508 | will be moved to
|
---|
3509 | "KRN",8994,2393,2,1,1,29,0)
|
---|
3510 | /var/local/Dir1/dir2/download/SomeFile.jpg <--- the private store location
|
---|
3511 | "KRN",8994,2393,2,2,0)
|
---|
3512 | FNAME^1^128^1^2
|
---|
3513 | "KRN",8994,2393,2,2,1,0)
|
---|
3514 | ^^4^4^3080131^^
|
---|
3515 | "KRN",8994,2393,2,2,1,1,0)
|
---|
3516 | This is the filename to be transferred, without any path
|
---|
3517 | "KRN",8994,2393,2,2,1,2,0)
|
---|
3518 | specifications.
|
---|
3519 | "KRN",8994,2393,2,2,1,3,0)
|
---|
3520 |
|
---|
3521 | "KRN",8994,2393,2,2,1,4,0)
|
---|
3522 | See help for FNAME parameter for more details.
|
---|
3523 | "KRN",8994,2393,2,3,0)
|
---|
3524 | LOCIEN^1^16^0^3
|
---|
3525 | "KRN",8994,2393,2,3,1,0)
|
---|
3526 | ^8994.021^12^12^3080131^^^
|
---|
3527 | "KRN",8994,2393,2,3,1,1,0)
|
---|
3528 | [optional] --
|
---|
3529 | "KRN",8994,2393,2,3,1,2,0)
|
---|
3530 |
|
---|
3531 | "KRN",8994,2393,2,3,1,3,0)
|
---|
3532 | This is the IEN from file 2005.2 (network location) to obtain
|
---|
3533 | "KRN",8994,2393,2,3,1,4,0)
|
---|
3534 | folder path and drive information from.
|
---|
3535 | "KRN",8994,2393,2,3,1,5,0)
|
---|
3536 |
|
---|
3537 | "KRN",8994,2393,2,3,1,6,0)
|
---|
3538 | Default value is 1
|
---|
3539 | "KRN",8994,2393,2,3,1,7,0)
|
---|
3540 |
|
---|
3541 | "KRN",8994,2393,2,3,1,8,0)
|
---|
3542 | Note: For security reasons, all path requests will be considered relative to a root path.
|
---|
3543 | "KRN",8994,2393,2,3,1,9,0)
|
---|
3544 | e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
3545 | "KRN",8994,2393,2,3,1,10,0)
|
---|
3546 | /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
3547 | "KRN",8994,2393,2,3,1,11,0)
|
---|
3548 | This root path is found in custom field 22701 in file 2005.2
|
---|
3549 | "KRN",8994,2393,2,3,1,12,0)
|
---|
3550 | Also: dropbox location is obtained from custom field 22702 in file 2005.2
|
---|
3551 | "KRN",8994,2393,2,"B","FNAME",2)
|
---|
3552 |
|
---|
3553 | "KRN",8994,2393,2,"B","FPATH",1)
|
---|
3554 |
|
---|
3555 | "KRN",8994,2393,2,"B","LOCIEN",3)
|
---|
3556 |
|
---|
3557 | "KRN",8994,2393,2,"PARAMSEQ",1,1)
|
---|
3558 |
|
---|
3559 | "KRN",8994,2393,2,"PARAMSEQ",2,2)
|
---|
3560 |
|
---|
3561 | "KRN",8994,2393,2,"PARAMSEQ",3,3)
|
---|
3562 |
|
---|
3563 | "KRN",8994,2393,3,0)
|
---|
3564 | ^^4^4^3080131^^
|
---|
3565 | "KRN",8994,2393,3,1,0)
|
---|
3566 | Results:
|
---|
3567 | "KRN",8994,2393,3,2,0)
|
---|
3568 |
|
---|
3569 | "KRN",8994,2393,3,3,0)
|
---|
3570 | 1^SuccessMessage <-- file uploaded from dropbox
|
---|
3571 | "KRN",8994,2393,3,4,0)
|
---|
3572 | 0^FailureMessage
|
---|
3573 | "KRN",8994,2394,-1)
|
---|
3574 | 0^5
|
---|
3575 | "KRN",8994,2394,0)
|
---|
3576 | TMG CPRS GET URL LIST^GETURLS^TMGRPC1^2^P^^^1^1
|
---|
3577 | "KRN",8994,2394,1,0)
|
---|
3578 | ^8994.01^2^2^3080618^^^^
|
---|
3579 | "KRN",8994,2394,1,1,0)
|
---|
3580 | CPRS can call this to get a list of URL's to display from inside CPRS.
|
---|
3581 | "KRN",8994,2394,1,2,0)
|
---|
3582 | These URL's will be displayed inside custom tabs in CPRS.
|
---|
3583 | "KRN",8994,2394,2,0)
|
---|
3584 | ^8994.02A^^0
|
---|
3585 | "KRN",8994,2394,3,0)
|
---|
3586 | ^8994.03^5^5^3080618^^^^
|
---|
3587 | "KRN",8994,2394,3,1,0)
|
---|
3588 | Results are returned as follows:
|
---|
3589 | "KRN",8994,2394,3,2,0)
|
---|
3590 | RESULT(0)="1^Success" or "0^SomeErrorMessage"
|
---|
3591 | "KRN",8994,2394,3,3,0)
|
---|
3592 | RESULT(1)="CNN^www.cnn.com" ;display www.cnn.com on tab #1, named 'CNN'
|
---|
3593 | "KRN",8994,2394,3,4,0)
|
---|
3594 | RESULT(2)="^about:blank" ;display a blank page on tab #2, with name of ''
|
---|
3595 | "KRN",8994,2394,3,5,0)
|
---|
3596 | RESULT(3)="^<!HIDE!>" ;hide tab #3, with name of ''
|
---|
3597 | "KRN",8994,2497,-1)
|
---|
3598 | 0^13
|
---|
3599 | "KRN",8994,2497,0)
|
---|
3600 | TMG INIFILE SET^SETINIVL^TMGRPC1A^1^P^^^1^1
|
---|
3601 | "KRN",8994,2497,1,0)
|
---|
3602 | ^8994.01^17^17^3100211^^
|
---|
3603 | "KRN",8994,2497,1,1,0)
|
---|
3604 |
|
---|
3605 | "KRN",8994,2497,1,2,0)
|
---|
3606 | This will allow server-side storage is client options,
|
---|
3607 | "KRN",8994,2497,1,3,0)
|
---|
3608 | similar to .ini files on Microsoft Windows programs.
|
---|
3609 | "KRN",8994,2497,1,4,0)
|
---|
3610 |
|
---|
3611 | "KRN",8994,2497,1,5,0)
|
---|
3612 | Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
3613 | "KRN",8994,2497,1,6,0)
|
---|
3614 | will use this instead of TIniFile object in Delphi.
|
---|
3615 | "KRN",8994,2497,1,7,0)
|
---|
3616 | Note: Since all data are of type string in Mumps, this will work only with strings.
|
---|
3617 | "KRN",8994,2497,1,8,0)
|
---|
3618 | and type casting will have to take place in client.
|
---|
3619 | "KRN",8994,2497,1,9,0)
|
---|
3620 | Input: RESULT -- an OUT PARAMETER. See output below.
|
---|
3621 | "KRN",8994,2497,1,10,0)
|
---|
3622 | SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
|
---|
3623 | "KRN",8994,2497,1,11,0)
|
---|
3624 | KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
|
---|
3625 | "KRN",8994,2497,1,12,0)
|
---|
3626 | VALUE -- String of Value to set
|
---|
3627 | "KRN",8994,2497,1,13,0)
|
---|
3628 | Note: Data will be stored in: ^TMG("INIDATA",Section,Key,Vaue)
|
---|
3629 | "KRN",8994,2497,1,14,0)
|
---|
3630 | And because this is a shared resource, it is expected that the client will use
|
---|
3631 | "KRN",8994,2497,1,15,0)
|
---|
3632 | User.Name as the Section value.
|
---|
3633 | "KRN",8994,2497,1,16,0)
|
---|
3634 | Also, any prior value will be overwritten.
|
---|
3635 | "KRN",8994,2497,1,17,0)
|
---|
3636 | Output: Will return RESULT="1^Success", or -1^Error Message"
|
---|
3637 | "KRN",8994,2497,2,0)
|
---|
3638 | ^8994.02A^3^3
|
---|
3639 | "KRN",8994,2497,2,1,0)
|
---|
3640 | SECTION^1^32^1^1
|
---|
3641 | "KRN",8994,2497,2,1,1,0)
|
---|
3642 | ^^2^2^3100211^^
|
---|
3643 | "KRN",8994,2497,2,1,1,1,0)
|
---|
3644 | String of 'Section' to store setting in
|
---|
3645 | "KRN",8994,2497,2,1,1,2,0)
|
---|
3646 | (corresponds to 'Section' in TIniFile)
|
---|
3647 | "KRN",8994,2497,2,2,0)
|
---|
3648 | KEY^1^32^1^2
|
---|
3649 | "KRN",8994,2497,2,2,1,0)
|
---|
3650 | ^^1^1^3100211^^
|
---|
3651 | "KRN",8994,2497,2,2,1,1,0)
|
---|
3652 | String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
|
---|
3653 | "KRN",8994,2497,2,3,0)
|
---|
3654 | VALUE^1^256^1^3
|
---|
3655 | "KRN",8994,2497,2,3,1,0)
|
---|
3656 | ^^1^1^3100211^^
|
---|
3657 | "KRN",8994,2497,2,3,1,1,0)
|
---|
3658 | String of Value to set
|
---|
3659 | "KRN",8994,2497,2,"B","KEY",2)
|
---|
3660 |
|
---|
3661 | "KRN",8994,2497,2,"B","SECTION",1)
|
---|
3662 |
|
---|
3663 | "KRN",8994,2497,2,"B","VALUE",3)
|
---|
3664 |
|
---|
3665 | "KRN",8994,2497,2,"PARAMSEQ",1,1)
|
---|
3666 |
|
---|
3667 | "KRN",8994,2497,2,"PARAMSEQ",2,2)
|
---|
3668 |
|
---|
3669 | "KRN",8994,2497,2,"PARAMSEQ",3,3)
|
---|
3670 |
|
---|
3671 | "KRN",8994,2497,3,0)
|
---|
3672 | ^^1^1^3100211^^
|
---|
3673 | "KRN",8994,2497,3,1,0)
|
---|
3674 | Will return RESULT="1^Success", or -1^Error Message"
|
---|
3675 | "KRN",8994,2498,-1)
|
---|
3676 | 0^12
|
---|
3677 | "KRN",8994,2498,0)
|
---|
3678 | TMG INIFILE GET^GETINIVL^TMGRPC1A^1^P^^^1^1
|
---|
3679 | "KRN",8994,2498,1,0)
|
---|
3680 | ^8994.01^16^16^3100211^^^
|
---|
3681 | "KRN",8994,2498,1,1,0)
|
---|
3682 | This will allow server-side storage is client options,
|
---|
3683 | "KRN",8994,2498,1,2,0)
|
---|
3684 | similar to .ini files on Microsoft Windows programs.
|
---|
3685 | "KRN",8994,2498,1,3,0)
|
---|
3686 |
|
---|
3687 | "KRN",8994,2498,1,4,0)
|
---|
3688 | Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
3689 | "KRN",8994,2498,1,5,0)
|
---|
3690 | will use this instead of TIniFile object in Delphi.
|
---|
3691 | "KRN",8994,2498,1,6,0)
|
---|
3692 | Note: Since all data are of type string in Mumps, this will work only with strings.
|
---|
3693 | "KRN",8994,2498,1,7,0)
|
---|
3694 | and type casting will have to take place in client.
|
---|
3695 | "KRN",8994,2498,1,8,0)
|
---|
3696 | Input: RESULT -- an OUT PARAMETER. See output below
|
---|
3697 | "KRN",8994,2498,1,9,0)
|
---|
3698 | SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
|
---|
3699 | "KRN",8994,2498,1,10,0)
|
---|
3700 | KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
|
---|
3701 | "KRN",8994,2498,1,11,0)
|
---|
3702 | DEFAULT -- The value to be returned, if no value found.
|
---|
3703 | "KRN",8994,2498,1,12,0)
|
---|
3704 | Note: Data will be strored in: ^TMG("INIDATA",Section,Key,Vaue)
|
---|
3705 | "KRN",8994,2498,1,13,0)
|
---|
3706 | And because this is a shared resource, it is expected that the client will use
|
---|
3707 | "KRN",8994,2498,1,14,0)
|
---|
3708 | User.Name as the Section value.
|
---|
3709 | "KRN",8994,2498,1,15,0)
|
---|
3710 | Also, any prior value will be overwritten.
|
---|
3711 | "KRN",8994,2498,1,16,0)
|
---|
3712 | Output: Will return RESULT(0)="1^<Value>", or -1^Error Message"
|
---|
3713 | "KRN",8994,2498,2,0)
|
---|
3714 | ^8994.02A^3^3
|
---|
3715 | "KRN",8994,2498,2,1,0)
|
---|
3716 | SECTION^1^32^1^1
|
---|
3717 | "KRN",8994,2498,2,1,1,0)
|
---|
3718 | ^^3^3^3100211^^
|
---|
3719 | "KRN",8994,2498,2,1,1,1,0)
|
---|
3720 |
|
---|
3721 | "KRN",8994,2498,2,1,1,2,0)
|
---|
3722 | String of 'Section' to store setting in
|
---|
3723 | "KRN",8994,2498,2,1,1,3,0)
|
---|
3724 | (corresponds to 'Section' in TIniFile)
|
---|
3725 | "KRN",8994,2498,2,2,0)
|
---|
3726 | KEY^1^32^1^2
|
---|
3727 | "KRN",8994,2498,2,2,1,0)
|
---|
3728 | ^^2^2^3100211^^
|
---|
3729 | "KRN",8994,2498,2,2,1,1,0)
|
---|
3730 |
|
---|
3731 | "KRN",8994,2498,2,2,1,2,0)
|
---|
3732 | String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
|
---|
3733 | "KRN",8994,2498,2,3,0)
|
---|
3734 | DEFAULT^1^256^0^3
|
---|
3735 | "KRN",8994,2498,2,3,1,0)
|
---|
3736 | ^8994.021^1^1^3100211^^^
|
---|
3737 | "KRN",8994,2498,2,3,1,1,0)
|
---|
3738 | The value to be returned, if no value found.
|
---|
3739 | "KRN",8994,2498,2,"B","DEFAULT",3)
|
---|
3740 |
|
---|
3741 | "KRN",8994,2498,2,"B","KEY",2)
|
---|
3742 |
|
---|
3743 | "KRN",8994,2498,2,"B","SECTION",1)
|
---|
3744 |
|
---|
3745 | "KRN",8994,2498,2,"PARAMSEQ",1,1)
|
---|
3746 |
|
---|
3747 | "KRN",8994,2498,2,"PARAMSEQ",2,2)
|
---|
3748 |
|
---|
3749 | "KRN",8994,2498,2,"PARAMSEQ",3,3)
|
---|
3750 |
|
---|
3751 | "KRN",8994,2498,3,0)
|
---|
3752 | ^8994.03^2^2^3100211^^^
|
---|
3753 | "KRN",8994,2498,3,1,0)
|
---|
3754 | Will return RESULT="1^<Value>", or -1^Error Message"
|
---|
3755 | "KRN",8994,2498,3,2,0)
|
---|
3756 | <Value> is the desired value.
|
---|
3757 | "MBREQ")
|
---|
3758 | 0
|
---|
3759 | "ORD",16,8994)
|
---|
3760 | 8994;16;1;;;;;;;RPCDEL^XPDIA1
|
---|
3761 | "ORD",16,8994,0)
|
---|
3762 | REMOTE PROCEDURE
|
---|
3763 | "ORD",18,19)
|
---|
3764 | 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
|
---|
3765 | "ORD",18,19,0)
|
---|
3766 | OPTION
|
---|
3767 | "QUES","XPF1",0)
|
---|
3768 | Y
|
---|
3769 | "QUES","XPF1","??")
|
---|
3770 | ^D REP^XPDH
|
---|
3771 | "QUES","XPF1","A")
|
---|
3772 | Shall I write over your |FLAG| File
|
---|
3773 | "QUES","XPF1","B")
|
---|
3774 | YES
|
---|
3775 | "QUES","XPF1","M")
|
---|
3776 | D XPF1^XPDIQ
|
---|
3777 | "QUES","XPF2",0)
|
---|
3778 | Y
|
---|
3779 | "QUES","XPF2","??")
|
---|
3780 | ^D DTA^XPDH
|
---|
3781 | "QUES","XPF2","A")
|
---|
3782 | Want my data |FLAG| yours
|
---|
3783 | "QUES","XPF2","B")
|
---|
3784 | YES
|
---|
3785 | "QUES","XPF2","M")
|
---|
3786 | D XPF2^XPDIQ
|
---|
3787 | "QUES","XPI1",0)
|
---|
3788 | YO
|
---|
3789 | "QUES","XPI1","??")
|
---|
3790 | ^D INHIBIT^XPDH
|
---|
3791 | "QUES","XPI1","A")
|
---|
3792 | Want KIDS to INHIBIT LOGONs during the install
|
---|
3793 | "QUES","XPI1","B")
|
---|
3794 | NO
|
---|
3795 | "QUES","XPI1","M")
|
---|
3796 | D XPI1^XPDIQ
|
---|
3797 | "QUES","XPM1",0)
|
---|
3798 | PO^VA(200,:EM
|
---|
3799 | "QUES","XPM1","??")
|
---|
3800 | ^D MG^XPDH
|
---|
3801 | "QUES","XPM1","A")
|
---|
3802 | Enter the Coordinator for Mail Group '|FLAG|'
|
---|
3803 | "QUES","XPM1","B")
|
---|
3804 |
|
---|
3805 | "QUES","XPM1","M")
|
---|
3806 | D XPM1^XPDIQ
|
---|
3807 | "QUES","XPO1",0)
|
---|
3808 | Y
|
---|
3809 | "QUES","XPO1","??")
|
---|
3810 | ^D MENU^XPDH
|
---|
3811 | "QUES","XPO1","A")
|
---|
3812 | Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
---|
3813 | "QUES","XPO1","B")
|
---|
3814 | NO
|
---|
3815 | "QUES","XPO1","M")
|
---|
3816 | D XPO1^XPDIQ
|
---|
3817 | "QUES","XPZ1",0)
|
---|
3818 | Y
|
---|
3819 | "QUES","XPZ1","??")
|
---|
3820 | ^D OPT^XPDH
|
---|
3821 | "QUES","XPZ1","A")
|
---|
3822 | Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
---|
3823 | "QUES","XPZ1","B")
|
---|
3824 | NO
|
---|
3825 | "QUES","XPZ1","M")
|
---|
3826 | D XPZ1^XPDIQ
|
---|
3827 | "QUES","XPZ2",0)
|
---|
3828 | Y
|
---|
3829 | "QUES","XPZ2","??")
|
---|
3830 | ^D RTN^XPDH
|
---|
3831 | "QUES","XPZ2","A")
|
---|
3832 | Want to MOVE routines to other CPUs
|
---|
3833 | "QUES","XPZ2","B")
|
---|
3834 | NO
|
---|
3835 | "QUES","XPZ2","M")
|
---|
3836 | D XPZ2^XPDIQ
|
---|
3837 | "RTN")
|
---|
3838 | 2
|
---|
3839 | "RTN","TMGRPC1")
|
---|
3840 | 0^1^B224963
|
---|
3841 | "RTN","TMGRPC1",1,0)
|
---|
3842 | TMGRPC1 ;TMG/kst-RPC Functions ;03/25/06
|
---|
3843 | "RTN","TMGRPC1",2,0)
|
---|
3844 | ;;1.0;TMG-LIB;**1**;08/18/09;Build 2
|
---|
3845 | "RTN","TMGRPC1",3,0)
|
---|
3846 |
|
---|
3847 | "RTN","TMGRPC1",4,0)
|
---|
3848 | ;"TMG RPC FUNCTIONS
|
---|
3849 | "RTN","TMGRPC1",5,0)
|
---|
3850 |
|
---|
3851 | "RTN","TMGRPC1",6,0)
|
---|
3852 | ;"Kevin Toppenberg MD
|
---|
3853 | "RTN","TMGRPC1",7,0)
|
---|
3854 | ;"GNU General Public License (GPL) applies
|
---|
3855 | "RTN","TMGRPC1",8,0)
|
---|
3856 | ;"3/24/07
|
---|
3857 | "RTN","TMGRPC1",9,0)
|
---|
3858 |
|
---|
3859 | "RTN","TMGRPC1",10,0)
|
---|
3860 | ;"=======================================================================
|
---|
3861 | "RTN","TMGRPC1",11,0)
|
---|
3862 | ;" RPC -- Public Functions.
|
---|
3863 | "RTN","TMGRPC1",12,0)
|
---|
3864 | ;"=======================================================================
|
---|
3865 | "RTN","TMGRPC1",13,0)
|
---|
3866 | ;"DOWNLOAD(GREF,FPATH,FNAME,LOCIEN)
|
---|
3867 | "RTN","TMGRPC1",14,0)
|
---|
3868 | ;"UPLOAD(RESULT,FPATH,FNAME,LOCIEN,ARRAY)
|
---|
3869 | "RTN","TMGRPC1",15,0)
|
---|
3870 | ;"DOWNDROP(RESULT,FPATH,FNAME,LOCIEN) -- Download drop box file
|
---|
3871 | "RTN","TMGRPC1",16,0)
|
---|
3872 | ;"UPLDDROP(RESULT,FPATH,FNAME,LOCIEN) -- Upload Dropbox File
|
---|
3873 | "RTN","TMGRPC1",17,0)
|
---|
3874 | ;"GETLONG(GREF,IMAGEIEN)
|
---|
3875 | "RTN","TMGRPC1",18,0)
|
---|
3876 | ;"GETDFN(RESULT,RECNUM,RECFIELD,LNAME,FNAME,MNAME,DOB,SEX,SSNUM)
|
---|
3877 | "RTN","TMGRPC1",19,0)
|
---|
3878 | ;"BLANKTIU(RESULT,DFN,PERSON,LOC,DOS,TITLE)
|
---|
3879 | "RTN","TMGRPC1",20,0)
|
---|
3880 | ;"AUTOSIGN(RESULT,DOCIEN)
|
---|
3881 | "RTN","TMGRPC1",21,0)
|
---|
3882 | ;"FNINFO(RESULT,DFN) -- GET PATIENT DEMOGRAPHICS
|
---|
3883 | "RTN","TMGRPC1",22,0)
|
---|
3884 | ;"PTADD(RESULT,INFO) -- ADD PATIENT
|
---|
3885 | "RTN","TMGRPC1",23,0)
|
---|
3886 | ;"STPTINFO(RESULT,DFN,INFO) -- SET PATIENT DEMOGRAPHICS
|
---|
3887 | "RTN","TMGRPC1",24,0)
|
---|
3888 | ;"GETURLS(RESULT) -- TMG CPRS GET URL LIST
|
---|
3889 | "RTN","TMGRPC1",25,0)
|
---|
3890 |
|
---|
3891 | "RTN","TMGRPC1",26,0)
|
---|
3892 | ;"=======================================================================
|
---|
3893 | "RTN","TMGRPC1",27,0)
|
---|
3894 | ;"PRIVATE API FUNCTIONS
|
---|
3895 | "RTN","TMGRPC1",28,0)
|
---|
3896 | ;"=======================================================================
|
---|
3897 | "RTN","TMGRPC1",29,0)
|
---|
3898 | ;"ENCODE(GRef,incSubscr,encodeFn)
|
---|
3899 | "RTN","TMGRPC1",30,0)
|
---|
3900 | ;"DECODE(GRef,incSubscr,decodeFn)
|
---|
3901 | "RTN","TMGRPC1",31,0)
|
---|
3902 | ;"$$HEXCODER(INPUT) ;"encode the input string. Currently using simple hex encoding/
|
---|
3903 | "RTN","TMGRPC1",32,0)
|
---|
3904 | ;"$$B64CODER(INPUT) ;"encode the input string via UUENCODE (actually Base64)
|
---|
3905 | "RTN","TMGRPC1",33,0)
|
---|
3906 | ;"$$B64DECODER(INPUT) ;"encode the input string via UUDECODE (actually Base64)
|
---|
3907 | "RTN","TMGRPC1",34,0)
|
---|
3908 |
|
---|
3909 | "RTN","TMGRPC1",35,0)
|
---|
3910 | ;"=======================================================================
|
---|
3911 | "RTN","TMGRPC1",36,0)
|
---|
3912 | ;"=======================================================================
|
---|
3913 | "RTN","TMGRPC1",37,0)
|
---|
3914 | ;"Dependencies:
|
---|
3915 | "RTN","TMGRPC1",38,0)
|
---|
3916 | ;"TMGBINF
|
---|
3917 | "RTN","TMGRPC1",39,0)
|
---|
3918 | ;"TMGSTUTL
|
---|
3919 | "RTN","TMGRPC1",40,0)
|
---|
3920 | ;"RGUTUU
|
---|
3921 | "RTN","TMGRPC1",41,0)
|
---|
3922 | ;"=======================================================================
|
---|
3923 | "RTN","TMGRPC1",42,0)
|
---|
3924 | ;"=======================================================================
|
---|
3925 | "RTN","TMGRPC1",43,0)
|
---|
3926 |
|
---|
3927 | "RTN","TMGRPC1",44,0)
|
---|
3928 | DOWNLOAD(GREF,FPATH,FNAME,LOCIEN)
|
---|
3929 | "RTN","TMGRPC1",45,0)
|
---|
3930 | ;"SCOPE: Public
|
---|
3931 | "RTN","TMGRPC1",46,0)
|
---|
3932 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
3933 | "RTN","TMGRPC1",47,0)
|
---|
3934 | ;" will ask for a given file, and it will be passed back in the form
|
---|
3935 | "RTN","TMGRPC1",48,0)
|
---|
3936 | ;" of an array (in BASE64 ascii encoding)
|
---|
3937 | "RTN","TMGRPC1",49,0)
|
---|
3938 | ;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
|
---|
3939 | "RTN","TMGRPC1",50,0)
|
---|
3940 | ;" FPATH -- the file path up to, but not including, the filename
|
---|
3941 | "RTN","TMGRPC1",51,0)
|
---|
3942 | ;" Use '/' to NOT specify any subdirectory
|
---|
3943 | "RTN","TMGRPC1",52,0)
|
---|
3944 | ;" FNAME -- the name of the file to pass back
|
---|
3945 | "RTN","TMGRPC1",53,0)
|
---|
3946 | ;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to download from
|
---|
3947 | "RTN","TMGRPC1",54,0)
|
---|
3948 | ;" default value is 1
|
---|
3949 | "RTN","TMGRPC1",55,0)
|
---|
3950 | ;" Note: For security reasons, all path requests will be considered relative to a root path.
|
---|
3951 | "RTN","TMGRPC1",56,0)
|
---|
3952 | ;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
3953 | "RTN","TMGRPC1",57,0)
|
---|
3954 | ;" /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
3955 | "RTN","TMGRPC1",58,0)
|
---|
3956 | ;" This root path is found in custom field 22701 in file 2005.2
|
---|
3957 | "RTN","TMGRPC1",59,0)
|
---|
3958 | ;"Output: results are passed out in @GREF
|
---|
3959 | "RTN","TMGRPC1",60,0)
|
---|
3960 | ;" @GREF@(0)=success; 1=success, 0=failure
|
---|
3961 | "RTN","TMGRPC1",61,0)
|
---|
3962 | ;" @GREF@(1..xxx) = actual data
|
---|
3963 | "RTN","TMGRPC1",62,0)
|
---|
3964 |
|
---|
3965 | "RTN","TMGRPC1",63,0)
|
---|
3966 | set FPATH=$get(FPATH)
|
---|
3967 | "RTN","TMGRPC1",64,0)
|
---|
3968 | set FNAME=$get(FNAME)
|
---|
3969 | "RTN","TMGRPC1",65,0)
|
---|
3970 | set LOCIEN=$GET(LOCIEN,1)
|
---|
3971 | "RTN","TMGRPC1",66,0)
|
---|
3972 |
|
---|
3973 | "RTN","TMGRPC1",67,0)
|
---|
3974 | new PathRoot
|
---|
3975 | "RTN","TMGRPC1",68,0)
|
---|
3976 | set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1) ;"NOTE: CUSTOM FIELD
|
---|
3977 | "RTN","TMGRPC1",69,0)
|
---|
3978 |
|
---|
3979 | "RTN","TMGRPC1",70,0)
|
---|
3980 | new NodeDiv
|
---|
3981 | "RTN","TMGRPC1",71,0)
|
---|
3982 | set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/" NOTE: CUSTOM FIELD
|
---|
3983 | "RTN","TMGRPC1",72,0)
|
---|
3984 |
|
---|
3985 | "RTN","TMGRPC1",73,0)
|
---|
3986 | new EndRoot set EndRoot=$extract(PathRoot,$length(PathRoot))
|
---|
3987 | "RTN","TMGRPC1",74,0)
|
---|
3988 | new StartPath set StartPath=$extract(FPATH,1)
|
---|
3989 | "RTN","TMGRPC1",75,0)
|
---|
3990 |
|
---|
3991 | "RTN","TMGRPC1",76,0)
|
---|
3992 | if (EndRoot=NodeDiv)&(StartPath=NodeDiv) do
|
---|
3993 | "RTN","TMGRPC1",77,0)
|
---|
3994 | . set FPATH=$extract(FPATH,2,1024)
|
---|
3995 | "RTN","TMGRPC1",78,0)
|
---|
3996 | else if (EndRoot'=NodeDiv)&(StartPath'=NodeDiv) do
|
---|
3997 | "RTN","TMGRPC1",79,0)
|
---|
3998 | . set PathRoot=PathRoot_NodeDiv
|
---|
3999 | "RTN","TMGRPC1",80,0)
|
---|
4000 |
|
---|
4001 | "RTN","TMGRPC1",81,0)
|
---|
4002 | set FPATH=PathRoot_FPATH
|
---|
4003 | "RTN","TMGRPC1",82,0)
|
---|
4004 |
|
---|
4005 | "RTN","TMGRPC1",83,0)
|
---|
4006 | set GREF="^TMP(""DOWNLOAD^TMGRPC1"","_$J_")"
|
---|
4007 | "RTN","TMGRPC1",84,0)
|
---|
4008 |
|
---|
4009 | "RTN","TMGRPC1",85,0)
|
---|
4010 | kill @GREF
|
---|
4011 | "RTN","TMGRPC1",86,0)
|
---|
4012 | set @GREF@(0)=$$BFTG^TMGBINF(.FPATH,.FNAME,$name(@GREF@(1)),3)
|
---|
4013 | "RTN","TMGRPC1",87,0)
|
---|
4014 |
|
---|
4015 | "RTN","TMGRPC1",88,0)
|
---|
4016 | do ENCODE($name(@GREF@(1)),3)
|
---|
4017 | "RTN","TMGRPC1",89,0)
|
---|
4018 |
|
---|
4019 | "RTN","TMGRPC1",90,0)
|
---|
4020 | quit
|
---|
4021 | "RTN","TMGRPC1",91,0)
|
---|
4022 |
|
---|
4023 | "RTN","TMGRPC1",92,0)
|
---|
4024 |
|
---|
4025 | "RTN","TMGRPC1",93,0)
|
---|
4026 | UPLOAD(RESULT,FPATH,FNAME,LOCIEN,ARRAY)
|
---|
4027 | "RTN","TMGRPC1",94,0)
|
---|
4028 | ;"SCOPE: Public
|
---|
4029 | "RTN","TMGRPC1",95,0)
|
---|
4030 | ;"RPC That calls this: TMG UPLOAD FILE
|
---|
4031 | "RTN","TMGRPC1",96,0)
|
---|
4032 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
4033 | "RTN","TMGRPC1",97,0)
|
---|
4034 | ;" will provide a file for upload (in BASE64 ascii encoding)
|
---|
4035 | "RTN","TMGRPC1",98,0)
|
---|
4036 | ;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
|
---|
4037 | "RTN","TMGRPC1",99,0)
|
---|
4038 | ;" FPATH -- the file path up to, but not including, the filename
|
---|
4039 | "RTN","TMGRPC1",100,0)
|
---|
4040 | ;" Use '/' to NOT specify any subdirectory
|
---|
4041 | "RTN","TMGRPC1",101,0)
|
---|
4042 | ;" FNAME -- the name of the file to pass back
|
---|
4043 | "RTN","TMGRPC1",102,0)
|
---|
4044 | ;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to upload to
|
---|
4045 | "RTN","TMGRPC1",103,0)
|
---|
4046 | ;" default value is 1
|
---|
4047 | "RTN","TMGRPC1",104,0)
|
---|
4048 | ;" Note: For security reasons, all path requests will be considered relative to a root path.
|
---|
4049 | "RTN","TMGRPC1",105,0)
|
---|
4050 | ;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
4051 | "RTN","TMGRPC1",106,0)
|
---|
4052 | ;" /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
4053 | "RTN","TMGRPC1",107,0)
|
---|
4054 | ;" This root path is found in custom field 22701 in file 2005.2
|
---|
4055 | "RTN","TMGRPC1",108,0)
|
---|
4056 | ;" ARRAY -- the array that will hold the file, in BASE64 ascii encoding
|
---|
4057 | "RTN","TMGRPC1",109,0)
|
---|
4058 | ;"Output: results are passed out in RESULT: 1^SuccessMessage or 0^FailureMessage
|
---|
4059 | "RTN","TMGRPC1",110,0)
|
---|
4060 |
|
---|
4061 | "RTN","TMGRPC1",111,0)
|
---|
4062 | new result
|
---|
4063 | "RTN","TMGRPC1",112,0)
|
---|
4064 | new resultMsg set resultMsg="1^Successful Upload"
|
---|
4065 | "RTN","TMGRPC1",113,0)
|
---|
4066 |
|
---|
4067 | "RTN","TMGRPC1",114,0)
|
---|
4068 | set ^TMP("UPLOAD^TMGRPC1",$J,"FPATH")=$GET(FPATH)
|
---|
4069 | "RTN","TMGRPC1",115,0)
|
---|
4070 | set ^TMP("UPLOAD^TMGRPC1",$J,"FNAME")=$GET(FNAME)
|
---|
4071 | "RTN","TMGRPC1",116,0)
|
---|
4072 | set ^TMP("UPLOAD^TMGRPC1",$J,"LOCIEN")=$GET(LOCIEN)
|
---|
4073 | "RTN","TMGRPC1",117,0)
|
---|
4074 |
|
---|
4075 | "RTN","TMGRPC1",118,0)
|
---|
4076 | if $data(ARRAY)=0 set resultMsg="0^No data received to upload" goto UpDone
|
---|
4077 | "RTN","TMGRPC1",119,0)
|
---|
4078 | set FPATH=$get(FPATH)
|
---|
4079 | "RTN","TMGRPC1",120,0)
|
---|
4080 | if FPATH="" set resultMsg="0^No file path received" goto UpDone
|
---|
4081 | "RTN","TMGRPC1",121,0)
|
---|
4082 | set FNAME=$get(FNAME)
|
---|
4083 | "RTN","TMGRPC1",122,0)
|
---|
4084 | if FNAME="" set resultMsg="0^No file name received" goto UpDone
|
---|
4085 | "RTN","TMGRPC1",123,0)
|
---|
4086 | set LOCIEN=$GET(LOCIEN,1);
|
---|
4087 | "RTN","TMGRPC1",124,0)
|
---|
4088 | new GREF
|
---|
4089 | "RTN","TMGRPC1",125,0)
|
---|
4090 |
|
---|
4091 | "RTN","TMGRPC1",126,0)
|
---|
4092 | new PathRoot
|
---|
4093 | "RTN","TMGRPC1",127,0)
|
---|
4094 | set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1)
|
---|
4095 | "RTN","TMGRPC1",128,0)
|
---|
4096 |
|
---|
4097 | "RTN","TMGRPC1",129,0)
|
---|
4098 | new NodeDiv
|
---|
4099 | "RTN","TMGRPC1",130,0)
|
---|
4100 | set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/"
|
---|
4101 | "RTN","TMGRPC1",131,0)
|
---|
4102 |
|
---|
4103 | "RTN","TMGRPC1",132,0)
|
---|
4104 | new EndRoot set EndRoot=$extract(PathRoot,$length(PathRoot))
|
---|
4105 | "RTN","TMGRPC1",133,0)
|
---|
4106 | new StartPath set StartPath=$extract(FPATH,1)
|
---|
4107 | "RTN","TMGRPC1",134,0)
|
---|
4108 | if (EndRoot=NodeDiv)&(StartPath=NodeDiv) do
|
---|
4109 | "RTN","TMGRPC1",135,0)
|
---|
4110 | . set FPATH=$extract(FPATH,2,1024)
|
---|
4111 | "RTN","TMGRPC1",136,0)
|
---|
4112 | else if (EndRoot'=NodeDiv)&(StartPath'=NodeDiv) do
|
---|
4113 | "RTN","TMGRPC1",137,0)
|
---|
4114 | . set PathRoot=PathRoot_NodeDiv
|
---|
4115 | "RTN","TMGRPC1",138,0)
|
---|
4116 |
|
---|
4117 | "RTN","TMGRPC1",139,0)
|
---|
4118 | set FPATH=PathRoot_FPATH
|
---|
4119 | "RTN","TMGRPC1",140,0)
|
---|
4120 |
|
---|
4121 | "RTN","TMGRPC1",141,0)
|
---|
4122 | merge ^TMP("UPLOAD^TMGRPC1",$J,"ENCODED")=ARRAY ;"//TEMP
|
---|
4123 | "RTN","TMGRPC1",142,0)
|
---|
4124 | do DECODE("ARRAY(0)",1)
|
---|
4125 | "RTN","TMGRPC1",143,0)
|
---|
4126 | merge ^TMP("UPLOAD^TMGRPC1",$J,"DECODED")=ARRAY ;"//TEMP
|
---|
4127 | "RTN","TMGRPC1",144,0)
|
---|
4128 |
|
---|
4129 | "RTN","TMGRPC1",145,0)
|
---|
4130 | if $$GTBF^TMGBINF("ARRAY(0)",1,FPATH,FNAME)=0 do
|
---|
4131 | "RTN","TMGRPC1",146,0)
|
---|
4132 | . set resultMsg="0^Error while saving file"
|
---|
4133 | "RTN","TMGRPC1",147,0)
|
---|
4134 |
|
---|
4135 | "RTN","TMGRPC1",148,0)
|
---|
4136 | UpDone
|
---|
4137 | "RTN","TMGRPC1",149,0)
|
---|
4138 | set RESULT=resultMsg
|
---|
4139 | "RTN","TMGRPC1",150,0)
|
---|
4140 | quit
|
---|
4141 | "RTN","TMGRPC1",151,0)
|
---|
4142 |
|
---|
4143 | "RTN","TMGRPC1",152,0)
|
---|
4144 |
|
---|
4145 | "RTN","TMGRPC1",153,0)
|
---|
4146 | DOWNDROP(RESULT,FPATH,FNAME,LOCIEN) ;"i.e. Download drop box file
|
---|
4147 | "RTN","TMGRPC1",154,0)
|
---|
4148 | ;"SCOPE: Public
|
---|
4149 | "RTN","TMGRPC1",155,0)
|
---|
4150 | ;"RPC That calls this: TMG DOWNLOAD FILE DROPBOX
|
---|
4151 | "RTN","TMGRPC1",156,0)
|
---|
4152 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
4153 | "RTN","TMGRPC1",157,0)
|
---|
4154 | ;" will request for the file to be placed into in a 'dropbox' file
|
---|
4155 | "RTN","TMGRPC1",158,0)
|
---|
4156 | ;" location that both the client and server can access. File may be
|
---|
4157 | "RTN","TMGRPC1",159,0)
|
---|
4158 | ;" moved from there to its final destination by the client.
|
---|
4159 | "RTN","TMGRPC1",160,0)
|
---|
4160 | ;" This method alloows file-hiding ability on the server side.
|
---|
4161 | "RTN","TMGRPC1",161,0)
|
---|
4162 | ;"Input: RESULT -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
|
---|
4163 | "RTN","TMGRPC1",162,0)
|
---|
4164 | ;" FPATH -- the file path up to, but not including, the filename. This
|
---|
4165 | "RTN","TMGRPC1",163,0)
|
---|
4166 | ;" is the path that the file is stored at (relative to a root path,
|
---|
4167 | "RTN","TMGRPC1",164,0)
|
---|
4168 | ;" see comments below). It is NOT the path of the dropbox.
|
---|
4169 | "RTN","TMGRPC1",165,0)
|
---|
4170 | ;" Use '/' to NOT specify any subdirectory
|
---|
4171 | "RTN","TMGRPC1",166,0)
|
---|
4172 | ;" FNAME -- the name of the file to be uploaded. Note: This is also the
|
---|
4173 | "RTN","TMGRPC1",167,0)
|
---|
4174 | ;" name of the file to be put into the dropbox. It is the
|
---|
4175 | "RTN","TMGRPC1",168,0)
|
---|
4176 | ;" responsibility of the client to ensure that there is not already
|
---|
4177 | "RTN","TMGRPC1",169,0)
|
---|
4178 | ;" a similarly named file in the dropbox before requesting a file
|
---|
4179 | "RTN","TMGRPC1",170,0)
|
---|
4180 | ;" be put there. It is the responsibility of the client to delete
|
---|
4181 | "RTN","TMGRPC1",171,0)
|
---|
4182 | ;" the file from the drop box.
|
---|
4183 | "RTN","TMGRPC1",172,0)
|
---|
4184 | ;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to download from
|
---|
4185 | "RTN","TMGRPC1",173,0)
|
---|
4186 | ;" default value is 1
|
---|
4187 | "RTN","TMGRPC1",174,0)
|
---|
4188 | ;" Note: For security reasons, all path requests will be considered relative to a root path.
|
---|
4189 | "RTN","TMGRPC1",175,0)
|
---|
4190 | ;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
4191 | "RTN","TMGRPC1",176,0)
|
---|
4192 | ;" /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
4193 | "RTN","TMGRPC1",177,0)
|
---|
4194 | ;" This root path is found in custom field 22701 in file 2005.2
|
---|
4195 | "RTN","TMGRPC1",178,0)
|
---|
4196 | ;" Also: dropbox location is obtained from custom field 22702 in file 2005.2
|
---|
4197 | "RTN","TMGRPC1",179,0)
|
---|
4198 | ;"NOTE RE DROPBOX:
|
---|
4199 | "RTN","TMGRPC1",180,0)
|
---|
4200 | ;" This system is designed for a system where by the server and the client have a
|
---|
4201 | "RTN","TMGRPC1",181,0)
|
---|
4202 | ;" shared filesystem, but the directory paths will be different. For example:
|
---|
4203 | "RTN","TMGRPC1",182,0)
|
---|
4204 | ;" Linux server has dropbox at: /mnt/WinServer/dropbox/
|
---|
4205 | "RTN","TMGRPC1",183,0)
|
---|
4206 | ;" Windows Client has access to dropbox at: V:\Dropbox\
|
---|
4207 | "RTN","TMGRPC1",184,0)
|
---|
4208 |
|
---|
4209 | "RTN","TMGRPC1",185,0)
|
---|
4210 | ;"Output: results are 1^Success^FileSize (in bytes), or 0^Error Message
|
---|
4211 | "RTN","TMGRPC1",186,0)
|
---|
4212 |
|
---|
4213 | "RTN","TMGRPC1",187,0)
|
---|
4214 | new resultMsg set resultMsg="1^Successful Download"
|
---|
4215 | "RTN","TMGRPC1",188,0)
|
---|
4216 |
|
---|
4217 | "RTN","TMGRPC1",189,0)
|
---|
4218 | set FPATH=$get(FPATH)
|
---|
4219 | "RTN","TMGRPC1",190,0)
|
---|
4220 | if FPATH="" set resultMsg="0^No file path received" goto DnDBxDone
|
---|
4221 | "RTN","TMGRPC1",191,0)
|
---|
4222 | set FNAME=$get(FNAME)
|
---|
4223 | "RTN","TMGRPC1",192,0)
|
---|
4224 | if FNAME="" set resultMsg="0^No file name received" goto DnDBxDone
|
---|
4225 | "RTN","TMGRPC1",193,0)
|
---|
4226 | set LOCIEN=$GET(LOCIEN,1);
|
---|
4227 | "RTN","TMGRPC1",194,0)
|
---|
4228 | new GREF
|
---|
4229 | "RTN","TMGRPC1",195,0)
|
---|
4230 |
|
---|
4231 | "RTN","TMGRPC1",196,0)
|
---|
4232 | new PathRoot
|
---|
4233 | "RTN","TMGRPC1",197,0)
|
---|
4234 | set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1)
|
---|
4235 | "RTN","TMGRPC1",198,0)
|
---|
4236 |
|
---|
4237 | "RTN","TMGRPC1",199,0)
|
---|
4238 | new NodeDiv
|
---|
4239 | "RTN","TMGRPC1",200,0)
|
---|
4240 | set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/"
|
---|
4241 | "RTN","TMGRPC1",201,0)
|
---|
4242 |
|
---|
4243 | "RTN","TMGRPC1",202,0)
|
---|
4244 | new DropBox
|
---|
4245 | "RTN","TMGRPC1",203,0)
|
---|
4246 | set DropBox=$piece($get(^MAG(2005.2,LOCIEN,22702)),"^",1)
|
---|
4247 | "RTN","TMGRPC1",204,0)
|
---|
4248 | if DropBox="" do goto UpDBxDone
|
---|
4249 | "RTN","TMGRPC1",205,0)
|
---|
4250 | . set resultMsg="0^Dropbox location not configured in file 2005.2, IEN "_LOCIEN_", field 22702"
|
---|
4251 | "RTN","TMGRPC1",206,0)
|
---|
4252 | ;"Ensure DropBox ends in a node divider
|
---|
4253 | "RTN","TMGRPC1",207,0)
|
---|
4254 | if $extract(DropBox,$length(DropBox))'=NodeDiv do
|
---|
4255 | "RTN","TMGRPC1",208,0)
|
---|
4256 | . set DropBox=DropBox_NodeDiv
|
---|
4257 | "RTN","TMGRPC1",209,0)
|
---|
4258 |
|
---|
4259 | "RTN","TMGRPC1",210,0)
|
---|
4260 | ;"Ensure PathRoot ends in a node divider
|
---|
4261 | "RTN","TMGRPC1",211,0)
|
---|
4262 | if $extract(PathRoot,$length(PathRoot))'=NodeDiv do
|
---|
4263 | "RTN","TMGRPC1",212,0)
|
---|
4264 | . set PathRoot=PathRoot_NodeDiv
|
---|
4265 | "RTN","TMGRPC1",213,0)
|
---|
4266 |
|
---|
4267 | "RTN","TMGRPC1",214,0)
|
---|
4268 | ;"Ensure Fpath does NOT start in a node divider
|
---|
4269 | "RTN","TMGRPC1",215,0)
|
---|
4270 | if $extract(FPATH,1)=NodeDiv do
|
---|
4271 | "RTN","TMGRPC1",216,0)
|
---|
4272 | . set FPATH=$extract(FPATH,2,1024)
|
---|
4273 | "RTN","TMGRPC1",217,0)
|
---|
4274 |
|
---|
4275 | "RTN","TMGRPC1",218,0)
|
---|
4276 | set FPATH=PathRoot_FPATH
|
---|
4277 | "RTN","TMGRPC1",219,0)
|
---|
4278 |
|
---|
4279 | "RTN","TMGRPC1",220,0)
|
---|
4280 | new SrcNamePath set SrcNamePath=FPATH_FNAME
|
---|
4281 | "RTN","TMGRPC1",221,0)
|
---|
4282 | ;"new DestNamePath set DestNamePath=DropBox_FNAME
|
---|
4283 | "RTN","TMGRPC1",222,0)
|
---|
4284 |
|
---|
4285 | "RTN","TMGRPC1",223,0)
|
---|
4286 | new moveResult
|
---|
4287 | "RTN","TMGRPC1",224,0)
|
---|
4288 | set moveResult=$$Copy^TMGKERNL(SrcNamePath,DropBox)
|
---|
4289 | "RTN","TMGRPC1",225,0)
|
---|
4290 | if moveResult>0 do
|
---|
4291 | "RTN","TMGRPC1",226,0)
|
---|
4292 | . set resultMsg="0^Move failed, returning OS error code: "_moveResult
|
---|
4293 | "RTN","TMGRPC1",227,0)
|
---|
4294 | else do
|
---|
4295 | "RTN","TMGRPC1",228,0)
|
---|
4296 | . set resultMsg=resultMsg_"^"_$$FileSize^TMGKERNL(SrcNamePath)
|
---|
4297 | "RTN","TMGRPC1",229,0)
|
---|
4298 |
|
---|
4299 | "RTN","TMGRPC1",230,0)
|
---|
4300 | DnDBxDone
|
---|
4301 | "RTN","TMGRPC1",231,0)
|
---|
4302 | set RESULT=resultMsg
|
---|
4303 | "RTN","TMGRPC1",232,0)
|
---|
4304 | quit
|
---|
4305 | "RTN","TMGRPC1",233,0)
|
---|
4306 |
|
---|
4307 | "RTN","TMGRPC1",234,0)
|
---|
4308 |
|
---|
4309 | "RTN","TMGRPC1",235,0)
|
---|
4310 | UPLDDROP(RESULT,FPATH,FNAME,LOCIEN) ;"i.e. Upload Dropbox File
|
---|
4311 | "RTN","TMGRPC1",236,0)
|
---|
4312 | ;"SCOPE: Public
|
---|
4313 | "RTN","TMGRPC1",237,0)
|
---|
4314 | ;"RPC That calls this: TMG UPLOAD FILE DROPBOX
|
---|
4315 | "RTN","TMGRPC1",238,0)
|
---|
4316 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
4317 | "RTN","TMGRPC1",239,0)
|
---|
4318 | ;" will put the file in a 'dropbox' file location that both the client
|
---|
4319 | "RTN","TMGRPC1",240,0)
|
---|
4320 | ;" and server can access. File will be moved from there to its final
|
---|
4321 | "RTN","TMGRPC1",241,0)
|
---|
4322 | ;" destination. This will provide file-hiding ability on the server side.
|
---|
4323 | "RTN","TMGRPC1",242,0)
|
---|
4324 | ;"Input: RESULT -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
|
---|
4325 | "RTN","TMGRPC1",243,0)
|
---|
4326 | ;" FPATH -- the file path up to, but not including, the filename. This
|
---|
4327 | "RTN","TMGRPC1",244,0)
|
---|
4328 | ;" is the path to store the file at. (relative to a root path,
|
---|
4329 | "RTN","TMGRPC1",245,0)
|
---|
4330 | ;" see comments below). It is NOT the path of the dropbox.
|
---|
4331 | "RTN","TMGRPC1",246,0)
|
---|
4332 | ;" Use '/' to NOT specify any subdirectory
|
---|
4333 | "RTN","TMGRPC1",247,0)
|
---|
4334 | ;" FNAME -- the name of the file to be uploaded. Note: This is also the
|
---|
4335 | "RTN","TMGRPC1",248,0)
|
---|
4336 | ;" name of the file to be pulled from the dropbox. It is the
|
---|
4337 | "RTN","TMGRPC1",249,0)
|
---|
4338 | ;" responsibility of the client to ensure that there is not already
|
---|
4339 | "RTN","TMGRPC1",250,0)
|
---|
4340 | ;" a similarly named file in the dropbox before depositing a file there.
|
---|
4341 | "RTN","TMGRPC1",251,0)
|
---|
4342 | ;" The server will remove the file from the dropbox, unless there is
|
---|
4343 | "RTN","TMGRPC1",252,0)
|
---|
4344 | ;" an error with the host OS (which will be returned as an error message)
|
---|
4345 | "RTN","TMGRPC1",253,0)
|
---|
4346 | ;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to upload to
|
---|
4347 | "RTN","TMGRPC1",254,0)
|
---|
4348 | ;" default value is 1
|
---|
4349 | "RTN","TMGRPC1",255,0)
|
---|
4350 | ;" Note: For security reasons, all path requests will be considered relative to a root path.
|
---|
4351 | "RTN","TMGRPC1",256,0)
|
---|
4352 | ;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
|
---|
4353 | "RTN","TMGRPC1",257,0)
|
---|
4354 | ;" /var/local/Dir1/Dir2/download/SomeFile.jpg
|
---|
4355 | "RTN","TMGRPC1",258,0)
|
---|
4356 | ;" This root path is found in custom field 22700 in file 2005.2
|
---|
4357 | "RTN","TMGRPC1",259,0)
|
---|
4358 | ;" Also: dropbox location is obtained from custom field 22702 in file 2005.2
|
---|
4359 | "RTN","TMGRPC1",260,0)
|
---|
4360 | ;"NOTE RE DROPBOX:
|
---|
4361 | "RTN","TMGRPC1",261,0)
|
---|
4362 | ;" This system is designed for a system where by the server and the client have a
|
---|
4363 | "RTN","TMGRPC1",262,0)
|
---|
4364 | ;" shared filesystem, but the directory paths will be different. For example:
|
---|
4365 | "RTN","TMGRPC1",263,0)
|
---|
4366 | ;" Linux server has dropbox at: /mnt/WinServer/dropbox/
|
---|
4367 | "RTN","TMGRPC1",264,0)
|
---|
4368 | ;" Windows Client has access to dropbox at: V:\Dropbox\
|
---|
4369 | "RTN","TMGRPC1",265,0)
|
---|
4370 |
|
---|
4371 | "RTN","TMGRPC1",266,0)
|
---|
4372 | ;"Output: results are passed out in RESULT:
|
---|
4373 | "RTN","TMGRPC1",267,0)
|
---|
4374 | ;" 1^SuccessMessage or 0^FailureMessage
|
---|
4375 | "RTN","TMGRPC1",268,0)
|
---|
4376 |
|
---|
4377 | "RTN","TMGRPC1",269,0)
|
---|
4378 | new result
|
---|
4379 | "RTN","TMGRPC1",270,0)
|
---|
4380 | new resultMsg set resultMsg="1^Successful Upload"
|
---|
4381 | "RTN","TMGRPC1",271,0)
|
---|
4382 |
|
---|
4383 | "RTN","TMGRPC1",272,0)
|
---|
4384 | set FPATH=$get(FPATH)
|
---|
4385 | "RTN","TMGRPC1",273,0)
|
---|
4386 | if FPATH="" set resultMsg="0^No file path received" goto UpDBxDone
|
---|
4387 | "RTN","TMGRPC1",274,0)
|
---|
4388 | set FNAME=$get(FNAME)
|
---|
4389 | "RTN","TMGRPC1",275,0)
|
---|
4390 | if FNAME="" set resultMsg="0^No file name received" goto UpDBxDone
|
---|
4391 | "RTN","TMGRPC1",276,0)
|
---|
4392 | set LOCIEN=$GET(LOCIEN,1);
|
---|
4393 | "RTN","TMGRPC1",277,0)
|
---|
4394 | new GREF
|
---|
4395 | "RTN","TMGRPC1",278,0)
|
---|
4396 |
|
---|
4397 | "RTN","TMGRPC1",279,0)
|
---|
4398 | new PathRoot
|
---|
4399 | "RTN","TMGRPC1",280,0)
|
---|
4400 | set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1)
|
---|
4401 | "RTN","TMGRPC1",281,0)
|
---|
4402 |
|
---|
4403 | "RTN","TMGRPC1",282,0)
|
---|
4404 | new NodeDiv
|
---|
4405 | "RTN","TMGRPC1",283,0)
|
---|
4406 | set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/"
|
---|
4407 | "RTN","TMGRPC1",284,0)
|
---|
4408 |
|
---|
4409 | "RTN","TMGRPC1",285,0)
|
---|
4410 | new DropBox
|
---|
4411 | "RTN","TMGRPC1",286,0)
|
---|
4412 | set DropBox=$piece($get(^MAG(2005.2,LOCIEN,22702)),"^",1)
|
---|
4413 | "RTN","TMGRPC1",287,0)
|
---|
4414 | if DropBox="" do goto UpDBxDone
|
---|
4415 | "RTN","TMGRPC1",288,0)
|
---|
4416 | . set resultMsg="0^Dropbox location not configured in file 2005.2, IEN "_LOCIEN_", field 22702"
|
---|
4417 | "RTN","TMGRPC1",289,0)
|
---|
4418 | ;"Ensure DropBox ends in a node divider
|
---|
4419 | "RTN","TMGRPC1",290,0)
|
---|
4420 | if $extract(DropBox,$length(DropBox))'=NodeDiv do
|
---|
4421 | "RTN","TMGRPC1",291,0)
|
---|
4422 | . set DropBox=DropBox_NodeDiv
|
---|
4423 | "RTN","TMGRPC1",292,0)
|
---|
4424 |
|
---|
4425 | "RTN","TMGRPC1",293,0)
|
---|
4426 | ;"Ensure PathRoot ends in a node divider
|
---|
4427 | "RTN","TMGRPC1",294,0)
|
---|
4428 | if $extract(PathRoot,$length(PathRoot))'=NodeDiv do
|
---|
4429 | "RTN","TMGRPC1",295,0)
|
---|
4430 | . set PathRoot=PathRoot_NodeDiv
|
---|
4431 | "RTN","TMGRPC1",296,0)
|
---|
4432 |
|
---|
4433 | "RTN","TMGRPC1",297,0)
|
---|
4434 | ;"Ensure Fpath does NOT start in a node divider
|
---|
4435 | "RTN","TMGRPC1",298,0)
|
---|
4436 | if $extract(FPATH,1)=NodeDiv do
|
---|
4437 | "RTN","TMGRPC1",299,0)
|
---|
4438 | . set FPATH=$extract(FPATH,2,1024)
|
---|
4439 | "RTN","TMGRPC1",300,0)
|
---|
4440 |
|
---|
4441 | "RTN","TMGRPC1",301,0)
|
---|
4442 | set FPATH=PathRoot_FPATH
|
---|
4443 | "RTN","TMGRPC1",302,0)
|
---|
4444 |
|
---|
4445 | "RTN","TMGRPC1",303,0)
|
---|
4446 | new SrcNamePath,DestNamePath
|
---|
4447 | "RTN","TMGRPC1",304,0)
|
---|
4448 | set SrcNamePath=DropBox_FNAME
|
---|
4449 | "RTN","TMGRPC1",305,0)
|
---|
4450 | set DestNamePath=FPATH_FNAME
|
---|
4451 | "RTN","TMGRPC1",306,0)
|
---|
4452 |
|
---|
4453 | "RTN","TMGRPC1",307,0)
|
---|
4454 | new moveResult
|
---|
4455 | "RTN","TMGRPC1",308,0)
|
---|
4456 | set moveResult=$$Move^TMGKERNL(SrcNamePath,DestNamePath)
|
---|
4457 | "RTN","TMGRPC1",309,0)
|
---|
4458 | if moveResult>0 do
|
---|
4459 | "RTN","TMGRPC1",310,0)
|
---|
4460 | . set resultMsg="0^Move failed, returning OS error code: "_moveResult
|
---|
4461 | "RTN","TMGRPC1",311,0)
|
---|
4462 |
|
---|
4463 | "RTN","TMGRPC1",312,0)
|
---|
4464 | UpDBxDone
|
---|
4465 | "RTN","TMGRPC1",313,0)
|
---|
4466 | set RESULT=resultMsg
|
---|
4467 | "RTN","TMGRPC1",314,0)
|
---|
4468 | quit
|
---|
4469 | "RTN","TMGRPC1",315,0)
|
---|
4470 |
|
---|
4471 | "RTN","TMGRPC1",316,0)
|
---|
4472 |
|
---|
4473 | "RTN","TMGRPC1",317,0)
|
---|
4474 | ENCODE(GRef,incSubscr,encodeFn)
|
---|
4475 | "RTN","TMGRPC1",318,0)
|
---|
4476 | ;"Purpose: ENCODE a BINARY GLOBAL.
|
---|
4477 | "RTN","TMGRPC1",319,0)
|
---|
4478 | ;"Input:
|
---|
4479 | "RTN","TMGRPC1",320,0)
|
---|
4480 | ;" GRef-- Global reference of the SOURCE binary global array, in fully resolved
|
---|
4481 | "RTN","TMGRPC1",321,0)
|
---|
4482 | ;" (closed root) format.
|
---|
4483 | "RTN","TMGRPC1",322,0)
|
---|
4484 | ;" Note:
|
---|
4485 | "RTN","TMGRPC1",323,0)
|
---|
4486 | ;" At least one subscript must be numeric. This will be the incrementing
|
---|
4487 | "RTN","TMGRPC1",324,0)
|
---|
4488 | ;" subscript (i.e. the subscript that $$BIN2WP^TMGBINWP will increment
|
---|
4489 | "RTN","TMGRPC1",325,0)
|
---|
4490 | ;" to store each new global node). This subscript need not be the final
|
---|
4491 | "RTN","TMGRPC1",326,0)
|
---|
4492 | ;" subscript. For example, to load into a WORD PROCESSING field, the
|
---|
4493 | "RTN","TMGRPC1",327,0)
|
---|
4494 | ;" incrementing node is the second-to-last subscript; the final subscript
|
---|
4495 | "RTN","TMGRPC1",328,0)
|
---|
4496 | ;" is always zero.
|
---|
4497 | "RTN","TMGRPC1",329,0)
|
---|
4498 | ;" REQUIRED
|
---|
4499 | "RTN","TMGRPC1",330,0)
|
---|
4500 | ;" incSubscr-- (required) Identifies the incrementing subscript level, for the source global
|
---|
4501 | "RTN","TMGRPC1",331,0)
|
---|
4502 | ;" For example, if you pass ^TMP(115,1,1,0) as the global_ref parameter and
|
---|
4503 | "RTN","TMGRPC1",332,0)
|
---|
4504 | ;" pass 3 as the inc_subscr parameter, $$BIN2GBL will increment the third
|
---|
4505 | "RTN","TMGRPC1",333,0)
|
---|
4506 | ;" subscript, such as ^TMP(115,1,x), but will WRITE notes at the full global
|
---|
4507 | "RTN","TMGRPC1",334,0)
|
---|
4508 | ;" reference, such as ^TMP(115,1,x,0).
|
---|
4509 | "RTN","TMGRPC1",335,0)
|
---|
4510 | ;" REQUIRED
|
---|
4511 | "RTN","TMGRPC1",336,0)
|
---|
4512 | ;" encodeFn- (OPTIONAL) the name of a function that will encode a line of data.
|
---|
4513 | "RTN","TMGRPC1",337,0)
|
---|
4514 | ;" e.g. "CODER^ZZZCODER" or "LOCALCODER". The function should
|
---|
4515 | "RTN","TMGRPC1",338,0)
|
---|
4516 | ;" take one input variable (the line of raw binary data), and return a converted
|
---|
4517 | "RTN","TMGRPC1",339,0)
|
---|
4518 | ;" line. e.g.
|
---|
4519 | "RTN","TMGRPC1",340,0)
|
---|
4520 | ;" CODER(INPUT)
|
---|
4521 | "RTN","TMGRPC1",341,0)
|
---|
4522 | ;" ... ;"convert INPUT to RESULT
|
---|
4523 | "RTN","TMGRPC1",342,0)
|
---|
4524 | ;" QUIT RESULT
|
---|
4525 | "RTN","TMGRPC1",343,0)
|
---|
4526 | ;" default value is B64CODER^TMGRPC1
|
---|
4527 | "RTN","TMGRPC1",344,0)
|
---|
4528 | ;"
|
---|
4529 | "RTN","TMGRPC1",345,0)
|
---|
4530 | ;"Output: @GRef is converted to encoded data
|
---|
4531 | "RTN","TMGRPC1",346,0)
|
---|
4532 | ;"Result: None
|
---|
4533 | "RTN","TMGRPC1",347,0)
|
---|
4534 |
|
---|
4535 | "RTN","TMGRPC1",348,0)
|
---|
4536 | if $get(GRef)="" goto EncodeDone
|
---|
4537 | "RTN","TMGRPC1",349,0)
|
---|
4538 | if $get(incSubscr)="" goto EncodeDone
|
---|
4539 | "RTN","TMGRPC1",350,0)
|
---|
4540 |
|
---|
4541 | "RTN","TMGRPC1",351,0)
|
---|
4542 | set encodeFn=$get(encodeFn,"B64CODER")
|
---|
4543 | "RTN","TMGRPC1",352,0)
|
---|
4544 |
|
---|
4545 | "RTN","TMGRPC1",353,0)
|
---|
4546 | new encoder
|
---|
4547 | "RTN","TMGRPC1",354,0)
|
---|
4548 | set encoder="set temp=$$"_encodeFn_"(.temp)"
|
---|
4549 | "RTN","TMGRPC1",355,0)
|
---|
4550 |
|
---|
4551 | "RTN","TMGRPC1",356,0)
|
---|
4552 | for do quit:(GRef="")
|
---|
4553 | "RTN","TMGRPC1",357,0)
|
---|
4554 | . new temp
|
---|
4555 | "RTN","TMGRPC1",358,0)
|
---|
4556 | . set temp=$get(@GRef)
|
---|
4557 | "RTN","TMGRPC1",359,0)
|
---|
4558 | . if temp="" set GRef="" quit
|
---|
4559 | "RTN","TMGRPC1",360,0)
|
---|
4560 | . xecute encoder ;"i.e. set temp=$$encoderFn(.temp)
|
---|
4561 | "RTN","TMGRPC1",361,0)
|
---|
4562 | . set @GRef=temp
|
---|
4563 | "RTN","TMGRPC1",362,0)
|
---|
4564 | . set GRef=$$NEXTNODE^TMGBINF(GRef,incSubscr,1,1)
|
---|
4565 | "RTN","TMGRPC1",363,0)
|
---|
4566 |
|
---|
4567 | "RTN","TMGRPC1",364,0)
|
---|
4568 | EncodeDone
|
---|
4569 | "RTN","TMGRPC1",365,0)
|
---|
4570 | quit
|
---|
4571 | "RTN","TMGRPC1",366,0)
|
---|
4572 |
|
---|
4573 | "RTN","TMGRPC1",367,0)
|
---|
4574 |
|
---|
4575 | "RTN","TMGRPC1",368,0)
|
---|
4576 | HEXCODER(INPUT)
|
---|
4577 | "RTN","TMGRPC1",369,0)
|
---|
4578 | ;"Purpose: to encode the input string. Currently using simple hex encoding/
|
---|
4579 | "RTN","TMGRPC1",370,0)
|
---|
4580 | quit $$STRB2H^TMGSTUTL(.INPUT,0,1)
|
---|
4581 | "RTN","TMGRPC1",371,0)
|
---|
4582 |
|
---|
4583 | "RTN","TMGRPC1",372,0)
|
---|
4584 |
|
---|
4585 | "RTN","TMGRPC1",373,0)
|
---|
4586 | B64CODER(INPUT)
|
---|
4587 | "RTN","TMGRPC1",374,0)
|
---|
4588 | ;"Purpose: to encode the input string via UUENCODE (actually Base64)
|
---|
4589 | "RTN","TMGRPC1",375,0)
|
---|
4590 | quit $$ENCODE^RGUTUU(.INPUT)
|
---|
4591 | "RTN","TMGRPC1",376,0)
|
---|
4592 |
|
---|
4593 | "RTN","TMGRPC1",377,0)
|
---|
4594 | B64DECODER(INPUT)
|
---|
4595 | "RTN","TMGRPC1",378,0)
|
---|
4596 | ;"Purpose: to encode the input string via UUENCODE (actually Base64)
|
---|
4597 | "RTN","TMGRPC1",379,0)
|
---|
4598 | quit $$DECODE^RGUTUU(.INPUT)
|
---|
4599 | "RTN","TMGRPC1",380,0)
|
---|
4600 |
|
---|
4601 | "RTN","TMGRPC1",381,0)
|
---|
4602 |
|
---|
4603 | "RTN","TMGRPC1",382,0)
|
---|
4604 | DECODE(GRef,incSubscr,decodeFn)
|
---|
4605 | "RTN","TMGRPC1",383,0)
|
---|
4606 | ;"Purpose: ENCODE a BINARY GLOBAL.
|
---|
4607 | "RTN","TMGRPC1",384,0)
|
---|
4608 | ;"Input:
|
---|
4609 | "RTN","TMGRPC1",385,0)
|
---|
4610 | ;" GRef-- Global reference of the SOURCE binary global array, in fully resolved
|
---|
4611 | "RTN","TMGRPC1",386,0)
|
---|
4612 | ;" (closed root) format.
|
---|
4613 | "RTN","TMGRPC1",387,0)
|
---|
4614 | ;" Note:
|
---|
4615 | "RTN","TMGRPC1",388,0)
|
---|
4616 | ;" At least one subscript must be numeric. This will be the incrementing
|
---|
4617 | "RTN","TMGRPC1",389,0)
|
---|
4618 | ;" subscript (i.e. the subscript that $$BIN2WP^TMGBINWP will increment
|
---|
4619 | "RTN","TMGRPC1",390,0)
|
---|
4620 | ;" to store each new global node). This subscript need not be the final
|
---|
4621 | "RTN","TMGRPC1",391,0)
|
---|
4622 | ;" subscript. For example, to load into a WORD PROCESSING field, the
|
---|
4623 | "RTN","TMGRPC1",392,0)
|
---|
4624 | ;" incrementing node is the second-to-last subscript; the final subscript
|
---|
4625 | "RTN","TMGRPC1",393,0)
|
---|
4626 | ;" is always zero.
|
---|
4627 | "RTN","TMGRPC1",394,0)
|
---|
4628 | ;" REQUIRED
|
---|
4629 | "RTN","TMGRPC1",395,0)
|
---|
4630 | ;" incSubscr-- (required) Identifies the incrementing subscript level, for the source global
|
---|
4631 | "RTN","TMGRPC1",396,0)
|
---|
4632 | ;" For example, if you pass ^TMP(115,1,1,0) as the global_ref parameter and
|
---|
4633 | "RTN","TMGRPC1",397,0)
|
---|
4634 | ;" pass 3 as the inc_subscr parameter, $$BIN2GBL will increment the third
|
---|
4635 | "RTN","TMGRPC1",398,0)
|
---|
4636 | ;" subscript, such as ^TMP(115,1,x), but will WRITE notes at the full global
|
---|
4637 | "RTN","TMGRPC1",399,0)
|
---|
4638 | ;" reference, such as ^TMP(115,1,x,0).
|
---|
4639 | "RTN","TMGRPC1",400,0)
|
---|
4640 | ;" REQUIRED
|
---|
4641 | "RTN","TMGRPC1",401,0)
|
---|
4642 | ;" decodeFn- (OPTIONAL) the name of a function that will decode a line of data.
|
---|
4643 | "RTN","TMGRPC1",402,0)
|
---|
4644 | ;" e.g. "DECODER^ZZZCODER" or "DECODER". The function should take
|
---|
4645 | "RTN","TMGRPC1",403,0)
|
---|
4646 | ;" one input variable (the line of encoded data), and return a decoded line. e.g.
|
---|
4647 | "RTN","TMGRPC1",404,0)
|
---|
4648 | ;" DECODER(INPUT)
|
---|
4649 | "RTN","TMGRPC1",405,0)
|
---|
4650 | ;" ... ;"convert INPUT to RESULT
|
---|
4651 | "RTN","TMGRPC1",406,0)
|
---|
4652 | ;" QUIT RESULT
|
---|
4653 | "RTN","TMGRPC1",407,0)
|
---|
4654 | ;" default value is B64DECODER^TMGRPC1
|
---|
4655 | "RTN","TMGRPC1",408,0)
|
---|
4656 | ;"
|
---|
4657 | "RTN","TMGRPC1",409,0)
|
---|
4658 | ;"Output: @GRef is converted to decoded data
|
---|
4659 | "RTN","TMGRPC1",410,0)
|
---|
4660 | ;"Result: None
|
---|
4661 | "RTN","TMGRPC1",411,0)
|
---|
4662 |
|
---|
4663 | "RTN","TMGRPC1",412,0)
|
---|
4664 | if $get(GRef)="" goto DecodeDone
|
---|
4665 | "RTN","TMGRPC1",413,0)
|
---|
4666 | if $get(incSubscr)="" goto DecodeDone
|
---|
4667 | "RTN","TMGRPC1",414,0)
|
---|
4668 | set decodeFn=$get(decodeFn,"B64DECODER")
|
---|
4669 | "RTN","TMGRPC1",415,0)
|
---|
4670 |
|
---|
4671 | "RTN","TMGRPC1",416,0)
|
---|
4672 | new decoder
|
---|
4673 | "RTN","TMGRPC1",417,0)
|
---|
4674 | set decoder="set temp=$$"_decodeFn_"(.temp)"
|
---|
4675 | "RTN","TMGRPC1",418,0)
|
---|
4676 |
|
---|
4677 | "RTN","TMGRPC1",419,0)
|
---|
4678 | for do quit:(GRef="")
|
---|
4679 | "RTN","TMGRPC1",420,0)
|
---|
4680 | . new temp
|
---|
4681 | "RTN","TMGRPC1",421,0)
|
---|
4682 | . set temp=$get(@GRef)
|
---|
4683 | "RTN","TMGRPC1",422,0)
|
---|
4684 | . if temp="" set GRef="" quit
|
---|
4685 | "RTN","TMGRPC1",423,0)
|
---|
4686 | . xecute decoder ;"i.e. set temp=$$decoderFn(.temp)
|
---|
4687 | "RTN","TMGRPC1",424,0)
|
---|
4688 | . set @GRef=temp
|
---|
4689 | "RTN","TMGRPC1",425,0)
|
---|
4690 | . set GRef=$$NEXTNODE^TMGBINF(GRef,incSubscr,1,1)
|
---|
4691 | "RTN","TMGRPC1",426,0)
|
---|
4692 |
|
---|
4693 | "RTN","TMGRPC1",427,0)
|
---|
4694 | DecodeDone
|
---|
4695 | "RTN","TMGRPC1",428,0)
|
---|
4696 | quit
|
---|
4697 | "RTN","TMGRPC1",429,0)
|
---|
4698 |
|
---|
4699 | "RTN","TMGRPC1",430,0)
|
---|
4700 |
|
---|
4701 | "RTN","TMGRPC1",431,0)
|
---|
4702 | GETLONG(GREF,IMAGEIEN)
|
---|
4703 | "RTN","TMGRPC1",432,0)
|
---|
4704 | ;"SCOPE: Public
|
---|
4705 | "RTN","TMGRPC1",433,0)
|
---|
4706 | ;"Purpose: To provide an entry point for a RPC call from a client.
|
---|
4707 | "RTN","TMGRPC1",434,0)
|
---|
4708 | ;" Will return results of field 11 (LONG DESCRIPTION) from file IMAGE(2005)
|
---|
4709 | "RTN","TMGRPC1",435,0)
|
---|
4710 | ;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
|
---|
4711 | "RTN","TMGRPC1",436,0)
|
---|
4712 | ;" IMAGEIEN-- The IEN (record number) from file 2005 (IMAGE)
|
---|
4713 | "RTN","TMGRPC1",437,0)
|
---|
4714 | ;"Output: results are passed out in @GREF
|
---|
4715 | "RTN","TMGRPC1",438,0)
|
---|
4716 | ;" @GREF@(0) = WP header line: format is: ^^MaxLine^MaxLine^TimeStamp(FM Date/Time Format)
|
---|
4717 | "RTN","TMGRPC1",439,0)
|
---|
4718 | ;" @GREF@(1) = WP line 1
|
---|
4719 | "RTN","TMGRPC1",440,0)
|
---|
4720 | ;" @GREF@(2) = WP line 2
|
---|
4721 | "RTN","TMGRPC1",441,0)
|
---|
4722 | ;" @GREF@(3) = WP line 3
|
---|
4723 | "RTN","TMGRPC1",442,0)
|
---|
4724 | ;" @GREF@(4) = WP line 4 ... etc.
|
---|
4725 | "RTN","TMGRPC1",443,0)
|
---|
4726 |
|
---|
4727 | "RTN","TMGRPC1",444,0)
|
---|
4728 | set GREF="^TMP(""GETLONG^TMGRPC1"","_$J_")"
|
---|
4729 | "RTN","TMGRPC1",445,0)
|
---|
4730 |
|
---|
4731 | "RTN","TMGRPC1",446,0)
|
---|
4732 | kill @GREF
|
---|
4733 | "RTN","TMGRPC1",447,0)
|
---|
4734 |
|
---|
4735 | "RTN","TMGRPC1",448,0)
|
---|
4736 | new i,s,MaxLines,header
|
---|
4737 | "RTN","TMGRPC1",449,0)
|
---|
4738 | set header=""
|
---|
4739 | "RTN","TMGRPC1",450,0)
|
---|
4740 | if +$get(IMAGEIEN)>0 do
|
---|
4741 | "RTN","TMGRPC1",451,0)
|
---|
4742 | . set header=$get(^MAG(2005,IMAGEIEN,3,0)) ;"NOTE: Field 11 held in node 3;0
|
---|
4743 | "RTN","TMGRPC1",452,0)
|
---|
4744 | set @GREF@(0)=header
|
---|
4745 | "RTN","TMGRPC1",453,0)
|
---|
4746 | set MaxLines=+$piece(header,"^",3)
|
---|
4747 | "RTN","TMGRPC1",454,0)
|
---|
4748 | for i=1:1:MaxLines do
|
---|
4749 | "RTN","TMGRPC1",455,0)
|
---|
4750 | . set @GREF@(i)=$get(^MAG(2005,IMAGEIEN,3,i,0))
|
---|
4751 | "RTN","TMGRPC1",456,0)
|
---|
4752 |
|
---|
4753 | "RTN","TMGRPC1",457,0)
|
---|
4754 | quit
|
---|
4755 | "RTN","TMGRPC1",458,0)
|
---|
4756 |
|
---|
4757 | "RTN","TMGRPC1",459,0)
|
---|
4758 |
|
---|
4759 | "RTN","TMGRPC1",460,0)
|
---|
4760 |
|
---|
4761 | "RTN","TMGRPC1",461,0)
|
---|
4762 | GETDFN(RESULT,RECNUM,PMS,FNAME,LNAME,MNAME,DOB,SEX,SSNUM,AUTOADD)
|
---|
4763 | "RTN","TMGRPC1",462,0)
|
---|
4764 | ;"Purpose: This is a RPC entry point for looking up a patient.
|
---|
4765 | "RTN","TMGRPC1",463,0)
|
---|
4766 | ;"Input:
|
---|
4767 | "RTN","TMGRPC1",464,0)
|
---|
4768 | ;" RESULT -- an OUT PARAMETER
|
---|
4769 | "RTN","TMGRPC1",465,0)
|
---|
4770 | ;" RECNUM -- Record number from a PMS
|
---|
4771 | "RTN","TMGRPC1",466,0)
|
---|
4772 | ;" PMS -- Which PMS RECNUM refers to (1=Medic,2=Sequel,3=Paradigm)
|
---|
4773 | "RTN","TMGRPC1",467,0)
|
---|
4774 | ;" FNAME -- First Name
|
---|
4775 | "RTN","TMGRPC1",468,0)
|
---|
4776 | ;" LNAME -- Last name
|
---|
4777 | "RTN","TMGRPC1",469,0)
|
---|
4778 | ;" MNAME -- Middle Name or initial
|
---|
4779 | "RTN","TMGRPC1",470,0)
|
---|
4780 | ;" DOB -- Date of birth in EXTERNAL format
|
---|
4781 | "RTN","TMGRPC1",471,0)
|
---|
4782 | ;" SEX -- Patient sex: M or F
|
---|
4783 | "RTN","TMGRPC1",472,0)
|
---|
4784 | ;" SSNUM -- Social security number (digits only)
|
---|
4785 | "RTN","TMGRPC1",473,0)
|
---|
4786 | ;" AUTOADD -- Automatically register patient if needed (if value=1)
|
---|
4787 | "RTN","TMGRPC1",474,0)
|
---|
4788 | ;"Output: Patient may be added to database if AUTOADD=1
|
---|
4789 | "RTN","TMGRPC1",475,0)
|
---|
4790 | ;"Results: Returns DFN (i.e. IEN in PATIENT file) or -1 if not found or error
|
---|
4791 | "RTN","TMGRPC1",476,0)
|
---|
4792 |
|
---|
4793 | "RTN","TMGRPC1",477,0)
|
---|
4794 | new Patient,TMGFREG
|
---|
4795 | "RTN","TMGRPC1",478,0)
|
---|
4796 | set RESULT=-1 ;"default to not found
|
---|
4797 | "RTN","TMGRPC1",479,0)
|
---|
4798 |
|
---|
4799 | "RTN","TMGRPC1",480,0)
|
---|
4800 | if $get(LNAME)'="" do
|
---|
4801 | "RTN","TMGRPC1",481,0)
|
---|
4802 | . set Patient("NAME")=$get(LNAME)
|
---|
4803 | "RTN","TMGRPC1",482,0)
|
---|
4804 | . if $get(FNAME)'="" set Patient("NAME")=Patient("NAME")_","_FNAME
|
---|
4805 | "RTN","TMGRPC1",483,0)
|
---|
4806 | . if $get(MNAME)'="" set Patient("NAME")=Patient("NAME")_" "_MNAME
|
---|
4807 | "RTN","TMGRPC1",484,0)
|
---|
4808 | set Patient("DOB")=$get(DOB)
|
---|
4809 | "RTN","TMGRPC1",485,0)
|
---|
4810 | set Patient("SEX")=$get(SEX)
|
---|
4811 | "RTN","TMGRPC1",486,0)
|
---|
4812 | set Patient("SSNUM")=$get(SSNUM)
|
---|
4813 | "RTN","TMGRPC1",487,0)
|
---|
4814 | test if $get(AUTOADD)=1 set TMGFREG=1
|
---|
4815 | "RTN","TMGRPC1",488,0)
|
---|
4816 |
|
---|
4817 | "RTN","TMGRPC1",489,0)
|
---|
4818 | if $get(PMS)=1 set Patient("PATIENTNUM")=$get(RECNUM) ;" <-- Medic account number
|
---|
4819 | "RTN","TMGRPC1",490,0)
|
---|
4820 | if $get(PMS)=2 set Patient("SEQUELNUM")=$get(RECNUM) ;" <-- Sequel or other account number
|
---|
4821 | "RTN","TMGRPC1",491,0)
|
---|
4822 | if $get(PMS)=3 set Patient("PARADIGMNUM")=$get(RECNUM) ;" <-- Paradigm or other account number
|
---|
4823 | "RTN","TMGRPC1",492,0)
|
---|
4824 |
|
---|
4825 | "RTN","TMGRPC1",493,0)
|
---|
4826 | ;"temp
|
---|
4827 | "RTN","TMGRPC1",494,0)
|
---|
4828 | ;"merge ^TMG("TMP","GETDFN","KILLLATER")=Patient
|
---|
4829 | "RTN","TMGRPC1",495,0)
|
---|
4830 | ;"set ^TMG("TMP","GETDFN","KILLLATER","FNAME")=FNAME
|
---|
4831 | "RTN","TMGRPC1",496,0)
|
---|
4832 | ;"set ^TMG("TMP","GETDFN","KILLLATER","LNAME")=LNAME
|
---|
4833 | "RTN","TMGRPC1",497,0)
|
---|
4834 | ;"set ^TMG("TMP","GETDFN","KILLLATER","MNAME")=MNAME
|
---|
4835 | "RTN","TMGRPC1",498,0)
|
---|
4836 |
|
---|
4837 | "RTN","TMGRPC1",499,0)
|
---|
4838 | set RESULT=$$GetDFN^TMGGDFN(.Patient)
|
---|
4839 | "RTN","TMGRPC1",500,0)
|
---|
4840 |
|
---|
4841 | "RTN","TMGRPC1",501,0)
|
---|
4842 | quit
|
---|
4843 | "RTN","TMGRPC1",502,0)
|
---|
4844 |
|
---|
4845 | "RTN","TMGRPC1",503,0)
|
---|
4846 |
|
---|
4847 | "RTN","TMGRPC1",504,0)
|
---|
4848 | BLANKTIU(RESULT,DFN,PERSON,LOC,DOS,TITLE)
|
---|
4849 | "RTN","TMGRPC1",505,0)
|
---|
4850 | ;"Purpose: To create a new, blank TIU note and return it's IEN
|
---|
4851 | "RTN","TMGRPC1",506,0)
|
---|
4852 | ;"Input: DFN -- IEN in PATIENT file of patient
|
---|
4853 | "RTN","TMGRPC1",507,0)
|
---|
4854 | ;" PERSON -- Provider NAME
|
---|
4855 | "RTN","TMGRPC1",508,0)
|
---|
4856 | ;" LOC -- Location for new document
|
---|
4857 | "RTN","TMGRPC1",509,0)
|
---|
4858 | ;" DOS -- Date of Service
|
---|
4859 | "RTN","TMGRPC1",510,0)
|
---|
4860 | ;" TITLE -- Title of new document
|
---|
4861 | "RTN","TMGRPC1",511,0)
|
---|
4862 | ;"Results: IEN in file 8925 is returned in RESULT,
|
---|
4863 | "RTN","TMGRPC1",512,0)
|
---|
4864 | ;" or -1^ErrMsg1;ErrMsg2... if failure
|
---|
4865 | "RTN","TMGRPC1",513,0)
|
---|
4866 | ;"Note: This functionality probably duplicates that of RPC call:
|
---|
4867 | "RTN","TMGRPC1",514,0)
|
---|
4868 | ;" TIU CREATE NOTE -- found after writing this...
|
---|
4869 | "RTN","TMGRPC1",515,0)
|
---|
4870 |
|
---|
4871 | "RTN","TMGRPC1",516,0)
|
---|
4872 | new Document,Flag
|
---|
4873 | "RTN","TMGRPC1",517,0)
|
---|
4874 |
|
---|
4875 | "RTN","TMGRPC1",518,0)
|
---|
4876 | set Document("DFN")=DFN
|
---|
4877 | "RTN","TMGRPC1",519,0)
|
---|
4878 | set Document("PROVIDER IEN")=$$GetProvIEN^TMGPUTN0(PERSON)
|
---|
4879 | "RTN","TMGRPC1",520,0)
|
---|
4880 | set Document("LOCATION")=$get(LOC)
|
---|
4881 | "RTN","TMGRPC1",521,0)
|
---|
4882 | set Document("DATE")=$get(DOS)
|
---|
4883 | "RTN","TMGRPC1",522,0)
|
---|
4884 | set Document("TITLE")=$get(TITLE)
|
---|
4885 | "RTN","TMGRPC1",523,0)
|
---|
4886 | set Document("TRANSCRIPTIONIST")=""
|
---|
4887 | "RTN","TMGRPC1",524,0)
|
---|
4888 | set Document("CHARACTER COUNT - TRANSCRIPTIONIST'S")=0
|
---|
4889 | "RTN","TMGRPC1",525,0)
|
---|
4890 |
|
---|
4891 | "RTN","TMGRPC1",526,0)
|
---|
4892 | set RESULT=$$PrepDoc^TMGPUTN0(.Document)
|
---|
4893 | "RTN","TMGRPC1",527,0)
|
---|
4894 | if +RESULT>0 do ;"change capture method from Upload (default) to RPC
|
---|
4895 | "RTN","TMGRPC1",528,0)
|
---|
4896 | . new TMGFDA,TMGMSG
|
---|
4897 | "RTN","TMGRPC1",529,0)
|
---|
4898 | . set TMGFDA(8925,RESULT_",",1303)="R" ;"1303 = capture method. "R" = RPC
|
---|
4899 | "RTN","TMGRPC1",530,0)
|
---|
4900 | . do FILE^DIE("E","TMGFDA","TMGMSG") ;"ignore any errors.
|
---|
4901 | "RTN","TMGRPC1",531,0)
|
---|
4902 | else do
|
---|
4903 | "RTN","TMGRPC1",532,0)
|
---|
4904 | . new i,ErrMsg set ErrMsg=""
|
---|
4905 | "RTN","TMGRPC1",533,0)
|
---|
4906 | . for i=1:1:+$get(Document("ERROR","NUM")) do
|
---|
4907 | "RTN","TMGRPC1",534,0)
|
---|
4908 | . . set ErrMsg=ErrMsg_$get(Document("ERROR",i))_" ||"
|
---|
4909 | "RTN","TMGRPC1",535,0)
|
---|
4910 | . if $data(Document("ERROR","FM INFO"))>0 do
|
---|
4911 | "RTN","TMGRPC1",536,0)
|
---|
4912 | . . new ref set ref="Document(""ERROR"",""FM INFO"")"
|
---|
4913 | "RTN","TMGRPC1",537,0)
|
---|
4914 | . . set ErrMsg=ErrMsg_"FILEMAN SAYS:"
|
---|
4915 | "RTN","TMGRPC1",538,0)
|
---|
4916 | . . for set ref=$query(@ref) quit:(ref="")!(ref'["FM INFO") do
|
---|
4917 | "RTN","TMGRPC1",539,0)
|
---|
4918 | . . . if ErrMsg'="" set ErrMsg=ErrMsg_" ||"
|
---|
4919 | "RTN","TMGRPC1",540,0)
|
---|
4920 | . . . set ErrMsg=ErrMsg_$piece(ref,"DIERR",2)_"="_$get(@ref)
|
---|
4921 | "RTN","TMGRPC1",541,0)
|
---|
4922 | . if ErrMsg="" set ErrMsg="Unknown error"
|
---|
4923 | "RTN","TMGRPC1",542,0)
|
---|
4924 | . set ErrMsg=$translate(ErrMsg,"^","@")
|
---|
4925 | "RTN","TMGRPC1",543,0)
|
---|
4926 | . set $piece(RESULT,"^",2)=ErrMsg
|
---|
4927 | "RTN","TMGRPC1",544,0)
|
---|
4928 |
|
---|
4929 | "RTN","TMGRPC1",545,0)
|
---|
4930 | ;"temp
|
---|
4931 | "RTN","TMGRPC1",546,0)
|
---|
4932 | merge ^TMG("TMP","BLANKTIU","RESULT")=RESULT
|
---|
4933 | "RTN","TMGRPC1",547,0)
|
---|
4934 | merge ^TMG("TMP","BLANKTIU","Document")=Document
|
---|
4935 | "RTN","TMGRPC1",548,0)
|
---|
4936 |
|
---|
4937 | "RTN","TMGRPC1",549,0)
|
---|
4938 |
|
---|
4939 | "RTN","TMGRPC1",550,0)
|
---|
4940 | quit
|
---|
4941 | "RTN","TMGRPC1",551,0)
|
---|
4942 |
|
---|
4943 | "RTN","TMGRPC1",552,0)
|
---|
4944 |
|
---|
4945 | "RTN","TMGRPC1",553,0)
|
---|
4946 | AUTOSIGN(RESULT,DOCIEN)
|
---|
4947 | "RTN","TMGRPC1",554,0)
|
---|
4948 | ;"Purpose: To automatically sign TIU note (8925).
|
---|
4949 | "RTN","TMGRPC1",555,0)
|
---|
4950 | ;"Input: DOCIEN -- the IEN in 8925 of the file to be automatically signed.
|
---|
4951 | "RTN","TMGRPC1",556,0)
|
---|
4952 | ;"Note: This function will not succeed unless field 1303 holds "R"
|
---|
4953 | "RTN","TMGRPC1",557,0)
|
---|
4954 | ;" and an Author found for note
|
---|
4955 | "RTN","TMGRPC1",558,0)
|
---|
4956 | ;"Results: Results passed back in RESULT(0) ARRAY
|
---|
4957 | "RTN","TMGRPC1",559,0)
|
---|
4958 | ;" -1 = failure. 1= success
|
---|
4959 | "RTN","TMGRPC1",560,0)
|
---|
4960 | ;" Any error message is passed back in RESULT("DIERR")
|
---|
4961 | "RTN","TMGRPC1",561,0)
|
---|
4962 | ;"Note: This differs from RPC CALL: TIU SIGN RECORD in that a signiture
|
---|
4963 | "RTN","TMGRPC1",562,0)
|
---|
4964 | ;" code is NOT required
|
---|
4965 | "RTN","TMGRPC1",563,0)
|
---|
4966 |
|
---|
4967 | "RTN","TMGRPC1",564,0)
|
---|
4968 | new TMGFDA,TMGMSG
|
---|
4969 | "RTN","TMGRPC1",565,0)
|
---|
4970 | new AuthorIEN,AuthorName
|
---|
4971 | "RTN","TMGRPC1",566,0)
|
---|
4972 | new CaptureMethod
|
---|
4973 | "RTN","TMGRPC1",567,0)
|
---|
4974 |
|
---|
4975 | "RTN","TMGRPC1",568,0)
|
---|
4976 | set DOCIEN=+$get(DOCIEN)
|
---|
4977 | "RTN","TMGRPC1",569,0)
|
---|
4978 | set RESULT=-1 ;"default to failure
|
---|
4979 | "RTN","TMGRPC1",570,0)
|
---|
4980 |
|
---|
4981 | "RTN","TMGRPC1",571,0)
|
---|
4982 | set CaptureMethod=$piece($get(^TIU(8925,DOCIEN,13)),"^",3)
|
---|
4983 | "RTN","TMGRPC1",572,0)
|
---|
4984 | if CaptureMethod'="R" do goto ASDone
|
---|
4985 | "RTN","TMGRPC1",573,0)
|
---|
4986 | . set RESULT("DIERR")="Unable to auto-sign. Upload-Method was not 'R'."
|
---|
4987 | "RTN","TMGRPC1",574,0)
|
---|
4988 | set AuthorIEN=$piece($get(^TIU(8925,DOCIEN,12)),"^",2)
|
---|
4989 | "RTN","TMGRPC1",575,0)
|
---|
4990 | if AuthorIEN'>0 do goto ASDone
|
---|
4991 | "RTN","TMGRPC1",576,0)
|
---|
4992 | . set RESULT("DIERR")="Unable to find author of document."
|
---|
4993 | "RTN","TMGRPC1",577,0)
|
---|
4994 | set AuthorName=$piece($get(^VA(200,AuthorIEN,0)),"^",1)
|
---|
4995 | "RTN","TMGRPC1",578,0)
|
---|
4996 |
|
---|
4997 | "RTN","TMGRPC1",579,0)
|
---|
4998 | set TMGFDA(8925,DOCIEN_",",.05)="COMPLETED" ;"field .05 = STATUS
|
---|
4999 | "RTN","TMGRPC1",580,0)
|
---|
5000 | set TMGFDA(8925,DOCIEN_",",1501)="NOW" ;"field 1501 = Signed date
|
---|
5001 | "RTN","TMGRPC1",581,0)
|
---|
5002 | set TMGFDA(8925,DOCIEN_",",1502)="`"_AuthorIEN ;"field 1502 = signed by
|
---|
5003 | "RTN","TMGRPC1",582,0)
|
---|
5004 | set TMGFDA(8925,DOCIEN_",",1503)=AuthorName ;"field 1503 = Signature block name
|
---|
5005 | "RTN","TMGRPC1",583,0)
|
---|
5006 | set TMGFDA(8925,DOCIEN_",",1504)="[Scanned image auto-signed]" ;"field 1504 = Signature block title
|
---|
5007 | "RTN","TMGRPC1",584,0)
|
---|
5008 | set TMGFDA(8925,DOCIEN_",",1505)="C" ;C=Chart ;"field 1505 = Signature mode
|
---|
5009 | "RTN","TMGRPC1",585,0)
|
---|
5010 | do FILE^DIE("E","TMGFDA","TMGMSG")
|
---|
5011 | "RTN","TMGRPC1",586,0)
|
---|
5012 | if $data(TMGMSG("DIERR")) do goto ASDone
|
---|
5013 | "RTN","TMGRPC1",587,0)
|
---|
5014 | . merge RESULT("DIERR")=TMGMSG("DIERR")
|
---|
5015 | "RTN","TMGRPC1",588,0)
|
---|
5016 |
|
---|
5017 | "RTN","TMGRPC1",589,0)
|
---|
5018 | set RESULT(0)=1 ;"set success if we got this far.
|
---|
5019 | "RTN","TMGRPC1",590,0)
|
---|
5020 | ASDone
|
---|
5021 | "RTN","TMGRPC1",591,0)
|
---|
5022 | quit
|
---|
5023 | "RTN","TMGRPC1",592,0)
|
---|
5024 |
|
---|
5025 | "RTN","TMGRPC1",593,0)
|
---|
5026 |
|
---|
5027 | "RTN","TMGRPC1",594,0)
|
---|
5028 | DFNINFO(RESULT,DFN)
|
---|
5029 | "RTN","TMGRPC1",595,0)
|
---|
5030 | ;"Purpose: To return array with demographcs details about patient
|
---|
5031 | "RTN","TMGRPC1",596,0)
|
---|
5032 | ;"Input: RESULT (this is the output array)
|
---|
5033 | "RTN","TMGRPC1",597,0)
|
---|
5034 | ;" DFN : The record number in file #2 of the patient to inquire about.
|
---|
5035 | "RTN","TMGRPC1",598,0)
|
---|
5036 | ;"Results: Results passed back in RESULT array. Format as follows:
|
---|
5037 | "RTN","TMGRPC1",599,0)
|
---|
5038 | ;" The results are in format: KeyName=Value,
|
---|
5039 | "RTN","TMGRPC1",600,0)
|
---|
5040 | ;" There is no set order these will appear.
|
---|
5041 | "RTN","TMGRPC1",601,0)
|
---|
5042 | ;" Here are the KeyName names that will be provided.
|
---|
5043 | "RTN","TMGRPC1",602,0)
|
---|
5044 | ;" If the record has no value, then value will be empty
|
---|
5045 | "RTN","TMGRPC1",603,0)
|
---|
5046 | ;" IEN=record#
|
---|
5047 | "RTN","TMGRPC1",604,0)
|
---|
5048 | ;" COMBINED_NAME=
|
---|
5049 | "RTN","TMGRPC1",605,0)
|
---|
5050 | ;" LNAME=
|
---|
5051 | "RTN","TMGRPC1",606,0)
|
---|
5052 | ;" FNAME=
|
---|
5053 | "RTN","TMGRPC1",607,0)
|
---|
5054 | ;" MNAME=
|
---|
5055 | "RTN","TMGRPC1",608,0)
|
---|
5056 | ;" PREFIX=
|
---|
5057 | "RTN","TMGRPC1",609,0)
|
---|
5058 | ;" SUFFIX=
|
---|
5059 | "RTN","TMGRPC1",610,0)
|
---|
5060 | ;" DEGREE
|
---|
5061 | "RTN","TMGRPC1",611,0)
|
---|
5062 | ;" DOB=
|
---|
5063 | "RTN","TMGRPC1",612,0)
|
---|
5064 | ;" SEX=
|
---|
5065 | "RTN","TMGRPC1",613,0)
|
---|
5066 | ;" SS_NUM=
|
---|
5067 | "RTN","TMGRPC1",614,0)
|
---|
5068 | ;" ADDRESS_LINE_1=
|
---|
5069 | "RTN","TMGRPC1",615,0)
|
---|
5070 | ;" ADDRESS_LINE_2=
|
---|
5071 | "RTN","TMGRPC1",616,0)
|
---|
5072 | ;" ADDRESS_LINE_3=
|
---|
5073 | "RTN","TMGRPC1",617,0)
|
---|
5074 | ;" CITY=
|
---|
5075 | "RTN","TMGRPC1",618,0)
|
---|
5076 | ;" STATE=
|
---|
5077 | "RTN","TMGRPC1",619,0)
|
---|
5078 | ;" ZIP4=
|
---|
5079 | "RTN","TMGRPC1",620,0)
|
---|
5080 | ;" BAD_ADDRESS=
|
---|
5081 | "RTN","TMGRPC1",621,0)
|
---|
5082 | ;" TEMP_ADDRESS_LINE_1=
|
---|
5083 | "RTN","TMGRPC1",622,0)
|
---|
5084 | ;" TEMP_ADDRESS_LINE_2=
|
---|
5085 | "RTN","TMGRPC1",623,0)
|
---|
5086 | ;" TEMP_ADDRESS_LINE_3=
|
---|
5087 | "RTN","TMGRPC1",624,0)
|
---|
5088 | ;" TEMP_CITY=
|
---|
5089 | "RTN","TMGRPC1",625,0)
|
---|
5090 | ;" TEMP_STATE=
|
---|
5091 | "RTN","TMGRPC1",626,0)
|
---|
5092 | ;" TEMP_ZIP4=
|
---|
5093 | "RTN","TMGRPC1",627,0)
|
---|
5094 | ;" TEMP_STARTING_DATE=
|
---|
5095 | "RTN","TMGRPC1",628,0)
|
---|
5096 | ;" TEMP_ENDING_DATE=
|
---|
5097 | "RTN","TMGRPC1",629,0)
|
---|
5098 | ;" TEMP_ADDRESS_ACTIVE=
|
---|
5099 | "RTN","TMGRPC1",630,0)
|
---|
5100 | ;" CONF_ADDRESS_LINE_1=
|
---|
5101 | "RTN","TMGRPC1",631,0)
|
---|
5102 | ;" CONF_ADDRESS_LINE_2=
|
---|
5103 | "RTN","TMGRPC1",632,0)
|
---|
5104 | ;" CONF_ADDRESS_LINE_3=
|
---|
5105 | "RTN","TMGRPC1",633,0)
|
---|
5106 | ;" CONF_CITY=
|
---|
5107 | "RTN","TMGRPC1",634,0)
|
---|
5108 | ;" CONF_STATE=
|
---|
5109 | "RTN","TMGRPC1",635,0)
|
---|
5110 | ;" CONF_ZIP4=
|
---|
5111 | "RTN","TMGRPC1",636,0)
|
---|
5112 | ;" CONF_STARTING_DATE=
|
---|
5113 | "RTN","TMGRPC1",637,0)
|
---|
5114 | ;" CONF_ENDING_DATE=
|
---|
5115 | "RTN","TMGRPC1",638,0)
|
---|
5116 | ;" CONF_ADDRESS_ACTIVE=
|
---|
5117 | "RTN","TMGRPC1",639,0)
|
---|
5118 | ;" PHONE_RESIDENCE=
|
---|
5119 | "RTN","TMGRPC1",640,0)
|
---|
5120 | ;" PHONE_WORK=
|
---|
5121 | "RTN","TMGRPC1",641,0)
|
---|
5122 | ;" PHONE_CELL=
|
---|
5123 | "RTN","TMGRPC1",642,0)
|
---|
5124 | ;" PHONE_TEMP=
|
---|
5125 | "RTN","TMGRPC1",643,0)
|
---|
5126 |
|
---|
5127 | "RTN","TMGRPC1",644,0)
|
---|
5128 | ;"Note, for the following, there may be multiple entries. # is record number
|
---|
5129 | "RTN","TMGRPC1",645,0)
|
---|
5130 | ;" ALIAS # NAME
|
---|
5131 | "RTN","TMGRPC1",646,0)
|
---|
5132 | ;" ALIAS # SSN
|
---|
5133 | "RTN","TMGRPC1",647,0)
|
---|
5134 |
|
---|
5135 | "RTN","TMGRPC1",648,0)
|
---|
5136 | new TMGFDA,TMGMSG,IENS
|
---|
5137 | "RTN","TMGRPC1",649,0)
|
---|
5138 | set IENS=""
|
---|
5139 | "RTN","TMGRPC1",650,0)
|
---|
5140 | new ptrParts set ptrParts=0
|
---|
5141 | "RTN","TMGRPC1",651,0)
|
---|
5142 | set DFN=+$get(DFN)
|
---|
5143 | "RTN","TMGRPC1",652,0)
|
---|
5144 | if DFN>0 do
|
---|
5145 | "RTN","TMGRPC1",653,0)
|
---|
5146 | . set ptrParts=+$piece($get(^DPT(DFN,"NAME")),"^",1) ;"ptr to file #20, NAME COMPONENTS
|
---|
5147 | "RTN","TMGRPC1",654,0)
|
---|
5148 | . set IENS=DFN_","
|
---|
5149 | "RTN","TMGRPC1",655,0)
|
---|
5150 | . do GETS^DIQ(2,IENS,"**","N","TMGFDA","TMGMSG")
|
---|
5151 | "RTN","TMGRPC1",656,0)
|
---|
5152 |
|
---|
5153 | "RTN","TMGRPC1",657,0)
|
---|
5154 | new line set line=0
|
---|
5155 | "RTN","TMGRPC1",658,0)
|
---|
5156 | set RESULT(line)="IEN="_DFN set line=line+1
|
---|
5157 | "RTN","TMGRPC1",659,0)
|
---|
5158 | set RESULT(line)="COMBINED_NAME="_$get(TMGFDA(2,IENS,.01)) set line=line+1
|
---|
5159 | "RTN","TMGRPC1",660,0)
|
---|
5160 | new s set s=""
|
---|
5161 | "RTN","TMGRPC1",661,0)
|
---|
5162 | if ptrParts>0 set s=$get(^VA(20,ptrParts,1))
|
---|
5163 | "RTN","TMGRPC1",662,0)
|
---|
5164 | set RESULT(line)="LNAME="_$piece(s,"^",1) set line=line+1
|
---|
5165 | "RTN","TMGRPC1",663,0)
|
---|
5166 | set RESULT(line)="FNAME="_$piece(s,"^",2) set line=line+1
|
---|
5167 | "RTN","TMGRPC1",664,0)
|
---|
5168 | set RESULT(line)="MNAME="_$piece(s,"^",3) set line=line+1
|
---|
5169 | "RTN","TMGRPC1",665,0)
|
---|
5170 | set RESULT(line)="PREFIX="_$piece(s,"^",4) set line=line+1
|
---|
5171 | "RTN","TMGRPC1",666,0)
|
---|
5172 | set RESULT(line)="SUFFIX="_$piece(s,"^",5) set line=line+1
|
---|
5173 | "RTN","TMGRPC1",667,0)
|
---|
5174 | set RESULT(line)="DEGREE="_$piece(s,"^",5) set line=line+1
|
---|
5175 | "RTN","TMGRPC1",668,0)
|
---|
5176 | set RESULT(line)="DOB="_$get(TMGFDA(2,IENS,.03)) set line=line+1
|
---|
5177 | "RTN","TMGRPC1",669,0)
|
---|
5178 | set RESULT(line)="SEX="_$get(TMGFDA(2,IENS,.02)) set line=line+1
|
---|
5179 | "RTN","TMGRPC1",670,0)
|
---|
5180 | set RESULT(line)="SS_NUM="_$get(TMGFDA(2,IENS,.09)) set line=line+1
|
---|
5181 | "RTN","TMGRPC1",671,0)
|
---|
5182 | set RESULT(line)="EMAIL="_$get(TMGFDA(2,IENS,.133)) set line=line+1
|
---|
5183 | "RTN","TMGRPC1",672,0)
|
---|
5184 | set RESULT(line)="ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.111)) set line=line+1
|
---|
5185 | "RTN","TMGRPC1",673,0)
|
---|
5186 | set RESULT(line)="ADDRESS_LINE_2="_$get(TMGFDA(2,IENS,.112)) set line=line+1
|
---|
5187 | "RTN","TMGRPC1",674,0)
|
---|
5188 | set RESULT(line)="ADDRESS_LINE_3="_$get(TMGFDA(2,IENS,.113)) set line=line+1
|
---|
5189 | "RTN","TMGRPC1",675,0)
|
---|
5190 | set RESULT(line)="CITY="_$get(TMGFDA(2,IENS,.114)) set line=line+1
|
---|
5191 | "RTN","TMGRPC1",676,0)
|
---|
5192 | set RESULT(line)="STATE="_$get(TMGFDA(2,IENS,.115)) set line=line+1
|
---|
5193 | "RTN","TMGRPC1",677,0)
|
---|
5194 | if $get(TMGFDA(2,IENS,.1122))'="" do
|
---|
5195 | "RTN","TMGRPC1",678,0)
|
---|
5196 | . set RESULT(line)="ZIP4="_$get(TMGFDA(2,IENS,.1122)) set line=line+1
|
---|
5197 | "RTN","TMGRPC1",679,0)
|
---|
5198 | else if $get(TMGFDA(2,IENS,.1116))'="" do
|
---|
5199 | "RTN","TMGRPC1",680,0)
|
---|
5200 | . set RESULT(line)="ZIP4="_$get(TMGFDA(2,IENS,.1116)) set line=line+1
|
---|
5201 | "RTN","TMGRPC1",681,0)
|
---|
5202 | set RESULT(line)="BAD_ADDRESS="_$get(TMGFDA(2,IENS,.121)) set line=line+1
|
---|
5203 | "RTN","TMGRPC1",682,0)
|
---|
5204 | set RESULT(line)="TEMP_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1211)) set line=line+1
|
---|
5205 | "RTN","TMGRPC1",683,0)
|
---|
5206 | set RESULT(line)="TEMP_ADDRESS_LINE_2="_$get(TMGFDA(2,IENS,.1212)) set line=line+1
|
---|
5207 | "RTN","TMGRPC1",684,0)
|
---|
5208 | set RESULT(line)="TEMP_ADDRESS_LINE_3="_$get(TMGFDA(2,IENS,.1213)) set line=line+1
|
---|
5209 | "RTN","TMGRPC1",685,0)
|
---|
5210 | set RESULT(line)="TEMP_CITY="_$get(TMGFDA(2,IENS,.1214)) set line=line+1
|
---|
5211 | "RTN","TMGRPC1",686,0)
|
---|
5212 | set RESULT(line)="TEMP_STATE="_$get(TMGFDA(2,IENS,.1215)) set line=line+1
|
---|
5213 | "RTN","TMGRPC1",687,0)
|
---|
5214 | set RESULT(line)="TEMP_ZIP4="_$get(TMGFDA(2,IENS,.1216)) set line=line+1
|
---|
5215 | "RTN","TMGRPC1",688,0)
|
---|
5216 | set RESULT(line)="TEMP_STARTING_DATE="_$get(TMGFDA(2,IENS,.1217)) set line=line+1
|
---|
5217 | "RTN","TMGRPC1",689,0)
|
---|
5218 | set RESULT(line)="TEMP_ENDING_DATE="_$get(TMGFDA(2,IENS,.1218)) set line=line+1
|
---|
5219 | "RTN","TMGRPC1",690,0)
|
---|
5220 | set RESULT(line)="TEMP_ADDRESS_ACTIVE="_$get(TMGFDA(2,IENS,.12105)) set line=line+1
|
---|
5221 | "RTN","TMGRPC1",691,0)
|
---|
5222 | set RESULT(line)="CONF_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1411)) set line=line+1
|
---|
5223 | "RTN","TMGRPC1",692,0)
|
---|
5224 | set RESULT(line)="CONF_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1412)) set line=line+1
|
---|
5225 | "RTN","TMGRPC1",693,0)
|
---|
5226 | set RESULT(line)="CONF_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1413)) set line=line+1
|
---|
5227 | "RTN","TMGRPC1",694,0)
|
---|
5228 | set RESULT(line)="CONF_CITY="_$get(TMGFDA(2,IENS,.1414)) set line=line+1
|
---|
5229 | "RTN","TMGRPC1",695,0)
|
---|
5230 | set RESULT(line)="CONF_STATE="_$get(TMGFDA(2,IENS,.1415)) set line=line+1
|
---|
5231 | "RTN","TMGRPC1",696,0)
|
---|
5232 | set RESULT(line)="CONF_ZIP4="_$get(TMGFDA(2,IENS,.1416)) set line=line+1
|
---|
5233 | "RTN","TMGRPC1",697,0)
|
---|
5234 | set RESULT(line)="CONF_STARTING_DATE="_$get(TMGFDA(2,IENS,.1417)) set line=line+1
|
---|
5235 | "RTN","TMGRPC1",698,0)
|
---|
5236 | set RESULT(line)="CONF_ENDING_DATE="_$get(TMGFDA(2,IENS,.1418)) set line=line+1
|
---|
5237 | "RTN","TMGRPC1",699,0)
|
---|
5238 | set RESULT(line)="CONF_ADDRESS_ACTIVE="_$get(TMGFDA(2,IENS,.14105)) set line=line+1
|
---|
5239 | "RTN","TMGRPC1",700,0)
|
---|
5240 | set RESULT(line)="PHONE_RESIDENCE="_$get(TMGFDA(2,IENS,.131)) set line=line+1
|
---|
5241 | "RTN","TMGRPC1",701,0)
|
---|
5242 | set RESULT(line)="PHONE_WORK="_$get(TMGFDA(2,IENS,.132)) set line=line+1
|
---|
5243 | "RTN","TMGRPC1",702,0)
|
---|
5244 | set RESULT(line)="PHONE_CELL="_$get(TMGFDA(2,IENS,.134)) set line=line+1
|
---|
5245 | "RTN","TMGRPC1",703,0)
|
---|
5246 | set RESULT(line)="PHONE_TEMP="_$get(TMGFDA(2,IENS,.1219)) set line=line+1
|
---|
5247 | "RTN","TMGRPC1",704,0)
|
---|
5248 |
|
---|
5249 | "RTN","TMGRPC1",705,0)
|
---|
5250 | ;"the GETS doesn't return ALIAS entries, so will do manually:
|
---|
5251 | "RTN","TMGRPC1",706,0)
|
---|
5252 | new Itr,IEN
|
---|
5253 | "RTN","TMGRPC1",707,0)
|
---|
5254 | set IEN=$$ItrInit^TMGITR(2.01,.Itr,DFN_",")
|
---|
5255 | "RTN","TMGRPC1",708,0)
|
---|
5256 | if IEN'="" for do quit:(+$$ItrNext^TMGITR(.Itr,.IEN)'>0)
|
---|
5257 | "RTN","TMGRPC1",709,0)
|
---|
5258 | . new s set s=$get(^DPT(DFN,.01,IEN,0))
|
---|
5259 | "RTN","TMGRPC1",710,0)
|
---|
5260 | . if s="" quit
|
---|
5261 | "RTN","TMGRPC1",711,0)
|
---|
5262 | . set RESULT(line)="ALIAS "_IEN_" NAME="_$piece(s,"^",1) set line=line+1
|
---|
5263 | "RTN","TMGRPC1",712,0)
|
---|
5264 | . set RESULT(line)="ALIAS "_IEN_" SSN="_$piece(s,"^",2) set line=line+1
|
---|
5265 | "RTN","TMGRPC1",713,0)
|
---|
5266 | . ;"maybe later do something with NAME COMPONENTS in Alias.
|
---|
5267 | "RTN","TMGRPC1",714,0)
|
---|
5268 |
|
---|
5269 | "RTN","TMGRPC1",715,0)
|
---|
5270 | quit
|
---|
5271 | "RTN","TMGRPC1",716,0)
|
---|
5272 |
|
---|
5273 | "RTN","TMGRPC1",717,0)
|
---|
5274 |
|
---|
5275 | "RTN","TMGRPC1",718,0)
|
---|
5276 | STPTINFO(RESULT,DFN,INFO) ;" SET PATIENT INFO
|
---|
5277 | "RTN","TMGRPC1",719,0)
|
---|
5278 | ;"Purpose: To set demographcs details about patient
|
---|
5279 | "RTN","TMGRPC1",720,0)
|
---|
5280 | ;"Input: RESULT (this is the output array)
|
---|
5281 | "RTN","TMGRPC1",721,0)
|
---|
5282 | ;" DFN : The record number in file #2 of the patient to inquire about.
|
---|
5283 | "RTN","TMGRPC1",722,0)
|
---|
5284 | ;" INFO: Format as follows:
|
---|
5285 | "RTN","TMGRPC1",723,0)
|
---|
5286 | ;" The results are in format: INFO("KeyName")=Value,
|
---|
5287 | "RTN","TMGRPC1",724,0)
|
---|
5288 | ;" There is no set order these will appear.
|
---|
5289 | "RTN","TMGRPC1",725,0)
|
---|
5290 | ;" Here are the KeyName names that will be provided.
|
---|
5291 | "RTN","TMGRPC1",726,0)
|
---|
5292 | ;" If the record has no value, then value will be empty
|
---|
5293 | "RTN","TMGRPC1",727,0)
|
---|
5294 | ;" If a record should be deleted, its value will be @
|
---|
5295 | "RTN","TMGRPC1",728,0)
|
---|
5296 | ;" INFO("COMBINED_NAME")=
|
---|
5297 | "RTN","TMGRPC1",729,0)
|
---|
5298 | ;" INFO("PREFIX")=
|
---|
5299 | "RTN","TMGRPC1",730,0)
|
---|
5300 | ;" INFO("SUFFIX")=
|
---|
5301 | "RTN","TMGRPC1",731,0)
|
---|
5302 | ;" INFO("DEGREE")=
|
---|
5303 | "RTN","TMGRPC1",732,0)
|
---|
5304 | ;" INFO("DOB")=
|
---|
5305 | "RTN","TMGRPC1",733,0)
|
---|
5306 | ;" INFO("SEX")=
|
---|
5307 | "RTN","TMGRPC1",734,0)
|
---|
5308 | ;" INFO("SS_NUM")=
|
---|
5309 | "RTN","TMGRPC1",735,0)
|
---|
5310 | ;" INFO("ADDRESS_LINE_1")=
|
---|
5311 | "RTN","TMGRPC1",736,0)
|
---|
5312 | ;" INFO("ADDRESS_LINE_2")=
|
---|
5313 | "RTN","TMGRPC1",737,0)
|
---|
5314 | ;" INFO("ADDRESS_LINE_3")=
|
---|
5315 | "RTN","TMGRPC1",738,0)
|
---|
5316 | ;" INFO("CITY")=
|
---|
5317 | "RTN","TMGRPC1",739,0)
|
---|
5318 | ;" INFO("STATE")=
|
---|
5319 | "RTN","TMGRPC1",740,0)
|
---|
5320 | ;" INFO("ZIP4")=
|
---|
5321 | "RTN","TMGRPC1",741,0)
|
---|
5322 | ;" INFO("BAD_ADDRESS")=
|
---|
5323 | "RTN","TMGRPC1",742,0)
|
---|
5324 | ;" INFO("TEMP_ADDRESS_LINE_1")=
|
---|
5325 | "RTN","TMGRPC1",743,0)
|
---|
5326 | ;" INFO("TEMP_ADDRESS_LINE_2")=
|
---|
5327 | "RTN","TMGRPC1",744,0)
|
---|
5328 | ;" INFO("TEMP_ADDRESS_LINE_3")=
|
---|
5329 | "RTN","TMGRPC1",745,0)
|
---|
5330 | ;" INFO("TEMP_CITY")=
|
---|
5331 | "RTN","TMGRPC1",746,0)
|
---|
5332 | ;" INFO("TEMP_STATE")=
|
---|
5333 | "RTN","TMGRPC1",747,0)
|
---|
5334 | ;" INFO("TEMP_ZIP4")=
|
---|
5335 | "RTN","TMGRPC1",748,0)
|
---|
5336 | ;" INFO("TEMP_STARTING_DATE")=
|
---|
5337 | "RTN","TMGRPC1",749,0)
|
---|
5338 | ;" INFO("TEMP_ENDING_DATE")=
|
---|
5339 | "RTN","TMGRPC1",750,0)
|
---|
5340 | ;" INFO("TEMP_ADDRESS_ACTIVE")=
|
---|
5341 | "RTN","TMGRPC1",751,0)
|
---|
5342 | ;" INFO("CONF_ADDRESS_LINE_1")=
|
---|
5343 | "RTN","TMGRPC1",752,0)
|
---|
5344 | ;" INFO("CONF_ADDRESS_LINE_2")=
|
---|
5345 | "RTN","TMGRPC1",753,0)
|
---|
5346 | ;" INFO("CONF_ADDRESS_LINE_3")=
|
---|
5347 | "RTN","TMGRPC1",754,0)
|
---|
5348 | ;" INFO("CONF_CITY")=
|
---|
5349 | "RTN","TMGRPC1",755,0)
|
---|
5350 | ;" INFO("CONF_STATE")=
|
---|
5351 | "RTN","TMGRPC1",756,0)
|
---|
5352 | ;" INFO("CONF_ZIP4")=
|
---|
5353 | "RTN","TMGRPC1",757,0)
|
---|
5354 | ;" INFO("CONF_STARTING_DATE")=
|
---|
5355 | "RTN","TMGRPC1",758,0)
|
---|
5356 | ;" INFO("CONF_ENDING_DATE")=
|
---|
5357 | "RTN","TMGRPC1",759,0)
|
---|
5358 | ;" INFO("CONF_ADDRESS_ACTIVE")=
|
---|
5359 | "RTN","TMGRPC1",760,0)
|
---|
5360 | ;" INFO("PHONE_RESIDENCE")=
|
---|
5361 | "RTN","TMGRPC1",761,0)
|
---|
5362 | ;" INFO("PHONE_WORK")=
|
---|
5363 | "RTN","TMGRPC1",762,0)
|
---|
5364 | ;" INFO("PHONE_CELL")=
|
---|
5365 | "RTN","TMGRPC1",763,0)
|
---|
5366 | ;" INFO("PHONE_TEMP")=
|
---|
5367 | "RTN","TMGRPC1",764,0)
|
---|
5368 | ;"Note, for the following, there may be multiple entries. # is record number
|
---|
5369 | "RTN","TMGRPC1",765,0)
|
---|
5370 | ;" If a record should be added, it will be marked +1, +2 etc.
|
---|
5371 | "RTN","TMGRPC1",766,0)
|
---|
5372 | ;" INFO("ALIAS # NAME")=
|
---|
5373 | "RTN","TMGRPC1",767,0)
|
---|
5374 | ;" INFO("ALIAS # SSN")=
|
---|
5375 | "RTN","TMGRPC1",768,0)
|
---|
5376 | ;"
|
---|
5377 | "RTN","TMGRPC1",769,0)
|
---|
5378 | ;"Results: Results passed back in RESULT string:
|
---|
5379 | "RTN","TMGRPC1",770,0)
|
---|
5380 | ;" 1 = success
|
---|
5381 | "RTN","TMGRPC1",771,0)
|
---|
5382 | ;" -1^Message = failure
|
---|
5383 | "RTN","TMGRPC1",772,0)
|
---|
5384 |
|
---|
5385 | "RTN","TMGRPC1",773,0)
|
---|
5386 | set RESULT=1 ;"default to success
|
---|
5387 | "RTN","TMGRPC1",774,0)
|
---|
5388 |
|
---|
5389 | "RTN","TMGRPC1",775,0)
|
---|
5390 | ;"kill ^TMG("TMP","RPC")
|
---|
5391 | "RTN","TMGRPC1",776,0)
|
---|
5392 | ;"merge ^TMG("TMP","RPC")=INFO ;"temp... remove later
|
---|
5393 | "RTN","TMGRPC1",777,0)
|
---|
5394 |
|
---|
5395 | "RTN","TMGRPC1",778,0)
|
---|
5396 | new TMGFDA,TMGMSG,IENS
|
---|
5397 | "RTN","TMGRPC1",779,0)
|
---|
5398 | set IENS=DFN_","
|
---|
5399 | "RTN","TMGRPC1",780,0)
|
---|
5400 | new key set key=""
|
---|
5401 | "RTN","TMGRPC1",781,0)
|
---|
5402 | for set key=$order(INFO(key)) quit:(key="") do
|
---|
5403 | "RTN","TMGRPC1",782,0)
|
---|
5404 | . if key="COMBINED_NAME" set TMGFDA(2,IENS,.01)=INFO("COMBINED_NAME")
|
---|
5405 | "RTN","TMGRPC1",783,0)
|
---|
5406 | . else if +key=key set TMGFDA(2,IENS,key)=INFO(key)
|
---|
5407 | "RTN","TMGRPC1",784,0)
|
---|
5408 | . else if key="DOB" set TMGFDA(2,IENS,.03)=INFO("DOB")
|
---|
5409 | "RTN","TMGRPC1",785,0)
|
---|
5410 | . else if key="SEX" set TMGFDA(2,IENS,.02)=INFO("SEX")
|
---|
5411 | "RTN","TMGRPC1",786,0)
|
---|
5412 | . else if key="SS_NUM" set TMGFDA(2,IENS,.09)=INFO("SS_NUM")
|
---|
5413 | "RTN","TMGRPC1",787,0)
|
---|
5414 | . else if key="ADDRESS_LINE_1" set TMGFDA(2,IENS,.111)=INFO("ADDRESS_LINE_1")
|
---|
5415 | "RTN","TMGRPC1",788,0)
|
---|
5416 | . else if key="ADDRESS_LINE_2" set TMGFDA(2,IENS,.112)=INFO("ADDRESS_LINE_2")
|
---|
5417 | "RTN","TMGRPC1",789,0)
|
---|
5418 | . else if key="ADDRESS_LINE_3" set TMGFDA(2,IENS,.113)=INFO("ADDRESS_LINE_3")
|
---|
5419 | "RTN","TMGRPC1",790,0)
|
---|
5420 | . else if key="CITY" set TMGFDA(2,IENS,.114)=INFO("CITY")
|
---|
5421 | "RTN","TMGRPC1",791,0)
|
---|
5422 | . else if key="STATE" set TMGFDA(2,IENS,.115)=INFO("STATE")
|
---|
5423 | "RTN","TMGRPC1",792,0)
|
---|
5424 | . else if key="ZIP4" set TMGFDA(2,IENS,.1112)=INFO("ZIP4")
|
---|
5425 | "RTN","TMGRPC1",793,0)
|
---|
5426 | . else if key="BAD_ADDRESS" set TMGFDA(2,IENS,.121)=INFO("BAD_ADDRESS")
|
---|
5427 | "RTN","TMGRPC1",794,0)
|
---|
5428 | . else if key="TEMP_ADDRESS_LINE_1" set TMGFDA(2,IENS,.1211)=INFO("TEMP_ADDRESS_LINE_1")
|
---|
5429 | "RTN","TMGRPC1",795,0)
|
---|
5430 | . else if key="TEMP_ADDRESS_LINE_2" set TMGFDA(2,IENS,.1212)=INFO("TEMP_ADDRESS_LINE_2")
|
---|
5431 | "RTN","TMGRPC1",796,0)
|
---|
5432 | . else if key="TEMP_ADDRESS_LINE_3" set TMGFDA(2,IENS,.1213)=INFO("TEMP_ADDRESS_LINE_3")
|
---|
5433 | "RTN","TMGRPC1",797,0)
|
---|
5434 | . else if key="TEMP_CITY" set TMGFDA(2,IENS,.1214)=INFO("TEMP_CITY")
|
---|
5435 | "RTN","TMGRPC1",798,0)
|
---|
5436 | . else if key="TEMP_STATE" set TMGFDA(2,IENS,.1215)=INFO("TEMP_STATE")
|
---|
5437 | "RTN","TMGRPC1",799,0)
|
---|
5438 | . else if key="TEMP_ZIP4" set TMGFDA(2,IENS,.12112)=INFO("TEMP_ZIP4")
|
---|
5439 | "RTN","TMGRPC1",800,0)
|
---|
5440 | . else if key="TEMP_STARTING_DATE" set TMGFDA(2,IENS,.1217)=INFO("TEMP_STARTING_DATE")
|
---|
5441 | "RTN","TMGRPC1",801,0)
|
---|
5442 | . else if key="TEMP_ENDING_DATE" set TMGFDA(2,IENS,.1218)=INFO("TEMP_ENDING_DATE")
|
---|
5443 | "RTN","TMGRPC1",802,0)
|
---|
5444 | . else if key="TEMP_ADDRESS_ACTIVE" set TMGFDA(2,IENS,.12105)=INFO("TEMP_ADDRESS_ACTIVE")
|
---|
5445 | "RTN","TMGRPC1",803,0)
|
---|
5446 | . else if key="CONF_ADDRESS_LINE_1" set TMGFDA(2,IENS,.1411)=INFO("CONF_ADDRESS_LINE_1")
|
---|
5447 | "RTN","TMGRPC1",804,0)
|
---|
5448 | . else if key="CONF_ADDRESS_LINE_2" set TMGFDA(2,IENS,.1412)=INFO("CONF_ADDRESS_LINE_2")
|
---|
5449 | "RTN","TMGRPC1",805,0)
|
---|
5450 | . else if key="CONF_ADDRESS_LINE_3" set TMGFDA(2,IENS,.1413)=INFO("CONF_ADDRESS_LINE_3")
|
---|
5451 | "RTN","TMGRPC1",806,0)
|
---|
5452 | . else if key="CONF_CITY" set TMGFDA(2,IENS,.1414)=INFO("CONF_CITY")
|
---|
5453 | "RTN","TMGRPC1",807,0)
|
---|
5454 | . else if key="CONF_STATE" set TMGFDA(2,IENS,.1415)=INFO("CONF_STATE")
|
---|
5455 | "RTN","TMGRPC1",808,0)
|
---|
5456 | . else if key="CONF_ZIP" set TMGFDA(2,IENS,.1416)=INFO("CONF_ZIP")
|
---|
5457 | "RTN","TMGRPC1",809,0)
|
---|
5458 | . else if key="CONF_STARTING_DATE" set TMGFDA(2,IENS,.1417)=INFO("CONF_STARTING_DATE")
|
---|
5459 | "RTN","TMGRPC1",810,0)
|
---|
5460 | . else if key="CONF_ENDING_DATE" set TMGFDA(2,IENS,.1418)=INFO("CONF_ENDING_DATE")
|
---|
5461 | "RTN","TMGRPC1",811,0)
|
---|
5462 | . else if key="CONF_ADDRESS_ACTIVE" set TMGFDA(2,IENS,.14105)=INFO("CONF_ADDRESS_ACTIVE")
|
---|
5463 | "RTN","TMGRPC1",812,0)
|
---|
5464 | . else if key="PHONE_RESIDENCE" set TMGFDA(2,IENS,.131)=INFO("PHONE_RESIDENCE")
|
---|
5465 | "RTN","TMGRPC1",813,0)
|
---|
5466 | . else if key="PHONE_WORK" set TMGFDA(2,IENS,.132)=INFO("PHONE_WORK")
|
---|
5467 | "RTN","TMGRPC1",814,0)
|
---|
5468 | . else if key="PHONE_CELL" set TMGFDA(2,IENS,.134)=INFO("PHONE_CELL")
|
---|
5469 | "RTN","TMGRPC1",815,0)
|
---|
5470 | . else if key="PHONE_TEMP" set TMGFDA(2,IENS,.1219)=INFO("PHONE_TEMP")
|
---|
5471 | "RTN","TMGRPC1",816,0)
|
---|
5472 | . else if key="EMAIL" set TMGFDA(2,IENS,.133)=INFO("EMAIL")
|
---|
5473 | "RTN","TMGRPC1",817,0)
|
---|
5474 |
|
---|
5475 | "RTN","TMGRPC1",818,0)
|
---|
5476 | if $data(TMGFDA) do
|
---|
5477 | "RTN","TMGRPC1",819,0)
|
---|
5478 | . do FILE^DIE("EKST","TMGFDA","TMGMSG")
|
---|
5479 | "RTN","TMGRPC1",820,0)
|
---|
5480 | . if $data(TMGMSG("DIERR")) do
|
---|
5481 | "RTN","TMGRPC1",821,0)
|
---|
5482 | . . set RESULT="-1^Filing Error Occured: "_$get(TMGMSG("DIERR",1,"TEXT",1))
|
---|
5483 | "RTN","TMGRPC1",822,0)
|
---|
5484 | . . ;"merge ^TMG("TMP","RPC","DIERR")=TMGMSG("DIERR")
|
---|
5485 | "RTN","TMGRPC1",823,0)
|
---|
5486 | . . ;"merge ^TMG("TMP","RPC","FDA")=TMGFDA
|
---|
5487 | "RTN","TMGRPC1",824,0)
|
---|
5488 |
|
---|
5489 | "RTN","TMGRPC1",825,0)
|
---|
5490 | ;"now file Alias info separately
|
---|
5491 | "RTN","TMGRPC1",826,0)
|
---|
5492 | if RESULT=1 do
|
---|
5493 | "RTN","TMGRPC1",827,0)
|
---|
5494 | . new tempArray,index,key2
|
---|
5495 | "RTN","TMGRPC1",828,0)
|
---|
5496 | . new key set key=""
|
---|
5497 | "RTN","TMGRPC1",829,0)
|
---|
5498 | . for set key=$order(INFO(key)) quit:(key="") do
|
---|
5499 | "RTN","TMGRPC1",830,0)
|
---|
5500 | . . if key["ALIAS" do
|
---|
5501 | "RTN","TMGRPC1",831,0)
|
---|
5502 | . . . set index=$piece(key," ",2) quit:(index="")
|
---|
5503 | "RTN","TMGRPC1",832,0)
|
---|
5504 | . . . set key2=$piece(key," ",3)
|
---|
5505 | "RTN","TMGRPC1",833,0)
|
---|
5506 | . . . set tempArray(index,key2)=INFO(key)
|
---|
5507 | "RTN","TMGRPC1",834,0)
|
---|
5508 | . set index=0 for set index=$order(tempArray(index)) quit:(index="")!(RESULT'=1) do
|
---|
5509 | "RTN","TMGRPC1",835,0)
|
---|
5510 | . . new TMGFDA,TMGMSG,TMGIEN,newRec
|
---|
5511 | "RTN","TMGRPC1",836,0)
|
---|
5512 | . . set newRec=0
|
---|
5513 | "RTN","TMGRPC1",837,0)
|
---|
5514 | . . set key="" for set key=$order(tempArray(index,key)) quit:(key="")!(RESULT'=1) do
|
---|
5515 | "RTN","TMGRPC1",838,0)
|
---|
5516 | . . . if key="NAME" set TMGFDA(2.01,index_","_DFN_",",.01)=$get(tempArray(index,"NAME"))
|
---|
5517 | "RTN","TMGRPC1",839,0)
|
---|
5518 | . . . if key="SSN" set TMGFDA(2.01,index_","_DFN_",",1)=$get(tempArray(index,"SSN"))
|
---|
5519 | "RTN","TMGRPC1",840,0)
|
---|
5520 | . . . if index["+" set newRec=1
|
---|
5521 | "RTN","TMGRPC1",841,0)
|
---|
5522 | . . if $data(TMGFDA) do
|
---|
5523 | "RTN","TMGRPC1",842,0)
|
---|
5524 | . . . if newRec=0 do FILE^DIE("EKST","TMGFDA","TMGMSG")
|
---|
5525 | "RTN","TMGRPC1",843,0)
|
---|
5526 | . . . else do UPDATE^DIE("ES","TMGFDA","TMGIEN","TMGMSG")
|
---|
5527 | "RTN","TMGRPC1",844,0)
|
---|
5528 | . . if $data(TMGMSG("DIERR")) do
|
---|
5529 | "RTN","TMGRPC1",845,0)
|
---|
5530 | . . . set RESULT="-1^Filing Error Occured: "_$get(TMGMSG("DIERR",1,"TEXT",1))
|
---|
5531 | "RTN","TMGRPC1",846,0)
|
---|
5532 | . . . ;"merge ^TMG("TMP","RPC","DIERR")=TMGMSG("DIERR")
|
---|
5533 | "RTN","TMGRPC1",847,0)
|
---|
5534 | . . . ;"merge ^TMG("TMP","RPC","FDA")=TMGFDA
|
---|
5535 | "RTN","TMGRPC1",848,0)
|
---|
5536 |
|
---|
5537 | "RTN","TMGRPC1",849,0)
|
---|
5538 | quit
|
---|
5539 | "RTN","TMGRPC1",850,0)
|
---|
5540 |
|
---|
5541 | "RTN","TMGRPC1",851,0)
|
---|
5542 | PTADD(RESULT,INFO) ;" ADD PATIENT
|
---|
5543 | "RTN","TMGRPC1",852,0)
|
---|
5544 | ;"Purpose: To add a patient
|
---|
5545 | "RTN","TMGRPC1",853,0)
|
---|
5546 | ;"Input: RESULT (this is the output array)
|
---|
5547 | "RTN","TMGRPC1",854,0)
|
---|
5548 | ;"
|
---|
5549 | "RTN","TMGRPC1",855,0)
|
---|
5550 | ;" INFO: Format as follows:
|
---|
5551 | "RTN","TMGRPC1",856,0)
|
---|
5552 | ;" The results are in format: INFO("KeyName")=Value,
|
---|
5553 | "RTN","TMGRPC1",857,0)
|
---|
5554 | ;" There is no set order these will appear.
|
---|
5555 | "RTN","TMGRPC1",858,0)
|
---|
5556 | ;" Here are the KeyName names that will be provided.
|
---|
5557 | "RTN","TMGRPC1",859,0)
|
---|
5558 | ;" If the record has no value, then value will be empty
|
---|
5559 | "RTN","TMGRPC1",860,0)
|
---|
5560 | ;" If a record should be deleted, its value will be @
|
---|
5561 | "RTN","TMGRPC1",861,0)
|
---|
5562 | ;" INFO("COMBINED_NAME")=
|
---|
5563 | "RTN","TMGRPC1",862,0)
|
---|
5564 | ;" INFO("DOB")=
|
---|
5565 | "RTN","TMGRPC1",863,0)
|
---|
5566 | ;" INFO("SEX")=
|
---|
5567 | "RTN","TMGRPC1",864,0)
|
---|
5568 | ;" INFO("SS_NUM")=
|
---|
5569 | "RTN","TMGRPC1",865,0)
|
---|
5570 | ;" INFO("Veteran")=
|
---|
5571 | "RTN","TMGRPC1",866,0)
|
---|
5572 | ;" INFO("PtType")=
|
---|
5573 | "RTN","TMGRPC1",867,0)
|
---|
5574 | ;"Results: Results passed back in RESULT string:
|
---|
5575 | "RTN","TMGRPC1",868,0)
|
---|
5576 | ;" DFN = success
|
---|
5577 | "RTN","TMGRPC1",869,0)
|
---|
5578 | ;" -1^Message = failure
|
---|
5579 | "RTN","TMGRPC1",870,0)
|
---|
5580 | ;" 0^DFN = already exists
|
---|
5581 | "RTN","TMGRPC1",871,0)
|
---|
5582 |
|
---|
5583 | "RTN","TMGRPC1",872,0)
|
---|
5584 | set RESULT=1 ;"default to success
|
---|
5585 | "RTN","TMGRPC1",873,0)
|
---|
5586 |
|
---|
5587 | "RTN","TMGRPC1",874,0)
|
---|
5588 | kill ^TMG("TMP","RPC")
|
---|
5589 | "RTN","TMGRPC1",875,0)
|
---|
5590 | merge ^TMG("TMP","RPC")=INFO ;"temp... remove later
|
---|
5591 | "RTN","TMGRPC1",876,0)
|
---|
5592 |
|
---|
5593 | "RTN","TMGRPC1",877,0)
|
---|
5594 | new TMGFDA,TMGMSG,IENS,PATIENT,DFN,TMGFREG
|
---|
5595 | "RTN","TMGRPC1",878,0)
|
---|
5596 | ;" set IENS=DFN_","
|
---|
5597 | "RTN","TMGRPC1",879,0)
|
---|
5598 | new key set key=""
|
---|
5599 | "RTN","TMGRPC1",880,0)
|
---|
5600 | for set key=$order(INFO(key)) quit:(key="") do
|
---|
5601 | "RTN","TMGRPC1",881,0)
|
---|
5602 | . if key="COMBINED_NAME" set PATIENT("NAME")=INFO("COMBINED_NAME")
|
---|
5603 | "RTN","TMGRPC1",882,0)
|
---|
5604 | . else if key="DOB" set PATIENT("DOB")=INFO("DOB")
|
---|
5605 | "RTN","TMGRPC1",883,0)
|
---|
5606 | . else if key="SEX" set PATIENT("SEX")=INFO("SEX")
|
---|
5607 | "RTN","TMGRPC1",884,0)
|
---|
5608 | . else if key="SS_NUM" set PATIENT("SSNUM")=INFO("SS_NUM")
|
---|
5609 | "RTN","TMGRPC1",885,0)
|
---|
5610 | . else if key="Veteran" set PATIENT("VETERAN")=INFO("Veteran")
|
---|
5611 | "RTN","TMGRPC1",886,0)
|
---|
5612 | . else if key="PtType" set PATIENT("PT_TYPE")=INFO("PtType")
|
---|
5613 | "RTN","TMGRPC1",887,0)
|
---|
5614 | set DFN=$$GetDFN^TMGGDFN(.PATIENT)
|
---|
5615 | "RTN","TMGRPC1",888,0)
|
---|
5616 | if DFN=-1 do
|
---|
5617 | "RTN","TMGRPC1",889,0)
|
---|
5618 | . new Entry,result,ErrMsg
|
---|
5619 | "RTN","TMGRPC1",890,0)
|
---|
5620 | . do Pat2Entry^TMGGDFN(.PATIENT,.Entry)
|
---|
5621 | "RTN","TMGRPC1",891,0)
|
---|
5622 | . set DFN=$$AddNewPt^TMGGDFN(.Entry,.ErrMsg)
|
---|
5623 | "RTN","TMGRPC1",892,0)
|
---|
5624 | . ;"set DFN=$$GetDFN^TMGGDFN(.PATIENT)
|
---|
5625 | "RTN","TMGRPC1",893,0)
|
---|
5626 | . if DFN'>0 do
|
---|
5627 | "RTN","TMGRPC1",894,0)
|
---|
5628 | . . set RESULT="-1^ERROR ADDING" ;"should use ErrMsg from above. Fix later
|
---|
5629 | "RTN","TMGRPC1",895,0)
|
---|
5630 | . . set RESULT=RESULT_". "_$$GetErrStr^TMGDEBUG(.ErrMsg)
|
---|
5631 | "RTN","TMGRPC1",896,0)
|
---|
5632 | . else do
|
---|
5633 | "RTN","TMGRPC1",897,0)
|
---|
5634 | .. set RESULT=DFN
|
---|
5635 | "RTN","TMGRPC1",898,0)
|
---|
5636 | else do
|
---|
5637 | "RTN","TMGRPC1",899,0)
|
---|
5638 | . set RESULT="0^"_DFN
|
---|
5639 | "RTN","TMGRPC1",900,0)
|
---|
5640 |
|
---|
5641 | "RTN","TMGRPC1",901,0)
|
---|
5642 | quit
|
---|
5643 | "RTN","TMGRPC1",902,0)
|
---|
5644 |
|
---|
5645 | "RTN","TMGRPC1",903,0)
|
---|
5646 |
|
---|
5647 | "RTN","TMGRPC1",904,0)
|
---|
5648 | GETBARCD(GREF,MESSAGE,OPTION)
|
---|
5649 | "RTN","TMGRPC1",905,0)
|
---|
5650 | ;"SCOPE: Public
|
---|
5651 | "RTN","TMGRPC1",906,0)
|
---|
5652 | ;"RPC that calls this: TMG BARCODE ENCODE
|
---|
5653 | "RTN","TMGRPC1",907,0)
|
---|
5654 | ;"Purpose: To provide an entry point for a RPC call from a client.
|
---|
5655 | "RTN","TMGRPC1",908,0)
|
---|
5656 | ;" A 2D DataMatrix Bar Code will be create and passed to client.
|
---|
5657 | "RTN","TMGRPC1",909,0)
|
---|
5658 | ;" It will not be stored on server
|
---|
5659 | "RTN","TMGRPC1",910,0)
|
---|
5660 | ;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
|
---|
5661 | "RTN","TMGRPC1",911,0)
|
---|
5662 | ;" MESSAGE-- The text to use to create the barcode
|
---|
5663 | "RTN","TMGRPC1",912,0)
|
---|
5664 | ;" OPTION -- Array that may hold optional settings, as follows:
|
---|
5665 | "RTN","TMGRPC1",913,0)
|
---|
5666 | ;" OPTION("IMAGE TYPE")="jpg" <-- if not specified, then default is "png"
|
---|
5667 | "RTN","TMGRPC1",914,0)
|
---|
5668 | ;"Output: results are passed out in @GREF
|
---|
5669 | "RTN","TMGRPC1",915,0)
|
---|
5670 | ;" @GREF@(0)=success; 1=success, 0=failure
|
---|
5671 | "RTN","TMGRPC1",916,0)
|
---|
5672 | ;" @GREF@(1..xxx) = actual data
|
---|
5673 | "RTN","TMGRPC1",917,0)
|
---|
5674 |
|
---|
5675 | "RTN","TMGRPC1",918,0)
|
---|
5676 | ;"NOTE: dmtxread must be installed on linux host.
|
---|
5677 | "RTN","TMGRPC1",919,0)
|
---|
5678 | ;" I found source code here:
|
---|
5679 | "RTN","TMGRPC1",920,0)
|
---|
5680 | ;" http://sourceforge.net/projects/libdmtx/
|
---|
5681 | "RTN","TMGRPC1",921,0)
|
---|
5682 | ;" After installing (./configure --> make --> make install), I
|
---|
5683 | "RTN","TMGRPC1",922,0)
|
---|
5684 | ;" copied dmtxread and dmtxwrite, which were found in the
|
---|
5685 | "RTN","TMGRPC1",923,0)
|
---|
5686 | ;" (installdir)/util/dmtxread/.libs and (installdir)/util/dmtxwrite/.libs
|
---|
5687 | "RTN","TMGRPC1",924,0)
|
---|
5688 | ;" folders, into a folder on the system path. I chose /usr/bin/
|
---|
5689 | "RTN","TMGRPC1",925,0)
|
---|
5690 | ;" Also, to achieve compile of above, I had to install required libs.
|
---|
5691 | "RTN","TMGRPC1",926,0)
|
---|
5692 | ;" See notes included with dmtx source code.
|
---|
5693 | "RTN","TMGRPC1",927,0)
|
---|
5694 |
|
---|
5695 | "RTN","TMGRPC1",928,0)
|
---|
5696 | new FileSpec
|
---|
5697 | "RTN","TMGRPC1",929,0)
|
---|
5698 | new file
|
---|
5699 | "RTN","TMGRPC1",930,0)
|
---|
5700 | new FName,FPath
|
---|
5701 | "RTN","TMGRPC1",931,0)
|
---|
5702 |
|
---|
5703 | "RTN","TMGRPC1",932,0)
|
---|
5704 | set GREF="^TMP(""GETBARCD^TMGRPC1"","_$J_")"
|
---|
5705 | "RTN","TMGRPC1",933,0)
|
---|
5706 | kill @GREF
|
---|
5707 | "RTN","TMGRPC1",934,0)
|
---|
5708 | set @GREF@(0)="" ;"default to failure
|
---|
5709 | "RTN","TMGRPC1",935,0)
|
---|
5710 | set MESSAGE=$get(MESSAGE)
|
---|
5711 | "RTN","TMGRPC1",936,0)
|
---|
5712 | if MESSAGE="" goto GBCDone
|
---|
5713 | "RTN","TMGRPC1",937,0)
|
---|
5714 |
|
---|
5715 | "RTN","TMGRPC1",938,0)
|
---|
5716 | ;"Create the barcode and get file name and path
|
---|
5717 | "RTN","TMGRPC1",939,0)
|
---|
5718 | set file=$$MAKEBC^TMGBARC(MESSAGE,.OPTION)
|
---|
5719 | "RTN","TMGRPC1",940,0)
|
---|
5720 | do SplitFNamePath^TMGIOUTL(file,.FPath,.FName,"/")
|
---|
5721 | "RTN","TMGRPC1",941,0)
|
---|
5722 |
|
---|
5723 | "RTN","TMGRPC1",942,0)
|
---|
5724 | ;"Load binary image into global array
|
---|
5725 | "RTN","TMGRPC1",943,0)
|
---|
5726 | set @GREF@(0)=$$BFTG^TMGBINF(.FPath,.FName,$name(@GREF@(1)),3)
|
---|
5727 | "RTN","TMGRPC1",944,0)
|
---|
5728 |
|
---|
5729 | "RTN","TMGRPC1",945,0)
|
---|
5730 | ;"convert binary data to ascii encoded data
|
---|
5731 | "RTN","TMGRPC1",946,0)
|
---|
5732 | do ENCODE($name(@GREF@(1)),3)
|
---|
5733 | "RTN","TMGRPC1",947,0)
|
---|
5734 |
|
---|
5735 | "RTN","TMGRPC1",948,0)
|
---|
5736 | ;"delete temp image file
|
---|
5737 | "RTN","TMGRPC1",949,0)
|
---|
5738 | do SplitFNamePath^TMGIOUTL(file,.FPath,.FName,"/")
|
---|
5739 | "RTN","TMGRPC1",950,0)
|
---|
5740 | set FileSpec(FName)=""
|
---|
5741 | "RTN","TMGRPC1",951,0)
|
---|
5742 | new temp set temp=$$DEL^%ZISH(FPath,"FileSpec")
|
---|
5743 | "RTN","TMGRPC1",952,0)
|
---|
5744 |
|
---|
5745 | "RTN","TMGRPC1",953,0)
|
---|
5746 | GBCDone
|
---|
5747 | "RTN","TMGRPC1",954,0)
|
---|
5748 | quit
|
---|
5749 | "RTN","TMGRPC1",955,0)
|
---|
5750 |
|
---|
5751 | "RTN","TMGRPC1",956,0)
|
---|
5752 |
|
---|
5753 | "RTN","TMGRPC1",957,0)
|
---|
5754 | DECODEBC(RESULT,ARRAY,IMGTYPE)
|
---|
5755 | "RTN","TMGRPC1",958,0)
|
---|
5756 | ;"SCOPE: Public
|
---|
5757 | "RTN","TMGRPC1",959,0)
|
---|
5758 | ;"RPC that calls this: TMG BARCODE DECODE
|
---|
5759 | "RTN","TMGRPC1",960,0)
|
---|
5760 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
5761 | "RTN","TMGRPC1",961,0)
|
---|
5762 | ;" will upload an image file (.png format only) of a barcode (Datamatrix
|
---|
5763 | "RTN","TMGRPC1",962,0)
|
---|
5764 | ;" format) for decoding. Decoded message is passed back.
|
---|
5765 | "RTN","TMGRPC1",963,0)
|
---|
5766 | ;"Input: RESULT -- an OUT PARAMETER. See output below.
|
---|
5767 | "RTN","TMGRPC1",964,0)
|
---|
5768 | ;" ARRAY -- the array that will hold the image file, in BASE64 ascii encoding
|
---|
5769 | "RTN","TMGRPC1",965,0)
|
---|
5770 | ;" IMGTYPE -- Image type, e.g. "jpg" (Note: don't include any '.')
|
---|
5771 | "RTN","TMGRPC1",966,0)
|
---|
5772 | ;"Output: results are passed out in RESULT: 1^Decoded Message or 0^FailureMessage
|
---|
5773 | "RTN","TMGRPC1",967,0)
|
---|
5774 |
|
---|
5775 | "RTN","TMGRPC1",968,0)
|
---|
5776 | ;"NOTE: dmtxread must be installed on linux host.
|
---|
5777 | "RTN","TMGRPC1",969,0)
|
---|
5778 | ;" I found source code here:
|
---|
5779 | "RTN","TMGRPC1",970,0)
|
---|
5780 | ;" http://sourceforge.net/projects/libdmtx/
|
---|
5781 | "RTN","TMGRPC1",971,0)
|
---|
5782 | ;" After installing (./configure --> make --> make install), I
|
---|
5783 | "RTN","TMGRPC1",972,0)
|
---|
5784 | ;" copied dmtxread and dmtxwrite, which were found in the
|
---|
5785 | "RTN","TMGRPC1",973,0)
|
---|
5786 | ;" (installdir)/util/dmtxread/.libs and (installdir)/util/dmtxwrite/.libs
|
---|
5787 | "RTN","TMGRPC1",974,0)
|
---|
5788 | ;" folders, into a folder on the system path. I chose /usr/bin/
|
---|
5789 | "RTN","TMGRPC1",975,0)
|
---|
5790 | ;" Also, to achieve compile of above, I had to install required libs.
|
---|
5791 | "RTN","TMGRPC1",976,0)
|
---|
5792 | ;" See notes included with dmtx source code.
|
---|
5793 | "RTN","TMGRPC1",977,0)
|
---|
5794 | ;"NOTE: if image types other than .png will be uploaded, then the linux host
|
---|
5795 | "RTN","TMGRPC1",978,0)
|
---|
5796 | ;" must have ImageMagick utility 'convert' installed for conversion
|
---|
5797 | "RTN","TMGRPC1",979,0)
|
---|
5798 | ;" between image types.
|
---|
5799 | "RTN","TMGRPC1",980,0)
|
---|
5800 |
|
---|
5801 | "RTN","TMGRPC1",981,0)
|
---|
5802 | kill ^TMG("TMP","BARCODE")
|
---|
5803 | "RTN","TMGRPC1",982,0)
|
---|
5804 | ;"set ^TMG("TMP","BARCODE","LOG")=1 ;"temp
|
---|
5805 | "RTN","TMGRPC1",983,0)
|
---|
5806 |
|
---|
5807 | "RTN","TMGRPC1",984,0)
|
---|
5808 | ;"new Stack do GetStackInfo^TMGIDE2(.Stack)
|
---|
5809 | "RTN","TMGRPC1",985,0)
|
---|
5810 | ;"merge ^TMG("TMP","BARCODE","STACK")=Stack
|
---|
5811 | "RTN","TMGRPC1",986,0)
|
---|
5812 |
|
---|
5813 | "RTN","TMGRPC1",987,0)
|
---|
5814 | new resultMsg
|
---|
5815 | "RTN","TMGRPC1",988,0)
|
---|
5816 | if $data(ARRAY)=0 set resultMsg="0^No image data received to decode" goto DBCDone
|
---|
5817 | "RTN","TMGRPC1",989,0)
|
---|
5818 |
|
---|
5819 | "RTN","TMGRPC1",990,0)
|
---|
5820 | new imageType set imageType=$$LOW^XLFSTR($get(IMGTYPE))
|
---|
5821 | "RTN","TMGRPC1",991,0)
|
---|
5822 | if imageType="" set resultMsg="0^Image type not specified" goto DBCDone
|
---|
5823 | "RTN","TMGRPC1",992,0)
|
---|
5824 |
|
---|
5825 | "RTN","TMGRPC1",993,0)
|
---|
5826 | new imageFName set imageFName="/tmp/barcode."_imageType
|
---|
5827 | "RTN","TMGRPC1",994,0)
|
---|
5828 | set imageFName=$$UNIQUE^%ZISUTL(imageFName)
|
---|
5829 | "RTN","TMGRPC1",995,0)
|
---|
5830 | new FName,FPath,FileSpec
|
---|
5831 | "RTN","TMGRPC1",996,0)
|
---|
5832 | do SplitFNamePath^TMGIOUTL(imageFName,.FPath,.FName,"/")
|
---|
5833 | "RTN","TMGRPC1",997,0)
|
---|
5834 | set FileSpec(FName)=""
|
---|
5835 | "RTN","TMGRPC1",998,0)
|
---|
5836 |
|
---|
5837 | "RTN","TMGRPC1",999,0)
|
---|
5838 | ;"temp...
|
---|
5839 | "RTN","TMGRPC1",1000,0)
|
---|
5840 | ;"merge ^TMG("TMP","BARCODE","DATA")=ARRAY
|
---|
5841 | "RTN","TMGRPC1",1001,0)
|
---|
5842 | ;"merge ^TMG("TMP","BARCODE","IMGTYPE")=IMGTYPE
|
---|
5843 | "RTN","TMGRPC1",1002,0)
|
---|
5844 |
|
---|
5845 | "RTN","TMGRPC1",1003,0)
|
---|
5846 | ;"set ^TMG("TMP","BARCODE","LOG")=2 ;"temp
|
---|
5847 | "RTN","TMGRPC1",1004,0)
|
---|
5848 | ;"Remove BASE64 ascii encoding
|
---|
5849 | "RTN","TMGRPC1",1005,0)
|
---|
5850 | do DECODE("ARRAY(0)",1)
|
---|
5851 | "RTN","TMGRPC1",1006,0)
|
---|
5852 |
|
---|
5853 | "RTN","TMGRPC1",1007,0)
|
---|
5854 | ;"set ^TMG("TMP","BARCODE","LOG")=3 ;"temp
|
---|
5855 | "RTN","TMGRPC1",1008,0)
|
---|
5856 | ;"set ^TMG("TMP","BARCODE","LOG","Orig file: "_FPath_FName)=""
|
---|
5857 | "RTN","TMGRPC1",1009,0)
|
---|
5858 |
|
---|
5859 | "RTN","TMGRPC1",1010,0)
|
---|
5860 | ;"Save to host file system
|
---|
5861 | "RTN","TMGRPC1",1011,0)
|
---|
5862 | if $$GTBF^TMGBINF("ARRAY(0)",1,FPath,FName)=0 do goto DBCDone
|
---|
5863 | "RTN","TMGRPC1",1012,0)
|
---|
5864 | . set resultMsg="0^Error while saving file to HFS"
|
---|
5865 | "RTN","TMGRPC1",1013,0)
|
---|
5866 |
|
---|
5867 | "RTN","TMGRPC1",1014,0)
|
---|
5868 | ;"set ^TMG("TMP","BARCODE","LOG")=4 ;"temp
|
---|
5869 | "RTN","TMGRPC1",1015,0)
|
---|
5870 |
|
---|
5871 | "RTN","TMGRPC1",1016,0)
|
---|
5872 | ;"convert image file to .png format, if needed
|
---|
5873 | "RTN","TMGRPC1",1017,0)
|
---|
5874 | if imageType'="png" do
|
---|
5875 | "RTN","TMGRPC1",1018,0)
|
---|
5876 | . set imageFName=$$Convert^TMGKERNL(imageFName,"png")
|
---|
5877 | "RTN","TMGRPC1",1019,0)
|
---|
5878 | . if imageFName="" do quit
|
---|
5879 | "RTN","TMGRPC1",1020,0)
|
---|
5880 | . . set resultMsg="0^Error while converting image from ."_imageType_" to .png format."
|
---|
5881 | "RTN","TMGRPC1",1021,0)
|
---|
5882 | . do SplitFNamePath^TMGIOUTL(imageFName,.FPath,.FName,"/")
|
---|
5883 | "RTN","TMGRPC1",1022,0)
|
---|
5884 | . set FileSpec(FName)=""
|
---|
5885 | "RTN","TMGRPC1",1023,0)
|
---|
5886 | if imageFName="" goto DBCDone
|
---|
5887 | "RTN","TMGRPC1",1024,0)
|
---|
5888 |
|
---|
5889 | "RTN","TMGRPC1",1025,0)
|
---|
5890 | ;"set ^TMG("TMP","BARCODE","LOG")=5 ;"temp
|
---|
5891 | "RTN","TMGRPC1",1026,0)
|
---|
5892 |
|
---|
5893 | "RTN","TMGRPC1",1027,0)
|
---|
5894 | ;"Decode the barcode.png image
|
---|
5895 | "RTN","TMGRPC1",1028,0)
|
---|
5896 | new result set result=$$READBC^TMGBARC(imageFName)
|
---|
5897 | "RTN","TMGRPC1",1029,0)
|
---|
5898 | if result'="" set resultMsg="1^"_result
|
---|
5899 | "RTN","TMGRPC1",1030,0)
|
---|
5900 | else set resultMsg="0^Unable to Decode Image"
|
---|
5901 | "RTN","TMGRPC1",1031,0)
|
---|
5902 |
|
---|
5903 | "RTN","TMGRPC1",1032,0)
|
---|
5904 | ;"delete temp image file
|
---|
5905 | "RTN","TMGRPC1",1033,0)
|
---|
5906 | ;"temp REMOVE COMMENTS LATER TO DELETE FILE. !!!!!
|
---|
5907 | "RTN","TMGRPC1",1034,0)
|
---|
5908 | ;"set result=$$DEL^%ZISH(FPath,"FileSpec")
|
---|
5909 | "RTN","TMGRPC1",1035,0)
|
---|
5910 |
|
---|
5911 | "RTN","TMGRPC1",1036,0)
|
---|
5912 | DBCDone
|
---|
5913 | "RTN","TMGRPC1",1037,0)
|
---|
5914 | ;"set ^TMG("TMP","BARCODE","LOG")=6 ;"temp
|
---|
5915 | "RTN","TMGRPC1",1038,0)
|
---|
5916 |
|
---|
5917 | "RTN","TMGRPC1",1039,0)
|
---|
5918 | set RESULT=resultMsg
|
---|
5919 | "RTN","TMGRPC1",1040,0)
|
---|
5920 | quit
|
---|
5921 | "RTN","TMGRPC1",1041,0)
|
---|
5922 |
|
---|
5923 | "RTN","TMGRPC1",1042,0)
|
---|
5924 | ;"--------------------
|
---|
5925 | "RTN","TMGRPC1",1043,0)
|
---|
5926 | GETURLS(RESULT)
|
---|
5927 | "RTN","TMGRPC1",1044,0)
|
---|
5928 | ;"SCOPE: Public
|
---|
5929 | "RTN","TMGRPC1",1045,0)
|
---|
5930 | ;"RPC that calls this: TMG CPRS GET URL LIST
|
---|
5931 | "RTN","TMGRPC1",1046,0)
|
---|
5932 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
5933 | "RTN","TMGRPC1",1047,0)
|
---|
5934 | ;" will request URLs to display in custom tabs inside CPRS, in an
|
---|
5935 | "RTN","TMGRPC1",1048,0)
|
---|
5936 | ;" imbedded web browser
|
---|
5937 | "RTN","TMGRPC1",1049,0)
|
---|
5938 | ;"Input: RESULT -- an OUT PARAMETER. See output below.
|
---|
5939 | "RTN","TMGRPC1",1050,0)
|
---|
5940 | ;"Output: results are passed out in RESULT:
|
---|
5941 | "RTN","TMGRPC1",1051,0)
|
---|
5942 | ;" RESULT(0)="1^Success" or "0^SomeFailureMessage"
|
---|
5943 | "RTN","TMGRPC1",1052,0)
|
---|
5944 | ;" RESULT(1)="Name1^URL#1" ; shows URL#1 in tab #1, named 'Name1'
|
---|
5945 | "RTN","TMGRPC1",1053,0)
|
---|
5946 | ;" RESULT(2)="Name2^URL#2" ; etc.
|
---|
5947 | "RTN","TMGRPC1",1054,0)
|
---|
5948 | ;" RESULT(3)="Name3^URL#3"
|
---|
5949 | "RTN","TMGRPC1",1055,0)
|
---|
5950 | ;"
|
---|
5951 | "RTN","TMGRPC1",1056,0)
|
---|
5952 | ;" E.g. RESULT(1)="cnn^www.cnn.com"
|
---|
5953 | "RTN","TMGRPC1",1057,0)
|
---|
5954 | ;" RESULT(2)="INFO^192.168.0.1/home.html"
|
---|
5955 | "RTN","TMGRPC1",1058,0)
|
---|
5956 | ;"
|
---|
5957 | "RTN","TMGRPC1",1059,0)
|
---|
5958 | ;" The number of allowed tabs is determined by code in CPRS
|
---|
5959 | "RTN","TMGRPC1",1060,0)
|
---|
5960 | ;" Reference to tab numbers > specified in CPRS will be ignored by CPRS
|
---|
5961 | "RTN","TMGRPC1",1061,0)
|
---|
5962 | ;" If a web tab is NOT specified, then the page previously
|
---|
5963 | "RTN","TMGRPC1",1062,0)
|
---|
5964 | ;" displayed will be left in place. It will not be cleared.
|
---|
5965 | "RTN","TMGRPC1",1063,0)
|
---|
5966 | ;" To clear a given page, a url of "about:blank" will cause a
|
---|
5967 | "RTN","TMGRPC1",1064,0)
|
---|
5968 | ;" blank page to be displayed. e.g.
|
---|
5969 | "RTN","TMGRPC1",1065,0)
|
---|
5970 | ;" RESULT(3)="^about:blank"
|
---|
5971 | "RTN","TMGRPC1",1066,0)
|
---|
5972 | ;" To HIDE a tab on CPRS use this:
|
---|
5973 | "RTN","TMGRPC1",1067,0)
|
---|
5974 | ;" RESULT(3)="^<!HIDE!>" ;triggers tab #3 to be hidden
|
---|
5975 | "RTN","TMGRPC1",1068,0)
|
---|
5976 | ;" To have the browser remain UNCHANGED use this:
|
---|
5977 | "RTN","TMGRPC1",1069,0)
|
---|
5978 | ;" RESULT(3)="^<!NOCHANGE!>" ;triggers tab #3 to remain unchanged.
|
---|
5979 | "RTN","TMGRPC1",1070,0)
|
---|
5980 | ;" Note: the rationale for this is that the web tab may have info
|
---|
5981 | "RTN","TMGRPC1",1071,0)
|
---|
5982 | ;" that should not be refreshed when the patient info is refreshed
|
---|
5983 | "RTN","TMGRPC1",1072,0)
|
---|
5984 | ;" i.e. the user may have navigated somewhere, and doesn't want
|
---|
5985 | "RTN","TMGRPC1",1073,0)
|
---|
5986 | ;" to loose their location.
|
---|
5987 | "RTN","TMGRPC1",1074,0)
|
---|
5988 | ;" --to be implemented.
|
---|
5989 | "RTN","TMGRPC1",1075,0)
|
---|
5990 | ;" Note: The other way to do this, as above, is to simply have NO
|
---|
5991 | "RTN","TMGRPC1",1076,0)
|
---|
5992 | ;" entry for a given tab. I.e. don't have any value for RESULT(3)
|
---|
5993 | "RTN","TMGRPC1",1077,0)
|
---|
5994 | ;" --already implemented.
|
---|
5995 | "RTN","TMGRPC1",1078,0)
|
---|
5996 | ;"Notice to others: Below is where code should be added to return
|
---|
5997 | "RTN","TMGRPC1",1079,0)
|
---|
5998 | ;" proper URL's to CPRS. This will be called whenever a new patient
|
---|
5999 | "RTN","TMGRPC1",1080,0)
|
---|
6000 | ;" is opened, or a Refresh Information is requested.
|
---|
6001 | "RTN","TMGRPC1",1081,0)
|
---|
6002 | ;" FYI, 'DFN' should be defined as a globally-scoped variable that can be used
|
---|
6003 | "RTN","TMGRPC1",1082,0)
|
---|
6004 | ;" to pass back URLS specific for a given patient.
|
---|
6005 | "RTN","TMGRPC1",1083,0)
|
---|
6006 |
|
---|
6007 | "RTN","TMGRPC1",1084,0)
|
---|
6008 | set RESULT(0)="1^Success"
|
---|
6009 | "RTN","TMGRPC1",1085,0)
|
---|
6010 | ;"set RESULT(1)="Yahoo^www.yahoo.com"
|
---|
6011 | "RTN","TMGRPC1",1086,0)
|
---|
6012 | ;"set RESULT(2)="(x)^about:blank"
|
---|
6013 | "RTN","TMGRPC1",1087,0)
|
---|
6014 | ;"set RESULT(3)="^<!HIDE!>"
|
---|
6015 | "RTN","TMGRPC1",1088,0)
|
---|
6016 |
|
---|
6017 | "RTN","TMGRPC1",1089,0)
|
---|
6018 | ;"kill RESULT
|
---|
6019 | "RTN","TMGRPC1",1090,0)
|
---|
6020 | ;"merge RESULT=^TMG("TMP","URLS") ;"TEMP!!!
|
---|
6021 | "RTN","TMGRPC1",1091,0)
|
---|
6022 |
|
---|
6023 | "RTN","TMGRPC1",1092,0)
|
---|
6024 | quit
|
---|
6025 | "RTN","TMGRPC1",1093,0)
|
---|
6026 |
|
---|
6027 | "RTN","TMGRPC1",1094,0)
|
---|
6028 | ;
|
---|
6029 | "RTN","TMGRPC1A")
|
---|
6030 | 0^2^B23521637
|
---|
6031 | "RTN","TMGRPC1A",1,0)
|
---|
6032 | TMGRPC1A ;TMG/kst-RPC Functions ;2/11/10
|
---|
6033 | "RTN","TMGRPC1A",2,0)
|
---|
6034 | ;;1.0;TMG-LIB;**1**;2/11/10;Build 2
|
---|
6035 | "RTN","TMGRPC1A",3,0)
|
---|
6036 | ;
|
---|
6037 | "RTN","TMGRPC1A",4,0)
|
---|
6038 | ;"TMG RPC FUNCTIONS
|
---|
6039 | "RTN","TMGRPC1A",5,0)
|
---|
6040 | ;
|
---|
6041 | "RTN","TMGRPC1A",6,0)
|
---|
6042 | ;"Copyright Kevin Toppenberg MD
|
---|
6043 | "RTN","TMGRPC1A",7,0)
|
---|
6044 | ;"Released under GNU General Public License (GPL)
|
---|
6045 | "RTN","TMGRPC1A",8,0)
|
---|
6046 | ;"
|
---|
6047 | "RTN","TMGRPC1A",9,0)
|
---|
6048 | ;"=======================================================================
|
---|
6049 | "RTN","TMGRPC1A",10,0)
|
---|
6050 | ;" RPC -- Public Functions.
|
---|
6051 | "RTN","TMGRPC1A",11,0)
|
---|
6052 | ;"=======================================================================
|
---|
6053 | "RTN","TMGRPC1A",12,0)
|
---|
6054 | ;"SETINIVL(RESULT,SECTION,KEY,VALUE) ;Entry point for TMG INIFILE SET
|
---|
6055 | "RTN","TMGRPC1A",13,0)
|
---|
6056 | ;"GETINIVL(RESULT,SECTION,KEY,DEFAULT) ;Entry point for TMG INIFILE GET
|
---|
6057 | "RTN","TMGRPC1A",14,0)
|
---|
6058 | ;
|
---|
6059 | "RTN","TMGRPC1A",15,0)
|
---|
6060 | ;"=======================================================================
|
---|
6061 | "RTN","TMGRPC1A",16,0)
|
---|
6062 | ;"PRIVATE API FUNCTIONS
|
---|
6063 | "RTN","TMGRPC1A",17,0)
|
---|
6064 | ;"=======================================================================
|
---|
6065 | "RTN","TMGRPC1A",18,0)
|
---|
6066 | ;
|
---|
6067 | "RTN","TMGRPC1A",19,0)
|
---|
6068 | ;"=======================================================================
|
---|
6069 | "RTN","TMGRPC1A",20,0)
|
---|
6070 | ;"=======================================================================
|
---|
6071 | "RTN","TMGRPC1A",21,0)
|
---|
6072 | ;"Dependencies:
|
---|
6073 | "RTN","TMGRPC1A",22,0)
|
---|
6074 | ;" DIC, TMGDEBUG
|
---|
6075 | "RTN","TMGRPC1A",23,0)
|
---|
6076 | ;"=======================================================================
|
---|
6077 | "RTN","TMGRPC1A",24,0)
|
---|
6078 | ;"=======================================================================
|
---|
6079 | "RTN","TMGRPC1A",25,0)
|
---|
6080 | ;
|
---|
6081 | "RTN","TMGRPC1A",26,0)
|
---|
6082 | SETINIVL(RESULT,SECTION,KEY,VALUE) ;
|
---|
6083 | "RTN","TMGRPC1A",27,0)
|
---|
6084 | ;"SCOPE: Public
|
---|
6085 | "RTN","TMGRPC1A",28,0)
|
---|
6086 | ;"RPC that calls this: TMG INIFILE SET
|
---|
6087 | "RTN","TMGRPC1A",29,0)
|
---|
6088 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
6089 | "RTN","TMGRPC1A",30,0)
|
---|
6090 | ;" will use this instead of TIniFile object in Delphi.
|
---|
6091 | "RTN","TMGRPC1A",31,0)
|
---|
6092 | ;" Note: Since all data are of type string in Mumps, this will work only with strings.
|
---|
6093 | "RTN","TMGRPC1A",32,0)
|
---|
6094 | ;" and type casting will have to take place in client.
|
---|
6095 | "RTN","TMGRPC1A",33,0)
|
---|
6096 | ;"Input: RESULT -- an OUT PARAMETER. See output below.
|
---|
6097 | "RTN","TMGRPC1A",34,0)
|
---|
6098 | ;" SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
|
---|
6099 | "RTN","TMGRPC1A",35,0)
|
---|
6100 | ;" KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
|
---|
6101 | "RTN","TMGRPC1A",36,0)
|
---|
6102 | ;" VALUE -- String of Value to set
|
---|
6103 | "RTN","TMGRPC1A",37,0)
|
---|
6104 | ;"Note: Because this is a shared resource, it is expected that the client will use
|
---|
6105 | "RTN","TMGRPC1A",38,0)
|
---|
6106 | ;" User.Name as the Section value.
|
---|
6107 | "RTN","TMGRPC1A",39,0)
|
---|
6108 | ;" Also, any prior value will be overwritten.
|
---|
6109 | "RTN","TMGRPC1A",40,0)
|
---|
6110 | ;"Output: Will return RESULT="1^Success", or -1^Error Message"
|
---|
6111 | "RTN","TMGRPC1A",41,0)
|
---|
6112 | SET RESULT="1^Success"
|
---|
6113 | "RTN","TMGRPC1A",42,0)
|
---|
6114 | IF $GET(SECTION)="" SET RESULT="-1^No value passed for SECTION" QUIT
|
---|
6115 | "RTN","TMGRPC1A",43,0)
|
---|
6116 | IF $GET(KEY)="" SET RESULT="-1^No value passed for KEY" QUIT
|
---|
6117 | "RTN","TMGRPC1A",44,0)
|
---|
6118 | SET VALUE=$GET(VALUE)
|
---|
6119 | "RTN","TMGRPC1A",45,0)
|
---|
6120 | NEW X,Y,DIC,IEN,IEN2
|
---|
6121 | "RTN","TMGRPC1A",46,0)
|
---|
6122 | SET DIC=22710,DIC(0)="L" ;"Add SECTION & KEY if not previously present.
|
---|
6123 | "RTN","TMGRPC1A",47,0)
|
---|
6124 | SET X=SECTION
|
---|
6125 | "RTN","TMGRPC1A",48,0)
|
---|
6126 | DO ^DIC SET IEN=+Y
|
---|
6127 | "RTN","TMGRPC1A",49,0)
|
---|
6128 | IF IEN'>0 SET RESULT="-1^Error establishing SECTION: ["_SECTION_"]" QUIT
|
---|
6129 | "RTN","TMGRPC1A",50,0)
|
---|
6130 | SET DIC(1)=IEN,DIC="^TMG(22710,"_IEN_",1,"
|
---|
6131 | "RTN","TMGRPC1A",51,0)
|
---|
6132 | SET X=KEY
|
---|
6133 | "RTN","TMGRPC1A",52,0)
|
---|
6134 | DO ^DIC SET IEN2=+Y
|
---|
6135 | "RTN","TMGRPC1A",53,0)
|
---|
6136 | IF IEN2'>0 SET RESULT="-1^Error establishing KEY: ["_KEY_"]" QUIT
|
---|
6137 | "RTN","TMGRPC1A",54,0)
|
---|
6138 | NEW TMGFDA,TMGMSG
|
---|
6139 | "RTN","TMGRPC1A",55,0)
|
---|
6140 | IF VALUE="" SET VALUE="@"
|
---|
6141 | "RTN","TMGRPC1A",56,0)
|
---|
6142 | SET TMGFDA(22710.01,IEN2_","_IEN_",",1)=VALUE
|
---|
6143 | "RTN","TMGRPC1A",57,0)
|
---|
6144 | DO FILE^DIE("E","TMGFDA","TMGMSG")
|
---|
6145 | "RTN","TMGRPC1A",58,0)
|
---|
6146 | IF $DATA(TMGMSG("DIERR")) DO QUIT
|
---|
6147 | "RTN","TMGRPC1A",59,0)
|
---|
6148 | . SET RESULT="-1^"_$$GetErrStr^TMGDEBUG(.TMGMSG)
|
---|
6149 | "RTN","TMGRPC1A",60,0)
|
---|
6150 | QUIT
|
---|
6151 | "RTN","TMGRPC1A",61,0)
|
---|
6152 | ;
|
---|
6153 | "RTN","TMGRPC1A",62,0)
|
---|
6154 | ;
|
---|
6155 | "RTN","TMGRPC1A",63,0)
|
---|
6156 | GETINIVL(RESULT,SECTION,KEY,DEFAULT) ;
|
---|
6157 | "RTN","TMGRPC1A",64,0)
|
---|
6158 | ;"SCOPE: Public
|
---|
6159 | "RTN","TMGRPC1A",65,0)
|
---|
6160 | ;"RPC that calls this: TMG INIFILE GET
|
---|
6161 | "RTN","TMGRPC1A",66,0)
|
---|
6162 | ;"Purpose: To provide an entry point for a RPC call from a client. The client
|
---|
6163 | "RTN","TMGRPC1A",67,0)
|
---|
6164 | ;" will use this instead of TIniFile object in Delphi.
|
---|
6165 | "RTN","TMGRPC1A",68,0)
|
---|
6166 | ;" Note: Since all data are of type string in Mumps, this will work only with strings.
|
---|
6167 | "RTN","TMGRPC1A",69,0)
|
---|
6168 | ;" and type casting will have to take place in client.
|
---|
6169 | "RTN","TMGRPC1A",70,0)
|
---|
6170 | ;"Input: RESULT -- an OUT PARAMETER. See output below.
|
---|
6171 | "RTN","TMGRPC1A",71,0)
|
---|
6172 | ;" SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
|
---|
6173 | "RTN","TMGRPC1A",72,0)
|
---|
6174 | ;" KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
|
---|
6175 | "RTN","TMGRPC1A",73,0)
|
---|
6176 | ;" DEFAULT -- The value to be returned, if no value found.
|
---|
6177 | "RTN","TMGRPC1A",74,0)
|
---|
6178 | ;"Note: Because this is a shared resource, it is expected that the client will use
|
---|
6179 | "RTN","TMGRPC1A",75,0)
|
---|
6180 | ;" User.Name as the Section value.
|
---|
6181 | "RTN","TMGRPC1A",76,0)
|
---|
6182 | ;" Also, any prior value will be overwritten.
|
---|
6183 | "RTN","TMGRPC1A",77,0)
|
---|
6184 | ;"Output: Will return RESULT="1^<Value>", or -1^Error Message"
|
---|
6185 | "RTN","TMGRPC1A",78,0)
|
---|
6186 | IF $GET(SECTION)="" SET RESULT="-1^No value passed for SECTION" QUIT
|
---|
6187 | "RTN","TMGRPC1A",79,0)
|
---|
6188 | IF $GET(KEY)="" SET RESULT="-1^No value passed for KEY" QUIT
|
---|
6189 | "RTN","TMGRPC1A",80,0)
|
---|
6190 | SET DEFAULT=$GET(DEFAULT)
|
---|
6191 | "RTN","TMGRPC1A",81,0)
|
---|
6192 | NEW X,Y,DIC,IEN,IEN2
|
---|
6193 | "RTN","TMGRPC1A",82,0)
|
---|
6194 | SET DIC=22710,X=SECTION
|
---|
6195 | "RTN","TMGRPC1A",83,0)
|
---|
6196 | DO ^DIC SET IEN=+Y
|
---|
6197 | "RTN","TMGRPC1A",84,0)
|
---|
6198 | IF IEN'>0 SET RESULT="1^"_DEFAULT QUIT
|
---|
6199 | "RTN","TMGRPC1A",85,0)
|
---|
6200 | SET DA(1)=IEN,DIC="^TMG(22710,"_IEN_",1,"
|
---|
6201 | "RTN","TMGRPC1A",86,0)
|
---|
6202 | SET X=KEY
|
---|
6203 | "RTN","TMGRPC1A",87,0)
|
---|
6204 | DO ^DIC SET IEN2=+Y
|
---|
6205 | "RTN","TMGRPC1A",88,0)
|
---|
6206 | IF IEN2'>0 SET RESULT="1^"_DEFAULT QUIT
|
---|
6207 | "RTN","TMGRPC1A",89,0)
|
---|
6208 | NEW VALUE SET VALUE=$GET(^TMG(22710,IEN,1,IEN2,1),DEFAULT)
|
---|
6209 | "RTN","TMGRPC1A",90,0)
|
---|
6210 | IF VALUE'=DEFAULT SET VALUE=$PIECE(VALUE,"^",1)
|
---|
6211 | "RTN","TMGRPC1A",91,0)
|
---|
6212 | SET RESULT="1^"_VALUE
|
---|
6213 | "RTN","TMGRPC1A",92,0)
|
---|
6214 | QUIT
|
---|
6215 | "RTN","TMGRPC1A",93,0)
|
---|
6216 | ;
|
---|
6217 | "RTN","TMGRPC1A",94,0)
|
---|
6218 | ;
|
---|
6219 | "RTN","TMGRPC1A",95,0)
|
---|
6220 | CONVERT
|
---|
6221 | "RTN","TMGRPC1A",96,0)
|
---|
6222 | ;"Purpose: A temp function to convert between the old storage method and the new.
|
---|
6223 | "RTN","TMGRPC1A",97,0)
|
---|
6224 | ;"Data was stored in: ^TMG("INIDATA",Section,Key,Vaue)
|
---|
6225 | "RTN","TMGRPC1A",98,0)
|
---|
6226 | NEW SECTION,KEY,VALUE
|
---|
6227 | "RTN","TMGRPC1A",99,0)
|
---|
6228 | SET SECTION=""
|
---|
6229 | "RTN","TMGRPC1A",100,0)
|
---|
6230 | FOR SET SECTION=$ORDER(^TMG("INIDATA",SECTION)) QUIT:(SECTION="") DO
|
---|
6231 | "RTN","TMGRPC1A",101,0)
|
---|
6232 | . SET KEY=""
|
---|
6233 | "RTN","TMGRPC1A",102,0)
|
---|
6234 | . FOR SET KEY=$ORDER(^TMG("INIDATA",SECTION,KEY)) QUIT:(KEY="") DO
|
---|
6235 | "RTN","TMGRPC1A",103,0)
|
---|
6236 | . . SET VALUE=$GET(^TMG("INIDATA",SECTION,KEY))
|
---|
6237 | "RTN","TMGRPC1A",104,0)
|
---|
6238 | . . NEW RESULT
|
---|
6239 | "RTN","TMGRPC1A",105,0)
|
---|
6240 | . . DO SETINIVL(.RESULT,SECTION,KEY,VALUE) ;
|
---|
6241 | "RTN","TMGRPC1A",106,0)
|
---|
6242 | . . IF +RESULT>0 KILL ^TMG("INIDATA",SECTION,KEY) QUIT
|
---|
6243 | "RTN","TMGRPC1A",107,0)
|
---|
6244 | . . WRITE "Error trying to store SECTION=",SECTION,"; KEY=",KEY,"; VALUE=",VALUE,!
|
---|
6245 | "RTN","TMGRPC1A",108,0)
|
---|
6246 | . . WRITE " -- ",$PIECE(RESULT,"^",2),!
|
---|
6247 | "RTN","TMGRPC1A",109,0)
|
---|
6248 | QUIT
|
---|
6249 | "RTN","TMGRPC1A",110,0)
|
---|
6250 | ;
|
---|
6251 | "RTN","TMGRPC1A",111,0)
|
---|
6252 | ;
|
---|
6253 | "RTN","TMGRPC1A",112,0)
|
---|
6254 | INSTALL ;
|
---|
6255 | "RTN","TMGRPC1A",113,0)
|
---|
6256 | ;"Purpose: to add the RPC's to the OPTION record OR CPRS GUI CHART
|
---|
6257 | "RTN","TMGRPC1A",114,0)
|
---|
6258 | NEW DIC,X,Y,DA
|
---|
6259 | "RTN","TMGRPC1A",115,0)
|
---|
6260 | SET DIC="^DIC(19,",DIC(0)="M"
|
---|
6261 | "RTN","TMGRPC1A",116,0)
|
---|
6262 | SET X="OR CPRS GUI CHART"
|
---|
6263 | "RTN","TMGRPC1A",117,0)
|
---|
6264 | DO ^DIC
|
---|
6265 | "RTN","TMGRPC1A",118,0)
|
---|
6266 | IF +Y'>0 DO QUIT
|
---|
6267 | "RTN","TMGRPC1A",119,0)
|
---|
6268 | . WRITE "ERROR. Unable to find [OR CPRS GUI CHART] in file OPTION (#19)",!
|
---|
6269 | "RTN","TMGRPC1A",120,0)
|
---|
6270 | . NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
|
---|
6271 | "RTN","TMGRPC1A",121,0)
|
---|
6272 | . WRITE !
|
---|
6273 | "RTN","TMGRPC1A",122,0)
|
---|
6274 | SET DA(1)=+Y
|
---|
6275 | "RTN","TMGRPC1A",123,0)
|
---|
6276 | SET DIC=DIC_DA(1)_",""RPC"","
|
---|
6277 | "RTN","TMGRPC1A",124,0)
|
---|
6278 | SET DIC(0)="ML" ;"LAYGO --> add entry if not found
|
---|
6279 | "RTN","TMGRPC1A",125,0)
|
---|
6280 | SET X="TMG INIFILE GET"
|
---|
6281 | "RTN","TMGRPC1A",126,0)
|
---|
6282 | DO ^DIC
|
---|
6283 | "RTN","TMGRPC1A",127,0)
|
---|
6284 | IF +Y'>0 DO
|
---|
6285 | "RTN","TMGRPC1A",128,0)
|
---|
6286 | . WRITE "ERROR. Unable to add or find TMG INIFILE GET for subfile RPC in record",!
|
---|
6287 | "RTN","TMGRPC1A",129,0)
|
---|
6288 | . WRITE "OR CPRS GUI CHART in file OPTION (#19)",!
|
---|
6289 | "RTN","TMGRPC1A",130,0)
|
---|
6290 | . NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
|
---|
6291 | "RTN","TMGRPC1A",131,0)
|
---|
6292 | . WRITE !
|
---|
6293 | "RTN","TMGRPC1A",132,0)
|
---|
6294 | SET X="TMG INIFILE SET"
|
---|
6295 | "RTN","TMGRPC1A",133,0)
|
---|
6296 | DO ^DIC
|
---|
6297 | "RTN","TMGRPC1A",134,0)
|
---|
6298 | IF +Y'>0 DO
|
---|
6299 | "RTN","TMGRPC1A",135,0)
|
---|
6300 | . WRITE "ERROR. Unable to add or find TMG INIFILE SET for subfile RPC in record",!
|
---|
6301 | "RTN","TMGRPC1A",136,0)
|
---|
6302 | . WRITE "OR CPRS GUI CHART in file OPTION (#19)",!
|
---|
6303 | "RTN","TMGRPC1A",137,0)
|
---|
6304 | . NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
|
---|
6305 | "RTN","TMGRPC1A",138,0)
|
---|
6306 | . WRITE !
|
---|
6307 | "RTN","TMGRPC1A",139,0)
|
---|
6308 | QUIT
|
---|
6309 | "RTN","TMGRPC1A",140,0)
|
---|
6310 | ;
|
---|
6311 | "VER")
|
---|
6312 | 8.0^22.0
|
---|
6313 | **END**
|
---|
6314 | **END**
|
---|