source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT002.m@ 808

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

initial load of WorldVistAEHR

File size: 6.6 KB
Line 
1DINIT002 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 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) S @X=Y
5Q Q
6 ;;^DD(.84,6,21,5,0)
7 ;;=special flag into a global or local variable to notify the calling routine
8 ;;^DD(.84,6,21,6,0)
9 ;;=that some extra action needed to be taken.
10 ;;^DD(.84,6,23,0)
11 ;;=^^7^7^2941122^
12 ;;^DD(.84,6,23,1,0)
13 ;;=At the time of executing this code
14 ;;^DD(.84,6,23,2,0)
15 ;;= D0 = IEN for the entry in the DIALOG file
16 ;;^DD(.84,6,23,3,0)
17 ;;= DIPI(n) = (for sequential number n) parameters incorporated in the text.
18 ;;^DD(.84,6,23,4,0)
19 ;;= DIPE(n) = parameters output back to the user
20 ;;^DD(.84,6,23,5,0)
21 ;;=
22 ;;^DD(.84,6,23,6,0)
23 ;;=All other variables used in this code should use your packages namespace,
24 ;;^DD(.84,6,23,7,0)
25 ;;=and should be NEWed.
26 ;;^DD(.84,6,"DT")
27 ;;=2940520
28 ;;^DD(.84,7,0)
29 ;;=TRANSLATION^.847P^^4;0
30 ;;^DD(.84,8,0)
31 ;;=CALLED FROM ENTRY POINTS^.841^^5;0
32 ;;^DD(.841,0)
33 ;;=CALLED FROM ENTRY POINTS SUB-FIELD^^.05^2
34 ;;^DD(.841,0,"DT")
35 ;;=2940411
36 ;;^DD(.841,0,"IX","B",.841,.01)
37 ;;=
38 ;;^DD(.841,0,"NM","CALLED FROM ENTRY POINTS")
39 ;;=
40 ;;^DD(.841,0,"UP")
41 ;;=.84
42 ;;^DD(.841,.01,0)
43 ;;=ROUTINE NAME^MF^^0;1^K:$L(X)>8!($L(X)<1) X
44 ;;^DD(.841,.01,1,0)
45 ;;=^.1
46 ;;^DD(.841,.01,1,1,0)
47 ;;=.841^B
48 ;;^DD(.841,.01,1,1,1)
49 ;;=S ^DI(.84,DA(1),5,"B",$E(X,1,30),DA)=""
50 ;;^DD(.841,.01,1,1,2)
51 ;;=K ^DI(.84,DA(1),5,"B",$E(X,1,30),DA)
52 ;;^DD(.841,.01,3)
53 ;;=Answer must be 1-8 characters in length.
54 ;;^DD(.841,.01,21,0)
55 ;;=^^6^6^2940411^
56 ;;^DD(.841,.01,21,1,0)
57 ;;=This multiple is used for documentation only. Entries are made to this
58 ;;^DD(.841,.01,21,2,0)
59 ;;=subfile ONLY for ERROR type text. Enter the routine name of an entry
60 ;;^DD(.841,.01,21,3,0)
61 ;;=point that may generate this error message. You only need to enter the
62 ;;^DD(.841,.01,21,4,0)
63 ;;=names of routines that directly generate the error through a call to
64 ;;^DD(.841,.01,21,5,0)
65 ;;=^DIALOG, and not when the error is generated by some other utility called
66 ;;^DD(.841,.01,21,6,0)
67 ;;=from your routine.
68 ;;^DD(.841,.01,"DT")
69 ;;=2940411
70 ;;^DD(.841,.05,0)
71 ;;=LINE TAG^F^^0;2^K:$L(X)>10!($L(X)<1) X
72 ;;^DD(.841,.05,3)
73 ;;=Answer must be 1-10 characters in length.
74 ;;^DD(.841,.05,21,0)
75 ;;=^^6^6^2940411^
76 ;;^DD(.841,.05,21,1,0)
77 ;;=This multiple is used for documentation only. Entries are made to this
78 ;;^DD(.841,.05,21,2,0)
79 ;;=subfile ONLY for ERROR type text. Enter the line tag of an entry point
80 ;;^DD(.841,.05,21,3,0)
81 ;;=that may generate this error message. You only need to enter the names of
82 ;;^DD(.841,.05,21,4,0)
83 ;;=routines that directly generate the error through a call to ^DIALOG, and
84 ;;^DD(.841,.05,21,5,0)
85 ;;=not when the error is generated by some other utility called from your
86 ;;^DD(.841,.05,21,6,0)
87 ;;=routine.
88 ;;^DD(.841,.05,"DT")
89 ;;=2940411
90 ;;^DD(.842,0)
91 ;;=DESCRIPTION SUB-FIELD^^.01^1
92 ;;^DD(.842,0,"DT")
93 ;;=2930614
94 ;;^DD(.842,0,"NM","DESCRIPTION")
95 ;;=
96 ;;^DD(.842,0,"UP")
97 ;;=.84
98 ;;^DD(.842,.01,0)
99 ;;=DESCRIPTION^W^^0;1^Q
100 ;;^DD(.842,.01,3)
101 ;;=Describe the use of this dialogue.
102 ;;^DD(.842,.01,"DT")
103 ;;=2930614
104 ;;^DD(.844,0)
105 ;;=TEXT SUB-FIELD^^.01^1
106 ;;^DD(.844,0,"DT")
107 ;;=2930811
108 ;;^DD(.844,0,"NM","TEXT")
109 ;;=
110 ;;^DD(.844,0,"UP")
111 ;;=.84
112 ;;^DD(.844,.01,0)
113 ;;=TEXT^WL^^0;1^Q
114 ;;^DD(.844,.01,3)
115 ;;=Enter the actual text of the dialogue, with optional parameter windows.
116 ;;^DD(.844,.01,"DT")
117 ;;=2930811
118 ;;^DD(.845,0)
119 ;;=PARAMETER SUB-FIELD^^1^2
120 ;;^DD(.845,0,"DT")
121 ;;=2931105
122 ;;^DD(.845,0,"IX","B",.845,.01)
123 ;;=
124 ;;^DD(.845,0,"NM","PARAMETER")
125 ;;=
126 ;;^DD(.845,0,"UP")
127 ;;=.84
128 ;;^DD(.845,.01,0)
129 ;;=PARAMETER SUBSCRIPT^MF^^0;1^K:$L(X)>20!($L(X)<1) X
130 ;;^DD(.845,.01,1,0)
131 ;;=^.1
132 ;;^DD(.845,.01,1,1,0)
133 ;;=.845^B
134 ;;^DD(.845,.01,1,1,1)
135 ;;=S ^DI(.84,DA(1),3,"B",$E(X,1,30),DA)=""
136 ;;^DD(.845,.01,1,1,2)
137 ;;=K ^DI(.84,DA(1),3,"B",$E(X,1,30),DA)
138 ;;^DD(.845,.01,3)
139 ;;=This entry corresponds to the subscript of an entry in either the text or output parameter list to the BLD^DIALOG and $$EZBLD^DIALOG routine. Answer must be 1-20 characters in length.
140 ;;^DD(.845,.01,21,0)
141 ;;=^^7^7^2941122^
142 ;;^DD(.845,.01,21,1,0)
143 ;;=This multiple is used for documentation purposes only. The entry in the
144 ;;^DD(.845,.01,21,2,0)
145 ;;=.01 field of this multiple will correspond to a subscript in either the
146 ;;^DD(.845,.01,21,3,0)
147 ;;=text or output parameter list, that are passed to the routines that build
148 ;;^DD(.845,.01,21,4,0)
149 ;;=dialogue messages, BLD^DIALOG and $$EZBLD^DIALOG. This routine will insert
150 ;;^DD(.845,.01,21,5,0)
151 ;;=into each 'window' from the TEXT field, the corresponding entry out of the
152 ;;^DD(.845,.01,21,6,0)
153 ;;=text parameter list. For errors only, it passes any entries from the
154 ;;^DD(.845,.01,21,7,0)
155 ;;=output parameter list back to the user as entries in its output array.
156 ;;^DD(.845,.01,"DT")
157 ;;=2931105
158 ;;^DD(.845,1,0)
159 ;;=PARAMETER DESCRIPTION^F^^0;2^K:$L(X)>230!($L(X)<1) X
160 ;;^DD(.845,1,3)
161 ;;=Describe the Parameter for documentation purposes. Answer must be 1-230 characters in length.
162 ;;^DD(.845,1,21,0)
163 ;;=^^5^5^2941122^
164 ;;^DD(.845,1,21,1,0)
165 ;;=This field is used for documentation purposes only. It describes the text
166 ;;^DD(.845,1,21,2,0)
167 ;;=and/or output parameter(s) that are passed to BLD^DIALOG and
168 ;;^DD(.845,1,21,3,0)
169 ;;=$$EZBLD^DIALOG. The same parameter can be used both as a text parameter
170 ;;^DD(.845,1,21,4,0)
171 ;;=(i.e., inserted into the text when it is built), and as an output
172 ;;^DD(.845,1,21,5,0)
173 ;;=parameter (i.e., a parameter passed back in a list to the user)
174 ;;^DD(.845,1,"DT")
175 ;;=2930614
176 ;;^DD(.847,0)
177 ;;=TRANSLATION SUB-FIELD^^1^2
178 ;;^DD(.847,0,"DT")
179 ;;=2940524
180 ;;^DD(.847,0,"IX","B",.847,.01)
181 ;;=
182 ;;^DD(.847,0,"NM","TRANSLATION")
183 ;;=
184 ;;^DD(.847,0,"UP")
185 ;;=.84
186 ;;^DD(.847,.01,0)
187 ;;=LANGUAGE^M*P.85'X^DI(.85,^0;1^S DIC("S")="I Y>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$G(X) DINUM=X
188 ;;^DD(.847,.01,1,0)
189 ;;=^.1
190 ;;^DD(.847,.01,1,1,0)
191 ;;=.847^B
192 ;;^DD(.847,.01,1,1,1)
193 ;;=S ^DI(.84,DA(1),4,"B",$E(X,1,30),DA)=""
194 ;;^DD(.847,.01,1,1,2)
195 ;;=K ^DI(.84,DA(1),4,"B",$E(X,1,30),DA)
196 ;;^DD(.847,.01,3)
197 ;;=Enter the number or name for a non-English language.
198 ;;^DD(.847,.01,12)
199 ;;=English language cannot be selected.
200 ;;^DD(.847,.01,12.1)
201 ;;=S DIC("S")="I Y>1"
202 ;;^DD(.847,.01,21,0)
203 ;;=^^3^3^2941118^^
204 ;;^DD(.847,.01,21,1,0)
205 ;;=Pointer to the LANGUAGE file. If FileMan system variable DUZ("LANG") is
206 ;;^DD(.847,.01,21,2,0)
207 ;;=set to an integer greater than 1, we use that number to extract dialogue
208 ;;^DD(.847,.01,21,3,0)
209 ;;=text for the specified language from this multiple.
Note: See TracBrowser for help on using the repository browser.