Annotation of freem_fileman/DINIT294.m, revision 1.1.1.1
1.1 snw 1: DINIT294 ;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="" ^DINIT295 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(.4031,6,21,1,0)
7: ;;=The existence of a lower right coordinate implies that the page is a
8: ;;^DD(.4031,6,21,2,0)
9: ;;=pop-up page. The lower right coordinate and the page coordinate define
10: ;;^DD(.4031,6,21,3,0)
11: ;;=the position of the border ScreenMan displays when it paints a pop-up
12: ;;^DD(.4031,6,21,4,0)
13: ;;=page.
14: ;;^DD(.4031,6,"DT")
15: ;;=2940908
16: ;;^DD(.4031,7,0)
17: ;;=PAGE NAME^FX^^1;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X=+$P(X,"E")) X
18: ;;^DD(.4031,7,1,0)
19: ;;=^.1
20: ;;^DD(.4031,7,1,1,0)
21: ;;=.4031^C^MUMPS
22: ;;^DD(.4031,7,1,1,1)
23: ;;=S ^DIST(.403,DA(1),40,"C",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
24: ;;^DD(.4031,7,1,1,2)
25: ;;=K ^DIST(.403,DA(1),40,"C",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
26: ;;^DD(.4031,7,1,1,3)
27: ;;=Programmer only
28: ;;^DD(.4031,7,1,1,"%D",0)
29: ;;=^^2^2^2930816^
30: ;;^DD(.4031,7,1,1,"%D",1,0)
31: ;;=This cross reference is a regular index of the page name converted to all
32: ;;^DD(.4031,7,1,1,"%D",2,0)
33: ;;=upper case characters.
34: ;;^DD(.4031,7,1,1,"DT")
35: ;;=2930816
36: ;;^DD(.4031,7,3)
37: ;;=Enter the name of the page, 3-30 characters in length.
38: ;;^DD(.4031,7,21,0)
39: ;;=^^5^5^2940907^^
40: ;;^DD(.4031,7,21,1,0)
41: ;;=Like the Page Number, you can use the Page Name to refer to a page in
42: ;;^DD(.4031,7,21,2,0)
43: ;;=ScreenMan functions and utilities. ScreenMan displays the Page Name to
44: ;;^DD(.4031,7,21,3,0)
45: ;;=the user if, during an attempt to file data, ScreenMan finds required
46: ;;^DD(.4031,7,21,4,0)
47: ;;=fields with null values. ScreenMan uses the Caption of the field and the
48: ;;^DD(.4031,7,21,5,0)
49: ;;=Page Name to inform the user of the location of the required field.
50: ;;^DD(.4031,7,"DT")
51: ;;=2931020
52: ;;^DD(.4031,8,0)
53: ;;=PARENT FIELD^FX^^1;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>92!($L(X)<5)!'(X?1.E1","1.E1","1.E) X I $D(X) D PFIELD^DDSIT
54: ;;^DD(.4031,8,1,0)
55: ;;=^.1^^0
56: ;;^DD(.4031,8,3)
57: ;;=Answer must be 5-92 characters in length.
58: ;;^DD(.4031,8,21,0)
59: ;;=^^25^25^2940907^
60: ;;^DD(.4031,8,21,1,0)
61: ;;=This property can be used instead of Subpage Link to link a subpage to a
62: ;;^DD(.4031,8,21,2,0)
63: ;;=field.
64: ;;^DD(.4031,8,21,3,0)
65: ;;=
66: ;;^DD(.4031,8,21,4,0)
67: ;;=Parent Field has the following format:
68: ;;^DD(.4031,8,21,5,0)
69: ;;=
70: ;;^DD(.4031,8,21,6,0)
71: ;;= Field id,Block id,Page id
72: ;;^DD(.4031,8,21,7,0)
73: ;;=
74: ;;^DD(.4031,8,21,8,0)
75: ;;=where,
76: ;;^DD(.4031,8,21,9,0)
77: ;;=
78: ;;^DD(.4031,8,21,10,0)
79: ;;= Field id = Field Order number; or
80: ;;^DD(.4031,8,21,11,0)
81: ;;= Caption of the field; or
82: ;;^DD(.4031,8,21,12,0)
83: ;;= Unique Name of the field
84: ;;^DD(.4031,8,21,13,0)
85: ;;=
86: ;;^DD(.4031,8,21,14,0)
87: ;;= Block id = Block Order number; or
88: ;;^DD(.4031,8,21,15,0)
89: ;;= Block Name
90: ;;^DD(.4031,8,21,16,0)
91: ;;=
92: ;;^DD(.4031,8,21,17,0)
93: ;;= Page id = Page Number; or
94: ;;^DD(.4031,8,21,18,0)
95: ;;= Page Name
96: ;;^DD(.4031,8,21,19,0)
97: ;;=
98: ;;^DD(.4031,8,21,20,0)
99: ;;=For example:
100: ;;^DD(.4031,8,21,21,0)
101: ;;=
102: ;;^DD(.4031,8,21,22,0)
103: ;;= ZZFIELD 1,ZZBLOCK 1,ZZPAGE 1
104: ;;^DD(.4031,8,21,23,0)
105: ;;=
106: ;;^DD(.4031,8,21,24,0)
107: ;;=identifies the field with Caption or Unique Name "ZZFIELD 1," on the block
108: ;;^DD(.4031,8,21,25,0)
109: ;;=named "ZZBLOCK 1," on the page named "ZZPAGE 1".
110: ;;^DD(.4031,8,"DT")
111: ;;=2931201
112: ;;^DD(.4031,11,0)
113: ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
114: ;;^DD(.4031,11,3)
115: ;;=Enter Standard MUMPS code that will be executed before the user reaches a page.
116: ;;^DD(.4031,11,9)
117: ;;=@
118: ;;^DD(.4031,11,21,0)
119: ;;=^^1^1^2940907^^^^
120: ;;^DD(.4031,11,21,1,0)
121: ;;=This MUMPS code is executed when the user reaches a page.
122: ;;^DD(.4031,11,22)
123: ;;=
124: ;;^DD(.4031,12,0)
125: ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
126: ;;^DD(.4031,12,3)
127: ;;=Enter Standard MUMPS code that will be executed after the user leaves a page.
128: ;;^DD(.4031,12,9)
129: ;;=@
130: ;;^DD(.4031,12,21,0)
131: ;;=^^1^1^2940907^^^
132: ;;^DD(.4031,12,21,1,0)
133: ;;=This MUMPS code is executed when the user leaves the page.
134: ;;^DD(.4031,15,0)
135: ;;=DESCRIPTION^.403115^^15;0
136: ;;^DD(.4031,40,0)
137: ;;=BLOCK^.4032IP^^40;0
138: ;;^DD(.403115,0)
139: ;;=DESCRIPTION SUB-FIELD^^.01^1
140: ;;^DD(.403115,0,"DT")
141: ;;=2910204
142: ;;^DD(.403115,0,"NM","DESCRIPTION")
143: ;;=
144: ;;^DD(.403115,0,"UP")
145: ;;=.4031
146: ;;^DD(.403115,.01,0)
147: ;;=DESCRIPTION^W^^0;1^Q
148: ;;^DD(.403115,.01,3)
149: ;;=Enter text which describes the page.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT294.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman