Annotation of freem_fileman/DINIT29B.m, revision 1.1.1.1
1.1 snw 1: DINIT29B ;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="" ^DINIT29C 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(.4044,5.1,21,2,0)
7: ;;=top left corner of the block has coordinate 1,1.
8: ;;^DD(.4044,5.1,"DT")
9: ;;=2940908
10: ;;^DD(.4044,5.2,0)
11: ;;=SUPPRESS COLON AFTER CAPTION?^S^0:NO;1:YES;^2;4^Q
12: ;;^DD(.4044,5.2,1,0)
13: ;;=^.1^^0
14: ;;^DD(.4044,5.2,3)
15: ;;=
16: ;;^DD(.4044,5.2,21,0)
17: ;;=^^2^2^2940907^^
18: ;;^DD(.4044,5.2,21,1,0)
19: ;;=Enter 'YES' to suppress the display of a colon and space after the
20: ;;^DD(.4044,5.2,21,2,0)
21: ;;=caption.
22: ;;^DD(.4044,5.2,"DT")
23: ;;=2940629
24: ;;^DD(.4044,6,0)
25: ;;=DEFAULT^F^^3;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X
26: ;;^DD(.4044,6,3)
27: ;;=Answer must be 1-245 characters in length.
28: ;;^DD(.4044,6,21,0)
29: ;;=^^8^8^2940907^
30: ;;^DD(.4044,6,21,1,0)
31: ;;=Enter the default you want displayed when the user first loads the page
32: ;;^DD(.4044,6,21,2,0)
33: ;;=on which this field is located, and the field's value is originally null.
34: ;;^DD(.4044,6,21,3,0)
35: ;;=Since ScreenMan validates the default, it must be valid, unambiguous, and
36: ;;^DD(.4044,6,21,4,0)
37: ;;=in external form; otherwise, it is not used.
38: ;;^DD(.4044,6,21,5,0)
39: ;;=
40: ;;^DD(.4044,6,21,6,0)
41: ;;=If you want to create an executable default, i.e., a default whose value
42: ;;^DD(.4044,6,21,7,0)
43: ;;=is determined at run time when the page is first loaded, the value of
44: ;;^DD(.4044,6,21,8,0)
45: ;;=this field must be "!M".
46: ;;^DD(.4044,6,"DT")
47: ;;=2920218
48: ;;^DD(.4044,6.01,0)
49: ;;=EXECUTABLE DEFAULT^K^^3.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
50: ;;^DD(.4044,6.01,3)
51: ;;=Enter standard MUMPS code that sets the variable Y.
52: ;;^DD(.4044,6.01,9)
53: ;;=@
54: ;;^DD(.4044,6.01,21,0)
55: ;;=^^4^4^2940907^
56: ;;^DD(.4044,6.01,21,1,0)
57: ;;=Enter MUMPS code that sets the variable Y equal to the default you want
58: ;;^DD(.4044,6.01,21,2,0)
59: ;;=displayed when the page is first loaded and the data value on file is
60: ;;^DD(.4044,6.01,21,3,0)
61: ;;=null. Y must be set to a valid, unambiguous user response; otherwise, it
62: ;;^DD(.4044,6.01,21,4,0)
63: ;;=is ignored.
64: ;;^DD(.4044,6.01,"DT")
65: ;;=2920218
66: ;;^DD(.4044,6.1,0)
67: ;;=REQUIRED^S^0:NO;1:YES;^4;1^Q
68: ;;^DD(.4044,6.1,3)
69: ;;=
70: ;;^DD(.4044,6.1,21,0)
71: ;;=^^5^5^2940907^
72: ;;^DD(.4044,6.1,21,1,0)
73: ;;=Whenever the user attempts a Save, ScreenMan checks all required fields
74: ;;^DD(.4044,6.1,21,2,0)
75: ;;=on all pages accessed during the editing session, as well as all pages
76: ;;^DD(.4044,6.1,21,3,0)
77: ;;=linked to the first page via the Next and Previous Page links. If any of
78: ;;^DD(.4044,6.1,21,4,0)
79: ;;=the required fields have null values, no Save occurs. You need not make a
80: ;;^DD(.4044,6.1,21,5,0)
81: ;;=field required that is already required by its data definition.
82: ;;^DD(.4044,6.2,0)
83: ;;=DUPLICATE^S^0:NO;1:YES;^4;2^Q
84: ;;^DD(.4044,6.2,3)
85: ;;=Enter 'YES' if the field value from the previous record can be duplicated with the 'spacebar-return' feature.
86: ;;^DD(.4044,6.2,21,0)
87: ;;=^^1^1^2940629^
88: ;;^DD(.4044,6.2,21,1,0)
89: ;;=This field is not currently being used.
90: ;;^DD(.4044,6.3,0)
91: ;;=RIGHT JUSTIFY^S^0:NO;1:YES;^4;3^Q
92: ;;^DD(.4044,6.3,21,0)
93: ;;=^^2^2^2940907^
94: ;;^DD(.4044,6.3,21,1,0)
95: ;;=Enter 'YES' if the data for this field should be displayed right-justified
96: ;;^DD(.4044,6.3,21,2,0)
97: ;;=in the editing window.
98: ;;^DD(.4044,6.3,"DT")
99: ;;=2940625
100: ;;^DD(.4044,6.4,0)
101: ;;=DISABLE EDITING^S^0:NO;1:YES;2:REACHABLE;^4;4^Q
102: ;;^DD(.4044,6.4,3)
103: ;;=
104: ;;^DD(.4044,6.4,21,0)
105: ;;=^^3^3^2940907^^^
106: ;;^DD(.4044,6.4,21,1,0)
107: ;;=Enter 'YES' to disable editing and to prevent the user from navigating
108: ;;^DD(.4044,6.4,21,2,0)
109: ;;=to the field. Enter 'REACHABLE' to disable editing, but allow the user to
110: ;;^DD(.4044,6.4,21,3,0)
111: ;;=navigate to the field.
112: ;;^DD(.4044,6.4,"DT")
113: ;;=2940625
114: ;;^DD(.4044,6.5,0)
115: ;;=DISALLOW LAYGO^S^0:NO;1:YES;^4;5^Q
116: ;;^DD(.4044,6.5,3)
117: ;;=
118: ;;^DD(.4044,6.5,21,0)
119: ;;=^^2^2^2931020^
120: ;;^DD(.4044,6.5,21,1,0)
121: ;;=Enter 'YES' to prohibit the user from adding new subentries into this
122: ;;^DD(.4044,6.5,21,2,0)
123: ;;=multiple. This question only pertains to multiple-valued fields.
124: ;;^DD(.4044,8,0)
125: ;;=SUB PAGE LINK^NJ5,1^^7;2^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"."2N.N) X
126: ;;^DD(.4044,8,3)
127: ;;=Enter the Page Number of the page to open up when the user presses <Return> at this field. Type a Number between 1 and 999.9, 1 Decimal Digit.
128: ;;^DD(.4044,8,21,0)
129: ;;=^^7^7^2940907^
130: ;;^DD(.4044,8,21,1,0)
131: ;;=If you wish to take users to a pop-up page when they press <RET> at
132: ;;^DD(.4044,8,21,2,0)
133: ;;=this field, enter the Page Number of that page. When users exit that
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT29B.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman