source: ESIG/trunk/ESIG_1-0T1_25NNNN.KID@ 1776

Last change on this file since 1776 was 1666, checked in by Jim B., 10 years ago
File size: 6.1 KB
Line 
1KIDS Distribution saved on Mar 04, 2015@09:23
2Vista Electronic Signature GUI Jim Bell 03032015
3**KIDS**:VWESIG*1.0T1*250003^
4
5**INSTALL NAME**
6VWESIG*1.0T1*250003
7"BLD",8503,0)
8VWESIG*1.0T1*250003^^0^3150304^n
9"BLD",8503,1,0)
10^9.61A^2^2^3150302^^^
11"BLD",8503,1,1,0)
12GUI Electronic Signature app emulation menu option ELECTRONIC SIGNATURE
13"BLD",8503,1,2,0)
14CODE
15"BLD",8503,4,0)
16^9.64PA^^
17"BLD",8503,6.3)
183
19"BLD",8503,"KRN",0)
20^9.67PA^779.2^20
21"BLD",8503,"KRN",.4,0)
22.4
23"BLD",8503,"KRN",.401,0)
24.401
25"BLD",8503,"KRN",.402,0)
26.402
27"BLD",8503,"KRN",.403,0)
28.403
29"BLD",8503,"KRN",.5,0)
30.5
31"BLD",8503,"KRN",.84,0)
32.84
33"BLD",8503,"KRN",3.6,0)
343.6
35"BLD",8503,"KRN",3.8,0)
363.8
37"BLD",8503,"KRN",9.2,0)
389.2
39"BLD",8503,"KRN",9.8,0)
409.8
41"BLD",8503,"KRN",9.8,"NM",0)
42^9.68A^1^1
43"BLD",8503,"KRN",9.8,"NM",1,0)
44VWESIG^^0^B2256567
45"BLD",8503,"KRN",9.8,"NM","B","VWESIG",1)
46
47"BLD",8503,"KRN",19,0)
4819
49"BLD",8503,"KRN",19.1,0)
5019.1
51"BLD",8503,"KRN",101,0)
52101
53"BLD",8503,"KRN",409.61,0)
54409.61
55"BLD",8503,"KRN",771,0)
56771
57"BLD",8503,"KRN",779.2,0)
58779.2
59"BLD",8503,"KRN",870,0)
60870
61"BLD",8503,"KRN",8989.51,0)
628989.51
63"BLD",8503,"KRN",8989.52,0)
648989.52
65"BLD",8503,"KRN",8994,0)
668994
67"BLD",8503,"KRN",8994,"NM",0)
68^9.68A^2^2
69"BLD",8503,"KRN",8994,"NM",1,0)
70VW ESIG BEGIN^^0
71"BLD",8503,"KRN",8994,"NM",2,0)
72VW ESIG SAVE^^0
73"BLD",8503,"KRN",8994,"NM","B","VW ESIG BEGIN",1)
74
75"BLD",8503,"KRN",8994,"NM","B","VW ESIG SAVE",2)
76
77"BLD",8503,"KRN","B",.4,.4)
78
79"BLD",8503,"KRN","B",.401,.401)
80
81"BLD",8503,"KRN","B",.402,.402)
82
83"BLD",8503,"KRN","B",.403,.403)
84
85"BLD",8503,"KRN","B",.5,.5)
86
87"BLD",8503,"KRN","B",.84,.84)
88
89"BLD",8503,"KRN","B",3.6,3.6)
90
91"BLD",8503,"KRN","B",3.8,3.8)
92
93"BLD",8503,"KRN","B",9.2,9.2)
94
95"BLD",8503,"KRN","B",9.8,9.8)
96
97"BLD",8503,"KRN","B",19,19)
98
99"BLD",8503,"KRN","B",19.1,19.1)
100
101"BLD",8503,"KRN","B",101,101)
102
103"BLD",8503,"KRN","B",409.61,409.61)
104
105"BLD",8503,"KRN","B",771,771)
106
107"BLD",8503,"KRN","B",779.2,779.2)
108
109"BLD",8503,"KRN","B",870,870)
110
111"BLD",8503,"KRN","B",8989.51,8989.51)
112
113"BLD",8503,"KRN","B",8989.52,8989.52)
114
115"BLD",8503,"KRN","B",8994,8994)
116
117"BLD",8503,"QDEF")
118^^^^NO^^^^NO^^NO
119"BLD",8503,"QUES",0)
120^9.62^^
121"BLD",8503,"REQB",0)
122^9.611^^
123"KRN",8994,2625,-1)
1240^2
125"KRN",8994,2625,0)
126VW ESIG SAVE^ESIG^VWESIG^2^P^^^0^1
127"KRN",8994,2625,1,0)
128^8994.01^1^1^3150304^^^^
129"KRN",8994,2625,1,1,0)
130Emulation of Vista MENU OPTION Electronic Signature code Edit
131"KRN",8994,2625,2,0)
132^8994.02A^1^1
133"KRN",8994,2625,2,1,0)
134DATA^1^^1^2
135"KRN",8994,2625,2,1,1,0)
136^8994.021^7^7^3150304^^^^
137"KRN",8994,2625,2,1,1,1,0)
138ELECTRONIC SIGNATURE
139"KRN",8994,2625,2,1,1,2,0)
140INITIAL
141"KRN",8994,2625,2,1,1,3,0)
142SIGNATURE BLOCK PRINTED NAME
143"KRN",8994,2625,2,1,1,4,0)
144SIGNATURE BLOCK TITLE
145"KRN",8994,2625,2,1,1,5,0)
146OFFICE PHONE
147"KRN",8994,2625,2,1,1,6,0)
148VOICE PAGER
149"KRN",8994,2625,2,1,1,7,0)
150DIGITAL PAGER
151"KRN",8994,2625,2,"B","DATA",1)
152
153"KRN",8994,2625,2,"PARAMSEQ",2,1)
154
155"KRN",8994,2626,-1)
1560^1
157"KRN",8994,2626,0)
158VW ESIG BEGIN^BEGIN^VWESIG^2^P^^^0^1
159"MBREQ")
1600
161"ORD",16,8994)
1628994;16;1;;;;;;;RPCDEL^XPDIA1
163"ORD",16,8994,0)
164REMOTE PROCEDURE
165"QUES","XPF1",0)
166Y
167"QUES","XPF1","??")
168^D REP^XPDH
169"QUES","XPF1","A")
170Shall I write over your |FLAG| File
171"QUES","XPF1","B")
172YES
173"QUES","XPF1","M")
174D XPF1^XPDIQ
175"QUES","XPF2",0)
176Y
177"QUES","XPF2","??")
178^D DTA^XPDH
179"QUES","XPF2","A")
180Want my data |FLAG| yours
181"QUES","XPF2","B")
182YES
183"QUES","XPF2","M")
184D XPF2^XPDIQ
185"QUES","XPI1",0)
186YO
187"QUES","XPI1","??")
188^D INHIBIT^XPDH
189"QUES","XPI1","A")
190Want KIDS to INHIBIT LOGONs during the install
191"QUES","XPI1","B")
192NO
193"QUES","XPI1","M")
194D XPI1^XPDIQ
195"QUES","XPM1",0)
196PO^VA(200,:EM
197"QUES","XPM1","??")
198^D MG^XPDH
199"QUES","XPM1","A")
200Enter the Coordinator for Mail Group '|FLAG|'
201"QUES","XPM1","B")
202
203"QUES","XPM1","M")
204D XPM1^XPDIQ
205"QUES","XPO1",0)
206Y
207"QUES","XPO1","??")
208^D MENU^XPDH
209"QUES","XPO1","A")
210Want KIDS to Rebuild Menu Trees Upon Completion of Install
211"QUES","XPO1","B")
212NO
213"QUES","XPO1","M")
214D XPO1^XPDIQ
215"QUES","XPZ1",0)
216Y
217"QUES","XPZ1","??")
218^D OPT^XPDH
219"QUES","XPZ1","A")
220Want to DISABLE Scheduled Options, Menu Options, and Protocols
221"QUES","XPZ1","B")
222NO
223"QUES","XPZ1","M")
224D XPZ1^XPDIQ
225"QUES","XPZ2",0)
226Y
227"QUES","XPZ2","??")
228^D RTN^XPDH
229"QUES","XPZ2","A")
230Want to MOVE routines to other CPUs
231"QUES","XPZ2","B")
232NO
233"QUES","XPZ2","M")
234D XPZ2^XPDIQ
235"RTN")
2361
237"RTN","VWESIG")
2380^1^B2256567
239"RTN","VWESIG",1,0)
240VWESIG ;;Jim Bell - E-Signature Utility March 1, 2015 @17:43
241"RTN","VWESIG",2,0)
242 ;;1.0;;**WVEHR LOCAL**;;Build 3
243"RTN","VWESIG",3,0)
244 ;Copyright 2015 Jim Bell. Licensed under the terms of the GNU
245"RTN","VWESIG",4,0)
246 ;This routine utility is for New Person file specific fields
247"RTN","VWESIG",5,0)
248 ;
249"RTN","VWESIG",6,0)
250 Q
251"RTN","VWESIG",7,0)
252 ;
253"RTN","VWESIG",8,0)
254INR() Q $O(RESULT(" "),-1)+1
255"RTN","VWESIG",9,0)
256 ;
257"RTN","VWESIG",10,0)
258BEGIN(RESULT) ;
259"RTN","VWESIG",11,0)
260 K RESULT
261"RTN","VWESIG",12,0)
262 ;S RESULT($$INR)="<Hidden>"
263"RTN","VWESIG",13,0)
264 S RESULT($$INR)=$P(^VA(200,DUZ,20),"^",4)
265"RTN","VWESIG",14,0)
266 S RESULT($$INR)=$P($G(^VA(200,DUZ,0)),"^",2)
267"RTN","VWESIG",15,0)
268 S RESULT($$INR)=$P($G(^VA(200,DUZ,20)),"^",2)
269"RTN","VWESIG",16,0)
270 S RESULT($$INR)=$P($G(^VA(200,DUZ,20)),"^",3)
271"RTN","VWESIG",17,0)
272 S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",2)
273"RTN","VWESIG",18,0)
274 S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",7)
275"RTN","VWESIG",19,0)
276 S RESULT($$INR)=$P($G(^VA(200,DUZ,.13)),"^",8)
277"RTN","VWESIG",20,0)
278 Q
279"RTN","VWESIG",21,0)
280 ;
281"RTN","VWESIG",22,0)
282ESIG(RESULT,DATA) ;
283"RTN","VWESIG",23,0)
284 ;S RESULT(0)="RECEIVED: "_DATA
285"RTN","VWESIG",24,0)
286 S ^XTMP("ESIG",$J)=DATA
287"RTN","VWESIG",25,0)
288 I $L($P(DATA,"^")) D
289"RTN","VWESIG",26,0)
290EP1 . L +^VA(200,DUZ):1 G EP1:'$T
291"RTN","VWESIG",27,0)
292 . S DA=DUZ,(DIC,DIE)="^VA(200,"
293"RTN","VWESIG",28,0)
294 . S DR="20.4///@"
295"RTN","VWESIG",29,0)
296 . D ^DIE
297"RTN","VWESIG",30,0)
298 . L -^VA(200,DUZ)
299"RTN","VWESIG",31,0)
300 K DR S DR="",(DIC,DIE)="^VA(200,",DA=DUZ
301"RTN","VWESIG",32,0)
302 S FLDS="20.4,1,20.2,20.3,.132,.137,.138"
303"RTN","VWESIG",33,0)
304 F I=1:1:$L(FLDS,",") S:$L($P(DATA,"^",I)) DR=DR_$P(FLDS,",",I)_"///"_$P(DATA,"^",I)_";"
305"RTN","VWESIG",34,0)
306 S DR=$E(DR,1,$L(DR)-1)
307"RTN","VWESIG",35,0)
308ESL L +^VA(200,DUZ):1 G ESL:'$T D ^DIE L -^VA(200,DUZ)
309"RTN","VWESIG",36,0)
310 S RESULT(0)="Filed..."
311"RTN","VWESIG",37,0)
312 Q
313"RTN","VWESIG",38,0)
314 ;
315"RTN","VWESIG",39,0)
316
317"VER")
3188.0^22.0**END**
319**END**
Note: See TracBrowser for help on using the repository browser.