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