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/XPDIN00B.m@ 1270

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

initial load of WorldVistAEHR

File size: 4.7 KB
RevLine 
[613]1XPDIN00B ; ; 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.7,7,3)
6 ;;=Answer must be 3-30 characters in length.
7 ;;^DD(9.7,7,21,0)
8 ;;=^^2^2^2940426^^
9 ;;^DD(9.7,7,21,1,0)
10 ;;=This is the SETNAME that will be used to disable options and protocols during
11 ;;^DD(9.7,7,21,2,0)
12 ;;=the installation of this package.
13 ;;^DD(9.7,7,"DT")
14 ;;=2940426
15 ;;^DD(9.7,8,0)
16 ;;=DISABLE OPTION DELAY^NJ2,0^^0;10^K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
17 ;;^DD(9.7,8,3)
18 ;;=Enter the number of minutes to delay the install, between 0 and 60.
19 ;;^DD(9.7,8,21,0)
20 ;;=^^2^2^2941103^
21 ;;^DD(9.7,8,21,1,0)
22 ;;=Enter the number of minutes to wait after the Options and Protocols have
23 ;;^DD(9.7,8,21,2,0)
24 ;;=been disabled, but before the Routines have been installed.
25 ;;^DD(9.7,8,"DT")
26 ;;=2941103
27 ;;^DD(9.7,9,0)
28 ;;=INSTALLED BY^P200'^VA(200,^0;11^Q
29 ;;^DD(9.7,9,21,0)
30 ;;=^^1^1^2950213^
31 ;;^DD(9.7,9,21,1,0)
32 ;;=This is the person who installed this package.
33 ;;^DD(9.7,9,"DT")
34 ;;=2950213
35 ;;^DD(9.7,11,0)
36 ;;=INSTALL START TIME^D^^1;1^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
37 ;;^DD(9.7,11,21,0)
38 ;;=^^1^1^2940415^
39 ;;^DD(9.7,11,21,1,0)
40 ;;=This is the time the install started.
41 ;;^DD(9.7,11,"DT")
42 ;;=2931117
43 ;;^DD(9.7,12,0)
44 ;;=ROUTINE INSTALL TIME^D^^1;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
45 ;;^DD(9.7,12,21,0)
46 ;;=^^1^1^2940415^
47 ;;^DD(9.7,12,21,1,0)
48 ;;=This is the routine install completed time.
49 ;;^DD(9.7,12,"DT")
50 ;;=2931118
51 ;;^DD(9.7,13,0)
52 ;;=PRE-INIT CHECK POINTS^9.713^^INI;0
53 ;;^DD(9.7,13,21,0)
54 ;;=^^1^1^2940503^^
55 ;;^DD(9.7,13,21,1,0)
56 ;;=This contains all the check points needed for the Pre-Init routine.
57 ;;^DD(9.7,14,0)
58 ;;=FILE^9.714P^^4;0
59 ;;^DD(9.7,14,21,0)
60 ;;=^^1^1^2940415^
61 ;;^DD(9.7,14,21,1,0)
62 ;;=This contains the VA Fileman files that were installed by this package.
63 ;;^DD(9.7,14,"DT")
64 ;;=2931118
65 ;;^DD(9.7,15,0)
66 ;;=BUILD COMPONENTS^9.715P^^KRN;0
67 ;;^DD(9.7,15,21,0)
68 ;;=^^1^1^2940415^
69 ;;^DD(9.7,15,21,1,0)
70 ;;=This contains a list of the components of this package.
71 ;;^DD(9.7,15,"DT")
72 ;;=2940525
73 ;;^DD(9.7,16,0)
74 ;;=POST-INIT CHECK POINTS^9.716^^INIT;0
75 ;;^DD(9.7,16,21,0)
76 ;;=^^1^1^2940503^
77 ;;^DD(9.7,16,21,1,0)
78 ;;=This contains all the check points needed for the Post-Init routine.
79 ;;^DD(9.7,17,0)
80 ;;=INSTALL COMPLETE TIME^D^^1;3^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
81 ;;^DD(9.7,17,21,0)
82 ;;=^^1^1^2940503^
83 ;;^DD(9.7,17,21,1,0)
84 ;;=This is the time the install finished.
85 ;;^DD(9.7,17,"DT")
86 ;;=2940111
87 ;;^DD(9.7,18,0)
88 ;;=GLOBALS^9.718^^GLO;0
89 ;;^DD(9.7,18,21,0)
90 ;;=^^2^2^2950109^
91 ;;^DD(9.7,18,21,1,0)
92 ;;=This multiple contains a list of globals that were installed by
93 ;;^DD(9.7,18,21,2,0)
94 ;;=this package.
95 ;;^DD(9.7,20,0)
96 ;;=MESSAGES^9.702^^MES;0
97 ;;^DD(9.7,20,21,0)
98 ;;=^^1^1^2940503^
99 ;;^DD(9.7,20,21,1,0)
100 ;;=This is where all messages about the install will be saved.
101 ;;^DD(9.7,30,0)
102 ;;=VOLUME SET^9.703^^VOL;0
103 ;;^DD(9.7,30,21,0)
104 ;;=^^2^2^2941017^^^^
105 ;;^DD(9.7,30,21,1,0)
106 ;;=This multiple contains the Volumes Sets that will be updated with the new
107 ;;^DD(9.7,30,21,2,0)
108 ;;=routines and compiled cross references, print and input templates.
109 ;;^DD(9.7,30,"DT")
110 ;;=2941017
111 ;;^DD(9.7,40,0)
112 ;;=ROUTINES^9.704A^^RTN;0
113 ;;^DD(9.7,40,21,0)
114 ;;=^^3^3^2941128^^
115 ;;^DD(9.7,40,21,1,0)
116 ;;=This multiple contains a list of all Routines that were installed for
117 ;;^DD(9.7,40,21,2,0)
118 ;;=this package. It also includes routines that were generated during the
119 ;;^DD(9.7,40,21,3,0)
120 ;;=install. The Routines came from calls to DIEZ, DIPZ, and DIKZ.
121 ;;^DD(9.7,40,"DT")
122 ;;=2941128
123 ;;^DD(9.7,50,0)
124 ;;=INSTALL ANSWERS^9.701^^QUES;0
125 ;;^DD(9.7,50,21,0)
126 ;;=^^1^1^2940503^
127 ;;^DD(9.7,50,21,1,0)
128 ;;=This multiple contains the answers to all the install Questions.
129 ;;^DD(9.701,0)
130 ;;=INSTALL ANSWERS SUB-FIELD^^3^4
131 ;;^DD(9.701,0,"DT")
132 ;;=2931201
133 ;;^DD(9.701,0,"IX","B",9.701,.01)
134 ;;=
135 ;;^DD(9.701,0,"NM","INSTALL ANSWERS")
136 ;;=
137 ;;^DD(9.701,0,"UP")
138 ;;=9.7
139 ;;^DD(9.701,.01,0)
140 ;;=NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X
141 ;;^DD(9.701,.01,1,0)
142 ;;=^.1
143 ;;^DD(9.701,.01,1,1,0)
144 ;;=9.701^B
145 ;;^DD(9.701,.01,1,1,1)
146 ;;=S ^XPD(9.7,DA(1),"QUES","B",$E(X,1,30),DA)=""
147 ;;^DD(9.701,.01,1,1,2)
148 ;;=K ^XPD(9.7,DA(1),"QUES","B",$E(X,1,30),DA)
149 ;;^DD(9.701,.01,3)
150 ;;=Answer must be 3-30 characters in length.
151 ;;^DD(9.701,.01,21,0)
152 ;;=^^1^1^2940503^
153 ;;^DD(9.701,.01,21,1,0)
154 ;;=This is the subscript to the install question.
155 ;;^DD(9.701,.01,"DT")
156 ;;=2931122
157 ;;^DD(9.701,1,0)
158 ;;=PROMPT^F^^A;E1,240^K:$L(X)>240!($L(X)<1) X
159 ;;^DD(9.701,1,3)
160 ;;=Answer must be 1-240 characters in length.
161 ;;^DD(9.701,1,21,0)
162 ;;=^^2^2^2940503^^
163 ;;^DD(9.701,1,21,1,0)
164 ;;=This is the DIR(A) variable that was used to prompt the user for the
Note: See TracBrowser for help on using the repository browser.