Annotation of freem_fileman/DINIT291.m, revision 1.1.1.1
1.1 snw 1: DINIT291 ;SFISC/MKO-SCREENMAN FILES ;11/28/94 11:42 AM
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(Q+I) G:X="" ^DINIT292 S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
5: Q Q
6: ;;^DD(.403,3,21,1,0)
7: ;;=This is the DUZ of the person who created the form. The ScreenMan
8: ;;^DD(.403,3,21,2,0)
9: ;;=options to create the form automatically put a value into this field.
10: ;;^DD(.403,4,0)
11: ;;=DATE CREATED^D^^0;5^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
12: ;;^DD(.403,4,3)
13: ;;=Enter the date the form was created.
14: ;;^DD(.403,4,21,0)
15: ;;=^^2^2^2941018^^
16: ;;^DD(.403,4,21,1,0)
17: ;;=This is the date the form was created. The ScreenMan options to create
18: ;;^DD(.403,4,21,2,0)
19: ;;=the form automatically put a value into this field.
20: ;;^DD(.403,4,"DT")
21: ;;=2941018
22: ;;^DD(.403,5,0)
23: ;;=DATE LAST USED^D^^0;6^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
24: ;;^DD(.403,5,3)
25: ;;=Enter the date and time the form was last used.
26: ;;^DD(.403,5,21,0)
27: ;;=^^2^2^2941018^^
28: ;;^DD(.403,5,21,1,0)
29: ;;=This is the date the form was last used. ScreenMan automatically
30: ;;^DD(.403,5,21,2,0)
31: ;;=puts a value into this field when the form is invoked.
32: ;;^DD(.403,5,"DT")
33: ;;=2941018
34: ;;^DD(.403,6,0)
35: ;;=TITLE^F^^0;7^K:$L(X)>50!($L(X)<1) X
36: ;;^DD(.403,6,1,0)
37: ;;=^.1
38: ;;^DD(.403,6,1,1,0)
39: ;;=.403^C
40: ;;^DD(.403,6,1,1,1)
41: ;;=S ^DIST(.403,"C",$E(X,1,30),DA)=""
42: ;;^DD(.403,6,1,1,2)
43: ;;=K ^DIST(.403,"C",$E(X,1,30),DA)
44: ;;^DD(.403,6,1,1,"DT")
45: ;;=2940908
46: ;;^DD(.403,6,3)
47: ;;=Answer must be 1-50 characters in length.
48: ;;^DD(.403,6,21,0)
49: ;;=^^4^4^2940908^
50: ;;^DD(.403,6,21,1,0)
51: ;;=The TITLE property can be used by the form designer to help identify a
52: ;;^DD(.403,6,21,2,0)
53: ;;=form. It is cross referenced and need not be unique. ScreenMan does not
54: ;;^DD(.403,6,21,3,0)
55: ;;=automatically display the TITLE to the user, but the form designer can
56: ;;^DD(.403,6,21,4,0)
57: ;;=choose to define a caption-only field that displays the title to the user.
58: ;;^DD(.403,6,22)
59: ;;=
60: ;;^DD(.403,6,"DT")
61: ;;=2940908
62: ;;^DD(.403,7,0)
63: ;;=PRIMARY FILE^RFX^^0;8^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X
64: ;;^DD(.403,7,1,0)
65: ;;=^.1
66: ;;^DD(.403,7,1,1,0)
67: ;;=.403^F^MUMPS
68: ;;^DD(.403,7,1,1,1)
69: ;;=X "S %=$P("_DIC_"DA,0),U) S "_DIC_"""F""_X,%,DA)=1"
70: ;;^DD(.403,7,1,1,2)
71: ;;=X "S %=$P("_DIC_"DA,0),U) K "_DIC_"""F""_X,%,DA)"
72: ;;^DD(.403,7,1,1,3)
73: ;;=Programmer only
74: ;;^DD(.403,7,1,1,"%D",0)
75: ;;=^^2^2^2900911^
76: ;;^DD(.403,7,1,1,"%D",0,"LE")
77: ;;=1
78: ;;^DD(.403,7,1,1,"%D",1,0)
79: ;;=This cross-reference is used to quickly find all ScreenMan templates
80: ;;^DD(.403,7,1,1,"%D",2,0)
81: ;;=associated with a file.
82: ;;^DD(.403,7,1,1,"DT")
83: ;;=2900911
84: ;;^DD(.403,7,3)
85: ;;=Answer must be 1-16 characters in length.
86: ;;^DD(.403,7,21,0)
87: ;;=^^2^2^2920407^
88: ;;^DD(.403,7,21,1,0)
89: ;;=Enter a file number, greater than or equal to 2, which represents the data
90: ;;^DD(.403,7,21,2,0)
91: ;;=dictionary number of the primary file for this form.
92: ;;^DD(.403,7,"DT")
93: ;;=2920407
94: ;;^DD(.403,8,0)
95: ;;=DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q
96: ;;^DD(.403,8,21,0)
97: ;;=^^2^2^2931027^^^^
98: ;;^DD(.403,8,21,1,0)
99: ;;=This is a flag that indicates none of the blocks on the form are edit
100: ;;^DD(.403,8,21,2,0)
101: ;;=blocks. This flag is set during form compilation.
102: ;;^DD(.403,8,"DT")
103: ;;=2931028
104: ;;^DD(.403,9,0)
105: ;;=FORM ONLY^SI^0:NO;1:YES;^0;10^Q
106: ;;^DD(.403,9,21,0)
107: ;;=^^2^2^2931027^
108: ;;^DD(.403,9,21,1,0)
109: ;;=This is a flag that indicates none of the fields on the form are data
110: ;;^DD(.403,9,21,2,0)
111: ;;=dictionary fields. This flag is set during form compilation.
112: ;;^DD(.403,9,"DT")
113: ;;=2931028
114: ;;^DD(.403,10,0)
115: ;;=COMPILED^SI^0:NO;1:YES;^0;11^Q
116: ;;^DD(.403,10,1,0)
117: ;;=^.1^^0
118: ;;^DD(.403,10,21,0)
119: ;;=^^2^2^2940908^
120: ;;^DD(.403,10,21,1,0)
121: ;;=This is a flag that indicates that the form is compiled. This flag is
122: ;;^DD(.403,10,21,2,0)
123: ;;=set during form compilation.
124: ;;^DD(.403,10,"DT")
125: ;;=2940701
126: ;;^DD(.403,11,0)
127: ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
128: ;;^DD(.403,11,3)
129: ;;=Enter standard MUMPS code which will be executed at the beginning of the form.
130: ;;^DD(.403,11,9)
131: ;;=@
132: ;;^DD(.403,11,21,0)
133: ;;=^^2^2^2940906^
134: ;;^DD(.403,11,21,1,0)
135: ;;=This is MUMPS code that is executed when the form is first invoked,
136: ;;^DD(.403,11,21,2,0)
137: ;;=before any of the pages are loaded and displayed.
138: ;;^DD(.403,12,0)
139: ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
140: ;;^DD(.403,12,3)
141: ;;=Enter standard MUMPS code which will be executed at the end of the form.
142: ;;^DD(.403,12,9)
143: ;;=@
144: ;;^DD(.403,12,21,0)
145: ;;=^^2^2^2940906^^
146: ;;^DD(.403,12,21,1,0)
147: ;;=This is MUMPS code that is executed before ScreenMan returns to the
148: ;;^DD(.403,12,21,2,0)
149: ;;=calling application.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT291.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman