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/XPDIN00C.m@ 762

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

initial load of WorldVistAEHR

File size: 4.7 KB
Line 
1XPDIN00C ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 Q:'DIFQ(9.7) 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 ;;^DD(9.701,1,21,2,0)
6 ;;=Install Question.
7 ;;^DD(9.701,1,"DT")
8 ;;=2931201
9 ;;^DD(9.701,2,0)
10 ;;=EXTERNAL ANSWER^F^^B;E1,200^K:$L(X)>200!($L(X)<1) X
11 ;;^DD(9.701,2,3)
12 ;;=Answer must be 1-200 characters in length.
13 ;;^DD(9.701,2,21,0)
14 ;;=^^1^1^2940503^^
15 ;;^DD(9.701,2,21,1,0)
16 ;;=This is the external format of the Install Question answer.
17 ;;^DD(9.701,2,"DT")
18 ;;=2931201
19 ;;^DD(9.701,3,0)
20 ;;=ANSWER^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X
21 ;;^DD(9.701,3,3)
22 ;;=Answer must be 1-200 characters in length.
23 ;;^DD(9.701,3,21,0)
24 ;;=^^1^1^2940503^
25 ;;^DD(9.701,3,21,1,0)
26 ;;=This is the internal format of the Install Question answer.
27 ;;^DD(9.701,3,"DT")
28 ;;=2931201
29 ;;^DD(9.702,0)
30 ;;=MESSAGES SUB-FIELD^^.01^1
31 ;;^DD(9.702,0,"DT")
32 ;;=2931129
33 ;;^DD(9.702,0,"NM","MESSAGES")
34 ;;=
35 ;;^DD(9.702,0,"UP")
36 ;;=9.7
37 ;;^DD(9.702,.01,0)
38 ;;=MESSAGES^WL^^0;1^Q
39 ;;^DD(9.702,.01,"DT")
40 ;;=2931129
41 ;;^DD(9.703,0)
42 ;;=VOLUME SET SUB-FIELD^^4^5
43 ;;^DD(9.703,0,"DT")
44 ;;=2941014
45 ;;^DD(9.703,0,"IX","B",9.703,.01)
46 ;;=
47 ;;^DD(9.703,0,"NM","VOLUME SET")
48 ;;=
49 ;;^DD(9.703,0,"UP")
50 ;;=9.7
51 ;;^DD(9.703,.01,0)
52 ;;=VOLUME SET^MFX^^0;1^K:$L(X)>30!($L(X)<3) X D VOLE^XPDET(.X)
53 ;;^DD(9.703,.01,1,0)
54 ;;=^.1
55 ;;^DD(9.703,.01,1,1,0)
56 ;;=9.703^B
57 ;;^DD(9.703,.01,1,1,1)
58 ;;=S ^XPD(9.7,DA(1),"VOL","B",$E(X,1,30),DA)=""
59 ;;^DD(9.703,.01,1,1,2)
60 ;;=K ^XPD(9.7,DA(1),"VOL","B",$E(X,1,30),DA)
61 ;;^DD(9.703,.01,3)
62 ;;=Enter a Compute Server or Print Server type VOLUME SET
63 ;;^DD(9.703,.01,4)
64 ;;=D VOLH^XPDET
65 ;;^DD(9.703,.01,21,0)
66 ;;=^^3^3^2941017^^^^
67 ;;^DD(9.703,.01,21,1,0)
68 ;;=Enter the name of the VOLUME SET that you want updated when this package is
69 ;;^DD(9.703,.01,21,2,0)
70 ;;=installed. The VOLUME SET must be a Compute or Print Server, as defined in
71 ;;^DD(9.703,.01,21,3,0)
72 ;;=the VOLUME SET file, #14.5.
73 ;;^DD(9.703,.01,"DT")
74 ;;=2941017
75 ;;^DD(9.703,1,0)
76 ;;=COMPLETED TIME^D^^0;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
77 ;;^DD(9.703,1,21,0)
78 ;;=^^1^1^2941014^
79 ;;^DD(9.703,1,21,1,0)
80 ;;=This is the time the update to the VOLUME SET was completed.
81 ;;^DD(9.703,1,"DT")
82 ;;=2941014
83 ;;^DD(9.703,2,0)
84 ;;=START TIME^D^^0;3^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
85 ;;^DD(9.703,2,3)
86 ;;=
87 ;;^DD(9.703,2,21,0)
88 ;;=^^1^1^2941014^
89 ;;^DD(9.703,2,21,1,0)
90 ;;=This is the time the update to the VOLUME SET was started.
91 ;;^DD(9.703,2,"DT")
92 ;;=2941014
93 ;;^DD(9.703,3,0)
94 ;;=QUEUED TASK NUMBER^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
95 ;;^DD(9.703,3,3)
96 ;;=Type a Number between 1 and 99999999, 0 Decimal Digits
97 ;;^DD(9.703,3,21,0)
98 ;;=^^1^1^2941014^
99 ;;^DD(9.703,3,21,1,0)
100 ;;=This is the Task number for the job that is updating the VOLUME SET.
101 ;;^DD(9.703,3,"DT")
102 ;;=2941014
103 ;;^DD(9.703,4,0)
104 ;;=LAST UPDATE^F^^1;1^K:$L(X)>30!($L(X)<3) X
105 ;;^DD(9.703,4,3)
106 ;;=Must be $H format
107 ;;^DD(9.703,4,21,0)
108 ;;=^^2^2^2941014^
109 ;;^DD(9.703,4,21,1,0)
110 ;;=This is the $H value from the job that is updating the VOLUME SET. It should
111 ;;^DD(9.703,4,21,2,0)
112 ;;=be updated every 60 seconds.
113 ;;^DD(9.703,4,"DT")
114 ;;=2941014
115 ;;^DD(9.704,0)
116 ;;=ROUTINES SUB-FIELD^^.01^1
117 ;;^DD(9.704,0,"DT")
118 ;;=2950314
119 ;;^DD(9.704,0,"IX","B",9.704,.01)
120 ;;=
121 ;;^DD(9.704,0,"NM","ROUTINES")
122 ;;=
123 ;;^DD(9.704,0,"UP")
124 ;;=9.7
125 ;;^DD(9.704,.01,0)
126 ;;=ROUTINES^MF^^0;1^K:$L(X)>8!($L(X)<3) X
127 ;;^DD(9.704,.01,1,0)
128 ;;=^.1
129 ;;^DD(9.704,.01,1,1,0)
130 ;;=9.704^B
131 ;;^DD(9.704,.01,1,1,1)
132 ;;=S ^XPD(9.7,DA(1),"RTN","B",$E(X,1,30),DA)=""
133 ;;^DD(9.704,.01,1,1,2)
134 ;;=K ^XPD(9.7,DA(1),"RTN","B",$E(X,1,30),DA)
135 ;;^DD(9.704,.01,3)
136 ;;=Answer must be 3-8 characters in length.
137 ;;^DD(9.704,.01,21,0)
138 ;;=^^1^1^2941128^^
139 ;;^DD(9.704,.01,21,1,0)
140 ;;=This is the name of a Routine that is part of this Package.
141 ;;^DD(9.704,.01,"DT")
142 ;;=2941128
143 ;;^DD(9.713,0)
144 ;;=PRE-INIT CHECK POINTS SUB-FIELD^^3^4
145 ;;^DD(9.713,0,"DT")
146 ;;=2940710
147 ;;^DD(9.713,0,"IX","B",9.713,.01)
148 ;;=
149 ;;^DD(9.713,0,"NM","PRE-INIT CHECK POINTS")
150 ;;=
151 ;;^DD(9.713,0,"UP")
152 ;;=9.7
153 ;;^DD(9.713,.01,0)
154 ;;=PRE-INIT CHECK POINTS^MF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X
155 ;;^DD(9.713,.01,1,0)
156 ;;=^.1
157 ;;^DD(9.713,.01,1,1,0)
158 ;;=9.713^B
159 ;;^DD(9.713,.01,1,1,1)
160 ;;=S ^XPD(9.7,DA(1),"INI","B",$E(X,1,30),DA)=""
161 ;;^DD(9.713,.01,1,1,2)
162 ;;=K ^XPD(9.7,DA(1),"INI","B",$E(X,1,30),DA)
163 ;;^DD(9.713,.01,3)
164 ;;=Answer must be 3-30 characters in length.
165 ;;^DD(9.713,.01,21,0)
166 ;;=^^3^3^2931119^
167 ;;^DD(9.713,.01,21,1,0)
168 ;;=Enter the name of a Check Point that will be used by the Pre-Init routine.
169 ;;^DD(9.713,.01,21,2,0)
170 ;;=The Check Point "COMPLETED" will be created by the Install process and
171 ;;^DD(9.713,.01,21,3,0)
172 ;;=updated when the Pre-Init routine is finished.
173 ;;^DD(9.713,.01,"DT")
174 ;;=2940708
Note: See TracBrowser for help on using the repository browser.