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/XPDIN004.m@ 1765

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

initial load of FOIAVistA 6/30/08 version

File size: 4.8 KB
Line 
1XPDIN004 ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 Q:'DIFQ(9.6) 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.62,10,21,0)
6 ;;=^^6^6^2940110^^
7 ;;^DD(9.62,10,21,1,0)
8 ;;=This field contains standard M code which will be executed after the DIR
9 ;;^DD(9.62,10,21,2,0)
10 ;;=array has been set from the previous fields, but before the call to the DIR
11 ;;^DD(9.62,10,21,3,0)
12 ;;=routine. If the developer doesn't want to ask a question, kill the DIR
13 ;;^DD(9.62,10,21,4,0)
14 ;;=array. The array XPDQUES(SUBSCRIPT)=internal answer will be defined for all
15 ;;^DD(9.62,10,21,5,0)
16 ;;=questions asked. This code can only make references to the ENVIORMENT CHECK
17 ;;^DD(9.62,10,21,6,0)
18 ;;=ROUTINE, since it will be the only routine loaded at this time.
19 ;;^DD(9.62,10,"DT")
20 ;;=2931129
21 ;;^DD(9.623,0)
22 ;;=DIR(A,#) SUB-FIELD^^.01^1
23 ;;^DD(9.623,0,"DT")
24 ;;=2931122
25 ;;^DD(9.623,0,"NM","DIR(A,#)")
26 ;;=
27 ;;^DD(9.623,0,"UP")
28 ;;=9.62
29 ;;^DD(9.623,.01,0)
30 ;;=DIR(A,#)^WL^^0;1^Q
31 ;;^DD(9.623,.01,"DT")
32 ;;=2931122
33 ;;^DD(9.626,0)
34 ;;=DIR(?,#) SUB-FIELD^^.01^1
35 ;;^DD(9.626,0,"DT")
36 ;;=2931122
37 ;;^DD(9.626,0,"NM","DIR(?,#)")
38 ;;=
39 ;;^DD(9.626,0,"UP")
40 ;;=9.62
41 ;;^DD(9.626,.01,0)
42 ;;=DIR(?,#)^WL^^0;1^Q
43 ;;^DD(9.626,.01,"DT")
44 ;;=2931122
45 ;;^DD(9.63,0)
46 ;;=MULTI-PACKAGE SUB-FIELD^^.01^2
47 ;;^DD(9.63,0,"DT")
48 ;;=2940503
49 ;;^DD(9.63,0,"IX","B",9.63,.01)
50 ;;=
51 ;;^DD(9.63,0,"NM","MULTI-PACKAGE")
52 ;;=
53 ;;^DD(9.63,0,"UP")
54 ;;=9.6
55 ;;^DD(9.63,.001,0)
56 ;;=INSTALL ORDER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
57 ;;^DD(9.63,.001,3)
58 ;;=Type a Number between 1 and 99, 0 Decimal Digits
59 ;;^DD(9.63,.001,21,0)
60 ;;=^^1^1^2940503^
61 ;;^DD(9.63,.001,21,1,0)
62 ;;=This is the order in which this package will be installed.
63 ;;^DD(9.63,.001,"DT")
64 ;;=2940503
65 ;;^DD(9.63,.01,0)
66 ;;=MULTI-PACKAGE^MP9.6'^XPD(9.6,^0;1^Q
67 ;;^DD(9.63,.01,1,0)
68 ;;=^.1
69 ;;^DD(9.63,.01,1,1,0)
70 ;;=9.63^B
71 ;;^DD(9.63,.01,1,1,1)
72 ;;=S ^XPD(9.6,DA(1),10,"B",$E(X,1,30),DA)=""
73 ;;^DD(9.63,.01,1,1,2)
74 ;;=K ^XPD(9.6,DA(1),10,"B",$E(X,1,30),DA)
75 ;;^DD(9.63,.01,21,0)
76 ;;=^^1^1^2940503^
77 ;;^DD(9.63,.01,21,1,0)
78 ;;=Name of package that will be part of this multi-package distribution.
79 ;;^DD(9.63,.01,"DT")
80 ;;=2940502
81 ;;^DD(9.64,0)
82 ;;=FILE SUB-FIELD^NL^224^13
83 ;;^DD(9.64,0,"DT")
84 ;;=2950330
85 ;;^DD(9.64,0,"IX","AC",9.64,222.3)
86 ;;=
87 ;;^DD(9.64,0,"IX","APDD",9.6411,.01)
88 ;;=
89 ;;^DD(9.64,0,"IX","B",9.64,.01)
90 ;;=
91 ;;^DD(9.64,0,"NM","FILE")
92 ;;=
93 ;;^DD(9.64,0,"UP")
94 ;;=9.6
95 ;;^DD(9.64,.01,0)
96 ;;=FILE^M*P1'X^DIC(^0;1^S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
97 ;;^DD(9.64,.01,.1)
98 ;;=REQUIRED FILES FOR THIS PACKAGE
99 ;;^DD(9.64,.01,1,0)
100 ;;=^.1^^-1
101 ;;^DD(9.64,.01,1,1,0)
102 ;;=9.64^B
103 ;;^DD(9.64,.01,1,1,1)
104 ;;=S ^XPD(9.6,DA(1),4,"B",X,DA)=""
105 ;;^DD(9.64,.01,1,1,2)
106 ;;=K ^XPD(9.6,DA(1),4,"B",X,DA)
107 ;;^DD(9.64,.01,3)
108 ;;=Please enter the name of a FILE that is known to VA FileMan.
109 ;;^DD(9.64,.01,12)
110 ;;=Select a file which is used by this package.
111 ;;^DD(9.64,.01,12.1)
112 ;;=S DIC("S")="I Y>1.9999"
113 ;;^DD(9.64,.01,21,0)
114 ;;=^^2^2^2920513^^^^
115 ;;^DD(9.64,.01,21,1,0)
116 ;;=The name of a VA FileMan file which you wish to transport with
117 ;;^DD(9.64,.01,21,2,0)
118 ;;=this package. This may be any file whose number is 2 or greater.
119 ;;^DD(9.64,.01,"DT")
120 ;;=2931104
121 ;;^DD(9.64,.02,0)
122 ;;=CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X
123 ;;^DD(9.64,.02,3)
124 ;;=Answer must be 3-30 characters in length.
125 ;;^DD(9.64,.02,21,0)
126 ;;=^^1^1^2950330^
127 ;;^DD(9.64,.02,21,1,0)
128 ;;=This field contains the checksum for this Data Dictionary
129 ;;^DD(9.64,.02,"DT")
130 ;;=2950330
131 ;;^DD(9.64,1,0)
132 ;;=DD NUMBER^9.641^^2;0
133 ;;^DD(9.64,1,21,0)
134 ;;=^^2^2^2940903^
135 ;;^DD(9.64,1,21,1,0)
136 ;;=DD NUMBER pertains to the top level of the file, file number, or a
137 ;;^DD(9.64,1,21,2,0)
138 ;;=sub-file such as a multiple field.
139 ;;^DD(9.64,222.1,0)
140 ;;=UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q
141 ;;^DD(9.64,222.1,21,0)
142 ;;=8^^7^7^2940503^
143 ;;^DD(9.64,222.1,21,1,0)
144 ;;=YES means that the Data Dictionary for this file should be updated when
145 ;;^DD(9.64,222.1,21,2,0)
146 ;;=this version of the package is installed.
147 ;;^DD(9.64,222.1,21,3,0)
148 ;;=
149 ;;^DD(9.64,222.1,21,4,0)
150 ;;=NO means that this Data Dictionary has not changed since the last version,
151 ;;^DD(9.64,222.1,21,5,0)
152 ;;=
153 ;;^DD(9.64,222.1,21,6,0)
154 ;;=If the Data Dictionary does not exist at the installing site, then this
155 ;;^DD(9.64,222.1,21,7,0)
156 ;;=field does not apply. The DD will be put in place.
157 ;;^DD(9.64,222.1,"DT")
158 ;;=2890627
159 ;;^DD(9.64,222.2,0)
160 ;;=SEND SECURITY CODE^S^y:YES;n:NO;^222;2^Q
161 ;;^DD(9.64,222.2,21,0)
162 ;;=^^5^5^2940503^^^
163 ;;^DD(9.64,222.2,21,1,0)
164 ;;=YES means you want to include the security protection currently
165 ;;^DD(9.64,222.2,21,2,0)
166 ;;=on this file when it is distributed. The security protection will
Note: See TracBrowser for help on using the repository browser.