Annotation of freem_fileman/DINIT0F8.m, revision 1.1.1.1
1.1 snw 1: DINIT0F8 ;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;11/23/94 1:24 PM
2: ;;21.0;VA FileMan;;Dec 28, 1994
3: ;Per VHA Directive 10-93-142, this routine should not be modified.
4: F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F9 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.404,.404042,40,6,1)
8: ;;=21
9: ;;^DIST(.404,.404042,40,6,2)
10: ;;=7,20^1^7,9
11: ;;^DIST(.404,.404042,40,8,0)
12: ;;=7^SCREEN^3
13: ;;^DIST(.404,.404042,40,8,1)
14: ;;=24
15: ;;^DIST(.404,.404042,40,8,2)
16: ;;=10,20^52^10,12
17: ;;^DIST(.404,.404042,40,9,0)
18: ;;=8^SAVE CODE^3
19: ;;^DIST(.404,.404042,40,9,1)
20: ;;=23
21: ;;^DIST(.404,.404042,40,9,2)
22: ;;=11,20^52^11,9
23: ;;^DIST(.404,.404051,0)
24: ;;=DDGF FIELD COMPUTED^.4044
25: ;;^DIST(.404,.404051,40,0)
26: ;;=^.4044I^8^8
27: ;;^DIST(.404,.404051,40,1,0)
28: ;;=1^ Computed Field Properties ^1
29: ;;^DIST(.404,.404051,40,1,2)
30: ;;=^^1,26
31: ;;^DIST(.404,.404051,40,2,0)
32: ;;=2^FIELD ORDER^3
33: ;;^DIST(.404,.404051,40,2,1)
34: ;;=.01
35: ;;^DIST(.404,.404051,40,2,2)
36: ;;=3,24^4^3,11
37: ;;^DIST(.404,.404051,40,3,0)
38: ;;=3^OTHER PARAMETERS...^2
39: ;;^DIST(.404,.404051,40,3,2)
40: ;;=4,24^1^4,4^1
41: ;;^DIST(.404,.404051,40,3,7)
42: ;;=^11
43: ;;^DIST(.404,.404051,40,3,20)
44: ;;=F^^1:1
45: ;;^DIST(.404,.404051,40,3,21,0)
46: ;;=^^1^1^2930916^
47: ;;^DIST(.404,.404051,40,3,21,1,0)
48: ;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
49: ;;^DIST(.404,.404051,40,4,0)
50: ;;=4^SUPPRESS COLON AFTER CAPTION?^2
51: ;;^DIST(.404,.404051,40,4,2)
52: ;;=4,71^3^4,41^1
53: ;;^DIST(.404,.404051,40,4,3)
54: ;;=!M
55: ;;^DIST(.404,.404051,40,4,3.1)
56: ;;=S Y=DDGFSUP0
57: ;;^DIST(.404,.404051,40,4,20)
58: ;;=DD^^.4044,5.2
59: ;;^DIST(.404,.404051,40,4,23)
60: ;;=S DDGFSUP=X
61: ;;^DIST(.404,.404051,40,5,0)
62: ;;=5^UNIQUE NAME^3
63: ;;^DIST(.404,.404051,40,5,1)
64: ;;=3.1
65: ;;^DIST(.404,.404051,40,5,2)
66: ;;=5,24^50^5,11
67: ;;^DIST(.404,.404051,40,6,0)
68: ;;=6^CAPTION^2
69: ;;^DIST(.404,.404051,40,6,2)
70: ;;=7,24^50^7,15
71: ;;^DIST(.404,.404051,40,6,3)
72: ;;=!M
73: ;;^DIST(.404,.404051,40,6,3.1)
74: ;;=S Y=DDGFCAP0
75: ;;^DIST(.404,.404051,40,6,13)
76: ;;=D COMPCAP^DDGFU
77: ;;^DIST(.404,.404051,40,6,20)
78: ;;=DD^^.4044,1
79: ;;^DIST(.404,.404051,40,6,23)
80: ;;=S DDGFCAP=X
81: ;;^DIST(.404,.404051,40,7,0)
82: ;;=7^EXECUTABLE CAPTION^3
83: ;;^DIST(.404,.404051,40,7,1)
84: ;;=1.1
85: ;;^DIST(.404,.404051,40,7,2)
86: ;;=8,24^50^8,4
87: ;;^DIST(.404,.404051,40,7,13)
88: ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
89: ;;^DIST(.404,.404051,40,8,0)
90: ;;=8^COMPUTED EXPRESSION^3
91: ;;^DIST(.404,.404051,40,8,1)
92: ;;=30
93: ;;^DIST(.404,.404051,40,8,2)
94: ;;=10,24^50^10,3
95: ;;^DIST(.404,.404051,40,8,4)
96: ;;=1
97: ;;^DIST(.404,.404052,0)
98: ;;=DDGF FIELD COMPUTED OTHER^.4044
99: ;;^DIST(.404,.404052,40,0)
100: ;;=^.4044I^8^5
101: ;;^DIST(.404,.404052,40,1,0)
102: ;;=1^ Other Computed Field Properties ^1
103: ;;^DIST(.404,.404052,40,1,2)
104: ;;=^^1,6
105: ;;^DIST(.404,.404052,40,5,0)
106: ;;=3^DATA LENGTH^2
107: ;;^DIST(.404,.404052,40,5,2)
108: ;;=5,25^3^5,12
109: ;;^DIST(.404,.404052,40,5,3)
110: ;;=!M
111: ;;^DIST(.404,.404052,40,5,3.1)
112: ;;=S Y=$G(DDGFDL0)
113: ;;^DIST(.404,.404052,40,5,20)
114: ;;=DD^^.4044,4.2
115: ;;^DIST(.404,.404052,40,5,23)
116: ;;=S DDGFDL=X
117: ;;^DIST(.404,.404052,40,6,0)
118: ;;=4^CAPTION COORDINATE^2
119: ;;^DIST(.404,.404052,40,6,2)
120: ;;=6,25^7^6,5
121: ;;^DIST(.404,.404052,40,6,3)
122: ;;=!M
123: ;;^DIST(.404,.404052,40,6,3.1)
124: ;;=S Y=$G(DDGFCC0)
125: ;;^DIST(.404,.404052,40,6,20)
126: ;;=DD^^.4044,5.1
127: ;;^DIST(.404,.404052,40,6,23)
128: ;;=S DDGFCC=X
129: ;;^DIST(.404,.404052,40,7,0)
130: ;;=5^DATA COORDINATE^2
131: ;;^DIST(.404,.404052,40,7,2)
132: ;;=7,25^7^7,8
133: ;;^DIST(.404,.404052,40,7,3)
134: ;;=!M
135: ;;^DIST(.404,.404052,40,7,3.1)
136: ;;=S Y=$G(DDGFDC0)
137: ;;^DIST(.404,.404052,40,7,20)
138: ;;=DD^^.4044,4.1
139: ;;^DIST(.404,.404052,40,7,23)
140: ;;=S DDGFDC=X
141: ;;^DIST(.404,.404052,40,8,0)
142: ;;=2^RIGHT JUSTIFY^3
143: ;;^DIST(.404,.404052,40,8,1)
144: ;;=6.3
145: ;;^DIST(.404,.404052,40,8,2)
146: ;;=3,25^3^3,10
147: ;;^DIST(.404,.404061,0)
148: ;;=DDGF BLOCK ADD
149: ;;^DIST(.404,.404061,40,0)
150: ;;=^.4044I^1^1
151: ;;^DIST(.404,.404061,40,1,0)
152: ;;=1^Select NEW BLOCK NAME^2
153: ;;^DIST(.404,.404061,40,1,2)
154: ;;=3,26^30^3,3
155: ;;^DIST(.404,.404061,40,1,12)
156: ;;=S DDACT="EX"
157: ;;^DIST(.404,.404061,40,1,20)
158: ;;=P^^DIST(.404,:QEALMZF
159: ;;^DIST(.404,.404061,40,1,23)
160: ;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
161: ;;^DIST(.404,.404061,40,1,24)
162: ;;=S DIR("S")="I Y'<1"
163: ;;^DIST(.404,.404062,0)
164: ;;=DDGF BLOCK ADD NEW
165: ;;^DIST(.404,.404062,40,0)
166: ;;=^.4044I^2^2
167: ;;^DIST(.404,.404062,40,1,0)
168: ;;=1^!M^1
169: ;;^DIST(.404,.404062,40,1,.1)
170: ;;=S Y="Are you adding "_DDGFBNAM
171: ;;^DIST(.404,.404062,40,1,2)
172: ;;=^^3,3
173: ;;^DIST(.404,.404062,40,2,0)
174: ;;=2^as a new block on this page?^2
175: ;;^DIST(.404,.404062,40,2,2)
176: ;;=4,32^3^4,3^1
177: ;;^DIST(.404,.404062,40,2,12)
178: ;;=S DDACT="EX"
179: ;;^DIST(.404,.404062,40,2,20)
180: ;;=Y
181: ;;^DIST(.404,.404062,40,2,23)
182: ;;=S DDGFANS=X
183: ;;^DIST(.404,.404063,0)
184: ;;=DDGF BLOCK ADD DUPLICATE
185: ;;^DIST(.404,.404063,40,0)
186: ;;=^.4044I^3^3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F8.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman