Annotation of freem_fileman/DINIT0F7.m, revision 1.1.1.1
1.1 snw 1: DINIT0F7 ;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="" ^DINIT0F8 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.404,.404034,40,9,3)
8: ;;=!M
9: ;;^DIST(.404,.404034,40,9,3.1)
10: ;;=S Y=$G(DDGFCC0)
11: ;;^DIST(.404,.404034,40,9,20)
12: ;;=DD^^.4044,5.1
13: ;;^DIST(.404,.404034,40,9,23)
14: ;;=S DDGFCC=X
15: ;;^DIST(.404,.404034,40,10,0)
16: ;;=7^DATA COORDINATE^2
17: ;;^DIST(.404,.404034,40,10,2)
18: ;;=9,23^7^9,6
19: ;;^DIST(.404,.404034,40,10,3)
20: ;;=!M
21: ;;^DIST(.404,.404034,40,10,3.1)
22: ;;=S Y=$G(DDGFDC0)
23: ;;^DIST(.404,.404034,40,10,4)
24: ;;=1
25: ;;^DIST(.404,.404034,40,10,20)
26: ;;=DD^^.4044,4.1
27: ;;^DIST(.404,.404034,40,10,23)
28: ;;=S DDGFDC=X
29: ;;^DIST(.404,.404041,0)
30: ;;=DDGF FIELD FORM ONLY^.4044
31: ;;^DIST(.404,.404041,40,0)
32: ;;=^.4044I^17^14
33: ;;^DIST(.404,.404041,40,1,0)
34: ;;=1^ Form Only Field Properties ^1
35: ;;^DIST(.404,.404041,40,1,2)
36: ;;=^^1,25
37: ;;^DIST(.404,.404041,40,2,0)
38: ;;=2^FIELD ORDER^3
39: ;;^DIST(.404,.404041,40,2,1)
40: ;;=.01
41: ;;^DIST(.404,.404041,40,2,2)
42: ;;=3,26^4^3,13
43: ;;^DIST(.404,.404041,40,5,0)
44: ;;=8^DEFAULT^3
45: ;;^DIST(.404,.404041,40,5,1)
46: ;;=6
47: ;;^DIST(.404,.404041,40,5,2)
48: ;;=8,26^50^8,17
49: ;;^DIST(.404,.404041,40,5,13)
50: ;;=D:X'="!M" PUT^DDSVAL(.4044,.DA,6.01,"")
51: ;;^DIST(.404,.404041,40,7,0)
52: ;;=11^BRANCHING LOGIC^3
53: ;;^DIST(.404,.404041,40,7,1)
54: ;;=10
55: ;;^DIST(.404,.404041,40,7,2)
56: ;;=12,26^50^12,9
57: ;;^DIST(.404,.404041,40,8,0)
58: ;;=12^PRE ACTION^3
59: ;;^DIST(.404,.404041,40,8,1)
60: ;;=11
61: ;;^DIST(.404,.404041,40,8,2)
62: ;;=13,26^50^13,14
63: ;;^DIST(.404,.404041,40,9,0)
64: ;;=13^POST ACTION^3
65: ;;^DIST(.404,.404041,40,9,1)
66: ;;=12
67: ;;^DIST(.404,.404041,40,9,2)
68: ;;=14,26^50^14,13
69: ;;^DIST(.404,.404041,40,10,0)
70: ;;=14^POST ACTION ON CHANGE^3
71: ;;^DIST(.404,.404041,40,10,1)
72: ;;=13
73: ;;^DIST(.404,.404041,40,10,2)
74: ;;=15,26^50^15,3
75: ;;^DIST(.404,.404041,40,11,0)
76: ;;=9^EXECUTABLE CAPTION^3
77: ;;^DIST(.404,.404041,40,11,1)
78: ;;=1.1
79: ;;^DIST(.404,.404041,40,11,2)
80: ;;=9,26^50^9,6
81: ;;^DIST(.404,.404041,40,11,13)
82: ;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
83: ;;^DIST(.404,.404041,40,12,0)
84: ;;=10^EXECUTABLE DEFAULT^3
85: ;;^DIST(.404,.404041,40,12,1)
86: ;;=6.01
87: ;;^DIST(.404,.404041,40,12,2)
88: ;;=10,26^50^10,6
89: ;;^DIST(.404,.404041,40,12,13)
90: ;;=D PUT^DDSVAL(.4044,.DA,6,$S(X="":"",1:"!M"))
91: ;;^DIST(.404,.404041,40,13,0)
92: ;;=3^FORM ONLY FIELD PARAMETERS...^2
93: ;;^DIST(.404,.404041,40,13,2)
94: ;;=3,73^1^3,43^1
95: ;;^DIST(.404,.404041,40,13,7)
96: ;;=^11
97: ;;^DIST(.404,.404041,40,13,20)
98: ;;=F^^0:0
99: ;;^DIST(.404,.404041,40,13,21,0)
100: ;;=^^1^1^2940928^
101: ;;^DIST(.404,.404041,40,13,21,1,0)
102: ;;=Press <RET> to edit the properties of this form-only field
103: ;;^DIST(.404,.404041,40,14,0)
104: ;;=4^OTHER PARAMETERS...^2
105: ;;^DIST(.404,.404041,40,14,2)
106: ;;=4,26^1^4,6^1
107: ;;^DIST(.404,.404041,40,14,7)
108: ;;=^21
109: ;;^DIST(.404,.404041,40,14,20)
110: ;;=F^^0:0
111: ;;^DIST(.404,.404041,40,14,21,0)
112: ;;=^^1^1^2940928^
113: ;;^DIST(.404,.404041,40,14,21,1,0)
114: ;;=Press <RET> to edit additional properties of this form-only field
115: ;;^DIST(.404,.404041,40,15,0)
116: ;;=7^CAPTION^2
117: ;;^DIST(.404,.404041,40,15,2)
118: ;;=7,26^50^7,17
119: ;;^DIST(.404,.404041,40,15,3)
120: ;;=!M
121: ;;^DIST(.404,.404041,40,15,3.1)
122: ;;=S Y=$G(DDGFCAP0)
123: ;;^DIST(.404,.404041,40,15,13)
124: ;;=D FOCAP^DDGFU
125: ;;^DIST(.404,.404041,40,15,20)
126: ;;=DD^^.4044,1
127: ;;^DIST(.404,.404041,40,15,23)
128: ;;=S DDGFCAP=X
129: ;;^DIST(.404,.404041,40,16,0)
130: ;;=5^SUPPRESS COLON AFTER CAPTION?^2
131: ;;^DIST(.404,.404041,40,16,2)
132: ;;=4,73^3^4,43^1
133: ;;^DIST(.404,.404041,40,16,3)
134: ;;=!M
135: ;;^DIST(.404,.404041,40,16,3.1)
136: ;;=S Y=$G(DDGFSUP0)
137: ;;^DIST(.404,.404041,40,16,20)
138: ;;=DD^^.4044,5.2
139: ;;^DIST(.404,.404041,40,16,23)
140: ;;=S DDGFSUP=X
141: ;;^DIST(.404,.404041,40,17,0)
142: ;;=6^UNIQUE NAME^3
143: ;;^DIST(.404,.404041,40,17,1)
144: ;;=3.1
145: ;;^DIST(.404,.404041,40,17,2)
146: ;;=5,26^50^5,13
147: ;;^DIST(.404,.404042,0)
148: ;;=DDGF FIELD FORM ONLY PARAMS^.4044
149: ;;^DIST(.404,.404042,40,0)
150: ;;=^.4044I^9^8
151: ;;^DIST(.404,.404042,40,1,0)
152: ;;=1^ Other Form Only Field Parameters ^1
153: ;;^DIST(.404,.404042,40,1,2)
154: ;;=^^1,22
155: ;;^DIST(.404,.404042,40,2,0)
156: ;;=2^READ TYPE^3
157: ;;^DIST(.404,.404042,40,2,1)
158: ;;=20.1
159: ;;^DIST(.404,.404042,40,2,2)
160: ;;=3,20^15^3,9
161: ;;^DIST(.404,.404042,40,2,4)
162: ;;=1
163: ;;^DIST(.404,.404042,40,3,0)
164: ;;=3^PARAMETERS^3
165: ;;^DIST(.404,.404042,40,3,1)
166: ;;=20.2
167: ;;^DIST(.404,.404042,40,3,2)
168: ;;=4,20^2^4,8
169: ;;^DIST(.404,.404042,40,4,0)
170: ;;=4^QUALIFIERS^3
171: ;;^DIST(.404,.404042,40,4,1)
172: ;;=20.3
173: ;;^DIST(.404,.404042,40,4,2)
174: ;;=5,20^52^5,8
175: ;;^DIST(.404,.404042,40,5,0)
176: ;;=6^INPUT TRANSFORM^3
177: ;;^DIST(.404,.404042,40,5,1)
178: ;;=22
179: ;;^DIST(.404,.404042,40,5,2)
180: ;;=9,20^52^9,3
181: ;;^DIST(.404,.404042,40,6,0)
182: ;;=5^HELP (WP)^3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F7.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman