Annotation of freem_fileman/DINIT29D.m, revision 1.1.1.1
1.1 snw 1: DINIT29D ;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="" ^DINIT29E 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,20.1,21,0)
7: ;;=^^1^1^2930812^^
8: ;;^DD(.4044,20.1,21,1,0)
9: ;;=Enter the data type of this form-only field.
10: ;;^DD(.4044,20.1,"DT")
11: ;;=2930812
12: ;;^DD(.4044,20.2,0)
13: ;;=PARAMETERS^F^^20;2^K:$L(X)>2!($L(X)<1) X
14: ;;^DD(.4044,20.2,3)
15: ;;=Answer must be 1-2 characters in length.
16: ;;^DD(.4044,20.2,21,0)
17: ;;=^^8^8^2940907^
18: ;;^DD(.4044,20.2,21,1,0)
19: ;;=This property coressponds to the parameters that can be used in the first
20: ;;^DD(.4044,20.2,21,2,0)
21: ;;=^-piece of the DIR(0) input variable to ^DIR. The "O" parameter has no
22: ;;^DD(.4044,20.2,21,3,0)
23: ;;=effect, since the Required property can be used to make a field required.
24: ;;^DD(.4044,20.2,21,4,0)
25: ;;=The "A" and "B" parameters also have no effect.
26: ;;^DD(.4044,20.2,21,5,0)
27: ;;=
28: ;;^DD(.4044,20.2,21,6,0)
29: ;;=Free text fields can use the "U" parameter.
30: ;;^DD(.4044,20.2,21,7,0)
31: ;;=List or Range fields can use the "C" parameter.
32: ;;^DD(.4044,20.2,21,8,0)
33: ;;=Set of Codes fields can use the "X" and "M" parameters.
34: ;;^DD(.4044,20.2,"DT")
35: ;;=2930812
36: ;;^DD(.4044,20.3,0)
37: ;;=QUALIFIERS^F^^20;3^K:$L(X)>100!($L(X)<1) X
38: ;;^DD(.4044,20.3,3)
39: ;;=Answer must be 1-100 characters in length.
40: ;;^DD(.4044,20.3,21,0)
41: ;;=^^14^14^2940908^^
42: ;;^DD(.4044,20.3,21,1,0)
43: ;;=This property corresponds to the second ^-piece of the DIR(0) input
44: ;;^DD(.4044,20.3,21,2,0)
45: ;;=variable to ^DIR. For Data Dictionary type form only fields, it
46: ;;^DD(.4044,20.3,21,3,0)
47: ;;=identifies the file and field.
48: ;;^DD(.4044,20.3,21,4,0)
49: ;;=
50: ;;^DD(.4044,20.3,21,5,0)
51: ;;=Valid qualifiers are:
52: ;;^DD(.4044,20.3,21,6,0)
53: ;;=
54: ;;^DD(.4044,20.3,21,7,0)
55: ;;= Date Minimum date:Maximum date:%DT
56: ;;^DD(.4044,20.3,21,8,0)
57: ;;= Free Text Minimum length:Maximum length
58: ;;^DD(.4044,20.3,21,9,0)
59: ;;= List or Range Minimum:Maximum:Maximum decimals
60: ;;^DD(.4044,20.3,21,10,0)
61: ;;= Numeric Minimum:Maximum:Maximum decimals
62: ;;^DD(.4044,20.3,21,11,0)
63: ;;= Pointer Global root or #:DIC(0)
64: ;;^DD(.4044,20.3,21,12,0)
65: ;;= Set of Codes Code:Stands for;Code:Stands for;
66: ;;^DD(.4044,20.3,21,13,0)
67: ;;= Yes or No
68: ;;^DD(.4044,20.3,21,14,0)
69: ;;= Data Dictionary file#,field#
70: ;;^DD(.4044,20.3,"DT")
71: ;;=2930812
72: ;;^DD(.4044,21,0)
73: ;;=HELP^.404421^^21;0
74: ;;^DD(.4044,21,"DT")
75: ;;=2930812
76: ;;^DD(.4044,22,0)
77: ;;=INPUT TRANSFORM^K^^22;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
78: ;;^DD(.4044,22,3)
79: ;;=Enter standard MUMPS code.
80: ;;^DD(.4044,22,9)
81: ;;=@
82: ;;^DD(.4044,22,21,0)
83: ;;=^^3^3^2940908^
84: ;;^DD(.4044,22,21,1,0)
85: ;;=This is MUMPS code that can examine X, the value entered by the user, and
86: ;;^DD(.4044,22,21,2,0)
87: ;;=kill X if it is invalid. It corresponds to the third ^-piece of the
88: ;;^DD(.4044,22,21,3,0)
89: ;;=DIR(0) input variable to ^DIR.
90: ;;^DD(.4044,22,"DT")
91: ;;=2930812
92: ;;^DD(.4044,23,0)
93: ;;=SAVE CODE^K^^23;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
94: ;;^DD(.4044,23,3)
95: ;;=Enter Standard MUMPS code.
96: ;;^DD(.4044,23,9)
97: ;;=@
98: ;;^DD(.4044,23,21,0)
99: ;;=^^8^8^2930920^^
100: ;;^DD(.4044,23,21,1,0)
101: ;;=This is MUMPS code that is executed when the user issues a Save command
102: ;;^DD(.4044,23,21,2,0)
103: ;;=and the value of this field changed since the last Save. You can use this
104: ;;^DD(.4044,23,21,3,0)
105: ;;=field to save in global or local variables the value the user enters into
106: ;;^DD(.4044,23,21,4,0)
107: ;;=this field. The following variables are available:
108: ;;^DD(.4044,23,21,5,0)
109: ;;=
110: ;;^DD(.4044,23,21,6,0)
111: ;;= X = The new value of the field in internal form
112: ;;^DD(.4044,23,21,7,0)
113: ;;= DDSEXT = The new value of the field in external form
114: ;;^DD(.4044,23,21,8,0)
115: ;;= DDSOLD = The original (pre-save) value of the field in internal form
116: ;;^DD(.4044,23,"DT")
117: ;;=2930812
118: ;;^DD(.4044,24,0)
119: ;;=SCREEN^K^^24;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
120: ;;^DD(.4044,24,3)
121: ;;=Enter standard MUMPS code that sets the variable DIR("S").
122: ;;^DD(.4044,24,9)
123: ;;=@
124: ;;^DD(.4044,24,21,0)
125: ;;=^^4^4^2940908^
126: ;;^DD(.4044,24,21,1,0)
127: ;;=This screen is valid only for pointer and set-type form-only fields.
128: ;;^DD(.4044,24,21,2,0)
129: ;;=
130: ;;^DD(.4044,24,21,3,0)
131: ;;=You can enter MUMPS code that sets the variable DIR("S"), to screen the
132: ;;^DD(.4044,24,21,4,0)
133: ;;=the values that can be selected.
134: ;;^DD(.4044,24,"DT")
135: ;;=2930812
136: ;;^DD(.4044,30,0)
137: ;;=COMPUTED EXPRESSION^FX^^30;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X) D CEXPR^DDSIT
138: ;;^DD(.4044,30,3)
139: ;;=Answer must be 1-245 characters in length.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT29D.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman