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

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

initial load of WorldVistAEHR

File size: 6.7 KB
Line 
1DINIT296 ;SFISC/MKO-FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
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
5 G ^DINIT297
6Q Q
7 ;;^DD(.4044,1,3)
8 ;;=Answer must be 1-80 characters in length.
9 ;;^DD(.4044,1,21,0)
10 ;;=^^6^6^2940907^
11 ;;^DD(.4044,1,21,1,0)
12 ;;=A caption is uneditable text that appears on the screen. Captions of
13 ;;^DD(.4044,1,21,2,0)
14 ;;=data dictionary, form-only, and computed fields serve to identify for
15 ;;^DD(.4044,1,21,3,0)
16 ;;=the user the data portion of the fields. Captions for these types of
17 ;;^DD(.4044,1,21,4,0)
18 ;;=fields are automatically followed by a colon, unless the Suppress Colon
19 ;;^DD(.4044,1,21,5,0)
20 ;;=After Caption property is set to 'YES.' A field with an Executable
21 ;;^DD(.4044,1,21,6,0)
22 ;;=Caption must have '!M' as a Caption.
23 ;;^DD(.4044,1,"DT")
24 ;;=2940629
25 ;;^DD(.4044,1.1,0)
26 ;;=EXECUTABLE CAPTION^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
27 ;;^DD(.4044,1.1,3)
28 ;;=Enter standard MUMPS code that sets the variable Y.
29 ;;^DD(.4044,1.1,9)
30 ;;=@
31 ;;^DD(.4044,1.1,21,0)
32 ;;=^^3^3^2940907^^
33 ;;^DD(.4044,1.1,21,1,0)
34 ;;=Enter MUMPS code that sets the variable Y equal to the caption you
35 ;;^DD(.4044,1.1,21,2,0)
36 ;;=want displayed. This code is executed and the caption evaluated whenever
37 ;;^DD(.4044,1.1,21,3,0)
38 ;;=the page on which this caption is located is painted.
39 ;;^DD(.4044,1.1,"DT")
40 ;;=2920218
41 ;;^DD(.4044,2,0)
42 ;;=FIELD TYPE^*S^0:UNKNOWN;1:CAPTION ONLY;2:FORM ONLY;3:DATA DICTIONARY FIELD;4:COMPUTED;^0;3^Q
43 ;;^DD(.4044,2,1,0)
44 ;;=^.1^^0
45 ;;^DD(.4044,2,3)
46 ;;=
47 ;;^DD(.4044,2,12)
48 ;;=Enter the field type.
49 ;;^DD(.4044,2,12.1)
50 ;;=S DIC("S")="I Y"
51 ;;^DD(.4044,2,21,0)
52 ;;=^^11^11^2940907^
53 ;;^DD(.4044,2,21,1,0)
54 ;;=Enter the field type.
55 ;;^DD(.4044,2,21,2,0)
56 ;;=
57 ;;^DD(.4044,2,21,3,0)
58 ;;=CAPTION ONLY fields are for displaying text on the screen.
59 ;;^DD(.4044,2,21,4,0)
60 ;;=
61 ;;^DD(.4044,2,21,5,0)
62 ;;=FORM ONLY fields are fields defined only on the form and are not tied to a
63 ;;^DD(.4044,2,21,6,0)
64 ;;=field in a FileMan file.
65 ;;^DD(.4044,2,21,7,0)
66 ;;=
67 ;;^DD(.4044,2,21,8,0)
68 ;;=DATA DICTIONARY fields are fields from a FileMan file.
69 ;;^DD(.4044,2,21,9,0)
70 ;;=
71 ;;^DD(.4044,2,21,10,0)
72 ;;=COMPUTED fields, like form-only fields, are fields that are defined only
73 ;;^DD(.4044,2,21,11,0)
74 ;;=on the form. Associated with a COMPUTED field is a computed expression.
75 ;;^DD(.4044,2,"DT")
76 ;;=2940907
77 ;;^DD(.4044,3,0)
78 ;;=DISPLAY GROUP^F^^0;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
79 ;;^DD(.4044,3,3)
80 ;;=Enter text, 1-20 characters in length, which represents the group to which this field belongs.
81 ;;^DD(.4044,3,21,0)
82 ;;=^^10^10^2940907^
83 ;;^DD(.4044,3,21,1,0)
84 ;;=Display group helps users resolve ambiguity when they attempt to ^-jump to
85 ;;^DD(.4044,3,21,2,0)
86 ;;=a field that has a caption that is not unique. If more than one field has
87 ;;^DD(.4044,3,21,3,0)
88 ;;=the same caption, when users try to ^-jump to a field with that caption,
89 ;;^DD(.4044,3,21,4,0)
90 ;;=they are presented with a list of fields to choose from. The text in the
91 ;;^DD(.4044,3,21,5,0)
92 ;;=Display Group property is displayed in parentheses after the caption to
93 ;;^DD(.4044,3,21,6,0)
94 ;;=help the user identify the correct field.
95 ;;^DD(.4044,3,21,7,0)
96 ;;=
97 ;;^DD(.4044,3,21,8,0)
98 ;;=For example, if two fields have the caption 'NAME:', but one of those
99 ;;^DD(.4044,3,21,9,0)
100 ;;=fields has a Display Group 'Next of Kin', when users enter ^NAME, they
101 ;;^DD(.4044,3,21,10,0)
102 ;;=will be asked to choose between 'NAME' and 'NAME (Next of Kin)'.
103 ;;^DD(.4044,3.1,0)
104 ;;=UNIQUE NAME^FX^^0;5^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!$D(^DIST(.404,DA(1),40,"D",X)) X
105 ;;^DD(.4044,3.1,1,0)
106 ;;=^.1
107 ;;^DD(.4044,3.1,1,1,0)
108 ;;=.4044^D^MUMPS
109 ;;^DD(.4044,3.1,1,1,1)
110 ;;=S ^DIST(.404,DA(1),40,"D",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
111 ;;^DD(.4044,3.1,1,1,2)
112 ;;=K ^DIST(.404,DA(1),40,"D",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
113 ;;^DD(.4044,3.1,1,1,3)
114 ;;=Programmer only
115 ;;^DD(.4044,3.1,1,1,"%D",0)
116 ;;=^^1^1^2930816^
117 ;;^DD(.4044,3.1,1,1,"%D",1,0)
118 ;;=This is a regular index of the Unique Name converted to uppercase.
119 ;;^DD(.4044,3.1,1,1,"DT")
120 ;;=2930816
121 ;;^DD(.4044,3.1,3)
122 ;;=Answer must be 1-50 characters in length.
123 ;;^DD(.4044,3.1,21,0)
124 ;;=^^5^5^2940907^
125 ;;^DD(.4044,3.1,21,1,0)
126 ;;=This is the unique name of the element on the block. No two elements on
127 ;;^DD(.4044,3.1,21,2,0)
128 ;;=the block can have the same Unique Name. Unique Names are never seen by
129 ;;^DD(.4044,3.1,21,3,0)
130 ;;=the user. You can refer to an element on a block by its Unique Name in
131 ;;^DD(.4044,3.1,21,4,0)
132 ;;=some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and
133 ;;^DD(.4044,3.1,21,5,0)
134 ;;=in the computed expressions of computed fields.
135 ;;^DD(.4044,3.1,"DT")
136 ;;=2930816
137 ;;^DD(.4044,4,0)
138 ;;=FIELD^FX^^1;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X),$D(DDGFDD) D IXF^DDS0
139 ;;^DD(.4044,4,1,0)
140 ;;=^.1^^0
141 ;;^DD(.4044,4,3)
142 ;;=Answer must be 1-245 characters in length.
143 ;;^DD(.4044,4,4)
144 ;;=I $D(DDGFDD) N D0,DA,DIC,D,DZ S DIC="^DD("_DDGFDD_",",DIC(0)="",D="B" S:$G(X)="??" DZ=X D DQ^DICQ
145 ;;^DD(.4044,4,21,0)
146 ;;=^^2^2^2940907^
147 ;;^DD(.4044,4,21,1,0)
148 ;;=Enter the number or name of a field in the file defined by the data
149 ;;^DD(.4044,4,21,2,0)
150 ;;=dictionary number for this block.
151 ;;^DD(.4044,4,"DT")
152 ;;=2940823
153 ;;^DD(.4044,4.1,0)
154 ;;=DATA COORDINATE^F^^2;1^K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
155 ;;^DD(.4044,4.1,3)
156 ;;=Enter the field coordinate relative to the block. Answer must be two positive integers separated by a comma (,), as follows: 'Row,Column'.
157 ;;^DD(.4044,4.1,21,0)
158 ;;=^^2^2^2940907^
159 ;;^DD(.4044,4.1,21,1,0)
160 ;;=Data coordinate is relative to the position of the block. The top left
161 ;;^DD(.4044,4.1,21,2,0)
162 ;;=corner of the block has a coordinate of 1,1.
163 ;;^DD(.4044,4.1,"DT")
164 ;;=2940908
165 ;;^DD(.4044,4.2,0)
166 ;;=DATA LENGTH^NJ3,0^^2;2^K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X
167 ;;^DD(.4044,4.2,3)
168 ;;=Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be displayed on the screen.
169 ;;^DD(.4044,4.2,21,0)
170 ;;=^^4^4^2940907^^
171 ;;^DD(.4044,4.2,21,1,0)
172 ;;=The data length defines the size of the editing window. The editing
173 ;;^DD(.4044,4.2,21,2,0)
174 ;;=window is a single line and must not extend into or beyond the rightmost
175 ;;^DD(.4044,4.2,21,3,0)
176 ;;=column on the screen. On an 80 column screen, the editing window
177 ;;^DD(.4044,4.2,21,4,0)
178 ;;=must not extend beyond column 79.
179 ;;^DD(.4044,5.1,0)
180 ;;=CAPTION COORDINATE^F^^2;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
Note: See TracBrowser for help on using the repository browser.