Annotation of freem_fileman/DINIT298.m, revision 1.1.1.1
1.1 snw 1: DINIT298 ;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="" ^DINIT299 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: ;;^DIC("B","BLOCK",.404)
7: ;;=
8: ;;^DIC(.404,"%D",0)
9: ;;=^^2^2^2940914^
10: ;;^DIC(.404,"%D",1,0)
11: ;;=This file stores ScreenMan blocks, which are used to build forms in the
12: ;;^DIC(.404,"%D",2,0)
13: ;;=Form file.
14: ;;^DD(.404,0)
15: ;;=FIELD^^40^7
16: ;;^DD(.404,0,"DT")
17: ;;=2940625
18: ;;^DD(.404,0,"IX","B",.404,.01)
19: ;;=
20: ;;^DD(.404,0,"NM","BLOCK")
21: ;;=
22: ;;^DD(.404,0,"PT",.4031,1)
23: ;;=
24: ;;^DD(.404,0,"PT",.4032,.01)
25: ;;=
26: ;;^DD(.404,.01,0)
27: ;;=NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X=+$P(X,"E")) X I $D(X),$S($D(DDS)&$G(DA):$P($G(^DIST(.404,DA,0)),U)'=X,1:1),$D(^DIST(.404,"B",X)) K X
28: ;;^DD(.404,.01,1,0)
29: ;;=^.1
30: ;;^DD(.404,.01,1,1,0)
31: ;;=.404^B
32: ;;^DD(.404,.01,1,1,1)
33: ;;=S ^DIST(.404,"B",$E(X,1,30),DA)=""
34: ;;^DD(.404,.01,1,1,2)
35: ;;=K ^DIST(.404,"B",$E(X,1,30),DA)
36: ;;^DD(.404,.01,1,1,"DT")
37: ;;=2900912
38: ;;^DD(.404,.01,3)
39: ;;=Answer must be 3-30 characters in length.
40: ;;^DD(.404,.01,21,0)
41: ;;=^^2^2^2940907^^
42: ;;^DD(.404,.01,21,1,0)
43: ;;=Enter the name of the block, 3-30 characters in length. The block name
44: ;;^DD(.404,.01,21,2,0)
45: ;;=must be unique and cannot be numeric or start with punctuation.
46: ;;^DD(.404,.01,"DEL",1,0)
47: ;;=I '$D(DDSDEL) D EN^DDIOL($C(7)_"You must use the FileMan options to delete blocks.") I 1
48: ;;^DD(.404,.01,"DT")
49: ;;=2931020
50: ;;^DD(.404,1,0)
51: ;;=DATA DICTIONARY NUMBER^FX^^0;2^K:X'=+$P(X,"E")!(X<2)!($L(X)>16)!'$D(^DD(X)) X
52: ;;^DD(.404,1,3)
53: ;;=Answer must be 1-16 characters in length.
54: ;;^DD(.404,1,21,0)
55: ;;=^^3^3^2940907^
56: ;;^DD(.404,1,21,1,0)
57: ;;=Enter the data dictionary number of the file or subfile that contains the
58: ;;^DD(.404,1,21,2,0)
59: ;;=fields that are placed on this block. A block can contain fields from
60: ;;^DD(.404,1,21,3,0)
61: ;;=only one file or subfile.
62: ;;^DD(.404,1,"DT")
63: ;;=2930406
64: ;;^DD(.404,2,0)
65: ;;=DISABLE NAVIGATION^S^0:NO;1:YES;2:OUTOK;^0;3^Q
66: ;;^DD(.404,2,3)
67: ;;=
68: ;;^DD(.404,2,21,0)
69: ;;=^^8^8^2940907^^
70: ;;^DD(.404,2,21,1,0)
71: ;;=Enter 'YES' if navigation within the block should be disabled. When
72: ;;^DD(.404,2,21,2,0)
73: ;;=navigation is disabled, user cannot ^-jump to other fields, they cannot
74: ;;^DD(.404,2,21,3,0)
75: ;;=^-jump to the Command Line, and the <Up>, <Down>, <Tab>, and <PF4> keys
76: ;;^DD(.404,2,21,4,0)
77: ;;=traverse the fields in the same order as the <RET> key -- that is, in the
78: ;;^DD(.404,2,21,5,0)
79: ;;=order established by the Field Order property of the fields.
80: ;;^DD(.404,2,21,6,0)
81: ;;=
82: ;;^DD(.404,2,21,7,0)
83: ;;=Enter 'OUTOK' to disable navigation, but allow the user to ^-jump to the
84: ;;^DD(.404,2,21,8,0)
85: ;;=Command Line.
86: ;;^DD(.404,11,0)
87: ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
88: ;;^DD(.404,11,3)
89: ;;=Enter standard MUMPS code that will be executed when the user navigates to the block.
90: ;;^DD(.404,11,9)
91: ;;=@
92: ;;^DD(.404,11,21,0)
93: ;;=^^6^6^2940907^^
94: ;;^DD(.404,11,21,1,0)
95: ;;=This is MUMPS code that is executed when the user navigates to the
96: ;;^DD(.404,11,21,2,0)
97: ;;=block.
98: ;;^DD(.404,11,21,3,0)
99: ;;=
100: ;;^DD(.404,11,21,4,0)
101: ;;=This pre-action is part of the block definition itself, so if this
102: ;;^DD(.404,11,21,5,0)
103: ;;=block is used on another page or another form, the pre-action still
104: ;;^DD(.404,11,21,6,0)
105: ;;=applies.
106: ;;^DD(.404,12,0)
107: ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
108: ;;^DD(.404,12,3)
109: ;;=Enter standard MUMPS that will be executed when the user leaves the block.
110: ;;^DD(.404,12,9)
111: ;;=@
112: ;;^DD(.404,12,21,0)
113: ;;=^^5^5^2940907^^
114: ;;^DD(.404,12,21,1,0)
115: ;;=This is MUMPS code that is executed when the user leaves the block.
116: ;;^DD(.404,12,21,2,0)
117: ;;=
118: ;;^DD(.404,12,21,3,0)
119: ;;=This post-action is part of the block definition itself, so if the
120: ;;^DD(.404,12,21,4,0)
121: ;;=block is used on another page or on another form, the post-action still
122: ;;^DD(.404,12,21,5,0)
123: ;;=applies.
124: ;;^DD(.404,15,0)
125: ;;=DESCRIPTION^.40415^^15;0
126: ;;^DD(.404,40,0)
127: ;;=FIELD^.4044I^^40;0
128: ;;^DD(.404,40,"DT")
129: ;;=2931029
130: ;;^DD(.40415,0)
131: ;;=DESCRIPTION SUB-FIELD^^.01^1
132: ;;^DD(.40415,0,"DT")
133: ;;=2910204
134: ;;^DD(.40415,0,"NM","DESCRIPTION")
135: ;;=
136: ;;^DD(.40415,0,"UP")
137: ;;=.404
138: ;;^DD(.40415,.01,0)
139: ;;=DESCRIPTION^W^^0;1^Q
140: ;;^DD(.40415,.01,3)
141: ;;=
142: ;;^DD(.40415,.01,21,0)
143: ;;=^^1^1^2940908^^^
144: ;;^DD(.40415,.01,21,1,0)
145: ;;=Enter text that describes this block.
146: ;;^DD(.4044,0)
147: ;;=FIELD SUB-FIELD^^30^32
148: ;;^DD(.4044,0,"DT")
149: ;;=2940625
150: ;;^DD(.4044,0,"ID","WRITE")
151: ;;=D EN^DDIOL($S($P(^(0),U,2)?1"Select "1.E:$E($P(^(0),U,2),8,999),1:$S($P(^(0),U,2)="!M":$G(^(.1)),1:$P(^(0),U,2)))_$S($P(^(0),U,4)]"":" ("_$P(^(0),U,4)_")",1:""),"","?9")
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT298.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman