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

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

initial load of WorldVistAEHR

File size: 6.6 KB
RevLine 
[613]1DINIT295 ;SFISC/MKO-FORM AND BLOCK FILES ;3:33 PM 20 Apr 1999
2 ;;22.0;VA FileMan;**8**;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
5 G ^DINIT296
6Q Q
7 ;;^DIC(.404,0,"GL")
8 ;;=^DIST(.404,
9 ;;^DIC("B","BLOCK",.404)
10 ;;=
11 ;;^DIC(.404,"%D",0)
12 ;;=^^2^2^2940914^
13 ;;^DIC(.404,"%D",1,0)
14 ;;=This file stores ScreenMan blocks, which are used to build forms in the
15 ;;^DIC(.404,"%D",2,0)
16 ;;=Form file.
17 ;;^DD(.404,0)
18 ;;=FIELD^^40^7
19 ;;^DD(.404,0,"DT")
20 ;;=2940625
21 ;;^DD(.404,0,"IX","B",.404,.01)
22 ;;=
23 ;;^DD(.404,0,"NM","BLOCK")
24 ;;=
25 ;;^DD(.404,0,"PT",.4031,1)
26 ;;=
27 ;;^DD(.404,0,"PT",.4032,.01)
28 ;;=
29 ;;^DD(.404,.01,0)
30 ;;=NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X=+$P(X,"E")) X I $D(X),$S($D(DDS)&$G(DA):$P($G(^DIST(.404,DA,0)),U)'=X,1:1),$D(^DIST(.404,"B",X)) K X
31 ;;^DD(.404,.01,1,0)
32 ;;=^.1
33 ;;^DD(.404,.01,1,1,0)
34 ;;=.404^B
35 ;;^DD(.404,.01,1,1,1)
36 ;;=S ^DIST(.404,"B",$E(X,1,30),DA)=""
37 ;;^DD(.404,.01,1,1,2)
38 ;;=K ^DIST(.404,"B",$E(X,1,30),DA)
39 ;;^DD(.404,.01,1,1,"DT")
40 ;;=2900912
41 ;;^DD(.404,.01,3)
42 ;;=Answer must be 3-30 characters in length.
43 ;;^DD(.404,.01,21,0)
44 ;;=^^2^2^2940907^^
45 ;;^DD(.404,.01,21,1,0)
46 ;;=Enter the name of the block, 3-30 characters in length. The block name
47 ;;^DD(.404,.01,21,2,0)
48 ;;=must be unique and cannot be numeric or start with punctuation.
49 ;;^DD(.404,.01,"DEL",1,0)
50 ;;=I '$D(DDSDEL) D EN^DDIOL($C(7)_"You must use the FileMan options to delete blocks.") I 1
51 ;;^DD(.404,.01,"DT")
52 ;;=2931020
53 ;;^DD(.404,1,0)
54 ;;=DATA DICTIONARY NUMBER^FX^^0;2^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DD(X)) X
55 ;;^DD(.404,1,3)
56 ;;=Answer must be 1-16 characters in length.
57 ;;^DD(.404,1,21,0)
58 ;;=^^3^3^2940907^
59 ;;^DD(.404,1,21,1,0)
60 ;;=Enter the data dictionary number of the file or subfile that contains the
61 ;;^DD(.404,1,21,2,0)
62 ;;=fields that are placed on this block. A block can contain fields from
63 ;;^DD(.404,1,21,3,0)
64 ;;=only one file or subfile.
65 ;;^DD(.404,1,"DT")
66 ;;=2930406
67 ;;^DD(.404,2,0)
68 ;;=DISABLE NAVIGATION^S^0:NO;1:YES;2:OUTOK;^0;3^Q
69 ;;^DD(.404,2,3)
70 ;;=
71 ;;^DD(.404,2,21,0)
72 ;;=^^8^8^2940907^^
73 ;;^DD(.404,2,21,1,0)
74 ;;=Enter 'YES' if navigation within the block should be disabled. When
75 ;;^DD(.404,2,21,2,0)
76 ;;=navigation is disabled, user cannot ^-jump to other fields, they cannot
77 ;;^DD(.404,2,21,3,0)
78 ;;=^-jump to the Command Line, and the <Up>, <Down>, <Tab>, and <PF4> keys
79 ;;^DD(.404,2,21,4,0)
80 ;;=traverse the fields in the same order as the <RET> key -- that is, in the
81 ;;^DD(.404,2,21,5,0)
82 ;;=order established by the Field Order property of the fields.
83 ;;^DD(.404,2,21,6,0)
84 ;;=
85 ;;^DD(.404,2,21,7,0)
86 ;;=Enter 'OUTOK' to disable navigation, but allow the user to ^-jump to the
87 ;;^DD(.404,2,21,8,0)
88 ;;=Command Line.
89 ;;^DD(.404,11,0)
90 ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
91 ;;^DD(.404,11,3)
92 ;;=Enter standard MUMPS code that will be executed when the user navigates to the block.
93 ;;^DD(.404,11,9)
94 ;;=@
95 ;;^DD(.404,11,21,0)
96 ;;=^^6^6^2940907^^
97 ;;^DD(.404,11,21,1,0)
98 ;;=This is MUMPS code that is executed when the user navigates to the
99 ;;^DD(.404,11,21,2,0)
100 ;;=block.
101 ;;^DD(.404,11,21,3,0)
102 ;;=
103 ;;^DD(.404,11,21,4,0)
104 ;;=This pre-action is part of the block definition itself, so if this
105 ;;^DD(.404,11,21,5,0)
106 ;;=block is used on another page or another form, the pre-action still
107 ;;^DD(.404,11,21,6,0)
108 ;;=applies.
109 ;;^DD(.404,12,0)
110 ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
111 ;;^DD(.404,12,3)
112 ;;=Enter standard MUMPS that will be executed when the user leaves the block.
113 ;;^DD(.404,12,9)
114 ;;=@
115 ;;^DD(.404,12,21,0)
116 ;;=^^5^5^2940907^^
117 ;;^DD(.404,12,21,1,0)
118 ;;=This is MUMPS code that is executed when the user leaves the block.
119 ;;^DD(.404,12,21,2,0)
120 ;;=
121 ;;^DD(.404,12,21,3,0)
122 ;;=This post-action is part of the block definition itself, so if the
123 ;;^DD(.404,12,21,4,0)
124 ;;=block is used on another page or on another form, the post-action still
125 ;;^DD(.404,12,21,5,0)
126 ;;=applies.
127 ;;^DD(.404,15,0)
128 ;;=DESCRIPTION^.40415^^15;0
129 ;;^DD(.404,40,0)
130 ;;=FIELD^.4044I^^40;0
131 ;;^DD(.404,40,"DT")
132 ;;=2931029
133 ;;^DD(.40415,0)
134 ;;=DESCRIPTION SUB-FIELD^^.01^1
135 ;;^DD(.40415,0,"DT")
136 ;;=2910204
137 ;;^DD(.40415,0,"NM","DESCRIPTION")
138 ;;=
139 ;;^DD(.40415,0,"UP")
140 ;;=.404
141 ;;^DD(.40415,.01,0)
142 ;;=DESCRIPTION^W^^0;1^Q
143 ;;^DD(.40415,.01,3)
144 ;;=
145 ;;^DD(.40415,.01,21,0)
146 ;;=^^1^1^2940908^^^
147 ;;^DD(.40415,.01,21,1,0)
148 ;;=Enter text that describes this block.
149 ;;^DD(.4044,0)
150 ;;=FIELD SUB-FIELD^^30^33
151 ;;^DD(.4044,0,"DT")
152 ;;=2940625
153 ;;^DD(.4044,0,"ID","WRITE")
154 ;;=D EN^DDIOL($S($P(^(0),U,2)?1"Select "1.E:$E($P(^(0),U,2),8,999),1:$S($P(^(0),U,2)="!M":$G(^(.1)),1:$P(^(0),U,2)))_$S($P(^(0),U,4)]"":" ("_$P(^(0),U,4)_")",1:""),"","?9")
155 ;;^DD(.4044,0,"ID","WRITE1")
156 ;;=D EN^DDIOL($S($P($G(^(7)),U,2):" (Sub Page Link defined)",1:"")_$S($G(^(1)):" (Field #"_^(1)_")",1:"")_$S($P(^(0),U,5)]"":" ("_$P(^(0),U,5)_")",1:""),"","?0")
157 ;;^DD(.4044,0,"IX","B",.4044,.01)
158 ;;=
159 ;;^DD(.4044,0,"IX","C",.4044,1)
160 ;;=
161 ;;^DD(.4044,0,"IX","D",.4044,3.1)
162 ;;=
163 ;;^DD(.4044,0,"NM","FIELD")
164 ;;=
165 ;;^DD(.4044,0,"UP")
166 ;;=.404
167 ;;^DD(.4044,.01,0)
168 ;;=FIELD ORDER^MNJ4,1X^^0;1^K:X'=+$P(X,"E")!(X>99.9)!(X<0)!(X?.E1"."2N.N) X I $D(X),$D(^DIST(.404,DA(1),40,"B",X)) K X
169 ;;^DD(.4044,.01,1,0)
170 ;;=^.1
171 ;;^DD(.4044,.01,1,1,0)
172 ;;=.4044^B
173 ;;^DD(.4044,.01,1,1,1)
174 ;;=S ^DIST(.404,DA(1),40,"B",$E(X,1,30),DA)=""
175 ;;^DD(.4044,.01,1,1,2)
176 ;;=K ^DIST(.404,DA(1),40,"B",$E(X,1,30),DA)
177 ;;^DD(.4044,.01,3)
178 ;;=Enter a unique number between 0 and 99.9, inclusive, which represents the order in which the fields will be edited.
179 ;;^DD(.4044,.01,21,0)
180 ;;=^^2^2^2940907^
181 ;;^DD(.4044,.01,21,1,0)
182 ;;=The Field Order number determines the order in which users traverse the
183 ;;^DD(.4044,.01,21,2,0)
184 ;;=fields in the block as they press <RET>.
185 ;;^DD(.4044,1,0)
186 ;;=CAPTION^FX^^0;2^K:$L(X)>80!($L(X)<1) X S:$E($G(X))="!"&($G(X)'="!M") X=$$FUNC^DDSCAP(X)
187 ;;^DD(.4044,1,1,0)
188 ;;=^.1^^-1
189 ;;^DD(.4044,1,1,2,0)
190 ;;=.4044^C^MUMPS
191 ;;^DD(.4044,1,1,2,1)
192 ;;=S:X'="!M" ^DIST(.404,DA(1),40,"C",$TR($E($S(X?1"Select "1.E:$P(X,"Select ",2,99),1:X),1,63),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
193 ;;^DD(.4044,1,1,2,2)
194 ;;=K:X'="!M" ^DIST(.404,DA(1),40,"C",$TR($E($S(X?1"Select "1.E:$P(X,"Select ",2,99),1:X),1,63),"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
195 ;;^DD(.4044,1,1,2,3)
196 ;;=Programmer only
197 ;;^DD(.4044,1,1,2,"%D",0)
198 ;;=^^2^2^2931029^^^^
199 ;;^DD(.4044,1,1,2,"%D",1,0)
200 ;;=This cross referenced is used to allow selection of fields by caption name
201 ;;^DD(.4044,1,1,2,"%D",2,0)
202 ;;=as well as by order number when entering new fields in the block.
203 ;;^DD(.4044,1,1,2,"DT")
204 ;;=2920214
Note: See TracBrowser for help on using the repository browser.