Annotation of freem_fileman/DINIT296.m, revision 1.1.1.1
1.1 snw 1: DINIT296 ;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="" ^DINIT297 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(.4032,4,3)
7: ;;=Answer must be 1-245 characters in length.
8: ;;^DD(.4032,4,21,0)
9: ;;=^^9^9^2940907^^
10: ;;^DD(.4032,4,21,1,0)
11: ;;=If the fields displayed in this block are reached through a relational
12: ;;^DD(.4032,4,21,2,0)
13: ;;=jump from the primary file of the form, enter the relational expression
14: ;;^DD(.4032,4,21,3,0)
15: ;;=that describes this jump. Your frame of reference is the primary file of
16: ;;^DD(.4032,4,21,4,0)
17: ;;=the form.
18: ;;^DD(.4032,4,21,5,0)
19: ;;=
20: ;;^DD(.4032,4,21,6,0)
21: ;;=For example, if the primary file has a field #999 called TEST that points
22: ;;^DD(.4032,4,21,7,0)
23: ;;=to the file associated with this block, enter
24: ;;^DD(.4032,4,21,8,0)
25: ;;=
26: ;;^DD(.4032,4,21,9,0)
27: ;;= 999 or TEST
28: ;;^DD(.4032,4,"DT")
29: ;;=2931201
30: ;;^DD(.4032,5,0)
31: ;;=REPLICATION^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<2)!(X?.E1"."1N.N) X
32: ;;^DD(.4032,5,3)
33: ;;=Type a Number between 2 and 999, 0 Decimal Digits
34: ;;^DD(.4032,5,21,0)
35: ;;=^^3^3^2940907^^
36: ;;^DD(.4032,5,21,1,0)
37: ;;=If this is a repeating block, enter the number of times the fields
38: ;;^DD(.4032,5,21,2,0)
39: ;;=defined in this block should be replicated. If used, this number must
40: ;;^DD(.4032,5,21,3,0)
41: ;;=be greater than 1.
42: ;;^DD(.4032,5,"DT")
43: ;;=2940503
44: ;;^DD(.4032,6,0)
45: ;;=INDEX^F^^2;2^K:$L(X)>63!($L(X)<1) X
46: ;;^DD(.4032,6,3)
47: ;;=Answer must be 1-63 characters in length.
48: ;;^DD(.4032,6,21,0)
49: ;;=^^7^7^2941020^
50: ;;^DD(.4032,6,21,1,0)
51: ;;=Enter the name of the cross reference that should be used to pick up the
52: ;;^DD(.4032,6,21,2,0)
53: ;;=subentries in the multiple. ScreenMan will initially display the
54: ;;^DD(.4032,6,21,3,0)
55: ;;=subentries to the user sorted in the order defined by this index. The
56: ;;^DD(.4032,6,21,4,0)
57: ;;=default INDEX is B.
58: ;;^DD(.4032,6,21,5,0)
59: ;;=
60: ;;^DD(.4032,6,21,6,0)
61: ;;=If the multiple has no index, or you wish to display the subentries
62: ;;^DD(.4032,6,21,7,0)
63: ;;=in record number order, enter !IEN.
64: ;;^DD(.4032,6,"DT")
65: ;;=2940503
66: ;;^DD(.4032,7,0)
67: ;;=INITIAL POSITION^S^f:FIRST;l:LAST;n:NEW;^2;3^Q
68: ;;^DD(.4032,7,21,0)
69: ;;=^^5^5^2940908^
70: ;;^DD(.4032,7,21,1,0)
71: ;;=This is the position in the list where the cursor should initially rest
72: ;;^DD(.4032,7,21,2,0)
73: ;;=when the user first navigates to the repeating block. Possible values are
74: ;;^DD(.4032,7,21,3,0)
75: ;;=FIRST, LAST, and NEW, where NEW indicates that the cursor should initially
76: ;;^DD(.4032,7,21,4,0)
77: ;;=rest on the blank line at the end of the list. The default INITIAL
78: ;;^DD(.4032,7,21,5,0)
79: ;;=POSITION is FIRST.
80: ;;^DD(.4032,7,"DT")
81: ;;=2940503
82: ;;^DD(.4032,8,0)
83: ;;=DISALLOW LAYGO^S^0:NO;1:YES;^2;4^Q
84: ;;^DD(.4032,8,21,0)
85: ;;=^^3^3^2940907^^
86: ;;^DD(.4032,8,21,1,0)
87: ;;=If set to YES, this prohibits the user from entering new subentries into
88: ;;^DD(.4032,8,21,2,0)
89: ;;=the multiple. If null or set to NO, the setting in the data dictionary
90: ;;^DD(.4032,8,21,3,0)
91: ;;=determines whether LAYGO is allowed.
92: ;;^DD(.4032,8,"DT")
93: ;;=2940505
94: ;;^DD(.4032,9,0)
95: ;;=FIELD FOR SELECTION^F^^2;5^K:$L(X)>30!($L(X)<1) X
96: ;;^DD(.4032,9,3)
97: ;;=Answer must be 1-30 characters in length.
98: ;;^DD(.4032,9,21,0)
99: ;;=^^5^5^2940907^^
100: ;;^DD(.4032,9,21,1,0)
101: ;;=This is the field order of the field that defines the column position of
102: ;;^DD(.4032,9,21,2,0)
103: ;;=the blank line at the end of the list. The default is the first editable
104: ;;^DD(.4032,9,21,3,0)
105: ;;=field in the block. This is also the field before which ScreenMan prints
106: ;;^DD(.4032,9,21,4,0)
107: ;;=the plus sign (+) to indicate there are more entries above or below the
108: ;;^DD(.4032,9,21,5,0)
109: ;;=displayed list.
110: ;;^DD(.4032,9,"DT")
111: ;;=2940506
112: ;;^DD(.4032,11,0)
113: ;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
114: ;;^DD(.4032,11,3)
115: ;;=This is Standard MUMPS code.
116: ;;^DD(.4032,11,9)
117: ;;=@
118: ;;^DD(.4032,11,21,0)
119: ;;=^^5^5^2940907^
120: ;;^DD(.4032,11,21,1,0)
121: ;;=Enter MUMPS code that is executed whenever the user reaches this block.
122: ;;^DD(.4032,11,21,2,0)
123: ;;=
124: ;;^DD(.4032,11,21,3,0)
125: ;;=This pre-action is a characteristic of the block only as it is used on
126: ;;^DD(.4032,11,21,4,0)
127: ;;=this form. If you place this block on another form, you can define a
128: ;;^DD(.4032,11,21,5,0)
129: ;;=different pre-action.
130: ;;^DD(.4032,11,"DT")
131: ;;=2930610
132: ;;^DD(.4032,12,0)
133: ;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
134: ;;^DD(.4032,12,3)
135: ;;=This is Standard MUMPS code.
136: ;;^DD(.4032,12,9)
137: ;;=@
138: ;;^DD(.4032,12,21,0)
139: ;;=^^5^5^2940907^
140: ;;^DD(.4032,12,21,1,0)
141: ;;=Enter MUMPS code that is executed whenever the user leaves this block.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT296.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman