source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDIN00T.m@ 1163

Last change on this file since 1163 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 3.1 KB
Line 
1XPDIN00T ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
4Q Q
5 ;;^UTILITY(U,$J,"DIST(.404,",84,40,"B",1,1)
6 ;;=
7 ;;^UTILITY(U,$J,"DIST(.404,",85,0)
8 ;;=XPD EDIT BUILD10A^9.661
9 ;;^UTILITY(U,$J,"DIST(.404,",85,40,0)
10 ;;=^.4044I^1^1
11 ;;^UTILITY(U,$J,"DIST(.404,",85,40,1,0)
12 ;;=1^^3
13 ;;^UTILITY(U,$J,"DIST(.404,",85,40,1,1)
14 ;;=.01
15 ;;^UTILITY(U,$J,"DIST(.404,",85,40,1,2)
16 ;;=1,2^4
17 ;;^UTILITY(U,$J,"DIST(.404,",85,40,"B",1,1)
18 ;;=
19 ;;^UTILITY(U,$J,"PKG",12,0)
20 ;;=KIDS^XPD^Kernel Installation & Distribution System
21 ;;^UTILITY(U,$J,"PKG",12,1,0)
22 ;;=^^3^3^2940705^^
23 ;;^UTILITY(U,$J,"PKG",12,1,1,0)
24 ;;=Kernel Installation and Distribution System first time install. This
25 ;;^UTILITY(U,$J,"PKG",12,1,2,0)
26 ;;=package is used to install Kernel for the first time. It will install
27 ;;^UTILITY(U,$J,"PKG",12,1,3,0)
28 ;;=a part of KIDS that will then allow you to use KIDS to install Kernel.
29 ;;^UTILITY(U,$J,"PKG",12,4,0)
30 ;;=^9.44PA^3^2
31 ;;^UTILITY(U,$J,"PKG",12,4,2,0)
32 ;;=9.7
33 ;;^UTILITY(U,$J,"PKG",12,4,2,222)
34 ;;=y^y^^n^^^n
35 ;;^UTILITY(U,$J,"PKG",12,4,2,223)
36 ;;=
37 ;;^UTILITY(U,$J,"PKG",12,4,3,0)
38 ;;=9.6
39 ;;^UTILITY(U,$J,"PKG",12,4,3,222)
40 ;;=y^y^^n^^^n
41 ;;^UTILITY(U,$J,"PKG",12,4,"B",9.6,3)
42 ;;=
43 ;;^UTILITY(U,$J,"PKG",12,4,"B",9.7,2)
44 ;;=
45 ;;^UTILITY(U,$J,"PKG",12,22,0)
46 ;;=^9.49I^6^6
47 ;;^UTILITY(U,$J,"PKG",12,22,1,0)
48 ;;=1^2940603^2931015
49 ;;^UTILITY(U,$J,"PKG",12,22,2,0)
50 ;;=8.0^2950703
51 ;;^UTILITY(U,$J,"PKG",12,22,3,0)
52 ;;=8.0T17^2941024
53 ;;^UTILITY(U,$J,"PKG",12,22,4,0)
54 ;;=8.0T18^2950112
55 ;;^UTILITY(U,$J,"PKG",12,22,5,0)
56 ;;=8.0T19^2950214
57 ;;^UTILITY(U,$J,"PKG",12,22,6,0)
58 ;;=8.0T20^2950412^2950410
59 ;;^UTILITY(U,$J,"PKG",12,22,"B",1,1)
60 ;;=
61 ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0",2)
62 ;;=
63 ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T17",3)
64 ;;=
65 ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T18",4)
66 ;;=
67 ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T19",5)
68 ;;=
69 ;;^UTILITY(U,$J,"PKG",12,22,"B","8.0T20",6)
70 ;;=
71 ;;^UTILITY(U,$J,"PKG",12,"DIST",0)
72 ;;=^9.485^^0
73 ;;^UTILITY(U,$J,"PKG",12,"INI")
74 ;;=^
75 ;;^UTILITY(U,$J,"PKG",12,"INIT")
76 ;;=^
77 ;;^UTILITY(U,$J,"PKG",12,"PRE")
78 ;;=^
79 ;;^UTILITY(U,$J,"SBF",9.6,9.6)
80 ;;=
81 ;;^UTILITY(U,$J,"SBF",9.6,9.61)
82 ;;=
83 ;;^UTILITY(U,$J,"SBF",9.6,9.62)
84 ;;=
85 ;;^UTILITY(U,$J,"SBF",9.6,9.623)
86 ;;=
87 ;;^UTILITY(U,$J,"SBF",9.6,9.626)
88 ;;=
89 ;;^UTILITY(U,$J,"SBF",9.6,9.63)
90 ;;=
91 ;;^UTILITY(U,$J,"SBF",9.6,9.64)
92 ;;=
93 ;;^UTILITY(U,$J,"SBF",9.6,9.641)
94 ;;=
95 ;;^UTILITY(U,$J,"SBF",9.6,9.6411)
96 ;;=
97 ;;^UTILITY(U,$J,"SBF",9.6,9.65)
98 ;;=
99 ;;^UTILITY(U,$J,"SBF",9.6,9.66)
100 ;;=
101 ;;^UTILITY(U,$J,"SBF",9.6,9.661)
102 ;;=
103 ;;^UTILITY(U,$J,"SBF",9.6,9.67)
104 ;;=
105 ;;^UTILITY(U,$J,"SBF",9.6,9.68)
106 ;;=
107 ;;^UTILITY(U,$J,"SBF",9.7,9.7)
108 ;;=
109 ;;^UTILITY(U,$J,"SBF",9.7,9.701)
110 ;;=
111 ;;^UTILITY(U,$J,"SBF",9.7,9.702)
112 ;;=
113 ;;^UTILITY(U,$J,"SBF",9.7,9.703)
114 ;;=
115 ;;^UTILITY(U,$J,"SBF",9.7,9.704)
116 ;;=
117 ;;^UTILITY(U,$J,"SBF",9.7,9.713)
118 ;;=
119 ;;^UTILITY(U,$J,"SBF",9.7,9.714)
120 ;;=
121 ;;^UTILITY(U,$J,"SBF",9.7,9.715)
122 ;;=
123 ;;^UTILITY(U,$J,"SBF",9.7,9.716)
124 ;;=
125 ;;^UTILITY(U,$J,"SBF",9.7,9.718)
126 ;;=
Note: See TracBrowser for help on using the repository browser.