source: cprs/branches/tmg-cprs/Server_KIDS/TMG1-1.0-6.KIDS@ 736

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

More needed patches

File size: 12.3 KB
Line 
1KIDS Distribution saved on Mar 31, 2010@18:47:29
2TMG1*1.0*6
3**KIDS**:TMG1*1.0*6^
4
5**INSTALL NAME**
6TMG1*1.0*6
7"BLD",7631,0)
8TMG1*1.0*6^^0^3100331^n
9"BLD",7631,1,0)
10^^2^2^3100331^^
11"BLD",7631,1,1,0)
12This patch adds custom fields to NETWORK LOCATION file
13"BLD",7631,1,2,0)
14needed for TMG-CPRS imaging.
15"BLD",7631,4,0)
16^9.64PA^2005.2^1
17"BLD",7631,4,2005.2,0)
182005.2
19"BLD",7631,4,2005.2,2,0)
20^9.641^2005.2^1
21"BLD",7631,4,2005.2,2,2005.2,0)
22NETWORK LOCATION (File-top level)
23"BLD",7631,4,2005.2,2,2005.2,1,0)
24^9.6411^22702^3
25"BLD",7631,4,2005.2,2,2005.2,1,22700,0)
26TMG PRIVATE PHYSICAL REFERENCE
27"BLD",7631,4,2005.2,2,2005.2,1,22701,0)
28TMG NODE DIVIDER SYMBOL
29"BLD",7631,4,2005.2,2,2005.2,1,22702,0)
30TMG DROPBOX PHYSICAL REFERENCE
31"BLD",7631,4,2005.2,222)
32y^y^p^^^^n^^n
33"BLD",7631,4,2005.2,224)
34
35"BLD",7631,4,"APDD",2005.2,2005.2)
36
37"BLD",7631,4,"APDD",2005.2,2005.2,22700)
38
39"BLD",7631,4,"APDD",2005.2,2005.2,22701)
40
41"BLD",7631,4,"APDD",2005.2,2005.2,22702)
42
43"BLD",7631,4,"B",2005.2,2005.2)
44
45"BLD",7631,6.3)
461
47"BLD",7631,"KRN",0)
48^9.67PA^8989.52^19
49"BLD",7631,"KRN",.4,0)
50.4
51"BLD",7631,"KRN",.401,0)
52.401
53"BLD",7631,"KRN",.402,0)
54.402
55"BLD",7631,"KRN",.403,0)
56.403
57"BLD",7631,"KRN",.5,0)
58.5
59"BLD",7631,"KRN",.84,0)
60.84
61"BLD",7631,"KRN",3.6,0)
623.6
63"BLD",7631,"KRN",3.8,0)
643.8
65"BLD",7631,"KRN",9.2,0)
669.2
67"BLD",7631,"KRN",9.8,0)
689.8
69"BLD",7631,"KRN",19,0)
7019
71"BLD",7631,"KRN",19.1,0)
7219.1
73"BLD",7631,"KRN",101,0)
74101
75"BLD",7631,"KRN",409.61,0)
76409.61
77"BLD",7631,"KRN",771,0)
78771
79"BLD",7631,"KRN",870,0)
80870
81"BLD",7631,"KRN",8989.51,0)
828989.51
83"BLD",7631,"KRN",8989.52,0)
848989.52
85"BLD",7631,"KRN",8994,0)
868994
87"BLD",7631,"KRN","B",.4,.4)
88
89"BLD",7631,"KRN","B",.401,.401)
90
91"BLD",7631,"KRN","B",.402,.402)
92
93"BLD",7631,"KRN","B",.403,.403)
94
95"BLD",7631,"KRN","B",.5,.5)
96
97"BLD",7631,"KRN","B",.84,.84)
98
99"BLD",7631,"KRN","B",3.6,3.6)
100
101"BLD",7631,"KRN","B",3.8,3.8)
102
103"BLD",7631,"KRN","B",9.2,9.2)
104
105"BLD",7631,"KRN","B",9.8,9.8)
106
107"BLD",7631,"KRN","B",19,19)
108
109"BLD",7631,"KRN","B",19.1,19.1)
110
111"BLD",7631,"KRN","B",101,101)
112
113"BLD",7631,"KRN","B",409.61,409.61)
114
115"BLD",7631,"KRN","B",771,771)
116
117"BLD",7631,"KRN","B",870,870)
118
119"BLD",7631,"KRN","B",8989.51,8989.51)
120
121"BLD",7631,"KRN","B",8989.52,8989.52)
122
123"BLD",7631,"KRN","B",8994,8994)
124
125"FIA",2005.2)
126NETWORK LOCATION
127"FIA",2005.2,0)
128^MAG(2005.2,
129"FIA",2005.2,0,0)
1302005.2I
131"FIA",2005.2,0,1)
132y^y^p^^^^n^^n
133"FIA",2005.2,0,10)
134
135"FIA",2005.2,0,11)
136
137"FIA",2005.2,0,"RLRO")
138
139"FIA",2005.2,2005.2)
1401
141"FIA",2005.2,2005.2,22700)
142
143"FIA",2005.2,2005.2,22701)
144
145"FIA",2005.2,2005.2,22702)
146
147"MBREQ")
1480
149"QUES","XPF1",0)
150Y
151"QUES","XPF1","??")
152^D REP^XPDH
153"QUES","XPF1","A")
154Shall I write over your |FLAG| File
155"QUES","XPF1","B")
156YES
157"QUES","XPF1","M")
158D XPF1^XPDIQ
159"QUES","XPF2",0)
160Y
161"QUES","XPF2","??")
162^D DTA^XPDH
163"QUES","XPF2","A")
164Want my data |FLAG| yours
165"QUES","XPF2","B")
166YES
167"QUES","XPF2","M")
168D XPF2^XPDIQ
169"QUES","XPI1",0)
170YO
171"QUES","XPI1","??")
172^D INHIBIT^XPDH
173"QUES","XPI1","A")
174Want KIDS to INHIBIT LOGONs during the install
175"QUES","XPI1","B")
176NO
177"QUES","XPI1","M")
178D XPI1^XPDIQ
179"QUES","XPM1",0)
180PO^VA(200,:EM
181"QUES","XPM1","??")
182^D MG^XPDH
183"QUES","XPM1","A")
184Enter the Coordinator for Mail Group '|FLAG|'
185"QUES","XPM1","B")
186
187"QUES","XPM1","M")
188D XPM1^XPDIQ
189"QUES","XPO1",0)
190Y
191"QUES","XPO1","??")
192^D MENU^XPDH
193"QUES","XPO1","A")
194Want KIDS to Rebuild Menu Trees Upon Completion of Install
195"QUES","XPO1","B")
196NO
197"QUES","XPO1","M")
198D XPO1^XPDIQ
199"QUES","XPZ1",0)
200Y
201"QUES","XPZ1","??")
202^D OPT^XPDH
203"QUES","XPZ1","A")
204Want to DISABLE Scheduled Options, Menu Options, and Protocols
205"QUES","XPZ1","B")
206NO
207"QUES","XPZ1","M")
208D XPZ1^XPDIQ
209"QUES","XPZ2",0)
210Y
211"QUES","XPZ2","??")
212^D RTN^XPDH
213"QUES","XPZ2","A")
214Want to MOVE routines to other CPUs
215"QUES","XPZ2","B")
216NO
217"QUES","XPZ2","M")
218D XPZ2^XPDIQ
219"VER")
2208.0^22.0
221"^DD",2005.2,2005.2,22700,0)
222TMG PRIVATE PHYSICAL REFERENCE^F^^22700;1^K:$L(X)>250!($L(X)<1) X
223"^DD",2005.2,2005.2,22700,3)
224Answer must be 1-250 characters in length
225"^DD",2005.2,2005.2,22700,21,0)
226^^4^4^3080131^^
227"^DD",2005.2,2005.2,22700,21,1,0)
228This field was added by TMG site to allow for a private network location
229"^DD",2005.2,2005.2,22700,21,2,0)
230that is different from the physical location specified by field#1.
231"^DD",2005.2,2005.2,22700,21,3,0)
232
233"^DD",2005.2,2005.2,22700,21,4,0)
234Enter ??? for more information.
235"^DD",2005.2,2005.2,22700,23,0)
236^^45^45^3080131^^
237"^DD",2005.2,2005.2,22700,23,1,0)
238This field allows for a private network address that may be different from
239"^DD",2005.2,2005.2,22700,23,2,0)
240the public physical location store in field #1 (PHYSICAL REFERENCE).
241"^DD",2005.2,2005.2,22700,23,3,0)
242
243"^DD",2005.2,2005.2,22700,23,4,0)
244For example, if field #1 is specified to be \\imageserver\images\ , then
245"^DD",2005.2,2005.2,22700,23,5,0)
246when images are stored (using data from this NETWORK LOCATION file), the
247"^DD",2005.2,2005.2,22700,23,6,0)
248location name passed to the client might be as follows:
249"^DD",2005.2,2005.2,22700,23,7,0)
250
251"^DD",2005.2,2005.2,22700,23,8,0)
252\\imageserver\images\IMAGE0001.JPG
253"^DD",2005.2,2005.2,22700,23,9,0)
254
255"^DD",2005.2,2005.2,22700,23,10,0)
256But if, instead, one wanted to keep the actual location of the files stored
257"^DD",2005.2,2005.2,22700,23,11,0)
258private, then one could put "\" into field #1, and then the actual location
259"^DD",2005.2,2005.2,22700,23,12,0)
260into this field (TMG PRIVATE PHYSICAL REFERENCE). This is dependent on using
261"^DD",2005.2,2005.2,22700,23,13,0)
262TMG UPLOAD and DOWNLOAD RPC calls that utilize this field.
263"^DD",2005.2,2005.2,22700,23,14,0)
264
265"^DD",2005.2,2005.2,22700,23,15,0)
266This field was developed by the TMG site during customization of the VistA
267"^DD",2005.2,2005.2,22700,23,16,0)
268Imaging system into a document-imaging system. The prior method used by
269"^DD",2005.2,2005.2,22700,23,17,0)
270VistA was to pass the filepath and filename that had been set up on a
271"^DD",2005.2,2005.2,22700,23,18,0)
272Windows server. The client was required to be part of this same filesystem.
273"^DD",2005.2,2005.2,22700,23,19,0)
274And the client would then store files directly.
275"^DD",2005.2,2005.2,22700,23,20,0)
276
277"^DD",2005.2,2005.2,22700,23,21,0)
278The TMG site, however, wanted to use a linux server that did not setup
279"^DD",2005.2,2005.2,22700,23,22,0)
280directory shares, and thus were not accessible to windows clients. Transfer
281"^DD",2005.2,2005.2,22700,23,23,0)
282code was created to pass binary files through the RPC Broker (using BASE64
283"^DD",2005.2,2005.2,22700,23,24,0)
284ascii armour encoding). Thus when the client asks to save a file, it would
285"^DD",2005.2,2005.2,22700,23,25,0)
286be a security violation to allow any arbitrary directory (including
287"^DD",2005.2,2005.2,22700,23,26,0)
288sensitive locations.)
289"^DD",2005.2,2005.2,22700,23,27,0)
290
291"^DD",2005.2,2005.2,22700,23,28,0)
292Thus at the TMG site, RPC routines such as MAGGADDIMAGE (client asks to upload a file, and
293"^DD",2005.2,2005.2,22700,23,29,0)
294server prepares an appropriate filename for it) would use field #1 (PHYSICAL
295"^DD",2005.2,2005.2,22700,23,30,0)
296REFERENCE... SET TO "/") and pass back a file name like this:
297"^DD",2005.2,2005.2,22700,23,31,0)
298 /FILE0001.JPG
299"^DD",2005.2,2005.2,22700,23,32,0)
300The server upload code (UPLOAD^TMGRPC1) would use TMG PRIVATE PHYSICAL
301"^DD",2005.2,2005.2,22700,23,33,0)
302REFERENCE (of '/var/local/images/') to actually store the file to:
303"^DD",2005.2,2005.2,22700,23,34,0)
304 e.g. /var/local/images/FILE0001.JPG
305"^DD",2005.2,2005.2,22700,23,35,0)
306
307"^DD",2005.2,2005.2,22700,23,36,0)
308The actual file location is then a concatenation of:
309"^DD",2005.2,2005.2,22700,23,37,0)
310 TMG PRIVATE PHYSICAL REFERENCE + PHYSICAL REFERENCE
311"^DD",2005.2,2005.2,22700,23,38,0)
312
313"^DD",2005.2,2005.2,22700,23,39,0)
314During use, UPLOAD^TMGRPC1 will make sure that //'s don't occur. I.e. if:
315"^DD",2005.2,2005.2,22700,23,40,0)
316 TMG PRIVATE PHYSICAL REFERENCE = "/var/local/server/" and
317"^DD",2005.2,2005.2,22700,23,41,0)
318 PHYSICAL REFERENCE = "/images/"
319"^DD",2005.2,2005.2,22700,23,42,0)
320then final result would be
321"^DD",2005.2,2005.2,22700,23,43,0)
322 "/var/local/server/images/"
323"^DD",2005.2,2005.2,22700,23,44,0)
324not
325"^DD",2005.2,2005.2,22700,23,45,0)
326 "/var/local/server//images/"
327"^DD",2005.2,2005.2,22700,"DT")
3283050927
329"^DD",2005.2,2005.2,22701,0)
330TMG NODE DIVIDER SYMBOL^F^^22701;1^K:$L(X)>1!($L(X)<1)!'((X="\")!(X="/")) X
331"^DD",2005.2,2005.2,22701,3)
332Answer must be 1 character in length.
333"^DD",2005.2,2005.2,22701,21,0)
334^^7^7^3050927^^
335"^DD",2005.2,2005.2,22701,21,1,0)
336Enter the symbol used by the file system to used directories.
337"^DD",2005.2,2005.2,22701,21,2,0)
338
339"^DD",2005.2,2005.2,22701,21,3,0)
340i.e. for Windows, would be \
341"^DD",2005.2,2005.2,22701,21,4,0)
342 and for Unix, would be /
343"^DD",2005.2,2005.2,22701,21,5,0)
344
345"^DD",2005.2,2005.2,22701,21,6,0)
346e.g. Windows: c:\dir1\dir2
347"^DD",2005.2,2005.2,22701,21,7,0)
348 Unix /dir1/dir2
349"^DD",2005.2,2005.2,22701,"DT")
3503050927
351"^DD",2005.2,2005.2,22702,0)
352TMG DROPBOX PHYSICAL REFERENCE^F^^22702;1^K:$L(X)>250!($L(X)<1) X
353"^DD",2005.2,2005.2,22702,3)
354Answer must be 1-250 characters in length.
355"^DD",2005.2,2005.2,22702,21,0)
356^^2^2^3080131^^
357"^DD",2005.2,2005.2,22702,21,1,0)
358This should be the path that the server may use to obtain
359"^DD",2005.2,2005.2,22702,21,2,0)
360a file from the dropbox. ?? for more help.
361"^DD",2005.2,2005.2,22702,23,0)
362^^41^41^3080131^^
363"^DD",2005.2,2005.2,22702,23,1,0)
364Enter the name of the folder that the server will use as a drop
365"^DD",2005.2,2005.2,22702,23,2,0)
366box location.
367"^DD",2005.2,2005.2,22702,23,3,0)
368 e.g.:
369"^DD",2005.2,2005.2,22702,23,4,0)
370 /mnt/Winserver/dropbox/
371"^DD",2005.2,2005.2,22702,23,5,0)
372
373"^DD",2005.2,2005.2,22702,23,6,0)
374This custom field was added at the TMG site to allow uploading
375"^DD",2005.2,2005.2,22702,23,7,0)
376of files via a 'drop box' method.
377"^DD",2005.2,2005.2,22702,23,8,0)
378
379"^DD",2005.2,2005.2,22702,23,9,0)
380Background: The original VistA setup was to have the client and
381"^DD",2005.2,2005.2,22702,23,10,0)
382server to share a custom filesystem. During requests to upload
383"^DD",2005.2,2005.2,22702,23,11,0)
384a file from CPRS, the server would pass a file path+name to CPRS
385"^DD",2005.2,2005.2,22702,23,12,0)
386and the client would directly write to the location. TMG felt
387"^DD",2005.2,2005.2,22702,23,13,0)
388this to represent poor security, as anyone on a client machine
389"^DD",2005.2,2005.2,22702,23,14,0)
390could browse the image directory directly (with a file browser)
391"^DD",2005.2,2005.2,22702,23,15,0)
392and see private images.
393"^DD",2005.2,2005.2,22702,23,16,0)
394
395"^DD",2005.2,2005.2,22702,23,17,0)
396So a RPC call was created to upload the file to the server through
397"^DD",2005.2,2005.2,22702,23,18,0)
398the RPC broker, using ASCII Armour Encoding to pass binary files.
399"^DD",2005.2,2005.2,22702,23,19,0)
400This was OK, but each file transfer took 1-10 seconds, and was too
401"^DD",2005.2,2005.2,22702,23,20,0)
402slow for higher volume settings.
403"^DD",2005.2,2005.2,22702,23,21,0)
404
405"^DD",2005.2,2005.2,22702,23,22,0)
406So this method now uses a secure 'drop box' method. It does require
407"^DD",2005.2,2005.2,22702,23,23,0)
408a shared filesystem between server and client, but ensures that the
409"^DD",2005.2,2005.2,22702,23,24,0)
410client can not browse files on the server after uploading them.
411"^DD",2005.2,2005.2,22702,23,25,0)
412The client does a file copy to the drop box drive location, and then
413"^DD",2005.2,2005.2,22702,23,26,0)
414notifies the server. The server then moves the file to a secure
415"^DD",2005.2,2005.2,22702,23,27,0)
416private location. Later, when the client needs the file back, the
417"^DD",2005.2,2005.2,22702,23,28,0)
418process is reversed: the server is asked for the file, the file is
419"^DD",2005.2,2005.2,22702,23,29,0)
420moved to the drop box, and the client moves it to its needed location.
421"^DD",2005.2,2005.2,22702,23,30,0)
422
423"^DD",2005.2,2005.2,22702,23,31,0)
424This will still be slightly slower than direct access, but provides
425"^DD",2005.2,2005.2,22702,23,32,0)
426more security. It depends on the client to delete the file from the
427"^DD",2005.2,2005.2,22702,23,33,0)
428dropbox, and from its local client location after finishing use.
429"^DD",2005.2,2005.2,22702,23,34,0)
430
431"^DD",2005.2,2005.2,22702,23,35,0)
432Note: the client will probably have a different name for the drop box
433"^DD",2005.2,2005.2,22702,23,36,0)
434location, and client configuration will be required as well.
435"^DD",2005.2,2005.2,22702,23,37,0)
436E.g.
437"^DD",2005.2,2005.2,22702,23,38,0)
438 Linux server has dropbox at /mnt/Winserver/dropbox/
439"^DD",2005.2,2005.2,22702,23,39,0)
440 Windows Client has access to dropbox at V:\Dropbox\
441"^DD",2005.2,2005.2,22702,23,40,0)
442
443"^DD",2005.2,2005.2,22702,23,41,0)
444This field stores only the server dropbox location.
445"^DD",2005.2,2005.2,22702,"DT")
4463080131
447**END**
448**END**
Note: See TracBrowser for help on using the repository browser.