Annotation of freem_fileman/DINIT0F6.m, revision 1.1.1.1
1.1 snw 1: DINIT0F6 ;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.404,.404032,40,3,2)
8: ;;=4,23^9^4,6
9: ;;^DIST(.404,.404032,40,7,0)
10: ;;=7^DATA LENGTH^2
11: ;;^DIST(.404,.404032,40,7,2)
12: ;;=7,23^3^7,10
13: ;;^DIST(.404,.404032,40,7,3)
14: ;;=!M
15: ;;^DIST(.404,.404032,40,7,3.1)
16: ;;=S Y=$G(DDGFDL0)
17: ;;^DIST(.404,.404032,40,7,4)
18: ;;=1
19: ;;^DIST(.404,.404032,40,7,20)
20: ;;=DD^^.4044,4.2
21: ;;^DIST(.404,.404032,40,7,23)
22: ;;=S DDGFDL=X
23: ;;^DIST(.404,.404032,40,8,0)
24: ;;=8^CAPTION COORDINATE^2
25: ;;^DIST(.404,.404032,40,8,2)
26: ;;=8,23^7^8,3
27: ;;^DIST(.404,.404032,40,8,3)
28: ;;=!M
29: ;;^DIST(.404,.404032,40,8,3.1)
30: ;;=S Y=$G(DDGFCC0)
31: ;;^DIST(.404,.404032,40,8,20)
32: ;;=DD^^.4044,5.1
33: ;;^DIST(.404,.404032,40,8,23)
34: ;;=S DDGFCC=X
35: ;;^DIST(.404,.404032,40,9,0)
36: ;;=9^DATA COORDINATE^2
37: ;;^DIST(.404,.404032,40,9,2)
38: ;;=9,23^7^9,6
39: ;;^DIST(.404,.404032,40,9,3)
40: ;;=!M
41: ;;^DIST(.404,.404032,40,9,3.1)
42: ;;=S Y=$G(DDGFDC0)
43: ;;^DIST(.404,.404032,40,9,4)
44: ;;=1
45: ;;^DIST(.404,.404032,40,9,20)
46: ;;=DD^^.4044,4.1
47: ;;^DIST(.404,.404032,40,9,23)
48: ;;=S DDGFDC=X
49: ;;^DIST(.404,.404032,40,10,0)
50: ;;=10^DATA VALIDATION^3
51: ;;^DIST(.404,.404032,40,10,1)
52: ;;=14
53: ;;^DIST(.404,.404032,40,10,2)
54: ;;=11,23^49^11,6
55: ;;^DIST(.404,.404032,40,11,0)
56: ;;=5^RIGHT JUSTIFY^3
57: ;;^DIST(.404,.404032,40,11,1)
58: ;;=6.3
59: ;;^DIST(.404,.404032,40,11,2)
60: ;;=4,52^3^4,37
61: ;;^DIST(.404,.404032,40,12,0)
62: ;;=6^SUB PAGE LINK^3
63: ;;^DIST(.404,.404032,40,12,1)
64: ;;=8
65: ;;^DIST(.404,.404032,40,12,2)
66: ;;=5,23^5^5,8
67: ;;^DIST(.404,.404032,40,13,0)
68: ;;=3^DISPLAY GROUP^3
69: ;;^DIST(.404,.404032,40,13,1)
70: ;;=3
71: ;;^DIST(.404,.404032,40,13,2)
72: ;;=3,52^20^3,37
73: ;;^DIST(.404,.404033,0)
74: ;;=DDGF FIELD DD OTHER MULTIPLE^.4044
75: ;;^DIST(.404,.404033,40,0)
76: ;;=^.4044I^11^8
77: ;;^DIST(.404,.404033,40,1,0)
78: ;;=1^ Other Parameters ^1
79: ;;^DIST(.404,.404033,40,1,2)
80: ;;=^^1,14^1
81: ;;^DIST(.404,.404033,40,2,0)
82: ;;=2^SUB PAGE LINK^3
83: ;;^DIST(.404,.404033,40,2,1)
84: ;;=8
85: ;;^DIST(.404,.404033,40,2,2)
86: ;;=3,23^3^3,8
87: ;;^DIST(.404,.404033,40,3,0)
88: ;;=3^DISALLOW LAYGO^3
89: ;;^DIST(.404,.404033,40,3,1)
90: ;;=6.5
91: ;;^DIST(.404,.404033,40,3,2)
92: ;;=4,23^3^4,7
93: ;;^DIST(.404,.404033,40,7,0)
94: ;;=7^CAPTION COORDINATE^2
95: ;;^DIST(.404,.404033,40,7,2)
96: ;;=10,23^7^10,3
97: ;;^DIST(.404,.404033,40,7,3)
98: ;;=!M
99: ;;^DIST(.404,.404033,40,7,3.1)
100: ;;=S Y=$G(DDGFCC0)
101: ;;^DIST(.404,.404033,40,7,20)
102: ;;=DD^^.4044,5.1
103: ;;^DIST(.404,.404033,40,7,23)
104: ;;=S DDGFCC=X
105: ;;^DIST(.404,.404033,40,8,0)
106: ;;=8^DATA COORDINATE^2
107: ;;^DIST(.404,.404033,40,8,2)
108: ;;=11,23^7^11,6
109: ;;^DIST(.404,.404033,40,8,3)
110: ;;=!M
111: ;;^DIST(.404,.404033,40,8,3.1)
112: ;;=S Y=$G(DDGFDC0)
113: ;;^DIST(.404,.404033,40,8,4)
114: ;;=1
115: ;;^DIST(.404,.404033,40,8,20)
116: ;;=DD^^.4044,4.1
117: ;;^DIST(.404,.404033,40,8,23)
118: ;;=S DDGFDC=X
119: ;;^DIST(.404,.404033,40,9,0)
120: ;;=6^DATA LENGTH^2
121: ;;^DIST(.404,.404033,40,9,2)
122: ;;=9,23^3^9,10
123: ;;^DIST(.404,.404033,40,9,3)
124: ;;=!M
125: ;;^DIST(.404,.404033,40,9,3.1)
126: ;;=S Y=$G(DDGFDL0)
127: ;;^DIST(.404,.404033,40,9,4)
128: ;;=1
129: ;;^DIST(.404,.404033,40,9,20)
130: ;;=DD^^.4044,4.2
131: ;;^DIST(.404,.404033,40,9,23)
132: ;;=S DDGFDL=X
133: ;;^DIST(.404,.404033,40,10,0)
134: ;;=4^RIGHT JUSTIFY^3
135: ;;^DIST(.404,.404033,40,10,1)
136: ;;=6.3
137: ;;^DIST(.404,.404033,40,10,2)
138: ;;=6,23^3^6,8
139: ;;^DIST(.404,.404033,40,11,0)
140: ;;=5^DISPLAY GROUP^3
141: ;;^DIST(.404,.404033,40,11,1)
142: ;;=3
143: ;;^DIST(.404,.404033,40,11,2)
144: ;;=7,23^20^7,8
145: ;;^DIST(.404,.404034,0)
146: ;;=DDGF FIELD DD OTHER WP^.4044
147: ;;^DIST(.404,.404034,40,0)
148: ;;=^.4044I^10^7
149: ;;^DIST(.404,.404034,40,1,0)
150: ;;=1^ Other Parameters ^1
151: ;;^DIST(.404,.404034,40,1,2)
152: ;;=^^1,14^1
153: ;;^DIST(.404,.404034,40,2,0)
154: ;;=2^REQUIRED^3
155: ;;^DIST(.404,.404034,40,2,1)
156: ;;=6.1
157: ;;^DIST(.404,.404034,40,2,2)
158: ;;=3,23^3^3,13
159: ;;^DIST(.404,.404034,40,3,0)
160: ;;=3^DISABLE EDITING^3
161: ;;^DIST(.404,.404034,40,3,1)
162: ;;=6.4
163: ;;^DIST(.404,.404034,40,3,2)
164: ;;=4,23^3^4,6
165: ;;^DIST(.404,.404034,40,3,14)
166: ;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable. To make the field uneditable, enter 'YES'.") S DDSERROR=1
167: ;;^DIST(.404,.404034,40,7,0)
168: ;;=4^DISPLAY GROUP^3
169: ;;^DIST(.404,.404034,40,7,1)
170: ;;=3
171: ;;^DIST(.404,.404034,40,7,2)
172: ;;=5,23^20^5,8
173: ;;^DIST(.404,.404034,40,8,0)
174: ;;=5^DATA LENGTH^2
175: ;;^DIST(.404,.404034,40,8,2)
176: ;;=7,23^3^7,10
177: ;;^DIST(.404,.404034,40,8,3)
178: ;;=!M
179: ;;^DIST(.404,.404034,40,8,3.1)
180: ;;=S Y=$G(DDGFDL0)
181: ;;^DIST(.404,.404034,40,8,4)
182: ;;=1
183: ;;^DIST(.404,.404034,40,8,20)
184: ;;=DD^^.4044,4.2
185: ;;^DIST(.404,.404034,40,8,23)
186: ;;=S DDGFDL=X
187: ;;^DIST(.404,.404034,40,9,0)
188: ;;=6^CAPTION COORDINATE^2
189: ;;^DIST(.404,.404034,40,9,2)
190: ;;=8,23^7^8,3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F6.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman