Annotation of freem_fileman/DINIT0F1.m, revision 1.1.1.1
1.1 snw 1: DINIT0F1 ;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="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
5: Q
6: ENTRY ;
7: ;;^DIST(.403,.40403,40,4,1)
8: ;;=Word Processing Field (Other)
9: ;;^DIST(.403,.40403,40,4,40,0)
10: ;;=^.4032PI^.404034^1
11: ;;^DIST(.403,.40403,40,4,40,.404034,0)
12: ;;=.404034^1^1,1^e
13: ;;^DIST(.403,.40404,0)
14: ;;=DDGF FIELD FORM ONLY^^^0^2930510^2941123.1312^^.404^0^0^1
15: ;;^DIST(.403,.40404,40,0)
16: ;;=^.4031I^3^3
17: ;;^DIST(.403,.40404,40,1,0)
18: ;;=1^^1,1^^^1^16,77
19: ;;^DIST(.403,.40404,40,1,1)
20: ;;=Form Only Field
21: ;;^DIST(.403,.40404,40,1,40,0)
22: ;;=^.4032PI^.404041^1
23: ;;^DIST(.403,.40404,40,1,40,.404041,0)
24: ;;=.404041^1^1,1^e
25: ;;^DIST(.403,.40404,40,2,0)
26: ;;=11^^3,3^^^1^15,75
27: ;;^DIST(.403,.40404,40,2,1)
28: ;;=Other Form Only Field Params
29: ;;^DIST(.403,.40404,40,2,40,0)
30: ;;=^.4032PI^.404042^1
31: ;;^DIST(.403,.40404,40,2,40,.404042,0)
32: ;;=.404042^1^1,1^e
33: ;;^DIST(.403,.40404,40,3,0)
34: ;;=21^^3,3^^^1^15,75
35: ;;^DIST(.403,.40404,40,3,1)
36: ;;=Other Parameters
37: ;;^DIST(.403,.40404,40,3,40,0)
38: ;;=^.4032PI^.404032^1
39: ;;^DIST(.403,.40404,40,3,40,.404032,0)
40: ;;=.404032^1^1,1^e
41: ;;^DIST(.403,.40405,0)
42: ;;=DDGF FIELD COMPUTED^^^0^2930916^2941123.1311^^.404^0^0^1
43: ;;^DIST(.403,.40405,40,0)
44: ;;=^.4031I^2^2
45: ;;^DIST(.403,.40405,40,1,0)
46: ;;=1^^1,2^^^1^12,76
47: ;;^DIST(.403,.40405,40,1,1)
48: ;;=Computed Field
49: ;;^DIST(.403,.40405,40,1,40,0)
50: ;;=^.4032PI^.404051^1
51: ;;^DIST(.403,.40405,40,1,40,.404051,0)
52: ;;=.404051^1^1,1^e
53: ;;^DIST(.403,.40405,40,2,0)
54: ;;=11^^3,16^^^1^11,63
55: ;;^DIST(.403,.40405,40,2,1)
56: ;;=Other Parameters
57: ;;^DIST(.403,.40405,40,2,40,0)
58: ;;=^.4032PI^.404052^1
59: ;;^DIST(.403,.40405,40,2,40,.404052,0)
60: ;;=.404052^1^1,3^e
61: ;;^DIST(.403,.40406,0)
62: ;;=DDGF BLOCK ADD^^^0^2930413^2941115.1052^^.404^0^1^1
63: ;;^DIST(.403,.40406,40,0)
64: ;;=^.4031I^3^3
65: ;;^DIST(.403,.40406,40,1,0)
66: ;;=1^^3,9^^^1^7,65
67: ;;^DIST(.403,.40406,40,1,1)
68: ;;=Add a New Block
69: ;;^DIST(.403,.40406,40,1,40,0)
70: ;;=^.4032PI^.404061^1
71: ;;^DIST(.403,.40406,40,1,40,.404061,0)
72: ;;=.404061^1^1,1^e
73: ;;^DIST(.403,.40406,40,2,0)
74: ;;=11^^6,12^^^1^11,61
75: ;;^DIST(.403,.40406,40,2,1)
76: ;;=Add a New Block to Page
77: ;;^DIST(.403,.40406,40,2,40,0)
78: ;;=^.4032PI^.404062^1
79: ;;^DIST(.403,.40406,40,2,40,.404062,0)
80: ;;=.404062^1^1,1^e
81: ;;^DIST(.403,.40406,40,3,0)
82: ;;=21^^6,17^^^1^13,57
83: ;;^DIST(.403,.40406,40,3,1)
84: ;;=Duplicate Block Message
85: ;;^DIST(.403,.40406,40,3,40,0)
86: ;;=^.4032PI^.404063^1
87: ;;^DIST(.403,.40406,40,3,40,.404063,0)
88: ;;=.404063^1^1,1^e
89: ;;^DIST(.403,.40407,0)
90: ;;=DDGF BLOCK DELETE^^^0^2930809^2940628^^.404^0^1^1
91: ;;^DIST(.403,.40407,40,0)
92: ;;=^.4031I^1^1
93: ;;^DIST(.403,.40407,40,1,0)
94: ;;=1^^5,9^^^1^11,62
95: ;;^DIST(.403,.40407,40,1,1)
96: ;;=Page 1
97: ;;^DIST(.403,.40407,40,1,40,0)
98: ;;=^.4032PI^.404071^1
99: ;;^DIST(.403,.40407,40,1,40,.404071,0)
100: ;;=.404071^1^3,3^e
101: ;;^DIST(.403,.40408,0)
102: ;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
103: ;;^DIST(.403,.40408,40,0)
104: ;;=^.4031I^1^1
105: ;;^DIST(.403,.40408,40,1,0)
106: ;;=1^^4,5^^^1^8,68
107: ;;^DIST(.403,.40408,40,1,1)
108: ;;=Add a New Header Block
109: ;;^DIST(.403,.40408,40,1,40,0)
110: ;;=^.4032PI^.404081^1
111: ;;^DIST(.403,.40408,40,1,40,.404081,0)
112: ;;=.404081^1^1,1^e
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT0F1.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman