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

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

initial load of WorldVistAEHR

File size: 6.7 KB
Line 
1DINIT001 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:25 AM 22 Aug 2006
2 ;;22.0;VA FileMan;**150**;Mar 30, 1999;Build 2
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 ;;^DIC(.84,0,"GL")
7 ;;=^DI(.84,
8 ;;^DIC("B","DIALOG",.84)
9 ;;=
10 ;;^DIC(.84,"%D",0)
11 ;;=^^8^8^2941121^^^^
12 ;;^DIC(.84,"%D",1,0)
13 ;;=This file stores the dialog used to 'talk' to a user (error messages,
14 ;;^DIC(.84,"%D",2,0)
15 ;;=help text, and other prompts.) Entry points in the ^DIALOG routine
16 ;;^DIC(.84,"%D",3,0)
17 ;;=retrieve text from this file. Variable parameters can be passed to these
18 ;;^DIC(.84,"%D",4,0)
19 ;;=calls. The parameters are inserted into windows within the text as it is
20 ;;^DIC(.84,"%D",5,0)
21 ;;=built. The text is returned in an array. This file and associated calls
22 ;;^DIC(.84,"%D",6,0)
23 ;;=can be used by any package to pass information in arrays rather than
24 ;;^DIC(.84,"%D",7,0)
25 ;;=writing to the current device. Record numbers 1 through 10000 are
26 ;;^DIC(.84,"%D",8,0)
27 ;;=reserved for VA FileMan.
28 ;;^DD(.84,0)
29 ;;=FIELD^^8^11
30 ;;^DD(.84,0,"DT")
31 ;;=2960426
32 ;;^DD(.84,0,"ID","WRITE")
33 ;;=N DIALID S DIALID(1)=$P($G(^(0)),U,5) S:DIALID(1)="" DIALID=+$O(^(2,0)),DIALID(1)=$E($G(^(DIALID,0)),1,42) S DIALID(1,"F")="?10" D EN^DDIOL(.DIALID)
34 ;;^DD(.84,0,"IX","B",.84,.01)
35 ;;=
36 ;;^DD(.84,0,"IX","C",.84,1.2)
37 ;;=
38 ;;^DD(.84,0,"IX","D",.84,1.3)
39 ;;=
40 ;;^DD(.84,0,"NM","DIALOG")
41 ;;=
42 ;;^DD(.84,0,"PT",1.52192,4)
43 ;;=
44 ;;^DD(.84,.01,0)
45 ;;=DIALOG NUMBER^RNJ14,3X^^0;1^K:+X'=X!(X>9999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"."4N.N) X S:$G(X) DINUM=X
46 ;;^DD(.84,.01,1,0)
47 ;;=^.1
48 ;;^DD(.84,.01,1,1,0)
49 ;;=.84^B
50 ;;^DD(.84,.01,1,1,1)
51 ;;=S ^DI(.84,"B",$E(X,1,30),DA)=""
52 ;;^DD(.84,.01,1,1,2)
53 ;;=K ^DI(.84,"B",$E(X,1,30),DA)
54 ;;^DD(.84,.01,3)
55 ;;=Type a Number between 10000.001 and 9999999999.999, up to 3 Decimal Digits
56 ;;^DD(.84,.01,21,0)
57 ;;=^^1^1^2940523^
58 ;;^DD(.84,.01,21,1,0)
59 ;;=The dialogue number is used to uniquely identify a message.
60 ;;^DD(.84,.01,"DT")
61 ;;=2940623
62 ;;^DD(.84,1,0)
63 ;;=TYPE^RS^1:ERROR;2:GENERAL MESSAGE;3:HELP;^0;2^Q
64 ;;^DD(.84,1,3)
65 ;;=Enter code that reflects how this dialogue is used when talking to the users.
66 ;;^DD(.84,1,21,0)
67 ;;=^^2^2^2940523^
68 ;;^DD(.84,1,21,1,0)
69 ;;=This code is used to group the entries in the FileMan DIALOG file,
70 ;;^DD(.84,1,21,2,0)
71 ;;=according to how they are used when interacting with the user.
72 ;;^DD(.84,1,23,0)
73 ;;=^^3^3^2940523^
74 ;;^DD(.84,1,23,1,0)
75 ;;=This field is used to tell the DIALOG routines what array to use in
76 ;;^DD(.84,1,23,2,0)
77 ;;=returning the dialogue. It is also used for grouping the dialogue for
78 ;;^DD(.84,1,23,3,0)
79 ;;=reporting purposes.
80 ;;^DD(.84,1,"DT")
81 ;;=2940523
82 ;;^DD(.84,1.2,0)
83 ;;=PACKAGE^RP9.4'^DIC(9.4,^0;4^Q
84 ;;^DD(.84,1.2,1,0)
85 ;;=^.1
86 ;;^DD(.84,1.2,1,1,0)
87 ;;=.84^C
88 ;;^DD(.84,1.2,1,1,1)
89 ;;=S ^DI(.84,"C",$E(X,1,30),DA)=""
90 ;;^DD(.84,1.2,1,1,2)
91 ;;=K ^DI(.84,"C",$E(X,1,30),DA)
92 ;;^DD(.84,1.2,1,1,"%D",0)
93 ;;=^^3^3^2940623^
94 ;;^DD(.84,1.2,1,1,"%D",1,0)
95 ;;=Cross-reference on Package file. Used for identifying DIALOG entries by
96 ;;^DD(.84,1.2,1,1,"%D",2,0)
97 ;;=the package that owns the entry, and for populating the BUILD file during
98 ;;^DD(.84,1.2,1,1,"%D",3,0)
99 ;;=package distribution.
100 ;;^DD(.84,1.2,1,1,"DT")
101 ;;=2940623
102 ;;^DD(.84,1.2,3)
103 ;;=Enter the name of the Package that owns and distributes this entry.
104 ;;^DD(.84,1.2,21,0)
105 ;;=^^3^3^2940526^
106 ;;^DD(.84,1.2,21,1,0)
107 ;;=This is a pointer to the Package file. Each entry in this file belongs
108 ;;^DD(.84,1.2,21,2,0)
109 ;;=to, and is distributed by, a certain package. The Package field should be
110 ;;^DD(.84,1.2,21,3,0)
111 ;;=filled in for each entry on this file.
112 ;;^DD(.84,1.2,"DT")
113 ;;=2940623
114 ;;^DD(.84,1.3,0)
115 ;;=SHORT DESCRIPTION^F^^0;5^K:$L(X)>42!($L(X)<1) X
116 ;;^DD(.84,1.3,1,0)
117 ;;=^.1
118 ;;^DD(.84,1.3,1,1,0)
119 ;;=.84^D
120 ;;^DD(.84,1.3,1,1,1)
121 ;;=S ^DI(.84,"D",$E(X,1,30),DA)=""
122 ;;^DD(.84,1.3,1,1,2)
123 ;;=K ^DI(.84,"D",$E(X,1,30),DA)
124 ;;^DD(.84,1.3,1,1,"DT")
125 ;;=2960426
126 ;;^DD(.84,1.3,3)
127 ;;=Description used to identify entry on lookup. Answer must be 1-42 characters in length.
128 ;;^DD(.84,1.3,21,0)
129 ;;=^^2^2^2960426^
130 ;;^DD(.84,1.3,21,1,0)
131 ;;=Short description is used to identify an entry on lookup. The "WRITE"
132 ;;^DD(.84,1.3,21,2,0)
133 ;;=identifier will display this description if it is not null.
134 ;;^DD(.84,1.3,"DT")
135 ;;=2960426
136 ;;^DD(.84,2,0)
137 ;;=DESCRIPTION^.842^^1;0
138 ;;^DD(.84,2,21,0)
139 ;;=^^1^1^2930824^^
140 ;;^DD(.84,2,21,1,0)
141 ;;= Used for internal documentation purposes.
142 ;;^DD(.84,3,0)
143 ;;=INTERNAL PARAMETERS NEEDED^S^y:YES;^0;3^Q
144 ;;^DD(.84,3,3)
145 ;;=
146 ;;^DD(.84,3,21,0)
147 ;;=^^6^6^2931105^
148 ;;^DD(.84,3,21,1,0)
149 ;;= Some dialogue is built by inserting variable text (internal parameters)
150 ;;^DD(.84,3,21,2,0)
151 ;;=into windows in the word-processing TEXT field. The insertable text might
152 ;;^DD(.84,3,21,3,0)
153 ;;=be, for example, File or Field names. This field should be set to YES if
154 ;;^DD(.84,3,21,4,0)
155 ;;=any internal parameters need to be inserted into the TEXT. If the field
156 ;;^DD(.84,3,21,5,0)
157 ;;=is not set to YES, the DIALOG routine will not go through the part of the
158 ;;^DD(.84,3,21,6,0)
159 ;;=code that stuffs the internal parameters into the text.
160 ;;^DD(.84,3,"DT")
161 ;;=2931105
162 ;;^DD(.84,4,0)
163 ;;=TEXT^.844^^2;0
164 ;;^DD(.84,4,21,0)
165 ;;=^^7^7^2941122^
166 ;;^DD(.84,4,21,1,0)
167 ;;=Actual text of the message. If parameters (variable pieces of text) are
168 ;;^DD(.84,4,21,2,0)
169 ;;=to be inserted into the dialogue when the message is built, the parameter
170 ;;^DD(.84,4,21,3,0)
171 ;;=will appear as a 'window' in this TEXT field, surrounded by vertical bars.
172 ;;^DD(.84,4,21,4,0)
173 ;;=The data within the 'window' will represent a subscript of the input
174 ;;^DD(.84,4,21,5,0)
175 ;;=parameter list that is passed to BLD^DIALOG or $$EZBLD^DIALOG when
176 ;;^DD(.84,4,21,6,0)
177 ;;=building the message. This same subscript should be used as the .01 of the
178 ;;^DD(.84,4,21,7,0)
179 ;;=PARAMETER field in this file to document the parameter.
180 ;;^DD(.84,5,0)
181 ;;=PARAMETER^.845^^3;0
182 ;;^DD(.84,6,0)
183 ;;=POST MESSAGE ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
184 ;;^DD(.84,6,3)
185 ;;=This is Standard MUMPS code. This code will be executed whenever this message is retrieved through a call to BLD^DIALOG or $$EZBLD^DIALOG.
186 ;;^DD(.84,6,9)
187 ;;=@
188 ;;^DD(.84,6,21,0)
189 ;;=^^6^6^2941122^
190 ;;^DD(.84,6,21,1,0)
191 ;;=If some special action should be taken whenever this message is built,
192 ;;^DD(.84,6,21,2,0)
193 ;;=MUMPS code can be entered here. This code will be executed by the
194 ;;^DD(.84,6,21,3,0)
195 ;;=BLD^DIALOG or $$EZBLD^DIALOG routines, immediately after the message text
196 ;;^DD(.84,6,21,4,0)
197 ;;=has been built in the output array. For example, the code could set a
Note: See TracBrowser for help on using the repository browser.