source: cprs/branches/tmg-cprs/Server_KIDS/TMG1-1.0-5.KIDS@ 1722

Last change on this file since 1722 was 730, checked in by Kevin Toppenberg, 15 years ago

Ensure all RPCS are provided
File size: 179.0 KB
RevLine 
[730]1KIDS Distribution saved on Mar 31, 2010@18:16:06
2TMG1*1.0*5
3**KIDS**:TMG1*1.0*5^
4
5**INSTALL NAME**
6TMG1*1.0*5
7"BLD",7630,0)
8TMG1*1.0*5^^0^3100331^n
9"BLD",7630,1,0)
10^^3^3^3100331^^
11"BLD",7630,1,1,0)
12This patch provides server code for imaging
13"BLD",7630,1,2,0)
14functionality in TMG-CPRS. I provides RPC calls
15"BLD",7630,1,3,0)
16for uploading and downloading images from CPRS.
17"BLD",7630,4,0)
18^9.64PA^^
19"BLD",7630,6.3)
202
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)
363.6
37"BLD",7630,"KRN",3.8,0)
383.8
39"BLD",7630,"KRN",9.2,0)
409.2
41"BLD",7630,"KRN",9.8,0)
429.8
43"BLD",7630,"KRN",9.8,"NM",0)
44^9.68A^2^2
45"BLD",7630,"KRN",9.8,"NM",1,0)
46TMGRPC1^^0^B224963
47"BLD",7630,"KRN",9.8,"NM",2,0)
48TMGRPC1A^^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)
5419
55"BLD",7630,"KRN",19,"NM",0)
56^9.68A^1^1
57"BLD",7630,"KRN",19,"NM",1,0)
58OR CPRS GUI CHART^^0
59"BLD",7630,"KRN",19,"NM","B","OR CPRS GUI CHART",1)
60
61"BLD",7630,"KRN",19.1,0)
6219.1
63"BLD",7630,"KRN",101,0)
64101
65"BLD",7630,"KRN",409.61,0)
66409.61
67"BLD",7630,"KRN",771,0)
68771
69"BLD",7630,"KRN",870,0)
70870
71"BLD",7630,"KRN",8989.51,0)
728989.51
73"BLD",7630,"KRN",8989.52,0)
748989.52
75"BLD",7630,"KRN",8994,0)
768994
77"BLD",7630,"KRN",8994,"NM",0)
78^9.68A^16^16
79"BLD",7630,"KRN",8994,"NM",1,0)
80TMG ADD PATIENT^^0
81"BLD",7630,"KRN",8994,"NM",2,0)
82TMG AUTOSIGN TIU DOCUMENT^^0
83"BLD",7630,"KRN",8994,"NM",3,0)
84TMG BARCODE DECODE^^0
85"BLD",7630,"KRN",8994,"NM",4,0)
86TMG BARCODE ENCODE^^0
87"BLD",7630,"KRN",8994,"NM",5,0)
88TMG CPRS GET URL LIST^^0
89"BLD",7630,"KRN",8994,"NM",6,0)
90TMG DOWNLOAD FILE^^0
91"BLD",7630,"KRN",8994,"NM",7,0)
92TMG DOWNLOAD FILE DROPBOX^^0
93"BLD",7630,"KRN",8994,"NM",8,0)
94TMG GET BLANK TIU DOCUMENT^^0
95"BLD",7630,"KRN",8994,"NM",9,0)
96TMG GET DFN^^0
97"BLD",7630,"KRN",8994,"NM",10,0)
98TMG GET IMAGE LONG DESCRIPTION^^0
99"BLD",7630,"KRN",8994,"NM",11,0)
100TMG GET PATIENT DEMOGRAPHICS^^0
101"BLD",7630,"KRN",8994,"NM",12,0)
102TMG INIFILE GET^^0
103"BLD",7630,"KRN",8994,"NM",13,0)
104TMG INIFILE SET^^0
105"BLD",7630,"KRN",8994,"NM",14,0)
106TMG SET PATIENT DEMOGRAPHICS^^0
107"BLD",7630,"KRN",8994,"NM",15,0)
108TMG UPLOAD FILE^^0
109"BLD",7630,"KRN",8994,"NM",16,0)
110TMG 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)
1840^1
185"KRN",19,8552,0)
186OR 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)
190This option is required by the Kernel Broker to give access to the
191"KRN",19,8552,1,2,0)
192RPCs 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)
19860722,37566
199"KRN",19,8552,"RPC",0)
200^19.05P^2071^2071
201"KRN",19,8552,"RPC",1,0)
202GMRC LIST CONSULT REQUESTS
203"KRN",19,8552,"RPC",218,0)
204XWB GET VARIABLE VALUE
205"KRN",19,8552,"RPC",219,0)
206TIU AUTHORIZATION
207"KRN",19,8552,"RPC",220,0)
208TIU CAN CHANGE COSIGNER?
209"KRN",19,8552,"RPC",221,0)
210TIU CREATE ADDENDUM RECORD
211"KRN",19,8552,"RPC",222,0)
212TIU CREATE RECORD
213"KRN",19,8552,"RPC",223,0)
214TIU DELETE RECORD
215"KRN",19,8552,"RPC",224,0)
216TIU DETAILED DISPLAY
217"KRN",19,8552,"RPC",225,0)
218TIU DOCUMENTS BY CONTEXT
219"KRN",19,8552,"RPC",226,0)
220TIU GET ADDITIONAL SIGNERS
221"KRN",19,8552,"RPC",227,0)
222TIU GET ALERT INFO
223"KRN",19,8552,"RPC",228,0)
224TIU GET DOCUMENT PARAMETERS
225"KRN",19,8552,"RPC",229,0)
226TIU GET DS TITLES
227"KRN",19,8552,"RPC",230,0)
228TIU GET DS URGENCIES
229"KRN",19,8552,"RPC",231,0)
230TIU GET PERSONAL PREFERENCES
231"KRN",19,8552,"RPC",232,0)
232TIU GET PN TITLES
233"KRN",19,8552,"RPC",233,0)
234TIU GET RECORD TEXT
235"KRN",19,8552,"RPC",234,0)
236TIU IDENTIFY CONSULTS CLASS
237"KRN",19,8552,"RPC",235,0)
238TIU IS THIS A CONSULT?
239"KRN",19,8552,"RPC",236,0)
240TIU JUSTIFY DELETE?
241"KRN",19,8552,"RPC",237,0)
242TIU LOAD BOILERPLATE TEXT
243"KRN",19,8552,"RPC",238,0)
244TIU LOAD RECORD FOR EDIT
245"KRN",19,8552,"RPC",239,0)
246TIU LOCK RECORD
247"KRN",19,8552,"RPC",240,0)
248TIU LONG LIST CONSULT TITLES
249"KRN",19,8552,"RPC",241,0)
250TIU LONG LIST OF TITLES
251"KRN",19,8552,"RPC",242,0)
252TIU NOTES
253"KRN",19,8552,"RPC",243,0)
254TIU NOTES 16 BIT
255"KRN",19,8552,"RPC",244,0)
256TIU NOTES BY VISIT
257"KRN",19,8552,"RPC",245,0)
258TIU PERSONAL TITLE LIST
259"KRN",19,8552,"RPC",246,0)
260TIU PRINT RECORD
261"KRN",19,8552,"RPC",247,0)
262TIU REQUIRES COSIGNATURE
263"KRN",19,8552,"RPC",248,0)
264TIU SIGN RECORD
265"KRN",19,8552,"RPC",249,0)
266TIU SUMMARIES
267"KRN",19,8552,"RPC",250,0)
268TIU SUMMARIES BY VISIT
269"KRN",19,8552,"RPC",251,0)
270TIU UNLOCK RECORD
271"KRN",19,8552,"RPC",252,0)
272TIU UPDATE ADDITIONAL SIGNERS
273"KRN",19,8552,"RPC",253,0)
274TIU UPDATE RECORD
275"KRN",19,8552,"RPC",254,0)
276TIU WHICH SIGNATURE ACTION
277"KRN",19,8552,"RPC",1032,0)
278ORB DELETE ALERT
279"KRN",19,8552,"RPC",1033,0)
280ORB FOLLOW-UP ARRAY
281"KRN",19,8552,"RPC",1034,0)
282ORB FOLLOW-UP STRING
283"KRN",19,8552,"RPC",1035,0)
284ORB FOLLOW-UP TYPE
285"KRN",19,8552,"RPC",1036,0)
286ORB SORT METHOD
287"KRN",19,8552,"RPC",1037,0)
288ORK TRIGGER
289"KRN",19,8552,"RPC",1038,0)
290ORQ NULL LIST
291"KRN",19,8552,"RPC",1039,0)
292ORQOR DETAIL
293"KRN",19,8552,"RPC",1040,0)
294TIU TEMPLATE CHECK BOILERPLATE
295"KRN",19,8552,"RPC",1041,0)
296TIU TEMPLATE CREATE/MODIFY
297"KRN",19,8552,"RPC",1042,0)
298TIU TEMPLATE DELETE
299"KRN",19,8552,"RPC",1045,0)
300TIU TEMPLATE GETPROOT
301"KRN",19,8552,"RPC",1049,0)
302TIU TEMPLATE LISTOWNR
303"KRN",19,8552,"RPC",1050,0)
304TIU TEMPLATE SET ITEMS
305"KRN",19,8552,"RPC",1051,0)
306TIU GET LIST OF OBJECTS
307"KRN",19,8552,"RPC",1052,0)
308ORQOR LIST
309"KRN",19,8552,"RPC",1053,0)
310ORQORB SORT
311"KRN",19,8552,"RPC",1054,0)
312ORQPT ATTENDING/PRIMARY
313"KRN",19,8552,"RPC",1055,0)
314ORQPT CLINIC PATIENTS
315"KRN",19,8552,"RPC",1056,0)
316ORQPT CLINICS
317"KRN",19,8552,"RPC",1057,0)
318ORQPT DEFAULT LIST SOURCE
319"KRN",19,8552,"RPC",1058,0)
320ORQPT DEFAULT PATIENT LIST
321"KRN",19,8552,"RPC",1059,0)
322ORQPT PATIENT TEAM PROVIDERS
323"KRN",19,8552,"RPC",1060,0)
324ORQPT PROVIDER PATIENTS
325"KRN",19,8552,"RPC",1061,0)
326ORQPT PROVIDERS
327"KRN",19,8552,"RPC",1062,0)
328ORQPT SPECIALTIES
329"KRN",19,8552,"RPC",1063,0)
330ORQPT SPECIALTY PATIENTS
331"KRN",19,8552,"RPC",1064,0)
332ORQPT TEAM PATIENTS
333"KRN",19,8552,"RPC",1065,0)
334ORQPT TEAMS
335"KRN",19,8552,"RPC",1066,0)
336ORQPT WARD PATIENTS
337"KRN",19,8552,"RPC",1067,0)
338ORQPT WARDRMBED
339"KRN",19,8552,"RPC",1068,0)
340ORQPT WARDS
341"KRN",19,8552,"RPC",1069,0)
342ORQQAL DETAIL
343"KRN",19,8552,"RPC",1070,0)
344ORQQAL LIST
345"KRN",19,8552,"RPC",1071,0)
346ORQQAL LIST REPORT
347"KRN",19,8552,"RPC",1072,0)
348ORQQCN ADDCMT
349"KRN",19,8552,"RPC",1073,0)
350ORQQCN ADMIN COMPLETE
351"KRN",19,8552,"RPC",1074,0)
352ORQQCN DETAIL
353"KRN",19,8552,"RPC",1075,0)
354ORQQCN DISCONTINUE
355"KRN",19,8552,"RPC",1076,0)
356ORQQCN FIND CONSULT
357"KRN",19,8552,"RPC",1077,0)
358ORQQCN FORWARD
359"KRN",19,8552,"RPC",1078,0)
360ORQQCN GET CONSULT
361"KRN",19,8552,"RPC",1079,0)
362ORQQCN GET ORDER NUMBER
363"KRN",19,8552,"RPC",1080,0)
364ORQQCN GET PROC SVCS
365"KRN",19,8552,"RPC",1081,0)
366ORQQCN LIST
367"KRN",19,8552,"RPC",1082,0)
368ORQQCN LOAD FOR EDIT
369"KRN",19,8552,"RPC",1083,0)
370ORQQCN MED RESULTS
371"KRN",19,8552,"RPC",1084,0)
372ORQQCN PRINT SF513
373"KRN",19,8552,"RPC",1085,0)
374ORQQCN RECEIVE
375"KRN",19,8552,"RPC",1086,0)
376ORQQCN RESUBMIT
377"KRN",19,8552,"RPC",1087,0)
378ORQQCN SET ACT MENUS
379"KRN",19,8552,"RPC",1088,0)
380ORQQCN SHOW SF513
381"KRN",19,8552,"RPC",1089,0)
382ORQQCN SIGFIND
383"KRN",19,8552,"RPC",1090,0)
384ORQQCN STATUS
385"KRN",19,8552,"RPC",1091,0)
386ORQQCN SVCLIST
387"KRN",19,8552,"RPC",1092,0)
388ORQQCN SVCTREE
389"KRN",19,8552,"RPC",1093,0)
390ORQQCN URGENCIES
391"KRN",19,8552,"RPC",1094,0)
392ORQQCN2 GET CONTEXT
393"KRN",19,8552,"RPC",1095,0)
394ORQQCN2 SAVE CONTEXT
395"KRN",19,8552,"RPC",1096,0)
396ORQQLR DETAIL
397"KRN",19,8552,"RPC",1097,0)
398ORQQLR SEARCH RANGE INPT
399"KRN",19,8552,"RPC",1098,0)
400ORQQLR SEARCH RANGE OUTPT
401"KRN",19,8552,"RPC",1099,0)
402ORQQPL ADD SAVE
403"KRN",19,8552,"RPC",1100,0)
404ORQQPL AUDIT HIST
405"KRN",19,8552,"RPC",1101,0)
406ORQQPL CHECK DUP
407"KRN",19,8552,"RPC",1102,0)
408ORQQPL CLIN FILTER LIST
409"KRN",19,8552,"RPC",1103,0)
410ORQQPL CLIN SRCH
411"KRN",19,8552,"RPC",1104,0)
412ORQQPL DELETE
413"KRN",19,8552,"RPC",1105,0)
414ORQQPL DETAIL
415"KRN",19,8552,"RPC",1106,0)
416ORQQPL EDIT LOAD
417"KRN",19,8552,"RPC",1107,0)
418ORQQPL EDIT SAVE
419"KRN",19,8552,"RPC",1108,0)
420ORQQPL INACTIVATE
421"KRN",19,8552,"RPC",1109,0)
422ORQQPL INIT PT
423"KRN",19,8552,"RPC",1110,0)
424ORQQPL INIT USER
425"KRN",19,8552,"RPC",1111,0)
426ORQQPL LIST
427"KRN",19,8552,"RPC",1112,0)
428ORQQPL PROB COMMENTS
429"KRN",19,8552,"RPC",1113,0)
430ORQQPL PROBLEM LEX SEARCH
431"KRN",19,8552,"RPC",1114,0)
432ORQQPL PROBLEM LIST
433"KRN",19,8552,"RPC",1115,0)
434ORQQPL PROV FILTER LIST
435"KRN",19,8552,"RPC",1116,0)
436ORQQPL PROVIDER LIST
437"KRN",19,8552,"RPC",1117,0)
438ORQQPL REPLACE
439"KRN",19,8552,"RPC",1118,0)
440ORQQPL SAVEVIEW
441"KRN",19,8552,"RPC",1119,0)
442ORQQPL SERV FILTER LIST
443"KRN",19,8552,"RPC",1120,0)
444ORQQPL SRVC SRCH
445"KRN",19,8552,"RPC",1121,0)
446ORQQPL UPDATE
447"KRN",19,8552,"RPC",1122,0)
448ORQQPL USER PROB CATS
449"KRN",19,8552,"RPC",1123,0)
450ORQQPL USER PROB LIST
451"KRN",19,8552,"RPC",1124,0)
452ORQQPL VERIFY
453"KRN",19,8552,"RPC",1125,0)
454ORQQPP LIST
455"KRN",19,8552,"RPC",1126,0)
456ORQQPS DETAIL
457"KRN",19,8552,"RPC",1127,0)
458ORQQPS LIST
459"KRN",19,8552,"RPC",1133,0)
460ORQQPX REMINDER DETAIL
461"KRN",19,8552,"RPC",1135,0)
462ORQQPX REMINDERS LIST
463"KRN",19,8552,"RPC",1136,0)
464ORQQVI NOTEVIT
465"KRN",19,8552,"RPC",1137,0)
466ORQQVI VITALS
467"KRN",19,8552,"RPC",1138,0)
468ORQQVI VITALS FOR DATE RANGE
469"KRN",19,8552,"RPC",1139,0)
470ORQQVI1 DETAIL
471"KRN",19,8552,"RPC",1140,0)
472ORQQVI1 GRID
473"KRN",19,8552,"RPC",1141,0)
474ORQQVI2 VITALS HELP
475"KRN",19,8552,"RPC",1142,0)
476ORQQVI2 VITALS RATE CHECK
477"KRN",19,8552,"RPC",1144,0)
478ORQQVI2 VITALS VAL & STORE
479"KRN",19,8552,"RPC",1145,0)
480ORQQVI2 VITALS VALIDATE
481"KRN",19,8552,"RPC",1146,0)
482ORQQVI2 VITALS VALIDATE TYPE
483"KRN",19,8552,"RPC",1147,0)
484ORQQVS DETAIL NOTES
485"KRN",19,8552,"RPC",1148,0)
486ORQQVS DETAIL SUMMARY
487"KRN",19,8552,"RPC",1149,0)
488ORQQVS VISITS/APPTS
489"KRN",19,8552,"RPC",1150,0)
490ORQQXMB MAIL GROUPS
491"KRN",19,8552,"RPC",1151,0)
492ORQQXQA PATIENT
493"KRN",19,8552,"RPC",1152,0)
494ORQQXQA USER
495"KRN",19,8552,"RPC",1153,0)
496ORWCH LOADALL
497"KRN",19,8552,"RPC",1154,0)
498ORWCH LOADSIZ
499"KRN",19,8552,"RPC",1155,0)
500ORWCH SAVEALL
501"KRN",19,8552,"RPC",1156,0)
502ORWCH SAVESIZ
503"KRN",19,8552,"RPC",1157,0)
504ORWCS LIST OF CONSULT REPORTS
505"KRN",19,8552,"RPC",1158,0)
506ORWCS PRINT REPORT
507"KRN",19,8552,"RPC",1159,0)
508ORWCS REPORT TEXT
509"KRN",19,8552,"RPC",1160,0)
510ORWCV DTLVST
511"KRN",19,8552,"RPC",1161,0)
512ORWCV LAB
513"KRN",19,8552,"RPC",1162,0)
514ORWCV POLL
515"KRN",19,8552,"RPC",1163,0)
516ORWCV START
517"KRN",19,8552,"RPC",1164,0)
518ORWCV STOP
519"KRN",19,8552,"RPC",1165,0)
520ORWCV VST
521"KRN",19,8552,"RPC",1166,0)
522ORWD DEF
523"KRN",19,8552,"RPC",1167,0)
524ORWD DT
525"KRN",19,8552,"RPC",1168,0)
526ORWD FORMID
527"KRN",19,8552,"RPC",1169,0)
528ORWD GET4EDIT
529"KRN",19,8552,"RPC",1170,0)
530ORWD KEY
531"KRN",19,8552,"RPC",1171,0)
532ORWD OI
533"KRN",19,8552,"RPC",1172,0)
534ORWD PROVKEY
535"KRN",19,8552,"RPC",1173,0)
536ORWD SAVE
537"KRN",19,8552,"RPC",1174,0)
538ORWD SAVEACT
539"KRN",19,8552,"RPC",1175,0)
540ORWD SIGN
541"KRN",19,8552,"RPC",1176,0)
542ORWD VALIDACT
543"KRN",19,8552,"RPC",1177,0)
544ORWD1 PARAM
545"KRN",19,8552,"RPC",1178,0)
546ORWD1 PRINTGUI
547"KRN",19,8552,"RPC",1179,0)
548ORWD1 RVPRINT
549"KRN",19,8552,"RPC",1180,0)
550ORWD2 DEVINFO
551"KRN",19,8552,"RPC",1181,0)
552ORWD2 MANUAL
553"KRN",19,8552,"RPC",1182,0)
554ORWDAL32 ALLERGY MATCH
555"KRN",19,8552,"RPC",1183,0)
556ORWDAL32 DEF
557"KRN",19,8552,"RPC",1184,0)
558ORWDAL32 SYMPTOMS
559"KRN",19,8552,"RPC",1185,0)
560ORWDCN32 DEF
561"KRN",19,8552,"RPC",1186,0)
562ORWDCN32 ORDRMSG
563"KRN",19,8552,"RPC",1187,0)
564ORWDCN32 PROCEDURES
565"KRN",19,8552,"RPC",1188,0)
566ORWDCSLT DEF
567"KRN",19,8552,"RPC",1189,0)
568ORWDCSLT LOOK200
569"KRN",19,8552,"RPC",1190,0)
570ORWDFH ADDLATE
571"KRN",19,8552,"RPC",1191,0)
572ORWDFH ATTR
573"KRN",19,8552,"RPC",1192,0)
574ORWDFH CURISO
575"KRN",19,8552,"RPC",1193,0)
576ORWDFH DIETS
577"KRN",19,8552,"RPC",1194,0)
578ORWDFH FINDTYP
579"KRN",19,8552,"RPC",1195,0)
580ORWDFH ISOIEN
581"KRN",19,8552,"RPC",1196,0)
582ORWDFH ISOLIST
583"KRN",19,8552,"RPC",1197,0)
584ORWDFH PARAM
585"KRN",19,8552,"RPC",1198,0)
586ORWDFH QTY2CC
587"KRN",19,8552,"RPC",1199,0)
588ORWDFH TFPROD
589"KRN",19,8552,"RPC",1200,0)
590ORWDFH TXT
591"KRN",19,8552,"RPC",1201,0)
592ORWDGX LOAD
593"KRN",19,8552,"RPC",1202,0)
594ORWDGX VMDEF
595"KRN",19,8552,"RPC",1203,0)
596ORWDLR ABBSPEC
597"KRN",19,8552,"RPC",1204,0)
598ORWDLR ALLSAMP
599"KRN",19,8552,"RPC",1205,0)
600ORWDLR DEF
601"KRN",19,8552,"RPC",1206,0)
602ORWDLR LOAD
603"KRN",19,8552,"RPC",1207,0)
604ORWDLR OIPARAM
605"KRN",19,8552,"RPC",1208,0)
606ORWDLR STOP
607"KRN",19,8552,"RPC",1209,0)
608ORWDLR32 ABBSPEC
609"KRN",19,8552,"RPC",1210,0)
610ORWDLR32 ALLSAMP
611"KRN",19,8552,"RPC",1211,0)
612ORWDLR32 ALLSPEC
613"KRN",19,8552,"RPC",1212,0)
614ORWDLR32 DEF
615"KRN",19,8552,"RPC",1213,0)
616ORWDLR32 IC DEFAULT
617"KRN",19,8552,"RPC",1214,0)
618ORWDLR32 IC VALID
619"KRN",19,8552,"RPC",1215,0)
620ORWDLR32 IMMED COLLECT
621"KRN",19,8552,"RPC",1216,0)
622ORWDLR32 LAB COLL TIME
623"KRN",19,8552,"RPC",1217,0)
624ORWDLR32 LOAD
625"KRN",19,8552,"RPC",1218,0)
626ORWDLR32 MAXDAYS
627"KRN",19,8552,"RPC",1219,0)
628ORWDLR32 ONE SAMPLE
629"KRN",19,8552,"RPC",1220,0)
630ORWDLR32 ONE SPECIMEN
631"KRN",19,8552,"RPC",1221,0)
632ORWDLR32 STOP
633"KRN",19,8552,"RPC",1222,0)
634ORWDOR VMSLCT
635"KRN",19,8552,"RPC",1227,0)
636ORWDPS32 ALLROUTE
637"KRN",19,8552,"RPC",1228,0)
638ORWDPS32 AUTH
639"KRN",19,8552,"RPC",1229,0)
640ORWDPS32 DLGSLCT
641"KRN",19,8552,"RPC",1230,0)
642ORWDPS32 DOSES
643"KRN",19,8552,"RPC",1231,0)
644ORWDPS32 DRUGMSG
645"KRN",19,8552,"RPC",1232,0)
646ORWDPS32 FORMALT
647"KRN",19,8552,"RPC",1233,0)
648ORWDPS32 ISSPLY
649"KRN",19,8552,"RPC",1234,0)
650ORWDPS32 IVAMT
651"KRN",19,8552,"RPC",1235,0)
652ORWDPS32 MEDISIV
653"KRN",19,8552,"RPC",1236,0)
654ORWDPS32 OISLCT
655"KRN",19,8552,"RPC",1237,0)
656ORWDPS32 SCSTS
657"KRN",19,8552,"RPC",1238,0)
658ORWDPS32 VALQTY
659"KRN",19,8552,"RPC",1239,0)
660ORWDPS32 VALRATE
661"KRN",19,8552,"RPC",1240,0)
662ORWDPS32 VALSCH
663"KRN",19,8552,"RPC",1241,0)
664ORWDRA DEF
665"KRN",19,8552,"RPC",1242,0)
666ORWDRA32 APPROVAL
667"KRN",19,8552,"RPC",1243,0)
668ORWDRA32 DEF
669"KRN",19,8552,"RPC",1244,0)
670ORWDRA32 IMTYPSEL
671"KRN",19,8552,"RPC",1245,0)
672ORWDRA32 ISOLATN
673"KRN",19,8552,"RPC",1246,0)
674ORWDRA32 LOCTYPE
675"KRN",19,8552,"RPC",1247,0)
676ORWDRA32 PROCMSG
677"KRN",19,8552,"RPC",1248,0)
678ORWDRA32 RADSRC
679"KRN",19,8552,"RPC",1249,0)
680ORWDRA32 RAORDITM
681"KRN",19,8552,"RPC",1250,0)
682ORWDX AGAIN
683"KRN",19,8552,"RPC",1251,0)
684ORWDX DGRP
685"KRN",19,8552,"RPC",1252,0)
686ORWDX DISMSG
687"KRN",19,8552,"RPC",1253,0)
688ORWDX DLGDEF
689"KRN",19,8552,"RPC",1254,0)
690ORWDX DLGID
691"KRN",19,8552,"RPC",1255,0)
692ORWDX DLGQUIK
693"KRN",19,8552,"RPC",1256,0)
694ORWDX FORMID
695"KRN",19,8552,"RPC",1257,0)
696ORWDX LOADRSP
697"KRN",19,8552,"RPC",1258,0)
698ORWDX LOCK
699"KRN",19,8552,"RPC",1259,0)
700ORWDX MSG
701"KRN",19,8552,"RPC",1260,0)
702ORWDX ORDITM
703"KRN",19,8552,"RPC",1261,0)
704ORWDX SAVE
705"KRN",19,8552,"RPC",1262,0)
706ORWDX SEND
707"KRN",19,8552,"RPC",1263,0)
708ORWDX SENDP
709"KRN",19,8552,"RPC",1264,0)
710ORWDX UNLOCK
711"KRN",19,8552,"RPC",1265,0)
712ORWDX WRLST
713"KRN",19,8552,"RPC",1266,0)
714ORWDXA ALERT
715"KRN",19,8552,"RPC",1267,0)
716ORWDXA COMPLETE
717"KRN",19,8552,"RPC",1268,0)
718ORWDXA DC
719"KRN",19,8552,"RPC",1269,0)
720ORWDXA DCREASON
721"KRN",19,8552,"RPC",1270,0)
722ORWDXA DCREQIEN
723"KRN",19,8552,"RPC",1271,0)
724ORWDXA FLAG
725"KRN",19,8552,"RPC",1272,0)
726ORWDXA FLAGTXT
727"KRN",19,8552,"RPC",1273,0)
728ORWDXA HOLD
729"KRN",19,8552,"RPC",1274,0)
730ORWDXA UNFLAG
731"KRN",19,8552,"RPC",1275,0)
732ORWDXA UNHOLD
733"KRN",19,8552,"RPC",1276,0)
734ORWDXA VALID
735"KRN",19,8552,"RPC",1277,0)
736ORWDXA VERIFY
737"KRN",19,8552,"RPC",1278,0)
738ORWDXA WCGET
739"KRN",19,8552,"RPC",1279,0)
740ORWDXA WCPUT
741"KRN",19,8552,"RPC",1280,0)
742ORWDXC ACCEPT
743"KRN",19,8552,"RPC",1281,0)
744ORWDXC DELAY
745"KRN",19,8552,"RPC",1282,0)
746ORWDXC DELORD
747"KRN",19,8552,"RPC",1283,0)
748ORWDXC DISPLAY
749"KRN",19,8552,"RPC",1284,0)
750ORWDXC FILLID
751"KRN",19,8552,"RPC",1285,0)
752ORWDXC ON
753"KRN",19,8552,"RPC",1286,0)
754ORWDXC SAVECHK
755"KRN",19,8552,"RPC",1287,0)
756ORWDXC SESSION
757"KRN",19,8552,"RPC",1288,0)
758ORWDXM AUTOACK
759"KRN",19,8552,"RPC",1289,0)
760ORWDXM DLGNAME
761"KRN",19,8552,"RPC",1290,0)
762ORWDXM FORMID
763"KRN",19,8552,"RPC",1291,0)
764ORWDXM LOADSET
765"KRN",19,8552,"RPC",1292,0)
766ORWDXM MENU
767"KRN",19,8552,"RPC",1293,0)
768ORWDXM MSTYLE
769"KRN",19,8552,"RPC",1294,0)
770ORWDXM PROMPTS
771"KRN",19,8552,"RPC",1295,0)
772ORWDXM1 BLDQRSP
773"KRN",19,8552,"RPC",1296,0)
774ORWDXM2 CLRRCL
775"KRN",19,8552,"RPC",1297,0)
776ORWDXQ DLGNAME
777"KRN",19,8552,"RPC",1298,0)
778ORWDXQ DLGSAVE
779"KRN",19,8552,"RPC",1299,0)
780ORWDXQ GETQLST
781"KRN",19,8552,"RPC",1300,0)
782ORWDXQ GETQNAM
783"KRN",19,8552,"RPC",1301,0)
784ORWDXQ PUTQLST
785"KRN",19,8552,"RPC",1302,0)
786ORWDXQ PUTQNAM
787"KRN",19,8552,"RPC",1303,0)
788ORWDXR ISREL
789"KRN",19,8552,"RPC",1304,0)
790ORWDXR RENEW
791"KRN",19,8552,"RPC",1305,0)
792ORWDXR RNWFLDS
793"KRN",19,8552,"RPC",1306,0)
794ORWGEPT CLINRNG
795"KRN",19,8552,"RPC",1307,0)
796ORWLR CUMULATIVE REPORT
797"KRN",19,8552,"RPC",1308,0)
798ORWLR CUMULATIVE SECTION
799"KRN",19,8552,"RPC",1309,0)
800ORWLR REPORT LISTS
801"KRN",19,8552,"RPC",1310,0)
802ORWLRR ALLTESTS
803"KRN",19,8552,"RPC",1311,0)
804ORWLRR ATESTS
805"KRN",19,8552,"RPC",1312,0)
806ORWLRR ATG
807"KRN",19,8552,"RPC",1313,0)
808ORWLRR ATOMICS
809"KRN",19,8552,"RPC",1314,0)
810ORWLRR CHART
811"KRN",19,8552,"RPC",1315,0)
812ORWLRR CHEMTEST
813"KRN",19,8552,"RPC",1316,0)
814ORWLRR GRID
815"KRN",19,8552,"RPC",1317,0)
816ORWLRR INTERIM
817"KRN",19,8552,"RPC",1318,0)
818ORWLRR INTERIMG
819"KRN",19,8552,"RPC",1319,0)
820ORWLRR INTERIMS
821"KRN",19,8552,"RPC",1320,0)
822ORWLRR MICRO
823"KRN",19,8552,"RPC",1321,0)
824ORWLRR NEWOLD
825"KRN",19,8552,"RPC",1322,0)
826ORWLRR PARAM
827"KRN",19,8552,"RPC",1323,0)
828ORWLRR SPEC
829"KRN",19,8552,"RPC",1324,0)
830ORWLRR TG
831"KRN",19,8552,"RPC",1325,0)
832ORWLRR USERS
833"KRN",19,8552,"RPC",1326,0)
834ORWLRR UTGA
835"KRN",19,8552,"RPC",1327,0)
836ORWLRR UTGD
837"KRN",19,8552,"RPC",1328,0)
838ORWLRR UTGR
839"KRN",19,8552,"RPC",1329,0)
840ORWMC PATIENT PROCEDURES
841"KRN",19,8552,"RPC",1330,0)
842ORWOR RESULT
843"KRN",19,8552,"RPC",1331,0)
844ORWOR SHEETS
845"KRN",19,8552,"RPC",1332,0)
846ORWOR TSALL
847"KRN",19,8552,"RPC",1333,0)
848ORWORB AUTOUNFLAG ORDERS
849"KRN",19,8552,"RPC",1334,0)
850ORWORB FASTUSER
851"KRN",19,8552,"RPC",1335,0)
852ORWORB GET TIU ALERT INFO
853"KRN",19,8552,"RPC",1336,0)
854ORWORB GETDATA
855"KRN",19,8552,"RPC",1337,0)
856ORWORB KILL UNSIG ORDERS ALERT
857"KRN",19,8552,"RPC",1339,0)
858ORWORDG ALLTREE
859"KRN",19,8552,"RPC",1340,0)
860ORWORDG GRPSEQB
861"KRN",19,8552,"RPC",1341,0)
862ORWORDG IEN
863"KRN",19,8552,"RPC",1342,0)
864ORWORDG MAPSEQ
865"KRN",19,8552,"RPC",1343,0)
866ORWORDG REVSTS
867"KRN",19,8552,"RPC",1344,0)
868ORWORR AGET
869"KRN",19,8552,"RPC",1345,0)
870ORWORR GET
871"KRN",19,8552,"RPC",1346,0)
872ORWORR GET4LST
873"KRN",19,8552,"RPC",1347,0)
874ORWORR GETBYIFN
875"KRN",19,8552,"RPC",1348,0)
876ORWORR GETTXT
877"KRN",19,8552,"RPC",1349,0)
878ORWPCE ACTIVE PROV
879"KRN",19,8552,"RPC",1350,0)
880ORWPCE ACTPROB
881"KRN",19,8552,"RPC",1351,0)
882ORWPCE CPTREQD
883"KRN",19,8552,"RPC",1352,0)
884ORWPCE DELETE
885"KRN",19,8552,"RPC",1353,0)
886ORWPCE DIAG
887"KRN",19,8552,"RPC",1354,0)
888ORWPCE GET EDUCATION TOPICS
889"KRN",19,8552,"RPC",1355,0)
890ORWPCE GET EXAM TYPE
891"KRN",19,8552,"RPC",1356,0)
892ORWPCE GET HEALTH FACTORS TY
893"KRN",19,8552,"RPC",1357,0)
894ORWPCE GET IMMUNIZATION TYPE
895"KRN",19,8552,"RPC",1358,0)
896ORWPCE GET SET OF CODES
897"KRN",19,8552,"RPC",1359,0)
898ORWPCE GET SKIN TEST TYPE
899"KRN",19,8552,"RPC",1360,0)
900ORWPCE GET TREATMENT TYPE
901"KRN",19,8552,"RPC",1361,0)
902ORWPCE HF
903"KRN",19,8552,"RPC",1362,0)
904ORWPCE IMM
905"KRN",19,8552,"RPC",1363,0)
906ORWPCE LEX
907"KRN",19,8552,"RPC",1364,0)
908ORWPCE LEXCODE
909"KRN",19,8552,"RPC",1366,0)
910ORWPCE NOTEVSTR
911"KRN",19,8552,"RPC",1367,0)
912ORWPCE PCE4NOTE
913"KRN",19,8552,"RPC",1368,0)
914ORWPCE PED
915"KRN",19,8552,"RPC",1369,0)
916ORWPCE PROC
917"KRN",19,8552,"RPC",1370,0)
918ORWPCE SAVE
919"KRN",19,8552,"RPC",1371,0)
920ORWPCE SCDIS
921"KRN",19,8552,"RPC",1372,0)
922ORWPCE SCSEL
923"KRN",19,8552,"RPC",1373,0)
924ORWPCE SK
925"KRN",19,8552,"RPC",1374,0)
926ORWPCE TRT
927"KRN",19,8552,"RPC",1375,0)
928ORWPCE VISIT
929"KRN",19,8552,"RPC",1376,0)
930ORWPCE XAM
931"KRN",19,8552,"RPC",1377,0)
932ORWPS ACTIVE
933"KRN",19,8552,"RPC",1378,0)
934ORWPS COVER
935"KRN",19,8552,"RPC",1379,0)
936ORWPS DETAIL
937"KRN",19,8552,"RPC",1380,0)
938ORWPS1 NEWDLG
939"KRN",19,8552,"RPC",1381,0)
940ORWPS1 PICKUP
941"KRN",19,8552,"RPC",1382,0)
942ORWPS1 REFILL
943"KRN",19,8552,"RPC",1383,0)
944ORWPT ADMITLST
945"KRN",19,8552,"RPC",1384,0)
946ORWPT APPTLST
947"KRN",19,8552,"RPC",1385,0)
948ORWPT CLINRNG
949"KRN",19,8552,"RPC",1386,0)
950ORWPT CWAD
951"KRN",19,8552,"RPC",1387,0)
952ORWPT DFLTSRC
953"KRN",19,8552,"RPC",1388,0)
954ORWPT DIEDON
955"KRN",19,8552,"RPC",1389,0)
956ORWPT DISCHARGE
957"KRN",19,8552,"RPC",1390,0)
958ORWPT ENCTITL
959"KRN",19,8552,"RPC",1391,0)
960ORWPT FULLSSN
961"KRN",19,8552,"RPC",1392,0)
962ORWPT ID INFO
963"KRN",19,8552,"RPC",1393,0)
964ORWPT LAST5
965"KRN",19,8552,"RPC",1394,0)
966ORWPT LIST ALL
967"KRN",19,8552,"RPC",1395,0)
968ORWPT PTINQ
969"KRN",19,8552,"RPC",1396,0)
970ORWPT SAVDFLT
971"KRN",19,8552,"RPC",1397,0)
972ORWPT SELCHK
973"KRN",19,8552,"RPC",1398,0)
974ORWPT SELECT
975"KRN",19,8552,"RPC",1399,0)
976ORWPT SHARE
977"KRN",19,8552,"RPC",1400,0)
978ORWPT TOP
979"KRN",19,8552,"RPC",1401,0)
980ORWPT1 PCDETAIL
981"KRN",19,8552,"RPC",1402,0)
982ORWPT1 PRCARE
983"KRN",19,8552,"RPC",1403,0)
984ORWPT16 ADMITLST
985"KRN",19,8552,"RPC",1404,0)
986ORWPT16 APPTLST
987"KRN",19,8552,"RPC",1405,0)
988ORWPT16 DEMOG
989"KRN",19,8552,"RPC",1406,0)
990ORWPT16 GETVSIT
991"KRN",19,8552,"RPC",1407,0)
992ORWPT16 ID INFO
993"KRN",19,8552,"RPC",1408,0)
994ORWPT16 LIST ALL
995"KRN",19,8552,"RPC",1409,0)
996ORWPT16 LOOKUP
997"KRN",19,8552,"RPC",1410,0)
998ORWPT16 PSCNVT
999"KRN",19,8552,"RPC",1411,0)
1000ORWRA DEFAULT EXAM SETTINGS
1001"KRN",19,8552,"RPC",1412,0)
1002ORWRA IMAGING EXAMS
1003"KRN",19,8552,"RPC",1413,0)
1004ORWRA PRINT REPORT
1005"KRN",19,8552,"RPC",1414,0)
1006ORWRA REPORT TEXT
1007"KRN",19,8552,"RPC",1415,0)
1008ORWRP PRINT LAB REPORTS
1009"KRN",19,8552,"RPC",1416,0)
1010ORWRP PRINT REPORT
1011"KRN",19,8552,"RPC",1417,0)
1012ORWRP REPORT LISTS
1013"KRN",19,8552,"RPC",1418,0)
1014ORWRP REPORT TEXT
1015"KRN",19,8552,"RPC",1419,0)
1016ORWRP1 LISTNUTR
1017"KRN",19,8552,"RPC",1420,0)
1018ORWRP16 REPORT LISTS
1019"KRN",19,8552,"RPC",1421,0)
1020ORWRP16 REPORT TEXT
1021"KRN",19,8552,"RPC",1422,0)
1022ORWTIU GET DCSUMM CONTEXT
1023"KRN",19,8552,"RPC",1423,0)
1024ORWTIU GET TIU CONTEXT
1025"KRN",19,8552,"RPC",1424,0)
1026ORWTIU SAVE DCSUMM CONTEXT
1027"KRN",19,8552,"RPC",1425,0)
1028ORWTIU SAVE TIU CONTEXT
1029"KRN",19,8552,"RPC",1426,0)
1030ORWU CLINLOC
1031"KRN",19,8552,"RPC",1427,0)
1032ORWU DEVICE
1033"KRN",19,8552,"RPC",1428,0)
1034ORWU DT
1035"KRN",19,8552,"RPC",1429,0)
1036ORWU EXTNAME
1037"KRN",19,8552,"RPC",1430,0)
1038ORWU GBLREF
1039"KRN",19,8552,"RPC",1431,0)
1040ORWU GENERIC
1041"KRN",19,8552,"RPC",1432,0)
1042ORWU HASKEY
1043"KRN",19,8552,"RPC",1433,0)
1044ORWU HOSPLOC
1045"KRN",19,8552,"RPC",1434,0)
1046ORWU INPLOC
1047"KRN",19,8552,"RPC",1435,0)
1048ORWU NEWPERS
1049"KRN",19,8552,"RPC",1436,0)
1050ORWU NPHASKEY
1051"KRN",19,8552,"RPC",1437,0)
1052ORWU PATCH
1053"KRN",19,8552,"RPC",1438,0)
1054ORWU TOOLMENU
1055"KRN",19,8552,"RPC",1439,0)
1056ORWU USERINFO
1057"KRN",19,8552,"RPC",1440,0)
1058ORWU VALDT
1059"KRN",19,8552,"RPC",1441,0)
1060ORWU VALIDSIG
1061"KRN",19,8552,"RPC",1442,0)
1062ORWU VERSRV
1063"KRN",19,8552,"RPC",1443,0)
1064ORWU16 DEVICE
1065"KRN",19,8552,"RPC",1444,0)
1066ORWU16 HOSPLOC
1067"KRN",19,8552,"RPC",1445,0)
1068ORWU16 NEWPERS
1069"KRN",19,8552,"RPC",1446,0)
1070ORWU16 USERINFO
1071"KRN",19,8552,"RPC",1447,0)
1072ORWU16 VALDT
1073"KRN",19,8552,"RPC",1448,0)
1074ORWU16 VALIDSIG
1075"KRN",19,8552,"RPC",1449,0)
1076ORWUH POPUP
1077"KRN",19,8552,"RPC",1450,0)
1078ORWUX SYMTAB
1079"KRN",19,8552,"RPC",1451,0)
1080ORWUXT LST
1081"KRN",19,8552,"RPC",1452,0)
1082ORWUXT REF
1083"KRN",19,8552,"RPC",1453,0)
1084ORWUXT VAL
1085"KRN",19,8552,"RPC",1454,0)
1086ORQQCN DEFAULT REQUEST REASON
1087"KRN",19,8552,"RPC",1455,0)
1088ORWDX LOCK ORDER
1089"KRN",19,8552,"RPC",1456,0)
1090ORWDX UNLOCK ORDER
1091"KRN",19,8552,"RPC",1457,0)
1092ORWDCN32 NEWDLG
1093"KRN",19,8552,"RPC",1458,0)
1094ORQQCN GET SERVICE IEN
1095"KRN",19,8552,"RPC",1459,0)
1096ORQQCN PROVDX
1097"KRN",19,8552,"RPC",1460,0)
1098TIU TEMPLATE ACCESS LEVEL
1099"KRN",19,8552,"RPC",1461,0)
1100TIU GET DOCUMENT TITLE
1101"KRN",19,8552,"RPC",1462,0)
1102ORWPT BYWARD
1103"KRN",19,8552,"RPC",1463,0)
1104ORQQPX GET HIST LOCATIONS
1105"KRN",19,8552,"RPC",1464,0)
1106ORQQPX NEW REMINDERS ACTIVE
1107"KRN",19,8552,"RPC",1465,0)
1108ORWPCE GET VISIT
1109"KRN",19,8552,"RPC",1480,0)
1110TIU GET REQUEST
1111"KRN",19,8552,"RPC",1481,0)
1112ORWORB KILL EXPIR MED ALERT
1113"KRN",19,8552,"RPC",1482,0)
1114DG CHK BS5 XREF ARRAY
1115"KRN",19,8552,"RPC",1483,0)
1116DG CHK BS5 XREF Y/N
1117"KRN",19,8552,"RPC",1484,0)
1118DG CHK PAT/DIV MEANS TEST
1119"KRN",19,8552,"RPC",1485,0)
1120DG SENSITIVE RECORD ACCESS
1121"KRN",19,8552,"RPC",1486,0)
1122DG SENSITIVE RECORD BULLETIN
1123"KRN",19,8552,"RPC",1487,0)
1124ORQQCN CANEDIT
1125"KRN",19,8552,"RPC",1488,0)
1126ORQQCN EDIT DEFAULT REASON
1127"KRN",19,8552,"RPC",1489,0)
1128ORQQCN SF513 WINDOWS PRINT
1129"KRN",19,8552,"RPC",1490,0)
1130ORWCIRN FACLIST
1131"KRN",19,8552,"RPC",1491,0)
1132ORWDLR32 GET LAB TIMES
1133"KRN",19,8552,"RPC",1492,0)
1134ORWPT LEGACY
1135"KRN",19,8552,"RPC",1493,0)
1136ORWRP GET DEFAULT PRINTER
1137"KRN",19,8552,"RPC",1494,0)
1138ORWRP PRINT WINDOWS REPORT
1139"KRN",19,8552,"RPC",1495,0)
1140ORWRP SAVE DEFAULT PRINTER
1141"KRN",19,8552,"RPC",1496,0)
1142ORWRP WINPRINT DEFAULT
1143"KRN",19,8552,"RPC",1497,0)
1144ORWRP WINPRINT LAB REPORTS
1145"KRN",19,8552,"RPC",1498,0)
1146ORWTIU WINPRINT NOTE
1147"KRN",19,8552,"RPC",1500,0)
1148ORWPCE GAFOK
1149"KRN",19,8552,"RPC",1501,0)
1150ORWPCE MHCLINIC
1151"KRN",19,8552,"RPC",1502,0)
1152ORWPCE LOADGAF
1153"KRN",19,8552,"RPC",1503,0)
1154ORWPCE SAVEGAF
1155"KRN",19,8552,"RPC",1504,0)
1156ORWPCE FORCE
1157"KRN",19,8552,"RPC",1505,0)
1158TIU GET DEFAULT PROVIDER
1159"KRN",19,8552,"RPC",1506,0)
1160TIU GET SITE PARAMETERS
1161"KRN",19,8552,"RPC",1507,0)
1162TIU IS USER A PROVIDER?
1163"KRN",19,8552,"RPC",1508,0)
1164ORWOR VWGET
1165"KRN",19,8552,"RPC",1509,0)
1166ORWOR VWSET
1167"KRN",19,8552,"RPC",1510,0)
1168ORWU PARAM
1169"KRN",19,8552,"RPC",1511,0)
1170ORWDOR LKSCRN
1171"KRN",19,8552,"RPC",1512,0)
1172ORWDOR VALNUM
1173"KRN",19,8552,"RPC",1513,0)
1174ORWDPS32 VALROUTE
1175"KRN",19,8552,"RPC",1515,0)
1176ORWORB UNSIG ORDERS FOLLOWUP
1177"KRN",19,8552,"RPC",1516,0)
1178ORWTIU GET LISTBOX ITEM
1179"KRN",19,8552,"RPC",1517,0)
1180ORWRP2 HS COMP FILES
1181"KRN",19,8552,"RPC",1518,0)
1182ORWRP2 HS COMPONENTS
1183"KRN",19,8552,"RPC",1519,0)
1184ORWRP2 HS FILE LOOKUP
1185"KRN",19,8552,"RPC",1520,0)
1186ORWRP2 HS REPORT TEXT
1187"KRN",19,8552,"RPC",1521,0)
1188ORWRP2 HS SUBITEMS
1189"KRN",19,8552,"RPC",1522,0)
1190ORWPCE HASCPT
1191"KRN",19,8552,"RPC",1523,0)
1192ORWPCE ASKPCE
1193"KRN",19,8552,"RPC",1524,0)
1194ORWPCE MHTESTOK
1195"KRN",19,8552,"RPC",1525,0)
1196ORWPCE GAFURL
1197"KRN",19,8552,"RPC",1526,0)
1198ORQQPXRM DIALOG PROMPTS
1199"KRN",19,8552,"RPC",1527,0)
1200ORQQPXRM EDUCATION SUBTOPICS
1201"KRN",19,8552,"RPC",1528,0)
1202ORQQPXRM EDUCATION SUMMARY
1203"KRN",19,8552,"RPC",1529,0)
1204ORQQPXRM EDUCATION TOPIC
1205"KRN",19,8552,"RPC",1530,0)
1206ORQQPXRM MENTAL HEALTH
1207"KRN",19,8552,"RPC",1531,0)
1208ORQQPXRM MENTAL HEALTH RESULTS
1209"KRN",19,8552,"RPC",1532,0)
1210ORQQPXRM MENTAL HEALTH SAVE
1211"KRN",19,8552,"RPC",1533,0)
1212ORQQPXRM PROGRESS NOTE HEADER
1213"KRN",19,8552,"RPC",1534,0)
1214ORQQPXRM REMINDER CATEGORIES
1215"KRN",19,8552,"RPC",1535,0)
1216ORQQPXRM REMINDER DETAIL
1217"KRN",19,8552,"RPC",1536,0)
1218ORQQPXRM REMINDER DIALOG
1219"KRN",19,8552,"RPC",1537,0)
1220ORQQPXRM REMINDER EVALUATION
1221"KRN",19,8552,"RPC",1538,0)
1222ORQQPXRM REMINDER INQUIRY
1223"KRN",19,8552,"RPC",1539,0)
1224ORQQPXRM REMINDER WEB
1225"KRN",19,8552,"RPC",1540,0)
1226ORQQPXRM REMINDERS APPLICABLE
1227"KRN",19,8552,"RPC",1541,0)
1228ORQQPXRM REMINDERS UNEVALUATED
1229"KRN",19,8552,"RPC",1542,0)
1230ORWLRR INFO
1231"KRN",19,8552,"RPC",1543,0)
1232TIU GET PRINT NAME
1233"KRN",19,8552,"RPC",1544,0)
1234TIU WAS THIS SAVED?
1235"KRN",19,8552,"RPC",1545,0)
1236ORWD1 COMLOC
1237"KRN",19,8552,"RPC",1546,0)
1238ORWD1 SIG4ANY
1239"KRN",19,8552,"RPC",1547,0)
1240ORWD1 SIG4ONE
1241"KRN",19,8552,"RPC",1548,0)
1242ORWOR UNSIGN
1243"KRN",19,8552,"RPC",1549,0)
1244ORWPT INPLOC
1245"KRN",19,8552,"RPC",1553,0)
1246ORQQCN2 GET PREREQUISITE
1247"KRN",19,8552,"RPC",1554,0)
1248ORQQCN2 SCHEDULE CONSULT
1249"KRN",19,8552,"RPC",1555,0)
1250YS GAF API
1251"KRN",19,8552,"RPC",1556,0)
1252TIU LONG LIST BOILERPLATED
1253"KRN",19,8552,"RPC",1557,0)
1254ORWDLR33 FUTURE LAB COLLECTS
1255"KRN",19,8552,"RPC",1558,0)
1256ORWRP PRINT REMOTE REPORT
1257"KRN",19,8552,"RPC",1559,0)
1258ORWRP PRINT WINDOWS REMOTE
1259"KRN",19,8552,"RPC",1560,0)
1260ORWRP PRINT LAB REMOTE
1261"KRN",19,8552,"RPC",1561,0)
1262ORWRP PRINT WINDOWS LAB REMOTE
1263"KRN",19,8552,"RPC",1562,0)
1264ORQQPXRM DIALOG ACTIVE
1265"KRN",19,8552,"RPC",1563,0)
1266ORWPCE MH TEST AUTHORIZED
1267"KRN",19,8552,"RPC",1564,0)
1268TIU GET BOILERPLATE
1269"KRN",19,8552,"RPC",1565,0)
1270ORWRP2 HS COMPONENT SUBS
1271"KRN",19,8552,"RPC",1566,0)
1272ORWCH SAVFONT
1273"KRN",19,8552,"RPC",1567,0)
1274ORWDLR33 LASTTIME
1275"KRN",19,8552,"RPC",1568,0)
1276ORWD1 SVONLY
1277"KRN",19,8552,"RPC",1569,0)
1278ORWPCE HASVISIT
1279"KRN",19,8552,"RPC",1570,0)
1280ORWPCE GETMOD
1281"KRN",19,8552,"RPC",1571,0)
1282ORWPCE CPTMODS
1283"KRN",19,8552,"RPC",1572,0)
1284XWB REMOTE CLEAR
1285"KRN",19,8552,"RPC",1573,0)
1286XWB REMOTE GETDATA
1287"KRN",19,8552,"RPC",1574,0)
1288XWB REMOTE RPC
1289"KRN",19,8552,"RPC",1575,0)
1290XWB REMOTE STATUS CHECK
1291"KRN",19,8552,"RPC",1576,0)
1292ORQQCN ASSIGNABLE MED RESULTS
1293"KRN",19,8552,"RPC",1577,0)
1294ORQQCN ATTACH MED RESULTS
1295"KRN",19,8552,"RPC",1578,0)
1296ORQQCN GET MED RESULT DETAILS
1297"KRN",19,8552,"RPC",1579,0)
1298ORQQCN REMOVABLE MED RESULTS
1299"KRN",19,8552,"RPC",1580,0)
1300ORQQCN REMOVE MED RESULTS
1301"KRN",19,8552,"RPC",1581,0)
1302ORQQCN SVC W/SYNONYMS
1303"KRN",19,8552,"RPC",1582,0)
1304ORWCV1 COVERSHEET LIST
1305"KRN",19,8552,"RPC",1583,0)
1306ORWORB KILL EXPIR OI ALERT
1307"KRN",19,8552,"RPC",1584,0)
1308ORWPCE GETSVC
1309"KRN",19,8552,"RPC",1585,0)
1310ORWRP LAB REPORT LISTS
1311"KRN",19,8552,"RPC",1587,0)
1312ORWTPN GETCLASS
1313"KRN",19,8552,"RPC",1588,0)
1314ORWTPN GETTC
1315"KRN",19,8552,"RPC",1589,0)
1316ORWTPO CSARNGD
1317"KRN",19,8552,"RPC",1590,0)
1318ORWTPO CSLABD
1319"KRN",19,8552,"RPC",1591,0)
1320ORWTPO GETTABS
1321"KRN",19,8552,"RPC",1592,0)
1322ORWTPP ADDLIST
1323"KRN",19,8552,"RPC",1593,0)
1324ORWTPP CHKSURR
1325"KRN",19,8552,"RPC",1594,0)
1326ORWTPP CLDAYS
1327"KRN",19,8552,"RPC",1595,0)
1328ORWTPP CLEARNOT
1329"KRN",19,8552,"RPC",1596,0)
1330ORWTPP CLRANGE
1331"KRN",19,8552,"RPC",1597,0)
1332ORWTPP CSARNG
1333"KRN",19,8552,"RPC",1598,0)
1334ORWTPP CSLAB
1335"KRN",19,8552,"RPC",1599,0)
1336ORWTPP DELLIST
1337"KRN",19,8552,"RPC",1600,0)
1338ORWTPP GETCOMBO
1339"KRN",19,8552,"RPC",1601,0)
1340ORWTPP GETCOS
1341"KRN",19,8552,"RPC",1602,0)
1342ORWTPP GETDCOS
1343"KRN",19,8552,"RPC",1603,0)
1344ORWTPP GETNOT
1345"KRN",19,8552,"RPC",1604,0)
1346ORWTPP GETNOTO
1347"KRN",19,8552,"RPC",1605,0)
1348ORWTPP GETOC
1349"KRN",19,8552,"RPC",1606,0)
1350ORWTPP GETOTHER
1351"KRN",19,8552,"RPC",1607,0)
1352ORWTPP GETREM
1353"KRN",19,8552,"RPC",1608,0)
1354ORWTPP GETSUB
1355"KRN",19,8552,"RPC",1609,0)
1356ORWTPP GETSURR
1357"KRN",19,8552,"RPC",1610,0)
1358ORWTPP GETTD
1359"KRN",19,8552,"RPC",1611,0)
1360ORWTPP GETTU
1361"KRN",19,8552,"RPC",1612,0)
1362ORWTPP LSDEF
1363"KRN",19,8552,"RPC",1613,0)
1364ORWTPP NEWLIST
1365"KRN",19,8552,"RPC",1614,0)
1366ORWTPP PLISTS
1367"KRN",19,8552,"RPC",1615,0)
1368ORWTPP PLTEAMS
1369"KRN",19,8552,"RPC",1616,0)
1370ORWTPP REMLIST
1371"KRN",19,8552,"RPC",1617,0)
1372ORWTPP SAVECD
1373"KRN",19,8552,"RPC",1618,0)
1374ORWTPP SAVECS
1375"KRN",19,8552,"RPC",1619,0)
1376ORWTPP SAVELIST
1377"KRN",19,8552,"RPC",1620,0)
1378ORWTPP SAVENOT
1379"KRN",19,8552,"RPC",1621,0)
1380ORWTPP SAVENOTO
1381"KRN",19,8552,"RPC",1622,0)
1382ORWTPP SAVEOC
1383"KRN",19,8552,"RPC",1623,0)
1384ORWTPP SAVEPLD
1385"KRN",19,8552,"RPC",1624,0)
1386ORWTPP SAVESURR
1387"KRN",19,8552,"RPC",1625,0)
1388ORWTPP SAVET
1389"KRN",19,8552,"RPC",1626,0)
1390ORWTPP SETCOMBO
1391"KRN",19,8552,"RPC",1627,0)
1392ORWTPP SETDCOS
1393"KRN",19,8552,"RPC",1628,0)
1394ORWTPP SETOTHER
1395"KRN",19,8552,"RPC",1629,0)
1396ORWTPP SETREM
1397"KRN",19,8552,"RPC",1630,0)
1398ORWTPP SETSUB
1399"KRN",19,8552,"RPC",1631,0)
1400ORWTPP SORTDEF
1401"KRN",19,8552,"RPC",1632,0)
1402ORWTPP TEAMS
1403"KRN",19,8552,"RPC",1633,0)
1404ORWTPT ATEAMS
1405"KRN",19,8552,"RPC",1634,0)
1406ORWTPT GETTEAM
1407"KRN",19,8552,"RPC",1635,0)
1408TIU TEMPLATE GET DEFAULTS
1409"KRN",19,8552,"RPC",1636,0)
1410TIU TEMPLATE GET DESCRIPTION
1411"KRN",19,8552,"RPC",1637,0)
1412TIU TEMPLATE SET DEFAULTS
1413"KRN",19,8552,"RPC",1638,0)
1414ORWTIU IDNOTES INSTALLED
1415"KRN",19,8552,"RPC",1639,0)
1416ORQQPX GET FOLDERS
1417"KRN",19,8552,"RPC",1640,0)
1418ORQQPX SET FOLDERS
1419"KRN",19,8552,"RPC",1641,0)
1420TIU FIELD CAN EDIT
1421"KRN",19,8552,"RPC",1642,0)
1422TIU FIELD DELETE
1423"KRN",19,8552,"RPC",1643,0)
1424TIU FIELD EXPORT
1425"KRN",19,8552,"RPC",1644,0)
1426TIU FIELD IMPORT
1427"KRN",19,8552,"RPC",1645,0)
1428TIU FIELD LIST
1429"KRN",19,8552,"RPC",1646,0)
1430TIU FIELD LOAD
1431"KRN",19,8552,"RPC",1647,0)
1432TIU FIELD LOAD BY IEN
1433"KRN",19,8552,"RPC",1648,0)
1434TIU FIELD LOCK
1435"KRN",19,8552,"RPC",1649,0)
1436TIU FIELD NAME IS UNIQUE
1437"KRN",19,8552,"RPC",1650,0)
1438TIU FIELD SAVE
1439"KRN",19,8552,"RPC",1651,0)
1440TIU FIELD UNLOCK
1441"KRN",19,8552,"RPC",1652,0)
1442ORWDPS1 CHK94
1443"KRN",19,8552,"RPC",1653,0)
1444ORWDPS1 ODSLCT
1445"KRN",19,8552,"RPC",1654,0)
1446ORWDPS1 SCHALL
1447"KRN",19,8552,"RPC",1655,0)
1448ORWDPS2 ADMIN
1449"KRN",19,8552,"RPC",1656,0)
1450ORWDPS2 DAY2QTY
1451"KRN",19,8552,"RPC",1657,0)
1452ORWDPS2 OISLCT
1453"KRN",19,8552,"RPC",1658,0)
1454ORWDPS2 REQST
1455"KRN",19,8552,"RPC",1659,0)
1456ORWDX DGNM
1457"KRN",19,8552,"RPC",1660,0)
1458ORWUL FV4DG
1459"KRN",19,8552,"RPC",1661,0)
1460ORWUL FVIDX
1461"KRN",19,8552,"RPC",1662,0)
1462ORWUL FVSUB
1463"KRN",19,8552,"RPC",1663,0)
1464ORWUL QV4DG
1465"KRN",19,8552,"RPC",1664,0)
1466ORWUL QVIDX
1467"KRN",19,8552,"RPC",1665,0)
1468ORWUL QVSUB
1469"KRN",19,8552,"RPC",1666,0)
1470ORWDPS1 DFLTSPLY
1471"KRN",19,8552,"RPC",1668,0)
1472PXRM REMINDER DIALOG (TIU)
1473"KRN",19,8552,"RPC",1669,0)
1474ORWPCE ANYTIME
1475"KRN",19,8552,"RPC",1670,0)
1476ORQQPX GET DEF LOCATIONS
1477"KRN",19,8552,"RPC",1671,0)
1478ORWTPP GETIMG
1479"KRN",19,8552,"RPC",1672,0)
1480ORWTPP SETIMG
1481"KRN",19,8552,"RPC",1673,0)
1482ORWTPO GETIMGD
1483"KRN",19,8552,"RPC",1674,0)
1484ORQQPX REM INSERT AT CURSOR
1485"KRN",19,8552,"RPC",1675,0)
1486TIU REMINDER DIALOGS
1487"KRN",19,8552,"RPC",1676,0)
1488TIU REM DLG OK AS TEMPLATE
1489"KRN",19,8552,"RPC",1677,0)
1490ORWDPS2 MAXREF
1491"KRN",19,8552,"RPC",1678,0)
1492ORWDPS2 SCHREQ
1493"KRN",19,8552,"RPC",1679,0)
1494ORWRP COLUMN HEADERS
1495"KRN",19,8552,"RPC",1680,0)
1496TIU FIELD DOLMTEXT
1497"KRN",19,8552,"RPC",1681,0)
1498TIU TEMPLATE PERSONAL OBJECTS
1499"KRN",19,8552,"RPC",1682,0)
1500ORWPCE AUTO VISIT TYPE SELECT
1501"KRN",19,8552,"RPC",1683,0)
1502ORWDPS2 QTY2DAY
1503"KRN",19,8552,"RPC",1684,0)
1504ORWU HAS OPTION ACCESS
1505"KRN",19,8552,"RPC",1685,0)
1506TIU TEMPLATE LOCK
1507"KRN",19,8552,"RPC",1686,0)
1508ORQQPX LVREMLST
1509"KRN",19,8552,"RPC",1687,0)
1510ORQQPX NEW COVER SHEET ACTIVE
1511"KRN",19,8552,"RPC",1688,0)
1512ORQQPX NEW COVER SHEET REMS
1513"KRN",19,8552,"RPC",1689,0)
1514ORQQPX SAVELVL
1515"KRN",19,8552,"RPC",1690,0)
1516PXRM REMINDER CATEGORY
1517"KRN",19,8552,"RPC",1691,0)
1518PXRM REMINDERS AND CATEGORIES
1519"KRN",19,8552,"RPC",1692,0)
1520TIU DIV AND CLASS INFO
1521"KRN",19,8552,"RPC",1693,0)
1522TIU TEMPLATE GETBOIL
1523"KRN",19,8552,"RPC",1694,0)
1524TIU TEMPLATE GETITEMS
1525"KRN",19,8552,"RPC",1695,0)
1526TIU TEMPLATE GETROOTS
1527"KRN",19,8552,"RPC",1696,0)
1528TIU TEMPLATE GETTEXT
1529"KRN",19,8552,"RPC",1697,0)
1530TIU TEMPLATE ISEDITOR
1531"KRN",19,8552,"RPC",1698,0)
1532TIU TEMPLATE UNLOCK
1533"KRN",19,8552,"RPC",1699,0)
1534TIU USER CLASS LONG LIST
1535"KRN",19,8552,"RPC",1700,0)
1536ORWPCE ALWAYS CHECKOUT
1537"KRN",19,8552,"RPC",1701,0)
1538ORWPCE GET EXCLUDED
1539"KRN",19,8552,"RPC",1702,0)
1540ORWDPS1 FORMALT
1541"KRN",19,8552,"RPC",1703,0)
1542ORQPT DEFAULT LIST SORT
1543"KRN",19,8552,"RPC",1704,0)
1544ORWDPS1 DOSEALT
1545"KRN",19,8552,"RPC",1705,0)
1546ORWTPR OCDESC
1547"KRN",19,8552,"RPC",1706,0)
1548ORWTPR NOTDESC
1549"KRN",19,8552,"RPC",1707,0)
1550ORWDPS1 FAILDEA
1551"KRN",19,8552,"RPC",1708,0)
1552ORQPT DEFAULT CLINIC DATE RANG
1553"KRN",19,8552,"RPC",1709,0)
1554ORWTIU CANLINK
1555"KRN",19,8552,"RPC",1710,0)
1556TIU ID ATTACH ENTRY
1557"KRN",19,8552,"RPC",1711,0)
1558TIU ID CAN ATTACH
1559"KRN",19,8552,"RPC",1712,0)
1560TIU ID CAN RECEIVE
1561"KRN",19,8552,"RPC",1713,0)
1562TIU ID DETACH ENTRY
1563"KRN",19,8552,"RPC",1714,0)
1564ORWCOM GETOBJS
1565"KRN",19,8552,"RPC",1715,0)
1566ORWCOM DETAILS
1567"KRN",19,8552,"RPC",1716,0)
1568ORWCOM PTOBJ
1569"KRN",19,8552,"RPC",1718,0)
1570TIU TEMPLATE GETLINK
1571"KRN",19,8552,"RPC",1719,0)
1572TIU TEMPLATE ALL TITLES
1573"KRN",19,8552,"RPC",1720,0)
1574ORWSR LIST
1575"KRN",19,8552,"RPC",1721,0)
1576ORWSR SHOW SURG TAB
1577"KRN",19,8552,"RPC",1722,0)
1578ORWSR GET SURG CONTEXT
1579"KRN",19,8552,"RPC",1723,0)
1580ORWSR SAVE SURG CONTEXT
1581"KRN",19,8552,"RPC",1724,0)
1582ORWSR ONECASE
1583"KRN",19,8552,"RPC",1727,0)
1584ORWSR SHOW OPTOP WHEN SIGNING
1585"KRN",19,8552,"RPC",1728,0)
1586ORWSR IS NON-OR PROCEDURE
1587"KRN",19,8552,"RPC",1729,0)
1588ORWSR CASELIST
1589"KRN",19,8552,"RPC",1730,0)
1590ORQQCN GET PROC IEN
1591"KRN",19,8552,"RPC",1731,0)
1592ORWRP PRINT V REPORT
1593"KRN",19,8552,"RPC",1732,0)
1594ORWRP3 EXPAND COLUMNS
1595"KRN",19,8552,"RPC",1733,0)
1596ORWTPD ACTDF
1597"KRN",19,8552,"RPC",1734,0)
1598ORWTPD DELDFLT
1599"KRN",19,8552,"RPC",1735,0)
1600ORWTPD GETDFLT
1601"KRN",19,8552,"RPC",1736,0)
1602ORWTPD RSDFLT
1603"KRN",19,8552,"RPC",1737,0)
1604ORWTPD SUDF
1605"KRN",19,8552,"RPC",1738,0)
1606ORWTPD SUINDV
1607"KRN",19,8552,"RPC",1739,0)
1608ORWTPD GETSETS
1609"KRN",19,8552,"RPC",1740,0)
1610ORWCOM ORDEROBJ
1611"KRN",19,8552,"RPC",1741,0)
1612ORWRP2 COMPABV
1613"KRN",19,8552,"RPC",1742,0)
1614ORWRP2 GETLKUP
1615"KRN",19,8552,"RPC",1743,0)
1616ORWRP2 SAVLKUP
1617"KRN",19,8552,"RPC",1744,0)
1618ORWRP2 COMPDISP
1619"KRN",19,8552,"RPC",1745,0)
1620ORWPCE ISCLINIC
1621"KRN",19,8552,"RPC",1746,0)
1622ORWCH SAVECOL
1623"KRN",19,8552,"RPC",1747,0)
1624ORWSR RPTLIST
1625"KRN",19,8552,"RPC",1748,0)
1626ORQQPXRM MST UPDATE
1627"KRN",19,8552,"RPC",1749,0)
1628ORWMC PATIENT PROCEDURES1
1629"KRN",19,8552,"RPC",1750,0)
1630ORWRA IMAGING EXAMS1
1631"KRN",19,8552,"RPC",1751,0)
1632ORWRA REPORT TEXT1
1633"KRN",19,8552,"RPC",1752,0)
1634ORWDPS4 CPINFO
1635"KRN",19,8552,"RPC",1753,0)
1636ORWDPS4 CPLST
1637"KRN",19,8552,"RPC",1754,0)
1638ORWORB KILL UNVER MEDS ALERT
1639"KRN",19,8552,"RPC",1755,0)
1640ORWORB KILL UNVER ORDERS ALERT
1641"KRN",19,8552,"RPC",1756,0)
1642ORWPCE HNCOK
1643"KRN",19,8552,"RPC",1757,0)
1644ORWPS MEDHIST
1645"KRN",19,8552,"RPC",1758,0)
1646TIU FIELD CHECK
1647"KRN",19,8552,"RPC",1759,0)
1648TIU FIELD LIST ADD
1649"KRN",19,8552,"RPC",1760,0)
1650TIU FIELD LIST IMPORT
1651"KRN",19,8552,"RPC",1761,0)
1652TIU SET DOCUMENT TEXT
1653"KRN",19,8552,"RPC",1762,0)
1654ORWDPS2 CHKPI
1655"KRN",19,8552,"RPC",1763,0)
1656ORWDXR GTORITM
1657"KRN",19,8552,"RPC",1764,0)
1658ORWDPS2 CHKGRP
1659"KRN",19,8552,"RPC",1765,0)
1660ORWDPS2 QOGRP
1661"KRN",19,8552,"RPC",1766,0)
1662ORWDXR GETPKG
1663"KRN",19,8552,"RPC",1767,0)
1664ORQPT MAKE RPL
1665"KRN",19,8552,"RPC",1768,0)
1666ORQPT READ RPL
1667"KRN",19,8552,"RPC",1769,0)
1668ORQPT KILL RPL
1669"KRN",19,8552,"RPC",1770,0)
1670ORWTIU GET SAVED CP FIELDS
1671"KRN",19,8552,"RPC",1771,0)
1672ORWDPS1 LOCPICK
1673"KRN",19,8552,"RPC",1772,0)
1674ORWPT LAST5 RPL
1675"KRN",19,8552,"RPC",1773,0)
1676ORWPT FULLSSN RPL
1677"KRN",19,8552,"RPC",1774,0)
1678ORWOR PKIUSE
1679"KRN",19,8552,"RPC",1775,0)
1680ORWOR1 SIG
1681"KRN",19,8552,"RPC",1776,0)
1682ORWOR1 CHKDIG
1683"KRN",19,8552,"RPC",1777,0)
1684ORWOR1 GETDTEXT
1685"KRN",19,8552,"RPC",1778,0)
1686ORWOR1 GETDSIG
1687"KRN",19,8552,"RPC",1779,0)
1688ORWTPD GETIMG
1689"KRN",19,8552,"RPC",1780,0)
1690OREVNTX1 PRMPTID
1691"KRN",19,8552,"RPC",1781,0)
1692ORECS01 CHKESSO
1693"KRN",19,8552,"RPC",1782,0)
1694ORECS01 VSITID
1695"KRN",19,8552,"RPC",1784,0)
1696OREVNTX LIST
1697"KRN",19,8552,"RPC",1785,0)
1698OREVNTX PAT
1699"KRN",19,8552,"RPC",1786,0)
1700OREVNTX1 GTEVT
1701"KRN",19,8552,"RPC",1787,0)
1702OREVNTX1 CPACT
1703"KRN",19,8552,"RPC",1788,0)
1704OREVNTX1 CURSPE
1705"KRN",19,8552,"RPC",1789,0)
1706OREVNTX1 CHGEVT
1707"KRN",19,8552,"RPC",1790,0)
1708OREVNTX1 DELPTEVT
1709"KRN",19,8552,"RPC",1791,0)
1710OREVNTX1 DFLTEVT
1711"KRN",19,8552,"RPC",1792,0)
1712OREVNTX ACTIVE
1713"KRN",19,8552,"RPC",1793,0)
1714OREVNTX1 PUTEVNT
1715"KRN",19,8552,"RPC",1794,0)
1716OREVNTX1 WRLSTED
1717"KRN",19,8552,"RPC",1795,0)
1718OREVNTX1 EVT
1719"KRN",19,8552,"RPC",1796,0)
1720OREVNTX1 NAME
1721"KRN",19,8552,"RPC",1797,0)
1722OREVNTX1 MATCH
1723"KRN",19,8552,"RPC",1798,0)
1724OREVNTX1 EMPTY
1725"KRN",19,8552,"RPC",1799,0)
1726OREVNTX1 EXISTS
1727"KRN",19,8552,"RPC",1800,0)
1728OREVNTX1 GTEVT1
1729"KRN",19,8552,"RPC",1801,0)
1730OREVNTX1 DIV
1731"KRN",19,8552,"RPC",1802,0)
1732OREVNTX1 DIV1
1733"KRN",19,8552,"RPC",1803,0)
1734OREVNTX1 LOC
1735"KRN",19,8552,"RPC",1804,0)
1736OREVNTX1 LOC1
1737"KRN",19,8552,"RPC",1805,0)
1738ORWDX SENDED
1739"KRN",19,8552,"RPC",1806,0)
1740OREVNTX1 GETDLG
1741"KRN",19,8552,"RPC",1807,0)
1742ORECS01 ECPRINT
1743"KRN",19,8552,"RPC",1811,0)
1744ORECS01 ECRPT
1745"KRN",19,8552,"RPC",1812,0)
1746OREVNTX1 ISDCOD
1747"KRN",19,8552,"RPC",1813,0)
1748OREVNTX1 SETDFLT
1749"KRN",19,8552,"RPC",1815,0)
1750TIU IS THIS A CLINPROC?
1751"KRN",19,8552,"RPC",1816,0)
1752TIU IDENTIFY CLINPROC CLASS
1753"KRN",19,8552,"RPC",1817,0)
1754TIU LONG LIST CLINPROC TITLES
1755"KRN",19,8552,"RPC",1819,0)
1756ORWDPS1 HASOIPI
1757"KRN",19,8552,"RPC",1821,0)
1758OREVNTX1 DEFLTS
1759"KRN",19,8552,"RPC",1822,0)
1760OREVNTX1 MULTS
1761"KRN",19,8552,"RPC",1823,0)
1762OREVNTX1 DONE
1763"KRN",19,8552,"RPC",1824,0)
1764OREVNTX1 PROMPT IDS
1765"KRN",19,8552,"RPC",1825,0)
1766ORWCIRN CHECKLINK
1767"KRN",19,8552,"RPC",1826,0)
1768XWB DIRECT RPC
1769"KRN",19,8552,"RPC",1827,0)
1770ORWDPS1 HASROUTE
1771"KRN",19,8552,"RPC",1828,0)
1772ORQQCN UNRESOLVED
1773"KRN",19,8552,"RPC",1829,0)
1774OREVNTX1 DELDFLT
1775"KRN",19,8552,"RPC",1830,0)
1776ORWCH LDFONT
1777"KRN",19,8552,"RPC",1831,0)
1778ORWU1 NAMECVT
1779"KRN",19,8552,"RPC",1832,0)
1780OREVNTX1 DFLTDLG
1781"KRN",19,8552,"RPC",1833,0)
1782ORWDPS5 LESAPI
1783"KRN",19,8552,"RPC",1834,0)
1784ORWDPS5 LESGRP
1785"KRN",19,8552,"RPC",1839,0)
1786OREVNTX1 TYPEXT
1787"KRN",19,8552,"RPC",1840,0)
1788ORWORR RGET
1789"KRN",19,8552,"RPC",1841,0)
1790OREVNTX1 AUTHMREL
1791"KRN",19,8552,"RPC",1842,0)
1792OREVNTX1 HAVEPRT
1793"KRN",19,8552,"RPC",1843,0)
1794OREVNTX1 CMEVTS
1795"KRN",19,8552,"RPC",1844,0)
1796OREVNTX1 ODPTEVID
1797"KRN",19,8552,"RPC",1845,0)
1798ORWOR PKISITE
1799"KRN",19,8552,"RPC",1846,0)
1800OREVNTX1 COMP
1801"KRN",19,8552,"RPC",1847,0)
1802OREVNTX1 ISHDORD
1803"KRN",19,8552,"RPC",1848,0)
1804ORWDXR ORCPLX
1805"KRN",19,8552,"RPC",1849,0)
1806OREVNTX1 ISPASS
1807"KRN",19,8552,"RPC",1850,0)
1808OREVNTX1 ISPASS1
1809"KRN",19,8552,"RPC",1851,0)
1810OREVNTX1 DLGIEN
1811"KRN",19,8552,"RPC",1852,0)
1812ORWDXR CANRN
1813"KRN",19,8552,"RPC",1853,0)
1814ORWDXR ISCPLX
1815"KRN",19,8552,"RPC",1854,0)
1816ORWDXA OFCPLX
1817"KRN",19,8552,"RPC",1855,0)
1818ORQQPX GET NOT PURPOSE
1819"KRN",19,8552,"RPC",1856,0)
1820ORWDPS1 IVDEA
1821"KRN",19,8552,"RPC",1857,0)
1822ORWDXR ISNOW
1823"KRN",19,8552,"RPC",1858,0)
1824ORRHCQ QRYITR
1825"KRN",19,8552,"RPC",1859,0)
1826OREVNTX1 GETSTS
1827"KRN",19,8552,"RPC",1860,0)
1828ORWU DEFAULT DIVISION
1829"KRN",19,8552,"RPC",1861,0)
1830ORWDXA ISACTOI
1831"KRN",19,8552,"RPC",1862,0)
1832ORECS01 SAVPATH
1833"KRN",19,8552,"RPC",1863,0)
1834ORWOR RESULT HISTORY
1835"KRN",19,8552,"RPC",1864,0)
1836XUS GET TOKEN
1837"KRN",19,8552,"RPC",1865,0)
1838ORQQPX IMMUN LIST
1839"KRN",19,8552,"RPC",1866,0)
1840XWB DEFERRED CLEARALL
1841"KRN",19,8552,"RPC",1867,0)
1842ORWOR1 SETDTEXT
1843"KRN",19,8552,"RPC",1868,0)
1844ORWOR1 GETDEA
1845"KRN",19,8552,"RPC",1869,0)
1846ORWOR1 GETDSCH
1847"KRN",19,8552,"RPC",1870,0)
1848ORWORB TEXT FOLLOWUP
1849"KRN",19,8552,"RPC",1871,0)
1850ORWU1 NEWLOC
1851"KRN",19,8552,"RPC",1872,0)
1852ORWPCE ACTIVE CODE
1853"KRN",19,8552,"RPC",1873,0)
1854ORQQPXRM GET WH LETTER TEXT
1855"KRN",19,8552,"RPC",1874,0)
1856ORQQPXRM GET WH LETTER TYPE
1857"KRN",19,8552,"RPC",1875,0)
1858ORQQPXRM GET WH PROC RESULT
1859"KRN",19,8552,"RPC",1876,0)
1860ORQQPXRM WOMEN HEALTH SAVE
1861"KRN",19,8552,"RPC",1877,0)
1862ORB FORWARD ALERT
1863"KRN",19,8552,"RPC",1878,0)
1864ORB RENEW ALERT
1865"KRN",19,8552,"RPC",1879,0)
1866ORPRF CLEAR
1867"KRN",19,8552,"RPC",1880,0)
1868ORPRF GETFLG
1869"KRN",19,8552,"RPC",1881,0)
1870ORPRF HASFLG
1871"KRN",19,8552,"RPC",1882,0)
1872ORWTPD GETOCM
1873"KRN",19,8552,"RPC",1883,0)
1874TIU ONE VISIT NOTE?
1875"KRN",19,8552,"RPC",1884,0)
1876VAFCTFU CONVERT ICN TO DFN
1877"KRN",19,8552,"RPC",1885,0)
1878ORIMO IMOLOC
1879"KRN",19,8552,"RPC",1886,0)
1880ORIMO IMOOD
1881"KRN",19,8552,"RPC",1887,0)
1882ORWDPS4 IPOD4OP
1883"KRN",19,8552,"RPC",1888,0)
1884ORWDPS4 UPDTDG
1885"KRN",19,8552,"RPC",1889,0)
1886TIU USER INACTIVE?
1887"KRN",19,8552,"RPC",1890,0)
1888ORWTPD PUTOCM
1889"KRN",19,8552,"RPC",1891,0)
1890ORWOR ACTION TEXT
1891"KRN",19,8552,"RPC",1892,0)
1892ORQQPXRM GEC DIALOG
1893"KRN",19,8552,"RPC",1893,0)
1894ORQQPXRM GET WH REPORT TEXT
1895"KRN",19,8552,"RPC",1894,0)
1896ORWDXR01 CANCHG
1897"KRN",19,8552,"RPC",1895,0)
1898ORWDXR01 SAVCHG
1899"KRN",19,8552,"RPC",1896,0)
1900TIU HAS AUTHOR SIGNED?
1901"KRN",19,8552,"RPC",1897,0)
1902ORQQPXRM CHECK REM VERSION
1903"KRN",19,8552,"RPC",1898,0)
1904ORQQPXRM GEC STATUS PROMPT
1905"KRN",19,8552,"RPC",1899,0)
1906ORQQPXRM GEC STATUS PROMPT
1907"KRN",19,8552,"RPC",1900,0)
1908ORWDAL32 SEND BULLETIN
1909"KRN",19,8552,"RPC",1901,0)
1910ORWDBA1 ORPKGTYP
1911"KRN",19,8552,"RPC",1902,0)
1912ORWDXR01 ISSPLY
1913"KRN",19,8552,"RPC",1903,0)
1914ORWDBA1 RCVORCI
1915"KRN",19,8552,"RPC",1904,0)
1916ORWPS REASON
1917"KRN",19,8552,"RPC",1905,0)
1918ORQQPXRM GEC FINISHED?
1919"KRN",19,8552,"RPC",1906,0)
1920ORWDXM3 ISUDQO
1921"KRN",19,8552,"RPC",1908,0)
1922ORWDBA1 SCLST
1923"KRN",19,8552,"RPC",1909,0)
1924ORWDXR01 OXDATA
1925"KRN",19,8552,"RPC",1914,0)
1926ORWDBA1 BASTATUS
1927"KRN",19,8552,"RPC",1920,0)
1928ORWORB SETSORT
1929"KRN",19,8552,"RPC",1921,0)
1930ORWORB GETSORT
1931"KRN",19,8552,"RPC",1922,0)
1932ORWOR EXPIRED
1933"KRN",19,8552,"RPC",1928,0)
1934ORECS01 GETDIV
1935"KRN",19,8552,"RPC",1933,0)
1936ORWTPD1 GETEFDAT
1937"KRN",19,8552,"RPC",1934,0)
1938ORWTPD1 GETEDATS
1939"KRN",19,8552,"RPC",1935,0)
1940ORWTPD1 PUTEDATS
1941"KRN",19,8552,"RPC",1936,0)
1942ORWTPD1 GETCSDEF
1943"KRN",19,8552,"RPC",1937,0)
1944ORWTPD1 GETCSRNG
1945"KRN",19,8552,"RPC",1938,0)
1946ORWTPD1 PUTCSRNG
1947"KRN",19,8552,"RPC",1939,0)
1948ORWTPD1 GETEAFL
1949"KRN",19,8552,"RPC",1940,0)
1950ORWDBA1 GETORDX
1951"KRN",19,8552,"RPC",1941,0)
1952ORWDBA3 HINTS
1953"KRN",19,8552,"RPC",1942,0)
1954ORWDAL32 LOAD FOR EDIT
1955"KRN",19,8552,"RPC",1943,0)
1956ORWDAL32 SAVE ALLERGY
1957"KRN",19,8552,"RPC",1944,0)
1958ORWDAL32 SITE PARAMS
1959"KRN",19,8552,"RPC",1945,0)
1960ORWPCE CXNOSHOW
1961"KRN",19,8552,"RPC",1946,0)
1962ORWDBA2 ADDPDL
1963"KRN",19,8552,"RPC",1947,0)
1964ORWDBA2 DELPDL
1965"KRN",19,8552,"RPC",1948,0)
1966ORWDBA2 GETDUDC
1967"KRN",19,8552,"RPC",1949,0)
1968ORWDBA2 GETPDL
1969"KRN",19,8552,"RPC",1950,0)
1970ORWDBA4 GETBAUSR
1971"KRN",19,8552,"RPC",1951,0)
1972ORWDBA4 GETTFCI
1973"KRN",19,8552,"RPC",1952,0)
1974ORWNSS NSSMSG
1975"KRN",19,8552,"RPC",1953,0)
1976ORWNSS QOSCH
1977"KRN",19,8552,"RPC",1954,0)
1978ORWNSS VALSCH
1979"KRN",19,8552,"RPC",1955,0)
1980ORWNSS CHKSCH
1981"KRN",19,8552,"RPC",1956,0)
1982ORWDPS4 ISUDIV
1983"KRN",19,8552,"RPC",1957,0)
1984ORWDPS32 AUTHNVA
1985"KRN",19,8552,"RPC",1962,0)
1986ORWTIU CHKTXT
1987"KRN",19,8552,"RPC",1964,0)
1988ORWDPS5 ISVTP
1989"KRN",19,8552,"RPC",1965,0)
1990TIU IS THIS A SURGERY?
1991"KRN",19,8552,"RPC",1966,0)
1992TIU IDENTIFY SURGERY CLASS
1993"KRN",19,8552,"RPC",1967,0)
1994TIU LONG LIST SURGERY TITLES
1995"KRN",19,8552,"RPC",1968,0)
1996TIU GET DOCUMENTS FOR REQUEST
1997"KRN",19,8552,"RPC",1969,0)
1998TIU SET ADMINISTRATIVE CLOSURE
1999"KRN",19,8552,"RPC",1970,0)
2000ORBCMA5 GETUDID
2001"KRN",19,8552,"RPC",1973,0)
2002ORIMO ISCLOC
2003"KRN",19,8552,"RPC",1974,0)
2004ORIMO ISIVQO
2005"KRN",19,8552,"RPC",1975,0)
2006ORWDBA7 GETIEN9
2007"KRN",19,8552,"RPC",1976,0)
2008ORWGN GNLOC
2009"KRN",19,8552,"RPC",1977,0)
2010ORWGN AUTHUSR
2011"KRN",19,8552,"RPC",1978,0)
2012ORVAA VAA
2013"KRN",19,8552,"RPC",1979,0)
2014ORWCIRN VISTAWEB
2015"KRN",19,8552,"RPC",1980,0)
2016ORWCIRN WEBCH
2017"KRN",19,8552,"RPC",1981,0)
2018ORWDAL32 CLINUSER
2019"KRN",19,8552,"RPC",1982,0)
2020ORWDBA7 ISWITCH
2021"KRN",19,8552,"RPC",1983,0)
2022ORWDFH CURRENT MEALS
2023"KRN",19,8552,"RPC",1984,0)
2024ORWDFH NFSLOC READY
2025"KRN",19,8552,"RPC",1985,0)
2026ORWDFH OPDIETS
2027"KRN",19,8552,"RPC",1986,0)
2028ORWMHV MHV
2029"KRN",19,8552,"RPC",1987,0)
2030ORWPCE1 NONCOUNT
2031"KRN",19,8552,"RPC",1988,0)
2032ORWPFSS IS PFSS ACTIVE?
2033"KRN",19,8552,"RPC",1989,0)
2034GMV EXTRACT REC
2035"KRN",19,8552,"RPC",1990,0)
2036GMV MARK ERROR
2037"KRN",19,8552,"RPC",1991,0)
2038ORWDXVB COMPORD
2039"KRN",19,8552,"RPC",1992,0)
2040ORWDXVB GETALL
2041"KRN",19,8552,"RPC",1993,0)
2042ORWDXVB RAW
2043"KRN",19,8552,"RPC",1994,0)
2044ORWDXVB RESULTS
2045"KRN",19,8552,"RPC",1995,0)
2046ORWDXVB STATALOW
2047"KRN",19,8552,"RPC",1996,0)
2048ORWGRPC ALLITEMS
2049"KRN",19,8552,"RPC",1997,0)
2050ORWGRPC CLASS
2051"KRN",19,8552,"RPC",1998,0)
2052ORWGRPC DATEITEM
2053"KRN",19,8552,"RPC",1999,0)
2054ORWGRPC DELVIEWS
2055"KRN",19,8552,"RPC",2000,0)
2056ORWGRPC DETAILS
2057"KRN",19,8552,"RPC",2001,0)
2058ORWGRPC GETDATES
2059"KRN",19,8552,"RPC",2002,0)
2060ORWGRPC GETPREF
2061"KRN",19,8552,"RPC",2003,0)
2062ORWGRPC GETVIEWS
2063"KRN",19,8552,"RPC",2004,0)
2064ORWGRPC ITEMDATA
2065"KRN",19,8552,"RPC",2005,0)
2066ORWGRPC ITEMS
2067"KRN",19,8552,"RPC",2006,0)
2068ORWGRPC LOOKUP
2069"KRN",19,8552,"RPC",2007,0)
2070ORWGRPC PUBLIC
2071"KRN",19,8552,"RPC",2008,0)
2072ORWGRPC RPTPARAM
2073"KRN",19,8552,"RPC",2009,0)
2074ORWGRPC SETPREF
2075"KRN",19,8552,"RPC",2010,0)
2076ORWGRPC SETVIEWS
2077"KRN",19,8552,"RPC",2011,0)
2078ORWGRPC TESTSPEC
2079"KRN",19,8552,"RPC",2012,0)
2080ORWGRPC TYPES
2081"KRN",19,8552,"RPC",2013,0)
2082TIU GET DOCUMENT STATUS
2083"KRN",19,8552,"RPC",2014,0)
2084TIU GET PRF ACTIONS
2085"KRN",19,8552,"RPC",2015,0)
2086TIU ISPRF
2087"KRN",19,8552,"RPC",2016,0)
2088TIU LINK TO FLAG
2089"KRN",19,8552,"RPC",2017,0)
2090ORWGRPC DETAIL
2091"KRN",19,8552,"RPC",2018,0)
2092ORWU VERSION
2093"KRN",19,8552,"RPC",2019,0)
2094GMV ALLERGY
2095"KRN",19,8552,"RPC",2020,0)
2096ORWCIRN WEBADDR
2097"KRN",19,8552,"RPC",2023,0)
2098ORWGRPC TAX
2099"KRN",19,8552,"RPC",2024,0)
2100GMV DLL VERSION
2101"KRN",19,8552,"RPC",2025,0)
2102ORWDX CHANGE
2103"KRN",19,8552,"RPC",2026,0)
2104GMV ADD VM
2105"KRN",19,8552,"RPC",2027,0)
2106GMV CONVERT DATE
2107"KRN",19,8552,"RPC",2028,0)
2108GMV GET CATEGORY IEN
2109"KRN",19,8552,"RPC",2029,0)
2110GMV GET CURRENT TIME
2111"KRN",19,8552,"RPC",2030,0)
2112GMV GET VITAL TYPE IEN
2113"KRN",19,8552,"RPC",2031,0)
2114GMV LATEST VM
2115"KRN",19,8552,"RPC",2032,0)
2116GMV MANAGER
2117"KRN",19,8552,"RPC",2033,0)
2118GMV PARAMETER
2119"KRN",19,8552,"RPC",2034,0)
2120GMV USER
2121"KRN",19,8552,"RPC",2035,0)
2122GMV VITALS/CAT/QUAL
2123"KRN",19,8552,"RPC",2036,0)
2124GMV V/M ALLDATA
2125"KRN",19,8552,"RPC",2037,0)
2126TIU GET LINKED PRF NOTES
2127"KRN",19,8552,"RPC",2038,0)
2128TIU GET PRF TITLE
2129"KRN",19,8552,"RPC",2039,0)
2130ORWDX1 PATWARD
2131"KRN",19,8552,"RPC",2040,0)
2132ORWRP4 HDR MODIFY
2133"KRN",19,8552,"RPC",2041,0)
2134ORWDX1 STCHANGE
2135"KRN",19,8552,"RPC",2042,0)
2136ORWDX1 DCREN
2137"KRN",19,8552,"RPC",2043,0)
2138ORQQPXRM MHV
2139"KRN",19,8552,"RPC",2044,0)
2140ORWGRPC GETSIZE
2141"KRN",19,8552,"RPC",2045,0)
2142ORWGRPC SETSIZE
2143"KRN",19,8552,"RPC",2046,0)
2144GMV LOCATION SELECT
2145"KRN",19,8552,"RPC",2047,0)
2146ORWCIRN AUTORDV
2147"KRN",19,8552,"RPC",2048,0)
2148ORPRF TRIGGER POPUP
2149"KRN",19,8552,"RPC",2049,0)
2150ORWCIRN HDRON
2151"KRN",19,8552,"RPC",2050,0)
2152MAG4 REMOTE IMPORT
2153"KRN",19,8552,"RPC",2051,0)
2154ORWPT ENHANCED PATLOOKUP
2155"KRN",19,8552,"RPC",2052,0)
2156ORWPT OTHER-RADIOBUTTONS
2157"KRN",19,8552,"RPC",2053,0)
2158TMG ADD PATIENT
2159"KRN",19,8552,"RPC",2054,0)
2160TMG AUTOSIGN TIU DOCUMENT
2161"KRN",19,8552,"RPC",2055,0)
2162TMG BARCODE DECODE
2163"KRN",19,8552,"RPC",2056,0)
2164TMG BARCODE ENCODE
2165"KRN",19,8552,"RPC",2057,0)
2166TMG DOWNLOAD FILE
2167"KRN",19,8552,"RPC",2058,0)
2168TMG DOWNLOAD FILE DROPBOX
2169"KRN",19,8552,"RPC",2059,0)
2170TMG GET BLANK TIU DOCUMENT
2171"KRN",19,8552,"RPC",2060,0)
2172TMG GET DFN
2173"KRN",19,8552,"RPC",2061,0)
2174TMG GET IMAGE LONG DESCRIPTION
2175"KRN",19,8552,"RPC",2062,0)
2176TMG GET PATIENT DEMOGRAPHICS
2177"KRN",19,8552,"RPC",2063,0)
2178TMG SET PATIENT DEMOGRAPHICS
2179"KRN",19,8552,"RPC",2064,0)
2180TMG UPLOAD FILE
2181"KRN",19,8552,"RPC",2065,0)
2182TMG UPLOAD FILE DROPBOX
2183"KRN",19,8552,"RPC",2066,0)
2184TMG CPRS GET URL LIST
2185"KRN",19,8552,"RPC",2067,0)
2186MAG3 CPRS TIU NOTE
2187"KRN",19,8552,"RPC",2068,0)
2188MAG3 TIU IMAGE
2189"KRN",19,8552,"RPC",2069,0)
2190MAGGADDIMAGE
2191"KRN",19,8552,"RPC",2070,0)
2192TMG INIFILE GET
2193"KRN",19,8552,"RPC",2071,0)
2194TMG INIFILE SET
2195"KRN",19,8552,"U")
2196CPRSCHART VERSION 1.0.26.69
2197"KRN",8994,2381,-1)
21980^6
2199"KRN",8994,2381,0)
2200TMG 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)
2204This 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)
2208By tunneling file transfer through the RPCBroker, it allows the server to
2209"KRN",8994,2381,1,4,0)
2210control access to files. And it negates need to set up an independant ftp
2211"KRN",8994,2381,1,5,0)
2212or filesystem server etc.
2213"KRN",8994,2381,2,0)
2214^8994.02A^2^2
2215"KRN",8994,2381,2,1,0)
2216FNAME^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)
2220This should be the filename of the requested file. This needs to be in a
2221"KRN",8994,2381,2,1,1,2,0)
2222format 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)
2226This 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)
2230For my implementation, I am planning for the server to pass a list of
2231"KRN",8994,2381,2,1,1,7,0)
2232available files to the client. The client can then pass these back one at
2233"KRN",8994,2381,2,1,1,8,0)
2234a time to get the actual file.
2235"KRN",8994,2381,2,2,0)
2236FPATH^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)
2240This should be the path up to, but not including, the filename, of the file
2241"KRN",8994,2381,2,2,1,2,0)
2242to 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)
2254The return value will be an array, with each node containing 512
2255"KRN",8994,2381,3,2,0)
2256bytes, encoded for ASCII transfer with a Base64 formula (an improvement
2257"KRN",8994,2381,3,3,0)
2258on UUENCODE functions)
2259"KRN",8994,2381,3,4,0)
2260
2261"KRN",8994,2381,3,5,0)
2262GREF(0)=1 <---- 1=valid 0=invalid (failure of load)
2263"KRN",8994,2381,3,6,0)
2264GREF(1)=";lakjsdasvoin;lkj32409u234,mnsdfoi239483....."
2265"KRN",8994,2381,3,7,0)
2266GREF(2)="987sdf,n09xc,/knm6flkhdgjkhsdo4ioidk,sdf....."
2267"KRN",8994,2381,3,8,0)
2268GREF(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)
2274Note: Here I am showing random ascii characters. But in actuality, each
2275"KRN",8994,2381,3,12,0)
2276position 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)
2280On the client RPCBroker end, the result will be stored in a TStringList,
2281"KRN",8994,2381,3,15,0)
2282with 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)
2286Notice that when saving on the client side, the zero node,GREF(0), is NOT
2287"KRN",8994,2381,3,18,0)
2288part of the file, and should be discarded or otherwise not included in the
2289"KRN",8994,2381,3,19,0)
2290save.
2291"KRN",8994,2382,-1)
22920^15
2293"KRN",8994,2382,0)
2294TMG 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)
2298This function will accept a binary file uploaded to the server, encoded in a
2299"KRN",8994,2382,1,2,0)
2300BASE64 ascii encoding format.
2301"KRN",8994,2382,2,0)
2302^8994.02A^4^4
2303"KRN",8994,2382,2,1,0)
2304FPATH^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)
2308This is the path to store the file into. Note that the server will store
2309"KRN",8994,2382,2,1,1,2,0)
2310all files relative to an internal (hidden) directory. Thus if the storage
2311"KRN",8994,2382,2,1,1,3,0)
2312location 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)
2318then 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)
2326The internal (hidden) directory is stored in field #22700 (TMG PRIVATE
2327"KRN",8994,2382,2,1,1,11,0)
2328PHYSICAL 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)
2332Which record of the NETWORK LOCATION file to use is specified as in the input
2333"KRN",8994,2382,2,1,1,14,0)
2334parameter LOCIEN for this RPC Call (TMG UPLOAD FILE)
2335"KRN",8994,2382,2,2,0)
2336FNAME^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)
2340This is the name of the file to store. It should not include path elements.
2341"KRN",8994,2382,2,3,0)
2342LOCIEN^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)
2346This is the record number (IEN) from file 2005.2 (NETWORK LOCATION) that the
2347"KRN",8994,2382,2,3,1,2,0)
2348file will be uploaded to.
2349"KRN",8994,2382,2,3,1,3,0)
2350
2351"KRN",8994,2382,2,3,1,4,0)
2352This is required so that a relative root path can be obtained from custom
2353"KRN",8994,2382,2,3,1,5,0)
2354field 22700 (TMG PRIVATE PHYSICAL LOCATION). See also description of input
2355"KRN",8994,2382,2,3,1,6,0)
2356parameter FPATH.
2357"KRN",8994,2382,2,4,0)
2358ARRAY^2^^1^4
2359"KRN",8994,2382,2,4,1,0)
2360^^11^11^3050928^^
2361"KRN",8994,2382,2,4,1,1,0)
2362This will be the array to store the uploaded data into.
2363"KRN",8994,2382,2,4,1,2,0)
2364For example:
2365"KRN",8994,2382,2,4,1,3,0)
2366
2367"KRN",8994,2382,2,4,1,4,0)
2368ARRAY(0)= "(ascii encoude data in BASE64 format)"
2369"KRN",8994,2382,2,4,1,5,0)
2370ARRAY(0)= "(ascii encoude data in BASE64 format)"
2371"KRN",8994,2382,2,4,1,6,0)
2372ARRAY(1)= "(ascii encoude data in BASE64 format)"
2373"KRN",8994,2382,2,4,1,7,0)
2374ARRAY(2)= "(ascii encoude data in BASE64 format)"
2375"KRN",8994,2382,2,4,1,8,0)
2376ARRAY(3)= "(ascii encoude data in BASE64 format)"
2377"KRN",8994,2382,2,4,1,9,0)
2378ARRAY(4)= "(ascii encoude data in BASE64 format)"
2379"KRN",8994,2382,2,4,1,10,0)
2380ARRAY(5)= "(ascii encoude data in BASE64 format)"
2381"KRN",8994,2382,2,4,1,11,0)
2382ARRAY(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)
24000^10
2401"KRN",8994,2383,0)
2402TMG 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)
2406This RPC will return the LONG DESCRIPTION (field 11) from specified record
2407"KRN",8994,2383,1,2,0)
2408in IMAGE file.
2409"KRN",8994,2383,2,0)
2410^8994.02A^1^1
2411"KRN",8994,2383,2,1,0)
2412IMAGEIEN^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)
2416This 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)
2420will 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)
2428This will return the results from the WP field, number 11 (LONG DESCRIPTION)
2429"KRN",8994,2383,3,2,0)
2430from the IMAGE file (2005)
2431"KRN",8994,2383,3,3,0)
2432
2433"KRN",8994,2383,3,4,0)
2434The return format will be as follows:
2435"KRN",8994,2383,3,5,0)
2436Array(0)=WP header line. Format is: ^^MaxLine^MaxLine^FMDate/TimeStamp
2437"KRN",8994,2383,3,6,0)
2438Array(1)=WP Line 1
2439"KRN",8994,2383,3,7,0)
2440Array(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)
2446In client, these results could be accesible as follows:
2447"KRN",8994,2383,3,11,0)
2448
2449"KRN",8994,2383,3,12,0)
2450RPCBroker.Results[0]=WP Header Line
2451"KRN",8994,2383,3,13,0)
2452RPCBroker.Results[1]=WP Line 1
2453"KRN",8994,2383,3,14,0)
2454RPCBroker.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)
2460If there is no value for field 11, result will be:
2461"KRN",8994,2383,3,18,0)
2462Array(0)=""
2463"KRN",8994,2384,-1)
24640^9
2465"KRN",8994,2384,0)
2466TMG 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)
2470Used by CPRS customization for looking up a patient, and returning
2471"KRN",8994,2384,1,2,0)
2472the DFN (IEN in PATIENT file).
2473"KRN",8994,2384,2,0)
2474^8994.02A^9^9
2475"KRN",8994,2384,2,1,0)
2476RECNUM^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)
2480This parameter is for a chart or account number in an independent PMS.
2481"KRN",8994,2384,2,1,1,2,0)
2482Optional parameter.
2483"KRN",8994,2384,2,2,0)
2484PMS^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)
2488This is a number indicating which PMS that the RECNUM parameter
2489"KRN",8994,2384,2,2,1,2,0)
2490refers to.
2491"KRN",8994,2384,2,2,1,3,0)
2492
2493"KRN",8994,2384,2,2,1,4,0)
2494Example inputs:
2495"KRN",8994,2384,2,2,1,5,0)
24961 <-- for TMG MEDIC ACCOUNT NUMBER
2497"KRN",8994,2384,2,2,1,6,0)
24982 <-- for SEQUEL ACCOUNT NUMBER
2499"KRN",8994,2384,2,2,1,7,0)
2500
2501"KRN",8994,2384,2,2,1,8,0)
2502Note: This is an 'optional' parameter, BUT if RECNUM parameter is supplied,
2503"KRN",8994,2384,2,2,1,9,0)
2504then 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)
2508Note: Dealing with these numbers is hard coded into the RPC server code,
2509"KRN",8994,2384,2,2,1,12,0)
2510and adding additional PMS support must be coded into the calls.
2511"KRN",8994,2384,2,3,0)
2512LNAME^1^64^^3
2513"KRN",8994,2384,2,3,1,0)
2514^^1^1^3070725^^
2515"KRN",8994,2384,2,3,1,1,0)
2516This is the patient's last name (i.e. family name)
2517"KRN",8994,2384,2,4,0)
2518FNAME^1^64^^4
2519"KRN",8994,2384,2,4,1,0)
2520^^1^1^3070725^^
2521"KRN",8994,2384,2,4,1,1,0)
2522This is the patient's first (given) name.
2523"KRN",8994,2384,2,5,0)
2524MNAME^1^64^^5
2525"KRN",8994,2384,2,5,1,0)
2526^^1^1^3070725^^
2527"KRN",8994,2384,2,5,1,1,0)
2528This is the patient's middle name, OR middle initial.
2529"KRN",8994,2384,2,6,0)
2530DOB^1^32^^6
2531"KRN",8994,2384,2,6,1,0)
2532^^2^2^3070725^^
2533"KRN",8994,2384,2,6,1,1,0)
2534This is the patient's date of birth, in EXTERNAL (i.e.
2535"KRN",8994,2384,2,6,1,2,0)
2536user supplied) format.
2537"KRN",8994,2384,2,7,0)
2538SEX^1^1^^7
2539"KRN",8994,2384,2,7,1,0)
2540^^3^3^3070725^^
2541"KRN",8994,2384,2,7,1,1,0)
2542This is the patient's sex. Should be:
2543"KRN",8994,2384,2,7,1,2,0)
2544M for male
2545"KRN",8994,2384,2,7,1,3,0)
2546F for female
2547"KRN",8994,2384,2,8,0)
2548SSNUM^1^9^^8
2549"KRN",8994,2384,2,8,1,0)
2550^^6^6^3070725^^
2551"KRN",8994,2384,2,8,1,1,0)
2552This is the patient's Social Security Number (SS Num)
2553"KRN",8994,2384,2,8,1,2,0)
2554Should NOT include dashes.
2555"KRN",8994,2384,2,8,1,3,0)
2556
2557"KRN",8994,2384,2,8,1,4,0)
2558Example:
2559"KRN",8994,2384,2,8,1,5,0)
2560123456789
2561"KRN",8994,2384,2,8,1,6,0)
2562NOT: 123-45-6789
2563"KRN",8994,2384,2,9,0)
2564AUTOADD^1^1^^9
2565"KRN",8994,2384,2,9,1,0)
2566^^6^6^3070725^^
2567"KRN",8994,2384,2,9,1,1,0)
2568If this parameter value is 1, then patient will be automatically
2569"KRN",8994,2384,2,9,1,2,0)
2570registered 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)
2574Examples:
2575"KRN",8994,2384,2,9,1,5,0)
25761 <-- auto add if not found
2577"KRN",8994,2384,2,9,1,6,0)
25780 <-- 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)
2618This will return the DFN (IEN in PATIENT file), or -1 if not found or error.
2619"KRN",8994,2385,-1)
26200^8
2621"KRN",8994,2385,0)
2622TMG 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)
2626This RPC call will be used to create a new record in file 8925 (TIU DOCUMENT)
2627"KRN",8994,2385,1,2,0)
2628that can be used for other purposes.
2629"KRN",8994,2385,1,3,0)
2630Note: 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)
2634DFN^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)
2638This is the IEN in the PATIENT file. I.e. the record number of the patient
2639"KRN",8994,2385,2,1,1,2,0)
2640for which the note is being created.
2641"KRN",8994,2385,2,2,0)
2642PERSON^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)
2646This is the name of the provider of record for the new document.
2647"KRN",8994,2385,2,3,0)
2648LOC^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)
2652This is the location for the new document. Note this location should be the
2653"KRN",8994,2385,2,3,1,2,0)
2654name 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)
2658DOS^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)
2662This is the Date of Service for the new document.
2663"KRN",8994,2385,2,5,0)
2664TITLE^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)
2668This is the title for the new note.
2669"KRN",8994,2385,2,5,1,2,0)
2670Note: This must be a title as defined in file 8925.1 (TIU DOCUMENT DEFINITION).
2671"KRN",8994,2385,2,5,1,3,0)
2672That is to say, the name of the .01 field, or perhaps any abbreviation
2673"KRN",8994,2385,2,5,1,4,0)
2674if 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)
2698Returns the IEN (record number) of a new, blank note in file 8925
2699"KRN",8994,2386,-1)
27000^2
2701"KRN",8994,2386,0)
2702TMG 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)
2706This will allow the auto-signing of a document. It is designed to automatically
2707"KRN",8994,2386,1,2,0)
2708complete 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)
2712DOCIEN^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)
2716This 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)
2724Return value is an array.
2725"KRN",8994,2386,3,2,0)
2726Array(0)=1 if success, or -1 if failure.
2727"KRN",8994,2386,3,3,0)
2728Errors are returned in Array("DIERR")
2729"KRN",8994,2387,-1)
27300^11
2731"KRN",8994,2387,0)
2732TMG 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)
2736This RPC calls returns patient demographic info in a formatted array.
2737"KRN",8994,2387,1,2,0)
2738See description of return parameter for details.
2739"KRN",8994,2387,2,0)
2740^8994.02A^1^1
2741"KRN",8994,2387,2,1,0)
2742DFN^1^^1^1
2743"KRN",8994,2387,2,1,1,0)
2744^^2^2^3070923^^
2745"KRN",8994,2387,2,1,1,1,0)
2746This is the IEN (internal entry number), aka record number,
2747"KRN",8994,2387,2,1,1,2,0)
2748of 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)
28540^14
2855"KRN",8994,2388,0)
2856TMG 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)
2860This 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)
2864DFN^1^^1^1
2865"KRN",8994,2388,2,1,1,0)
2866^^1^1^3070926^^
2867"KRN",8994,2388,2,1,1,1,0)
2868This DFN value is the IEN (internal entry number) of the patient in the PATIENT file.
2869"KRN",8994,2388,2,2,0)
2870INFO^2^^1^2
2871"KRN",8994,2388,2,2,1,0)
2872^^47^47^3070926^^
2873"KRN",8994,2388,2,2,1,1,0)
2874This will be the data to set for the specified patient.
2875"KRN",8994,2388,2,2,1,2,0)
2876Demographics 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)
2880Here are the KeyName names that will be provided.
2881"KRN",8994,2388,2,2,1,5,0)
2882There is no set order these will appear.
2883"KRN",8994,2388,2,2,1,6,0)
2884If the record has no value, then value will be empty
2885"KRN",8994,2388,2,2,1,7,0)
2886If 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)
2978Return value will be:
2979"KRN",8994,2388,3,2,0)
29801 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)
29860^1
2987"KRN",8994,2389,0)
2988TMG 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)
2992This RPC is to add a patient.
2993"KRN",8994,2389,2,0)
2994^8994.02A^1^1
2995"KRN",8994,2389,2,1,0)
2996INFO^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)
30360^4
3037"KRN",8994,2390,0)
3038TMG 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)
3042This RPC will be for requesting a barcode from the server.
3043"KRN",8994,2390,1,2,0)
3044This will return an image containing a DataMatrix 2D
3045"KRN",8994,2390,1,3,0)
3046barcode.
3047"KRN",8994,2390,1,4,0)
3048
3049"KRN",8994,2390,1,5,0)
3050It is dependent on a command to be installed on the
3051"KRN",8994,2390,1,6,0)
3052linux host server: libdtmx which may be installed
3053"KRN",8994,2390,1,7,0)
3054from www.sourceforge.org. See comments in TMGBARC.m for
3055"KRN",8994,2390,1,8,0)
3056details.
3057"KRN",8994,2390,1,9,0)
3058
3059"KRN",8994,2390,1,10,0)
3060If an image type of other than .png is desired then this
3061"KRN",8994,2390,1,11,0)
3062is dependent on "convert" utility being installed on the
3063"KRN",8994,2390,1,12,0)
3064linux host server. This is part of the linux ImageMagick
3065"KRN",8994,2390,1,13,0)
3066package.
3067"KRN",8994,2390,1,14,0)
3068
3069"KRN",8994,2390,1,15,0)
3070It will return the barcode in ascii armour encoding, which
3071"KRN",8994,2390,1,16,0)
3072must be decoded on the client side. This functionality is
3073"KRN",8994,2390,1,17,0)
3074the 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)
3078MESSAGE^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)
3082This should be the message / text / numbers to be
3083"KRN",8994,2390,2,1,1,2,0)
3084encoded in the barcode.
3085"KRN",8994,2390,2,1,1,3,0)
3086
3087"KRN",8994,2390,2,1,1,4,0)
3088I have not explored the limits of what type of chars
3089"KRN",8994,2390,2,1,1,5,0)
3090can be stored in the barcode. I think that it does
3091"KRN",8994,2390,2,1,1,6,0)
3092NOT 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)
3096I am also not sure of the allowed length. This can
3097"KRN",8994,2390,2,1,1,9,0)
3098be explored more later. With some bar code creators,
3099"KRN",8994,2390,2,1,1,10,0)
3100if the length exceeds the allowed chars for one 2D
3101"KRN",8994,2390,2,1,1,11,0)
3102square, then a second square is created beside the first
3103"KRN",8994,2390,2,1,1,12,0)
3104for the extra characters.
3105"KRN",8994,2390,2,2,0)
3106OPTION^2^^0^2
3107"KRN",8994,2390,2,2,1,0)
3108^^15^15^3071227^^
3109"KRN",8994,2390,2,2,1,1,0)
3110This array may contain options:
3111"KRN",8994,2390,2,2,1,2,0)
3112
3113"KRN",8994,2390,2,2,1,3,0)
3114OPTION("IMAGE TYPE")=image type.
3115"KRN",8994,2390,2,2,1,4,0)
3116
3117"KRN",8994,2390,2,2,1,5,0)
3118Example
3119"KRN",8994,2390,2,2,1,6,0)
3120OPTION("IMAGE TYPE")="jpg" <-- image returned in jpg format
3121"KRN",8994,2390,2,2,1,7,0)
3122or
3123"KRN",8994,2390,2,2,1,8,0)
3124OPTION("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)
3128Specified 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)
3132Allowed 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)
3150By default, the returned image is the created barcode image in .png format.
3151"KRN",8994,2390,3,2,0)
3152See OPTION parameter regarding specifying other image formats.
3153"KRN",8994,2390,3,3,0)
3154
3155"KRN",8994,2390,3,4,0)
3156Regarding 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)
31960^3
3197"KRN",8994,2391,0)
3198TMG 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)
3202This function will return the text encoded inside
3203"KRN",8994,2391,1,2,0)
3204barcode stored on an image that is uploaded to
3205"KRN",8994,2391,1,3,0)
3206function.
3207"KRN",8994,2391,1,4,0)
3208
3209"KRN",8994,2391,1,5,0)
3210Barcode must be in DataMatrix format.
3211"KRN",8994,2391,2,0)
3212^8994.02A^2^2
3213"KRN",8994,2391,2,1,0)
3214ARRAY^2^^1^1
3215"KRN",8994,2391,2,1,1,0)
3216^^21^21^3071227^^
3217"KRN",8994,2391,2,1,1,1,0)
3218This will be used for uploading the image that contains
3219"KRN",8994,2391,2,1,1,2,0)
3220the barcode for decoding.
3221"KRN",8994,2391,2,1,1,3,0)
3222
3223"KRN",8994,2391,2,1,1,4,0)
3224Default format for Image is a .png format. See OPTION
3225"KRN",8994,2391,2,1,1,5,0)
3226parameter 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)
3230Barcode should be a DataMatrix barcode.
3231"KRN",8994,2391,2,1,1,8,0)
3232
3233"KRN",8994,2391,2,1,1,9,0)
3234It is OK for the image to NOT contain a barcode. This
3235"KRN",8994,2391,2,1,1,10,0)
3236will 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)
3240Array Format:
3241"KRN",8994,2391,2,1,1,13,0)
3242For 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)
3260IMGTYPE^1^^1^2
3261"KRN",8994,2391,2,2,1,0)
3262^^10^10^3080102^^
3263"KRN",8994,2391,2,2,1,1,0)
3264This 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)
3268e.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)
3272NOTE: 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)
3276Specified 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)
3280Allowed 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)
3294Value 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)
33020^7
3303"KRN",8994,2392,0)
3304TMG 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)
3308This will cause a file to be transferred from the server's
3309"KRN",8994,2392,1,2,0)
3310private 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)
3316FPATH^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)
3320The file path up to, but not including, the filename. This
3321"KRN",8994,2392,2,1,1,2,0)
3322is the path that the file is stored at on the server, relative
3323"KRN",8994,2392,2,1,1,3,0)
3324to a private server path.
3325"KRN",8994,2392,2,1,1,4,0)
3326
3327"KRN",8994,2392,2,1,1,5,0)
3328It is NOT the location of the dropbox path. (That is stored in
3329"KRN",8994,2392,2,1,1,6,0)
3330field 22702 in file 2005.2)
3331"KRN",8994,2392,2,1,1,7,0)
3332
3333"KRN",8994,2392,2,1,1,8,0)
3334For 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)
3344Note 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)
3348So 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)
3356And 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)
3364Then 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)
3368will 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)
3372FNAME^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)
3376This is the filename to be transferred, without any path
3377"KRN",8994,2392,2,2,1,2,0)
3378specifications.
3379"KRN",8994,2392,2,2,1,3,0)
3380See help for FNAME parameter for more details.
3381"KRN",8994,2392,2,3,0)
3382LOCIEN^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)
3390This is the IEN from file 2005.2 (network location) to obtain
3391"KRN",8994,2392,2,3,1,4,0)
3392folder path and drive information from.
3393"KRN",8994,2392,2,3,1,5,0)
3394
3395"KRN",8994,2392,2,3,1,6,0)
3396Default value is 1
3397"KRN",8994,2392,2,3,1,7,0)
3398
3399"KRN",8994,2392,2,3,1,8,0)
3400Note: 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)
3408Also: 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)
3426Returns:
3427"KRN",8994,2392,3,2,0)
3428 1^Successful Download <-- file is ready in dropbox
3429"KRN",8994,2392,3,3,0)
3430or
3431"KRN",8994,2392,3,4,0)
3432 0^Error message
3433"KRN",8994,2392,3,5,0)
3434
3435"KRN",8994,2393,-1)
34360^16
3437"KRN",8994,2393,0)
3438TMG 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)
3442This will cause a file to be transferred from the drop box
3443"KRN",8994,2393,1,2,0)
3444location 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)
3450FPATH^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)
3454The 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)
3458This is the path that the server is to store the file in,
3459"KRN",8994,2393,2,1,1,4,0)
3460relative to a private server path.
3461"KRN",8994,2393,2,1,1,5,0)
3462It is NOT the location of the dropbox path. (That is stored in
3463"KRN",8994,2393,2,1,1,6,0)
3464field 22702 in file 2005.2)
3465"KRN",8994,2393,2,1,1,7,0)
3466
3467"KRN",8994,2393,2,1,1,8,0)
3468For security reasons, all path requests will be considered
3469"KRN",8994,2393,2,1,1,9,0)
3470relative 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)
3482Note 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)
3486So 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)
3494And 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)
3504Then 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)
3508will 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)
3512FNAME^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)
3516This is the filename to be transferred, without any path
3517"KRN",8994,2393,2,2,1,2,0)
3518specifications.
3519"KRN",8994,2393,2,2,1,3,0)
3520
3521"KRN",8994,2393,2,2,1,4,0)
3522See help for FNAME parameter for more details.
3523"KRN",8994,2393,2,3,0)
3524LOCIEN^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)
3532This is the IEN from file 2005.2 (network location) to obtain
3533"KRN",8994,2393,2,3,1,4,0)
3534folder path and drive information from.
3535"KRN",8994,2393,2,3,1,5,0)
3536
3537"KRN",8994,2393,2,3,1,6,0)
3538Default value is 1
3539"KRN",8994,2393,2,3,1,7,0)
3540
3541"KRN",8994,2393,2,3,1,8,0)
3542Note: 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)
3550Also: 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)
3566Results:
3567"KRN",8994,2393,3,2,0)
3568
3569"KRN",8994,2393,3,3,0)
35701^SuccessMessage <-- file uploaded from dropbox
3571"KRN",8994,2393,3,4,0)
35720^FailureMessage
3573"KRN",8994,2394,-1)
35740^5
3575"KRN",8994,2394,0)
3576TMG 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)
3580CPRS can call this to get a list of URL's to display from inside CPRS.
3581"KRN",8994,2394,1,2,0)
3582These 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)
3588Results 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)
35980^13
3599"KRN",8994,2497,0)
3600TMG 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)
3606This 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)
3612Purpose: 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)
3620Input: 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)
3636Output: 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)
3640SECTION^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)
3644String 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)
3648KEY^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)
3652String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
3653"KRN",8994,2497,2,3,0)
3654VALUE^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)
3658String 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)
3674Will return RESULT="1^Success", or -1^Error Message"
3675"KRN",8994,2498,-1)
36760^12
3677"KRN",8994,2498,0)
3678TMG 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)
3682This will allow server-side storage is client options,
3683"KRN",8994,2498,1,2,0)
3684similar to .ini files on Microsoft Windows programs.
3685"KRN",8994,2498,1,3,0)
3686
3687"KRN",8994,2498,1,4,0)
3688Purpose: 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)
3696Input: 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)
3704Note: 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)
3712Output: 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)
3716SECTION^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)
3722String 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)
3726KEY^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)
3732String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
3733"KRN",8994,2498,2,3,0)
3734DEFAULT^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)
3738The 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)
3754Will return RESULT="1^<Value>", or -1^Error Message"
3755"KRN",8994,2498,3,2,0)
3756<Value> is the desired value.
3757"MBREQ")
37580
3759"ORD",16,8994)
37608994;16;1;;;;;;;RPCDEL^XPDIA1
3761"ORD",16,8994,0)
3762REMOTE PROCEDURE
3763"ORD",18,19)
376419;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
3765"ORD",18,19,0)
3766OPTION
3767"QUES","XPF1",0)
3768Y
3769"QUES","XPF1","??")
3770^D REP^XPDH
3771"QUES","XPF1","A")
3772Shall I write over your |FLAG| File
3773"QUES","XPF1","B")
3774YES
3775"QUES","XPF1","M")
3776D XPF1^XPDIQ
3777"QUES","XPF2",0)
3778Y
3779"QUES","XPF2","??")
3780^D DTA^XPDH
3781"QUES","XPF2","A")
3782Want my data |FLAG| yours
3783"QUES","XPF2","B")
3784YES
3785"QUES","XPF2","M")
3786D XPF2^XPDIQ
3787"QUES","XPI1",0)
3788YO
3789"QUES","XPI1","??")
3790^D INHIBIT^XPDH
3791"QUES","XPI1","A")
3792Want KIDS to INHIBIT LOGONs during the install
3793"QUES","XPI1","B")
3794NO
3795"QUES","XPI1","M")
3796D XPI1^XPDIQ
3797"QUES","XPM1",0)
3798PO^VA(200,:EM
3799"QUES","XPM1","??")
3800^D MG^XPDH
3801"QUES","XPM1","A")
3802Enter the Coordinator for Mail Group '|FLAG|'
3803"QUES","XPM1","B")
3804
3805"QUES","XPM1","M")
3806D XPM1^XPDIQ
3807"QUES","XPO1",0)
3808Y
3809"QUES","XPO1","??")
3810^D MENU^XPDH
3811"QUES","XPO1","A")
3812Want KIDS to Rebuild Menu Trees Upon Completion of Install
3813"QUES","XPO1","B")
3814NO
3815"QUES","XPO1","M")
3816D XPO1^XPDIQ
3817"QUES","XPZ1",0)
3818Y
3819"QUES","XPZ1","??")
3820^D OPT^XPDH
3821"QUES","XPZ1","A")
3822Want to DISABLE Scheduled Options, Menu Options, and Protocols
3823"QUES","XPZ1","B")
3824NO
3825"QUES","XPZ1","M")
3826D XPZ1^XPDIQ
3827"QUES","XPZ2",0)
3828Y
3829"QUES","XPZ2","??")
3830^D RTN^XPDH
3831"QUES","XPZ2","A")
3832Want to MOVE routines to other CPUs
3833"QUES","XPZ2","B")
3834NO
3835"QUES","XPZ2","M")
3836D XPZ2^XPDIQ
3837"RTN")
38382
3839"RTN","TMGRPC1")
38400^1^B224963
3841"RTN","TMGRPC1",1,0)
3842TMGRPC1 ;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)
3928DOWNLOAD(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)
4026UPLOAD(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)
4136UpDone
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)
4146DOWNDROP(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)
4300DnDBxDone
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)
4310UPLDDROP(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)
4464UpDBxDone
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)
4474ENCODE(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)
4568EncodeDone
4569"RTN","TMGRPC1",365,0)
4570 quit
4571"RTN","TMGRPC1",366,0)
4572
4573"RTN","TMGRPC1",367,0)
4574
4575"RTN","TMGRPC1",368,0)
4576HEXCODER(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)
4586B64CODER(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)
4594B64DECODER(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)
4604DECODE(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)
4694DecodeDone
4695"RTN","TMGRPC1",428,0)
4696 quit
4697"RTN","TMGRPC1",429,0)
4698
4699"RTN","TMGRPC1",430,0)
4700
4701"RTN","TMGRPC1",431,0)
4702GETLONG(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)
4762GETDFN(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)
4814test 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)
4848BLANKTIU(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)
4946AUTOSIGN(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)
5020ASDone
5021"RTN","TMGRPC1",591,0)
5022 quit
5023"RTN","TMGRPC1",592,0)
5024
5025"RTN","TMGRPC1",593,0)
5026
5027"RTN","TMGRPC1",594,0)
5028DFNINFO(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)
5276STPTINFO(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)
5542PTADD(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)
5648GETBARCD(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)
5746GBCDone
5747"RTN","TMGRPC1",954,0)
5748 quit
5749"RTN","TMGRPC1",955,0)
5750
5751"RTN","TMGRPC1",956,0)
5752
5753"RTN","TMGRPC1",957,0)
5754DECODEBC(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)
5912DBCDone
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)
5926GETURLS(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")
60300^2^B23521637
6031"RTN","TMGRPC1A",1,0)
6032TMGRPC1A ;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)
6082SETINIVL(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)
6156GETINIVL(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)
6220CONVERT
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)
6254INSTALL ;
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")
63128.0^22.0
6313**END**
6314**END**
Note: See TracBrowser for help on using the repository browser.