Annotation of freem_fileman/DINIT0F3.m, revision 1.1.1.1
1.1 snw 1: DINIT0F3 ;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.404,.403013,40,7,2)
8: ;;=10,24^3^10,8
9: ;;^DIST(.404,.403013,40,8,0)
10: ;;=8^FIELD FOR SELECTION^3
11: ;;^DIST(.404,.403013,40,8,1)
12: ;;=9
13: ;;^DIST(.404,.403013,40,8,2)
14: ;;=11,24^30^11,3
15: ;;^DIST(.404,.403021,0)
16: ;;=DDGF PAGE ADD^.4031
17: ;;^DIST(.404,.403021,40,0)
18: ;;=^.4044I^1^1
19: ;;^DIST(.404,.403021,40,1,0)
20: ;;=1^NEW PAGE NUMBER^2
21: ;;^DIST(.404,.403021,40,1,2)
22: ;;=3,20^5^3,3
23: ;;^DIST(.404,.403021,40,1,12)
24: ;;=S DDACT="EX"
25: ;;^DIST(.404,.403021,40,1,20)
26: ;;=DD^^.4031,.01
27: ;;^DIST(.404,.403021,40,1,23)
28: ;;=S DDGFPNUM=X
29: ;;^DIST(.404,.403022,0)
30: ;;=DDGF PAGE ADD ARE YOU SURE^.4031
31: ;;^DIST(.404,.403022,40,0)
32: ;;=^.4044I^2^2
33: ;;^DIST(.404,.403022,40,1,0)
34: ;;=1^!M^1
35: ;;^DIST(.404,.403022,40,1,.1)
36: ;;=S Y="Are you adding Page "_DDGFPNUM
37: ;;^DIST(.404,.403022,40,1,2)
38: ;;=^^3,3
39: ;;^DIST(.404,.403022,40,2,0)
40: ;;=2^as a new page on this form?^2
41: ;;^DIST(.404,.403022,40,2,2)
42: ;;=4,31^3^4,3^1
43: ;;^DIST(.404,.403022,40,2,12)
44: ;;=S DDACT="EX"
45: ;;^DIST(.404,.403022,40,2,20)
46: ;;=Y
47: ;;^DIST(.404,.403022,40,2,23)
48: ;;=S DDGFANS=X
49: ;;^DIST(.404,.403031,0)
50: ;;=DDGF PAGE EDIT^.4031
51: ;;^DIST(.404,.403031,40,0)
52: ;;=^.4044I^16^13
53: ;;^DIST(.404,.403031,40,1,0)
54: ;;=1^ Page Properties ^1
55: ;;^DIST(.404,.403031,40,1,2)
56: ;;=^^1,27
57: ;;^DIST(.404,.403031,40,2,0)
58: ;;=2^PAGE NUMBER^3
59: ;;^DIST(.404,.403031,40,2,1)
60: ;;=.01
61: ;;^DIST(.404,.403031,40,2,2)
62: ;;=3,21^5^3,8
63: ;;^DIST(.404,.403031,40,4,0)
64: ;;=4^HEADER BLOCK^3
65: ;;^DIST(.404,.403031,40,4,1)
66: ;;=1
67: ;;^DIST(.404,.403031,40,4,2)
68: ;;=5,21^30^5,7
69: ;;^DIST(.404,.403031,40,5,0)
70: ;;=8^NEXT PAGE^3
71: ;;^DIST(.404,.403031,40,5,1)
72: ;;=3
73: ;;^DIST(.404,.403031,40,5,2)
74: ;;=9,21^5^9,10
75: ;;^DIST(.404,.403031,40,6,0)
76: ;;=9^PREVIOUS PAGE^3
77: ;;^DIST(.404,.403031,40,6,1)
78: ;;=4
79: ;;^DIST(.404,.403031,40,6,2)
80: ;;=10,21^5^10,6
81: ;;^DIST(.404,.403031,40,7,0)
82: ;;=12^PRE ACTION^3
83: ;;^DIST(.404,.403031,40,7,1)
84: ;;=11
85: ;;^DIST(.404,.403031,40,7,2)
86: ;;=14,21^53^14,9
87: ;;^DIST(.404,.403031,40,8,0)
88: ;;=13^POST ACTION^3
89: ;;^DIST(.404,.403031,40,8,1)
90: ;;=12
91: ;;^DIST(.404,.403031,40,8,2)
92: ;;=15,21^53^15,8
93: ;;^DIST(.404,.403031,40,9,0)
94: ;;=11^DESCRIPTION (WP)^3
95: ;;^DIST(.404,.403031,40,9,1)
96: ;;=15
97: ;;^DIST(.404,.403031,40,9,2)
98: ;;=13,21^1^13,3
99: ;;^DIST(.404,.403031,40,12,0)
100: ;;=10^PARENT FIELD^3
101: ;;^DIST(.404,.403031,40,12,1)
102: ;;=8
103: ;;^DIST(.404,.403031,40,12,2)
104: ;;=11,21^53^11,7
105: ;;^DIST(.404,.403031,40,13,0)
106: ;;=6^IS THIS A POP UP PAGE?^2
107: ;;^DIST(.404,.403031,40,13,2)
108: ;;=7,67^3^7,44^1
109: ;;^DIST(.404,.403031,40,13,3)
110: ;;=!M
111: ;;^DIST(.404,.403031,40,13,3.1)
112: ;;=S:$G(DDGFLRC)]"" Y=1
113: ;;^DIST(.404,.403031,40,13,13)
114: ;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)
115: ;;^DIST(.404,.403031,40,13,20)
116: ;;=DD^^.4031,5
117: ;;^DIST(.404,.403031,40,14,0)
118: ;;=5^PAGE COORDINATE^2
119: ;;^DIST(.404,.403031,40,14,2)
120: ;;=7,21^7^7,4
121: ;;^DIST(.404,.403031,40,14,3)
122: ;;=!M
123: ;;^DIST(.404,.403031,40,14,3.1)
124: ;;=S Y=$G(DDGFTLC0)
125: ;;^DIST(.404,.403031,40,14,4)
126: ;;=1
127: ;;^DIST(.404,.403031,40,14,20)
128: ;;=DD^^.4031,2
129: ;;^DIST(.404,.403031,40,14,23)
130: ;;=S DDGFTLC=X
131: ;;^DIST(.404,.403031,40,15,0)
132: ;;=7^LOWER RIGHT COORDINATE^2
133: ;;^DIST(.404,.403031,40,15,2)
134: ;;=8,67^7^8,43
135: ;;^DIST(.404,.403031,40,15,3)
136: ;;=!M
137: ;;^DIST(.404,.403031,40,15,3.1)
138: ;;=S Y=$G(DDGFLRC0)
139: ;;^DIST(.404,.403031,40,15,13)
140: ;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)
141: ;;^DIST(.404,.403031,40,15,20)
142: ;;=DD^^.4031,6
143: ;;^DIST(.404,.403031,40,15,23)
144: ;;=S DDGFLRC=X
145: ;;^DIST(.404,.403031,40,16,0)
146: ;;=3^PAGE NAME^2
147: ;;^DIST(.404,.403031,40,16,2)
148: ;;=4,21^30^4,10
149: ;;^DIST(.404,.403031,40,16,3)
150: ;;=!M
151: ;;^DIST(.404,.403031,40,16,3.1)
152: ;;=S Y=$G(DDGFPNM0)
153: ;;^DIST(.404,.403031,40,16,4)
154: ;;=1
155: ;;^DIST(.404,.403031,40,16,20)
156: ;;=DD^^.4031,7
157: ;;^DIST(.404,.403031,40,16,23)
158: ;;=S DDGFPNM=X
159: ;;^DIST(.404,.403041,0)
160: ;;=DDGF PAGE SELECT^.4031
161: ;;^DIST(.404,.403041,40,0)
162: ;;=^.4044I^1^1
163: ;;^DIST(.404,.403041,40,1,0)
164: ;;=1^Select PAGE^2
165: ;;^DIST(.404,.403041,40,1,2)
166: ;;=1,14^30^1,1
167: ;;^DIST(.404,.403041,40,1,3)
168: ;;=!M
169: ;;^DIST(.404,.403041,40,1,3.1)
170: ;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)
171: ;;^DIST(.404,.403041,40,1,12)
172: ;;=S DDACT="EX"
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F3.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman