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

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

initial load of WorldVistAEHR
File size: 4.7 KB
RevLine 
[613]1XPDIN00O ; ; 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(.403,",11,"AZ","X",15,6,3)
6 ;;=DIR(A):
7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,7,1)
8 ;;=DIR(A,#):
9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,9,3)
10 ;;=DIR(B):
11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,11,3)
12 ;;=DIR(?):
13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,12,1)
14 ;;=DIR(?,#):
15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,13,2)
16 ;;=DIR(??):
17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,15,3)
18 ;;=M Code:
19 ;;^UTILITY(U,$J,"DIST(.404,",45,0)
20 ;;=XPD EDIT BUILD HDR^9.6
21 ;;^UTILITY(U,$J,"DIST(.404,",45,40,0)
22 ;;=^.4044I^4^4
23 ;;^UTILITY(U,$J,"DIST(.404,",45,40,1,0)
24 ;;=1^Edit a Build^1^
25 ;;^UTILITY(U,$J,"DIST(.404,",45,40,1,2)
26 ;;=^^1,28^
27 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,0)
28 ;;=2^Name^3^
29 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,1)
30 ;;=.01
31 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,2)
32 ;;=2,7^30^2,1
33 ;;^UTILITY(U,$J,"DIST(.404,",45,40,2,4)
34 ;;=^^^1
35 ;;^UTILITY(U,$J,"DIST(.404,",45,40,3,0)
36 ;;=3^PAGE OF 4^1^
37 ;;^UTILITY(U,$J,"DIST(.404,",45,40,3,2)
38 ;;=^^1,66^
39 ;;^UTILITY(U,$J,"DIST(.404,",45,40,4,0)
40 ;;=4^!M^1^
41 ;;^UTILITY(U,$J,"DIST(.404,",45,40,4,.1)
42 ;;=S $P(Y,"-",80)=""
43 ;;^UTILITY(U,$J,"DIST(.404,",45,40,4,2)
44 ;;=^^3,1^
45 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",1,1)
46 ;;=
47 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",2,2)
48 ;;=
49 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",3,3)
50 ;;=
51 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"B",4,4)
52 ;;=
53 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","EDIT A BUILD",1)
54 ;;=
55 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","NAME",2)
56 ;;=
57 ;;^UTILITY(U,$J,"DIST(.404,",45,40,"C","PAGE OF 4",3)
58 ;;=
59 ;;^UTILITY(U,$J,"DIST(.404,",46,0)
60 ;;=XPD EDIT BUILD1^9.6
61 ;;^UTILITY(U,$J,"DIST(.404,",46,12)
62 ;;=
63 ;;^UTILITY(U,$J,"DIST(.404,",46,40,0)
64 ;;=^.4044I^13^7
65 ;;^UTILITY(U,$J,"DIST(.404,",46,40,1,0)
66 ;;=2^Name^3^
67 ;;^UTILITY(U,$J,"DIST(.404,",46,40,1,1)
68 ;;=.01
69 ;;^UTILITY(U,$J,"DIST(.404,",46,40,1,2)
70 ;;=6,28^50^6,22
71 ;;^UTILITY(U,$J,"DIST(.404,",46,40,5,0)
72 ;;=5^Environment Check Routine^3^
73 ;;^UTILITY(U,$J,"DIST(.404,",46,40,5,1)
74 ;;=913
75 ;;^UTILITY(U,$J,"DIST(.404,",46,40,5,2)
76 ;;=12,28^8^12,1
77 ;;^UTILITY(U,$J,"DIST(.404,",46,40,6,0)
78 ;;=7^Post-Install Routine^3^
79 ;;^UTILITY(U,$J,"DIST(.404,",46,40,6,1)
80 ;;=914
81 ;;^UTILITY(U,$J,"DIST(.404,",46,40,6,2)
82 ;;=16,28^17^16,6
83 ;;^UTILITY(U,$J,"DIST(.404,",46,40,7,0)
84 ;;=6^Pre-Install Routine^3^
85 ;;^UTILITY(U,$J,"DIST(.404,",46,40,7,1)
86 ;;=916
87 ;;^UTILITY(U,$J,"DIST(.404,",46,40,7,2)
88 ;;=14,28^17^14,7
89 ;;^UTILITY(U,$J,"DIST(.404,",46,40,11,0)
90 ;;=4^Description^3^
91 ;;^UTILITY(U,$J,"DIST(.404,",46,40,11,1)
92 ;;=3
93 ;;^UTILITY(U,$J,"DIST(.404,",46,40,11,2)
94 ;;=10,28^1^10,15
95 ;;^UTILITY(U,$J,"DIST(.404,",46,40,12,0)
96 ;;=1^1^1^
97 ;;^UTILITY(U,$J,"DIST(.404,",46,40,12,2)
98 ;;=^^1,71^
99 ;;^UTILITY(U,$J,"DIST(.404,",46,40,13,0)
100 ;;=3^Date Distributed^3
101 ;;^UTILITY(U,$J,"DIST(.404,",46,40,13,1)
102 ;;=.02
103 ;;^UTILITY(U,$J,"DIST(.404,",46,40,13,2)
104 ;;=8,28^11^8,10
105 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",1,12)
106 ;;=
107 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",2,1)
108 ;;=
109 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",3,13)
110 ;;=
111 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",4,11)
112 ;;=
113 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",5,5)
114 ;;=
115 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",6,7)
116 ;;=
117 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"B",7,6)
118 ;;=
119 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C",1,12)
120 ;;=
121 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","DATE DISTRIBUTED",13)
122 ;;=
123 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","DESCRIPTION",11)
124 ;;=
125 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","ENVIRONMENT CHECK ROUTINE",5)
126 ;;=
127 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","NAME",1)
128 ;;=
129 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","POST-INSTALL ROUTINE",6)
130 ;;=
131 ;;^UTILITY(U,$J,"DIST(.404,",46,40,"C","PRE-INSTALL ROUTINE",7)
132 ;;=
133 ;;^UTILITY(U,$J,"DIST(.404,",47,0)
134 ;;=XPD EDIT BUILD2^9.6
135 ;;^UTILITY(U,$J,"DIST(.404,",47,12)
136 ;;=
137 ;;^UTILITY(U,$J,"DIST(.404,",47,40,0)
138 ;;=^.4044I^2^2
139 ;;^UTILITY(U,$J,"DIST(.404,",47,40,1,0)
140 ;;=99^3^1^
141 ;;^UTILITY(U,$J,"DIST(.404,",47,40,1,2)
142 ;;=^^1,71^
143 ;;^UTILITY(U,$J,"DIST(.404,",47,40,2,0)
144 ;;=2^Build Components^1^
145 ;;^UTILITY(U,$J,"DIST(.404,",47,40,2,2)
146 ;;=^^4,28^1
147 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"B",2,2)
148 ;;=
149 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"B",99,1)
150 ;;=
151 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"C",3,1)
152 ;;=
153 ;;^UTILITY(U,$J,"DIST(.404,",47,40,"C","BUILD COMPONENTS",2)
154 ;;=
155 ;;^UTILITY(U,$J,"DIST(.404,",48,0)
156 ;;=XPD EDIT BUILD3^9.68
157 ;;^UTILITY(U,$J,"DIST(.404,",48,40,0)
158 ;;=^.4044I^2^2
159 ;;^UTILITY(U,$J,"DIST(.404,",48,40,1,0)
160 ;;=1^^3^
161 ;;^UTILITY(U,$J,"DIST(.404,",48,40,1,1)
162 ;;=.01
163 ;;^UTILITY(U,$J,"DIST(.404,",48,40,1,2)
164 ;;=1,2^45
165 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,0)
166 ;;=2^^3
167 ;;^UTILITY(U,$J,"DIST(.404,",48,40,2,1)
168 ;;=.03
Note: See TracBrowser for help on using the repository browser.