source: cprs/branches/tmg-cprs/Server_KIDS/TMG1-1.0-7.KIDS@ 783

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

More needed patches
File size: 21.1 KB
Line 
1KIDS Distribution saved on Mar 31, 2010@21:17:38
2TMG1*1.0*7
3**KIDS**:TMG1*1.0*7^
4
5**INSTALL NAME**
6TMG1*1.0*7
7"BLD",7632,0)
8TMG1*1.0*7^^0^3100331^n
9"BLD",7632,1,0)
10^^3^3^3100331^^
11"BLD",7632,1,1,0)
12This patch supplies RPC's to move TMG-CPRS
13"BLD",7632,1,2,0)
14settings onto the server. They had been
15"BLD",7632,1,3,0)
16stored in an .ini file on the client previously.
17"BLD",7632,4,0)
18^9.64PA^22710^1
19"BLD",7632,4,22710,0)
2022710
21"BLD",7632,4,22710,222)
22y^y^f^^y^^y^a^n
23"BLD",7632,4,"B",22710,22710)
24
25"BLD",7632,6.3)
261
27"BLD",7632,"KRN",0)
28^9.67PA^8989.52^19
29"BLD",7632,"KRN",.4,0)
30.4
31"BLD",7632,"KRN",.401,0)
32.401
33"BLD",7632,"KRN",.402,0)
34.402
35"BLD",7632,"KRN",.403,0)
36.403
37"BLD",7632,"KRN",.5,0)
38.5
39"BLD",7632,"KRN",.84,0)
40.84
41"BLD",7632,"KRN",3.6,0)
423.6
43"BLD",7632,"KRN",3.8,0)
443.8
45"BLD",7632,"KRN",9.2,0)
469.2
47"BLD",7632,"KRN",9.8,0)
489.8
49"BLD",7632,"KRN",9.8,"NM",0)
50^9.68A^1^1
51"BLD",7632,"KRN",9.8,"NM",1,0)
52TMGRPC1A^^0^B23521637
53"BLD",7632,"KRN",9.8,"NM","B","TMGRPC1A",1)
54
55"BLD",7632,"KRN",19,0)
5619
57"BLD",7632,"KRN",19.1,0)
5819.1
59"BLD",7632,"KRN",101,0)
60101
61"BLD",7632,"KRN",409.61,0)
62409.61
63"BLD",7632,"KRN",771,0)
64771
65"BLD",7632,"KRN",870,0)
66870
67"BLD",7632,"KRN",8989.51,0)
688989.51
69"BLD",7632,"KRN",8989.52,0)
708989.52
71"BLD",7632,"KRN",8994,0)
728994
73"BLD",7632,"KRN",8994,"NM",0)
74^9.68A^2^2
75"BLD",7632,"KRN",8994,"NM",1,0)
76TMG INIFILE GET^^0
77"BLD",7632,"KRN",8994,"NM",2,0)
78TMG INIFILE SET^^0
79"BLD",7632,"KRN",8994,"NM","B","TMG INIFILE GET",1)
80
81"BLD",7632,"KRN",8994,"NM","B","TMG INIFILE SET",2)
82
83"BLD",7632,"KRN","B",.4,.4)
84
85"BLD",7632,"KRN","B",.401,.401)
86
87"BLD",7632,"KRN","B",.402,.402)
88
89"BLD",7632,"KRN","B",.403,.403)
90
91"BLD",7632,"KRN","B",.5,.5)
92
93"BLD",7632,"KRN","B",.84,.84)
94
95"BLD",7632,"KRN","B",3.6,3.6)
96
97"BLD",7632,"KRN","B",3.8,3.8)
98
99"BLD",7632,"KRN","B",9.2,9.2)
100
101"BLD",7632,"KRN","B",9.8,9.8)
102
103"BLD",7632,"KRN","B",19,19)
104
105"BLD",7632,"KRN","B",19.1,19.1)
106
107"BLD",7632,"KRN","B",101,101)
108
109"BLD",7632,"KRN","B",409.61,409.61)
110
111"BLD",7632,"KRN","B",771,771)
112
113"BLD",7632,"KRN","B",870,870)
114
115"BLD",7632,"KRN","B",8989.51,8989.51)
116
117"BLD",7632,"KRN","B",8989.52,8989.52)
118
119"BLD",7632,"KRN","B",8994,8994)
120
121"DATA",22710,4,0)
122TOPPENBERG,KEVIN S
123"DATA",22710,4,1,0)
124^22710.01^8^8
125"DATA",22710,4,1,1,0)
126Tab Location
127"DATA",22710,4,1,1,1)
1280
129"DATA",22710,4,1,2,0)
130Pol Directory
131"DATA",22710,4,1,2,1)
132c:\
133"DATA",22710,4,1,3,0)
134Pol Interval (milliseconds)
135"DATA",22710,4,1,3,1)
13660000
137"DATA",22710,4,1,4,0)
138Use dropbox directory for transfers
139"DATA",22710,4,1,4,1)
1401
141"DATA",22710,4,1,5,0)
142Dropbox directory
143"DATA",22710,4,1,5,1)
144v:\dropbox\
145"DATA",22710,4,1,6,0)
146Load Skin At Startup
147"DATA",22710,4,1,6,1)
1480
149"DATA",22710,4,1,7,0)
150Scan Enabled
151"DATA",22710,4,1,7,1)
1520
153"DATA",22710,4,1,8,0)
154EnableImages
155"DATA",22710,4,1,8,1)
1561
157"DATA",22710,5,0)
158DEFAULT
159"DATA",22710,5,1,0)
160^22710.01^8^8
161"DATA",22710,5,1,1,0)
162Tab Location
163"DATA",22710,5,1,1,1)
1640
165"DATA",22710,5,1,2,0)
166Pol Directory
167"DATA",22710,5,1,2,1)
168c:\
169"DATA",22710,5,1,3,0)
170Pol Interval (milliseconds)
171"DATA",22710,5,1,3,1)
17260000
173"DATA",22710,5,1,4,0)
174Use dropbox directory for transfers
175"DATA",22710,5,1,4,1)
1761
177"DATA",22710,5,1,5,0)
178Dropbox directory
179"DATA",22710,5,1,5,1)
180v:\dropbox\
181"DATA",22710,5,1,6,0)
182EnableImages
183"DATA",22710,5,1,6,1)
1841
185"DATA",22710,5,1,7,0)
186TAB COLORS ENABLE
187"DATA",22710,5,1,7,1)
1881
189"DATA",22710,5,1,8,0)
190Language
191"DATA",22710,5,1,8,1)
1921033
193"FIA",22710)
194TMG APPLICATION PARAMETERS
195"FIA",22710,0)
196^TMG(22710,
197"FIA",22710,0,0)
19822710
199"FIA",22710,0,1)
200y^y^f^^y^^y^a^n
201"FIA",22710,0,10)
202
203"FIA",22710,0,11)
204
205"FIA",22710,0,"RLRO")
206
207"FIA",22710,22710)
2080
209"FIA",22710,22710.01)
2100
211"KRN",8994,2497,-1)
2120^2
213"KRN",8994,2497,0)
214TMG INIFILE SET^SETINIVL^TMGRPC1A^1^P^^^1^1
215"KRN",8994,2497,1,0)
216^8994.01^17^17^3100211^^
217"KRN",8994,2497,1,1,0)
218
219"KRN",8994,2497,1,2,0)
220This will allow server-side storage is client options,
221"KRN",8994,2497,1,3,0)
222 similar to .ini files on Microsoft Windows programs.
223"KRN",8994,2497,1,4,0)
224
225"KRN",8994,2497,1,5,0)
226Purpose: To provide an entry point for a RPC call from a client. The client
227"KRN",8994,2497,1,6,0)
228 will use this instead of TIniFile object in Delphi.
229"KRN",8994,2497,1,7,0)
230 Note: Since all data are of type string in Mumps, this will work only with strings.
231"KRN",8994,2497,1,8,0)
232 and type casting will have to take place in client.
233"KRN",8994,2497,1,9,0)
234Input: RESULT -- an OUT PARAMETER. See output below.
235"KRN",8994,2497,1,10,0)
236 SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
237"KRN",8994,2497,1,11,0)
238 KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
239"KRN",8994,2497,1,12,0)
240 VALUE -- String of Value to set
241"KRN",8994,2497,1,13,0)
242 Note: Data will be stored in: ^TMG("INIDATA",Section,Key,Vaue)
243"KRN",8994,2497,1,14,0)
244 And because this is a shared resource, it is expected that the client will use
245"KRN",8994,2497,1,15,0)
246 User.Name as the Section value.
247"KRN",8994,2497,1,16,0)
248 Also, any prior value will be overwritten.
249"KRN",8994,2497,1,17,0)
250Output: Will return RESULT="1^Success", or -1^Error Message"
251"KRN",8994,2497,2,0)
252^8994.02A^3^3
253"KRN",8994,2497,2,1,0)
254SECTION^1^32^1^1
255"KRN",8994,2497,2,1,1,0)
256^^2^2^3100211^^
257"KRN",8994,2497,2,1,1,1,0)
258String of 'Section' to store setting in
259"KRN",8994,2497,2,1,1,2,0)
260(corresponds to 'Section' in TIniFile)
261"KRN",8994,2497,2,2,0)
262KEY^1^32^1^2
263"KRN",8994,2497,2,2,1,0)
264^^1^1^3100211^^
265"KRN",8994,2497,2,2,1,1,0)
266String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
267"KRN",8994,2497,2,3,0)
268VALUE^1^256^1^3
269"KRN",8994,2497,2,3,1,0)
270^^1^1^3100211^^
271"KRN",8994,2497,2,3,1,1,0)
272String of Value to set
273"KRN",8994,2497,2,"B","KEY",2)
274
275"KRN",8994,2497,2,"B","SECTION",1)
276
277"KRN",8994,2497,2,"B","VALUE",3)
278
279"KRN",8994,2497,2,"PARAMSEQ",1,1)
280
281"KRN",8994,2497,2,"PARAMSEQ",2,2)
282
283"KRN",8994,2497,2,"PARAMSEQ",3,3)
284
285"KRN",8994,2497,3,0)
286^^1^1^3100211^^
287"KRN",8994,2497,3,1,0)
288Will return RESULT="1^Success", or -1^Error Message"
289"KRN",8994,2498,-1)
2900^1
291"KRN",8994,2498,0)
292TMG INIFILE GET^GETINIVL^TMGRPC1A^1^P^^^1^1
293"KRN",8994,2498,1,0)
294^8994.01^16^16^3100211^^^
295"KRN",8994,2498,1,1,0)
296This will allow server-side storage is client options,
297"KRN",8994,2498,1,2,0)
298similar to .ini files on Microsoft Windows programs.
299"KRN",8994,2498,1,3,0)
300
301"KRN",8994,2498,1,4,0)
302Purpose: To provide an entry point for a RPC call from a client. The client
303"KRN",8994,2498,1,5,0)
304 will use this instead of TIniFile object in Delphi.
305"KRN",8994,2498,1,6,0)
306 Note: Since all data are of type string in Mumps, this will work only with strings.
307"KRN",8994,2498,1,7,0)
308 and type casting will have to take place in client.
309"KRN",8994,2498,1,8,0)
310Input: RESULT -- an OUT PARAMETER. See output below
311"KRN",8994,2498,1,9,0)
312 SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
313"KRN",8994,2498,1,10,0)
314 KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
315"KRN",8994,2498,1,11,0)
316 DEFAULT -- The value to be returned, if no value found.
317"KRN",8994,2498,1,12,0)
318Note: Data will be strored in: ^TMG("INIDATA",Section,Key,Vaue)
319"KRN",8994,2498,1,13,0)
320 And because this is a shared resource, it is expected that the client will use
321"KRN",8994,2498,1,14,0)
322 User.Name as the Section value.
323"KRN",8994,2498,1,15,0)
324 Also, any prior value will be overwritten.
325"KRN",8994,2498,1,16,0)
326Output: Will return RESULT(0)="1^<Value>", or -1^Error Message"
327"KRN",8994,2498,2,0)
328^8994.02A^3^3
329"KRN",8994,2498,2,1,0)
330SECTION^1^32^1^1
331"KRN",8994,2498,2,1,1,0)
332^^3^3^3100211^^
333"KRN",8994,2498,2,1,1,1,0)
334
335"KRN",8994,2498,2,1,1,2,0)
336String of 'Section' to store setting in
337"KRN",8994,2498,2,1,1,3,0)
338(corresponds to 'Section' in TIniFile)
339"KRN",8994,2498,2,2,0)
340KEY^1^32^1^2
341"KRN",8994,2498,2,2,1,0)
342^^2^2^3100211^^
343"KRN",8994,2498,2,2,1,1,0)
344
345"KRN",8994,2498,2,2,1,2,0)
346String of Key value. (corresponds to 'Ident'/'Key' in TIniFile)
347"KRN",8994,2498,2,3,0)
348DEFAULT^1^256^0^3
349"KRN",8994,2498,2,3,1,0)
350^8994.021^1^1^3100211^^^
351"KRN",8994,2498,2,3,1,1,0)
352The value to be returned, if no value found.
353"KRN",8994,2498,2,"B","DEFAULT",3)
354
355"KRN",8994,2498,2,"B","KEY",2)
356
357"KRN",8994,2498,2,"B","SECTION",1)
358
359"KRN",8994,2498,2,"PARAMSEQ",1,1)
360
361"KRN",8994,2498,2,"PARAMSEQ",2,2)
362
363"KRN",8994,2498,2,"PARAMSEQ",3,3)
364
365"KRN",8994,2498,3,0)
366^8994.03^2^2^3100211^^^
367"KRN",8994,2498,3,1,0)
368Will return RESULT="1^<Value>", or -1^Error Message"
369"KRN",8994,2498,3,2,0)
370<Value> is the desired value.
371"MBREQ")
3720
373"ORD",16,8994)
3748994;16;1;;;;;;;RPCDEL^XPDIA1
375"ORD",16,8994,0)
376REMOTE PROCEDURE
377"QUES","XPF1",0)
378Y
379"QUES","XPF1","??")
380^D REP^XPDH
381"QUES","XPF1","A")
382Shall I write over your |FLAG| File
383"QUES","XPF1","B")
384YES
385"QUES","XPF1","M")
386D XPF1^XPDIQ
387"QUES","XPF2",0)
388Y
389"QUES","XPF2","??")
390^D DTA^XPDH
391"QUES","XPF2","A")
392Want my data |FLAG| yours
393"QUES","XPF2","B")
394YES
395"QUES","XPF2","M")
396D XPF2^XPDIQ
397"QUES","XPI1",0)
398YO
399"QUES","XPI1","??")
400^D INHIBIT^XPDH
401"QUES","XPI1","A")
402Want KIDS to INHIBIT LOGONs during the install
403"QUES","XPI1","B")
404NO
405"QUES","XPI1","M")
406D XPI1^XPDIQ
407"QUES","XPM1",0)
408PO^VA(200,:EM
409"QUES","XPM1","??")
410^D MG^XPDH
411"QUES","XPM1","A")
412Enter the Coordinator for Mail Group '|FLAG|'
413"QUES","XPM1","B")
414
415"QUES","XPM1","M")
416D XPM1^XPDIQ
417"QUES","XPO1",0)
418Y
419"QUES","XPO1","??")
420^D MENU^XPDH
421"QUES","XPO1","A")
422Want KIDS to Rebuild Menu Trees Upon Completion of Install
423"QUES","XPO1","B")
424NO
425"QUES","XPO1","M")
426D XPO1^XPDIQ
427"QUES","XPZ1",0)
428Y
429"QUES","XPZ1","??")
430^D OPT^XPDH
431"QUES","XPZ1","A")
432Want to DISABLE Scheduled Options, Menu Options, and Protocols
433"QUES","XPZ1","B")
434NO
435"QUES","XPZ1","M")
436D XPZ1^XPDIQ
437"QUES","XPZ2",0)
438Y
439"QUES","XPZ2","??")
440^D RTN^XPDH
441"QUES","XPZ2","A")
442Want to MOVE routines to other CPUs
443"QUES","XPZ2","B")
444NO
445"QUES","XPZ2","M")
446D XPZ2^XPDIQ
447"RTN")
4481
449"RTN","TMGRPC1A")
4500^1^B23521637
451"RTN","TMGRPC1A",1,0)
452TMGRPC1A ;TMG/kst-RPC Functions ;2/11/10
453"RTN","TMGRPC1A",2,0)
454 ;;1.0;TMG-LIB;**1**;2/11/10;Build 1
455"RTN","TMGRPC1A",3,0)
456 ;
457"RTN","TMGRPC1A",4,0)
458 ;"TMG RPC FUNCTIONS
459"RTN","TMGRPC1A",5,0)
460 ;
461"RTN","TMGRPC1A",6,0)
462 ;"Copyright Kevin Toppenberg MD
463"RTN","TMGRPC1A",7,0)
464 ;"Released under GNU General Public License (GPL)
465"RTN","TMGRPC1A",8,0)
466 ;"
467"RTN","TMGRPC1A",9,0)
468 ;"=======================================================================
469"RTN","TMGRPC1A",10,0)
470 ;" RPC -- Public Functions.
471"RTN","TMGRPC1A",11,0)
472 ;"=======================================================================
473"RTN","TMGRPC1A",12,0)
474 ;"SETINIVL(RESULT,SECTION,KEY,VALUE) ;Entry point for TMG INIFILE SET
475"RTN","TMGRPC1A",13,0)
476 ;"GETINIVL(RESULT,SECTION,KEY,DEFAULT) ;Entry point for TMG INIFILE GET
477"RTN","TMGRPC1A",14,0)
478 ;
479"RTN","TMGRPC1A",15,0)
480 ;"=======================================================================
481"RTN","TMGRPC1A",16,0)
482 ;"PRIVATE API FUNCTIONS
483"RTN","TMGRPC1A",17,0)
484 ;"=======================================================================
485"RTN","TMGRPC1A",18,0)
486 ;
487"RTN","TMGRPC1A",19,0)
488 ;"=======================================================================
489"RTN","TMGRPC1A",20,0)
490 ;"=======================================================================
491"RTN","TMGRPC1A",21,0)
492 ;"Dependencies:
493"RTN","TMGRPC1A",22,0)
494 ;" DIC, TMGDEBUG
495"RTN","TMGRPC1A",23,0)
496 ;"=======================================================================
497"RTN","TMGRPC1A",24,0)
498 ;"=======================================================================
499"RTN","TMGRPC1A",25,0)
500 ;
501"RTN","TMGRPC1A",26,0)
502SETINIVL(RESULT,SECTION,KEY,VALUE) ;
503"RTN","TMGRPC1A",27,0)
504 ;"SCOPE: Public
505"RTN","TMGRPC1A",28,0)
506 ;"RPC that calls this: TMG INIFILE SET
507"RTN","TMGRPC1A",29,0)
508 ;"Purpose: To provide an entry point for a RPC call from a client. The client
509"RTN","TMGRPC1A",30,0)
510 ;" will use this instead of TIniFile object in Delphi.
511"RTN","TMGRPC1A",31,0)
512 ;" Note: Since all data are of type string in Mumps, this will work only with strings.
513"RTN","TMGRPC1A",32,0)
514 ;" and type casting will have to take place in client.
515"RTN","TMGRPC1A",33,0)
516 ;"Input: RESULT -- an OUT PARAMETER. See output below.
517"RTN","TMGRPC1A",34,0)
518 ;" SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
519"RTN","TMGRPC1A",35,0)
520 ;" KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
521"RTN","TMGRPC1A",36,0)
522 ;" VALUE -- String of Value to set
523"RTN","TMGRPC1A",37,0)
524 ;"Note: Because this is a shared resource, it is expected that the client will use
525"RTN","TMGRPC1A",38,0)
526 ;" User.Name as the Section value.
527"RTN","TMGRPC1A",39,0)
528 ;" Also, any prior value will be overwritten.
529"RTN","TMGRPC1A",40,0)
530 ;"Output: Will return RESULT="1^Success", or -1^Error Message"
531"RTN","TMGRPC1A",41,0)
532 SET RESULT="1^Success"
533"RTN","TMGRPC1A",42,0)
534 IF $GET(SECTION)="" SET RESULT="-1^No value passed for SECTION" QUIT
535"RTN","TMGRPC1A",43,0)
536 IF $GET(KEY)="" SET RESULT="-1^No value passed for KEY" QUIT
537"RTN","TMGRPC1A",44,0)
538 SET VALUE=$GET(VALUE)
539"RTN","TMGRPC1A",45,0)
540 NEW X,Y,DIC,IEN,IEN2
541"RTN","TMGRPC1A",46,0)
542 SET DIC=22710,DIC(0)="L" ;"Add SECTION & KEY if not previously present.
543"RTN","TMGRPC1A",47,0)
544 SET X=SECTION
545"RTN","TMGRPC1A",48,0)
546 DO ^DIC SET IEN=+Y
547"RTN","TMGRPC1A",49,0)
548 IF IEN'>0 SET RESULT="-1^Error establishing SECTION: ["_SECTION_"]" QUIT
549"RTN","TMGRPC1A",50,0)
550 SET DIC(1)=IEN,DIC="^TMG(22710,"_IEN_",1,"
551"RTN","TMGRPC1A",51,0)
552 SET X=KEY
553"RTN","TMGRPC1A",52,0)
554 DO ^DIC SET IEN2=+Y
555"RTN","TMGRPC1A",53,0)
556 IF IEN2'>0 SET RESULT="-1^Error establishing KEY: ["_KEY_"]" QUIT
557"RTN","TMGRPC1A",54,0)
558 NEW TMGFDA,TMGMSG
559"RTN","TMGRPC1A",55,0)
560 IF VALUE="" SET VALUE="@"
561"RTN","TMGRPC1A",56,0)
562 SET TMGFDA(22710.01,IEN2_","_IEN_",",1)=VALUE
563"RTN","TMGRPC1A",57,0)
564 DO FILE^DIE("E","TMGFDA","TMGMSG")
565"RTN","TMGRPC1A",58,0)
566 IF $DATA(TMGMSG("DIERR")) DO QUIT
567"RTN","TMGRPC1A",59,0)
568 . SET RESULT="-1^"_$$GetErrStr^TMGDEBUG(.TMGMSG)
569"RTN","TMGRPC1A",60,0)
570 QUIT
571"RTN","TMGRPC1A",61,0)
572 ;
573"RTN","TMGRPC1A",62,0)
574 ;
575"RTN","TMGRPC1A",63,0)
576GETINIVL(RESULT,SECTION,KEY,DEFAULT) ;
577"RTN","TMGRPC1A",64,0)
578 ;"SCOPE: Public
579"RTN","TMGRPC1A",65,0)
580 ;"RPC that calls this: TMG INIFILE GET
581"RTN","TMGRPC1A",66,0)
582 ;"Purpose: To provide an entry point for a RPC call from a client. The client
583"RTN","TMGRPC1A",67,0)
584 ;" will use this instead of TIniFile object in Delphi.
585"RTN","TMGRPC1A",68,0)
586 ;" Note: Since all data are of type string in Mumps, this will work only with strings.
587"RTN","TMGRPC1A",69,0)
588 ;" and type casting will have to take place in client.
589"RTN","TMGRPC1A",70,0)
590 ;"Input: RESULT -- an OUT PARAMETER. See output below.
591"RTN","TMGRPC1A",71,0)
592 ;" SECTION -- String of 'Section' to store setting in (corresponds to section in TIniFile)
593"RTN","TMGRPC1A",72,0)
594 ;" KEY -- String of Key value. (corresponds to Ident/Key in TIniFile)
595"RTN","TMGRPC1A",73,0)
596 ;" DEFAULT -- The value to be returned, if no value found.
597"RTN","TMGRPC1A",74,0)
598 ;"Note: Because this is a shared resource, it is expected that the client will use
599"RTN","TMGRPC1A",75,0)
600 ;" User.Name as the Section value.
601"RTN","TMGRPC1A",76,0)
602 ;" Also, any prior value will be overwritten.
603"RTN","TMGRPC1A",77,0)
604 ;"Output: Will return RESULT="1^<Value>", or -1^Error Message"
605"RTN","TMGRPC1A",78,0)
606 IF $GET(SECTION)="" SET RESULT="-1^No value passed for SECTION" QUIT
607"RTN","TMGRPC1A",79,0)
608 IF $GET(KEY)="" SET RESULT="-1^No value passed for KEY" QUIT
609"RTN","TMGRPC1A",80,0)
610 SET DEFAULT=$GET(DEFAULT)
611"RTN","TMGRPC1A",81,0)
612 NEW X,Y,DIC,IEN,IEN2
613"RTN","TMGRPC1A",82,0)
614 SET DIC=22710,X=SECTION
615"RTN","TMGRPC1A",83,0)
616 DO ^DIC SET IEN=+Y
617"RTN","TMGRPC1A",84,0)
618 IF IEN'>0 SET RESULT="1^"_DEFAULT QUIT
619"RTN","TMGRPC1A",85,0)
620 SET DA(1)=IEN,DIC="^TMG(22710,"_IEN_",1,"
621"RTN","TMGRPC1A",86,0)
622 SET X=KEY
623"RTN","TMGRPC1A",87,0)
624 DO ^DIC SET IEN2=+Y
625"RTN","TMGRPC1A",88,0)
626 IF IEN2'>0 SET RESULT="1^"_DEFAULT QUIT
627"RTN","TMGRPC1A",89,0)
628 NEW VALUE SET VALUE=$GET(^TMG(22710,IEN,1,IEN2,1),DEFAULT)
629"RTN","TMGRPC1A",90,0)
630 IF VALUE'=DEFAULT SET VALUE=$PIECE(VALUE,"^",1)
631"RTN","TMGRPC1A",91,0)
632 SET RESULT="1^"_VALUE
633"RTN","TMGRPC1A",92,0)
634 QUIT
635"RTN","TMGRPC1A",93,0)
636 ;
637"RTN","TMGRPC1A",94,0)
638 ;
639"RTN","TMGRPC1A",95,0)
640CONVERT
641"RTN","TMGRPC1A",96,0)
642 ;"Purpose: A temp function to convert between the old storage method and the new.
643"RTN","TMGRPC1A",97,0)
644 ;"Data was stored in: ^TMG("INIDATA",Section,Key,Vaue)
645"RTN","TMGRPC1A",98,0)
646 NEW SECTION,KEY,VALUE
647"RTN","TMGRPC1A",99,0)
648 SET SECTION=""
649"RTN","TMGRPC1A",100,0)
650 FOR SET SECTION=$ORDER(^TMG("INIDATA",SECTION)) QUIT:(SECTION="") DO
651"RTN","TMGRPC1A",101,0)
652 . SET KEY=""
653"RTN","TMGRPC1A",102,0)
654 . FOR SET KEY=$ORDER(^TMG("INIDATA",SECTION,KEY)) QUIT:(KEY="") DO
655"RTN","TMGRPC1A",103,0)
656 . . SET VALUE=$GET(^TMG("INIDATA",SECTION,KEY))
657"RTN","TMGRPC1A",104,0)
658 . . NEW RESULT
659"RTN","TMGRPC1A",105,0)
660 . . DO SETINIVL(.RESULT,SECTION,KEY,VALUE) ;
661"RTN","TMGRPC1A",106,0)
662 . . IF +RESULT>0 KILL ^TMG("INIDATA",SECTION,KEY) QUIT
663"RTN","TMGRPC1A",107,0)
664 . . WRITE "Error trying to store SECTION=",SECTION,"; KEY=",KEY,"; VALUE=",VALUE,!
665"RTN","TMGRPC1A",108,0)
666 . . WRITE " -- ",$PIECE(RESULT,"^",2),!
667"RTN","TMGRPC1A",109,0)
668 QUIT
669"RTN","TMGRPC1A",110,0)
670;
671"RTN","TMGRPC1A",111,0)
672;
673"RTN","TMGRPC1A",112,0)
674INSTALL ;
675"RTN","TMGRPC1A",113,0)
676 ;"Purpose: to add the RPC's to the OPTION record OR CPRS GUI CHART
677"RTN","TMGRPC1A",114,0)
678 NEW DIC,X,Y,DA
679"RTN","TMGRPC1A",115,0)
680 SET DIC="^DIC(19,",DIC(0)="M"
681"RTN","TMGRPC1A",116,0)
682 SET X="OR CPRS GUI CHART"
683"RTN","TMGRPC1A",117,0)
684 DO ^DIC
685"RTN","TMGRPC1A",118,0)
686 IF +Y'>0 DO QUIT
687"RTN","TMGRPC1A",119,0)
688 . WRITE "ERROR. Unable to find [OR CPRS GUI CHART] in file OPTION (#19)",!
689"RTN","TMGRPC1A",120,0)
690 . NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
691"RTN","TMGRPC1A",121,0)
692 . WRITE !
693"RTN","TMGRPC1A",122,0)
694 SET DA(1)=+Y
695"RTN","TMGRPC1A",123,0)
696 SET DIC=DIC_DA(1)_",""RPC"","
697"RTN","TMGRPC1A",124,0)
698 SET DIC(0)="ML" ;"LAYGO --> add entry if not found
699"RTN","TMGRPC1A",125,0)
700 SET X="TMG INIFILE GET"
701"RTN","TMGRPC1A",126,0)
702 DO ^DIC
703"RTN","TMGRPC1A",127,0)
704 IF +Y'>0 DO
705"RTN","TMGRPC1A",128,0)
706 . WRITE "ERROR. Unable to add or find TMG INIFILE GET for subfile RPC in record",!
707"RTN","TMGRPC1A",129,0)
708 . WRITE "OR CPRS GUI CHART in file OPTION (#19)",!
709"RTN","TMGRPC1A",130,0)
710 . NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
711"RTN","TMGRPC1A",131,0)
712 . WRITE !
713"RTN","TMGRPC1A",132,0)
714 SET X="TMG INIFILE SET"
715"RTN","TMGRPC1A",133,0)
716 DO ^DIC
717"RTN","TMGRPC1A",134,0)
718 IF +Y'>0 DO
719"RTN","TMGRPC1A",135,0)
720 . WRITE "ERROR. Unable to add or find TMG INIFILE SET for subfile RPC in record",!
721"RTN","TMGRPC1A",136,0)
722 . WRITE "OR CPRS GUI CHART in file OPTION (#19)",!
723"RTN","TMGRPC1A",137,0)
724 . NEW TEMP READ "Press [ENTER] to continue...",TEMP:($GET(DTIME,3600))
725"RTN","TMGRPC1A",138,0)
726 . WRITE !
727"RTN","TMGRPC1A",139,0)
728 QUIT
729"RTN","TMGRPC1A",140,0)
730 ;
731"SEC","^DIC",22710,22710,0,"AUDIT")
732@
733"SEC","^DIC",22710,22710,0,"DD")
734@
735"SEC","^DIC",22710,22710,0,"DEL")
736@
737"SEC","^DIC",22710,22710,0,"LAYGO")
738@
739"SEC","^DIC",22710,22710,0,"RD")
740@
741"SEC","^DIC",22710,22710,0,"WR")
742@
743"VER")
7448.0^22.0
745"^DD",22710,22710,0)
746FIELD^^1^2
747"^DD",22710,22710,0,"DT")
7483100214
749"^DD",22710,22710,0,"IX","B",22710,.01)
750
751"^DD",22710,22710,0,"NM","TMG APPLICATION PARAMETERS")
752
753"^DD",22710,22710,.01,0)
754SECTION^RF^^0;1^K:$L(X)>1000!($L(X)<1)!'(X'?1P.E) X
755"^DD",22710,22710,.01,1,0)
756^.1
757"^DD",22710,22710,.01,1,1,0)
75822710^B
759"^DD",22710,22710,.01,1,1,1)
760S ^TMG(22710,"B",$E(X,1,30),DA)=""
761"^DD",22710,22710,.01,1,1,2)
762K ^TMG(22710,"B",$E(X,1,30),DA)
763"^DD",22710,22710,.01,3)
764Answer must be 1-1000 characters in length.
765"^DD",22710,22710,.01,21,0)
766^^1^1^3100214^^
767"^DD",22710,22710,.01,21,1,0)
768The SECTION field corresponds to the section of an INI file.
769"^DD",22710,22710,.01,"DT")
7703100214
771"^DD",22710,22710,1,0)
772KEY^22710.01^^1;0
773"^DD",22710,22710.01,0)
774KEY SUB-FIELD^^1^2
775"^DD",22710,22710.01,0,"DT")
7763100214
777"^DD",22710,22710.01,0,"IX","B",22710.01,.01)
778
779"^DD",22710,22710.01,0,"NM","KEY")
780
781"^DD",22710,22710.01,0,"UP")
78222710
783"^DD",22710,22710.01,.01,0)
784KEY^F^^0;1^K:$L(X)>250!($L(X)<1) X
785"^DD",22710,22710.01,.01,1,0)
786^.1
787"^DD",22710,22710.01,.01,1,1,0)
78822710.01^B
789"^DD",22710,22710.01,.01,1,1,1)
790S ^TMG(22710,DA(1),1,"B",$E(X,1,30),DA)=""
791"^DD",22710,22710.01,.01,1,1,2)
792K ^TMG(22710,DA(1),1,"B",$E(X,1,30),DA)
793"^DD",22710,22710.01,.01,3)
794Answer must be 1-250 characters in length
795"^DD",22710,22710.01,.01,"DT")
7963100214
797"^DD",22710,22710.01,1,0)
798VALUE^F^^1;1^K:$L(X)>250!($L(X)<1) X
799"^DD",22710,22710.01,1,3)
800Answer must be 1-250 characters in length.
801"^DD",22710,22710.01,1,21,0)
802^^1^1^3100214^^
803"^DD",22710,22710.01,1,21,1,0)
804This is the value of the KEY:VALUE pair, as found in an INI file.
805"^DD",22710,22710.01,1,"DT")
8063100214
807"^DIC",22710,22710,0)
808TMG APPLICATION PARAMETERS^22710
809"^DIC",22710,22710,0,"GL")
810^TMG(22710,
811"^DIC",22710,"B","TMG APPLICATION PARAMETERS",22710)
812
813**END**
814**END**
Note: See TracBrowser for help on using the repository browser.