Annotation of freem_fileman/DINIT0F2.m, revision 1.1.1.1
1.1 snw 1: DINIT0F2 ;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="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.404,.403011,0)
8: ;;=DDGF BLOCK EDIT 1^.4032
9: ;;^DIST(.404,.403011,11)
10: ;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
11: ;;^DIST(.404,.403011,40,0)
12: ;;=^.4044I^10^8
13: ;;^DIST(.404,.403011,40,1,0)
14: ;;=1^ Block Properties Stored in FORM File ^1
15: ;;^DIST(.404,.403011,40,1,2)
16: ;;=^^1,20^1
17: ;;^DIST(.404,.403011,40,2,0)
18: ;;=3^BLOCK ORDER^3
19: ;;^DIST(.404,.403011,40,2,1)
20: ;;=1
21: ;;^DIST(.404,.403011,40,2,2)
22: ;;=3,69^4^3,56
23: ;;^DIST(.404,.403011,40,2,4)
24: ;;=1
25: ;;^DIST(.404,.403011,40,3,0)
26: ;;=4^TYPE OF BLOCK^3
27: ;;^DIST(.404,.403011,40,3,1)
28: ;;=3
29: ;;^DIST(.404,.403011,40,3,2)
30: ;;=4,18^7^4,3
31: ;;^DIST(.404,.403011,40,3,4)
32: ;;=1
33: ;;^DIST(.404,.403011,40,3,13)
34: ;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
35: ;;^DIST(.404,.403011,40,5,0)
36: ;;=6^POINTER LINK^3
37: ;;^DIST(.404,.403011,40,5,1)
38: ;;=4
39: ;;^DIST(.404,.403011,40,5,2)
40: ;;=6,18^57^6,4
41: ;;^DIST(.404,.403011,40,6,0)
42: ;;=2^BLOCK NAME^3
43: ;;^DIST(.404,.403011,40,6,1)
44: ;;=.01
45: ;;^DIST(.404,.403011,40,6,2)
46: ;;=3,18^30^3,6
47: ;;^DIST(.404,.403011,40,8,0)
48: ;;=7^PRE ACTION^3
49: ;;^DIST(.404,.403011,40,8,1)
50: ;;=11
51: ;;^DIST(.404,.403011,40,8,2)
52: ;;=7,18^57^7,6
53: ;;^DIST(.404,.403011,40,9,0)
54: ;;=9^POST ACTION^3
55: ;;^DIST(.404,.403011,40,9,1)
56: ;;=12
57: ;;^DIST(.404,.403011,40,9,2)
58: ;;=8,18^57^8,5
59: ;;^DIST(.404,.403011,40,10,0)
60: ;;=5^OTHER PARAMETERS...^2
61: ;;^DIST(.404,.403011,40,10,2)
62: ;;=4,69^1^4,49^1
63: ;;^DIST(.404,.403011,40,10,7)
64: ;;=^11
65: ;;^DIST(.404,.403011,40,10,20)
66: ;;=F^^0:0
67: ;;^DIST(.404,.403011,40,10,21,0)
68: ;;=^^1^1^2940928^
69: ;;^DIST(.404,.403011,40,10,21,1,0)
70: ;;=Press <RET> to edit additional properties of the block
71: ;;^DIST(.404,.403012,0)
72: ;;=DDGF BLOCK EDIT 2^.404
73: ;;^DIST(.404,.403012,40,0)
74: ;;=^.4044I^7^7
75: ;;^DIST(.404,.403012,40,1,0)
76: ;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
77: ;;^DIST(.404,.403012,40,1,2)
78: ;;=^^1,2^1
79: ;;^DIST(.404,.403012,40,2,0)
80: ;;=2^NAME^2
81: ;;^DIST(.404,.403012,40,2,2)
82: ;;=3,16^30^3,10
83: ;;^DIST(.404,.403012,40,2,3)
84: ;;=!M
85: ;;^DIST(.404,.403012,40,2,3.1)
86: ;;=S Y=DDGFBKNO
87: ;;^DIST(.404,.403012,40,2,20)
88: ;;=DD^^.404,.01
89: ;;^DIST(.404,.403012,40,2,23)
90: ;;=S DDGFBKNN=X
91: ;;^DIST(.404,.403012,40,3,0)
92: ;;=3^DESCRIPTION (WP)^3
93: ;;^DIST(.404,.403012,40,3,1)
94: ;;=15
95: ;;^DIST(.404,.403012,40,3,2)
96: ;;=3,69^1^3,51
97: ;;^DIST(.404,.403012,40,4,0)
98: ;;=4^DD NUMBER^3
99: ;;^DIST(.404,.403012,40,4,1)
100: ;;=1
101: ;;^DIST(.404,.403012,40,4,2)
102: ;;=4,16^16^4,5
103: ;;^DIST(.404,.403012,40,5,0)
104: ;;=5^DISABLE NAVIGATION^3
105: ;;^DIST(.404,.403012,40,5,1)
106: ;;=2
107: ;;^DIST(.404,.403012,40,5,2)
108: ;;=4,69^5^4,49
109: ;;^DIST(.404,.403012,40,6,0)
110: ;;=6^PRE ACTION^3
111: ;;^DIST(.404,.403012,40,6,1)
112: ;;=11
113: ;;^DIST(.404,.403012,40,6,2)
114: ;;=6,16^59^6,4
115: ;;^DIST(.404,.403012,40,7,0)
116: ;;=7^POST ACTION^3
117: ;;^DIST(.404,.403012,40,7,1)
118: ;;=12
119: ;;^DIST(.404,.403012,40,7,2)
120: ;;=7,16^59^7,3
121: ;;^DIST(.404,.403013,0)
122: ;;=DDGF BLOCK EDIT OTHER^.4032
123: ;;^DIST(.404,.403013,11)
124: ;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",1)
125: ;;^DIST(.404,.403013,40,0)
126: ;;=^.4044I^8^8
127: ;;^DIST(.404,.403013,40,1,0)
128: ;;=1^ Other Block Parameters ^1
129: ;;^DIST(.404,.403013,40,1,2)
130: ;;=^^1,16
131: ;;^DIST(.404,.403013,40,2,0)
132: ;;=2^BLOCK COORDINATE^2
133: ;;^DIST(.404,.403013,40,2,2)
134: ;;=3,24^7^3,6
135: ;;^DIST(.404,.403013,40,2,3)
136: ;;=!M
137: ;;^DIST(.404,.403013,40,2,3.1)
138: ;;=S Y=DDGFBKCO
139: ;;^DIST(.404,.403013,40,2,4)
140: ;;=1
141: ;;^DIST(.404,.403013,40,2,20)
142: ;;=DD^^.4032,2
143: ;;^DIST(.404,.403013,40,2,23)
144: ;;=S DDGFBKCN=X
145: ;;^DIST(.404,.403013,40,3,0)
146: ;;=3^Parameters for Repeating Blocks^1
147: ;;^DIST(.404,.403013,40,3,2)
148: ;;=^^5,3
149: ;;^DIST(.404,.403013,40,4,0)
150: ;;=4^REPLICATION^3
151: ;;^DIST(.404,.403013,40,4,1)
152: ;;=5
153: ;;^DIST(.404,.403013,40,4,2)
154: ;;=7,24^3^7,11
155: ;;^DIST(.404,.403013,40,4,13)
156: ;;=Q:DDSOLD>1&(X>1) N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)
157: ;;^DIST(.404,.403013,40,5,0)
158: ;;=5^INDEX^3
159: ;;^DIST(.404,.403013,40,5,1)
160: ;;=6
161: ;;^DIST(.404,.403013,40,5,2)
162: ;;=8,24^30^8,17
163: ;;^DIST(.404,.403013,40,6,0)
164: ;;=6^INITIAL POSITION^3
165: ;;^DIST(.404,.403013,40,6,1)
166: ;;=7
167: ;;^DIST(.404,.403013,40,6,2)
168: ;;=9,24^5^9,6
169: ;;^DIST(.404,.403013,40,7,0)
170: ;;=7^DISALLOW LAYGO^3
171: ;;^DIST(.404,.403013,40,7,1)
172: ;;=8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F2.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman