Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

TMG1-1.0-5.KIDS@ 1619

Last change on this file since 1619 was 730, checked in by Kevin Toppenberg, 15 years ago
Ensure all RPCS are provided
File size: 179.0 KB

Line
1	KIDS Distribution saved on Mar 31, 2010@18:16:06
2	TMG11.05
3	KIDS:TMG11.05^
4
5	INSTALL NAME
6	TMG11.05
7	"BLD",7630,0)
8	TMG11.05^^0^3100331^n
9	"BLD",7630,1,0)
10	^^3^3^3100331^^
11	"BLD",7630,1,1,0)
12	This patch provides server code for imaging
13	"BLD",7630,1,2,0)
14	functionality in TMG-CPRS. I provides RPC calls
15	"BLD",7630,1,3,0)
16	for uploading and downloading images from CPRS.
17	"BLD",7630,4,0)
18	^9.64PA^^
19	"BLD",7630,6.3)
20	2
21	"BLD",7630,"KRN",0)
22	^9.67PA^8989.52^19
23	"BLD",7630,"KRN",.4,0)
24	.4
25	"BLD",7630,"KRN",.401,0)
26	.401
27	"BLD",7630,"KRN",.402,0)
28	.402
29	"BLD",7630,"KRN",.403,0)
30	.403
31	"BLD",7630,"KRN",.5,0)
32	.5
33	"BLD",7630,"KRN",.84,0)
34	.84
35	"BLD",7630,"KRN",3.6,0)
36	3.6
37	"BLD",7630,"KRN",3.8,0)
38	3.8
39	"BLD",7630,"KRN",9.2,0)
40	9.2
41	"BLD",7630,"KRN",9.8,0)
42	9.8
43	"BLD",7630,"KRN",9.8,"NM",0)
44	^9.68A^2^2
45	"BLD",7630,"KRN",9.8,"NM",1,0)
46	TMGRPC1^^0^B224963
47	"BLD",7630,"KRN",9.8,"NM",2,0)
48	TMGRPC1A^^0^B23521637
49	"BLD",7630,"KRN",9.8,"NM","B","TMGRPC1",1)
50
51	"BLD",7630,"KRN",9.8,"NM","B","TMGRPC1A",2)
52
53	"BLD",7630,"KRN",19,0)
54	19
55	"BLD",7630,"KRN",19,"NM",0)
56	^9.68A^1^1
57	"BLD",7630,"KRN",19,"NM",1,0)
58	OR CPRS GUI CHART^^0
59	"BLD",7630,"KRN",19,"NM","B","OR CPRS GUI CHART",1)
60
61	"BLD",7630,"KRN",19.1,0)
62	19.1
63	"BLD",7630,"KRN",101,0)
64	101
65	"BLD",7630,"KRN",409.61,0)
66	409.61
67	"BLD",7630,"KRN",771,0)
68	771
69	"BLD",7630,"KRN",870,0)
70	870
71	"BLD",7630,"KRN",8989.51,0)
72	8989.51
73	"BLD",7630,"KRN",8989.52,0)
74	8989.52
75	"BLD",7630,"KRN",8994,0)
76	8994
77	"BLD",7630,"KRN",8994,"NM",0)
78	^9.68A^16^16
79	"BLD",7630,"KRN",8994,"NM",1,0)
80	TMG ADD PATIENT^^0
81	"BLD",7630,"KRN",8994,"NM",2,0)
82	TMG AUTOSIGN TIU DOCUMENT^^0
83	"BLD",7630,"KRN",8994,"NM",3,0)
84	TMG BARCODE DECODE^^0
85	"BLD",7630,"KRN",8994,"NM",4,0)
86	TMG BARCODE ENCODE^^0
87	"BLD",7630,"KRN",8994,"NM",5,0)
88	TMG CPRS GET URL LIST^^0
89	"BLD",7630,"KRN",8994,"NM",6,0)
90	TMG DOWNLOAD FILE^^0
91	"BLD",7630,"KRN",8994,"NM",7,0)
92	TMG DOWNLOAD FILE DROPBOX^^0
93	"BLD",7630,"KRN",8994,"NM",8,0)
94	TMG GET BLANK TIU DOCUMENT^^0
95	"BLD",7630,"KRN",8994,"NM",9,0)
96	TMG GET DFN^^0
97	"BLD",7630,"KRN",8994,"NM",10,0)
98	TMG GET IMAGE LONG DESCRIPTION^^0
99	"BLD",7630,"KRN",8994,"NM",11,0)
100	TMG GET PATIENT DEMOGRAPHICS^^0
101	"BLD",7630,"KRN",8994,"NM",12,0)
102	TMG INIFILE GET^^0
103	"BLD",7630,"KRN",8994,"NM",13,0)
104	TMG INIFILE SET^^0
105	"BLD",7630,"KRN",8994,"NM",14,0)
106	TMG SET PATIENT DEMOGRAPHICS^^0
107	"BLD",7630,"KRN",8994,"NM",15,0)
108	TMG UPLOAD FILE^^0
109	"BLD",7630,"KRN",8994,"NM",16,0)
110	TMG UPLOAD FILE DROPBOX^^0
111	"BLD",7630,"KRN",8994,"NM","B","TMG ADD PATIENT",1)
112
113	"BLD",7630,"KRN",8994,"NM","B","TMG AUTOSIGN TIU DOCUMENT",2)
114
115	"BLD",7630,"KRN",8994,"NM","B","TMG BARCODE DECODE",3)
116
117	"BLD",7630,"KRN",8994,"NM","B","TMG BARCODE ENCODE",4)
118
119	"BLD",7630,"KRN",8994,"NM","B","TMG CPRS GET URL LIST",5)
120
121	"BLD",7630,"KRN",8994,"NM","B","TMG DOWNLOAD FILE",6)
122
123	"BLD",7630,"KRN",8994,"NM","B","TMG DOWNLOAD FILE DROPBOX",7)
124
125	"BLD",7630,"KRN",8994,"NM","B","TMG GET BLANK TIU DOCUMENT",8)
126
127	"BLD",7630,"KRN",8994,"NM","B","TMG GET DFN",9)
128
129	"BLD",7630,"KRN",8994,"NM","B","TMG GET IMAGE LONG DESCRIPTION",10)
130
131	"BLD",7630,"KRN",8994,"NM","B","TMG GET PATIENT DEMOGRAPHICS",11)
132
133	"BLD",7630,"KRN",8994,"NM","B","TMG INIFILE GET",12)
134
135	"BLD",7630,"KRN",8994,"NM","B","TMG INIFILE SET",13)
136
137	"BLD",7630,"KRN",8994,"NM","B","TMG SET PATIENT DEMOGRAPHICS",14)
138
139	"BLD",7630,"KRN",8994,"NM","B","TMG UPLOAD FILE",15)
140
141	"BLD",7630,"KRN",8994,"NM","B","TMG UPLOAD FILE DROPBOX",16)
142
143	"BLD",7630,"KRN","B",.4,.4)
144
145	"BLD",7630,"KRN","B",.401,.401)
146
147	"BLD",7630,"KRN","B",.402,.402)
148
149	"BLD",7630,"KRN","B",.403,.403)
150
151	"BLD",7630,"KRN","B",.5,.5)
152
153	"BLD",7630,"KRN","B",.84,.84)
154
155	"BLD",7630,"KRN","B",3.6,3.6)
156
157	"BLD",7630,"KRN","B",3.8,3.8)
158
159	"BLD",7630,"KRN","B",9.2,9.2)
160
161	"BLD",7630,"KRN","B",9.8,9.8)
162
163	"BLD",7630,"KRN","B",19,19)
164
165	"BLD",7630,"KRN","B",19.1,19.1)
166
167	"BLD",7630,"KRN","B",101,101)
168
169	"BLD",7630,"KRN","B",409.61,409.61)
170
171	"BLD",7630,"KRN","B",771,771)
172
173	"BLD",7630,"KRN","B",870,870)
174
175	"BLD",7630,"KRN","B",8989.51,8989.51)
176
177	"BLD",7630,"KRN","B",8989.52,8989.52)
178
179	"BLD",7630,"KRN","B",8994,8994)
180
181	"BLD",7630,"PRET")
182
183	"KRN",19,8552,-1)
184	0^1
185	"KRN",19,8552,0)
186	OR CPRS GUI CHART^CPRSChart version 1.0.26.69^^B^^^^^^^^
187	"KRN",19,8552,1,0)
188	^19.06^2^2^3100324^^^^
189	"KRN",19,8552,1,1,0)
190	This option is required by the Kernel Broker to give access to the
191	"KRN",19,8552,1,2,0)
192	RPCs used by the CPRS GUI (CPRSChart.EXE).
193	"KRN",19,8552,3)
194
195	"KRN",19,8552,20)
196
197	"KRN",19,8552,99.1)
198	60722,37566
199	"KRN",19,8552,"RPC",0)
200	^19.05P^2071^2071
201	"KRN",19,8552,"RPC",1,0)
202	GMRC LIST CONSULT REQUESTS
203	"KRN",19,8552,"RPC",218,0)
204	XWB GET VARIABLE VALUE
205	"KRN",19,8552,"RPC",219,0)
206	TIU AUTHORIZATION
207	"KRN",19,8552,"RPC",220,0)
208	TIU CAN CHANGE COSIGNER?
209	"KRN",19,8552,"RPC",221,0)
210	TIU CREATE ADDENDUM RECORD
211	"KRN",19,8552,"RPC",222,0)
212	TIU CREATE RECORD
213	"KRN",19,8552,"RPC",223,0)
214	TIU DELETE RECORD
215	"KRN",19,8552,"RPC",224,0)
216	TIU DETAILED DISPLAY
217	"KRN",19,8552,"RPC",225,0)
218	TIU DOCUMENTS BY CONTEXT
219	"KRN",19,8552,"RPC",226,0)
220	TIU GET ADDITIONAL SIGNERS
221	"KRN",19,8552,"RPC",227,0)
222	TIU GET ALERT INFO
223	"KRN",19,8552,"RPC",228,0)
224	TIU GET DOCUMENT PARAMETERS
225	"KRN",19,8552,"RPC",229,0)
226	TIU GET DS TITLES
227	"KRN",19,8552,"RPC",230,0)
228	TIU GET DS URGENCIES
229	"KRN",19,8552,"RPC",231,0)
230	TIU GET PERSONAL PREFERENCES
231	"KRN",19,8552,"RPC",232,0)
232	TIU GET PN TITLES
233	"KRN",19,8552,"RPC",233,0)
234	TIU GET RECORD TEXT
235	"KRN",19,8552,"RPC",234,0)
236	TIU IDENTIFY CONSULTS CLASS
237	"KRN",19,8552,"RPC",235,0)
238	TIU IS THIS A CONSULT?
239	"KRN",19,8552,"RPC",236,0)
240	TIU JUSTIFY DELETE?
241	"KRN",19,8552,"RPC",237,0)
242	TIU LOAD BOILERPLATE TEXT
243	"KRN",19,8552,"RPC",238,0)
244	TIU LOAD RECORD FOR EDIT
245	"KRN",19,8552,"RPC",239,0)
246	TIU LOCK RECORD
247	"KRN",19,8552,"RPC",240,0)
248	TIU LONG LIST CONSULT TITLES
249	"KRN",19,8552,"RPC",241,0)
250	TIU LONG LIST OF TITLES
251	"KRN",19,8552,"RPC",242,0)
252	TIU NOTES
253	"KRN",19,8552,"RPC",243,0)
254	TIU NOTES 16 BIT
255	"KRN",19,8552,"RPC",244,0)
256	TIU NOTES BY VISIT
257	"KRN",19,8552,"RPC",245,0)
258	TIU PERSONAL TITLE LIST
259	"KRN",19,8552,"RPC",246,0)
260	TIU PRINT RECORD
261	"KRN",19,8552,"RPC",247,0)
262	TIU REQUIRES COSIGNATURE
263	"KRN",19,8552,"RPC",248,0)
264	TIU SIGN RECORD
265	"KRN",19,8552,"RPC",249,0)
266	TIU SUMMARIES
267	"KRN",19,8552,"RPC",250,0)
268	TIU SUMMARIES BY VISIT
269	"KRN",19,8552,"RPC",251,0)
270	TIU UNLOCK RECORD
271	"KRN",19,8552,"RPC",252,0)
272	TIU UPDATE ADDITIONAL SIGNERS
273	"KRN",19,8552,"RPC",253,0)
274	TIU UPDATE RECORD
275	"KRN",19,8552,"RPC",254,0)
276	TIU WHICH SIGNATURE ACTION
277	"KRN",19,8552,"RPC",1032,0)
278	ORB DELETE ALERT
279	"KRN",19,8552,"RPC",1033,0)
280	ORB FOLLOW-UP ARRAY
281	"KRN",19,8552,"RPC",1034,0)
282	ORB FOLLOW-UP STRING
283	"KRN",19,8552,"RPC",1035,0)
284	ORB FOLLOW-UP TYPE
285	"KRN",19,8552,"RPC",1036,0)
286	ORB SORT METHOD
287	"KRN",19,8552,"RPC",1037,0)
288	ORK TRIGGER
289	"KRN",19,8552,"RPC",1038,0)
290	ORQ NULL LIST
291	"KRN",19,8552,"RPC",1039,0)
292	ORQOR DETAIL
293	"KRN",19,8552,"RPC",1040,0)
294	TIU TEMPLATE CHECK BOILERPLATE
295	"KRN",19,8552,"RPC",1041,0)
296	TIU TEMPLATE CREATE/MODIFY
297	"KRN",19,8552,"RPC",1042,0)
298	TIU TEMPLATE DELETE
299	"KRN",19,8552,"RPC",1045,0)
300	TIU TEMPLATE GETPROOT
301	"KRN",19,8552,"RPC",1049,0)
302	TIU TEMPLATE LISTOWNR
303	"KRN",19,8552,"RPC",1050,0)
304	TIU TEMPLATE SET ITEMS
305	"KRN",19,8552,"RPC",1051,0)
306	TIU GET LIST OF OBJECTS
307	"KRN",19,8552,"RPC",1052,0)
308	ORQOR LIST
309	"KRN",19,8552,"RPC",1053,0)
310	ORQORB SORT
311	"KRN",19,8552,"RPC",1054,0)
312	ORQPT ATTENDING/PRIMARY
313	"KRN",19,8552,"RPC",1055,0)
314	ORQPT CLINIC PATIENTS
315	"KRN",19,8552,"RPC",1056,0)
316	ORQPT CLINICS
317	"KRN",19,8552,"RPC",1057,0)
318	ORQPT DEFAULT LIST SOURCE
319	"KRN",19,8552,"RPC",1058,0)
320	ORQPT DEFAULT PATIENT LIST
321	"KRN",19,8552,"RPC",1059,0)
322	ORQPT PATIENT TEAM PROVIDERS
323	"KRN",19,8552,"RPC",1060,0)
324	ORQPT PROVIDER PATIENTS
325	"KRN",19,8552,"RPC",1061,0)
326	ORQPT PROVIDERS
327	"KRN",19,8552,"RPC",1062,0)
328	ORQPT SPECIALTIES
329	"KRN",19,8552,"RPC",1063,0)
330	ORQPT SPECIALTY PATIENTS
331	"KRN",19,8552,"RPC",1064,0)
332	ORQPT TEAM PATIENTS
333	"KRN",19,8552,"RPC",1065,0)
334	ORQPT TEAMS
335	"KRN",19,8552,"RPC",1066,0)
336	ORQPT WARD PATIENTS
337	"KRN",19,8552,"RPC",1067,0)
338	ORQPT WARDRMBED
339	"KRN",19,8552,"RPC",1068,0)
340	ORQPT WARDS
341	"KRN",19,8552,"RPC",1069,0)
342	ORQQAL DETAIL
343	"KRN",19,8552,"RPC",1070,0)
344	ORQQAL LIST
345	"KRN",19,8552,"RPC",1071,0)
346	ORQQAL LIST REPORT
347	"KRN",19,8552,"RPC",1072,0)
348	ORQQCN ADDCMT
349	"KRN",19,8552,"RPC",1073,0)
350	ORQQCN ADMIN COMPLETE
351	"KRN",19,8552,"RPC",1074,0)
352	ORQQCN DETAIL
353	"KRN",19,8552,"RPC",1075,0)
354	ORQQCN DISCONTINUE
355	"KRN",19,8552,"RPC",1076,0)
356	ORQQCN FIND CONSULT
357	"KRN",19,8552,"RPC",1077,0)
358	ORQQCN FORWARD
359	"KRN",19,8552,"RPC",1078,0)
360	ORQQCN GET CONSULT
361	"KRN",19,8552,"RPC",1079,0)
362	ORQQCN GET ORDER NUMBER
363	"KRN",19,8552,"RPC",1080,0)
364	ORQQCN GET PROC SVCS
365	"KRN",19,8552,"RPC",1081,0)
366	ORQQCN LIST
367	"KRN",19,8552,"RPC",1082,0)
368	ORQQCN LOAD FOR EDIT
369	"KRN",19,8552,"RPC",1083,0)
370	ORQQCN MED RESULTS
371	"KRN",19,8552,"RPC",1084,0)
372	ORQQCN PRINT SF513
373	"KRN",19,8552,"RPC",1085,0)
374	ORQQCN RECEIVE
375	"KRN",19,8552,"RPC",1086,0)
376	ORQQCN RESUBMIT
377	"KRN",19,8552,"RPC",1087,0)
378	ORQQCN SET ACT MENUS
379	"KRN",19,8552,"RPC",1088,0)
380	ORQQCN SHOW SF513
381	"KRN",19,8552,"RPC",1089,0)
382	ORQQCN SIGFIND
383	"KRN",19,8552,"RPC",1090,0)
384	ORQQCN STATUS
385	"KRN",19,8552,"RPC",1091,0)
386	ORQQCN SVCLIST
387	"KRN",19,8552,"RPC",1092,0)
388	ORQQCN SVCTREE
389	"KRN",19,8552,"RPC",1093,0)
390	ORQQCN URGENCIES
391	"KRN",19,8552,"RPC",1094,0)
392	ORQQCN2 GET CONTEXT
393	"KRN",19,8552,"RPC",1095,0)
394	ORQQCN2 SAVE CONTEXT
395	"KRN",19,8552,"RPC",1096,0)
396	ORQQLR DETAIL
397	"KRN",19,8552,"RPC",1097,0)
398	ORQQLR SEARCH RANGE INPT
399	"KRN",19,8552,"RPC",1098,0)
400	ORQQLR SEARCH RANGE OUTPT
401	"KRN",19,8552,"RPC",1099,0)
402	ORQQPL ADD SAVE
403	"KRN",19,8552,"RPC",1100,0)
404	ORQQPL AUDIT HIST
405	"KRN",19,8552,"RPC",1101,0)
406	ORQQPL CHECK DUP
407	"KRN",19,8552,"RPC",1102,0)
408	ORQQPL CLIN FILTER LIST
409	"KRN",19,8552,"RPC",1103,0)
410	ORQQPL CLIN SRCH
411	"KRN",19,8552,"RPC",1104,0)
412	ORQQPL DELETE
413	"KRN",19,8552,"RPC",1105,0)
414	ORQQPL DETAIL
415	"KRN",19,8552,"RPC",1106,0)
416	ORQQPL EDIT LOAD
417	"KRN",19,8552,"RPC",1107,0)
418	ORQQPL EDIT SAVE
419	"KRN",19,8552,"RPC",1108,0)
420	ORQQPL INACTIVATE
421	"KRN",19,8552,"RPC",1109,0)
422	ORQQPL INIT PT
423	"KRN",19,8552,"RPC",1110,0)
424	ORQQPL INIT USER
425	"KRN",19,8552,"RPC",1111,0)
426	ORQQPL LIST
427	"KRN",19,8552,"RPC",1112,0)
428	ORQQPL PROB COMMENTS
429	"KRN",19,8552,"RPC",1113,0)
430	ORQQPL PROBLEM LEX SEARCH
431	"KRN",19,8552,"RPC",1114,0)
432	ORQQPL PROBLEM LIST
433	"KRN",19,8552,"RPC",1115,0)
434	ORQQPL PROV FILTER LIST
435	"KRN",19,8552,"RPC",1116,0)
436	ORQQPL PROVIDER LIST
437	"KRN",19,8552,"RPC",1117,0)
438	ORQQPL REPLACE
439	"KRN",19,8552,"RPC",1118,0)
440	ORQQPL SAVEVIEW
441	"KRN",19,8552,"RPC",1119,0)
442	ORQQPL SERV FILTER LIST
443	"KRN",19,8552,"RPC",1120,0)
444	ORQQPL SRVC SRCH
445	"KRN",19,8552,"RPC",1121,0)
446	ORQQPL UPDATE
447	"KRN",19,8552,"RPC",1122,0)
448	ORQQPL USER PROB CATS
449	"KRN",19,8552,"RPC",1123,0)
450	ORQQPL USER PROB LIST
451	"KRN",19,8552,"RPC",1124,0)
452	ORQQPL VERIFY
453	"KRN",19,8552,"RPC",1125,0)
454	ORQQPP LIST
455	"KRN",19,8552,"RPC",1126,0)
456	ORQQPS DETAIL
457	"KRN",19,8552,"RPC",1127,0)
458	ORQQPS LIST
459	"KRN",19,8552,"RPC",1133,0)
460	ORQQPX REMINDER DETAIL
461	"KRN",19,8552,"RPC",1135,0)
462	ORQQPX REMINDERS LIST
463	"KRN",19,8552,"RPC",1136,0)
464	ORQQVI NOTEVIT
465	"KRN",19,8552,"RPC",1137,0)
466	ORQQVI VITALS
467	"KRN",19,8552,"RPC",1138,0)
468	ORQQVI VITALS FOR DATE RANGE
469	"KRN",19,8552,"RPC",1139,0)
470	ORQQVI1 DETAIL
471	"KRN",19,8552,"RPC",1140,0)
472	ORQQVI1 GRID
473	"KRN",19,8552,"RPC",1141,0)
474	ORQQVI2 VITALS HELP
475	"KRN",19,8552,"RPC",1142,0)
476	ORQQVI2 VITALS RATE CHECK
477	"KRN",19,8552,"RPC",1144,0)
478	ORQQVI2 VITALS VAL & STORE
479	"KRN",19,8552,"RPC",1145,0)
480	ORQQVI2 VITALS VALIDATE
481	"KRN",19,8552,"RPC",1146,0)
482	ORQQVI2 VITALS VALIDATE TYPE
483	"KRN",19,8552,"RPC",1147,0)
484	ORQQVS DETAIL NOTES
485	"KRN",19,8552,"RPC",1148,0)
486	ORQQVS DETAIL SUMMARY
487	"KRN",19,8552,"RPC",1149,0)
488	ORQQVS VISITS/APPTS
489	"KRN",19,8552,"RPC",1150,0)
490	ORQQXMB MAIL GROUPS
491	"KRN",19,8552,"RPC",1151,0)
492	ORQQXQA PATIENT
493	"KRN",19,8552,"RPC",1152,0)
494	ORQQXQA USER
495	"KRN",19,8552,"RPC",1153,0)
496	ORWCH LOADALL
497	"KRN",19,8552,"RPC",1154,0)
498	ORWCH LOADSIZ
499	"KRN",19,8552,"RPC",1155,0)
500	ORWCH SAVEALL
501	"KRN",19,8552,"RPC",1156,0)
502	ORWCH SAVESIZ
503	"KRN",19,8552,"RPC",1157,0)
504	ORWCS LIST OF CONSULT REPORTS
505	"KRN",19,8552,"RPC",1158,0)
506	ORWCS PRINT REPORT
507	"KRN",19,8552,"RPC",1159,0)
508	ORWCS REPORT TEXT
509	"KRN",19,8552,"RPC",1160,0)
510	ORWCV DTLVST
511	"KRN",19,8552,"RPC",1161,0)
512	ORWCV LAB
513	"KRN",19,8552,"RPC",1162,0)
514	ORWCV POLL
515	"KRN",19,8552,"RPC",1163,0)
516	ORWCV START
517	"KRN",19,8552,"RPC",1164,0)
518	ORWCV STOP
519	"KRN",19,8552,"RPC",1165,0)
520	ORWCV VST
521	"KRN",19,8552,"RPC",1166,0)
522	ORWD DEF
523	"KRN",19,8552,"RPC",1167,0)
524	ORWD DT
525	"KRN",19,8552,"RPC",1168,0)
526	ORWD FORMID
527	"KRN",19,8552,"RPC",1169,0)
528	ORWD GET4EDIT
529	"KRN",19,8552,"RPC",1170,0)
530	ORWD KEY
531	"KRN",19,8552,"RPC",1171,0)
532	ORWD OI
533	"KRN",19,8552,"RPC",1172,0)
534	ORWD PROVKEY
535	"KRN",19,8552,"RPC",1173,0)
536	ORWD SAVE
537	"KRN",19,8552,"RPC",1174,0)
538	ORWD SAVEACT
539	"KRN",19,8552,"RPC",1175,0)
540	ORWD SIGN
541	"KRN",19,8552,"RPC",1176,0)
542	ORWD VALIDACT
543	"KRN",19,8552,"RPC",1177,0)
544	ORWD1 PARAM
545	"KRN",19,8552,"RPC",1178,0)
546	ORWD1 PRINTGUI
547	"KRN",19,8552,"RPC",1179,0)
548	ORWD1 RVPRINT
549	"KRN",19,8552,"RPC",1180,0)
550	ORWD2 DEVINFO
551	"KRN",19,8552,"RPC",1181,0)
552	ORWD2 MANUAL
553	"KRN",19,8552,"RPC",1182,0)
554	ORWDAL32 ALLERGY MATCH
555	"KRN",19,8552,"RPC",1183,0)
556	ORWDAL32 DEF
557	"KRN",19,8552,"RPC",1184,0)
558	ORWDAL32 SYMPTOMS
559	"KRN",19,8552,"RPC",1185,0)
560	ORWDCN32 DEF
561	"KRN",19,8552,"RPC",1186,0)
562	ORWDCN32 ORDRMSG
563	"KRN",19,8552,"RPC",1187,0)
564	ORWDCN32 PROCEDURES
565	"KRN",19,8552,"RPC",1188,0)
566	ORWDCSLT DEF
567	"KRN",19,8552,"RPC",1189,0)
568	ORWDCSLT LOOK200
569	"KRN",19,8552,"RPC",1190,0)
570	ORWDFH ADDLATE
571	"KRN",19,8552,"RPC",1191,0)
572	ORWDFH ATTR
573	"KRN",19,8552,"RPC",1192,0)
574	ORWDFH CURISO
575	"KRN",19,8552,"RPC",1193,0)
576	ORWDFH DIETS
577	"KRN",19,8552,"RPC",1194,0)
578	ORWDFH FINDTYP
579	"KRN",19,8552,"RPC",1195,0)
580	ORWDFH ISOIEN
581	"KRN",19,8552,"RPC",1196,0)
582	ORWDFH ISOLIST
583	"KRN",19,8552,"RPC",1197,0)
584	ORWDFH PARAM
585	"KRN",19,8552,"RPC",1198,0)
586	ORWDFH QTY2CC
587	"KRN",19,8552,"RPC",1199,0)
588	ORWDFH TFPROD
589	"KRN",19,8552,"RPC",1200,0)
590	ORWDFH TXT
591	"KRN",19,8552,"RPC",1201,0)
592	ORWDGX LOAD
593	"KRN",19,8552,"RPC",1202,0)
594	ORWDGX VMDEF
595	"KRN",19,8552,"RPC",1203,0)
596	ORWDLR ABBSPEC
597	"KRN",19,8552,"RPC",1204,0)
598	ORWDLR ALLSAMP
599	"KRN",19,8552,"RPC",1205,0)
600	ORWDLR DEF
601	"KRN",19,8552,"RPC",1206,0)
602	ORWDLR LOAD
603	"KRN",19,8552,"RPC",1207,0)
604	ORWDLR OIPARAM
605	"KRN",19,8552,"RPC",1208,0)
606	ORWDLR STOP
607	"KRN",19,8552,"RPC",1209,0)
608	ORWDLR32 ABBSPEC
609	"KRN",19,8552,"RPC",1210,0)
610	ORWDLR32 ALLSAMP
611	"KRN",19,8552,"RPC",1211,0)
612	ORWDLR32 ALLSPEC
613	"KRN",19,8552,"RPC",1212,0)
614	ORWDLR32 DEF
615	"KRN",19,8552,"RPC",1213,0)
616	ORWDLR32 IC DEFAULT
617	"KRN",19,8552,"RPC",1214,0)
618	ORWDLR32 IC VALID
619	"KRN",19,8552,"RPC",1215,0)
620	ORWDLR32 IMMED COLLECT
621	"KRN",19,8552,"RPC",1216,0)
622	ORWDLR32 LAB COLL TIME
623	"KRN",19,8552,"RPC",1217,0)
624	ORWDLR32 LOAD
625	"KRN",19,8552,"RPC",1218,0)
626	ORWDLR32 MAXDAYS
627	"KRN",19,8552,"RPC",1219,0)
628	ORWDLR32 ONE SAMPLE
629	"KRN",19,8552,"RPC",1220,0)
630	ORWDLR32 ONE SPECIMEN
631	"KRN",19,8552,"RPC",1221,0)
632	ORWDLR32 STOP
633	"KRN",19,8552,"RPC",1222,0)
634	ORWDOR VMSLCT
635	"KRN",19,8552,"RPC",1227,0)
636	ORWDPS32 ALLROUTE
637	"KRN",19,8552,"RPC",1228,0)
638	ORWDPS32 AUTH
639	"KRN",19,8552,"RPC",1229,0)
640	ORWDPS32 DLGSLCT
641	"KRN",19,8552,"RPC",1230,0)
642	ORWDPS32 DOSES
643	"KRN",19,8552,"RPC",1231,0)
644	ORWDPS32 DRUGMSG
645	"KRN",19,8552,"RPC",1232,0)
646	ORWDPS32 FORMALT
647	"KRN",19,8552,"RPC",1233,0)
648	ORWDPS32 ISSPLY
649	"KRN",19,8552,"RPC",1234,0)
650	ORWDPS32 IVAMT
651	"KRN",19,8552,"RPC",1235,0)
652	ORWDPS32 MEDISIV
653	"KRN",19,8552,"RPC",1236,0)
654	ORWDPS32 OISLCT
655	"KRN",19,8552,"RPC",1237,0)
656	ORWDPS32 SCSTS
657	"KRN",19,8552,"RPC",1238,0)
658	ORWDPS32 VALQTY
659	"KRN",19,8552,"RPC",1239,0)
660	ORWDPS32 VALRATE
661	"KRN",19,8552,"RPC",1240,0)
662	ORWDPS32 VALSCH
663	"KRN",19,8552,"RPC",1241,0)
664	ORWDRA DEF
665	"KRN",19,8552,"RPC",1242,0)
666	ORWDRA32 APPROVAL
667	"KRN",19,8552,"RPC",1243,0)
668	ORWDRA32 DEF
669	"KRN",19,8552,"RPC",1244,0)
670	ORWDRA32 IMTYPSEL
671	"KRN",19,8552,"RPC",1245,0)
672	ORWDRA32 ISOLATN
673	"KRN",19,8552,"RPC",1246,0)
674	ORWDRA32 LOCTYPE
675	"KRN",19,8552,"RPC",1247,0)
676	ORWDRA32 PROCMSG
677	"KRN",19,8552,"RPC",1248,0)
678	ORWDRA32 RADSRC
679	"KRN",19,8552,"RPC",1249,0)
680	ORWDRA32 RAORDITM
681	"KRN",19,8552,"RPC",1250,0)
682	ORWDX AGAIN
683	"KRN",19,8552,"RPC",1251,0)
684	ORWDX DGRP
685	"KRN",19,8552,"RPC",1252,0)
686	ORWDX DISMSG
687	"KRN",19,8552,"RPC",1253,0)
688	ORWDX DLGDEF
689	"KRN",19,8552,"RPC",1254,0)
690	ORWDX DLGID
691	"KRN",19,8552,"RPC",1255,0)
692	ORWDX DLGQUIK
693	"KRN",19,8552,"RPC",1256,0)
694	ORWDX FORMID
695	"KRN",19,8552,"RPC",1257,0)
696	ORWDX LOADRSP
697	"KRN",19,8552,"RPC",1258,0)
698	ORWDX LOCK
699	"KRN",19,8552,"RPC",1259,0)
700	ORWDX MSG
701	"KRN",19,8552,"RPC",1260,0)
702	ORWDX ORDITM
703	"KRN",19,8552,"RPC",1261,0)
704	ORWDX SAVE
705	"KRN",19,8552,"RPC",1262,0)
706	ORWDX SEND
707	"KRN",19,8552,"RPC",1263,0)
708	ORWDX SENDP
709	"KRN",19,8552,"RPC",1264,0)
710	ORWDX UNLOCK
711	"KRN",19,8552,"RPC",1265,0)
712	ORWDX WRLST
713	"KRN",19,8552,"RPC",1266,0)
714	ORWDXA ALERT
715	"KRN",19,8552,"RPC",1267,0)
716	ORWDXA COMPLETE
717	"KRN",19,8552,"RPC",1268,0)
718	ORWDXA DC
719	"KRN",19,8552,"RPC",1269,0)
720	ORWDXA DCREASON
721	"KRN",19,8552,"RPC",1270,0)
722	ORWDXA DCREQIEN
723	"KRN",19,8552,"RPC",1271,0)
724	ORWDXA FLAG
725	"KRN",19,8552,"RPC",1272,0)
726	ORWDXA FLAGTXT
727	"KRN",19,8552,"RPC",1273,0)
728	ORWDXA HOLD
729	"KRN",19,8552,"RPC",1274,0)
730	ORWDXA UNFLAG
731	"KRN",19,8552,"RPC",1275,0)
732	ORWDXA UNHOLD
733	"KRN",19,8552,"RPC",1276,0)
734	ORWDXA VALID
735	"KRN",19,8552,"RPC",1277,0)
736	ORWDXA VERIFY
737	"KRN",19,8552,"RPC",1278,0)
738	ORWDXA WCGET
739	"KRN",19,8552,"RPC",1279,0)
740	ORWDXA WCPUT
741	"KRN",19,8552,"RPC",1280,0)
742	ORWDXC ACCEPT
743	"KRN",19,8552,"RPC",1281,0)
744	ORWDXC DELAY
745	"KRN",19,8552,"RPC",1282,0)
746	ORWDXC DELORD
747	"KRN",19,8552,"RPC",1283,0)
748	ORWDXC DISPLAY
749	"KRN",19,8552,"RPC",1284,0)
750	ORWDXC FILLID
751	"KRN",19,8552,"RPC",1285,0)
752	ORWDXC ON
753	"KRN",19,8552,"RPC",1286,0)
754	ORWDXC SAVECHK
755	"KRN",19,8552,"RPC",1287,0)
756	ORWDXC SESSION
757	"KRN",19,8552,"RPC",1288,0)
758	ORWDXM AUTOACK
759	"KRN",19,8552,"RPC",1289,0)
760	ORWDXM DLGNAME
761	"KRN",19,8552,"RPC",1290,0)
762	ORWDXM FORMID
763	"KRN",19,8552,"RPC",1291,0)
764	ORWDXM LOADSET
765	"KRN",19,8552,"RPC",1292,0)
766	ORWDXM MENU
767	"KRN",19,8552,"RPC",1293,0)
768	ORWDXM MSTYLE
769	"KRN",19,8552,"RPC",1294,0)
770	ORWDXM PROMPTS
771	"KRN",19,8552,"RPC",1295,0)
772	ORWDXM1 BLDQRSP
773	"KRN",19,8552,"RPC",1296,0)
774	ORWDXM2 CLRRCL
775	"KRN",19,8552,"RPC",1297,0)
776	ORWDXQ DLGNAME
777	"KRN",19,8552,"RPC",1298,0)
778	ORWDXQ DLGSAVE
779	"KRN",19,8552,"RPC",1299,0)
780	ORWDXQ GETQLST
781	"KRN",19,8552,"RPC",1300,0)
782	ORWDXQ GETQNAM
783	"KRN",19,8552,"RPC",1301,0)
784	ORWDXQ PUTQLST
785	"KRN",19,8552,"RPC",1302,0)
786	ORWDXQ PUTQNAM
787	"KRN",19,8552,"RPC",1303,0)
788	ORWDXR ISREL
789	"KRN",19,8552,"RPC",1304,0)
790	ORWDXR RENEW
791	"KRN",19,8552,"RPC",1305,0)
792	ORWDXR RNWFLDS
793	"KRN",19,8552,"RPC",1306,0)
794	ORWGEPT CLINRNG
795	"KRN",19,8552,"RPC",1307,0)
796	ORWLR CUMULATIVE REPORT
797	"KRN",19,8552,"RPC",1308,0)
798	ORWLR CUMULATIVE SECTION
799	"KRN",19,8552,"RPC",1309,0)
800	ORWLR REPORT LISTS
801	"KRN",19,8552,"RPC",1310,0)
802	ORWLRR ALLTESTS
803	"KRN",19,8552,"RPC",1311,0)
804	ORWLRR ATESTS
805	"KRN",19,8552,"RPC",1312,0)
806	ORWLRR ATG
807	"KRN",19,8552,"RPC",1313,0)
808	ORWLRR ATOMICS
809	"KRN",19,8552,"RPC",1314,0)
810	ORWLRR CHART
811	"KRN",19,8552,"RPC",1315,0)
812	ORWLRR CHEMTEST
813	"KRN",19,8552,"RPC",1316,0)
814	ORWLRR GRID
815	"KRN",19,8552,"RPC",1317,0)
816	ORWLRR INTERIM
817	"KRN",19,8552,"RPC",1318,0)
818	ORWLRR INTERIMG
819	"KRN",19,8552,"RPC",1319,0)
820	ORWLRR INTERIMS
821	"KRN",19,8552,"RPC",1320,0)
822	ORWLRR MICRO
823	"KRN",19,8552,"RPC",1321,0)
824	ORWLRR NEWOLD
825	"KRN",19,8552,"RPC",1322,0)
826	ORWLRR PARAM
827	"KRN",19,8552,"RPC",1323,0)
828	ORWLRR SPEC
829	"KRN",19,8552,"RPC",1324,0)
830	ORWLRR TG
831	"KRN",19,8552,"RPC",1325,0)
832	ORWLRR USERS
833	"KRN",19,8552,"RPC",1326,0)
834	ORWLRR UTGA
835	"KRN",19,8552,"RPC",1327,0)
836	ORWLRR UTGD
837	"KRN",19,8552,"RPC",1328,0)
838	ORWLRR UTGR
839	"KRN",19,8552,"RPC",1329,0)
840	ORWMC PATIENT PROCEDURES
841	"KRN",19,8552,"RPC",1330,0)
842	ORWOR RESULT
843	"KRN",19,8552,"RPC",1331,0)
844	ORWOR SHEETS
845	"KRN",19,8552,"RPC",1332,0)
846	ORWOR TSALL
847	"KRN",19,8552,"RPC",1333,0)
848	ORWORB AUTOUNFLAG ORDERS
849	"KRN",19,8552,"RPC",1334,0)
850	ORWORB FASTUSER
851	"KRN",19,8552,"RPC",1335,0)
852	ORWORB GET TIU ALERT INFO
853	"KRN",19,8552,"RPC",1336,0)
854	ORWORB GETDATA
855	"KRN",19,8552,"RPC",1337,0)
856	ORWORB KILL UNSIG ORDERS ALERT
857	"KRN",19,8552,"RPC",1339,0)
858	ORWORDG ALLTREE
859	"KRN",19,8552,"RPC",1340,0)
860	ORWORDG GRPSEQB
861	"KRN",19,8552,"RPC",1341,0)
862	ORWORDG IEN
863	"KRN",19,8552,"RPC",1342,0)
864	ORWORDG MAPSEQ
865	"KRN",19,8552,"RPC",1343,0)
866	ORWORDG REVSTS
867	"KRN",19,8552,"RPC",1344,0)
868	ORWORR AGET
869	"KRN",19,8552,"RPC",1345,0)
870	ORWORR GET
871	"KRN",19,8552,"RPC",1346,0)
872	ORWORR GET4LST
873	"KRN",19,8552,"RPC",1347,0)
874	ORWORR GETBYIFN
875	"KRN",19,8552,"RPC",1348,0)
876	ORWORR GETTXT
877	"KRN",19,8552,"RPC",1349,0)
878	ORWPCE ACTIVE PROV
879	"KRN",19,8552,"RPC",1350,0)
880	ORWPCE ACTPROB
881	"KRN",19,8552,"RPC",1351,0)
882	ORWPCE CPTREQD
883	"KRN",19,8552,"RPC",1352,0)
884	ORWPCE DELETE
885	"KRN",19,8552,"RPC",1353,0)
886	ORWPCE DIAG
887	"KRN",19,8552,"RPC",1354,0)
888	ORWPCE GET EDUCATION TOPICS
889	"KRN",19,8552,"RPC",1355,0)
890	ORWPCE GET EXAM TYPE
891	"KRN",19,8552,"RPC",1356,0)
892	ORWPCE GET HEALTH FACTORS TY
893	"KRN",19,8552,"RPC",1357,0)
894	ORWPCE GET IMMUNIZATION TYPE
895	"KRN",19,8552,"RPC",1358,0)
896	ORWPCE GET SET OF CODES
897	"KRN",19,8552,"RPC",1359,0)
898	ORWPCE GET SKIN TEST TYPE
899	"KRN",19,8552,"RPC",1360,0)
900	ORWPCE GET TREATMENT TYPE
901	"KRN",19,8552,"RPC",1361,0)
902	ORWPCE HF
903	"KRN",19,8552,"RPC",1362,0)
904	ORWPCE IMM
905	"KRN",19,8552,"RPC",1363,0)
906	ORWPCE LEX
907	"KRN",19,8552,"RPC",1364,0)
908	ORWPCE LEXCODE
909	"KRN",19,8552,"RPC",1366,0)
910	ORWPCE NOTEVSTR
911	"KRN",19,8552,"RPC",1367,0)
912	ORWPCE PCE4NOTE
913	"KRN",19,8552,"RPC",1368,0)
914	ORWPCE PED
915	"KRN",19,8552,"RPC",1369,0)
916	ORWPCE PROC
917	"KRN",19,8552,"RPC",1370,0)
918	ORWPCE SAVE
919	"KRN",19,8552,"RPC",1371,0)
920	ORWPCE SCDIS
921	"KRN",19,8552,"RPC",1372,0)
922	ORWPCE SCSEL
923	"KRN",19,8552,"RPC",1373,0)
924	ORWPCE SK
925	"KRN",19,8552,"RPC",1374,0)
926	ORWPCE TRT
927	"KRN",19,8552,"RPC",1375,0)
928	ORWPCE VISIT
929	"KRN",19,8552,"RPC",1376,0)
930	ORWPCE XAM
931	"KRN",19,8552,"RPC",1377,0)
932	ORWPS ACTIVE
933	"KRN",19,8552,"RPC",1378,0)
934	ORWPS COVER
935	"KRN",19,8552,"RPC",1379,0)
936	ORWPS DETAIL
937	"KRN",19,8552,"RPC",1380,0)
938	ORWPS1 NEWDLG
939	"KRN",19,8552,"RPC",1381,0)
940	ORWPS1 PICKUP
941	"KRN",19,8552,"RPC",1382,0)
942	ORWPS1 REFILL
943	"KRN",19,8552,"RPC",1383,0)
944	ORWPT ADMITLST
945	"KRN",19,8552,"RPC",1384,0)
946	ORWPT APPTLST
947	"KRN",19,8552,"RPC",1385,0)
948	ORWPT CLINRNG
949	"KRN",19,8552,"RPC",1386,0)
950	ORWPT CWAD
951	"KRN",19,8552,"RPC",1387,0)
952	ORWPT DFLTSRC
953	"KRN",19,8552,"RPC",1388,0)
954	ORWPT DIEDON
955	"KRN",19,8552,"RPC",1389,0)
956	ORWPT DISCHARGE
957	"KRN",19,8552,"RPC",1390,0)
958	ORWPT ENCTITL
959	"KRN",19,8552,"RPC",1391,0)
960	ORWPT FULLSSN
961	"KRN",19,8552,"RPC",1392,0)
962	ORWPT ID INFO
963	"KRN",19,8552,"RPC",1393,0)
964	ORWPT LAST5
965	"KRN",19,8552,"RPC",1394,0)
966	ORWPT LIST ALL
967	"KRN",19,8552,"RPC",1395,0)
968	ORWPT PTINQ
969	"KRN",19,8552,"RPC",1396,0)
970	ORWPT SAVDFLT
971	"KRN",19,8552,"RPC",1397,0)
972	ORWPT SELCHK
973	"KRN",19,8552,"RPC",1398,0)
974	ORWPT SELECT
975	"KRN",19,8552,"RPC",1399,0)
976	ORWPT SHARE
977	"KRN",19,8552,"RPC",1400,0)
978	ORWPT TOP
979	"KRN",19,8552,"RPC",1401,0)
980	ORWPT1 PCDETAIL
981	"KRN",19,8552,"RPC",1402,0)
982	ORWPT1 PRCARE
983	"KRN",19,8552,"RPC",1403,0)
984	ORWPT16 ADMITLST
985	"KRN",19,8552,"RPC",1404,0)
986	ORWPT16 APPTLST
987	"KRN",19,8552,"RPC",1405,0)
988	ORWPT16 DEMOG
989	"KRN",19,8552,"RPC",1406,0)
990	ORWPT16 GETVSIT
991	"KRN",19,8552,"RPC",1407,0)
992	ORWPT16 ID INFO
993	"KRN",19,8552,"RPC",1408,0)
994	ORWPT16 LIST ALL
995	"KRN",19,8552,"RPC",1409,0)
996	ORWPT16 LOOKUP
997	"KRN",19,8552,"RPC",1410,0)
998	ORWPT16 PSCNVT
999	"KRN",19,8552,"RPC",1411,0)
1000	ORWRA DEFAULT EXAM SETTINGS
1001	"KRN",19,8552,"RPC",1412,0)
1002	ORWRA IMAGING EXAMS
1003	"KRN",19,8552,"RPC",1413,0)
1004	ORWRA PRINT REPORT
1005	"KRN",19,8552,"RPC",1414,0)
1006	ORWRA REPORT TEXT
1007	"KRN",19,8552,"RPC",1415,0)
1008	ORWRP PRINT LAB REPORTS
1009	"KRN",19,8552,"RPC",1416,0)
1010	ORWRP PRINT REPORT
1011	"KRN",19,8552,"RPC",1417,0)
1012	ORWRP REPORT LISTS
1013	"KRN",19,8552,"RPC",1418,0)
1014	ORWRP REPORT TEXT
1015	"KRN",19,8552,"RPC",1419,0)
1016	ORWRP1 LISTNUTR
1017	"KRN",19,8552,"RPC",1420,0)
1018	ORWRP16 REPORT LISTS
1019	"KRN",19,8552,"RPC",1421,0)
1020	ORWRP16 REPORT TEXT
1021	"KRN",19,8552,"RPC",1422,0)
1022	ORWTIU GET DCSUMM CONTEXT
1023	"KRN",19,8552,"RPC",1423,0)
1024	ORWTIU GET TIU CONTEXT
1025	"KRN",19,8552,"RPC",1424,0)
1026	ORWTIU SAVE DCSUMM CONTEXT
1027	"KRN",19,8552,"RPC",1425,0)
1028	ORWTIU SAVE TIU CONTEXT
1029	"KRN",19,8552,"RPC",1426,0)
1030	ORWU CLINLOC
1031	"KRN",19,8552,"RPC",1427,0)
1032	ORWU DEVICE
1033	"KRN",19,8552,"RPC",1428,0)
1034	ORWU DT
1035	"KRN",19,8552,"RPC",1429,0)
1036	ORWU EXTNAME
1037	"KRN",19,8552,"RPC",1430,0)
1038	ORWU GBLREF
1039	"KRN",19,8552,"RPC",1431,0)
1040	ORWU GENERIC
1041	"KRN",19,8552,"RPC",1432,0)
1042	ORWU HASKEY
1043	"KRN",19,8552,"RPC",1433,0)
1044	ORWU HOSPLOC
1045	"KRN",19,8552,"RPC",1434,0)
1046	ORWU INPLOC
1047	"KRN",19,8552,"RPC",1435,0)
1048	ORWU NEWPERS
1049	"KRN",19,8552,"RPC",1436,0)
1050	ORWU NPHASKEY
1051	"KRN",19,8552,"RPC",1437,0)
1052	ORWU PATCH
1053	"KRN",19,8552,"RPC",1438,0)
1054	ORWU TOOLMENU
1055	"KRN",19,8552,"RPC",1439,0)
1056	ORWU USERINFO
1057	"KRN",19,8552,"RPC",1440,0)
1058	ORWU VALDT
1059	"KRN",19,8552,"RPC",1441,0)
1060	ORWU VALIDSIG
1061	"KRN",19,8552,"RPC",1442,0)
1062	ORWU VERSRV
1063	"KRN",19,8552,"RPC",1443,0)
1064	ORWU16 DEVICE
1065	"KRN",19,8552,"RPC",1444,0)
1066	ORWU16 HOSPLOC
1067	"KRN",19,8552,"RPC",1445,0)
1068	ORWU16 NEWPERS
1069	"KRN",19,8552,"RPC",1446,0)
1070	ORWU16 USERINFO
1071	"KRN",19,8552,"RPC",1447,0)
1072	ORWU16 VALDT
1073	"KRN",19,8552,"RPC",1448,0)
1074	ORWU16 VALIDSIG
1075	"KRN",19,8552,"RPC",1449,0)
1076	ORWUH POPUP
1077	"KRN",19,8552,"RPC",1450,0)
1078	ORWUX SYMTAB
1079	"KRN",19,8552,"RPC",1451,0)
1080	ORWUXT LST
1081	"KRN",19,8552,"RPC",1452,0)
1082	ORWUXT REF
1083	"KRN",19,8552,"RPC",1453,0)
1084	ORWUXT VAL
1085	"KRN",19,8552,"RPC",1454,0)
1086	ORQQCN DEFAULT REQUEST REASON
1087	"KRN",19,8552,"RPC",1455,0)
1088	ORWDX LOCK ORDER
1089	"KRN",19,8552,"RPC",1456,0)
1090	ORWDX UNLOCK ORDER
1091	"KRN",19,8552,"RPC",1457,0)
1092	ORWDCN32 NEWDLG
1093	"KRN",19,8552,"RPC",1458,0)
1094	ORQQCN GET SERVICE IEN
1095	"KRN",19,8552,"RPC",1459,0)
1096	ORQQCN PROVDX
1097	"KRN",19,8552,"RPC",1460,0)
1098	TIU TEMPLATE ACCESS LEVEL
1099	"KRN",19,8552,"RPC",1461,0)
1100	TIU GET DOCUMENT TITLE
1101	"KRN",19,8552,"RPC",1462,0)
1102	ORWPT BYWARD
1103	"KRN",19,8552,"RPC",1463,0)
1104	ORQQPX GET HIST LOCATIONS
1105	"KRN",19,8552,"RPC",1464,0)
1106	ORQQPX NEW REMINDERS ACTIVE
1107	"KRN",19,8552,"RPC",1465,0)
1108	ORWPCE GET VISIT
1109	"KRN",19,8552,"RPC",1480,0)
1110	TIU GET REQUEST
1111	"KRN",19,8552,"RPC",1481,0)
1112	ORWORB KILL EXPIR MED ALERT
1113	"KRN",19,8552,"RPC",1482,0)
1114	DG CHK BS5 XREF ARRAY
1115	"KRN",19,8552,"RPC",1483,0)
1116	DG CHK BS5 XREF Y/N
1117	"KRN",19,8552,"RPC",1484,0)
1118	DG CHK PAT/DIV MEANS TEST
1119	"KRN",19,8552,"RPC",1485,0)
1120	DG SENSITIVE RECORD ACCESS
1121	"KRN",19,8552,"RPC",1486,0)
1122	DG SENSITIVE RECORD BULLETIN
1123	"KRN",19,8552,"RPC",1487,0)
1124	ORQQCN CANEDIT
1125	"KRN",19,8552,"RPC",1488,0)
1126	ORQQCN EDIT DEFAULT REASON
1127	"KRN",19,8552,"RPC",1489,0)
1128	ORQQCN SF513 WINDOWS PRINT
1129	"KRN",19,8552,"RPC",1490,0)
1130	ORWCIRN FACLIST
1131	"KRN",19,8552,"RPC",1491,0)
1132	ORWDLR32 GET LAB TIMES
1133	"KRN",19,8552,"RPC",1492,0)
1134	ORWPT LEGACY
1135	"KRN",19,8552,"RPC",1493,0)
1136	ORWRP GET DEFAULT PRINTER
1137	"KRN",19,8552,"RPC",1494,0)
1138	ORWRP PRINT WINDOWS REPORT
1139	"KRN",19,8552,"RPC",1495,0)
1140	ORWRP SAVE DEFAULT PRINTER
1141	"KRN",19,8552,"RPC",1496,0)
1142	ORWRP WINPRINT DEFAULT
1143	"KRN",19,8552,"RPC",1497,0)
1144	ORWRP WINPRINT LAB REPORTS
1145	"KRN",19,8552,"RPC",1498,0)
1146	ORWTIU WINPRINT NOTE
1147	"KRN",19,8552,"RPC",1500,0)
1148	ORWPCE GAFOK
1149	"KRN",19,8552,"RPC",1501,0)
1150	ORWPCE MHCLINIC
1151	"KRN",19,8552,"RPC",1502,0)
1152	ORWPCE LOADGAF
1153	"KRN",19,8552,"RPC",1503,0)
1154	ORWPCE SAVEGAF
1155	"KRN",19,8552,"RPC",1504,0)
1156	ORWPCE FORCE
1157	"KRN",19,8552,"RPC",1505,0)
1158	TIU GET DEFAULT PROVIDER
1159	"KRN",19,8552,"RPC",1506,0)
1160	TIU GET SITE PARAMETERS
1161	"KRN",19,8552,"RPC",1507,0)
1162	TIU IS USER A PROVIDER?
1163	"KRN",19,8552,"RPC",1508,0)
1164	ORWOR VWGET
1165	"KRN",19,8552,"RPC",1509,0)
1166	ORWOR VWSET
1167	"KRN",19,8552,"RPC",1510,0)
1168	ORWU PARAM
1169	"KRN",19,8552,"RPC",1511,0)
1170	ORWDOR LKSCRN
1171	"KRN",19,8552,"RPC",1512,0)
1172	ORWDOR VALNUM
1173	"KRN",19,8552,"RPC",1513,0)
1174	ORWDPS32 VALROUTE
1175	"KRN",19,8552,"RPC",1515,0)
1176	ORWORB UNSIG ORDERS FOLLOWUP
1177	"KRN",19,8552,"RPC",1516,0)
1178	ORWTIU GET LISTBOX ITEM
1179	"KRN",19,8552,"RPC",1517,0)
1180	ORWRP2 HS COMP FILES
1181	"KRN",19,8552,"RPC",1518,0)
1182	ORWRP2 HS COMPONENTS
1183	"KRN",19,8552,"RPC",1519,0)
1184	ORWRP2 HS FILE LOOKUP
1185	"KRN",19,8552,"RPC",1520,0)
1186	ORWRP2 HS REPORT TEXT
1187	"KRN",19,8552,"RPC",1521,0)
1188	ORWRP2 HS SUBITEMS
1189	"KRN",19,8552,"RPC",1522,0)
1190	ORWPCE HASCPT
1191	"KRN",19,8552,"RPC",1523,0)
1192	ORWPCE ASKPCE
1193	"KRN",19,8552,"RPC",1524,0)
1194	ORWPCE MHTESTOK
1195	"KRN",19,8552,"RPC",1525,0)
1196	ORWPCE GAFURL
1197	"KRN",19,8552,"RPC",1526,0)
1198	ORQQPXRM DIALOG PROMPTS
1199	"KRN",19,8552,"RPC",1527,0)
1200	ORQQPXRM EDUCATION SUBTOPICS
1201	"KRN",19,8552,"RPC",1528,0)
1202	ORQQPXRM EDUCATION SUMMARY
1203	"KRN",19,8552,"RPC",1529,0)
1204	ORQQPXRM EDUCATION TOPIC
1205	"KRN",19,8552,"RPC",1530,0)
1206	ORQQPXRM MENTAL HEALTH
1207	"KRN",19,8552,"RPC",1531,0)
1208	ORQQPXRM MENTAL HEALTH RESULTS
1209	"KRN",19,8552,"RPC",1532,0)
1210	ORQQPXRM MENTAL HEALTH SAVE
1211	"KRN",19,8552,"RPC",1533,0)
1212	ORQQPXRM PROGRESS NOTE HEADER
1213	"KRN",19,8552,"RPC",1534,0)
1214	ORQQPXRM REMINDER CATEGORIES
1215	"KRN",19,8552,"RPC",1535,0)
1216	ORQQPXRM REMINDER DETAIL
1217	"KRN",19,8552,"RPC",1536,0)
1218	ORQQPXRM REMINDER DIALOG
1219	"KRN",19,8552,"RPC",1537,0)
1220	ORQQPXRM REMINDER EVALUATION
1221	"KRN",19,8552,"RPC",1538,0)
1222	ORQQPXRM REMINDER INQUIRY
1223	"KRN",19,8552,"RPC",1539,0)
1224	ORQQPXRM REMINDER WEB
1225	"KRN",19,8552,"RPC",1540,0)
1226	ORQQPXRM REMINDERS APPLICABLE
1227	"KRN",19,8552,"RPC",1541,0)
1228	ORQQPXRM REMINDERS UNEVALUATED
1229	"KRN",19,8552,"RPC",1542,0)
1230	ORWLRR INFO
1231	"KRN",19,8552,"RPC",1543,0)
1232	TIU GET PRINT NAME
1233	"KRN",19,8552,"RPC",1544,0)
1234	TIU WAS THIS SAVED?
1235	"KRN",19,8552,"RPC",1545,0)
1236	ORWD1 COMLOC
1237	"KRN",19,8552,"RPC",1546,0)
1238	ORWD1 SIG4ANY
1239	"KRN",19,8552,"RPC",1547,0)
1240	ORWD1 SIG4ONE
1241	"KRN",19,8552,"RPC",1548,0)
1242	ORWOR UNSIGN
1243	"KRN",19,8552,"RPC",1549,0)
1244	ORWPT INPLOC
1245	"KRN",19,8552,"RPC",1553,0)
1246	ORQQCN2 GET PREREQUISITE
1247	"KRN",19,8552,"RPC",1554,0)
1248	ORQQCN2 SCHEDULE CONSULT
1249	"KRN",19,8552,"RPC",1555,0)
1250	YS GAF API
1251	"KRN",19,8552,"RPC",1556,0)
1252	TIU LONG LIST BOILERPLATED
1253	"KRN",19,8552,"RPC",1557,0)
1254	ORWDLR33 FUTURE LAB COLLECTS
1255	"KRN",19,8552,"RPC",1558,0)
1256	ORWRP PRINT REMOTE REPORT
1257	"KRN",19,8552,"RPC",1559,0)
1258	ORWRP PRINT WINDOWS REMOTE
1259	"KRN",19,8552,"RPC",1560,0)
1260	ORWRP PRINT LAB REMOTE
1261	"KRN",19,8552,"RPC",1561,0)
1262	ORWRP PRINT WINDOWS LAB REMOTE
1263	"KRN",19,8552,"RPC",1562,0)
1264	ORQQPXRM DIALOG ACTIVE
1265	"KRN",19,8552,"RPC",1563,0)
1266	ORWPCE MH TEST AUTHORIZED
1267	"KRN",19,8552,"RPC",1564,0)
1268	TIU GET BOILERPLATE
1269	"KRN",19,8552,"RPC",1565,0)
1270	ORWRP2 HS COMPONENT SUBS
1271	"KRN",19,8552,"RPC",1566,0)
1272	ORWCH SAVFONT
1273	"KRN",19,8552,"RPC",1567,0)
1274	ORWDLR33 LASTTIME
1275	"KRN",19,8552,"RPC",1568,0)
1276	ORWD1 SVONLY
1277	"KRN",19,8552,"RPC",1569,0)
1278	ORWPCE HASVISIT
1279	"KRN",19,8552,"RPC",1570,0)
1280	ORWPCE GETMOD
1281	"KRN",19,8552,"RPC",1571,0)
1282	ORWPCE CPTMODS
1283	"KRN",19,8552,"RPC",1572,0)
1284	XWB REMOTE CLEAR
1285	"KRN",19,8552,"RPC",1573,0)
1286	XWB REMOTE GETDATA
1287	"KRN",19,8552,"RPC",1574,0)
1288	XWB REMOTE RPC
1289	"KRN",19,8552,"RPC",1575,0)
1290	XWB REMOTE STATUS CHECK
1291	"KRN",19,8552,"RPC",1576,0)
1292	ORQQCN ASSIGNABLE MED RESULTS
1293	"KRN",19,8552,"RPC",1577,0)
1294	ORQQCN ATTACH MED RESULTS
1295	"KRN",19,8552,"RPC",1578,0)
1296	ORQQCN GET MED RESULT DETAILS
1297	"KRN",19,8552,"RPC",1579,0)
1298	ORQQCN REMOVABLE MED RESULTS
1299	"KRN",19,8552,"RPC",1580,0)
1300	ORQQCN REMOVE MED RESULTS
1301	"KRN",19,8552,"RPC",1581,0)
1302	ORQQCN SVC W/SYNONYMS
1303	"KRN",19,8552,"RPC",1582,0)
1304	ORWCV1 COVERSHEET LIST
1305	"KRN",19,8552,"RPC",1583,0)
1306	ORWORB KILL EXPIR OI ALERT
1307	"KRN",19,8552,"RPC",1584,0)
1308	ORWPCE GETSVC
1309	"KRN",19,8552,"RPC",1585,0)
1310	ORWRP LAB REPORT LISTS
1311	"KRN",19,8552,"RPC",1587,0)
1312	ORWTPN GETCLASS
1313	"KRN",19,8552,"RPC",1588,0)
1314	ORWTPN GETTC
1315	"KRN",19,8552,"RPC",1589,0)
1316	ORWTPO CSARNGD
1317	"KRN",19,8552,"RPC",1590,0)
1318	ORWTPO CSLABD
1319	"KRN",19,8552,"RPC",1591,0)
1320	ORWTPO GETTABS
1321	"KRN",19,8552,"RPC",1592,0)
1322	ORWTPP ADDLIST
1323	"KRN",19,8552,"RPC",1593,0)
1324	ORWTPP CHKSURR
1325	"KRN",19,8552,"RPC",1594,0)
1326	ORWTPP CLDAYS
1327	"KRN",19,8552,"RPC",1595,0)
1328	ORWTPP CLEARNOT
1329	"KRN",19,8552,"RPC",1596,0)
1330	ORWTPP CLRANGE
1331	"KRN",19,8552,"RPC",1597,0)
1332	ORWTPP CSARNG
1333	"KRN",19,8552,"RPC",1598,0)
1334	ORWTPP CSLAB
1335	"KRN",19,8552,"RPC",1599,0)
1336	ORWTPP DELLIST
1337	"KRN",19,8552,"RPC",1600,0)
1338	ORWTPP GETCOMBO
1339	"KRN",19,8552,"RPC",1601,0)
1340	ORWTPP GETCOS
1341	"KRN",19,8552,"RPC",1602,0)
1342	ORWTPP GETDCOS
1343	"KRN",19,8552,"RPC",1603,0)
1344	ORWTPP GETNOT
1345	"KRN",19,8552,"RPC",1604,0)
1346	ORWTPP GETNOTO
1347	"KRN",19,8552,"RPC",1605,0)
1348	ORWTPP GETOC
1349	"KRN",19,8552,"RPC",1606,0)
1350	ORWTPP GETOTHER
1351	"KRN",19,8552,"RPC",1607,0)
1352	ORWTPP GETREM
1353	"KRN",19,8552,"RPC",1608,0)
1354	ORWTPP GETSUB
1355	"KRN",19,8552,"RPC",1609,0)
1356	ORWTPP GETSURR
1357	"KRN",19,8552,"RPC",1610,0)
1358	ORWTPP GETTD
1359	"KRN",19,8552,"RPC",1611,0)
1360	ORWTPP GETTU
1361	"KRN",19,8552,"RPC",1612,0)
1362	ORWTPP LSDEF
1363	"KRN",19,8552,"RPC",1613,0)
1364	ORWTPP NEWLIST
1365	"KRN",19,8552,"RPC",1614,0)
1366	ORWTPP PLISTS
1367	"KRN",19,8552,"RPC",1615,0)
1368	ORWTPP PLTEAMS
1369	"KRN",19,8552,"RPC",1616,0)
1370	ORWTPP REMLIST
1371	"KRN",19,8552,"RPC",1617,0)
1372	ORWTPP SAVECD
1373	"KRN",19,8552,"RPC",1618,0)
1374	ORWTPP SAVECS
1375	"KRN",19,8552,"RPC",1619,0)
1376	ORWTPP SAVELIST
1377	"KRN",19,8552,"RPC",1620,0)
1378	ORWTPP SAVENOT
1379	"KRN",19,8552,"RPC",1621,0)
1380	ORWTPP SAVENOTO
1381	"KRN",19,8552,"RPC",1622,0)
1382	ORWTPP SAVEOC
1383	"KRN",19,8552,"RPC",1623,0)
1384	ORWTPP SAVEPLD
1385	"KRN",19,8552,"RPC",1624,0)
1386	ORWTPP SAVESURR
1387	"KRN",19,8552,"RPC",1625,0)
1388	ORWTPP SAVET
1389	"KRN",19,8552,"RPC",1626,0)
1390	ORWTPP SETCOMBO
1391	"KRN",19,8552,"RPC",1627,0)
1392	ORWTPP SETDCOS
1393	"KRN",19,8552,"RPC",1628,0)
1394	ORWTPP SETOTHER
1395	"KRN",19,8552,"RPC",1629,0)
1396	ORWTPP SETREM
1397	"KRN",19,8552,"RPC",1630,0)
1398	ORWTPP SETSUB
1399	"KRN",19,8552,"RPC",1631,0)
1400	ORWTPP SORTDEF
1401	"KRN",19,8552,"RPC",1632,0)
1402	ORWTPP TEAMS
1403	"KRN",19,8552,"RPC",1633,0)
1404	ORWTPT ATEAMS
1405	"KRN",19,8552,"RPC",1634,0)
1406	ORWTPT GETTEAM
1407	"KRN",19,8552,"RPC",1635,0)
1408	TIU TEMPLATE GET DEFAULTS
1409	"KRN",19,8552,"RPC",1636,0)
1410	TIU TEMPLATE GET DESCRIPTION
1411	"KRN",19,8552,"RPC",1637,0)
1412	TIU TEMPLATE SET DEFAULTS
1413	"KRN",19,8552,"RPC",1638,0)
1414	ORWTIU IDNOTES INSTALLED
1415	"KRN",19,8552,"RPC",1639,0)
1416	ORQQPX GET FOLDERS
1417	"KRN",19,8552,"RPC",1640,0)
1418	ORQQPX SET FOLDERS
1419	"KRN",19,8552,"RPC",1641,0)
1420	TIU FIELD CAN EDIT
1421	"KRN",19,8552,"RPC",1642,0)
1422	TIU FIELD DELETE
1423	"KRN",19,8552,"RPC",1643,0)
1424	TIU FIELD EXPORT
1425	"KRN",19,8552,"RPC",1644,0)
1426	TIU FIELD IMPORT
1427	"KRN",19,8552,"RPC",1645,0)
1428	TIU FIELD LIST
1429	"KRN",19,8552,"RPC",1646,0)
1430	TIU FIELD LOAD
1431	"KRN",19,8552,"RPC",1647,0)
1432	TIU FIELD LOAD BY IEN
1433	"KRN",19,8552,"RPC",1648,0)
1434	TIU FIELD LOCK
1435	"KRN",19,8552,"RPC",1649,0)
1436	TIU FIELD NAME IS UNIQUE
1437	"KRN",19,8552,"RPC",1650,0)
1438	TIU FIELD SAVE
1439	"KRN",19,8552,"RPC",1651,0)
1440	TIU FIELD UNLOCK
1441	"KRN",19,8552,"RPC",1652,0)
1442	ORWDPS1 CHK94
1443	"KRN",19,8552,"RPC",1653,0)
1444	ORWDPS1 ODSLCT
1445	"KRN",19,8552,"RPC",1654,0)
1446	ORWDPS1 SCHALL
1447	"KRN",19,8552,"RPC",1655,0)
1448	ORWDPS2 ADMIN
1449	"KRN",19,8552,"RPC",1656,0)
1450	ORWDPS2 DAY2QTY
1451	"KRN",19,8552,"RPC",1657,0)
1452	ORWDPS2 OISLCT
1453	"KRN",19,8552,"RPC",1658,0)
1454	ORWDPS2 REQST
1455	"KRN",19,8552,"RPC",1659,0)
1456	ORWDX DGNM
1457	"KRN",19,8552,"RPC",1660,0)
1458	ORWUL FV4DG
1459	"KRN",19,8552,"RPC",1661,0)
1460	ORWUL FVIDX
1461	"KRN",19,8552,"RPC",1662,0)
1462	ORWUL FVSUB
1463	"KRN",19,8552,"RPC",1663,0)
1464	ORWUL QV4DG
1465	"KRN",19,8552,"RPC",1664,0)
1466	ORWUL QVIDX
1467	"KRN",19,8552,"RPC",1665,0)
1468	ORWUL QVSUB
1469	"KRN",19,8552,"RPC",1666,0)
1470	ORWDPS1 DFLTSPLY
1471	"KRN",19,8552,"RPC",1668,0)
1472	PXRM REMINDER DIALOG (TIU)
1473	"KRN",19,8552,"RPC",1669,0)
1474	ORWPCE ANYTIME
1475	"KRN",19,8552,"RPC",1670,0)
1476	ORQQPX GET DEF LOCATIONS
1477	"KRN",19,8552,"RPC",1671,0)
1478	ORWTPP GETIMG
1479	"KRN",19,8552,"RPC",1672,0)
1480	ORWTPP SETIMG
1481	"KRN",19,8552,"RPC",1673,0)
1482	ORWTPO GETIMGD
1483	"KRN",19,8552,"RPC",1674,0)
1484	ORQQPX REM INSERT AT CURSOR
1485	"KRN",19,8552,"RPC",1675,0)
1486	TIU REMINDER DIALOGS
1487	"KRN",19,8552,"RPC",1676,0)
1488	TIU REM DLG OK AS TEMPLATE
1489	"KRN",19,8552,"RPC",1677,0)
1490	ORWDPS2 MAXREF
1491	"KRN",19,8552,"RPC",1678,0)
1492	ORWDPS2 SCHREQ
1493	"KRN",19,8552,"RPC",1679,0)
1494	ORWRP COLUMN HEADERS
1495	"KRN",19,8552,"RPC",1680,0)
1496	TIU FIELD DOLMTEXT
1497	"KRN",19,8552,"RPC",1681,0)
1498	TIU TEMPLATE PERSONAL OBJECTS
1499	"KRN",19,8552,"RPC",1682,0)
1500	ORWPCE AUTO VISIT TYPE SELECT
1501	"KRN",19,8552,"RPC",1683,0)
1502	ORWDPS2 QTY2DAY
1503	"KRN",19,8552,"RPC",1684,0)
1504	ORWU HAS OPTION ACCESS
1505	"KRN",19,8552,"RPC",1685,0)
1506	TIU TEMPLATE LOCK
1507	"KRN",19,8552,"RPC",1686,0)
1508	ORQQPX LVREMLST
1509	"KRN",19,8552,"RPC",1687,0)
1510	ORQQPX NEW COVER SHEET ACTIVE
1511	"KRN",19,8552,"RPC",1688,0)
1512	ORQQPX NEW COVER SHEET REMS
1513	"KRN",19,8552,"RPC",1689,0)
1514	ORQQPX SAVELVL
1515	"KRN",19,8552,"RPC",1690,0)
1516	PXRM REMINDER CATEGORY
1517	"KRN",19,8552,"RPC",1691,0)
1518	PXRM REMINDERS AND CATEGORIES
1519	"KRN",19,8552,"RPC",1692,0)
1520	TIU DIV AND CLASS INFO
1521	"KRN",19,8552,"RPC",1693,0)
1522	TIU TEMPLATE GETBOIL
1523	"KRN",19,8552,"RPC",1694,0)
1524	TIU TEMPLATE GETITEMS
1525	"KRN",19,8552,"RPC",1695,0)
1526	TIU TEMPLATE GETROOTS
1527	"KRN",19,8552,"RPC",1696,0)
1528	TIU TEMPLATE GETTEXT
1529	"KRN",19,8552,"RPC",1697,0)
1530	TIU TEMPLATE ISEDITOR
1531	"KRN",19,8552,"RPC",1698,0)
1532	TIU TEMPLATE UNLOCK
1533	"KRN",19,8552,"RPC",1699,0)
1534	TIU USER CLASS LONG LIST
1535	"KRN",19,8552,"RPC",1700,0)
1536	ORWPCE ALWAYS CHECKOUT
1537	"KRN",19,8552,"RPC",1701,0)
1538	ORWPCE GET EXCLUDED
1539	"KRN",19,8552,"RPC",1702,0)
1540	ORWDPS1 FORMALT
1541	"KRN",19,8552,"RPC",1703,0)
1542	ORQPT DEFAULT LIST SORT
1543	"KRN",19,8552,"RPC",1704,0)
1544	ORWDPS1 DOSEALT
1545	"KRN",19,8552,"RPC",1705,0)
1546	ORWTPR OCDESC
1547	"KRN",19,8552,"RPC",1706,0)
1548	ORWTPR NOTDESC
1549	"KRN",19,8552,"RPC",1707,0)
1550	ORWDPS1 FAILDEA
1551	"KRN",19,8552,"RPC",1708,0)
1552	ORQPT DEFAULT CLINIC DATE RANG
1553	"KRN",19,8552,"RPC",1709,0)
1554	ORWTIU CANLINK
1555	"KRN",19,8552,"RPC",1710,0)
1556	TIU ID ATTACH ENTRY
1557	"KRN",19,8552,"RPC",1711,0)
1558	TIU ID CAN ATTACH
1559	"KRN",19,8552,"RPC",1712,0)
1560	TIU ID CAN RECEIVE
1561	"KRN",19,8552,"RPC",1713,0)
1562	TIU ID DETACH ENTRY
1563	"KRN",19,8552,"RPC",1714,0)
1564	ORWCOM GETOBJS
1565	"KRN",19,8552,"RPC",1715,0)
1566	ORWCOM DETAILS
1567	"KRN",19,8552,"RPC",1716,0)
1568	ORWCOM PTOBJ
1569	"KRN",19,8552,"RPC",1718,0)
1570	TIU TEMPLATE GETLINK
1571	"KRN",19,8552,"RPC",1719,0)
1572	TIU TEMPLATE ALL TITLES
1573	"KRN",19,8552,"RPC",1720,0)
1574	ORWSR LIST
1575	"KRN",19,8552,"RPC",1721,0)
1576	ORWSR SHOW SURG TAB
1577	"KRN",19,8552,"RPC",1722,0)
1578	ORWSR GET SURG CONTEXT
1579	"KRN",19,8552,"RPC",1723,0)
1580	ORWSR SAVE SURG CONTEXT
1581	"KRN",19,8552,"RPC",1724,0)
1582	ORWSR ONECASE
1583	"KRN",19,8552,"RPC",1727,0)
1584	ORWSR SHOW OPTOP WHEN SIGNING
1585	"KRN",19,8552,"RPC",1728,0)
1586	ORWSR IS NON-OR PROCEDURE
1587	"KRN",19,8552,"RPC",1729,0)
1588	ORWSR CASELIST
1589	"KRN",19,8552,"RPC",1730,0)
1590	ORQQCN GET PROC IEN
1591	"KRN",19,8552,"RPC",1731,0)
1592	ORWRP PRINT V REPORT
1593	"KRN",19,8552,"RPC",1732,0)
1594	ORWRP3 EXPAND COLUMNS
1595	"KRN",19,8552,"RPC",1733,0)
1596	ORWTPD ACTDF
1597	"KRN",19,8552,"RPC",1734,0)
1598	ORWTPD DELDFLT
1599	"KRN",19,8552,"RPC",1735,0)
1600	ORWTPD GETDFLT
1601	"KRN",19,8552,"RPC",1736,0)
1602	ORWTPD RSDFLT
1603	"KRN",19,8552,"RPC",1737,0)
1604	ORWTPD SUDF
1605	"KRN",19,8552,"RPC",1738,0)
1606	ORWTPD SUINDV
1607	"KRN",19,8552,"RPC",1739,0)
1608	ORWTPD GETSETS
1609	"KRN",19,8552,"RPC",1740,0)
1610	ORWCOM ORDEROBJ
1611	"KRN",19,8552,"RPC",1741,0)
1612	ORWRP2 COMPABV
1613	"KRN",19,8552,"RPC",1742,0)
1614	ORWRP2 GETLKUP
1615	"KRN",19,8552,"RPC",1743,0)
1616	ORWRP2 SAVLKUP
1617	"KRN",19,8552,"RPC",1744,0)
1618	ORWRP2 COMPDISP
1619	"KRN",19,8552,"RPC",1745,0)
1620	ORWPCE ISCLINIC
1621	"KRN",19,8552,"RPC",1746,0)
1622	ORWCH SAVECOL
1623	"KRN",19,8552,"RPC",1747,0)
1624	ORWSR RPTLIST
1625	"KRN",19,8552,"RPC",1748,0)
1626	ORQQPXRM MST UPDATE
1627	"KRN",19,8552,"RPC",1749,0)
1628	ORWMC PATIENT PROCEDURES1
1629	"KRN",19,8552,"RPC",1750,0)
1630	ORWRA IMAGING EXAMS1
1631	"KRN",19,8552,"RPC",1751,0)
1632	ORWRA REPORT TEXT1
1633	"KRN",19,8552,"RPC",1752,0)
1634	ORWDPS4 CPINFO
1635	"KRN",19,8552,"RPC",1753,0)
1636	ORWDPS4 CPLST
1637	"KRN",19,8552,"RPC",1754,0)
1638	ORWORB KILL UNVER MEDS ALERT
1639	"KRN",19,8552,"RPC",1755,0)
1640	ORWORB KILL UNVER ORDERS ALERT
1641	"KRN",19,8552,"RPC",1756,0)
1642	ORWPCE HNCOK
1643	"KRN",19,8552,"RPC",1757,0)
1644	ORWPS MEDHIST
1645	"KRN",19,8552,"RPC",1758,0)
1646	TIU FIELD CHECK
1647	"KRN",19,8552,"RPC",1759,0)
1648	TIU FIELD LIST ADD
1649	"KRN",19,8552,"RPC",1760,0)
1650	TIU FIELD LIST IMPORT
1651	"KRN",19,8552,"RPC",1761,0)
1652	TIU SET DOCUMENT TEXT
1653	"KRN",19,8552,"RPC",1762,0)
1654	ORWDPS2 CHKPI
1655	"KRN",19,8552,"RPC",1763,0)
1656	ORWDXR GTORITM
1657	"KRN",19,8552,"RPC",1764,0)
1658	ORWDPS2 CHKGRP
1659	"KRN",19,8552,"RPC",1765,0)
1660	ORWDPS2 QOGRP
1661	"KRN",19,8552,"RPC",1766,0)
1662	ORWDXR GETPKG
1663	"KRN",19,8552,"RPC",1767,0)
1664	ORQPT MAKE RPL
1665	"KRN",19,8552,"RPC",1768,0)
1666	ORQPT READ RPL
1667	"KRN",19,8552,"RPC",1769,0)
1668	ORQPT KILL RPL
1669	"KRN",19,8552,"RPC",1770,0)
1670	ORWTIU GET SAVED CP FIELDS
1671	"KRN",19,8552,"RPC",1771,0)
1672	ORWDPS1 LOCPICK
1673	"KRN",19,8552,"RPC",1772,0)
1674	ORWPT LAST5 RPL
1675	"KRN",19,8552,"RPC",1773,0)
1676	ORWPT FULLSSN RPL
1677	"KRN",19,8552,"RPC",1774,0)
1678	ORWOR PKIUSE
1679	"KRN",19,8552,"RPC",1775,0)
1680	ORWOR1 SIG
1681	"KRN",19,8552,"RPC",1776,0)
1682	ORWOR1 CHKDIG
1683	"KRN",19,8552,"RPC",1777,0)
1684	ORWOR1 GETDTEXT
1685	"KRN",19,8552,"RPC",1778,0)
1686	ORWOR1 GETDSIG
1687	"KRN",19,8552,"RPC",1779,0)
1688	ORWTPD GETIMG
1689	"KRN",19,8552,"RPC",1780,0)
1690	OREVNTX1 PRMPTID
1691	"KRN",19,8552,"RPC",1781,0)
1692	ORECS01 CHKESSO
1693	"KRN",19,8552,"RPC",1782,0)
1694	ORECS01 VSITID
1695	"KRN",19,8552,"RPC",1784,0)
1696	OREVNTX LIST
1697	"KRN",19,8552,"RPC",1785,0)
1698	OREVNTX PAT
1699	"KRN",19,8552,"RPC",1786,0)
1700	OREVNTX1 GTEVT
1701	"KRN",19,8552,"RPC",1787,0)
1702	OREVNTX1 CPACT
1703	"KRN",19,8552,"RPC",1788,0)
1704	OREVNTX1 CURSPE
1705	"KRN",19,8552,"RPC",1789,0)
1706	OREVNTX1 CHGEVT
1707	"KRN",19,8552,"RPC",1790,0)
1708	OREVNTX1 DELPTEVT
1709	"KRN",19,8552,"RPC",1791,0)
1710	OREVNTX1 DFLTEVT
1711	"KRN",19,8552,"RPC",1792,0)
1712	OREVNTX ACTIVE
1713	"KRN",19,8552,"RPC",1793,0)
1714	OREVNTX1 PUTEVNT
1715	"KRN",19,8552,"RPC",1794,0)
1716	OREVNTX1 WRLSTED
1717	"KRN",19,8552,"RPC",1795,0)
1718	OREVNTX1 EVT
1719	"KRN",19,8552,"RPC",1796,0)
1720	OREVNTX1 NAME
1721	"KRN",19,8552,"RPC",1797,0)
1722	OREVNTX1 MATCH
1723	"KRN",19,8552,"RPC",1798,0)
1724	OREVNTX1 EMPTY
1725	"KRN",19,8552,"RPC",1799,0)
1726	OREVNTX1 EXISTS
1727	"KRN",19,8552,"RPC",1800,0)
1728	OREVNTX1 GTEVT1
1729	"KRN",19,8552,"RPC",1801,0)
1730	OREVNTX1 DIV
1731	"KRN",19,8552,"RPC",1802,0)
1732	OREVNTX1 DIV1
1733	"KRN",19,8552,"RPC",1803,0)
1734	OREVNTX1 LOC
1735	"KRN",19,8552,"RPC",1804,0)
1736	OREVNTX1 LOC1
1737	"KRN",19,8552,"RPC",1805,0)
1738	ORWDX SENDED
1739	"KRN",19,8552,"RPC",1806,0)
1740	OREVNTX1 GETDLG
1741	"KRN",19,8552,"RPC",1807,0)
1742	ORECS01 ECPRINT
1743	"KRN",19,8552,"RPC",1811,0)
1744	ORECS01 ECRPT
1745	"KRN",19,8552,"RPC",1812,0)
1746	OREVNTX1 ISDCOD
1747	"KRN",19,8552,"RPC",1813,0)
1748	OREVNTX1 SETDFLT
1749	"KRN",19,8552,"RPC",1815,0)
1750	TIU IS THIS A CLINPROC?
1751	"KRN",19,8552,"RPC",1816,0)
1752	TIU IDENTIFY CLINPROC CLASS
1753	"KRN",19,8552,"RPC",1817,0)
1754	TIU LONG LIST CLINPROC TITLES
1755	"KRN",19,8552,"RPC",1819,0)
1756	ORWDPS1 HASOIPI
1757	"KRN",19,8552,"RPC",1821,0)
1758	OREVNTX1 DEFLTS
1759	"KRN",19,8552,"RPC",1822,0)
1760	OREVNTX1 MULTS
1761	"KRN",19,8552,"RPC",1823,0)
1762	OREVNTX1 DONE
1763	"KRN",19,8552,"RPC",1824,0)
1764	OREVNTX1 PROMPT IDS
1765	"KRN",19,8552,"RPC",1825,0)
1766	ORWCIRN CHECKLINK
1767	"KRN",19,8552,"RPC",1826,0)
1768	XWB DIRECT RPC
1769	"KRN",19,8552,"RPC",1827,0)
1770	ORWDPS1 HASROUTE
1771	"KRN",19,8552,"RPC",1828,0)
1772	ORQQCN UNRESOLVED
1773	"KRN",19,8552,"RPC",1829,0)
1774	OREVNTX1 DELDFLT
1775	"KRN",19,8552,"RPC",1830,0)
1776	ORWCH LDFONT
1777	"KRN",19,8552,"RPC",1831,0)
1778	ORWU1 NAMECVT
1779	"KRN",19,8552,"RPC",1832,0)
1780	OREVNTX1 DFLTDLG
1781	"KRN",19,8552,"RPC",1833,0)
1782	ORWDPS5 LESAPI
1783	"KRN",19,8552,"RPC",1834,0)
1784	ORWDPS5 LESGRP
1785	"KRN",19,8552,"RPC",1839,0)
1786	OREVNTX1 TYPEXT
1787	"KRN",19,8552,"RPC",1840,0)
1788	ORWORR RGET
1789	"KRN",19,8552,"RPC",1841,0)
1790	OREVNTX1 AUTHMREL
1791	"KRN",19,8552,"RPC",1842,0)
1792	OREVNTX1 HAVEPRT
1793	"KRN",19,8552,"RPC",1843,0)
1794	OREVNTX1 CMEVTS
1795	"KRN",19,8552,"RPC",1844,0)
1796	OREVNTX1 ODPTEVID
1797	"KRN",19,8552,"RPC",1845,0)
1798	ORWOR PKISITE
1799	"KRN",19,8552,"RPC",1846,0)
1800	OREVNTX1 COMP
1801	"KRN",19,8552,"RPC",1847,0)
1802	OREVNTX1 ISHDORD
1803	"KRN",19,8552,"RPC",1848,0)
1804	ORWDXR ORCPLX
1805	"KRN",19,8552,"RPC",1849,0)
1806	OREVNTX1 ISPASS
1807	"KRN",19,8552,"RPC",1850,0)
1808	OREVNTX1 ISPASS1
1809	"KRN",19,8552,"RPC",1851,0)
1810	OREVNTX1 DLGIEN
1811	"KRN",19,8552,"RPC",1852,0)
1812	ORWDXR CANRN
1813	"KRN",19,8552,"RPC",1853,0)
1814	ORWDXR ISCPLX
1815	"KRN",19,8552,"RPC",1854,0)
1816	ORWDXA OFCPLX
1817	"KRN",19,8552,"RPC",1855,0)
1818	ORQQPX GET NOT PURPOSE
1819	"KRN",19,8552,"RPC",1856,0)
1820	ORWDPS1 IVDEA
1821	"KRN",19,8552,"RPC",1857,0)
1822	ORWDXR ISNOW
1823	"KRN",19,8552,"RPC",1858,0)
1824	ORRHCQ QRYITR
1825	"KRN",19,8552,"RPC",1859,0)
1826	OREVNTX1 GETSTS
1827	"KRN",19,8552,"RPC",1860,0)
1828	ORWU DEFAULT DIVISION
1829	"KRN",19,8552,"RPC",1861,0)
1830	ORWDXA ISACTOI
1831	"KRN",19,8552,"RPC",1862,0)
1832	ORECS01 SAVPATH
1833	"KRN",19,8552,"RPC",1863,0)
1834	ORWOR RESULT HISTORY
1835	"KRN",19,8552,"RPC",1864,0)
1836	XUS GET TOKEN
1837	"KRN",19,8552,"RPC",1865,0)
1838	ORQQPX IMMUN LIST
1839	"KRN",19,8552,"RPC",1866,0)
1840	XWB DEFERRED CLEARALL
1841	"KRN",19,8552,"RPC",1867,0)
1842	ORWOR1 SETDTEXT
1843	"KRN",19,8552,"RPC",1868,0)
1844	ORWOR1 GETDEA
1845	"KRN",19,8552,"RPC",1869,0)
1846	ORWOR1 GETDSCH
1847	"KRN",19,8552,"RPC",1870,0)
1848	ORWORB TEXT FOLLOWUP
1849	"KRN",19,8552,"RPC",1871,0)
1850	ORWU1 NEWLOC
1851	"KRN",19,8552,"RPC",1872,0)
1852	ORWPCE ACTIVE CODE
1853	"KRN",19,8552,"RPC",1873,0)
1854	ORQQPXRM GET WH LETTER TEXT
1855	"KRN",19,8552,"RPC",1874,0)
1856	ORQQPXRM GET WH LETTER TYPE
1857	"KRN",19,8552,"RPC",1875,0)
1858	ORQQPXRM GET WH PROC RESULT
1859	"KRN",19,8552,"RPC",1876,0)
1860	ORQQPXRM WOMEN HEALTH SAVE
1861	"KRN",19,8552,"RPC",1877,0)
1862	ORB FORWARD ALERT
1863	"KRN",19,8552,"RPC",1878,0)
1864	ORB RENEW ALERT
1865	"KRN",19,8552,"RPC",1879,0)
1866	ORPRF CLEAR
1867	"KRN",19,8552,"RPC",1880,0)
1868	ORPRF GETFLG
1869	"KRN",19,8552,"RPC",1881,0)
1870	ORPRF HASFLG
1871	"KRN",19,8552,"RPC",1882,0)
1872	ORWTPD GETOCM
1873	"KRN",19,8552,"RPC",1883,0)
1874	TIU ONE VISIT NOTE?
1875	"KRN",19,8552,"RPC",1884,0)
1876	VAFCTFU CONVERT ICN TO DFN
1877	"KRN",19,8552,"RPC",1885,0)
1878	ORIMO IMOLOC
1879	"KRN",19,8552,"RPC",1886,0)
1880	ORIMO IMOOD
1881	"KRN",19,8552,"RPC",1887,0)
1882	ORWDPS4 IPOD4OP
1883	"KRN",19,8552,"RPC",1888,0)
1884	ORWDPS4 UPDTDG
1885	"KRN",19,8552,"RPC",1889,0)
1886	TIU USER INACTIVE?
1887	"KRN",19,8552,"RPC",1890,0)
1888	ORWTPD PUTOCM
1889	"KRN",19,8552,"RPC",1891,0)
1890	ORWOR ACTION TEXT
1891	"KRN",19,8552,"RPC",1892,0)
1892	ORQQPXRM GEC DIALOG
1893	"KRN",19,8552,"RPC",1893,0)
1894	ORQQPXRM GET WH REPORT TEXT
1895	"KRN",19,8552,"RPC",1894,0)
1896	ORWDXR01 CANCHG
1897	"KRN",19,8552,"RPC",1895,0)
1898	ORWDXR01 SAVCHG
1899	"KRN",19,8552,"RPC",1896,0)
1900	TIU HAS AUTHOR SIGNED?
1901	"KRN",19,8552,"RPC",1897,0)
1902	ORQQPXRM CHECK REM VERSION
1903	"KRN",19,8552,"RPC",1898,0)
1904	ORQQPXRM GEC STATUS PROMPT
1905	"KRN",19,8552,"RPC",1899,0)
1906	ORQQPXRM GEC STATUS PROMPT
1907	"KRN",19,8552,"RPC",1900,0)
1908	ORWDAL32 SEND BULLETIN
1909	"KRN",19,8552,"RPC",1901,0)
1910	ORWDBA1 ORPKGTYP
1911	"KRN",19,8552,"RPC",1902,0)
1912	ORWDXR01 ISSPLY
1913	"KRN",19,8552,"RPC",1903,0)
1914	ORWDBA1 RCVORCI
1915	"KRN",19,8552,"RPC",1904,0)
1916	ORWPS REASON
1917	"KRN",19,8552,"RPC",1905,0)
1918	ORQQPXRM GEC FINISHED?
1919	"KRN",19,8552,"RPC",1906,0)
1920	ORWDXM3 ISUDQO
1921	"KRN",19,8552,"RPC",1908,0)
1922	ORWDBA1 SCLST
1923	"KRN",19,8552,"RPC",1909,0)
1924	ORWDXR01 OXDATA
1925	"KRN",19,8552,"RPC",1914,0)
1926	ORWDBA1 BASTATUS
1927	"KRN",19,8552,"RPC",1920,0)
1928	ORWORB SETSORT
1929	"KRN",19,8552,"RPC",1921,0)
1930	ORWORB GETSORT
1931	"KRN",19,8552,"RPC",1922,0)
1932	ORWOR EXPIRED
1933	"KRN",19,8552,"RPC",1928,0)
1934	ORECS01 GETDIV
1935	"KRN",19,8552,"RPC",1933,0)
1936	ORWTPD1 GETEFDAT
1937	"KRN",19,8552,"RPC",1934,0)
1938	ORWTPD1 GETEDATS
1939	"KRN",19,8552,"RPC",1935,0)
1940	ORWTPD1 PUTEDATS
1941	"KRN",19,8552,"RPC",1936,0)
1942	ORWTPD1 GETCSDEF
1943	"KRN",19,8552,"RPC",1937,0)
1944	ORWTPD1 GETCSRNG
1945	"KRN",19,8552,"RPC",1938,0)
1946	ORWTPD1 PUTCSRNG
1947	"KRN",19,8552,"RPC",1939,0)
1948	ORWTPD1 GETEAFL
1949	"KRN",19,8552,"RPC",1940,0)
1950	ORWDBA1 GETORDX
1951	"KRN",19,8552,"RPC",1941,0)
1952	ORWDBA3 HINTS
1953	"KRN",19,8552,"RPC",1942,0)
1954	ORWDAL32 LOAD FOR EDIT
1955	"KRN",19,8552,"RPC",1943,0)
1956	ORWDAL32 SAVE ALLERGY
1957	"KRN",19,8552,"RPC",1944,0)
1958	ORWDAL32 SITE PARAMS
1959	"KRN",19,8552,"RPC",1945,0)
1960	ORWPCE CXNOSHOW
1961	"KRN",19,8552,"RPC",1946,0)
1962	ORWDBA2 ADDPDL
1963	"KRN",19,8552,"RPC",1947,0)
1964	ORWDBA2 DELPDL
1965	"KRN",19,8552,"RPC",1948,0)
1966	ORWDBA2 GETDUDC
1967	"KRN",19,8552,"RPC",1949,0)
1968	ORWDBA2 GETPDL
1969	"KRN",19,8552,"RPC",1950,0)
1970	ORWDBA4 GETBAUSR
1971	"KRN",19,8552,"RPC",1951,0)
1972	ORWDBA4 GETTFCI
1973	"KRN",19,8552,"RPC",1952,0)
1974	ORWNSS NSSMSG
1975	"KRN",19,8552,"RPC",1953,0)
1976	ORWNSS QOSCH
1977	"KRN",19,8552,"RPC",1954,0)
1978	ORWNSS VALSCH
1979	"KRN",19,8552,"RPC",1955,0)
1980	ORWNSS CHKSCH
1981	"KRN",19,8552,"RPC",1956,0)
1982	ORWDPS4 ISUDIV
1983	"KRN",19,8552,"RPC",1957,0)
1984	ORWDPS32 AUTHNVA
1985	"KRN",19,8552,"RPC",1962,0)
1986	ORWTIU CHKTXT
1987	"KRN",19,8552,"RPC",1964,0)
1988	ORWDPS5 ISVTP
1989	"KRN",19,8552,"RPC",1965,0)
1990	TIU IS THIS A SURGERY?
1991	"KRN",19,8552,"RPC",1966,0)
1992	TIU IDENTIFY SURGERY CLASS
1993	"KRN",19,8552,"RPC",1967,0)
1994	TIU LONG LIST SURGERY TITLES
1995	"KRN",19,8552,"RPC",1968,0)
1996	TIU GET DOCUMENTS FOR REQUEST
1997	"KRN",19,8552,"RPC",1969,0)
1998	TIU SET ADMINISTRATIVE CLOSURE
1999	"KRN",19,8552,"RPC",1970,0)
2000	ORBCMA5 GETUDID
2001	"KRN",19,8552,"RPC",1973,0)
2002	ORIMO ISCLOC
2003	"KRN",19,8552,"RPC",1974,0)
2004	ORIMO ISIVQO
2005	"KRN",19,8552,"RPC",1975,0)
2006	ORWDBA7 GETIEN9
2007	"KRN",19,8552,"RPC",1976,0)
2008	ORWGN GNLOC
2009	"KRN",19,8552,"RPC",1977,0)
2010	ORWGN AUTHUSR
2011	"KRN",19,8552,"RPC",1978,0)
2012	ORVAA VAA
2013	"KRN",19,8552,"RPC",1979,0)
2014	ORWCIRN VISTAWEB
2015	"KRN",19,8552,"RPC",1980,0)
2016	ORWCIRN WEBCH
2017	"KRN",19,8552,"RPC",1981,0)
2018	ORWDAL32 CLINUSER
2019	"KRN",19,8552,"RPC",1982,0)
2020	ORWDBA7 ISWITCH
2021	"KRN",19,8552,"RPC",1983,0)
2022	ORWDFH CURRENT MEALS
2023	"KRN",19,8552,"RPC",1984,0)
2024	ORWDFH NFSLOC READY
2025	"KRN",19,8552,"RPC",1985,0)
2026	ORWDFH OPDIETS
2027	"KRN",19,8552,"RPC",1986,0)
2028	ORWMHV MHV
2029	"KRN",19,8552,"RPC",1987,0)
2030	ORWPCE1 NONCOUNT
2031	"KRN",19,8552,"RPC",1988,0)
2032	ORWPFSS IS PFSS ACTIVE?
2033	"KRN",19,8552,"RPC",1989,0)
2034	GMV EXTRACT REC
2035	"KRN",19,8552,"RPC",1990,0)
2036	GMV MARK ERROR
2037	"KRN",19,8552,"RPC",1991,0)
2038	ORWDXVB COMPORD
2039	"KRN",19,8552,"RPC",1992,0)
2040	ORWDXVB GETALL
2041	"KRN",19,8552,"RPC",1993,0)
2042	ORWDXVB RAW
2043	"KRN",19,8552,"RPC",1994,0)
2044	ORWDXVB RESULTS
2045	"KRN",19,8552,"RPC",1995,0)
2046	ORWDXVB STATALOW
2047	"KRN",19,8552,"RPC",1996,0)
2048	ORWGRPC ALLITEMS
2049	"KRN",19,8552,"RPC",1997,0)
2050	ORWGRPC CLASS
2051	"KRN",19,8552,"RPC",1998,0)
2052	ORWGRPC DATEITEM
2053	"KRN",19,8552,"RPC",1999,0)
2054	ORWGRPC DELVIEWS
2055	"KRN",19,8552,"RPC",2000,0)
2056	ORWGRPC DETAILS
2057	"KRN",19,8552,"RPC",2001,0)
2058	ORWGRPC GETDATES
2059	"KRN",19,8552,"RPC",2002,0)
2060	ORWGRPC GETPREF
2061	"KRN",19,8552,"RPC",2003,0)
2062	ORWGRPC GETVIEWS
2063	"KRN",19,8552,"RPC",2004,0)
2064	ORWGRPC ITEMDATA
2065	"KRN",19,8552,"RPC",2005,0)
2066	ORWGRPC ITEMS
2067	"KRN",19,8552,"RPC",2006,0)
2068	ORWGRPC LOOKUP
2069	"KRN",19,8552,"RPC",2007,0)
2070	ORWGRPC PUBLIC
2071	"KRN",19,8552,"RPC",2008,0)
2072	ORWGRPC RPTPARAM
2073	"KRN",19,8552,"RPC",2009,0)
2074	ORWGRPC SETPREF
2075	"KRN",19,8552,"RPC",2010,0)
2076	ORWGRPC SETVIEWS
2077	"KRN",19,8552,"RPC",2011,0)
2078	ORWGRPC TESTSPEC
2079	"KRN",19,8552,"RPC",2012,0)
2080	ORWGRPC TYPES
2081	"KRN",19,8552,"RPC",2013,0)
2082	TIU GET DOCUMENT STATUS
2083	"KRN",19,8552,"RPC",2014,0)
2084	TIU GET PRF ACTIONS
2085	"KRN",19,8552,"RPC",2015,0)
2086	TIU ISPRF
2087	"KRN",19,8552,"RPC",2016,0)
2088	TIU LINK TO FLAG
2089	"KRN",19,8552,"RPC",2017,0)
2090	ORWGRPC DETAIL
2091	"KRN",19,8552,"RPC",2018,0)
2092	ORWU VERSION
2093	"KRN",19,8552,"RPC",2019,0)
2094	GMV ALLERGY
2095	"KRN",19,8552,"RPC",2020,0)
2096	ORWCIRN WEBADDR
2097	"KRN",19,8552,"RPC",2023,0)
2098	ORWGRPC TAX
2099	"KRN",19,8552,"RPC",2024,0)
2100	GMV DLL VERSION
2101	"KRN",19,8552,"RPC",2025,0)
2102	ORWDX CHANGE
2103	"KRN",19,8552,"RPC",2026,0)
2104	GMV ADD VM
2105	"KRN",19,8552,"RPC",2027,0)
2106	GMV CONVERT DATE
2107	"KRN",19,8552,"RPC",2028,0)
2108	GMV GET CATEGORY IEN
2109	"KRN",19,8552,"RPC",2029,0)
2110	GMV GET CURRENT TIME
2111	"KRN",19,8552,"RPC",2030,0)
2112	GMV GET VITAL TYPE IEN
2113	"KRN",19,8552,"RPC",2031,0)
2114	GMV LATEST VM
2115	"KRN",19,8552,"RPC",2032,0)
2116	GMV MANAGER
2117	"KRN",19,8552,"RPC",2033,0)
2118	GMV PARAMETER
2119	"KRN",19,8552,"RPC",2034,0)
2120	GMV USER
2121	"KRN",19,8552,"RPC",2035,0)
2122	GMV VITALS/CAT/QUAL
2123	"KRN",19,8552,"RPC",2036,0)
2124	GMV V/M ALLDATA
2125	"KRN",19,8552,"RPC",2037,0)
2126	TIU GET LINKED PRF NOTES
2127	"KRN",19,8552,"RPC",2038,0)
2128	TIU GET PRF TITLE
2129	"KRN",19,8552,"RPC",2039,0)
2130	ORWDX1 PATWARD
2131	"KRN",19,8552,"RPC",2040,0)
2132	ORWRP4 HDR MODIFY
2133	"KRN",19,8552,"RPC",2041,0)
2134	ORWDX1 STCHANGE
2135	"KRN",19,8552,"RPC",2042,0)
2136	ORWDX1 DCREN
2137	"KRN",19,8552,"RPC",2043,0)
2138	ORQQPXRM MHV
2139	"KRN",19,8552,"RPC",2044,0)
2140	ORWGRPC GETSIZE
2141	"KRN",19,8552,"RPC",2045,0)
2142	ORWGRPC SETSIZE
2143	"KRN",19,8552,"RPC",2046,0)
2144	GMV LOCATION SELECT
2145	"KRN",19,8552,"RPC",2047,0)
2146	ORWCIRN AUTORDV
2147	"KRN",19,8552,"RPC",2048,0)
2148	ORPRF TRIGGER POPUP
2149	"KRN",19,8552,"RPC",2049,0)
2150	ORWCIRN HDRON
2151	"KRN",19,8552,"RPC",2050,0)
2152	MAG4 REMOTE IMPORT
2153	"KRN",19,8552,"RPC",2051,0)
2154	ORWPT ENHANCED PATLOOKUP
2155	"KRN",19,8552,"RPC",2052,0)
2156	ORWPT OTHER-RADIOBUTTONS
2157	"KRN",19,8552,"RPC",2053,0)
2158	TMG ADD PATIENT
2159	"KRN",19,8552,"RPC",2054,0)
2160	TMG AUTOSIGN TIU DOCUMENT
2161	"KRN",19,8552,"RPC",2055,0)
2162	TMG BARCODE DECODE
2163	"KRN",19,8552,"RPC",2056,0)
2164	TMG BARCODE ENCODE
2165	"KRN",19,8552,"RPC",2057,0)
2166	TMG DOWNLOAD FILE
2167	"KRN",19,8552,"RPC",2058,0)
2168	TMG DOWNLOAD FILE DROPBOX
2169	"KRN",19,8552,"RPC",2059,0)
2170	TMG GET BLANK TIU DOCUMENT
2171	"KRN",19,8552,"RPC",2060,0)
2172	TMG GET DFN
2173	"KRN",19,8552,"RPC",2061,0)
2174	TMG GET IMAGE LONG DESCRIPTION
2175	"KRN",19,8552,"RPC",2062,0)
2176	TMG GET PATIENT DEMOGRAPHICS
2177	"KRN",19,8552,"RPC",2063,0)
2178	TMG SET PATIENT DEMOGRAPHICS
2179	"KRN",19,8552,"RPC",2064,0)
2180	TMG UPLOAD FILE
2181	"KRN",19,8552,"RPC",2065,0)
2182	TMG UPLOAD FILE DROPBOX
2183	"KRN",19,8552,"RPC",2066,0)
2184	TMG CPRS GET URL LIST
2185	"KRN",19,8552,"RPC",2067,0)
2186	MAG3 CPRS TIU NOTE
2187	"KRN",19,8552,"RPC",2068,0)
2188	MAG3 TIU IMAGE
2189	"KRN",19,8552,"RPC",2069,0)
2190	MAGGADDIMAGE
2191	"KRN",19,8552,"RPC",2070,0)
2192	TMG INIFILE GET
2193	"KRN",19,8552,"RPC",2071,0)
2194	TMG INIFILE SET
2195	"KRN",19,8552,"U")
2196	CPRSCHART VERSION 1.0.26.69
2197	"KRN",8994,2381,-1)
2198	0^6
2199	"KRN",8994,2381,0)
2200	TMG DOWNLOAD FILE^DOWNLOAD^TMGRPC1^4^P^^^1^.5
2201	"KRN",8994,2381,1,0)
2202	^^5^5^3050926^^
2203	"KRN",8994,2381,1,1,0)
2204	This RPC will be for requesting a file from the server.
2205	"KRN",8994,2381,1,2,0)
2206
2207	"KRN",8994,2381,1,3,0)
2208	By tunneling file transfer through the RPCBroker, it allows the server to
2209	"KRN",8994,2381,1,4,0)
2210	control access to files. And it negates need to set up an independant ftp
2211	"KRN",8994,2381,1,5,0)
2212	or filesystem server etc.
2213	"KRN",8994,2381,2,0)
2214	^8994.02A^2^2
2215	"KRN",8994,2381,2,1,0)
2216	FNAME^1^256^1^2
2217	"KRN",8994,2381,2,1,1,0)
2218	^^8^8^3050902^^
2219	"KRN",8994,2381,2,1,1,1,0)
2220	This should be the filename of the requested file. This needs to be in a
2221	"KRN",8994,2381,2,1,1,2,0)
2222	format that can be passed to the host filesystem.
2223	"KRN",8994,2381,2,1,1,3,0)
2224
2225	"KRN",8994,2381,2,1,1,4,0)
2226	This should be only the filename (not including the path)
2227	"KRN",8994,2381,2,1,1,5,0)
2228
2229	"KRN",8994,2381,2,1,1,6,0)
2230	For my implementation, I am planning for the server to pass a list of
2231	"KRN",8994,2381,2,1,1,7,0)
2232	available files to the client. The client can then pass these back one at
2233	"KRN",8994,2381,2,1,1,8,0)
2234	a time to get the actual file.
2235	"KRN",8994,2381,2,2,0)
2236	FPATH^1^256^1^1
2237	"KRN",8994,2381,2,2,1,0)
2238	^^2^2^3050926^^
2239	"KRN",8994,2381,2,2,1,1,0)
2240	This should be the path up to, but not including, the filename, of the file
2241	"KRN",8994,2381,2,2,1,2,0)
2242	to be requested from the server.
2243	"KRN",8994,2381,2,"B","FNAME",1)
2244
2245	"KRN",8994,2381,2,"B","FPATH",2)
2246
2247	"KRN",8994,2381,2,"PARAMSEQ",1,2)
2248
2249	"KRN",8994,2381,2,"PARAMSEQ",2,1)
2250
2251	"KRN",8994,2381,3,0)
2252	^8994.03^19^19^3050926^^^
2253	"KRN",8994,2381,3,1,0)
2254	The return value will be an array, with each node containing 512
2255	"KRN",8994,2381,3,2,0)
2256	bytes, encoded for ASCII transfer with a Base64 formula (an improvement
2257	"KRN",8994,2381,3,3,0)
2258	on UUENCODE functions)
2259	"KRN",8994,2381,3,4,0)
2260
2261	"KRN",8994,2381,3,5,0)
2262	GREF(0)=1 <---- 1=valid 0=invalid (failure of load)
2263	"KRN",8994,2381,3,6,0)
2264	GREF(1)=";lakjsdasvoin;lkj32409u234,mnsdfoi239483....."
2265	"KRN",8994,2381,3,7,0)
2266	GREF(2)="987sdf,n09xc,/knm6flkhdgjkhsdo4ioidk,sdf....."
2267	"KRN",8994,2381,3,8,0)
2268	GREF(3)="asdoi,xmnsdkh98xd,.m3ddbdsgkhsdf=cxjkdgm ....."
2269	"KRN",8994,2381,3,9,0)
2270	...
2271	"KRN",8994,2381,3,10,0)
2272
2273	"KRN",8994,2381,3,11,0)
2274	Note: Here I am showing random ascii characters. But in actuality, each
2275	"KRN",8994,2381,3,12,0)
2276	position will hold only those characters used in the Base64 method.
2277	"KRN",8994,2381,3,13,0)
2278
2279	"KRN",8994,2381,3,14,0)
2280	On the client RPCBroker end, the result will be stored in a TStringList,
2281	"KRN",8994,2381,3,15,0)
2282	with each line being stored in a separate index (i.e. Strings[i])
2283	"KRN",8994,2381,3,16,0)
2284
2285	"KRN",8994,2381,3,17,0)
2286	Notice that when saving on the client side, the zero node,GREF(0), is NOT
2287	"KRN",8994,2381,3,18,0)
2288	part of the file, and should be discarded or otherwise not included in the
2289	"KRN",8994,2381,3,19,0)
2290	save.
2291	"KRN",8994,2382,-1)
2292	0^15
2293	"KRN",8994,2382,0)
2294	TMG UPLOAD FILE^UPLOAD^TMGRPC1^1^P^^^1^.1
2295	"KRN",8994,2382,1,0)
2296	^8994.01^2^2^3050928^^^
2297	"KRN",8994,2382,1,1,0)
2298	This function will accept a binary file uploaded to the server, encoded in a
2299	"KRN",8994,2382,1,2,0)
2300	BASE64 ascii encoding format.
2301	"KRN",8994,2382,2,0)
2302	^8994.02A^4^4
2303	"KRN",8994,2382,2,1,0)
2304	FPATH^1^1024^1^1
2305	"KRN",8994,2382,2,1,1,0)
2306	^8994.021^14^14^3050928^^^^
2307	"KRN",8994,2382,2,1,1,1,0)
2308	This is the path to store the file into. Note that the server will store
2309	"KRN",8994,2382,2,1,1,2,0)
2310	all files relative to an internal (hidden) directory. Thus if the storage
2311	"KRN",8994,2382,2,1,1,3,0)
2312	location is specified to be:
2313	"KRN",8994,2382,2,1,1,4,0)
2314	/ZZ1/002/IMAGE0001.JPG
2315	"KRN",8994,2382,2,1,1,5,0)
2316
2317	"KRN",8994,2382,2,1,1,6,0)
2318	then the actual storage location might actually be:
2319	"KRN",8994,2382,2,1,1,7,0)
2320
2321	"KRN",8994,2382,2,1,1,8,0)
2322	/var/local/images/storage/ZZ1/002/IMAGE0001.JPG
2323	"KRN",8994,2382,2,1,1,9,0)
2324
2325	"KRN",8994,2382,2,1,1,10,0)
2326	The internal (hidden) directory is stored in field #22700 (TMG PRIVATE
2327	"KRN",8994,2382,2,1,1,11,0)
2328	PHYSICAL REFERENCE) of file 2005.2 (NETWORK LOCATION)
2329	"KRN",8994,2382,2,1,1,12,0)
2330
2331	"KRN",8994,2382,2,1,1,13,0)
2332	Which record of the NETWORK LOCATION file to use is specified as in the input
2333	"KRN",8994,2382,2,1,1,14,0)
2334	parameter LOCIEN for this RPC Call (TMG UPLOAD FILE)
2335	"KRN",8994,2382,2,2,0)
2336	FNAME^1^1024^1^2
2337	"KRN",8994,2382,2,2,1,0)
2338	^^1^1^3050928^^
2339	"KRN",8994,2382,2,2,1,1,0)
2340	This is the name of the file to store. It should not include path elements.
2341	"KRN",8994,2382,2,3,0)
2342	LOCIEN^1^16^0^3
2343	"KRN",8994,2382,2,3,1,0)
2344	^^6^6^3050928^^
2345	"KRN",8994,2382,2,3,1,1,0)
2346	This is the record number (IEN) from file 2005.2 (NETWORK LOCATION) that the
2347	"KRN",8994,2382,2,3,1,2,0)
2348	file will be uploaded to.
2349	"KRN",8994,2382,2,3,1,3,0)
2350
2351	"KRN",8994,2382,2,3,1,4,0)
2352	This is required so that a relative root path can be obtained from custom
2353	"KRN",8994,2382,2,3,1,5,0)
2354	field 22700 (TMG PRIVATE PHYSICAL LOCATION). See also description of input
2355	"KRN",8994,2382,2,3,1,6,0)
2356	parameter FPATH.
2357	"KRN",8994,2382,2,4,0)
2358	ARRAY^2^^1^4
2359	"KRN",8994,2382,2,4,1,0)
2360	^^11^11^3050928^^
2361	"KRN",8994,2382,2,4,1,1,0)
2362	This will be the array to store the uploaded data into.
2363	"KRN",8994,2382,2,4,1,2,0)
2364	For example:
2365	"KRN",8994,2382,2,4,1,3,0)
2366
2367	"KRN",8994,2382,2,4,1,4,0)
2368	ARRAY(0)= "(ascii encoude data in BASE64 format)"
2369	"KRN",8994,2382,2,4,1,5,0)
2370	ARRAY(0)= "(ascii encoude data in BASE64 format)"
2371	"KRN",8994,2382,2,4,1,6,0)
2372	ARRAY(1)= "(ascii encoude data in BASE64 format)"
2373	"KRN",8994,2382,2,4,1,7,0)
2374	ARRAY(2)= "(ascii encoude data in BASE64 format)"
2375	"KRN",8994,2382,2,4,1,8,0)
2376	ARRAY(3)= "(ascii encoude data in BASE64 format)"
2377	"KRN",8994,2382,2,4,1,9,0)
2378	ARRAY(4)= "(ascii encoude data in BASE64 format)"
2379	"KRN",8994,2382,2,4,1,10,0)
2380	ARRAY(5)= "(ascii encoude data in BASE64 format)"
2381	"KRN",8994,2382,2,4,1,11,0)
2382	ARRAY(6)= "(ascii encoude data in BASE64 format)"
2383	"KRN",8994,2382,2,"B","ARRAY",4)
2384
2385	"KRN",8994,2382,2,"B","FNAME",2)
2386
2387	"KRN",8994,2382,2,"B","FPATH",1)
2388
2389	"KRN",8994,2382,2,"B","LOCIEN",3)
2390
2391	"KRN",8994,2382,2,"PARAMSEQ",1,1)
2392
2393	"KRN",8994,2382,2,"PARAMSEQ",2,2)
2394
2395	"KRN",8994,2382,2,"PARAMSEQ",3,3)
2396
2397	"KRN",8994,2382,2,"PARAMSEQ",4,4)
2398
2399	"KRN",8994,2383,-1)
2400	0^10
2401	"KRN",8994,2383,0)
2402	TMG GET IMAGE LONG DESCRIPTION^GETLONG^TMGRPC1^4^P^^^1^1
2403	"KRN",8994,2383,1,0)
2404	^8994.01^2^2^3051016^^^
2405	"KRN",8994,2383,1,1,0)
2406	This RPC will return the LONG DESCRIPTION (field 11) from specified record
2407	"KRN",8994,2383,1,2,0)
2408	in IMAGE file.
2409	"KRN",8994,2383,2,0)
2410	^8994.02A^1^1
2411	"KRN",8994,2383,2,1,0)
2412	IMAGEIEN^1^6^1^1
2413	"KRN",8994,2383,2,1,1,0)
2414	^8994.021^3^3^3051016^^^
2415	"KRN",8994,2383,2,1,1,1,0)
2416	This value should be the IEN for the record in question, from file IMAGE
2417	"KRN",8994,2383,2,1,1,2,0)
2418	(file 2005). If IEN references a non-existing record, then empty result
2419	"KRN",8994,2383,2,1,1,3,0)
2420	will be returned.
2421	"KRN",8994,2383,2,"B","IMAGEIEN",1)
2422
2423	"KRN",8994,2383,2,"PARAMSEQ",1,1)
2424
2425	"KRN",8994,2383,3,0)
2426	^^18^18^3051016^^
2427	"KRN",8994,2383,3,1,0)
2428	This will return the results from the WP field, number 11 (LONG DESCRIPTION)
2429	"KRN",8994,2383,3,2,0)
2430	from the IMAGE file (2005)
2431	"KRN",8994,2383,3,3,0)
2432
2433	"KRN",8994,2383,3,4,0)
2434	The return format will be as follows:
2435	"KRN",8994,2383,3,5,0)
2436	Array(0)=WP header line. Format is: ^^MaxLine^MaxLine^FMDate/TimeStamp
2437	"KRN",8994,2383,3,6,0)
2438	Array(1)=WP Line 1
2439	"KRN",8994,2383,3,7,0)
2440	Array(2)=WP LIne 2
2441	"KRN",8994,2383,3,8,0)
2442	... etc.
2443	"KRN",8994,2383,3,9,0)
2444
2445	"KRN",8994,2383,3,10,0)
2446	In client, these results could be accesible as follows:
2447	"KRN",8994,2383,3,11,0)
2448
2449	"KRN",8994,2383,3,12,0)
2450	RPCBroker.Results[0]=WP Header Line
2451	"KRN",8994,2383,3,13,0)
2452	RPCBroker.Results[1]=WP Line 1
2453	"KRN",8994,2383,3,14,0)
2454	RPCBroker.Results[2]=WP Line 2
2455	"KRN",8994,2383,3,15,0)
2456	... etc.
2457	"KRN",8994,2383,3,16,0)
2458
2459	"KRN",8994,2383,3,17,0)
2460	If there is no value for field 11, result will be:
2461	"KRN",8994,2383,3,18,0)
2462	Array(0)=""
2463	"KRN",8994,2384,-1)
2464	0^9
2465	"KRN",8994,2384,0)
2466	TMG GET DFN^GETDFN^TMGRPC1^1^P^0^^1^1
2467	"KRN",8994,2384,1,0)
2468	^8994.01^2^2^3070725^^^^
2469	"KRN",8994,2384,1,1,0)
2470	Used by CPRS customization for looking up a patient, and returning
2471	"KRN",8994,2384,1,2,0)
2472	the DFN (IEN in PATIENT file).
2473	"KRN",8994,2384,2,0)
2474	^8994.02A^9^9
2475	"KRN",8994,2384,2,1,0)
2476	RECNUM^1^64^0^1
2477	"KRN",8994,2384,2,1,1,0)
2478	^^2^2^3070725^^
2479	"KRN",8994,2384,2,1,1,1,0)
2480	This parameter is for a chart or account number in an independent PMS.
2481	"KRN",8994,2384,2,1,1,2,0)
2482	Optional parameter.
2483	"KRN",8994,2384,2,2,0)
2484	PMS^1^16^0^2
2485	"KRN",8994,2384,2,2,1,0)
2486	^^12^12^3070725^^
2487	"KRN",8994,2384,2,2,1,1,0)
2488	This is a number indicating which PMS that the RECNUM parameter
2489	"KRN",8994,2384,2,2,1,2,0)
2490	refers to.
2491	"KRN",8994,2384,2,2,1,3,0)
2492
2493	"KRN",8994,2384,2,2,1,4,0)
2494	Example inputs:
2495	"KRN",8994,2384,2,2,1,5,0)
2496	1 <-- for TMG MEDIC ACCOUNT NUMBER
2497	"KRN",8994,2384,2,2,1,6,0)
2498	2 <-- for SEQUEL ACCOUNT NUMBER
2499	"KRN",8994,2384,2,2,1,7,0)
2500
2501	"KRN",8994,2384,2,2,1,8,0)
2502	Note: This is an 'optional' parameter, BUT if RECNUM parameter is supplied,
2503	"KRN",8994,2384,2,2,1,9,0)
2504	then this parameter must also be supplied, otherwise RecNum will be ignored.
2505	"KRN",8994,2384,2,2,1,10,0)
2506
2507	"KRN",8994,2384,2,2,1,11,0)
2508	Note: Dealing with these numbers is hard coded into the RPC server code,
2509	"KRN",8994,2384,2,2,1,12,0)
2510	and adding additional PMS support must be coded into the calls.
2511	"KRN",8994,2384,2,3,0)
2512	LNAME^1^64^^3
2513	"KRN",8994,2384,2,3,1,0)
2514	^^1^1^3070725^^
2515	"KRN",8994,2384,2,3,1,1,0)
2516	This is the patient's last name (i.e. family name)
2517	"KRN",8994,2384,2,4,0)
2518	FNAME^1^64^^4
2519	"KRN",8994,2384,2,4,1,0)
2520	^^1^1^3070725^^
2521	"KRN",8994,2384,2,4,1,1,0)
2522	This is the patient's first (given) name.
2523	"KRN",8994,2384,2,5,0)
2524	MNAME^1^64^^5
2525	"KRN",8994,2384,2,5,1,0)
2526	^^1^1^3070725^^
2527	"KRN",8994,2384,2,5,1,1,0)
2528	This is the patient's middle name, OR middle initial.
2529	"KRN",8994,2384,2,6,0)
2530	DOB^1^32^^6
2531	"KRN",8994,2384,2,6,1,0)
2532	^^2^2^3070725^^
2533	"KRN",8994,2384,2,6,1,1,0)
2534	This is the patient's date of birth, in EXTERNAL (i.e.
2535	"KRN",8994,2384,2,6,1,2,0)
2536	user supplied) format.
2537	"KRN",8994,2384,2,7,0)
2538	SEX^1^1^^7
2539	"KRN",8994,2384,2,7,1,0)
2540	^^3^3^3070725^^
2541	"KRN",8994,2384,2,7,1,1,0)
2542	This is the patient's sex. Should be:
2543	"KRN",8994,2384,2,7,1,2,0)
2544	M for male
2545	"KRN",8994,2384,2,7,1,3,0)
2546	F for female
2547	"KRN",8994,2384,2,8,0)
2548	SSNUM^1^9^^8
2549	"KRN",8994,2384,2,8,1,0)
2550	^^6^6^3070725^^
2551	"KRN",8994,2384,2,8,1,1,0)
2552	This is the patient's Social Security Number (SS Num)
2553	"KRN",8994,2384,2,8,1,2,0)
2554	Should NOT include dashes.
2555	"KRN",8994,2384,2,8,1,3,0)
2556
2557	"KRN",8994,2384,2,8,1,4,0)
2558	Example:
2559	"KRN",8994,2384,2,8,1,5,0)
2560	123456789
2561	"KRN",8994,2384,2,8,1,6,0)
2562	NOT: 123-45-6789
2563	"KRN",8994,2384,2,9,0)
2564	AUTOADD^1^1^^9
2565	"KRN",8994,2384,2,9,1,0)
2566	^^6^6^3070725^^
2567	"KRN",8994,2384,2,9,1,1,0)
2568	If this parameter value is 1, then patient will be automatically
2569	"KRN",8994,2384,2,9,1,2,0)
2570	registered if they are not found during lookup.
2571	"KRN",8994,2384,2,9,1,3,0)
2572
2573	"KRN",8994,2384,2,9,1,4,0)
2574	Examples:
2575	"KRN",8994,2384,2,9,1,5,0)
2576	1 <-- auto add if not found
2577	"KRN",8994,2384,2,9,1,6,0)
2578	0 <-- don't auto add (default value)
2579	"KRN",8994,2384,2,"B","AUTOADD",9)
2580
2581	"KRN",8994,2384,2,"B","DOB",6)
2582
2583	"KRN",8994,2384,2,"B","FNAME",4)
2584
2585	"KRN",8994,2384,2,"B","LNAME",3)
2586
2587	"KRN",8994,2384,2,"B","MNAME",5)
2588
2589	"KRN",8994,2384,2,"B","PMS",2)
2590
2591	"KRN",8994,2384,2,"B","RECNUM",1)
2592
2593	"KRN",8994,2384,2,"B","SEX",7)
2594
2595	"KRN",8994,2384,2,"B","SSNUM",8)
2596
2597	"KRN",8994,2384,2,"PARAMSEQ",1,1)
2598
2599	"KRN",8994,2384,2,"PARAMSEQ",2,2)
2600
2601	"KRN",8994,2384,2,"PARAMSEQ",3,3)
2602
2603	"KRN",8994,2384,2,"PARAMSEQ",4,4)
2604
2605	"KRN",8994,2384,2,"PARAMSEQ",5,5)
2606
2607	"KRN",8994,2384,2,"PARAMSEQ",6,6)
2608
2609	"KRN",8994,2384,2,"PARAMSEQ",7,7)
2610
2611	"KRN",8994,2384,2,"PARAMSEQ",8,8)
2612
2613	"KRN",8994,2384,2,"PARAMSEQ",9,9)
2614
2615	"KRN",8994,2384,3,0)
2616	^8994.03^1^1^3070725^^^^
2617	"KRN",8994,2384,3,1,0)
2618	This will return the DFN (IEN in PATIENT file), or -1 if not found or error.
2619	"KRN",8994,2385,-1)
2620	0^8
2621	"KRN",8994,2385,0)
2622	TMG GET BLANK TIU DOCUMENT^BLANKTIU^TMGRPC1^1^P^0^^1^1
2623	"KRN",8994,2385,1,0)
2624	^8994.01^3^3^3070725^^
2625	"KRN",8994,2385,1,1,0)
2626	This RPC call will be used to create a new record in file 8925 (TIU DOCUMENT)
2627	"KRN",8994,2385,1,2,0)
2628	that can be used for other purposes.
2629	"KRN",8994,2385,1,3,0)
2630	Note: This will be an UNSIGNED document that will later need to be signed.
2631	"KRN",8994,2385,2,0)
2632	^8994.02A^5^5
2633	"KRN",8994,2385,2,1,0)
2634	DFN^1^16^1^1
2635	"KRN",8994,2385,2,1,1,0)
2636	^^2^2^3070725^^
2637	"KRN",8994,2385,2,1,1,1,0)
2638	This is the IEN in the PATIENT file. I.e. the record number of the patient
2639	"KRN",8994,2385,2,1,1,2,0)
2640	for which the note is being created.
2641	"KRN",8994,2385,2,2,0)
2642	PERSON^1^64^1^2
2643	"KRN",8994,2385,2,2,1,0)
2644	^^1^1^3070725^^
2645	"KRN",8994,2385,2,2,1,1,0)
2646	This is the name of the provider of record for the new document.
2647	"KRN",8994,2385,2,3,0)
2648	LOC^1^64^1^3
2649	"KRN",8994,2385,2,3,1,0)
2650	^^3^3^3070725^^
2651	"KRN",8994,2385,2,3,1,1,0)
2652	This is the location for the new document. Note this location should be the
2653	"KRN",8994,2385,2,3,1,2,0)
2654	name of a location named in the HOSPITAL LOCATION file (#44). That is, the
2655	"KRN",8994,2385,2,3,1,3,0)
2656	.01 field name, or perhaps the abbreviation for the location if defined.
2657	"KRN",8994,2385,2,4,0)
2658	DOS^1^32^1^4
2659	"KRN",8994,2385,2,4,1,0)
2660	^^1^1^3070725^^
2661	"KRN",8994,2385,2,4,1,1,0)
2662	This is the Date of Service for the new document.
2663	"KRN",8994,2385,2,5,0)
2664	TITLE^1^64^1^5
2665	"KRN",8994,2385,2,5,1,0)
2666	^^4^4^3070725^^
2667	"KRN",8994,2385,2,5,1,1,0)
2668	This is the title for the new note.
2669	"KRN",8994,2385,2,5,1,2,0)
2670	Note: This must be a title as defined in file 8925.1 (TIU DOCUMENT DEFINITION).
2671	"KRN",8994,2385,2,5,1,3,0)
2672	That is to say, the name of the .01 field, or perhaps any abbreviation
2673	"KRN",8994,2385,2,5,1,4,0)
2674	if defined.
2675	"KRN",8994,2385,2,"B","DFN",1)
2676
2677	"KRN",8994,2385,2,"B","DOS",4)
2678
2679	"KRN",8994,2385,2,"B","LOC",3)
2680
2681	"KRN",8994,2385,2,"B","PERSON",2)
2682
2683	"KRN",8994,2385,2,"B","TITLE",5)
2684
2685	"KRN",8994,2385,2,"PARAMSEQ",1,1)
2686
2687	"KRN",8994,2385,2,"PARAMSEQ",2,2)
2688
2689	"KRN",8994,2385,2,"PARAMSEQ",3,3)
2690
2691	"KRN",8994,2385,2,"PARAMSEQ",4,4)
2692
2693	"KRN",8994,2385,2,"PARAMSEQ",5,5)
2694
2695	"KRN",8994,2385,3,0)
2696	^^1^1^3070725^^
2697	"KRN",8994,2385,3,1,0)
2698	Returns the IEN (record number) of a new, blank note in file 8925
2699	"KRN",8994,2386,-1)
2700	0^2
2701	"KRN",8994,2386,0)
2702	TMG AUTOSIGN TIU DOCUMENT^AUTOSIGN^TMGRPC1^2^P^0^^1^1
2703	"KRN",8994,2386,1,0)
2704	^^2^2^3070730^^
2705	"KRN",8994,2386,1,1,0)
2706	This will allow the auto-signing of a document. It is designed to automatically
2707	"KRN",8994,2386,1,2,0)
2708	complete documents that are added to VistA via scanning.
2709	"KRN",8994,2386,2,0)
2710	^8994.02A^1^1
2711	"KRN",8994,2386,2,1,0)
2712	DOCIEN^1^16^1^1
2713	"KRN",8994,2386,2,1,1,0)
2714	^^1^1^3070730^^
2715	"KRN",8994,2386,2,1,1,1,0)
2716	This is the IEN (internal entry number) of the document to be signed.
2717	"KRN",8994,2386,2,"B","DOCIEN",1)
2718
2719	"KRN",8994,2386,2,"PARAMSEQ",1,1)
2720
2721	"KRN",8994,2386,3,0)
2722	^^3^3^3070730^^
2723	"KRN",8994,2386,3,1,0)
2724	Return value is an array.
2725	"KRN",8994,2386,3,2,0)
2726	Array(0)=1 if success, or -1 if failure.
2727	"KRN",8994,2386,3,3,0)
2728	Errors are returned in Array("DIERR")
2729	"KRN",8994,2387,-1)
2730	0^11
2731	"KRN",8994,2387,0)
2732	TMG GET PATIENT DEMOGRAPHICS^DFNINFO^TMGRPC1^2^P^^^1^1
2733	"KRN",8994,2387,1,0)
2734	^^2^2^3070923^^
2735	"KRN",8994,2387,1,1,0)
2736	This RPC calls returns patient demographic info in a formatted array.
2737	"KRN",8994,2387,1,2,0)
2738	See description of return parameter for details.
2739	"KRN",8994,2387,2,0)
2740	^8994.02A^1^1
2741	"KRN",8994,2387,2,1,0)
2742	DFN^1^^1^1
2743	"KRN",8994,2387,2,1,1,0)
2744	^^2^2^3070923^^
2745	"KRN",8994,2387,2,1,1,1,0)
2746	This is the IEN (internal entry number), aka record number,
2747	"KRN",8994,2387,2,1,1,2,0)
2748	of the patient to get the demographics for.
2749	"KRN",8994,2387,2,"B","DFN",1)
2750
2751	"KRN",8994,2387,2,"PARAMSEQ",1,1)
2752
2753	"KRN",8994,2387,3,0)
2754	^^49^49^3070923^^
2755	"KRN",8994,2387,3,1,0)
2756	;" The results are in format: KeyName=Value,
2757	"KRN",8994,2387,3,2,0)
2758	;" There is no set order these will appear.
2759	"KRN",8994,2387,3,3,0)
2760	;" Here are the KeyName names that will be provided.
2761	"KRN",8994,2387,3,4,0)
2762	;" If the record has no value, then value will be empty
2763	"KRN",8994,2387,3,5,0)
2764	;"
2765	"KRN",8994,2387,3,6,0)
2766	;" IEN=record#
2767	"KRN",8994,2387,3,7,0)
2768	;" COMBINED_NAME=
2769	"KRN",8994,2387,3,8,0)
2770	;" LNAME=
2771	"KRN",8994,2387,3,9,0)
2772	;" FNAME=
2773	"KRN",8994,2387,3,10,0)
2774	;" MNAME=
2775	"KRN",8994,2387,3,11,0)
2776	;" PREFIX=
2777	"KRN",8994,2387,3,12,0)
2778	;" SUFFIX=
2779	"KRN",8994,2387,3,13,0)
2780	;" DEGREE
2781	"KRN",8994,2387,3,14,0)
2782	;" DOB=
2783	"KRN",8994,2387,3,15,0)
2784	;" SEX=
2785	"KRN",8994,2387,3,16,0)
2786	;" SS_NUM=
2787	"KRN",8994,2387,3,17,0)
2788	;" ADDRESS_LINE_1=
2789	"KRN",8994,2387,3,18,0)
2790	;" ADDRESS_LINE_2=
2791	"KRN",8994,2387,3,19,0)
2792	;" ADDRESS_LINE_3=
2793	"KRN",8994,2387,3,20,0)
2794	;" CITY=
2795	"KRN",8994,2387,3,21,0)
2796	;" STATE=
2797	"KRN",8994,2387,3,22,0)
2798	;" ZIP4=
2799	"KRN",8994,2387,3,23,0)
2800	;" BAD_ADDRESS=
2801	"KRN",8994,2387,3,24,0)
2802	;" TEMP_ADDRESS_LINE_1=
2803	"KRN",8994,2387,3,25,0)
2804	;" TEMP_ADDRESS_LINE_2=
2805	"KRN",8994,2387,3,26,0)
2806	;" TEMP_ADDRESS_LINE_3=
2807	"KRN",8994,2387,3,27,0)
2808	;" TEMP_CITY=
2809	"KRN",8994,2387,3,28,0)
2810	;" TEMP_STATE=
2811	"KRN",8994,2387,3,29,0)
2812	;" TEMP_ZIP4=
2813	"KRN",8994,2387,3,30,0)
2814	;" TEMP_STARTING_DATE=
2815	"KRN",8994,2387,3,31,0)
2816	;" TEMP_ENDING_DATE=
2817	"KRN",8994,2387,3,32,0)
2818	;" TEMP_ADDRESS_ACTIVE=
2819	"KRN",8994,2387,3,33,0)
2820	;" CONF_ADDRESS_LINE_1=
2821	"KRN",8994,2387,3,34,0)
2822	;" CONF_ADDRESS_LINE_2=
2823	"KRN",8994,2387,3,35,0)
2824	;" CONF_ADDRESS_LINE_3=
2825	"KRN",8994,2387,3,36,0)
2826	;" CONF_CITY=
2827	"KRN",8994,2387,3,37,0)
2828	;" CONF_STATE=
2829	"KRN",8994,2387,3,38,0)
2830	;" CONF_ZIP4=
2831	"KRN",8994,2387,3,39,0)
2832	;" CONF_STARTING_DATE=
2833	"KRN",8994,2387,3,40,0)
2834	;" CONF_ENDING_DATE=
2835	"KRN",8994,2387,3,41,0)
2836	;" CONF_ADDRESS_ACTIVE=
2837	"KRN",8994,2387,3,42,0)
2838	;" PHONE_RESIDENCE=
2839	"KRN",8994,2387,3,43,0)
2840	;" PHONE_WORK=
2841	"KRN",8994,2387,3,44,0)
2842	;" PHONE_CELL=
2843	"KRN",8994,2387,3,45,0)
2844	;" PHONE_TEMP=
2845	"KRN",8994,2387,3,46,0)
2846
2847	"KRN",8994,2387,3,47,0)
2848	;"Note, for the following, there may be multiple entries. # is record number
2849	"KRN",8994,2387,3,48,0)
2850	;" ALIAS # NAME
2851	"KRN",8994,2387,3,49,0)
2852	;" ALIAS # SSN
2853	"KRN",8994,2388,-1)
2854	0^14
2855	"KRN",8994,2388,0)
2856	TMG SET PATIENT DEMOGRAPHICS^STPTINFO^TMGRPC1^1^P^^^1^1
2857	"KRN",8994,2388,1,0)
2858	^8994.01^1^1^3070926^^^
2859	"KRN",8994,2388,1,1,0)
2860	This RPC is for setting basic demographics info for a patient.
2861	"KRN",8994,2388,2,0)
2862	^8994.02A^2^2
2863	"KRN",8994,2388,2,1,0)
2864	DFN^1^^1^1
2865	"KRN",8994,2388,2,1,1,0)
2866	^^1^1^3070926^^
2867	"KRN",8994,2388,2,1,1,1,0)
2868	This DFN value is the IEN (internal entry number) of the patient in the PATIENT file.
2869	"KRN",8994,2388,2,2,0)
2870	INFO^2^^1^2
2871	"KRN",8994,2388,2,2,1,0)
2872	^^47^47^3070926^^
2873	"KRN",8994,2388,2,2,1,1,0)
2874	This will be the data to set for the specified patient.
2875	"KRN",8994,2388,2,2,1,2,0)
2876	Demographics are passed in a Key=Value format:
2877	"KRN",8994,2388,2,2,1,3,0)
2878
2879	"KRN",8994,2388,2,2,1,4,0)
2880	Here are the KeyName names that will be provided.
2881	"KRN",8994,2388,2,2,1,5,0)
2882	There is no set order these will appear.
2883	"KRN",8994,2388,2,2,1,6,0)
2884	If the record has no value, then value will be empty
2885	"KRN",8994,2388,2,2,1,7,0)
2886	If a record should be deleted, its value will be @
2887	"KRN",8994,2388,2,2,1,8,0)
2888	INFO("COMBINED_NAME")=
2889	"KRN",8994,2388,2,2,1,9,0)
2890	INFO("PREFIX")=
2891	"KRN",8994,2388,2,2,1,10,0)
2892	INFO("SUFFIX")=
2893	"KRN",8994,2388,2,2,1,11,0)
2894	INFO("DEGREE")=
2895	"KRN",8994,2388,2,2,1,12,0)
2896	INFO("DOB")=
2897	"KRN",8994,2388,2,2,1,13,0)
2898	INFO("SEX")=
2899	"KRN",8994,2388,2,2,1,14,0)
2900	INFO("SS_NUM")=
2901	"KRN",8994,2388,2,2,1,15,0)
2902	INFO("ADDRESS_LINE_1")=
2903	"KRN",8994,2388,2,2,1,16,0)
2904	INFO("ADDRESS_LINE_2")=
2905	"KRN",8994,2388,2,2,1,17,0)
2906	INFO("ADDRESS_LINE_3")=
2907	"KRN",8994,2388,2,2,1,18,0)
2908	INFO("CITY")=
2909	"KRN",8994,2388,2,2,1,19,0)
2910	INFO("STATE")=
2911	"KRN",8994,2388,2,2,1,20,0)
2912	INFO("ZIP4")=
2913	"KRN",8994,2388,2,2,1,21,0)
2914	INFO("BAD_ADDRESS")=
2915	"KRN",8994,2388,2,2,1,22,0)
2916	INFO("TEMP_ADDRESS_LINE_1")=
2917	"KRN",8994,2388,2,2,1,23,0)
2918	INFO("TEMP_ADDRESS_LINE_2")=
2919	"KRN",8994,2388,2,2,1,24,0)
2920	INFO("TEMP_ADDRESS_LINE_3")=
2921	"KRN",8994,2388,2,2,1,25,0)
2922	INFO("TEMP_CITY")=
2923	"KRN",8994,2388,2,2,1,26,0)
2924	INFO("TEMP_STATE")=
2925	"KRN",8994,2388,2,2,1,27,0)
2926	INFO("TEMP_ZIP4")=
2927	"KRN",8994,2388,2,2,1,28,0)
2928	INFO("TEMP_STARTING_DATE")=
2929	"KRN",8994,2388,2,2,1,29,0)
2930	INFO("TEMP_ENDING_DATE")=
2931	"KRN",8994,2388,2,2,1,30,0)
2932	INFO("TEMP_ADDRESS_ACTIVE")=
2933	"KRN",8994,2388,2,2,1,31,0)
2934	INFO("CONF_ADDRESS_LINE_1")=
2935	"KRN",8994,2388,2,2,1,32,0)
2936	INFO("CONF_ADDRESS_LINE_2")=
2937	"KRN",8994,2388,2,2,1,33,0)
2938	INFO("CONF_ADDRESS_LINE_3")=
2939	"KRN",8994,2388,2,2,1,34,0)
2940	INFO("CONF_CITY")=
2941	"KRN",8994,2388,2,2,1,35,0)
2942	INFO("CONF_STATE")=
2943	"KRN",8994,2388,2,2,1,36,0)
2944	INFO("CONF_ZIP4")=
2945	"KRN",8994,2388,2,2,1,37,0)
2946	INFO("CONF_STARTING_DATE")=
2947	"KRN",8994,2388,2,2,1,38,0)
2948	INFO("CONF_ENDING_DATE")=
2949	"KRN",8994,2388,2,2,1,39,0)
2950	INFO("CONF_ADDRESS_ACTIVE")=
2951	"KRN",8994,2388,2,2,1,40,0)
2952	INFO("PHONE_RESIDENCE")=
2953	"KRN",8994,2388,2,2,1,41,0)
2954	INFO("PHONE_WORK")=
2955	"KRN",8994,2388,2,2,1,42,0)
2956	INFO("PHONE_CELL")=
2957	"KRN",8994,2388,2,2,1,43,0)
2958	INFO("PHONE_TEMP")=
2959	"KRN",8994,2388,2,2,1,44,0)
2960	Note, for the following, there may be multiple entries. # is record number
2961	"KRN",8994,2388,2,2,1,45,0)
2962	If a record should be added, it will be marked +1, +2 etc.
2963	"KRN",8994,2388,2,2,1,46,0)
2964	INFO("ALIAS # NAME")=
2965	"KRN",8994,2388,2,2,1,47,0)
2966	INFO("ALIAS # SSN")=
2967	"KRN",8994,2388,2,"B","DFN",1)
2968
2969	"KRN",8994,2388,2,"B","INFO",2)
2970
2971	"KRN",8994,2388,2,"PARAMSEQ",1,1)
2972
2973	"KRN",8994,2388,2,"PARAMSEQ",2,2)
2974
2975	"KRN",8994,2388,3,0)
2976	^^4^4^3070926^^
2977	"KRN",8994,2388,3,1,0)
2978	Return value will be:
2979	"KRN",8994,2388,3,2,0)
2980	1 for success, or
2981	"KRN",8994,2388,3,3,0)
2982	-1^Message for failure
2983	"KRN",8994,2388,3,4,0)
2984
2985	"KRN",8994,2389,-1)
2986	0^1
2987	"KRN",8994,2389,0)
2988	TMG ADD PATIENT^PTADD^TMGRPC1^1^^^^1
2989	"KRN",8994,2389,1,0)
2990	^8994.01^1^1^3071010^^^^
2991	"KRN",8994,2389,1,1,0)
2992	This RPC is to add a patient.
2993	"KRN",8994,2389,2,0)
2994	^8994.02A^1^1
2995	"KRN",8994,2389,2,1,0)
2996	INFO^2^^1^1
2997	"KRN",8994,2389,2,1,1,0)
2998	^8994.021^12^12^3071010^^^^
2999	"KRN",8994,2389,2,1,1,1,0)
3000	;" INFO: Format as follows:
3001	"KRN",8994,2389,2,1,1,2,0)
3002	;" The results are in format: INFO("KeyName")=Value,
3003	"KRN",8994,2389,2,1,1,3,0)
3004	;" There is no set order these will appear.
3005	"KRN",8994,2389,2,1,1,4,0)
3006	;" Here are the KeyName names that will be provided.
3007	"KRN",8994,2389,2,1,1,5,0)
3008	;" If the record has no value, then value will be empty
3009	"KRN",8994,2389,2,1,1,6,0)
3010	;" If a record should be deleted, its value will be @
3011	"KRN",8994,2389,2,1,1,7,0)
3012	;" INFO("COMBINED_NAME")=
3013	"KRN",8994,2389,2,1,1,8,0)
3014	;" INFO("DOB")=
3015	"KRN",8994,2389,2,1,1,9,0)
3016	;" INFO("SEX")=
3017	"KRN",8994,2389,2,1,1,10,0)
3018	;" INFO("SS_NUM")=
3019	"KRN",8994,2389,2,1,1,11,0)
3020	;" INFO("Veteran")=
3021	"KRN",8994,2389,2,1,1,12,0)
3022	;" INFO("PtType")=
3023	"KRN",8994,2389,2,"B","INFO",1)
3024
3025	"KRN",8994,2389,2,"PARAMSEQ",1,1)
3026
3027	"KRN",8994,2389,3,0)
3028	^8994.03^3^3^3071010^^^
3029	"KRN",8994,2389,3,1,0)
3030	;"Results: Results passed back in RESULT string:
3031	"KRN",8994,2389,3,2,0)
3032	;" 1^DFN = success
3033	"KRN",8994,2389,3,3,0)
3034	;" -1^Message = failure
3035	"KRN",8994,2390,-1)
3036	0^4
3037	"KRN",8994,2390,0)
3038	TMG BARCODE ENCODE^GETBARCD^TMGRPC1^4^P^^^1^1
3039	"KRN",8994,2390,1,0)
3040	^^17^17^3071227^^
3041	"KRN",8994,2390,1,1,0)
3042	This RPC will be for requesting a barcode from the server.
3043	"KRN",8994,2390,1,2,0)
3044	This will return an image containing a DataMatrix 2D
3045	"KRN",8994,2390,1,3,0)
3046	barcode.
3047	"KRN",8994,2390,1,4,0)
3048
3049	"KRN",8994,2390,1,5,0)
3050	It is dependent on a command to be installed on the
3051	"KRN",8994,2390,1,6,0)
3052	linux host server: libdtmx which may be installed
3053	"KRN",8994,2390,1,7,0)
3054	from www.sourceforge.org. See comments in TMGBARC.m for
3055	"KRN",8994,2390,1,8,0)
3056	details.
3057	"KRN",8994,2390,1,9,0)
3058
3059	"KRN",8994,2390,1,10,0)
3060	If an image type of other than .png is desired then this
3061	"KRN",8994,2390,1,11,0)
3062	is dependent on "convert" utility being installed on the
3063	"KRN",8994,2390,1,12,0)
3064	linux host server. This is part of the linux ImageMagick
3065	"KRN",8994,2390,1,13,0)
3066	package.
3067	"KRN",8994,2390,1,14,0)
3068
3069	"KRN",8994,2390,1,15,0)
3070	It will return the barcode in ascii armour encoding, which
3071	"KRN",8994,2390,1,16,0)
3072	must be decoded on the client side. This functionality is
3073	"KRN",8994,2390,1,17,0)
3074	the same as used for TMG UPLOAD and TMG DOWNLOAD of images.
3075	"KRN",8994,2390,2,0)
3076	^8994.02A^2^2
3077	"KRN",8994,2390,2,1,0)
3078	MESSAGE^1^1024^1^1
3079	"KRN",8994,2390,2,1,1,0)
3080	^^12^12^3071221^^
3081	"KRN",8994,2390,2,1,1,1,0)
3082	This should be the message / text / numbers to be
3083	"KRN",8994,2390,2,1,1,2,0)
3084	encoded in the barcode.
3085	"KRN",8994,2390,2,1,1,3,0)
3086
3087	"KRN",8994,2390,2,1,1,4,0)
3088	I have not explored the limits of what type of chars
3089	"KRN",8994,2390,2,1,1,5,0)
3090	can be stored in the barcode. I think that it does
3091	"KRN",8994,2390,2,1,1,6,0)
3092	NOT allow extended chars or control chars.
3093	"KRN",8994,2390,2,1,1,7,0)
3094
3095	"KRN",8994,2390,2,1,1,8,0)
3096	I am also not sure of the allowed length. This can
3097	"KRN",8994,2390,2,1,1,9,0)
3098	be explored more later. With some bar code creators,
3099	"KRN",8994,2390,2,1,1,10,0)
3100	if the length exceeds the allowed chars for one 2D
3101	"KRN",8994,2390,2,1,1,11,0)
3102	square, then a second square is created beside the first
3103	"KRN",8994,2390,2,1,1,12,0)
3104	for the extra characters.
3105	"KRN",8994,2390,2,2,0)
3106	OPTION^2^^0^2
3107	"KRN",8994,2390,2,2,1,0)
3108	^^15^15^3071227^^
3109	"KRN",8994,2390,2,2,1,1,0)
3110	This array may contain options:
3111	"KRN",8994,2390,2,2,1,2,0)
3112
3113	"KRN",8994,2390,2,2,1,3,0)
3114	OPTION("IMAGE TYPE")=image type.
3115	"KRN",8994,2390,2,2,1,4,0)
3116
3117	"KRN",8994,2390,2,2,1,5,0)
3118	Example
3119	"KRN",8994,2390,2,2,1,6,0)
3120	OPTION("IMAGE TYPE")="jpg" <-- image returned in jpg format
3121	"KRN",8994,2390,2,2,1,7,0)
3122	or
3123	"KRN",8994,2390,2,2,1,8,0)
3124	OPTION("IMAGE TYPE")="tiff" <-- image returned in tiff format
3125	"KRN",8994,2390,2,2,1,9,0)
3126
3127	"KRN",8994,2390,2,2,1,10,0)
3128	Specified image type is NOT case sensitive.
3129	"KRN",8994,2390,2,2,1,11,0)
3130
3131	"KRN",8994,2390,2,2,1,12,0)
3132	Allowed image types is determined by ImageMagick utility
3133	"KRN",8994,2390,2,2,1,13,0)
3134	'convert' installed on host linux system.
3135	"KRN",8994,2390,2,2,1,14,0)
3136
3137	"KRN",8994,2390,2,2,1,15,0)
3138
3139	"KRN",8994,2390,2,"B","MESSAGE",1)
3140
3141	"KRN",8994,2390,2,"B","OPTION",2)
3142
3143	"KRN",8994,2390,2,"PARAMSEQ",1,1)
3144
3145	"KRN",8994,2390,2,"PARAMSEQ",2,2)
3146
3147	"KRN",8994,2390,3,0)
3148	^^23^23^3071227^^
3149	"KRN",8994,2390,3,1,0)
3150	By default, the returned image is the created barcode image in .png format.
3151	"KRN",8994,2390,3,2,0)
3152	See OPTION parameter regarding specifying other image formats.
3153	"KRN",8994,2390,3,3,0)
3154
3155	"KRN",8994,2390,3,4,0)
3156	Regarding the data transfer itself:
3157	"KRN",8994,2390,3,5,0)
3158	The return value will be an array, with each node containing 512
3159	"KRN",8994,2390,3,6,0)
3160	bytes, encoded for ASCII transfer with a Base64 formula (an improvement
3161	"KRN",8994,2390,3,7,0)
3162	on UUENCODE functions)
3163	"KRN",8994,2390,3,8,0)
3164
3165	"KRN",8994,2390,3,9,0)
3166	GREF(0)=1 <---- 1=valid 0=invalid (failure of load)
3167	"KRN",8994,2390,3,10,0)
3168	GREF(1)=";lakjsdasvoin;lkj32409u234,mnsdfoi239483....."
3169	"KRN",8994,2390,3,11,0)
3170	GREF(2)="987sdf,n09xc,/knm6flkhdgjkhsdo4ioidk,sdf....."
3171	"KRN",8994,2390,3,12,0)
3172	GREF(3)="asdoi,xmnsdkh98xd,.m3ddbdsgkhsdf=cxjkdgm ....."
3173	"KRN",8994,2390,3,13,0)
3174	...
3175	"KRN",8994,2390,3,14,0)
3176
3177	"KRN",8994,2390,3,15,0)
3178	Note: Here I am showing random ascii characters. But in actuality, each
3179	"KRN",8994,2390,3,16,0)
3180	position will hold only those characters used in the Base64 method.
3181	"KRN",8994,2390,3,17,0)
3182
3183	"KRN",8994,2390,3,18,0)
3184	On the client RPCBroker end, the result will be stored in a TStringList,
3185	"KRN",8994,2390,3,19,0)
3186	with each line being stored in a separate index (i.e. Strings[i])
3187	"KRN",8994,2390,3,20,0)
3188
3189	"KRN",8994,2390,3,21,0)
3190	Notice that when saving on the client side, the zero node,GREF(0), is NOT
3191	"KRN",8994,2390,3,22,0)
3192	part of the file, and should be discarded or otherwise not included in the
3193	"KRN",8994,2390,3,23,0)
3194	save.
3195	"KRN",8994,2391,-1)
3196	0^3
3197	"KRN",8994,2391,0)
3198	TMG BARCODE DECODE^DECODEBC^TMGRPC1^1^^^^1^1
3199	"KRN",8994,2391,1,0)
3200	^8994.01^5^5^3080102^^^^
3201	"KRN",8994,2391,1,1,0)
3202	This function will return the text encoded inside
3203	"KRN",8994,2391,1,2,0)
3204	barcode stored on an image that is uploaded to
3205	"KRN",8994,2391,1,3,0)
3206	function.
3207	"KRN",8994,2391,1,4,0)
3208
3209	"KRN",8994,2391,1,5,0)
3210	Barcode must be in DataMatrix format.
3211	"KRN",8994,2391,2,0)
3212	^8994.02A^2^2
3213	"KRN",8994,2391,2,1,0)
3214	ARRAY^2^^1^1
3215	"KRN",8994,2391,2,1,1,0)
3216	^^21^21^3071227^^
3217	"KRN",8994,2391,2,1,1,1,0)
3218	This will be used for uploading the image that contains
3219	"KRN",8994,2391,2,1,1,2,0)
3220	the barcode for decoding.
3221	"KRN",8994,2391,2,1,1,3,0)
3222
3223	"KRN",8994,2391,2,1,1,4,0)
3224	Default format for Image is a .png format. See OPTION
3225	"KRN",8994,2391,2,1,1,5,0)
3226	parameter for specifying Image to be in another format.
3227	"KRN",8994,2391,2,1,1,6,0)
3228
3229	"KRN",8994,2391,2,1,1,7,0)
3230	Barcode should be a DataMatrix barcode.
3231	"KRN",8994,2391,2,1,1,8,0)
3232
3233	"KRN",8994,2391,2,1,1,9,0)
3234	It is OK for the image to NOT contain a barcode. This
3235	"KRN",8994,2391,2,1,1,10,0)
3236	will cause a null value to be returned.
3237	"KRN",8994,2391,2,1,1,11,0)
3238
3239	"KRN",8994,2391,2,1,1,12,0)
3240	Array Format:
3241	"KRN",8994,2391,2,1,1,13,0)
3242	For example:
3243	"KRN",8994,2391,2,1,1,14,0)
3244	ARRAY(0)= "(ascii encoude data in BASE64 format)"
3245	"KRN",8994,2391,2,1,1,15,0)
3246	ARRAY(0)= "(ascii encoude data in BASE64 format)"
3247	"KRN",8994,2391,2,1,1,16,0)
3248	ARRAY(1)= "(ascii encoude data in BASE64 format)"
3249	"KRN",8994,2391,2,1,1,17,0)
3250	ARRAY(2)= "(ascii encoude data in BASE64 format)"
3251	"KRN",8994,2391,2,1,1,18,0)
3252	ARRAY(3)= "(ascii encoude data in BASE64 format)"
3253	"KRN",8994,2391,2,1,1,19,0)
3254	ARRAY(4)= "(ascii encoude data in BASE64 format)"
3255	"KRN",8994,2391,2,1,1,20,0)
3256	ARRAY(5)= "(ascii encoude data in BASE64 format)"
3257	"KRN",8994,2391,2,1,1,21,0)
3258	ARRAY(6)= "(ascii encoude data in BASE64 format)"
3259	"KRN",8994,2391,2,2,0)
3260	IMGTYPE^1^^1^2
3261	"KRN",8994,2391,2,2,1,0)
3262	^^10^10^3080102^^
3263	"KRN",8994,2391,2,2,1,1,0)
3264	This should be the type of the image held in ARRAY
3265	"KRN",8994,2391,2,2,1,2,0)
3266
3267	"KRN",8994,2391,2,2,1,3,0)
3268	e.g. "jpg", or "JPG", or "tif" etc.
3269	"KRN",8994,2391,2,2,1,4,0)
3270
3271	"KRN",8994,2391,2,2,1,5,0)
3272	NOTE: do not include the "." i.e. use "jpg", NOT ".jpg"
3273	"KRN",8994,2391,2,2,1,6,0)
3274
3275	"KRN",8994,2391,2,2,1,7,0)
3276	Specified image type is NOT case sensitive.
3277	"KRN",8994,2391,2,2,1,8,0)
3278
3279	"KRN",8994,2391,2,2,1,9,0)
3280	Allowed image types is determined by ImageMagick utility
3281	"KRN",8994,2391,2,2,1,10,0)
3282	'convert' installed on host linux system.
3283	"KRN",8994,2391,2,"B","ARRAY",1)
3284
3285	"KRN",8994,2391,2,"B","IMGTYPE",2)
3286
3287	"KRN",8994,2391,2,"PARAMSEQ",1,1)
3288
3289	"KRN",8994,2391,2,"PARAMSEQ",2,2)
3290
3291	"KRN",8994,2391,3,0)
3292	^8994.03^4^4^3080102^^^^
3293	"KRN",8994,2391,3,1,0)
3294	Value to be returned will be:
3295	"KRN",8994,2391,3,2,0)
3296
3297	"KRN",8994,2391,3,3,0)
3298	1^Decoded Message
3299	"KRN",8994,2391,3,4,0)
3300	0^Failure Message
3301	"KRN",8994,2392,-1)
3302	0^7
3303	"KRN",8994,2392,0)
3304	TMG DOWNLOAD FILE DROPBOX^DOWNDROP^TMGRPC1^1^^^^^1
3305	"KRN",8994,2392,1,0)
3306	^8994.01^3^3^3080131^^^
3307	"KRN",8994,2392,1,1,0)
3308	This will cause a file to be transferred from the server's
3309	"KRN",8994,2392,1,2,0)
3310	private file storage location into the drop box location.
3311	"KRN",8994,2392,1,3,0)
3312
3313	"KRN",8994,2392,2,0)
3314	^8994.02A^3^3
3315	"KRN",8994,2392,2,1,0)
3316	FPATH^1^128^1^1
3317	"KRN",8994,2392,2,1,1,0)
3318	^^26^26^3080131^^
3319	"KRN",8994,2392,2,1,1,1,0)
3320	The file path up to, but not including, the filename. This
3321	"KRN",8994,2392,2,1,1,2,0)
3322	is the path that the file is stored at on the server, relative
3323	"KRN",8994,2392,2,1,1,3,0)
3324	to a private server path.
3325	"KRN",8994,2392,2,1,1,4,0)
3326
3327	"KRN",8994,2392,2,1,1,5,0)
3328	It is NOT the location of the dropbox path. (That is stored in
3329	"KRN",8994,2392,2,1,1,6,0)
3330	field 22702 in file 2005.2)
3331	"KRN",8994,2392,2,1,1,7,0)
3332
3333	"KRN",8994,2392,2,1,1,8,0)
3334	For security reasons, all path requests will be considered relative to a root path.
3335	"KRN",8994,2392,2,1,1,9,0)
3336	e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
3337	"KRN",8994,2392,2,1,1,10,0)
3338	/var/local/Dir1/Dir2/download/SomeFile.jpg
3339	"KRN",8994,2392,2,1,1,11,0)
3340
3341	"KRN",8994,2392,2,1,1,12,0)
3342	This root path is found in custom field 22701 in file 2005.2
3343	"KRN",8994,2392,2,1,1,13,0)
3344	Note Also: dropbox location is obtained from custom field 22702 in file 2005.2
3345	"KRN",8994,2392,2,1,1,14,0)
3346
3347	"KRN",8994,2392,2,1,1,15,0)
3348	So for input:
3349	"KRN",8994,2392,2,1,1,16,0)
3350	FPATH = /download/
3351	"KRN",8994,2392,2,1,1,17,0)
3352	FNAME = SomeFile.jpg
3353	"KRN",8994,2392,2,1,1,18,0)
3354
3355	"KRN",8994,2392,2,1,1,19,0)
3356	And configurations:
3357	"KRN",8994,2392,2,1,1,20,0)
3358	field 22701 = /var/local/Dir1/Dir2
3359	"KRN",8994,2392,2,1,1,21,0)
3360	field 22702 = /mnt/WinServer/DropBox/
3361	"KRN",8994,2392,2,1,1,22,0)
3362
3363	"KRN",8994,2392,2,1,1,23,0)
3364	Then file:
3365	"KRN",8994,2392,2,1,1,24,0)
3366	/var/local/Dir1/dir2/download/SomeFile.jpg
3367	"KRN",8994,2392,2,1,1,25,0)
3368	will be moved to
3369	"KRN",8994,2392,2,1,1,26,0)
3370	/mnt/WinServer/DropBox/SomeFile.jpg
3371	"KRN",8994,2392,2,2,0)
3372	FNAME^1^128^1^2
3373	"KRN",8994,2392,2,2,1,0)
3374	^8994.021^3^3^3080131^^^
3375	"KRN",8994,2392,2,2,1,1,0)
3376	This is the filename to be transferred, without any path
3377	"KRN",8994,2392,2,2,1,2,0)
3378	specifications.
3379	"KRN",8994,2392,2,2,1,3,0)
3380	See help for FNAME parameter for more details.
3381	"KRN",8994,2392,2,3,0)
3382	LOCIEN^1^16^0^3
3383	"KRN",8994,2392,2,3,1,0)
3384	^8994.021^13^13^3080131^^^
3385	"KRN",8994,2392,2,3,1,1,0)
3386	[optional] --
3387	"KRN",8994,2392,2,3,1,2,0)
3388
3389	"KRN",8994,2392,2,3,1,3,0)
3390	This is the IEN from file 2005.2 (network location) to obtain
3391	"KRN",8994,2392,2,3,1,4,0)
3392	folder path and drive information from.
3393	"KRN",8994,2392,2,3,1,5,0)
3394
3395	"KRN",8994,2392,2,3,1,6,0)
3396	Default value is 1
3397	"KRN",8994,2392,2,3,1,7,0)
3398
3399	"KRN",8994,2392,2,3,1,8,0)
3400	Note: For security reasons, all path requests will be considered relative to a root path.
3401	"KRN",8994,2392,2,3,1,9,0)
3402	e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
3403	"KRN",8994,2392,2,3,1,10,0)
3404	/var/local/Dir1/Dir2/download/SomeFile.jpg
3405	"KRN",8994,2392,2,3,1,11,0)
3406	This root path is found in custom field 22701 in file 2005.2
3407	"KRN",8994,2392,2,3,1,12,0)
3408	Also: dropbox location is obtained from custom field 22702 in file 2005.2
3409	"KRN",8994,2392,2,3,1,13,0)
3410
3411	"KRN",8994,2392,2,"B","FNAME",2)
3412
3413	"KRN",8994,2392,2,"B","FPATH",1)
3414
3415	"KRN",8994,2392,2,"B","LOCIEN",3)
3416
3417	"KRN",8994,2392,2,"PARAMSEQ",1,1)
3418
3419	"KRN",8994,2392,2,"PARAMSEQ",2,2)
3420
3421	"KRN",8994,2392,2,"PARAMSEQ",3,3)
3422
3423	"KRN",8994,2392,3,0)
3424	^8994.03^5^5^3080131^^^^
3425	"KRN",8994,2392,3,1,0)
3426	Returns:
3427	"KRN",8994,2392,3,2,0)
3428	1^Successful Download <-- file is ready in dropbox
3429	"KRN",8994,2392,3,3,0)
3430	or
3431	"KRN",8994,2392,3,4,0)
3432	0^Error message
3433	"KRN",8994,2392,3,5,0)
3434
3435	"KRN",8994,2393,-1)
3436	0^16
3437	"KRN",8994,2393,0)
3438	TMG UPLOAD FILE DROPBOX^UPLDDROP^TMGRPC1^1^^^^^1
3439	"KRN",8994,2393,1,0)
3440	^8994.01^3^3^3080131^^^
3441	"KRN",8994,2393,1,1,0)
3442	This will cause a file to be transferred from the drop box
3443	"KRN",8994,2393,1,2,0)
3444	location into the server's private file storage location.
3445	"KRN",8994,2393,1,3,0)
3446
3447	"KRN",8994,2393,2,0)
3448	^8994.02A^3^3
3449	"KRN",8994,2393,2,1,0)
3450	FPATH^1^128^1^1
3451	"KRN",8994,2393,2,1,1,0)
3452	^^29^29^3080131^^
3453	"KRN",8994,2393,2,1,1,1,0)
3454	The file path up to, but not including, the filename.
3455	"KRN",8994,2393,2,1,1,2,0)
3456
3457	"KRN",8994,2393,2,1,1,3,0)
3458	This is the path that the server is to store the file in,
3459	"KRN",8994,2393,2,1,1,4,0)
3460	relative to a private server path.
3461	"KRN",8994,2393,2,1,1,5,0)
3462	It is NOT the location of the dropbox path. (That is stored in
3463	"KRN",8994,2393,2,1,1,6,0)
3464	field 22702 in file 2005.2)
3465	"KRN",8994,2393,2,1,1,7,0)
3466
3467	"KRN",8994,2393,2,1,1,8,0)
3468	For security reasons, all path requests will be considered
3469	"KRN",8994,2393,2,1,1,9,0)
3470	relative to a root path.
3471	"KRN",8994,2393,2,1,1,10,0)
3472	e.g. if user asks to store at /download/SomeFile.jpg, this
3473	"KRN",8994,2393,2,1,1,11,0)
3474	function will store the file at:
3475	"KRN",8994,2393,2,1,1,12,0)
3476	/var/local/Dir1/Dir2/download/SomeFile.jpg
3477	"KRN",8994,2393,2,1,1,13,0)
3478
3479	"KRN",8994,2393,2,1,1,14,0)
3480	This root path is found in custom field 22701 in file 2005.2
3481	"KRN",8994,2393,2,1,1,15,0)
3482	Note Also: dropbox location is obtained from custom field 22702 in file 2005.2
3483	"KRN",8994,2393,2,1,1,16,0)
3484
3485	"KRN",8994,2393,2,1,1,17,0)
3486	So for input:
3487	"KRN",8994,2393,2,1,1,18,0)
3488	FPATH = /download/
3489	"KRN",8994,2393,2,1,1,19,0)
3490	FNAME = SomeFile.jpg
3491	"KRN",8994,2393,2,1,1,20,0)
3492
3493	"KRN",8994,2393,2,1,1,21,0)
3494	And configurations:
3495	"KRN",8994,2393,2,1,1,22,0)
3496	field 22701 = /var/local/Dir1/Dir2
3497	"KRN",8994,2393,2,1,1,23,0)
3498	field 22702 = /mnt/WinServer/DropBox/
3499	"KRN",8994,2393,2,1,1,24,0)
3500
3501	"KRN",8994,2393,2,1,1,25,0)
3502
3503	"KRN",8994,2393,2,1,1,26,0)
3504	Then file:
3505	"KRN",8994,2393,2,1,1,27,0)
3506	/mnt/WinServer/DropBox/SomeFile.jpg <-- the drop box
3507	"KRN",8994,2393,2,1,1,28,0)
3508	will be moved to
3509	"KRN",8994,2393,2,1,1,29,0)
3510	/var/local/Dir1/dir2/download/SomeFile.jpg <--- the private store location
3511	"KRN",8994,2393,2,2,0)
3512	FNAME^1^128^1^2
3513	"KRN",8994,2393,2,2,1,0)
3514	^^4^4^3080131^^
3515	"KRN",8994,2393,2,2,1,1,0)
3516	This is the filename to be transferred, without any path
3517	"KRN",8994,2393,2,2,1,2,0)
3518	specifications.
3519	"KRN",8994,2393,2,2,1,3,0)
3520
3521	"KRN",8994,2393,2,2,1,4,0)
3522	See help for FNAME parameter for more details.
3523	"KRN",8994,2393,2,3,0)
3524	LOCIEN^1^16^0^3
3525	"KRN",8994,2393,2,3,1,0)
3526	^8994.021^12^12^3080131^^^
3527	"KRN",8994,2393,2,3,1,1,0)
3528	[optional] --
3529	"KRN",8994,2393,2,3,1,2,0)
3530
3531	"KRN",8994,2393,2,3,1,3,0)
3532	This is the IEN from file 2005.2 (network location) to obtain
3533	"KRN",8994,2393,2,3,1,4,0)
3534	folder path and drive information from.
3535	"KRN",8994,2393,2,3,1,5,0)
3536
3537	"KRN",8994,2393,2,3,1,6,0)
3538	Default value is 1
3539	"KRN",8994,2393,2,3,1,7,0)
3540
3541	"KRN",8994,2393,2,3,1,8,0)
3542	Note: For security reasons, all path requests will be considered relative to a root path.
3543	"KRN",8994,2393,2,3,1,9,0)
3544	e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
3545	"KRN",8994,2393,2,3,1,10,0)
3546	/var/local/Dir1/Dir2/download/SomeFile.jpg
3547	"KRN",8994,2393,2,3,1,11,0)
3548	This root path is found in custom field 22701 in file 2005.2
3549	"KRN",8994,2393,2,3,1,12,0)
3550	Also: dropbox location is obtained from custom field 22702 in file 2005.2
3551	"KRN",8994,2393,2,"B","FNAME",2)
3552
3553	"KRN",8994,2393,2,"B","FPATH",1)
3554
3555	"KRN",8994,2393,2,"B","LOCIEN",3)
3556
3557	"KRN",8994,2393,2,"PARAMSEQ",1,1)
3558
3559	"KRN",8994,2393,2,"PARAMSEQ",2,2)
3560
3561	"KRN",8994,2393,2,"PARAMSEQ",3,3)
3562
3563	"KRN",8994,2393,3,0)
3564	^^4^4^3080131^^
3565	"KRN",8994,2393,3,1,0)
3566	Results:
3567	"KRN",8994,2393,3,2,0)
3568
3569	"KRN",8994,2393,3,3,0)
3570	1^SuccessMessage <-- file uploaded from dropbox
3571	"KRN",8994,2393,3,4,0)
3572	0^FailureMessage
3573	"KRN",8994,2394,-1)
3574	0^5
3575	"KRN",8994,2394,0)
3576	TMG CPRS GET URL LIST^GETURLS^TMGRPC1^2^P^^^1^1
3577	"KRN",8994,2394,1,0)
3578	^8994.01^2^2^3080618^^^^
3579	"KRN",8994,2394,1,1,0)
3580	CPRS can call this to get a list of URL's to display from inside CPRS.
3581	"KRN",8994,2394,1,2,0)
3582	These URL's will be displayed inside custom tabs in CPRS.
3583	"KRN",8994,2394,2,0)
3584	^8994.02A^^0
3585	"KRN",8994,2394,3,0)
3586	^8994.03^5^5^3080618^^^^
3587	"KRN",8994,2394,3,1,0)
3588	Results are returned as follows:
3589	"KRN",8994,2394,3,2,0)
3590	RESULT(0)="1^Success" or "0^SomeErrorMessage"
3591	"KRN",8994,2394,3,3,0)
3592	RESULT(1)="CNN^www.cnn.com" ;display www.cnn.com on tab #1, named 'CNN'
3593	"KRN",8994,2394,3,4,0)
3594	RESULT(2)="^about:blank" ;display a blank page on tab #2, with name of ''
3595	"KRN",8994,2394,3,5,0)
3596	RESULT(3)="^<!HIDE!>" ;hide tab #3, with name of ''
3597	"KRN",8994,2497,-1)
3598	0^13
3599	"KRN",8994,2497,0)
3600	TMG INIFILE SET^SETINIVL^TMGRPC1A^1^P^^^1^1
3601	"KRN",8994,2497,1,0)
3602	^8994.01^17^17^3100211^^
3603	"KRN",8994,2497,1,1,0)
3604
3605	"KRN",8994,2497,1,2,0)
3606	This will allow server-side storage is client options,
3607	"KRN",8994,2497,1,3,0)
3608	similar to .ini files on Microsoft Windows programs.
3609	"KRN",8994,2497,1,4,0)
3610
3611	"KRN",8994,2497,1,5,0)
3612	Purpose: To provide an entry point for a RPC call from a client. The client
3613	"KRN",8994,2497,1,6,0)
3614	will use this instead of TIniFile object in Delphi.
3615	"KRN",8994,2497,1,7,0)
3616	Note: Since all data are of type string in Mumps, this will work only with strings.
3617	"KRN",8994,2497,1,8,0)
3618	and type casting will have to take place in client.
3619	"KRN",8994,2497,1,9,0)
3620	Input: RESULT -- an OUT PARAMETER. See output below.
3621	"KRN",8994,2497,1,10,0)
3622	SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
3623	"KRN",8994,2497,1,11,0)
3624	KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
3625	"KRN",8994,2497,1,12,0)
3626	VALUE -- String of Value to set
3627	"KRN",8994,2497,1,13,0)
3628	Note: Data will be stored in: ^TMG("INIDATA",Section,Key,Vaue)
3629	"KRN",8994,2497,1,14,0)
3630	And because this is a shared resource, it is expected that the client will use
3631	"KRN",8994,2497,1,15,0)
3632	User.Name as the Section value.
3633	"KRN",8994,2497,1,16,0)
3634	Also, any prior value will be overwritten.
3635	"KRN",8994,2497,1,17,0)
3636	Output: Will return RESULT="1^Success", or -1^Error Message"
3637	"KRN",8994,2497,2,0)
3638	^8994.02A^3^3
3639	"KRN",8994,2497,2,1,0)
3640	SECTION^1^32^1^1
3641	"KRN",8994,2497,2,1,1,0)
3642	^^2^2^3100211^^
3643	"KRN",8994,2497,2,1,1,1,0)
3644	String of 'Section' to store setting in
3645	"KRN",8994,2497,2,1,1,2,0)
3646	(corresponds to 'Section' in TIniFile)
3647	"KRN",8994,2497,2,2,0)
3648	KEY^1^32^1^2
3649	"KRN",8994,2497,2,2,1,0)
3650	^^1^1^3100211^^
3651	"KRN",8994,2497,2,2,1,1,0)
3652	String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
3653	"KRN",8994,2497,2,3,0)
3654	VALUE^1^256^1^3
3655	"KRN",8994,2497,2,3,1,0)
3656	^^1^1^3100211^^
3657	"KRN",8994,2497,2,3,1,1,0)
3658	String of Value to set
3659	"KRN",8994,2497,2,"B","KEY",2)
3660
3661	"KRN",8994,2497,2,"B","SECTION",1)
3662
3663	"KRN",8994,2497,2,"B","VALUE",3)
3664
3665	"KRN",8994,2497,2,"PARAMSEQ",1,1)
3666
3667	"KRN",8994,2497,2,"PARAMSEQ",2,2)
3668
3669	"KRN",8994,2497,2,"PARAMSEQ",3,3)
3670
3671	"KRN",8994,2497,3,0)
3672	^^1^1^3100211^^
3673	"KRN",8994,2497,3,1,0)
3674	Will return RESULT="1^Success", or -1^Error Message"
3675	"KRN",8994,2498,-1)
3676	0^12
3677	"KRN",8994,2498,0)
3678	TMG INIFILE GET^GETINIVL^TMGRPC1A^1^P^^^1^1
3679	"KRN",8994,2498,1,0)
3680	^8994.01^16^16^3100211^^^
3681	"KRN",8994,2498,1,1,0)
3682	This will allow server-side storage is client options,
3683	"KRN",8994,2498,1,2,0)
3684	similar to .ini files on Microsoft Windows programs.
3685	"KRN",8994,2498,1,3,0)
3686
3687	"KRN",8994,2498,1,4,0)
3688	Purpose: To provide an entry point for a RPC call from a client. The client
3689	"KRN",8994,2498,1,5,0)
3690	will use this instead of TIniFile object in Delphi.
3691	"KRN",8994,2498,1,6,0)
3692	Note: Since all data are of type string in Mumps, this will work only with strings.
3693	"KRN",8994,2498,1,7,0)
3694	and type casting will have to take place in client.
3695	"KRN",8994,2498,1,8,0)
3696	Input: RESULT -- an OUT PARAMETER. See output below
3697	"KRN",8994,2498,1,9,0)
3698	SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
3699	"KRN",8994,2498,1,10,0)
3700	KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
3701	"KRN",8994,2498,1,11,0)
3702	DEFAULT -- The value to be returned, if no value found.
3703	"KRN",8994,2498,1,12,0)
3704	Note: Data will be strored in: ^TMG("INIDATA",Section,Key,Vaue)
3705	"KRN",8994,2498,1,13,0)
3706	And because this is a shared resource, it is expected that the client will use
3707	"KRN",8994,2498,1,14,0)
3708	User.Name as the Section value.
3709	"KRN",8994,2498,1,15,0)
3710	Also, any prior value will be overwritten.
3711	"KRN",8994,2498,1,16,0)
3712	Output: Will return RESULT(0)="1^<Value>", or -1^Error Message"
3713	"KRN",8994,2498,2,0)
3714	^8994.02A^3^3
3715	"KRN",8994,2498,2,1,0)
3716	SECTION^1^32^1^1
3717	"KRN",8994,2498,2,1,1,0)
3718	^^3^3^3100211^^
3719	"KRN",8994,2498,2,1,1,1,0)
3720
3721	"KRN",8994,2498,2,1,1,2,0)
3722	String of 'Section' to store setting in
3723	"KRN",8994,2498,2,1,1,3,0)
3724	(corresponds to 'Section' in TIniFile)
3725	"KRN",8994,2498,2,2,0)
3726	KEY^1^32^1^2
3727	"KRN",8994,2498,2,2,1,0)
3728	^^2^2^3100211^^
3729	"KRN",8994,2498,2,2,1,1,0)
3730
3731	"KRN",8994,2498,2,2,1,2,0)
3732	String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
3733	"KRN",8994,2498,2,3,0)
3734	DEFAULT^1^256^0^3
3735	"KRN",8994,2498,2,3,1,0)
3736	^8994.021^1^1^3100211^^^
3737	"KRN",8994,2498,2,3,1,1,0)
3738	The value to be returned, if no value found.
3739	"KRN",8994,2498,2,"B","DEFAULT",3)
3740
3741	"KRN",8994,2498,2,"B","KEY",2)
3742
3743	"KRN",8994,2498,2,"B","SECTION",1)
3744
3745	"KRN",8994,2498,2,"PARAMSEQ",1,1)
3746
3747	"KRN",8994,2498,2,"PARAMSEQ",2,2)
3748
3749	"KRN",8994,2498,2,"PARAMSEQ",3,3)
3750
3751	"KRN",8994,2498,3,0)
3752	^8994.03^2^2^3100211^^^
3753	"KRN",8994,2498,3,1,0)
3754	Will return RESULT="1^<Value>", or -1^Error Message"
3755	"KRN",8994,2498,3,2,0)
3756	<Value> is the desired value.
3757	"MBREQ")
3758	0
3759	"ORD",16,8994)
3760	8994;16;1;;;;;;;RPCDEL^XPDIA1
3761	"ORD",16,8994,0)
3762	REMOTE PROCEDURE
3763	"ORD",18,19)
3764	19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA
3765	"ORD",18,19,0)
3766	OPTION
3767	"QUES","XPF1",0)
3768	Y
3769	"QUES","XPF1","??")
3770	^D REP^XPDH
3771	"QUES","XPF1","A")
3772	Shall I write over your \|FLAG\| File
3773	"QUES","XPF1","B")
3774	YES
3775	"QUES","XPF1","M")
3776	D XPF1^XPDIQ
3777	"QUES","XPF2",0)
3778	Y
3779	"QUES","XPF2","??")
3780	^D DTA^XPDH
3781	"QUES","XPF2","A")
3782	Want my data \|FLAG\| yours
3783	"QUES","XPF2","B")
3784	YES
3785	"QUES","XPF2","M")
3786	D XPF2^XPDIQ
3787	"QUES","XPI1",0)
3788	YO
3789	"QUES","XPI1","??")
3790	^D INHIBIT^XPDH
3791	"QUES","XPI1","A")
3792	Want KIDS to INHIBIT LOGONs during the install
3793	"QUES","XPI1","B")
3794	NO
3795	"QUES","XPI1","M")
3796	D XPI1^XPDIQ
3797	"QUES","XPM1",0)
3798	PO^VA(200,:EM
3799	"QUES","XPM1","??")
3800	^D MG^XPDH
3801	"QUES","XPM1","A")
3802	Enter the Coordinator for Mail Group '\|FLAG\|'
3803	"QUES","XPM1","B")
3804
3805	"QUES","XPM1","M")
3806	D XPM1^XPDIQ
3807	"QUES","XPO1",0)
3808	Y
3809	"QUES","XPO1","??")
3810	^D MENU^XPDH
3811	"QUES","XPO1","A")
3812	Want KIDS to Rebuild Menu Trees Upon Completion of Install
3813	"QUES","XPO1","B")
3814	NO
3815	"QUES","XPO1","M")
3816	D XPO1^XPDIQ
3817	"QUES","XPZ1",0)
3818	Y
3819	"QUES","XPZ1","??")
3820	^D OPT^XPDH
3821	"QUES","XPZ1","A")
3822	Want to DISABLE Scheduled Options, Menu Options, and Protocols
3823	"QUES","XPZ1","B")
3824	NO
3825	"QUES","XPZ1","M")
3826	D XPZ1^XPDIQ
3827	"QUES","XPZ2",0)
3828	Y
3829	"QUES","XPZ2","??")
3830	^D RTN^XPDH
3831	"QUES","XPZ2","A")
3832	Want to MOVE routines to other CPUs
3833	"QUES","XPZ2","B")
3834	NO
3835	"QUES","XPZ2","M")
3836	D XPZ2^XPDIQ
3837	"RTN")
3838	2
3839	"RTN","TMGRPC1")
3840	0^1^B224963
3841	"RTN","TMGRPC1",1,0)
3842	TMGRPC1 ;TMG/kst-RPC Functions ;03/25/06
3843	"RTN","TMGRPC1",2,0)
3844	;;1.0;TMG-LIB;1;08/18/09;Build 2
3845	"RTN","TMGRPC1",3,0)
3846
3847	"RTN","TMGRPC1",4,0)
3848	;"TMG RPC FUNCTIONS
3849	"RTN","TMGRPC1",5,0)
3850
3851	"RTN","TMGRPC1",6,0)
3852	;"Kevin Toppenberg MD
3853	"RTN","TMGRPC1",7,0)
3854	;"GNU General Public License (GPL) applies
3855	"RTN","TMGRPC1",8,0)
3856	;"3/24/07
3857	"RTN","TMGRPC1",9,0)
3858
3859	"RTN","TMGRPC1",10,0)
3860	;"=======================================================================
3861	"RTN","TMGRPC1",11,0)
3862	;" RPC -- Public Functions.
3863	"RTN","TMGRPC1",12,0)
3864	;"=======================================================================
3865	"RTN","TMGRPC1",13,0)
3866	;"DOWNLOAD(GREF,FPATH,FNAME,LOCIEN)
3867	"RTN","TMGRPC1",14,0)
3868	;"UPLOAD(RESULT,FPATH,FNAME,LOCIEN,ARRAY)
3869	"RTN","TMGRPC1",15,0)
3870	;"DOWNDROP(RESULT,FPATH,FNAME,LOCIEN) -- Download drop box file
3871	"RTN","TMGRPC1",16,0)
3872	;"UPLDDROP(RESULT,FPATH,FNAME,LOCIEN) -- Upload Dropbox File
3873	"RTN","TMGRPC1",17,0)
3874	;"GETLONG(GREF,IMAGEIEN)
3875	"RTN","TMGRPC1",18,0)
3876	;"GETDFN(RESULT,RECNUM,RECFIELD,LNAME,FNAME,MNAME,DOB,SEX,SSNUM)
3877	"RTN","TMGRPC1",19,0)
3878	;"BLANKTIU(RESULT,DFN,PERSON,LOC,DOS,TITLE)
3879	"RTN","TMGRPC1",20,0)
3880	;"AUTOSIGN(RESULT,DOCIEN)
3881	"RTN","TMGRPC1",21,0)
3882	;"FNINFO(RESULT,DFN) -- GET PATIENT DEMOGRAPHICS
3883	"RTN","TMGRPC1",22,0)
3884	;"PTADD(RESULT,INFO) -- ADD PATIENT
3885	"RTN","TMGRPC1",23,0)
3886	;"STPTINFO(RESULT,DFN,INFO) -- SET PATIENT DEMOGRAPHICS
3887	"RTN","TMGRPC1",24,0)
3888	;"GETURLS(RESULT) -- TMG CPRS GET URL LIST
3889	"RTN","TMGRPC1",25,0)
3890
3891	"RTN","TMGRPC1",26,0)
3892	;"=======================================================================
3893	"RTN","TMGRPC1",27,0)
3894	;"PRIVATE API FUNCTIONS
3895	"RTN","TMGRPC1",28,0)
3896	;"=======================================================================
3897	"RTN","TMGRPC1",29,0)
3898	;"ENCODE(GRef,incSubscr,encodeFn)
3899	"RTN","TMGRPC1",30,0)
3900	;"DECODE(GRef,incSubscr,decodeFn)
3901	"RTN","TMGRPC1",31,0)
3902	;"$$HEXCODER(INPUT) ;"encode the input string. Currently using simple hex encoding/
3903	"RTN","TMGRPC1",32,0)
3904	;"$$B64CODER(INPUT) ;"encode the input string via UUENCODE (actually Base64)
3905	"RTN","TMGRPC1",33,0)
3906	;"$$B64DECODER(INPUT) ;"encode the input string via UUDECODE (actually Base64)
3907	"RTN","TMGRPC1",34,0)
3908
3909	"RTN","TMGRPC1",35,0)
3910	;"=======================================================================
3911	"RTN","TMGRPC1",36,0)
3912	;"=======================================================================
3913	"RTN","TMGRPC1",37,0)
3914	;"Dependencies:
3915	"RTN","TMGRPC1",38,0)
3916	;"TMGBINF
3917	"RTN","TMGRPC1",39,0)
3918	;"TMGSTUTL
3919	"RTN","TMGRPC1",40,0)
3920	;"RGUTUU
3921	"RTN","TMGRPC1",41,0)
3922	;"=======================================================================
3923	"RTN","TMGRPC1",42,0)
3924	;"=======================================================================
3925	"RTN","TMGRPC1",43,0)
3926
3927	"RTN","TMGRPC1",44,0)
3928	DOWNLOAD(GREF,FPATH,FNAME,LOCIEN)
3929	"RTN","TMGRPC1",45,0)
3930	;"SCOPE: Public
3931	"RTN","TMGRPC1",46,0)
3932	;"Purpose: To provide an entry point for a RPC call from a client. The client
3933	"RTN","TMGRPC1",47,0)
3934	;" will ask for a given file, and it will be passed back in the form
3935	"RTN","TMGRPC1",48,0)
3936	;" of an array (in BASE64 ascii encoding)
3937	"RTN","TMGRPC1",49,0)
3938	;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
3939	"RTN","TMGRPC1",50,0)
3940	;" FPATH -- the file path up to, but not including, the filename
3941	"RTN","TMGRPC1",51,0)
3942	;" Use '/' to NOT specify any subdirectory
3943	"RTN","TMGRPC1",52,0)
3944	;" FNAME -- the name of the file to pass back
3945	"RTN","TMGRPC1",53,0)
3946	;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to download from
3947	"RTN","TMGRPC1",54,0)
3948	;" default value is 1
3949	"RTN","TMGRPC1",55,0)
3950	;" Note: For security reasons, all path requests will be considered relative to a root path.
3951	"RTN","TMGRPC1",56,0)
3952	;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
3953	"RTN","TMGRPC1",57,0)
3954	;" /var/local/Dir1/Dir2/download/SomeFile.jpg
3955	"RTN","TMGRPC1",58,0)
3956	;" This root path is found in custom field 22701 in file 2005.2
3957	"RTN","TMGRPC1",59,0)
3958	;"Output: results are passed out in @GREF
3959	"RTN","TMGRPC1",60,0)
3960	;" @GREF@(0)=success; 1=success, 0=failure
3961	"RTN","TMGRPC1",61,0)
3962	;" @GREF@(1..xxx) = actual data
3963	"RTN","TMGRPC1",62,0)
3964
3965	"RTN","TMGRPC1",63,0)
3966	set FPATH=$get(FPATH)
3967	"RTN","TMGRPC1",64,0)
3968	set FNAME=$get(FNAME)
3969	"RTN","TMGRPC1",65,0)
3970	set LOCIEN=$GET(LOCIEN,1)
3971	"RTN","TMGRPC1",66,0)
3972
3973	"RTN","TMGRPC1",67,0)
3974	new PathRoot
3975	"RTN","TMGRPC1",68,0)
3976	set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1) ;"NOTE: CUSTOM FIELD
3977	"RTN","TMGRPC1",69,0)
3978
3979	"RTN","TMGRPC1",70,0)
3980	new NodeDiv
3981	"RTN","TMGRPC1",71,0)
3982	set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/" NOTE: CUSTOM FIELD
3983	"RTN","TMGRPC1",72,0)
3984
3985	"RTN","TMGRPC1",73,0)
3986	new EndRoot set EndRoot=$extract(PathRoot,$length(PathRoot))
3987	"RTN","TMGRPC1",74,0)
3988	new StartPath set StartPath=$extract(FPATH,1)
3989	"RTN","TMGRPC1",75,0)
3990
3991	"RTN","TMGRPC1",76,0)
3992	if (EndRoot=NodeDiv)&(StartPath=NodeDiv) do
3993	"RTN","TMGRPC1",77,0)
3994	. set FPATH=$extract(FPATH,2,1024)
3995	"RTN","TMGRPC1",78,0)
3996	else if (EndRoot'=NodeDiv)&(StartPath'=NodeDiv) do
3997	"RTN","TMGRPC1",79,0)
3998	. set PathRoot=PathRoot_NodeDiv
3999	"RTN","TMGRPC1",80,0)
4000
4001	"RTN","TMGRPC1",81,0)
4002	set FPATH=PathRoot_FPATH
4003	"RTN","TMGRPC1",82,0)
4004
4005	"RTN","TMGRPC1",83,0)
4006	set GREF="^TMP(""DOWNLOAD^TMGRPC1"","_$J_")"
4007	"RTN","TMGRPC1",84,0)
4008
4009	"RTN","TMGRPC1",85,0)
4010	kill @GREF
4011	"RTN","TMGRPC1",86,0)
4012	set @GREF@(0)=$$BFTG^TMGBINF(.FPATH,.FNAME,$name(@GREF@(1)),3)
4013	"RTN","TMGRPC1",87,0)
4014
4015	"RTN","TMGRPC1",88,0)
4016	do ENCODE($name(@GREF@(1)),3)
4017	"RTN","TMGRPC1",89,0)
4018
4019	"RTN","TMGRPC1",90,0)
4020	quit
4021	"RTN","TMGRPC1",91,0)
4022
4023	"RTN","TMGRPC1",92,0)
4024
4025	"RTN","TMGRPC1",93,0)
4026	UPLOAD(RESULT,FPATH,FNAME,LOCIEN,ARRAY)
4027	"RTN","TMGRPC1",94,0)
4028	;"SCOPE: Public
4029	"RTN","TMGRPC1",95,0)
4030	;"RPC That calls this: TMG UPLOAD FILE
4031	"RTN","TMGRPC1",96,0)
4032	;"Purpose: To provide an entry point for a RPC call from a client. The client
4033	"RTN","TMGRPC1",97,0)
4034	;" will provide a file for upload (in BASE64 ascii encoding)
4035	"RTN","TMGRPC1",98,0)
4036	;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
4037	"RTN","TMGRPC1",99,0)
4038	;" FPATH -- the file path up to, but not including, the filename
4039	"RTN","TMGRPC1",100,0)
4040	;" Use '/' to NOT specify any subdirectory
4041	"RTN","TMGRPC1",101,0)
4042	;" FNAME -- the name of the file to pass back
4043	"RTN","TMGRPC1",102,0)
4044	;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to upload to
4045	"RTN","TMGRPC1",103,0)
4046	;" default value is 1
4047	"RTN","TMGRPC1",104,0)
4048	;" Note: For security reasons, all path requests will be considered relative to a root path.
4049	"RTN","TMGRPC1",105,0)
4050	;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
4051	"RTN","TMGRPC1",106,0)
4052	;" /var/local/Dir1/Dir2/download/SomeFile.jpg
4053	"RTN","TMGRPC1",107,0)
4054	;" This root path is found in custom field 22701 in file 2005.2
4055	"RTN","TMGRPC1",108,0)
4056	;" ARRAY -- the array that will hold the file, in BASE64 ascii encoding
4057	"RTN","TMGRPC1",109,0)
4058	;"Output: results are passed out in RESULT: 1^SuccessMessage or 0^FailureMessage
4059	"RTN","TMGRPC1",110,0)
4060
4061	"RTN","TMGRPC1",111,0)
4062	new result
4063	"RTN","TMGRPC1",112,0)
4064	new resultMsg set resultMsg="1^Successful Upload"
4065	"RTN","TMGRPC1",113,0)
4066
4067	"RTN","TMGRPC1",114,0)
4068	set ^TMP("UPLOAD^TMGRPC1",$J,"FPATH")=$GET(FPATH)
4069	"RTN","TMGRPC1",115,0)
4070	set ^TMP("UPLOAD^TMGRPC1",$J,"FNAME")=$GET(FNAME)
4071	"RTN","TMGRPC1",116,0)
4072	set ^TMP("UPLOAD^TMGRPC1",$J,"LOCIEN")=$GET(LOCIEN)
4073	"RTN","TMGRPC1",117,0)
4074
4075	"RTN","TMGRPC1",118,0)
4076	if $data(ARRAY)=0 set resultMsg="0^No data received to upload" goto UpDone
4077	"RTN","TMGRPC1",119,0)
4078	set FPATH=$get(FPATH)
4079	"RTN","TMGRPC1",120,0)
4080	if FPATH="" set resultMsg="0^No file path received" goto UpDone
4081	"RTN","TMGRPC1",121,0)
4082	set FNAME=$get(FNAME)
4083	"RTN","TMGRPC1",122,0)
4084	if FNAME="" set resultMsg="0^No file name received" goto UpDone
4085	"RTN","TMGRPC1",123,0)
4086	set LOCIEN=$GET(LOCIEN,1);
4087	"RTN","TMGRPC1",124,0)
4088	new GREF
4089	"RTN","TMGRPC1",125,0)
4090
4091	"RTN","TMGRPC1",126,0)
4092	new PathRoot
4093	"RTN","TMGRPC1",127,0)
4094	set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1)
4095	"RTN","TMGRPC1",128,0)
4096
4097	"RTN","TMGRPC1",129,0)
4098	new NodeDiv
4099	"RTN","TMGRPC1",130,0)
4100	set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/"
4101	"RTN","TMGRPC1",131,0)
4102
4103	"RTN","TMGRPC1",132,0)
4104	new EndRoot set EndRoot=$extract(PathRoot,$length(PathRoot))
4105	"RTN","TMGRPC1",133,0)
4106	new StartPath set StartPath=$extract(FPATH,1)
4107	"RTN","TMGRPC1",134,0)
4108	if (EndRoot=NodeDiv)&(StartPath=NodeDiv) do
4109	"RTN","TMGRPC1",135,0)
4110	. set FPATH=$extract(FPATH,2,1024)
4111	"RTN","TMGRPC1",136,0)
4112	else if (EndRoot'=NodeDiv)&(StartPath'=NodeDiv) do
4113	"RTN","TMGRPC1",137,0)
4114	. set PathRoot=PathRoot_NodeDiv
4115	"RTN","TMGRPC1",138,0)
4116
4117	"RTN","TMGRPC1",139,0)
4118	set FPATH=PathRoot_FPATH
4119	"RTN","TMGRPC1",140,0)
4120
4121	"RTN","TMGRPC1",141,0)
4122	merge ^TMP("UPLOAD^TMGRPC1",$J,"ENCODED")=ARRAY ;"//TEMP
4123	"RTN","TMGRPC1",142,0)
4124	do DECODE("ARRAY(0)",1)
4125	"RTN","TMGRPC1",143,0)
4126	merge ^TMP("UPLOAD^TMGRPC1",$J,"DECODED")=ARRAY ;"//TEMP
4127	"RTN","TMGRPC1",144,0)
4128
4129	"RTN","TMGRPC1",145,0)
4130	if $$GTBF^TMGBINF("ARRAY(0)",1,FPATH,FNAME)=0 do
4131	"RTN","TMGRPC1",146,0)
4132	. set resultMsg="0^Error while saving file"
4133	"RTN","TMGRPC1",147,0)
4134
4135	"RTN","TMGRPC1",148,0)
4136	UpDone
4137	"RTN","TMGRPC1",149,0)
4138	set RESULT=resultMsg
4139	"RTN","TMGRPC1",150,0)
4140	quit
4141	"RTN","TMGRPC1",151,0)
4142
4143	"RTN","TMGRPC1",152,0)
4144
4145	"RTN","TMGRPC1",153,0)
4146	DOWNDROP(RESULT,FPATH,FNAME,LOCIEN) ;"i.e. Download drop box file
4147	"RTN","TMGRPC1",154,0)
4148	;"SCOPE: Public
4149	"RTN","TMGRPC1",155,0)
4150	;"RPC That calls this: TMG DOWNLOAD FILE DROPBOX
4151	"RTN","TMGRPC1",156,0)
4152	;"Purpose: To provide an entry point for a RPC call from a client. The client
4153	"RTN","TMGRPC1",157,0)
4154	;" will request for the file to be placed into in a 'dropbox' file
4155	"RTN","TMGRPC1",158,0)
4156	;" location that both the client and server can access. File may be
4157	"RTN","TMGRPC1",159,0)
4158	;" moved from there to its final destination by the client.
4159	"RTN","TMGRPC1",160,0)
4160	;" This method alloows file-hiding ability on the server side.
4161	"RTN","TMGRPC1",161,0)
4162	;"Input: RESULT -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
4163	"RTN","TMGRPC1",162,0)
4164	;" FPATH -- the file path up to, but not including, the filename. This
4165	"RTN","TMGRPC1",163,0)
4166	;" is the path that the file is stored at (relative to a root path,
4167	"RTN","TMGRPC1",164,0)
4168	;" see comments below). It is NOT the path of the dropbox.
4169	"RTN","TMGRPC1",165,0)
4170	;" Use '/' to NOT specify any subdirectory
4171	"RTN","TMGRPC1",166,0)
4172	;" FNAME -- the name of the file to be uploaded. Note: This is also the
4173	"RTN","TMGRPC1",167,0)
4174	;" name of the file to be put into the dropbox. It is the
4175	"RTN","TMGRPC1",168,0)
4176	;" responsibility of the client to ensure that there is not already
4177	"RTN","TMGRPC1",169,0)
4178	;" a similarly named file in the dropbox before requesting a file
4179	"RTN","TMGRPC1",170,0)
4180	;" be put there. It is the responsibility of the client to delete
4181	"RTN","TMGRPC1",171,0)
4182	;" the file from the drop box.
4183	"RTN","TMGRPC1",172,0)
4184	;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to download from
4185	"RTN","TMGRPC1",173,0)
4186	;" default value is 1
4187	"RTN","TMGRPC1",174,0)
4188	;" Note: For security reasons, all path requests will be considered relative to a root path.
4189	"RTN","TMGRPC1",175,0)
4190	;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
4191	"RTN","TMGRPC1",176,0)
4192	;" /var/local/Dir1/Dir2/download/SomeFile.jpg
4193	"RTN","TMGRPC1",177,0)
4194	;" This root path is found in custom field 22701 in file 2005.2
4195	"RTN","TMGRPC1",178,0)
4196	;" Also: dropbox location is obtained from custom field 22702 in file 2005.2
4197	"RTN","TMGRPC1",179,0)
4198	;"NOTE RE DROPBOX:
4199	"RTN","TMGRPC1",180,0)
4200	;" This system is designed for a system where by the server and the client have a
4201	"RTN","TMGRPC1",181,0)
4202	;" shared filesystem, but the directory paths will be different. For example:
4203	"RTN","TMGRPC1",182,0)
4204	;" Linux server has dropbox at: /mnt/WinServer/dropbox/
4205	"RTN","TMGRPC1",183,0)
4206	;" Windows Client has access to dropbox at: V:\Dropbox\
4207	"RTN","TMGRPC1",184,0)
4208
4209	"RTN","TMGRPC1",185,0)
4210	;"Output: results are 1^Success^FileSize (in bytes), or 0^Error Message
4211	"RTN","TMGRPC1",186,0)
4212
4213	"RTN","TMGRPC1",187,0)
4214	new resultMsg set resultMsg="1^Successful Download"
4215	"RTN","TMGRPC1",188,0)
4216
4217	"RTN","TMGRPC1",189,0)
4218	set FPATH=$get(FPATH)
4219	"RTN","TMGRPC1",190,0)
4220	if FPATH="" set resultMsg="0^No file path received" goto DnDBxDone
4221	"RTN","TMGRPC1",191,0)
4222	set FNAME=$get(FNAME)
4223	"RTN","TMGRPC1",192,0)
4224	if FNAME="" set resultMsg="0^No file name received" goto DnDBxDone
4225	"RTN","TMGRPC1",193,0)
4226	set LOCIEN=$GET(LOCIEN,1);
4227	"RTN","TMGRPC1",194,0)
4228	new GREF
4229	"RTN","TMGRPC1",195,0)
4230
4231	"RTN","TMGRPC1",196,0)
4232	new PathRoot
4233	"RTN","TMGRPC1",197,0)
4234	set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1)
4235	"RTN","TMGRPC1",198,0)
4236
4237	"RTN","TMGRPC1",199,0)
4238	new NodeDiv
4239	"RTN","TMGRPC1",200,0)
4240	set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/"
4241	"RTN","TMGRPC1",201,0)
4242
4243	"RTN","TMGRPC1",202,0)
4244	new DropBox
4245	"RTN","TMGRPC1",203,0)
4246	set DropBox=$piece($get(^MAG(2005.2,LOCIEN,22702)),"^",1)
4247	"RTN","TMGRPC1",204,0)
4248	if DropBox="" do goto UpDBxDone
4249	"RTN","TMGRPC1",205,0)
4250	. set resultMsg="0^Dropbox location not configured in file 2005.2, IEN "_LOCIEN_", field 22702"
4251	"RTN","TMGRPC1",206,0)
4252	;"Ensure DropBox ends in a node divider
4253	"RTN","TMGRPC1",207,0)
4254	if $extract(DropBox,$length(DropBox))'=NodeDiv do
4255	"RTN","TMGRPC1",208,0)
4256	. set DropBox=DropBox_NodeDiv
4257	"RTN","TMGRPC1",209,0)
4258
4259	"RTN","TMGRPC1",210,0)
4260	;"Ensure PathRoot ends in a node divider
4261	"RTN","TMGRPC1",211,0)
4262	if $extract(PathRoot,$length(PathRoot))'=NodeDiv do
4263	"RTN","TMGRPC1",212,0)
4264	. set PathRoot=PathRoot_NodeDiv
4265	"RTN","TMGRPC1",213,0)
4266
4267	"RTN","TMGRPC1",214,0)
4268	;"Ensure Fpath does NOT start in a node divider
4269	"RTN","TMGRPC1",215,0)
4270	if $extract(FPATH,1)=NodeDiv do
4271	"RTN","TMGRPC1",216,0)
4272	. set FPATH=$extract(FPATH,2,1024)
4273	"RTN","TMGRPC1",217,0)
4274
4275	"RTN","TMGRPC1",218,0)
4276	set FPATH=PathRoot_FPATH
4277	"RTN","TMGRPC1",219,0)
4278
4279	"RTN","TMGRPC1",220,0)
4280	new SrcNamePath set SrcNamePath=FPATH_FNAME
4281	"RTN","TMGRPC1",221,0)
4282	;"new DestNamePath set DestNamePath=DropBox_FNAME
4283	"RTN","TMGRPC1",222,0)
4284
4285	"RTN","TMGRPC1",223,0)
4286	new moveResult
4287	"RTN","TMGRPC1",224,0)
4288	set moveResult=$$Copy^TMGKERNL(SrcNamePath,DropBox)
4289	"RTN","TMGRPC1",225,0)
4290	if moveResult>0 do
4291	"RTN","TMGRPC1",226,0)
4292	. set resultMsg="0^Move failed, returning OS error code: "_moveResult
4293	"RTN","TMGRPC1",227,0)
4294	else do
4295	"RTN","TMGRPC1",228,0)
4296	. set resultMsg=resultMsg_"^"_$$FileSize^TMGKERNL(SrcNamePath)
4297	"RTN","TMGRPC1",229,0)
4298
4299	"RTN","TMGRPC1",230,0)
4300	DnDBxDone
4301	"RTN","TMGRPC1",231,0)
4302	set RESULT=resultMsg
4303	"RTN","TMGRPC1",232,0)
4304	quit
4305	"RTN","TMGRPC1",233,0)
4306
4307	"RTN","TMGRPC1",234,0)
4308
4309	"RTN","TMGRPC1",235,0)
4310	UPLDDROP(RESULT,FPATH,FNAME,LOCIEN) ;"i.e. Upload Dropbox File
4311	"RTN","TMGRPC1",236,0)
4312	;"SCOPE: Public
4313	"RTN","TMGRPC1",237,0)
4314	;"RPC That calls this: TMG UPLOAD FILE DROPBOX
4315	"RTN","TMGRPC1",238,0)
4316	;"Purpose: To provide an entry point for a RPC call from a client. The client
4317	"RTN","TMGRPC1",239,0)
4318	;" will put the file in a 'dropbox' file location that both the client
4319	"RTN","TMGRPC1",240,0)
4320	;" and server can access. File will be moved from there to its final
4321	"RTN","TMGRPC1",241,0)
4322	;" destination. This will provide file-hiding ability on the server side.
4323	"RTN","TMGRPC1",242,0)
4324	;"Input: RESULT -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
4325	"RTN","TMGRPC1",243,0)
4326	;" FPATH -- the file path up to, but not including, the filename. This
4327	"RTN","TMGRPC1",244,0)
4328	;" is the path to store the file at. (relative to a root path,
4329	"RTN","TMGRPC1",245,0)
4330	;" see comments below). It is NOT the path of the dropbox.
4331	"RTN","TMGRPC1",246,0)
4332	;" Use '/' to NOT specify any subdirectory
4333	"RTN","TMGRPC1",247,0)
4334	;" FNAME -- the name of the file to be uploaded. Note: This is also the
4335	"RTN","TMGRPC1",248,0)
4336	;" name of the file to be pulled from the dropbox. It is the
4337	"RTN","TMGRPC1",249,0)
4338	;" responsibility of the client to ensure that there is not already
4339	"RTN","TMGRPC1",250,0)
4340	;" a similarly named file in the dropbox before depositing a file there.
4341	"RTN","TMGRPC1",251,0)
4342	;" The server will remove the file from the dropbox, unless there is
4343	"RTN","TMGRPC1",252,0)
4344	;" an error with the host OS (which will be returned as an error message)
4345	"RTN","TMGRPC1",253,0)
4346	;" LOCIEN-- [optional] -- the IEN from file 2005.2 (network location) to upload to
4347	"RTN","TMGRPC1",254,0)
4348	;" default value is 1
4349	"RTN","TMGRPC1",255,0)
4350	;" Note: For security reasons, all path requests will be considered relative to a root path.
4351	"RTN","TMGRPC1",256,0)
4352	;" e.g. if user asks for /download/SomeFile.jpg, this function will retrieve:
4353	"RTN","TMGRPC1",257,0)
4354	;" /var/local/Dir1/Dir2/download/SomeFile.jpg
4355	"RTN","TMGRPC1",258,0)
4356	;" This root path is found in custom field 22700 in file 2005.2
4357	"RTN","TMGRPC1",259,0)
4358	;" Also: dropbox location is obtained from custom field 22702 in file 2005.2
4359	"RTN","TMGRPC1",260,0)
4360	;"NOTE RE DROPBOX:
4361	"RTN","TMGRPC1",261,0)
4362	;" This system is designed for a system where by the server and the client have a
4363	"RTN","TMGRPC1",262,0)
4364	;" shared filesystem, but the directory paths will be different. For example:
4365	"RTN","TMGRPC1",263,0)
4366	;" Linux server has dropbox at: /mnt/WinServer/dropbox/
4367	"RTN","TMGRPC1",264,0)
4368	;" Windows Client has access to dropbox at: V:\Dropbox\
4369	"RTN","TMGRPC1",265,0)
4370
4371	"RTN","TMGRPC1",266,0)
4372	;"Output: results are passed out in RESULT:
4373	"RTN","TMGRPC1",267,0)
4374	;" 1^SuccessMessage or 0^FailureMessage
4375	"RTN","TMGRPC1",268,0)
4376
4377	"RTN","TMGRPC1",269,0)
4378	new result
4379	"RTN","TMGRPC1",270,0)
4380	new resultMsg set resultMsg="1^Successful Upload"
4381	"RTN","TMGRPC1",271,0)
4382
4383	"RTN","TMGRPC1",272,0)
4384	set FPATH=$get(FPATH)
4385	"RTN","TMGRPC1",273,0)
4386	if FPATH="" set resultMsg="0^No file path received" goto UpDBxDone
4387	"RTN","TMGRPC1",274,0)
4388	set FNAME=$get(FNAME)
4389	"RTN","TMGRPC1",275,0)
4390	if FNAME="" set resultMsg="0^No file name received" goto UpDBxDone
4391	"RTN","TMGRPC1",276,0)
4392	set LOCIEN=$GET(LOCIEN,1);
4393	"RTN","TMGRPC1",277,0)
4394	new GREF
4395	"RTN","TMGRPC1",278,0)
4396
4397	"RTN","TMGRPC1",279,0)
4398	new PathRoot
4399	"RTN","TMGRPC1",280,0)
4400	set PathRoot=$piece($get(^MAG(2005.2,LOCIEN,22700)),"^",1)
4401	"RTN","TMGRPC1",281,0)
4402
4403	"RTN","TMGRPC1",282,0)
4404	new NodeDiv
4405	"RTN","TMGRPC1",283,0)
4406	set NodeDiv=$piece($get(^MAG(2005.2,LOCIEN,22701),"/"),"^",1) ;"default is "/"
4407	"RTN","TMGRPC1",284,0)
4408
4409	"RTN","TMGRPC1",285,0)
4410	new DropBox
4411	"RTN","TMGRPC1",286,0)
4412	set DropBox=$piece($get(^MAG(2005.2,LOCIEN,22702)),"^",1)
4413	"RTN","TMGRPC1",287,0)
4414	if DropBox="" do goto UpDBxDone
4415	"RTN","TMGRPC1",288,0)
4416	. set resultMsg="0^Dropbox location not configured in file 2005.2, IEN "_LOCIEN_", field 22702"
4417	"RTN","TMGRPC1",289,0)
4418	;"Ensure DropBox ends in a node divider
4419	"RTN","TMGRPC1",290,0)
4420	if $extract(DropBox,$length(DropBox))'=NodeDiv do
4421	"RTN","TMGRPC1",291,0)
4422	. set DropBox=DropBox_NodeDiv
4423	"RTN","TMGRPC1",292,0)
4424
4425	"RTN","TMGRPC1",293,0)
4426	;"Ensure PathRoot ends in a node divider
4427	"RTN","TMGRPC1",294,0)
4428	if $extract(PathRoot,$length(PathRoot))'=NodeDiv do
4429	"RTN","TMGRPC1",295,0)
4430	. set PathRoot=PathRoot_NodeDiv
4431	"RTN","TMGRPC1",296,0)
4432
4433	"RTN","TMGRPC1",297,0)
4434	;"Ensure Fpath does NOT start in a node divider
4435	"RTN","TMGRPC1",298,0)
4436	if $extract(FPATH,1)=NodeDiv do
4437	"RTN","TMGRPC1",299,0)
4438	. set FPATH=$extract(FPATH,2,1024)
4439	"RTN","TMGRPC1",300,0)
4440
4441	"RTN","TMGRPC1",301,0)
4442	set FPATH=PathRoot_FPATH
4443	"RTN","TMGRPC1",302,0)
4444
4445	"RTN","TMGRPC1",303,0)
4446	new SrcNamePath,DestNamePath
4447	"RTN","TMGRPC1",304,0)
4448	set SrcNamePath=DropBox_FNAME
4449	"RTN","TMGRPC1",305,0)
4450	set DestNamePath=FPATH_FNAME
4451	"RTN","TMGRPC1",306,0)
4452
4453	"RTN","TMGRPC1",307,0)
4454	new moveResult
4455	"RTN","TMGRPC1",308,0)
4456	set moveResult=$$Move^TMGKERNL(SrcNamePath,DestNamePath)
4457	"RTN","TMGRPC1",309,0)
4458	if moveResult>0 do
4459	"RTN","TMGRPC1",310,0)
4460	. set resultMsg="0^Move failed, returning OS error code: "_moveResult
4461	"RTN","TMGRPC1",311,0)
4462
4463	"RTN","TMGRPC1",312,0)
4464	UpDBxDone
4465	"RTN","TMGRPC1",313,0)
4466	set RESULT=resultMsg
4467	"RTN","TMGRPC1",314,0)
4468	quit
4469	"RTN","TMGRPC1",315,0)
4470
4471	"RTN","TMGRPC1",316,0)
4472
4473	"RTN","TMGRPC1",317,0)
4474	ENCODE(GRef,incSubscr,encodeFn)
4475	"RTN","TMGRPC1",318,0)
4476	;"Purpose: ENCODE a BINARY GLOBAL.
4477	"RTN","TMGRPC1",319,0)
4478	;"Input:
4479	"RTN","TMGRPC1",320,0)
4480	;" GRef-- Global reference of the SOURCE binary global array, in fully resolved
4481	"RTN","TMGRPC1",321,0)
4482	;" (closed root) format.
4483	"RTN","TMGRPC1",322,0)
4484	;" Note:
4485	"RTN","TMGRPC1",323,0)
4486	;" At least one subscript must be numeric. This will be the incrementing
4487	"RTN","TMGRPC1",324,0)
4488	;" subscript (i.e. the subscript that $$BIN2WP^TMGBINWP will increment
4489	"RTN","TMGRPC1",325,0)
4490	;" to store each new global node). This subscript need not be the final
4491	"RTN","TMGRPC1",326,0)
4492	;" subscript. For example, to load into a WORD PROCESSING field, the
4493	"RTN","TMGRPC1",327,0)
4494	;" incrementing node is the second-to-last subscript; the final subscript
4495	"RTN","TMGRPC1",328,0)
4496	;" is always zero.
4497	"RTN","TMGRPC1",329,0)
4498	;" REQUIRED
4499	"RTN","TMGRPC1",330,0)
4500	;" incSubscr-- (required) Identifies the incrementing subscript level, for the source global
4501	"RTN","TMGRPC1",331,0)
4502	;" For example, if you pass ^TMP(115,1,1,0) as the global_ref parameter and
4503	"RTN","TMGRPC1",332,0)
4504	;" pass 3 as the inc_subscr parameter, $$BIN2GBL will increment the third
4505	"RTN","TMGRPC1",333,0)
4506	;" subscript, such as ^TMP(115,1,x), but will WRITE notes at the full global
4507	"RTN","TMGRPC1",334,0)
4508	;" reference, such as ^TMP(115,1,x,0).
4509	"RTN","TMGRPC1",335,0)
4510	;" REQUIRED
4511	"RTN","TMGRPC1",336,0)
4512	;" encodeFn- (OPTIONAL) the name of a function that will encode a line of data.
4513	"RTN","TMGRPC1",337,0)
4514	;" e.g. "CODER^ZZZCODER" or "LOCALCODER". The function should
4515	"RTN","TMGRPC1",338,0)
4516	;" take one input variable (the line of raw binary data), and return a converted
4517	"RTN","TMGRPC1",339,0)
4518	;" line. e.g.
4519	"RTN","TMGRPC1",340,0)
4520	;" CODER(INPUT)
4521	"RTN","TMGRPC1",341,0)
4522	;" ... ;"convert INPUT to RESULT
4523	"RTN","TMGRPC1",342,0)
4524	;" QUIT RESULT
4525	"RTN","TMGRPC1",343,0)
4526	;" default value is B64CODER^TMGRPC1
4527	"RTN","TMGRPC1",344,0)
4528	;"
4529	"RTN","TMGRPC1",345,0)
4530	;"Output: @GRef is converted to encoded data
4531	"RTN","TMGRPC1",346,0)
4532	;"Result: None
4533	"RTN","TMGRPC1",347,0)
4534
4535	"RTN","TMGRPC1",348,0)
4536	if $get(GRef)="" goto EncodeDone
4537	"RTN","TMGRPC1",349,0)
4538	if $get(incSubscr)="" goto EncodeDone
4539	"RTN","TMGRPC1",350,0)
4540
4541	"RTN","TMGRPC1",351,0)
4542	set encodeFn=$get(encodeFn,"B64CODER")
4543	"RTN","TMGRPC1",352,0)
4544
4545	"RTN","TMGRPC1",353,0)
4546	new encoder
4547	"RTN","TMGRPC1",354,0)
4548	set encoder="set temp=$$"_encodeFn_"(.temp)"
4549	"RTN","TMGRPC1",355,0)
4550
4551	"RTN","TMGRPC1",356,0)
4552	for do quit:(GRef="")
4553	"RTN","TMGRPC1",357,0)
4554	. new temp
4555	"RTN","TMGRPC1",358,0)
4556	. set temp=$get(@GRef)
4557	"RTN","TMGRPC1",359,0)
4558	. if temp="" set GRef="" quit
4559	"RTN","TMGRPC1",360,0)
4560	. xecute encoder ;"i.e. set temp=$$encoderFn(.temp)
4561	"RTN","TMGRPC1",361,0)
4562	. set @GRef=temp
4563	"RTN","TMGRPC1",362,0)
4564	. set GRef=$$NEXTNODE^TMGBINF(GRef,incSubscr,1,1)
4565	"RTN","TMGRPC1",363,0)
4566
4567	"RTN","TMGRPC1",364,0)
4568	EncodeDone
4569	"RTN","TMGRPC1",365,0)
4570	quit
4571	"RTN","TMGRPC1",366,0)
4572
4573	"RTN","TMGRPC1",367,0)
4574
4575	"RTN","TMGRPC1",368,0)
4576	HEXCODER(INPUT)
4577	"RTN","TMGRPC1",369,0)
4578	;"Purpose: to encode the input string. Currently using simple hex encoding/
4579	"RTN","TMGRPC1",370,0)
4580	quit $$STRB2H^TMGSTUTL(.INPUT,0,1)
4581	"RTN","TMGRPC1",371,0)
4582
4583	"RTN","TMGRPC1",372,0)
4584
4585	"RTN","TMGRPC1",373,0)
4586	B64CODER(INPUT)
4587	"RTN","TMGRPC1",374,0)
4588	;"Purpose: to encode the input string via UUENCODE (actually Base64)
4589	"RTN","TMGRPC1",375,0)
4590	quit $$ENCODE^RGUTUU(.INPUT)
4591	"RTN","TMGRPC1",376,0)
4592
4593	"RTN","TMGRPC1",377,0)
4594	B64DECODER(INPUT)
4595	"RTN","TMGRPC1",378,0)
4596	;"Purpose: to encode the input string via UUENCODE (actually Base64)
4597	"RTN","TMGRPC1",379,0)
4598	quit $$DECODE^RGUTUU(.INPUT)
4599	"RTN","TMGRPC1",380,0)
4600
4601	"RTN","TMGRPC1",381,0)
4602
4603	"RTN","TMGRPC1",382,0)
4604	DECODE(GRef,incSubscr,decodeFn)
4605	"RTN","TMGRPC1",383,0)
4606	;"Purpose: ENCODE a BINARY GLOBAL.
4607	"RTN","TMGRPC1",384,0)
4608	;"Input:
4609	"RTN","TMGRPC1",385,0)
4610	;" GRef-- Global reference of the SOURCE binary global array, in fully resolved
4611	"RTN","TMGRPC1",386,0)
4612	;" (closed root) format.
4613	"RTN","TMGRPC1",387,0)
4614	;" Note:
4615	"RTN","TMGRPC1",388,0)
4616	;" At least one subscript must be numeric. This will be the incrementing
4617	"RTN","TMGRPC1",389,0)
4618	;" subscript (i.e. the subscript that $$BIN2WP^TMGBINWP will increment
4619	"RTN","TMGRPC1",390,0)
4620	;" to store each new global node). This subscript need not be the final
4621	"RTN","TMGRPC1",391,0)
4622	;" subscript. For example, to load into a WORD PROCESSING field, the
4623	"RTN","TMGRPC1",392,0)
4624	;" incrementing node is the second-to-last subscript; the final subscript
4625	"RTN","TMGRPC1",393,0)
4626	;" is always zero.
4627	"RTN","TMGRPC1",394,0)
4628	;" REQUIRED
4629	"RTN","TMGRPC1",395,0)
4630	;" incSubscr-- (required) Identifies the incrementing subscript level, for the source global
4631	"RTN","TMGRPC1",396,0)
4632	;" For example, if you pass ^TMP(115,1,1,0) as the global_ref parameter and
4633	"RTN","TMGRPC1",397,0)
4634	;" pass 3 as the inc_subscr parameter, $$BIN2GBL will increment the third
4635	"RTN","TMGRPC1",398,0)
4636	;" subscript, such as ^TMP(115,1,x), but will WRITE notes at the full global
4637	"RTN","TMGRPC1",399,0)
4638	;" reference, such as ^TMP(115,1,x,0).
4639	"RTN","TMGRPC1",400,0)
4640	;" REQUIRED
4641	"RTN","TMGRPC1",401,0)
4642	;" decodeFn- (OPTIONAL) the name of a function that will decode a line of data.
4643	"RTN","TMGRPC1",402,0)
4644	;" e.g. "DECODER^ZZZCODER" or "DECODER". The function should take
4645	"RTN","TMGRPC1",403,0)
4646	;" one input variable (the line of encoded data), and return a decoded line. e.g.
4647	"RTN","TMGRPC1",404,0)
4648	;" DECODER(INPUT)
4649	"RTN","TMGRPC1",405,0)
4650	;" ... ;"convert INPUT to RESULT
4651	"RTN","TMGRPC1",406,0)
4652	;" QUIT RESULT
4653	"RTN","TMGRPC1",407,0)
4654	;" default value is B64DECODER^TMGRPC1
4655	"RTN","TMGRPC1",408,0)
4656	;"
4657	"RTN","TMGRPC1",409,0)
4658	;"Output: @GRef is converted to decoded data
4659	"RTN","TMGRPC1",410,0)
4660	;"Result: None
4661	"RTN","TMGRPC1",411,0)
4662
4663	"RTN","TMGRPC1",412,0)
4664	if $get(GRef)="" goto DecodeDone
4665	"RTN","TMGRPC1",413,0)
4666	if $get(incSubscr)="" goto DecodeDone
4667	"RTN","TMGRPC1",414,0)
4668	set decodeFn=$get(decodeFn,"B64DECODER")
4669	"RTN","TMGRPC1",415,0)
4670
4671	"RTN","TMGRPC1",416,0)
4672	new decoder
4673	"RTN","TMGRPC1",417,0)
4674	set decoder="set temp=$$"_decodeFn_"(.temp)"
4675	"RTN","TMGRPC1",418,0)
4676
4677	"RTN","TMGRPC1",419,0)
4678	for do quit:(GRef="")
4679	"RTN","TMGRPC1",420,0)
4680	. new temp
4681	"RTN","TMGRPC1",421,0)
4682	. set temp=$get(@GRef)
4683	"RTN","TMGRPC1",422,0)
4684	. if temp="" set GRef="" quit
4685	"RTN","TMGRPC1",423,0)
4686	. xecute decoder ;"i.e. set temp=$$decoderFn(.temp)
4687	"RTN","TMGRPC1",424,0)
4688	. set @GRef=temp
4689	"RTN","TMGRPC1",425,0)
4690	. set GRef=$$NEXTNODE^TMGBINF(GRef,incSubscr,1,1)
4691	"RTN","TMGRPC1",426,0)
4692
4693	"RTN","TMGRPC1",427,0)
4694	DecodeDone
4695	"RTN","TMGRPC1",428,0)
4696	quit
4697	"RTN","TMGRPC1",429,0)
4698
4699	"RTN","TMGRPC1",430,0)
4700
4701	"RTN","TMGRPC1",431,0)
4702	GETLONG(GREF,IMAGEIEN)
4703	"RTN","TMGRPC1",432,0)
4704	;"SCOPE: Public
4705	"RTN","TMGRPC1",433,0)
4706	;"Purpose: To provide an entry point for a RPC call from a client.
4707	"RTN","TMGRPC1",434,0)
4708	;" Will return results of field 11 (LONG DESCRIPTION) from file IMAGE(2005)
4709	"RTN","TMGRPC1",435,0)
4710	;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
4711	"RTN","TMGRPC1",436,0)
4712	;" IMAGEIEN-- The IEN (record number) from file 2005 (IMAGE)
4713	"RTN","TMGRPC1",437,0)
4714	;"Output: results are passed out in @GREF
4715	"RTN","TMGRPC1",438,0)
4716	;" @GREF@(0) = WP header line: format is: ^^MaxLine^MaxLine^TimeStamp(FM Date/Time Format)
4717	"RTN","TMGRPC1",439,0)
4718	;" @GREF@(1) = WP line 1
4719	"RTN","TMGRPC1",440,0)
4720	;" @GREF@(2) = WP line 2
4721	"RTN","TMGRPC1",441,0)
4722	;" @GREF@(3) = WP line 3
4723	"RTN","TMGRPC1",442,0)
4724	;" @GREF@(4) = WP line 4 ... etc.
4725	"RTN","TMGRPC1",443,0)
4726
4727	"RTN","TMGRPC1",444,0)
4728	set GREF="^TMP(""GETLONG^TMGRPC1"","_$J_")"
4729	"RTN","TMGRPC1",445,0)
4730
4731	"RTN","TMGRPC1",446,0)
4732	kill @GREF
4733	"RTN","TMGRPC1",447,0)
4734
4735	"RTN","TMGRPC1",448,0)
4736	new i,s,MaxLines,header
4737	"RTN","TMGRPC1",449,0)
4738	set header=""
4739	"RTN","TMGRPC1",450,0)
4740	if +$get(IMAGEIEN)>0 do
4741	"RTN","TMGRPC1",451,0)
4742	. set header=$get(^MAG(2005,IMAGEIEN,3,0)) ;"NOTE: Field 11 held in node 3;0
4743	"RTN","TMGRPC1",452,0)
4744	set @GREF@(0)=header
4745	"RTN","TMGRPC1",453,0)
4746	set MaxLines=+$piece(header,"^",3)
4747	"RTN","TMGRPC1",454,0)
4748	for i=1:1:MaxLines do
4749	"RTN","TMGRPC1",455,0)
4750	. set @GREF@(i)=$get(^MAG(2005,IMAGEIEN,3,i,0))
4751	"RTN","TMGRPC1",456,0)
4752
4753	"RTN","TMGRPC1",457,0)
4754	quit
4755	"RTN","TMGRPC1",458,0)
4756
4757	"RTN","TMGRPC1",459,0)
4758
4759	"RTN","TMGRPC1",460,0)
4760
4761	"RTN","TMGRPC1",461,0)
4762	GETDFN(RESULT,RECNUM,PMS,FNAME,LNAME,MNAME,DOB,SEX,SSNUM,AUTOADD)
4763	"RTN","TMGRPC1",462,0)
4764	;"Purpose: This is a RPC entry point for looking up a patient.
4765	"RTN","TMGRPC1",463,0)
4766	;"Input:
4767	"RTN","TMGRPC1",464,0)
4768	;" RESULT -- an OUT PARAMETER
4769	"RTN","TMGRPC1",465,0)
4770	;" RECNUM -- Record number from a PMS
4771	"RTN","TMGRPC1",466,0)
4772	;" PMS -- Which PMS RECNUM refers to (1=Medic,2=Sequel,3=Paradigm)
4773	"RTN","TMGRPC1",467,0)
4774	;" FNAME -- First Name
4775	"RTN","TMGRPC1",468,0)
4776	;" LNAME -- Last name
4777	"RTN","TMGRPC1",469,0)
4778	;" MNAME -- Middle Name or initial
4779	"RTN","TMGRPC1",470,0)
4780	;" DOB -- Date of birth in EXTERNAL format
4781	"RTN","TMGRPC1",471,0)
4782	;" SEX -- Patient sex: M or F
4783	"RTN","TMGRPC1",472,0)
4784	;" SSNUM -- Social security number (digits only)
4785	"RTN","TMGRPC1",473,0)
4786	;" AUTOADD -- Automatically register patient if needed (if value=1)
4787	"RTN","TMGRPC1",474,0)
4788	;"Output: Patient may be added to database if AUTOADD=1
4789	"RTN","TMGRPC1",475,0)
4790	;"Results: Returns DFN (i.e. IEN in PATIENT file) or -1 if not found or error
4791	"RTN","TMGRPC1",476,0)
4792
4793	"RTN","TMGRPC1",477,0)
4794	new Patient,TMGFREG
4795	"RTN","TMGRPC1",478,0)
4796	set RESULT=-1 ;"default to not found
4797	"RTN","TMGRPC1",479,0)
4798
4799	"RTN","TMGRPC1",480,0)
4800	if $get(LNAME)'="" do
4801	"RTN","TMGRPC1",481,0)
4802	. set Patient("NAME")=$get(LNAME)
4803	"RTN","TMGRPC1",482,0)
4804	. if $get(FNAME)'="" set Patient("NAME")=Patient("NAME")_","_FNAME
4805	"RTN","TMGRPC1",483,0)
4806	. if $get(MNAME)'="" set Patient("NAME")=Patient("NAME")_" "_MNAME
4807	"RTN","TMGRPC1",484,0)
4808	set Patient("DOB")=$get(DOB)
4809	"RTN","TMGRPC1",485,0)
4810	set Patient("SEX")=$get(SEX)
4811	"RTN","TMGRPC1",486,0)
4812	set Patient("SSNUM")=$get(SSNUM)
4813	"RTN","TMGRPC1",487,0)
4814	test if $get(AUTOADD)=1 set TMGFREG=1
4815	"RTN","TMGRPC1",488,0)
4816
4817	"RTN","TMGRPC1",489,0)
4818	if $get(PMS)=1 set Patient("PATIENTNUM")=$get(RECNUM) ;" <-- Medic account number
4819	"RTN","TMGRPC1",490,0)
4820	if $get(PMS)=2 set Patient("SEQUELNUM")=$get(RECNUM) ;" <-- Sequel or other account number
4821	"RTN","TMGRPC1",491,0)
4822	if $get(PMS)=3 set Patient("PARADIGMNUM")=$get(RECNUM) ;" <-- Paradigm or other account number
4823	"RTN","TMGRPC1",492,0)
4824
4825	"RTN","TMGRPC1",493,0)
4826	;"temp
4827	"RTN","TMGRPC1",494,0)
4828	;"merge ^TMG("TMP","GETDFN","KILLLATER")=Patient
4829	"RTN","TMGRPC1",495,0)
4830	;"set ^TMG("TMP","GETDFN","KILLLATER","FNAME")=FNAME
4831	"RTN","TMGRPC1",496,0)
4832	;"set ^TMG("TMP","GETDFN","KILLLATER","LNAME")=LNAME
4833	"RTN","TMGRPC1",497,0)
4834	;"set ^TMG("TMP","GETDFN","KILLLATER","MNAME")=MNAME
4835	"RTN","TMGRPC1",498,0)
4836
4837	"RTN","TMGRPC1",499,0)
4838	set RESULT=$$GetDFN^TMGGDFN(.Patient)
4839	"RTN","TMGRPC1",500,0)
4840
4841	"RTN","TMGRPC1",501,0)
4842	quit
4843	"RTN","TMGRPC1",502,0)
4844
4845	"RTN","TMGRPC1",503,0)
4846
4847	"RTN","TMGRPC1",504,0)
4848	BLANKTIU(RESULT,DFN,PERSON,LOC,DOS,TITLE)
4849	"RTN","TMGRPC1",505,0)
4850	;"Purpose: To create a new, blank TIU note and return it's IEN
4851	"RTN","TMGRPC1",506,0)
4852	;"Input: DFN -- IEN in PATIENT file of patient
4853	"RTN","TMGRPC1",507,0)
4854	;" PERSON -- Provider NAME
4855	"RTN","TMGRPC1",508,0)
4856	;" LOC -- Location for new document
4857	"RTN","TMGRPC1",509,0)
4858	;" DOS -- Date of Service
4859	"RTN","TMGRPC1",510,0)
4860	;" TITLE -- Title of new document
4861	"RTN","TMGRPC1",511,0)
4862	;"Results: IEN in file 8925 is returned in RESULT,
4863	"RTN","TMGRPC1",512,0)
4864	;" or -1^ErrMsg1;ErrMsg2... if failure
4865	"RTN","TMGRPC1",513,0)
4866	;"Note: This functionality probably duplicates that of RPC call:
4867	"RTN","TMGRPC1",514,0)
4868	;" TIU CREATE NOTE -- found after writing this...
4869	"RTN","TMGRPC1",515,0)
4870
4871	"RTN","TMGRPC1",516,0)
4872	new Document,Flag
4873	"RTN","TMGRPC1",517,0)
4874
4875	"RTN","TMGRPC1",518,0)
4876	set Document("DFN")=DFN
4877	"RTN","TMGRPC1",519,0)
4878	set Document("PROVIDER IEN")=$$GetProvIEN^TMGPUTN0(PERSON)
4879	"RTN","TMGRPC1",520,0)
4880	set Document("LOCATION")=$get(LOC)
4881	"RTN","TMGRPC1",521,0)
4882	set Document("DATE")=$get(DOS)
4883	"RTN","TMGRPC1",522,0)
4884	set Document("TITLE")=$get(TITLE)
4885	"RTN","TMGRPC1",523,0)
4886	set Document("TRANSCRIPTIONIST")=""
4887	"RTN","TMGRPC1",524,0)
4888	set Document("CHARACTER COUNT - TRANSCRIPTIONIST'S")=0
4889	"RTN","TMGRPC1",525,0)
4890
4891	"RTN","TMGRPC1",526,0)
4892	set RESULT=$$PrepDoc^TMGPUTN0(.Document)
4893	"RTN","TMGRPC1",527,0)
4894	if +RESULT>0 do ;"change capture method from Upload (default) to RPC
4895	"RTN","TMGRPC1",528,0)
4896	. new TMGFDA,TMGMSG
4897	"RTN","TMGRPC1",529,0)
4898	. set TMGFDA(8925,RESULT_",",1303)="R" ;"1303 = capture method. "R" = RPC
4899	"RTN","TMGRPC1",530,0)
4900	. do FILE^DIE("E","TMGFDA","TMGMSG") ;"ignore any errors.
4901	"RTN","TMGRPC1",531,0)
4902	else do
4903	"RTN","TMGRPC1",532,0)
4904	. new i,ErrMsg set ErrMsg=""
4905	"RTN","TMGRPC1",533,0)
4906	. for i=1:1:+$get(Document("ERROR","NUM")) do
4907	"RTN","TMGRPC1",534,0)
4908	. . set ErrMsg=ErrMsg_$get(Document("ERROR",i))_" \|\|"
4909	"RTN","TMGRPC1",535,0)
4910	. if $data(Document("ERROR","FM INFO"))>0 do
4911	"RTN","TMGRPC1",536,0)
4912	. . new ref set ref="Document(""ERROR"",""FM INFO"")"
4913	"RTN","TMGRPC1",537,0)
4914	. . set ErrMsg=ErrMsg_"FILEMAN SAYS:"
4915	"RTN","TMGRPC1",538,0)
4916	. . for set ref=$query(@ref) quit:(ref="")!(ref'["FM INFO") do
4917	"RTN","TMGRPC1",539,0)
4918	. . . if ErrMsg'="" set ErrMsg=ErrMsg_" \|\|"
4919	"RTN","TMGRPC1",540,0)
4920	. . . set ErrMsg=ErrMsg_$piece(ref,"DIERR",2)_"="_$get(@ref)
4921	"RTN","TMGRPC1",541,0)
4922	. if ErrMsg="" set ErrMsg="Unknown error"
4923	"RTN","TMGRPC1",542,0)
4924	. set ErrMsg=$translate(ErrMsg,"^","@")
4925	"RTN","TMGRPC1",543,0)
4926	. set $piece(RESULT,"^",2)=ErrMsg
4927	"RTN","TMGRPC1",544,0)
4928
4929	"RTN","TMGRPC1",545,0)
4930	;"temp
4931	"RTN","TMGRPC1",546,0)
4932	merge ^TMG("TMP","BLANKTIU","RESULT")=RESULT
4933	"RTN","TMGRPC1",547,0)
4934	merge ^TMG("TMP","BLANKTIU","Document")=Document
4935	"RTN","TMGRPC1",548,0)
4936
4937	"RTN","TMGRPC1",549,0)
4938
4939	"RTN","TMGRPC1",550,0)
4940	quit
4941	"RTN","TMGRPC1",551,0)
4942
4943	"RTN","TMGRPC1",552,0)
4944
4945	"RTN","TMGRPC1",553,0)
4946	AUTOSIGN(RESULT,DOCIEN)
4947	"RTN","TMGRPC1",554,0)
4948	;"Purpose: To automatically sign TIU note (8925).
4949	"RTN","TMGRPC1",555,0)
4950	;"Input: DOCIEN -- the IEN in 8925 of the file to be automatically signed.
4951	"RTN","TMGRPC1",556,0)
4952	;"Note: This function will not succeed unless field 1303 holds "R"
4953	"RTN","TMGRPC1",557,0)
4954	;" and an Author found for note
4955	"RTN","TMGRPC1",558,0)
4956	;"Results: Results passed back in RESULT(0) ARRAY
4957	"RTN","TMGRPC1",559,0)
4958	;" -1 = failure. 1= success
4959	"RTN","TMGRPC1",560,0)
4960	;" Any error message is passed back in RESULT("DIERR")
4961	"RTN","TMGRPC1",561,0)
4962	;"Note: This differs from RPC CALL: TIU SIGN RECORD in that a signiture
4963	"RTN","TMGRPC1",562,0)
4964	;" code is NOT required
4965	"RTN","TMGRPC1",563,0)
4966
4967	"RTN","TMGRPC1",564,0)
4968	new TMGFDA,TMGMSG
4969	"RTN","TMGRPC1",565,0)
4970	new AuthorIEN,AuthorName
4971	"RTN","TMGRPC1",566,0)
4972	new CaptureMethod
4973	"RTN","TMGRPC1",567,0)
4974
4975	"RTN","TMGRPC1",568,0)
4976	set DOCIEN=+$get(DOCIEN)
4977	"RTN","TMGRPC1",569,0)
4978	set RESULT=-1 ;"default to failure
4979	"RTN","TMGRPC1",570,0)
4980
4981	"RTN","TMGRPC1",571,0)
4982	set CaptureMethod=$piece($get(^TIU(8925,DOCIEN,13)),"^",3)
4983	"RTN","TMGRPC1",572,0)
4984	if CaptureMethod'="R" do goto ASDone
4985	"RTN","TMGRPC1",573,0)
4986	. set RESULT("DIERR")="Unable to auto-sign. Upload-Method was not 'R'."
4987	"RTN","TMGRPC1",574,0)
4988	set AuthorIEN=$piece($get(^TIU(8925,DOCIEN,12)),"^",2)
4989	"RTN","TMGRPC1",575,0)
4990	if AuthorIEN'>0 do goto ASDone
4991	"RTN","TMGRPC1",576,0)
4992	. set RESULT("DIERR")="Unable to find author of document."
4993	"RTN","TMGRPC1",577,0)
4994	set AuthorName=$piece($get(^VA(200,AuthorIEN,0)),"^",1)
4995	"RTN","TMGRPC1",578,0)
4996
4997	"RTN","TMGRPC1",579,0)
4998	set TMGFDA(8925,DOCIEN_",",.05)="COMPLETED" ;"field .05 = STATUS
4999	"RTN","TMGRPC1",580,0)
5000	set TMGFDA(8925,DOCIEN_",",1501)="NOW" ;"field 1501 = Signed date
5001	"RTN","TMGRPC1",581,0)
5002	set TMGFDA(8925,DOCIEN_",",1502)="`"_AuthorIEN ;"field 1502 = signed by
5003	"RTN","TMGRPC1",582,0)
5004	set TMGFDA(8925,DOCIEN_",",1503)=AuthorName ;"field 1503 = Signature block name
5005	"RTN","TMGRPC1",583,0)
5006	set TMGFDA(8925,DOCIEN_",",1504)="[Scanned image auto-signed]" ;"field 1504 = Signature block title
5007	"RTN","TMGRPC1",584,0)
5008	set TMGFDA(8925,DOCIEN_",",1505)="C" ;C=Chart ;"field 1505 = Signature mode
5009	"RTN","TMGRPC1",585,0)
5010	do FILE^DIE("E","TMGFDA","TMGMSG")
5011	"RTN","TMGRPC1",586,0)
5012	if $data(TMGMSG("DIERR")) do goto ASDone
5013	"RTN","TMGRPC1",587,0)
5014	. merge RESULT("DIERR")=TMGMSG("DIERR")
5015	"RTN","TMGRPC1",588,0)
5016
5017	"RTN","TMGRPC1",589,0)
5018	set RESULT(0)=1 ;"set success if we got this far.
5019	"RTN","TMGRPC1",590,0)
5020	ASDone
5021	"RTN","TMGRPC1",591,0)
5022	quit
5023	"RTN","TMGRPC1",592,0)
5024
5025	"RTN","TMGRPC1",593,0)
5026
5027	"RTN","TMGRPC1",594,0)
5028	DFNINFO(RESULT,DFN)
5029	"RTN","TMGRPC1",595,0)
5030	;"Purpose: To return array with demographcs details about patient
5031	"RTN","TMGRPC1",596,0)
5032	;"Input: RESULT (this is the output array)
5033	"RTN","TMGRPC1",597,0)
5034	;" DFN : The record number in file #2 of the patient to inquire about.
5035	"RTN","TMGRPC1",598,0)
5036	;"Results: Results passed back in RESULT array. Format as follows:
5037	"RTN","TMGRPC1",599,0)
5038	;" The results are in format: KeyName=Value,
5039	"RTN","TMGRPC1",600,0)
5040	;" There is no set order these will appear.
5041	"RTN","TMGRPC1",601,0)
5042	;" Here are the KeyName names that will be provided.
5043	"RTN","TMGRPC1",602,0)
5044	;" If the record has no value, then value will be empty
5045	"RTN","TMGRPC1",603,0)
5046	;" IEN=record#
5047	"RTN","TMGRPC1",604,0)
5048	;" COMBINED_NAME=
5049	"RTN","TMGRPC1",605,0)
5050	;" LNAME=
5051	"RTN","TMGRPC1",606,0)
5052	;" FNAME=
5053	"RTN","TMGRPC1",607,0)
5054	;" MNAME=
5055	"RTN","TMGRPC1",608,0)
5056	;" PREFIX=
5057	"RTN","TMGRPC1",609,0)
5058	;" SUFFIX=
5059	"RTN","TMGRPC1",610,0)
5060	;" DEGREE
5061	"RTN","TMGRPC1",611,0)
5062	;" DOB=
5063	"RTN","TMGRPC1",612,0)
5064	;" SEX=
5065	"RTN","TMGRPC1",613,0)
5066	;" SS_NUM=
5067	"RTN","TMGRPC1",614,0)
5068	;" ADDRESS_LINE_1=
5069	"RTN","TMGRPC1",615,0)
5070	;" ADDRESS_LINE_2=
5071	"RTN","TMGRPC1",616,0)
5072	;" ADDRESS_LINE_3=
5073	"RTN","TMGRPC1",617,0)
5074	;" CITY=
5075	"RTN","TMGRPC1",618,0)
5076	;" STATE=
5077	"RTN","TMGRPC1",619,0)
5078	;" ZIP4=
5079	"RTN","TMGRPC1",620,0)
5080	;" BAD_ADDRESS=
5081	"RTN","TMGRPC1",621,0)
5082	;" TEMP_ADDRESS_LINE_1=
5083	"RTN","TMGRPC1",622,0)
5084	;" TEMP_ADDRESS_LINE_2=
5085	"RTN","TMGRPC1",623,0)
5086	;" TEMP_ADDRESS_LINE_3=
5087	"RTN","TMGRPC1",624,0)
5088	;" TEMP_CITY=
5089	"RTN","TMGRPC1",625,0)
5090	;" TEMP_STATE=
5091	"RTN","TMGRPC1",626,0)
5092	;" TEMP_ZIP4=
5093	"RTN","TMGRPC1",627,0)
5094	;" TEMP_STARTING_DATE=
5095	"RTN","TMGRPC1",628,0)
5096	;" TEMP_ENDING_DATE=
5097	"RTN","TMGRPC1",629,0)
5098	;" TEMP_ADDRESS_ACTIVE=
5099	"RTN","TMGRPC1",630,0)
5100	;" CONF_ADDRESS_LINE_1=
5101	"RTN","TMGRPC1",631,0)
5102	;" CONF_ADDRESS_LINE_2=
5103	"RTN","TMGRPC1",632,0)
5104	;" CONF_ADDRESS_LINE_3=
5105	"RTN","TMGRPC1",633,0)
5106	;" CONF_CITY=
5107	"RTN","TMGRPC1",634,0)
5108	;" CONF_STATE=
5109	"RTN","TMGRPC1",635,0)
5110	;" CONF_ZIP4=
5111	"RTN","TMGRPC1",636,0)
5112	;" CONF_STARTING_DATE=
5113	"RTN","TMGRPC1",637,0)
5114	;" CONF_ENDING_DATE=
5115	"RTN","TMGRPC1",638,0)
5116	;" CONF_ADDRESS_ACTIVE=
5117	"RTN","TMGRPC1",639,0)
5118	;" PHONE_RESIDENCE=
5119	"RTN","TMGRPC1",640,0)
5120	;" PHONE_WORK=
5121	"RTN","TMGRPC1",641,0)
5122	;" PHONE_CELL=
5123	"RTN","TMGRPC1",642,0)
5124	;" PHONE_TEMP=
5125	"RTN","TMGRPC1",643,0)
5126
5127	"RTN","TMGRPC1",644,0)
5128	;"Note, for the following, there may be multiple entries. # is record number
5129	"RTN","TMGRPC1",645,0)
5130	;" ALIAS # NAME
5131	"RTN","TMGRPC1",646,0)
5132	;" ALIAS # SSN
5133	"RTN","TMGRPC1",647,0)
5134
5135	"RTN","TMGRPC1",648,0)
5136	new TMGFDA,TMGMSG,IENS
5137	"RTN","TMGRPC1",649,0)
5138	set IENS=""
5139	"RTN","TMGRPC1",650,0)
5140	new ptrParts set ptrParts=0
5141	"RTN","TMGRPC1",651,0)
5142	set DFN=+$get(DFN)
5143	"RTN","TMGRPC1",652,0)
5144	if DFN>0 do
5145	"RTN","TMGRPC1",653,0)
5146	. set ptrParts=+$piece($get(^DPT(DFN,"NAME")),"^",1) ;"ptr to file #20, NAME COMPONENTS
5147	"RTN","TMGRPC1",654,0)
5148	. set IENS=DFN_","
5149	"RTN","TMGRPC1",655,0)
5150	. do GETS^DIQ(2,IENS,"**","N","TMGFDA","TMGMSG")
5151	"RTN","TMGRPC1",656,0)
5152
5153	"RTN","TMGRPC1",657,0)
5154	new line set line=0
5155	"RTN","TMGRPC1",658,0)
5156	set RESULT(line)="IEN="_DFN set line=line+1
5157	"RTN","TMGRPC1",659,0)
5158	set RESULT(line)="COMBINED_NAME="_$get(TMGFDA(2,IENS,.01)) set line=line+1
5159	"RTN","TMGRPC1",660,0)
5160	new s set s=""
5161	"RTN","TMGRPC1",661,0)
5162	if ptrParts>0 set s=$get(^VA(20,ptrParts,1))
5163	"RTN","TMGRPC1",662,0)
5164	set RESULT(line)="LNAME="_$piece(s,"^",1) set line=line+1
5165	"RTN","TMGRPC1",663,0)
5166	set RESULT(line)="FNAME="_$piece(s,"^",2) set line=line+1
5167	"RTN","TMGRPC1",664,0)
5168	set RESULT(line)="MNAME="_$piece(s,"^",3) set line=line+1
5169	"RTN","TMGRPC1",665,0)
5170	set RESULT(line)="PREFIX="_$piece(s,"^",4) set line=line+1
5171	"RTN","TMGRPC1",666,0)
5172	set RESULT(line)="SUFFIX="_$piece(s,"^",5) set line=line+1
5173	"RTN","TMGRPC1",667,0)
5174	set RESULT(line)="DEGREE="_$piece(s,"^",5) set line=line+1
5175	"RTN","TMGRPC1",668,0)
5176	set RESULT(line)="DOB="_$get(TMGFDA(2,IENS,.03)) set line=line+1
5177	"RTN","TMGRPC1",669,0)
5178	set RESULT(line)="SEX="_$get(TMGFDA(2,IENS,.02)) set line=line+1
5179	"RTN","TMGRPC1",670,0)
5180	set RESULT(line)="SS_NUM="_$get(TMGFDA(2,IENS,.09)) set line=line+1
5181	"RTN","TMGRPC1",671,0)
5182	set RESULT(line)="EMAIL="_$get(TMGFDA(2,IENS,.133)) set line=line+1
5183	"RTN","TMGRPC1",672,0)
5184	set RESULT(line)="ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.111)) set line=line+1
5185	"RTN","TMGRPC1",673,0)
5186	set RESULT(line)="ADDRESS_LINE_2="_$get(TMGFDA(2,IENS,.112)) set line=line+1
5187	"RTN","TMGRPC1",674,0)
5188	set RESULT(line)="ADDRESS_LINE_3="_$get(TMGFDA(2,IENS,.113)) set line=line+1
5189	"RTN","TMGRPC1",675,0)
5190	set RESULT(line)="CITY="_$get(TMGFDA(2,IENS,.114)) set line=line+1
5191	"RTN","TMGRPC1",676,0)
5192	set RESULT(line)="STATE="_$get(TMGFDA(2,IENS,.115)) set line=line+1
5193	"RTN","TMGRPC1",677,0)
5194	if $get(TMGFDA(2,IENS,.1122))'="" do
5195	"RTN","TMGRPC1",678,0)
5196	. set RESULT(line)="ZIP4="_$get(TMGFDA(2,IENS,.1122)) set line=line+1
5197	"RTN","TMGRPC1",679,0)
5198	else if $get(TMGFDA(2,IENS,.1116))'="" do
5199	"RTN","TMGRPC1",680,0)
5200	. set RESULT(line)="ZIP4="_$get(TMGFDA(2,IENS,.1116)) set line=line+1
5201	"RTN","TMGRPC1",681,0)
5202	set RESULT(line)="BAD_ADDRESS="_$get(TMGFDA(2,IENS,.121)) set line=line+1
5203	"RTN","TMGRPC1",682,0)
5204	set RESULT(line)="TEMP_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1211)) set line=line+1
5205	"RTN","TMGRPC1",683,0)
5206	set RESULT(line)="TEMP_ADDRESS_LINE_2="_$get(TMGFDA(2,IENS,.1212)) set line=line+1
5207	"RTN","TMGRPC1",684,0)
5208	set RESULT(line)="TEMP_ADDRESS_LINE_3="_$get(TMGFDA(2,IENS,.1213)) set line=line+1
5209	"RTN","TMGRPC1",685,0)
5210	set RESULT(line)="TEMP_CITY="_$get(TMGFDA(2,IENS,.1214)) set line=line+1
5211	"RTN","TMGRPC1",686,0)
5212	set RESULT(line)="TEMP_STATE="_$get(TMGFDA(2,IENS,.1215)) set line=line+1
5213	"RTN","TMGRPC1",687,0)
5214	set RESULT(line)="TEMP_ZIP4="_$get(TMGFDA(2,IENS,.1216)) set line=line+1
5215	"RTN","TMGRPC1",688,0)
5216	set RESULT(line)="TEMP_STARTING_DATE="_$get(TMGFDA(2,IENS,.1217)) set line=line+1
5217	"RTN","TMGRPC1",689,0)
5218	set RESULT(line)="TEMP_ENDING_DATE="_$get(TMGFDA(2,IENS,.1218)) set line=line+1
5219	"RTN","TMGRPC1",690,0)
5220	set RESULT(line)="TEMP_ADDRESS_ACTIVE="_$get(TMGFDA(2,IENS,.12105)) set line=line+1
5221	"RTN","TMGRPC1",691,0)
5222	set RESULT(line)="CONF_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1411)) set line=line+1
5223	"RTN","TMGRPC1",692,0)
5224	set RESULT(line)="CONF_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1412)) set line=line+1
5225	"RTN","TMGRPC1",693,0)
5226	set RESULT(line)="CONF_ADDRESS_LINE_1="_$get(TMGFDA(2,IENS,.1413)) set line=line+1
5227	"RTN","TMGRPC1",694,0)
5228	set RESULT(line)="CONF_CITY="_$get(TMGFDA(2,IENS,.1414)) set line=line+1
5229	"RTN","TMGRPC1",695,0)
5230	set RESULT(line)="CONF_STATE="_$get(TMGFDA(2,IENS,.1415)) set line=line+1
5231	"RTN","TMGRPC1",696,0)
5232	set RESULT(line)="CONF_ZIP4="_$get(TMGFDA(2,IENS,.1416)) set line=line+1
5233	"RTN","TMGRPC1",697,0)
5234	set RESULT(line)="CONF_STARTING_DATE="_$get(TMGFDA(2,IENS,.1417)) set line=line+1
5235	"RTN","TMGRPC1",698,0)
5236	set RESULT(line)="CONF_ENDING_DATE="_$get(TMGFDA(2,IENS,.1418)) set line=line+1
5237	"RTN","TMGRPC1",699,0)
5238	set RESULT(line)="CONF_ADDRESS_ACTIVE="_$get(TMGFDA(2,IENS,.14105)) set line=line+1
5239	"RTN","TMGRPC1",700,0)
5240	set RESULT(line)="PHONE_RESIDENCE="_$get(TMGFDA(2,IENS,.131)) set line=line+1
5241	"RTN","TMGRPC1",701,0)
5242	set RESULT(line)="PHONE_WORK="_$get(TMGFDA(2,IENS,.132)) set line=line+1
5243	"RTN","TMGRPC1",702,0)
5244	set RESULT(line)="PHONE_CELL="_$get(TMGFDA(2,IENS,.134)) set line=line+1
5245	"RTN","TMGRPC1",703,0)
5246	set RESULT(line)="PHONE_TEMP="_$get(TMGFDA(2,IENS,.1219)) set line=line+1
5247	"RTN","TMGRPC1",704,0)
5248
5249	"RTN","TMGRPC1",705,0)
5250	;"the GETS doesn't return ALIAS entries, so will do manually:
5251	"RTN","TMGRPC1",706,0)
5252	new Itr,IEN
5253	"RTN","TMGRPC1",707,0)
5254	set IEN=$$ItrInit^TMGITR(2.01,.Itr,DFN_",")
5255	"RTN","TMGRPC1",708,0)
5256	if IEN'="" for do quit:(+$$ItrNext^TMGITR(.Itr,.IEN)'>0)
5257	"RTN","TMGRPC1",709,0)
5258	. new s set s=$get(^DPT(DFN,.01,IEN,0))
5259	"RTN","TMGRPC1",710,0)
5260	. if s="" quit
5261	"RTN","TMGRPC1",711,0)
5262	. set RESULT(line)="ALIAS "_IEN_" NAME="_$piece(s,"^",1) set line=line+1
5263	"RTN","TMGRPC1",712,0)
5264	. set RESULT(line)="ALIAS "_IEN_" SSN="_$piece(s,"^",2) set line=line+1
5265	"RTN","TMGRPC1",713,0)
5266	. ;"maybe later do something with NAME COMPONENTS in Alias.
5267	"RTN","TMGRPC1",714,0)
5268
5269	"RTN","TMGRPC1",715,0)
5270	quit
5271	"RTN","TMGRPC1",716,0)
5272
5273	"RTN","TMGRPC1",717,0)
5274
5275	"RTN","TMGRPC1",718,0)
5276	STPTINFO(RESULT,DFN,INFO) ;" SET PATIENT INFO
5277	"RTN","TMGRPC1",719,0)
5278	;"Purpose: To set demographcs details about patient
5279	"RTN","TMGRPC1",720,0)
5280	;"Input: RESULT (this is the output array)
5281	"RTN","TMGRPC1",721,0)
5282	;" DFN : The record number in file #2 of the patient to inquire about.
5283	"RTN","TMGRPC1",722,0)
5284	;" INFO: Format as follows:
5285	"RTN","TMGRPC1",723,0)
5286	;" The results are in format: INFO("KeyName")=Value,
5287	"RTN","TMGRPC1",724,0)
5288	;" There is no set order these will appear.
5289	"RTN","TMGRPC1",725,0)
5290	;" Here are the KeyName names that will be provided.
5291	"RTN","TMGRPC1",726,0)
5292	;" If the record has no value, then value will be empty
5293	"RTN","TMGRPC1",727,0)
5294	;" If a record should be deleted, its value will be @
5295	"RTN","TMGRPC1",728,0)
5296	;" INFO("COMBINED_NAME")=
5297	"RTN","TMGRPC1",729,0)
5298	;" INFO("PREFIX")=
5299	"RTN","TMGRPC1",730,0)
5300	;" INFO("SUFFIX")=
5301	"RTN","TMGRPC1",731,0)
5302	;" INFO("DEGREE")=
5303	"RTN","TMGRPC1",732,0)
5304	;" INFO("DOB")=
5305	"RTN","TMGRPC1",733,0)
5306	;" INFO("SEX")=
5307	"RTN","TMGRPC1",734,0)
5308	;" INFO("SS_NUM")=
5309	"RTN","TMGRPC1",735,0)
5310	;" INFO("ADDRESS_LINE_1")=
5311	"RTN","TMGRPC1",736,0)
5312	;" INFO("ADDRESS_LINE_2")=
5313	"RTN","TMGRPC1",737,0)
5314	;" INFO("ADDRESS_LINE_3")=
5315	"RTN","TMGRPC1",738,0)
5316	;" INFO("CITY")=
5317	"RTN","TMGRPC1",739,0)
5318	;" INFO("STATE")=
5319	"RTN","TMGRPC1",740,0)
5320	;" INFO("ZIP4")=
5321	"RTN","TMGRPC1",741,0)
5322	;" INFO("BAD_ADDRESS")=
5323	"RTN","TMGRPC1",742,0)
5324	;" INFO("TEMP_ADDRESS_LINE_1")=
5325	"RTN","TMGRPC1",743,0)
5326	;" INFO("TEMP_ADDRESS_LINE_2")=
5327	"RTN","TMGRPC1",744,0)
5328	;" INFO("TEMP_ADDRESS_LINE_3")=
5329	"RTN","TMGRPC1",745,0)
5330	;" INFO("TEMP_CITY")=
5331	"RTN","TMGRPC1",746,0)
5332	;" INFO("TEMP_STATE")=
5333	"RTN","TMGRPC1",747,0)
5334	;" INFO("TEMP_ZIP4")=
5335	"RTN","TMGRPC1",748,0)
5336	;" INFO("TEMP_STARTING_DATE")=
5337	"RTN","TMGRPC1",749,0)
5338	;" INFO("TEMP_ENDING_DATE")=
5339	"RTN","TMGRPC1",750,0)
5340	;" INFO("TEMP_ADDRESS_ACTIVE")=
5341	"RTN","TMGRPC1",751,0)
5342	;" INFO("CONF_ADDRESS_LINE_1")=
5343	"RTN","TMGRPC1",752,0)
5344	;" INFO("CONF_ADDRESS_LINE_2")=
5345	"RTN","TMGRPC1",753,0)
5346	;" INFO("CONF_ADDRESS_LINE_3")=
5347	"RTN","TMGRPC1",754,0)
5348	;" INFO("CONF_CITY")=
5349	"RTN","TMGRPC1",755,0)
5350	;" INFO("CONF_STATE")=
5351	"RTN","TMGRPC1",756,0)
5352	;" INFO("CONF_ZIP4")=
5353	"RTN","TMGRPC1",757,0)
5354	;" INFO("CONF_STARTING_DATE")=
5355	"RTN","TMGRPC1",758,0)
5356	;" INFO("CONF_ENDING_DATE")=
5357	"RTN","TMGRPC1",759,0)
5358	;" INFO("CONF_ADDRESS_ACTIVE")=
5359	"RTN","TMGRPC1",760,0)
5360	;" INFO("PHONE_RESIDENCE")=
5361	"RTN","TMGRPC1",761,0)
5362	;" INFO("PHONE_WORK")=
5363	"RTN","TMGRPC1",762,0)
5364	;" INFO("PHONE_CELL")=
5365	"RTN","TMGRPC1",763,0)
5366	;" INFO("PHONE_TEMP")=
5367	"RTN","TMGRPC1",764,0)
5368	;"Note, for the following, there may be multiple entries. # is record number
5369	"RTN","TMGRPC1",765,0)
5370	;" If a record should be added, it will be marked +1, +2 etc.
5371	"RTN","TMGRPC1",766,0)
5372	;" INFO("ALIAS # NAME")=
5373	"RTN","TMGRPC1",767,0)
5374	;" INFO("ALIAS # SSN")=
5375	"RTN","TMGRPC1",768,0)
5376	;"
5377	"RTN","TMGRPC1",769,0)
5378	;"Results: Results passed back in RESULT string:
5379	"RTN","TMGRPC1",770,0)
5380	;" 1 = success
5381	"RTN","TMGRPC1",771,0)
5382	;" -1^Message = failure
5383	"RTN","TMGRPC1",772,0)
5384
5385	"RTN","TMGRPC1",773,0)
5386	set RESULT=1 ;"default to success
5387	"RTN","TMGRPC1",774,0)
5388
5389	"RTN","TMGRPC1",775,0)
5390	;"kill ^TMG("TMP","RPC")
5391	"RTN","TMGRPC1",776,0)
5392	;"merge ^TMG("TMP","RPC")=INFO ;"temp... remove later
5393	"RTN","TMGRPC1",777,0)
5394
5395	"RTN","TMGRPC1",778,0)
5396	new TMGFDA,TMGMSG,IENS
5397	"RTN","TMGRPC1",779,0)
5398	set IENS=DFN_","
5399	"RTN","TMGRPC1",780,0)
5400	new key set key=""
5401	"RTN","TMGRPC1",781,0)
5402	for set key=$order(INFO(key)) quit:(key="") do
5403	"RTN","TMGRPC1",782,0)
5404	. if key="COMBINED_NAME" set TMGFDA(2,IENS,.01)=INFO("COMBINED_NAME")
5405	"RTN","TMGRPC1",783,0)
5406	. else if +key=key set TMGFDA(2,IENS,key)=INFO(key)
5407	"RTN","TMGRPC1",784,0)
5408	. else if key="DOB" set TMGFDA(2,IENS,.03)=INFO("DOB")
5409	"RTN","TMGRPC1",785,0)
5410	. else if key="SEX" set TMGFDA(2,IENS,.02)=INFO("SEX")
5411	"RTN","TMGRPC1",786,0)
5412	. else if key="SS_NUM" set TMGFDA(2,IENS,.09)=INFO("SS_NUM")
5413	"RTN","TMGRPC1",787,0)
5414	. else if key="ADDRESS_LINE_1" set TMGFDA(2,IENS,.111)=INFO("ADDRESS_LINE_1")
5415	"RTN","TMGRPC1",788,0)
5416	. else if key="ADDRESS_LINE_2" set TMGFDA(2,IENS,.112)=INFO("ADDRESS_LINE_2")
5417	"RTN","TMGRPC1",789,0)
5418	. else if key="ADDRESS_LINE_3" set TMGFDA(2,IENS,.113)=INFO("ADDRESS_LINE_3")
5419	"RTN","TMGRPC1",790,0)
5420	. else if key="CITY" set TMGFDA(2,IENS,.114)=INFO("CITY")
5421	"RTN","TMGRPC1",791,0)
5422	. else if key="STATE" set TMGFDA(2,IENS,.115)=INFO("STATE")
5423	"RTN","TMGRPC1",792,0)
5424	. else if key="ZIP4" set TMGFDA(2,IENS,.1112)=INFO("ZIP4")
5425	"RTN","TMGRPC1",793,0)
5426	. else if key="BAD_ADDRESS" set TMGFDA(2,IENS,.121)=INFO("BAD_ADDRESS")
5427	"RTN","TMGRPC1",794,0)
5428	. else if key="TEMP_ADDRESS_LINE_1" set TMGFDA(2,IENS,.1211)=INFO("TEMP_ADDRESS_LINE_1")
5429	"RTN","TMGRPC1",795,0)
5430	. else if key="TEMP_ADDRESS_LINE_2" set TMGFDA(2,IENS,.1212)=INFO("TEMP_ADDRESS_LINE_2")
5431	"RTN","TMGRPC1",796,0)
5432	. else if key="TEMP_ADDRESS_LINE_3" set TMGFDA(2,IENS,.1213)=INFO("TEMP_ADDRESS_LINE_3")
5433	"RTN","TMGRPC1",797,0)
5434	. else if key="TEMP_CITY" set TMGFDA(2,IENS,.1214)=INFO("TEMP_CITY")
5435	"RTN","TMGRPC1",798,0)
5436	. else if key="TEMP_STATE" set TMGFDA(2,IENS,.1215)=INFO("TEMP_STATE")
5437	"RTN","TMGRPC1",799,0)
5438	. else if key="TEMP_ZIP4" set TMGFDA(2,IENS,.12112)=INFO("TEMP_ZIP4")
5439	"RTN","TMGRPC1",800,0)
5440	. else if key="TEMP_STARTING_DATE" set TMGFDA(2,IENS,.1217)=INFO("TEMP_STARTING_DATE")
5441	"RTN","TMGRPC1",801,0)
5442	. else if key="TEMP_ENDING_DATE" set TMGFDA(2,IENS,.1218)=INFO("TEMP_ENDING_DATE")
5443	"RTN","TMGRPC1",802,0)
5444	. else if key="TEMP_ADDRESS_ACTIVE" set TMGFDA(2,IENS,.12105)=INFO("TEMP_ADDRESS_ACTIVE")
5445	"RTN","TMGRPC1",803,0)
5446	. else if key="CONF_ADDRESS_LINE_1" set TMGFDA(2,IENS,.1411)=INFO("CONF_ADDRESS_LINE_1")
5447	"RTN","TMGRPC1",804,0)
5448	. else if key="CONF_ADDRESS_LINE_2" set TMGFDA(2,IENS,.1412)=INFO("CONF_ADDRESS_LINE_2")
5449	"RTN","TMGRPC1",805,0)
5450	. else if key="CONF_ADDRESS_LINE_3" set TMGFDA(2,IENS,.1413)=INFO("CONF_ADDRESS_LINE_3")
5451	"RTN","TMGRPC1",806,0)
5452	. else if key="CONF_CITY" set TMGFDA(2,IENS,.1414)=INFO("CONF_CITY")
5453	"RTN","TMGRPC1",807,0)
5454	. else if key="CONF_STATE" set TMGFDA(2,IENS,.1415)=INFO("CONF_STATE")
5455	"RTN","TMGRPC1",808,0)
5456	. else if key="CONF_ZIP" set TMGFDA(2,IENS,.1416)=INFO("CONF_ZIP")
5457	"RTN","TMGRPC1",809,0)
5458	. else if key="CONF_STARTING_DATE" set TMGFDA(2,IENS,.1417)=INFO("CONF_STARTING_DATE")
5459	"RTN","TMGRPC1",810,0)
5460	. else if key="CONF_ENDING_DATE" set TMGFDA(2,IENS,.1418)=INFO("CONF_ENDING_DATE")
5461	"RTN","TMGRPC1",811,0)
5462	. else if key="CONF_ADDRESS_ACTIVE" set TMGFDA(2,IENS,.14105)=INFO("CONF_ADDRESS_ACTIVE")
5463	"RTN","TMGRPC1",812,0)
5464	. else if key="PHONE_RESIDENCE" set TMGFDA(2,IENS,.131)=INFO("PHONE_RESIDENCE")
5465	"RTN","TMGRPC1",813,0)
5466	. else if key="PHONE_WORK" set TMGFDA(2,IENS,.132)=INFO("PHONE_WORK")
5467	"RTN","TMGRPC1",814,0)
5468	. else if key="PHONE_CELL" set TMGFDA(2,IENS,.134)=INFO("PHONE_CELL")
5469	"RTN","TMGRPC1",815,0)
5470	. else if key="PHONE_TEMP" set TMGFDA(2,IENS,.1219)=INFO("PHONE_TEMP")
5471	"RTN","TMGRPC1",816,0)
5472	. else if key="EMAIL" set TMGFDA(2,IENS,.133)=INFO("EMAIL")
5473	"RTN","TMGRPC1",817,0)
5474
5475	"RTN","TMGRPC1",818,0)
5476	if $data(TMGFDA) do
5477	"RTN","TMGRPC1",819,0)
5478	. do FILE^DIE("EKST","TMGFDA","TMGMSG")
5479	"RTN","TMGRPC1",820,0)
5480	. if $data(TMGMSG("DIERR")) do
5481	"RTN","TMGRPC1",821,0)
5482	. . set RESULT="-1^Filing Error Occured: "_$get(TMGMSG("DIERR",1,"TEXT",1))
5483	"RTN","TMGRPC1",822,0)
5484	. . ;"merge ^TMG("TMP","RPC","DIERR")=TMGMSG("DIERR")
5485	"RTN","TMGRPC1",823,0)
5486	. . ;"merge ^TMG("TMP","RPC","FDA")=TMGFDA
5487	"RTN","TMGRPC1",824,0)
5488
5489	"RTN","TMGRPC1",825,0)
5490	;"now file Alias info separately
5491	"RTN","TMGRPC1",826,0)
5492	if RESULT=1 do
5493	"RTN","TMGRPC1",827,0)
5494	. new tempArray,index,key2
5495	"RTN","TMGRPC1",828,0)
5496	. new key set key=""
5497	"RTN","TMGRPC1",829,0)
5498	. for set key=$order(INFO(key)) quit:(key="") do
5499	"RTN","TMGRPC1",830,0)
5500	. . if key["ALIAS" do
5501	"RTN","TMGRPC1",831,0)
5502	. . . set index=$piece(key," ",2) quit:(index="")
5503	"RTN","TMGRPC1",832,0)
5504	. . . set key2=$piece(key," ",3)
5505	"RTN","TMGRPC1",833,0)
5506	. . . set tempArray(index,key2)=INFO(key)
5507	"RTN","TMGRPC1",834,0)
5508	. set index=0 for set index=$order(tempArray(index)) quit:(index="")!(RESULT'=1) do
5509	"RTN","TMGRPC1",835,0)
5510	. . new TMGFDA,TMGMSG,TMGIEN,newRec
5511	"RTN","TMGRPC1",836,0)
5512	. . set newRec=0
5513	"RTN","TMGRPC1",837,0)
5514	. . set key="" for set key=$order(tempArray(index,key)) quit:(key="")!(RESULT'=1) do
5515	"RTN","TMGRPC1",838,0)
5516	. . . if key="NAME" set TMGFDA(2.01,index_","_DFN_",",.01)=$get(tempArray(index,"NAME"))
5517	"RTN","TMGRPC1",839,0)
5518	. . . if key="SSN" set TMGFDA(2.01,index_","_DFN_",",1)=$get(tempArray(index,"SSN"))
5519	"RTN","TMGRPC1",840,0)
5520	. . . if index["+" set newRec=1
5521	"RTN","TMGRPC1",841,0)
5522	. . if $data(TMGFDA) do
5523	"RTN","TMGRPC1",842,0)
5524	. . . if newRec=0 do FILE^DIE("EKST","TMGFDA","TMGMSG")
5525	"RTN","TMGRPC1",843,0)
5526	. . . else do UPDATE^DIE("ES","TMGFDA","TMGIEN","TMGMSG")
5527	"RTN","TMGRPC1",844,0)
5528	. . if $data(TMGMSG("DIERR")) do
5529	"RTN","TMGRPC1",845,0)
5530	. . . set RESULT="-1^Filing Error Occured: "_$get(TMGMSG("DIERR",1,"TEXT",1))
5531	"RTN","TMGRPC1",846,0)
5532	. . . ;"merge ^TMG("TMP","RPC","DIERR")=TMGMSG("DIERR")
5533	"RTN","TMGRPC1",847,0)
5534	. . . ;"merge ^TMG("TMP","RPC","FDA")=TMGFDA
5535	"RTN","TMGRPC1",848,0)
5536
5537	"RTN","TMGRPC1",849,0)
5538	quit
5539	"RTN","TMGRPC1",850,0)
5540
5541	"RTN","TMGRPC1",851,0)
5542	PTADD(RESULT,INFO) ;" ADD PATIENT
5543	"RTN","TMGRPC1",852,0)
5544	;"Purpose: To add a patient
5545	"RTN","TMGRPC1",853,0)
5546	;"Input: RESULT (this is the output array)
5547	"RTN","TMGRPC1",854,0)
5548	;"
5549	"RTN","TMGRPC1",855,0)
5550	;" INFO: Format as follows:
5551	"RTN","TMGRPC1",856,0)
5552	;" The results are in format: INFO("KeyName")=Value,
5553	"RTN","TMGRPC1",857,0)
5554	;" There is no set order these will appear.
5555	"RTN","TMGRPC1",858,0)
5556	;" Here are the KeyName names that will be provided.
5557	"RTN","TMGRPC1",859,0)
5558	;" If the record has no value, then value will be empty
5559	"RTN","TMGRPC1",860,0)
5560	;" If a record should be deleted, its value will be @
5561	"RTN","TMGRPC1",861,0)
5562	;" INFO("COMBINED_NAME")=
5563	"RTN","TMGRPC1",862,0)
5564	;" INFO("DOB")=
5565	"RTN","TMGRPC1",863,0)
5566	;" INFO("SEX")=
5567	"RTN","TMGRPC1",864,0)
5568	;" INFO("SS_NUM")=
5569	"RTN","TMGRPC1",865,0)
5570	;" INFO("Veteran")=
5571	"RTN","TMGRPC1",866,0)
5572	;" INFO("PtType")=
5573	"RTN","TMGRPC1",867,0)
5574	;"Results: Results passed back in RESULT string:
5575	"RTN","TMGRPC1",868,0)
5576	;" DFN = success
5577	"RTN","TMGRPC1",869,0)
5578	;" -1^Message = failure
5579	"RTN","TMGRPC1",870,0)
5580	;" 0^DFN = already exists
5581	"RTN","TMGRPC1",871,0)
5582
5583	"RTN","TMGRPC1",872,0)
5584	set RESULT=1 ;"default to success
5585	"RTN","TMGRPC1",873,0)
5586
5587	"RTN","TMGRPC1",874,0)
5588	kill ^TMG("TMP","RPC")
5589	"RTN","TMGRPC1",875,0)
5590	merge ^TMG("TMP","RPC")=INFO ;"temp... remove later
5591	"RTN","TMGRPC1",876,0)
5592
5593	"RTN","TMGRPC1",877,0)
5594	new TMGFDA,TMGMSG,IENS,PATIENT,DFN,TMGFREG
5595	"RTN","TMGRPC1",878,0)
5596	;" set IENS=DFN_","
5597	"RTN","TMGRPC1",879,0)
5598	new key set key=""
5599	"RTN","TMGRPC1",880,0)
5600	for set key=$order(INFO(key)) quit:(key="") do
5601	"RTN","TMGRPC1",881,0)
5602	. if key="COMBINED_NAME" set PATIENT("NAME")=INFO("COMBINED_NAME")
5603	"RTN","TMGRPC1",882,0)
5604	. else if key="DOB" set PATIENT("DOB")=INFO("DOB")
5605	"RTN","TMGRPC1",883,0)
5606	. else if key="SEX" set PATIENT("SEX")=INFO("SEX")
5607	"RTN","TMGRPC1",884,0)
5608	. else if key="SS_NUM" set PATIENT("SSNUM")=INFO("SS_NUM")
5609	"RTN","TMGRPC1",885,0)
5610	. else if key="Veteran" set PATIENT("VETERAN")=INFO("Veteran")
5611	"RTN","TMGRPC1",886,0)
5612	. else if key="PtType" set PATIENT("PT_TYPE")=INFO("PtType")
5613	"RTN","TMGRPC1",887,0)
5614	set DFN=$$GetDFN^TMGGDFN(.PATIENT)
5615	"RTN","TMGRPC1",888,0)
5616	if DFN=-1 do
5617	"RTN","TMGRPC1",889,0)
5618	. new Entry,result,ErrMsg
5619	"RTN","TMGRPC1",890,0)
5620	. do Pat2Entry^TMGGDFN(.PATIENT,.Entry)
5621	"RTN","TMGRPC1",891,0)
5622	. set DFN=$$AddNewPt^TMGGDFN(.Entry,.ErrMsg)
5623	"RTN","TMGRPC1",892,0)
5624	. ;"set DFN=$$GetDFN^TMGGDFN(.PATIENT)
5625	"RTN","TMGRPC1",893,0)
5626	. if DFN'>0 do
5627	"RTN","TMGRPC1",894,0)
5628	. . set RESULT="-1^ERROR ADDING" ;"should use ErrMsg from above. Fix later
5629	"RTN","TMGRPC1",895,0)
5630	. . set RESULT=RESULT_". "_$$GetErrStr^TMGDEBUG(.ErrMsg)
5631	"RTN","TMGRPC1",896,0)
5632	. else do
5633	"RTN","TMGRPC1",897,0)
5634	.. set RESULT=DFN
5635	"RTN","TMGRPC1",898,0)
5636	else do
5637	"RTN","TMGRPC1",899,0)
5638	. set RESULT="0^"_DFN
5639	"RTN","TMGRPC1",900,0)
5640
5641	"RTN","TMGRPC1",901,0)
5642	quit
5643	"RTN","TMGRPC1",902,0)
5644
5645	"RTN","TMGRPC1",903,0)
5646
5647	"RTN","TMGRPC1",904,0)
5648	GETBARCD(GREF,MESSAGE,OPTION)
5649	"RTN","TMGRPC1",905,0)
5650	;"SCOPE: Public
5651	"RTN","TMGRPC1",906,0)
5652	;"RPC that calls this: TMG BARCODE ENCODE
5653	"RTN","TMGRPC1",907,0)
5654	;"Purpose: To provide an entry point for a RPC call from a client.
5655	"RTN","TMGRPC1",908,0)
5656	;" A 2D DataMatrix Bar Code will be create and passed to client.
5657	"RTN","TMGRPC1",909,0)
5658	;" It will not be stored on server
5659	"RTN","TMGRPC1",910,0)
5660	;"Input: GREF -- OUT PARAM -- the array to pass the result back in (PASSED BY REFERENCE)
5661	"RTN","TMGRPC1",911,0)
5662	;" MESSAGE-- The text to use to create the barcode
5663	"RTN","TMGRPC1",912,0)
5664	;" OPTION -- Array that may hold optional settings, as follows:
5665	"RTN","TMGRPC1",913,0)
5666	;" OPTION("IMAGE TYPE")="jpg" <-- if not specified, then default is "png"
5667	"RTN","TMGRPC1",914,0)
5668	;"Output: results are passed out in @GREF
5669	"RTN","TMGRPC1",915,0)
5670	;" @GREF@(0)=success; 1=success, 0=failure
5671	"RTN","TMGRPC1",916,0)
5672	;" @GREF@(1..xxx) = actual data
5673	"RTN","TMGRPC1",917,0)
5674
5675	"RTN","TMGRPC1",918,0)
5676	;"NOTE: dmtxread must be installed on linux host.
5677	"RTN","TMGRPC1",919,0)
5678	;" I found source code here:
5679	"RTN","TMGRPC1",920,0)
5680	;" http://sourceforge.net/projects/libdmtx/
5681	"RTN","TMGRPC1",921,0)
5682	;" After installing (./configure --> make --> make install), I
5683	"RTN","TMGRPC1",922,0)
5684	;" copied dmtxread and dmtxwrite, which were found in the
5685	"RTN","TMGRPC1",923,0)
5686	;" (installdir)/util/dmtxread/.libs and (installdir)/util/dmtxwrite/.libs
5687	"RTN","TMGRPC1",924,0)
5688	;" folders, into a folder on the system path. I chose /usr/bin/
5689	"RTN","TMGRPC1",925,0)
5690	;" Also, to achieve compile of above, I had to install required libs.
5691	"RTN","TMGRPC1",926,0)
5692	;" See notes included with dmtx source code.
5693	"RTN","TMGRPC1",927,0)
5694
5695	"RTN","TMGRPC1",928,0)
5696	new FileSpec
5697	"RTN","TMGRPC1",929,0)
5698	new file
5699	"RTN","TMGRPC1",930,0)
5700	new FName,FPath
5701	"RTN","TMGRPC1",931,0)
5702
5703	"RTN","TMGRPC1",932,0)
5704	set GREF="^TMP(""GETBARCD^TMGRPC1"","_$J_")"
5705	"RTN","TMGRPC1",933,0)
5706	kill @GREF
5707	"RTN","TMGRPC1",934,0)
5708	set @GREF@(0)="" ;"default to failure
5709	"RTN","TMGRPC1",935,0)
5710	set MESSAGE=$get(MESSAGE)
5711	"RTN","TMGRPC1",936,0)
5712	if MESSAGE="" goto GBCDone
5713	"RTN","TMGRPC1",937,0)
5714
5715	"RTN","TMGRPC1",938,0)
5716	;"Create the barcode and get file name and path
5717	"RTN","TMGRPC1",939,0)
5718	set file=$$MAKEBC^TMGBARC(MESSAGE,.OPTION)
5719	"RTN","TMGRPC1",940,0)
5720	do SplitFNamePath^TMGIOUTL(file,.FPath,.FName,"/")
5721	"RTN","TMGRPC1",941,0)
5722
5723	"RTN","TMGRPC1",942,0)
5724	;"Load binary image into global array
5725	"RTN","TMGRPC1",943,0)
5726	set @GREF@(0)=$$BFTG^TMGBINF(.FPath,.FName,$name(@GREF@(1)),3)
5727	"RTN","TMGRPC1",944,0)
5728
5729	"RTN","TMGRPC1",945,0)
5730	;"convert binary data to ascii encoded data
5731	"RTN","TMGRPC1",946,0)
5732	do ENCODE($name(@GREF@(1)),3)
5733	"RTN","TMGRPC1",947,0)
5734
5735	"RTN","TMGRPC1",948,0)
5736	;"delete temp image file
5737	"RTN","TMGRPC1",949,0)
5738	do SplitFNamePath^TMGIOUTL(file,.FPath,.FName,"/")
5739	"RTN","TMGRPC1",950,0)
5740	set FileSpec(FName)=""
5741	"RTN","TMGRPC1",951,0)
5742	new temp set temp=$$DEL^%ZISH(FPath,"FileSpec")
5743	"RTN","TMGRPC1",952,0)
5744
5745	"RTN","TMGRPC1",953,0)
5746	GBCDone
5747	"RTN","TMGRPC1",954,0)
5748	quit
5749	"RTN","TMGRPC1",955,0)
5750
5751	"RTN","TMGRPC1",956,0)
5752
5753	"RTN","TMGRPC1",957,0)
5754	DECODEBC(RESULT,ARRAY,IMGTYPE)
5755	"RTN","TMGRPC1",958,0)
5756	;"SCOPE: Public
5757	"RTN","TMGRPC1",959,0)
5758	;"RPC that calls this: TMG BARCODE DECODE
5759	"RTN","TMGRPC1",960,0)
5760	;"Purpose: To provide an entry point for a RPC call from a client. The client
5761	"RTN","TMGRPC1",961,0)
5762	;" will upload an image file (.png format only) of a barcode (Datamatrix
5763	"RTN","TMGRPC1",962,0)
5764	;" format) for decoding. Decoded message is passed back.
5765	"RTN","TMGRPC1",963,0)
5766	;"Input: RESULT -- an OUT PARAMETER. See output below.
5767	"RTN","TMGRPC1",964,0)
5768	;" ARRAY -- the array that will hold the image file, in BASE64 ascii encoding
5769	"RTN","TMGRPC1",965,0)
5770	;" IMGTYPE -- Image type, e.g. "jpg" (Note: don't include any '.')
5771	"RTN","TMGRPC1",966,0)
5772	;"Output: results are passed out in RESULT: 1^Decoded Message or 0^FailureMessage
5773	"RTN","TMGRPC1",967,0)
5774
5775	"RTN","TMGRPC1",968,0)
5776	;"NOTE: dmtxread must be installed on linux host.
5777	"RTN","TMGRPC1",969,0)
5778	;" I found source code here:
5779	"RTN","TMGRPC1",970,0)
5780	;" http://sourceforge.net/projects/libdmtx/
5781	"RTN","TMGRPC1",971,0)
5782	;" After installing (./configure --> make --> make install), I
5783	"RTN","TMGRPC1",972,0)
5784	;" copied dmtxread and dmtxwrite, which were found in the
5785	"RTN","TMGRPC1",973,0)
5786	;" (installdir)/util/dmtxread/.libs and (installdir)/util/dmtxwrite/.libs
5787	"RTN","TMGRPC1",974,0)
5788	;" folders, into a folder on the system path. I chose /usr/bin/
5789	"RTN","TMGRPC1",975,0)
5790	;" Also, to achieve compile of above, I had to install required libs.
5791	"RTN","TMGRPC1",976,0)
5792	;" See notes included with dmtx source code.
5793	"RTN","TMGRPC1",977,0)
5794	;"NOTE: if image types other than .png will be uploaded, then the linux host
5795	"RTN","TMGRPC1",978,0)
5796	;" must have ImageMagick utility 'convert' installed for conversion
5797	"RTN","TMGRPC1",979,0)
5798	;" between image types.
5799	"RTN","TMGRPC1",980,0)
5800
5801	"RTN","TMGRPC1",981,0)
5802	kill ^TMG("TMP","BARCODE")
5803	"RTN","TMGRPC1",982,0)
5804	;"set ^TMG("TMP","BARCODE","LOG")=1 ;"temp
5805	"RTN","TMGRPC1",983,0)
5806
5807	"RTN","TMGRPC1",984,0)
5808	;"new Stack do GetStackInfo^TMGIDE2(.Stack)
5809	"RTN","TMGRPC1",985,0)
5810	;"merge ^TMG("TMP","BARCODE","STACK")=Stack
5811	"RTN","TMGRPC1",986,0)
5812
5813	"RTN","TMGRPC1",987,0)
5814	new resultMsg
5815	"RTN","TMGRPC1",988,0)
5816	if $data(ARRAY)=0 set resultMsg="0^No image data received to decode" goto DBCDone
5817	"RTN","TMGRPC1",989,0)
5818
5819	"RTN","TMGRPC1",990,0)
5820	new imageType set imageType=$$LOW^XLFSTR($get(IMGTYPE))
5821	"RTN","TMGRPC1",991,0)
5822	if imageType="" set resultMsg="0^Image type not specified" goto DBCDone
5823	"RTN","TMGRPC1",992,0)
5824
5825	"RTN","TMGRPC1",993,0)
5826	new imageFName set imageFName="/tmp/barcode."_imageType
5827	"RTN","TMGRPC1",994,0)
5828	set imageFName=$$UNIQUE^%ZISUTL(imageFName)
5829	"RTN","TMGRPC1",995,0)
5830	new FName,FPath,FileSpec
5831	"RTN","TMGRPC1",996,0)
5832	do SplitFNamePath^TMGIOUTL(imageFName,.FPath,.FName,"/")
5833	"RTN","TMGRPC1",997,0)
5834	set FileSpec(FName)=""
5835	"RTN","TMGRPC1",998,0)
5836
5837	"RTN","TMGRPC1",999,0)
5838	;"temp...
5839	"RTN","TMGRPC1",1000,0)
5840	;"merge ^TMG("TMP","BARCODE","DATA")=ARRAY
5841	"RTN","TMGRPC1",1001,0)
5842	;"merge ^TMG("TMP","BARCODE","IMGTYPE")=IMGTYPE
5843	"RTN","TMGRPC1",1002,0)
5844
5845	"RTN","TMGRPC1",1003,0)
5846	;"set ^TMG("TMP","BARCODE","LOG")=2 ;"temp
5847	"RTN","TMGRPC1",1004,0)
5848	;"Remove BASE64 ascii encoding
5849	"RTN","TMGRPC1",1005,0)
5850	do DECODE("ARRAY(0)",1)
5851	"RTN","TMGRPC1",1006,0)
5852
5853	"RTN","TMGRPC1",1007,0)
5854	;"set ^TMG("TMP","BARCODE","LOG")=3 ;"temp
5855	"RTN","TMGRPC1",1008,0)
5856	;"set ^TMG("TMP","BARCODE","LOG","Orig file: "_FPath_FName)=""
5857	"RTN","TMGRPC1",1009,0)
5858
5859	"RTN","TMGRPC1",1010,0)
5860	;"Save to host file system
5861	"RTN","TMGRPC1",1011,0)
5862	if $$GTBF^TMGBINF("ARRAY(0)",1,FPath,FName)=0 do goto DBCDone
5863	"RTN","TMGRPC1",1012,0)
5864	. set resultMsg="0^Error while saving file to HFS"
5865	"RTN","TMGRPC1",1013,0)
5866
5867	"RTN","TMGRPC1",1014,0)
5868	;"set ^TMG("TMP","BARCODE","LOG")=4 ;"temp
5869	"RTN","TMGRPC1",1015,0)
5870
5871	"RTN","TMGRPC1",1016,0)
5872	;"convert image file to .png format, if needed
5873	"RTN","TMGRPC1",1017,0)
5874	if imageType'="png" do
5875	"RTN","TMGRPC1",1018,0)
5876	. set imageFName=$$Convert^TMGKERNL(imageFName,"png")
5877	"RTN","TMGRPC1",1019,0)
5878	. if imageFName="" do quit
5879	"RTN","TMGRPC1",1020,0)
5880	. . set resultMsg="0^Error while converting image from ."_imageType_" to .png format."
5881	"RTN","TMGRPC1",1021,0)
5882	. do SplitFNamePath^TMGIOUTL(imageFName,.FPath,.FName,"/")
5883	"RTN","TMGRPC1",1022,0)
5884	. set FileSpec(FName)=""
5885	"RTN","TMGRPC1",1023,0)
5886	if imageFName="" goto DBCDone
5887	"RTN","TMGRPC1",1024,0)
5888
5889	"RTN","TMGRPC1",1025,0)
5890	;"set ^TMG("TMP","BARCODE","LOG")=5 ;"temp
5891	"RTN","TMGRPC1",1026,0)
5892
5893	"RTN","TMGRPC1",1027,0)
5894	;"Decode the barcode.png image
5895	"RTN","TMGRPC1",1028,0)
5896	new result set result=$$READBC^TMGBARC(imageFName)
5897	"RTN","TMGRPC1",1029,0)
5898	if result'="" set resultMsg="1^"_result
5899	"RTN","TMGRPC1",1030,0)
5900	else set resultMsg="0^Unable to Decode Image"
5901	"RTN","TMGRPC1",1031,0)
5902
5903	"RTN","TMGRPC1",1032,0)
5904	;"delete temp image file
5905	"RTN","TMGRPC1",1033,0)
5906	;"temp REMOVE COMMENTS LATER TO DELETE FILE. !!!!!
5907	"RTN","TMGRPC1",1034,0)
5908	;"set result=$$DEL^%ZISH(FPath,"FileSpec")
5909	"RTN","TMGRPC1",1035,0)
5910
5911	"RTN","TMGRPC1",1036,0)
5912	DBCDone
5913	"RTN","TMGRPC1",1037,0)
5914	;"set ^TMG("TMP","BARCODE","LOG")=6 ;"temp
5915	"RTN","TMGRPC1",1038,0)
5916
5917	"RTN","TMGRPC1",1039,0)
5918	set RESULT=resultMsg
5919	"RTN","TMGRPC1",1040,0)
5920	quit
5921	"RTN","TMGRPC1",1041,0)
5922
5923	"RTN","TMGRPC1",1042,0)
5924	;"--------------------
5925	"RTN","TMGRPC1",1043,0)
5926	GETURLS(RESULT)
5927	"RTN","TMGRPC1",1044,0)
5928	;"SCOPE: Public
5929	"RTN","TMGRPC1",1045,0)
5930	;"RPC that calls this: TMG CPRS GET URL LIST
5931	"RTN","TMGRPC1",1046,0)
5932	;"Purpose: To provide an entry point for a RPC call from a client. The client
5933	"RTN","TMGRPC1",1047,0)
5934	;" will request URLs to display in custom tabs inside CPRS, in an
5935	"RTN","TMGRPC1",1048,0)
5936	;" imbedded web browser
5937	"RTN","TMGRPC1",1049,0)
5938	;"Input: RESULT -- an OUT PARAMETER. See output below.
5939	"RTN","TMGRPC1",1050,0)
5940	;"Output: results are passed out in RESULT:
5941	"RTN","TMGRPC1",1051,0)
5942	;" RESULT(0)="1^Success" or "0^SomeFailureMessage"
5943	"RTN","TMGRPC1",1052,0)
5944	;" RESULT(1)="Name1^URL#1" ; shows URL#1 in tab #1, named 'Name1'
5945	"RTN","TMGRPC1",1053,0)
5946	;" RESULT(2)="Name2^URL#2" ; etc.
5947	"RTN","TMGRPC1",1054,0)
5948	;" RESULT(3)="Name3^URL#3"
5949	"RTN","TMGRPC1",1055,0)
5950	;"
5951	"RTN","TMGRPC1",1056,0)
5952	;" E.g. RESULT(1)="cnn^www.cnn.com"
5953	"RTN","TMGRPC1",1057,0)
5954	;" RESULT(2)="INFO^192.168.0.1/home.html"
5955	"RTN","TMGRPC1",1058,0)
5956	;"
5957	"RTN","TMGRPC1",1059,0)
5958	;" The number of allowed tabs is determined by code in CPRS
5959	"RTN","TMGRPC1",1060,0)
5960	;" Reference to tab numbers > specified in CPRS will be ignored by CPRS
5961	"RTN","TMGRPC1",1061,0)
5962	;" If a web tab is NOT specified, then the page previously
5963	"RTN","TMGRPC1",1062,0)
5964	;" displayed will be left in place. It will not be cleared.
5965	"RTN","TMGRPC1",1063,0)
5966	;" To clear a given page, a url of "about:blank" will cause a
5967	"RTN","TMGRPC1",1064,0)
5968	;" blank page to be displayed. e.g.
5969	"RTN","TMGRPC1",1065,0)
5970	;" RESULT(3)="^about:blank"
5971	"RTN","TMGRPC1",1066,0)
5972	;" To HIDE a tab on CPRS use this:
5973	"RTN","TMGRPC1",1067,0)
5974	;" RESULT(3)="^<!HIDE!>" ;triggers tab #3 to be hidden
5975	"RTN","TMGRPC1",1068,0)
5976	;" To have the browser remain UNCHANGED use this:
5977	"RTN","TMGRPC1",1069,0)
5978	;" RESULT(3)="^<!NOCHANGE!>" ;triggers tab #3 to remain unchanged.
5979	"RTN","TMGRPC1",1070,0)
5980	;" Note: the rationale for this is that the web tab may have info
5981	"RTN","TMGRPC1",1071,0)
5982	;" that should not be refreshed when the patient info is refreshed
5983	"RTN","TMGRPC1",1072,0)
5984	;" i.e. the user may have navigated somewhere, and doesn't want
5985	"RTN","TMGRPC1",1073,0)
5986	;" to loose their location.
5987	"RTN","TMGRPC1",1074,0)
5988	;" --to be implemented.
5989	"RTN","TMGRPC1",1075,0)
5990	;" Note: The other way to do this, as above, is to simply have NO
5991	"RTN","TMGRPC1",1076,0)
5992	;" entry for a given tab. I.e. don't have any value for RESULT(3)
5993	"RTN","TMGRPC1",1077,0)
5994	;" --already implemented.
5995	"RTN","TMGRPC1",1078,0)
5996	;"Notice to others: Below is where code should be added to return
5997	"RTN","TMGRPC1",1079,0)
5998	;" proper URL's to CPRS. This will be called whenever a new patient
5999	"RTN","TMGRPC1",1080,0)
6000	;" is opened, or a Refresh Information is requested.
6001	"RTN","TMGRPC1",1081,0)
6002	;" FYI, 'DFN' should be defined as a globally-scoped variable that can be used
6003	"RTN","TMGRPC1",1082,0)
6004	;" to pass back URLS specific for a given patient.
6005	"RTN","TMGRPC1",1083,0)
6006
6007	"RTN","TMGRPC1",1084,0)
6008	set RESULT(0)="1^Success"
6009	"RTN","TMGRPC1",1085,0)
6010	;"set RESULT(1)="Yahoo^www.yahoo.com"
6011	"RTN","TMGRPC1",1086,0)
6012	;"set RESULT(2)="(x)^about:blank"
6013	"RTN","TMGRPC1",1087,0)
6014	;"set RESULT(3)="^<!HIDE!>"
6015	"RTN","TMGRPC1",1088,0)
6016
6017	"RTN","TMGRPC1",1089,0)
6018	;"kill RESULT
6019	"RTN","TMGRPC1",1090,0)
6020	;"merge RESULT=^TMG("TMP","URLS") ;"TEMP!!!
6021	"RTN","TMGRPC1",1091,0)
6022
6023	"RTN","TMGRPC1",1092,0)
6024	quit
6025	"RTN","TMGRPC1",1093,0)
6026
6027	"RTN","TMGRPC1",1094,0)
6028	;
6029	"RTN","TMGRPC1A")
6030	0^2^B23521637
6031	"RTN","TMGRPC1A",1,0)
6032	TMGRPC1A ;TMG/kst-RPC Functions ;2/11/10
6033	"RTN","TMGRPC1A",2,0)
6034	;;1.0;TMG-LIB;1;2/11/10;Build 2
6035	"RTN","TMGRPC1A",3,0)
6036	;
6037	"RTN","TMGRPC1A",4,0)
6038	;"TMG RPC FUNCTIONS
6039	"RTN","TMGRPC1A",5,0)
6040	;
6041	"RTN","TMGRPC1A",6,0)
6042	;"Copyright Kevin Toppenberg MD
6043	"RTN","TMGRPC1A",7,0)
6044	;"Released under GNU General Public License (GPL)
6045	"RTN","TMGRPC1A",8,0)
6046	;"
6047	"RTN","TMGRPC1A",9,0)
6048	;"=======================================================================
6049	"RTN","TMGRPC1A",10,0)
6050	;" RPC -- Public Functions.
6051	"RTN","TMGRPC1A",11,0)
6052	;"=======================================================================
6053	"RTN","TMGRPC1A",12,0)
6054	;"SETINIVL(RESULT,SECTION,KEY,VALUE) ;Entry point for TMG INIFILE SET
6055	"RTN","TMGRPC1A",13,0)
6056	;"GETINIVL(RESULT,SECTION,KEY,DEFAULT) ;Entry point for TMG INIFILE GET
6057	"RTN","TMGRPC1A",14,0)
6058	;
6059	"RTN","TMGRPC1A",15,0)
6060	;"=======================================================================
6061	"RTN","TMGRPC1A",16,0)
6062	;"PRIVATE API FUNCTIONS
6063	"RTN","TMGRPC1A",17,0)
6064	;"=======================================================================
6065	"RTN","TMGRPC1A",18,0)
6066	;
6067	"RTN","TMGRPC1A",19,0)
6068	;"=======================================================================
6069	"RTN","TMGRPC1A",20,0)
6070	;"=======================================================================
6071	"RTN","TMGRPC1A",21,0)
6072	;"Dependencies:
6073	"RTN","TMGRPC1A",22,0)
6074	;" DIC, TMGDEBUG
6075	"RTN","TMGRPC1A",23,0)
6076	;"=======================================================================
6077	"RTN","TMGRPC1A",24,0)
6078	;"=======================================================================
6079	"RTN","TMGRPC1A",25,0)
6080	;
6081	"RTN","TMGRPC1A",26,0)
6082	SETINIVL(RESULT,SECTION,KEY,VALUE) ;
6083	"RTN","TMGRPC1A",27,0)
6084	;"SCOPE: Public
6085	"RTN","TMGRPC1A",28,0)
6086	;"RPC that calls this: TMG INIFILE SET
6087	"RTN","TMGRPC1A",29,0)
6088	;"Purpose: To provide an entry point for a RPC call from a client. The client
6089	"RTN","TMGRPC1A",30,0)
6090	;" will use this instead of TIniFile object in Delphi.
6091	"RTN","TMGRPC1A",31,0)
6092	;" Note: Since all data are of type string in Mumps, this will work only with strings.
6093	"RTN","TMGRPC1A",32,0)
6094	;" and type casting will have to take place in client.
6095	"RTN","TMGRPC1A",33,0)
6096	;"Input: RESULT -- an OUT PARAMETER. See output below.
6097	"RTN","TMGRPC1A",34,0)
6098	;" SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
6099	"RTN","TMGRPC1A",35,0)
6100	;" KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
6101	"RTN","TMGRPC1A",36,0)
6102	;" VALUE -- String of Value to set
6103	"RTN","TMGRPC1A",37,0)
6104	;"Note: Because this is a shared resource, it is expected that the client will use
6105	"RTN","TMGRPC1A",38,0)
6106	;" User.Name as the Section value.
6107	"RTN","TMGRPC1A",39,0)
6108	;" Also, any prior value will be overwritten.
6109	"RTN","TMGRPC1A",40,0)
6110	;"Output: Will return RESULT="1^Success", or -1^Error Message"
6111	"RTN","TMGRPC1A",41,0)
6112	SET RESULT="1^Success"
6113	"RTN","TMGRPC1A",42,0)
6114	IF $GET(SECTION)="" SET RESULT="-1^No value passed for SECTION" QUIT
6115	"RTN","TMGRPC1A",43,0)
6116	IF $GET(KEY)="" SET RESULT="-1^No value passed for KEY" QUIT
6117	"RTN","TMGRPC1A",44,0)
6118	SET VALUE=$GET(VALUE)
6119	"RTN","TMGRPC1A",45,0)
6120	NEW X,Y,DIC,IEN,IEN2
6121	"RTN","TMGRPC1A",46,0)
6122	SET DIC=22710,DIC(0)="L" ;"Add SECTION & KEY if not previously present.
6123	"RTN","TMGRPC1A",47,0)
6124	SET X=SECTION
6125	"RTN","TMGRPC1A",48,0)
6126	DO ^DIC SET IEN=+Y
6127	"RTN","TMGRPC1A",49,0)
6128	IF IEN'>0 SET RESULT="-1^Error establishing SECTION: ["_SECTION_"]" QUIT
6129	"RTN","TMGRPC1A",50,0)
6130	SET DIC(1)=IEN,DIC="^TMG(22710,"_IEN_",1,"
6131	"RTN","TMGRPC1A",51,0)
6132	SET X=KEY
6133	"RTN","TMGRPC1A",52,0)
6134	DO ^DIC SET IEN2=+Y
6135	"RTN","TMGRPC1A",53,0)
6136	IF IEN2'>0 SET RESULT="-1^Error establishing KEY: ["_KEY_"]" QUIT
6137	"RTN","TMGRPC1A",54,0)
6138	NEW TMGFDA,TMGMSG
6139	"RTN","TMGRPC1A",55,0)
6140	IF VALUE="" SET VALUE="@"
6141	"RTN","TMGRPC1A",56,0)
6142	SET TMGFDA(22710.01,IEN2_","_IEN_",",1)=VALUE
6143	"RTN","TMGRPC1A",57,0)
6144	DO FILE^DIE("E","TMGFDA","TMGMSG")
6145	"RTN","TMGRPC1A",58,0)
6146	IF $DATA(TMGMSG("DIERR")) DO QUIT
6147	"RTN","TMGRPC1A",59,0)
6148	. SET RESULT="-1^"_$$GetErrStr^TMGDEBUG(.TMGMSG)
6149	"RTN","TMGRPC1A",60,0)
6150	QUIT
6151	"RTN","TMGRPC1A",61,0)
6152	;
6153	"RTN","TMGRPC1A",62,0)
6154	;
6155	"RTN","TMGRPC1A",63,0)
6156	GETINIVL(RESULT,SECTION,KEY,DEFAULT) ;
6157	"RTN","TMGRPC1A",64,0)
6158	;"SCOPE: Public
6159	"RTN","TMGRPC1A",65,0)
6160	;"RPC that calls this: TMG INIFILE GET
6161	"RTN","TMGRPC1A",66,0)
6162	;"Purpose: To provide an entry point for a RPC call from a client. The client
6163	"RTN","TMGRPC1A",67,0)
6164	;" will use this instead of TIniFile object in Delphi.
6165	"RTN","TMGRPC1A",68,0)
6166	;" Note: Since all data are of type string in Mumps, this will work only with strings.
6167	"RTN","TMGRPC1A",69,0)
6168	;" and type casting will have to take place in client.
6169	"RTN","TMGRPC1A",70,0)
6170	;"Input: RESULT -- an OUT PARAMETER. See output below.
6171	"RTN","TMGRPC1A",71,0)
6172	;" SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
6173	"RTN","TMGRPC1A",72,0)
6174	;" KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
6175	"RTN","TMGRPC1A",73,0)
6176	;" DEFAULT -- The value to be returned, if no value found.
6177	"RTN","TMGRPC1A",74,0)
6178	;"Note: Because this is a shared resource, it is expected that the client will use
6179	"RTN","TMGRPC1A",75,0)
6180	;" User.Name as the Section value.
6181	"RTN","TMGRPC1A",76,0)
6182	;" Also, any prior value will be overwritten.
6183	"RTN","TMGRPC1A",77,0)
6184	;"Output: Will return RESULT="1^<Value>", or -1^Error Message"
6185	"RTN","TMGRPC1A",78,0)
6186	IF $GET(SECTION)="" SET RESULT="-1^No value passed for SECTION" QUIT
6187	"RTN","TMGRPC1A",79,0)
6188	IF $GET(KEY)="" SET RESULT="-1^No value passed for KEY" QUIT
6189	"RTN","TMGRPC1A",80,0)
6190	SET DEFAULT=$GET(DEFAULT)
6191	"RTN","TMGRPC1A",81,0)
6192	NEW X,Y,DIC,IEN,IEN2
6193	"RTN","TMGRPC1A",82,0)
6194	SET DIC=22710,X=SECTION
6195	"RTN","TMGRPC1A",83,0)
6196	DO ^DIC SET IEN=+Y
6197	"RTN","TMGRPC1A",84,0)
6198	IF IEN'>0 SET RESULT="1^"_DEFAULT QUIT
6199	"RTN","TMGRPC1A",85,0)
6200	SET DA(1)=IEN,DIC="^TMG(22710,"_IEN_",1,"
6201	"RTN","TMGRPC1A",86,0)
6202	SET X=KEY
6203	"RTN","TMGRPC1A",87,0)
6204	DO ^DIC SET IEN2=+Y
6205	"RTN","TMGRPC1A",88,0)
6206	IF IEN2'>0 SET RESULT="1^"_DEFAULT QUIT
6207	"RTN","TMGRPC1A",89,0)
6208	NEW VALUE SET VALUE=$GET(^TMG(22710,IEN,1,IEN2,1),DEFAULT)
6209	"RTN","TMGRPC1A",90,0)
6210	IF VALUE'=DEFAULT SET VALUE=$PIECE(VALUE,"^",1)
6211	"RTN","TMGRPC1A",91,0)
6212	SET RESULT="1^"_VALUE
6213	"RTN","TMGRPC1A",92,0)
6214	QUIT
6215	"RTN","TMGRPC1A",93,0)
6216	;
6217	"RTN","TMGRPC1A",94,0)
6218	;
6219	"RTN","TMGRPC1A",95,0)
6220	CONVERT
6221	"RTN","TMGRPC1A",96,0)
6222	;"Purpose: A temp function to convert between the old storage method and the new.
6223	"RTN","TMGRPC1A",97,0)
6224	;"Data was stored in: ^TMG("INIDATA",Section,Key,Vaue)
6225	"RTN","TMGRPC1A",98,0)
6226	NEW SECTION,KEY,VALUE
6227	"RTN","TMGRPC1A",99,0)
6228	SET SECTION=""
6229	"RTN","TMGRPC1A",100,0)
6230	FOR SET SECTION=$ORDER(^TMG("INIDATA",SECTION)) QUIT:(SECTION="") DO
6231	"RTN","TMGRPC1A",101,0)
6232	. SET KEY=""
6233	"RTN","TMGRPC1A",102,0)
6234	. FOR SET KEY=$ORDER(^TMG("INIDATA",SECTION,KEY)) QUIT:(KEY="") DO
6235	"RTN","TMGRPC1A",103,0)
6236	. . SET VALUE=$GET(^TMG("INIDATA",SECTION,KEY))
6237	"RTN","TMGRPC1A",104,0)
6238	. . NEW RESULT
6239	"RTN","TMGRPC1A",105,0)
6240	. . DO SETINIVL(.RESULT,SECTION,KEY,VALUE) ;
6241	"RTN","TMGRPC1A",106,0)
6242	. . IF +RESULT>0 KILL ^TMG("INIDATA",SECTION,KEY) QUIT
6243	"RTN","TMGRPC1A",107,0)
6244	. . WRITE "Error trying to store SECTION=",SECTION,"; KEY=",KEY,"; VALUE=",VALUE,!
6245	"RTN","TMGRPC1A",108,0)
6246	. . WRITE " -- ",$PIECE(RESULT,"^",2),!
6247	"RTN","TMGRPC1A",109,0)
6248	QUIT
6249	"RTN","TMGRPC1A",110,0)
6250	;
6251	"RTN","TMGRPC1A",111,0)
6252	;
6253	"RTN","TMGRPC1A",112,0)
6254	INSTALL ;
6255	"RTN","TMGRPC1A",113,0)
6256	;"Purpose: to add the RPC's to the OPTION record OR CPRS GUI CHART
6257	"RTN","TMGRPC1A",114,0)
6258	NEW DIC,X,Y,DA
6259	"RTN","TMGRPC1A",115,0)
6260	SET DIC="^DIC(19,",DIC(0)="M"
6261	"RTN","TMGRPC1A",116,0)
6262	SET X="OR CPRS GUI CHART"
6263	"RTN","TMGRPC1A",117,0)
6264	DO ^DIC
6265	"RTN","TMGRPC1A",118,0)
6266	IF +Y'>0 DO QUIT
6267	"RTN","TMGRPC1A",119,0)
6268	. WRITE "ERROR. Unable to find [OR CPRS GUI CHART] in file OPTION (#19)",!
6269	"RTN","TMGRPC1A",120,0)
6270	. NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
6271	"RTN","TMGRPC1A",121,0)
6272	. WRITE !
6273	"RTN","TMGRPC1A",122,0)
6274	SET DA(1)=+Y
6275	"RTN","TMGRPC1A",123,0)
6276	SET DIC=DIC_DA(1)_",""RPC"","
6277	"RTN","TMGRPC1A",124,0)
6278	SET DIC(0)="ML" ;"LAYGO --> add entry if not found
6279	"RTN","TMGRPC1A",125,0)
6280	SET X="TMG INIFILE GET"
6281	"RTN","TMGRPC1A",126,0)
6282	DO ^DIC
6283	"RTN","TMGRPC1A",127,0)
6284	IF +Y'>0 DO
6285	"RTN","TMGRPC1A",128,0)
6286	. WRITE "ERROR. Unable to add or find TMG INIFILE GET for subfile RPC in record",!
6287	"RTN","TMGRPC1A",129,0)
6288	. WRITE "OR CPRS GUI CHART in file OPTION (#19)",!
6289	"RTN","TMGRPC1A",130,0)
6290	. NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
6291	"RTN","TMGRPC1A",131,0)
6292	. WRITE !
6293	"RTN","TMGRPC1A",132,0)
6294	SET X="TMG INIFILE SET"
6295	"RTN","TMGRPC1A",133,0)
6296	DO ^DIC
6297	"RTN","TMGRPC1A",134,0)
6298	IF +Y'>0 DO
6299	"RTN","TMGRPC1A",135,0)
6300	. WRITE "ERROR. Unable to add or find TMG INIFILE SET for subfile RPC in record",!
6301	"RTN","TMGRPC1A",136,0)
6302	. WRITE "OR CPRS GUI CHART in file OPTION (#19)",!
6303	"RTN","TMGRPC1A",137,0)
6304	. NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
6305	"RTN","TMGRPC1A",138,0)
6306	. WRITE !
6307	"RTN","TMGRPC1A",139,0)
6308	QUIT
6309	"RTN","TMGRPC1A",140,0)
6310	;
6311	"VER")
6312	8.0^22.0
6313	END
6314	END

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format