Annotation of freem_fileman/DINIT29A.m, revision 1.1.1.1
1.1 snw 1: DINIT29A ;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="" ^DINIT29B 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,3,21,0)
7: ;;=^^10^10^2940907^
8: ;;^DD(.4044,3,21,1,0)
9: ;;=Display group helps users resolve ambiguity when they attempt to ^-jump to
10: ;;^DD(.4044,3,21,2,0)
11: ;;=a field that has a caption that is not unique. If more than one field has
12: ;;^DD(.4044,3,21,3,0)
13: ;;=the same caption, when users try to ^-jump to a field with that caption,
14: ;;^DD(.4044,3,21,4,0)
15: ;;=they are presented with a list of fields to choose from. The text in the
16: ;;^DD(.4044,3,21,5,0)
17: ;;=Display Group property is displayed in parentheses after the caption to
18: ;;^DD(.4044,3,21,6,0)
19: ;;=help the user identify the correct field.
20: ;;^DD(.4044,3,21,7,0)
21: ;;=
22: ;;^DD(.4044,3,21,8,0)
23: ;;=For example, if two fields have the caption 'NAME:', but one of those
24: ;;^DD(.4044,3,21,9,0)
25: ;;=fields has a Display Group 'Next of Kin', when users enter ^NAME, they
26: ;;^DD(.4044,3,21,10,0)
27: ;;=will be asked to choose between 'NAME' and 'NAME (Next of Kin)'.
28: ;;^DD(.4044,3.1,0)
29: ;;=UNIQUE NAME^FX^^0;5^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!$D(^DIST(.404,DA(1),40,"D",X)) X
30: ;;^DD(.4044,3.1,1,0)
31: ;;=^.1
32: ;;^DD(.4044,3.1,1,1,0)
33: ;;=.4044^D^MUMPS
34: ;;^DD(.4044,3.1,1,1,1)
35: ;;=S ^DIST(.404,DA(1),40,"D",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
36: ;;^DD(.4044,3.1,1,1,2)
37: ;;=K ^DIST(.404,DA(1),40,"D",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
38: ;;^DD(.4044,3.1,1,1,3)
39: ;;=Programmer only
40: ;;^DD(.4044,3.1,1,1,"%D",0)
41: ;;=^^1^1^2930816^
42: ;;^DD(.4044,3.1,1,1,"%D",1,0)
43: ;;=This is a regular index of the Unique Name converted to uppercase.
44: ;;^DD(.4044,3.1,1,1,"DT")
45: ;;=2930816
46: ;;^DD(.4044,3.1,3)
47: ;;=Answer must be 1-50 characters in length.
48: ;;^DD(.4044,3.1,21,0)
49: ;;=^^5^5^2940907^
50: ;;^DD(.4044,3.1,21,1,0)
51: ;;=This is the unique name of the element on the block. No two elements on
52: ;;^DD(.4044,3.1,21,2,0)
53: ;;=the block can have the same Unique Name. Unique Names are never seen by
54: ;;^DD(.4044,3.1,21,3,0)
55: ;;=the user. You can refer to an element on a block by its Unique Name in
56: ;;^DD(.4044,3.1,21,4,0)
57: ;;=some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and
58: ;;^DD(.4044,3.1,21,5,0)
59: ;;=in the computed expressions of computed fields.
60: ;;^DD(.4044,3.1,"DT")
61: ;;=2930816
62: ;;^DD(.4044,4,0)
63: ;;=FIELD^FX^^1;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X),$D(DDGFDD) D IXF^DDS0
64: ;;^DD(.4044,4,1,0)
65: ;;=^.1^^0
66: ;;^DD(.4044,4,3)
67: ;;=Answer must be 1-245 characters in length.
68: ;;^DD(.4044,4,4)
69: ;;=I $D(DDGFDD) N D0,DA,DIC,D,DZ S DIC="^DD("_DDGFDD_",",DIC(0)="",D="B" S:$G(X)="??" DZ=X D DQ^DICQ
70: ;;^DD(.4044,4,21,0)
71: ;;=^^2^2^2940907^
72: ;;^DD(.4044,4,21,1,0)
73: ;;=Enter the number or name of a field in the file defined by the data
74: ;;^DD(.4044,4,21,2,0)
75: ;;=dictionary number for this block.
76: ;;^DD(.4044,4,"DT")
77: ;;=2940823
78: ;;^DD(.4044,4.1,0)
79: ;;=DATA COORDINATE^F^^2;1^K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
80: ;;^DD(.4044,4.1,3)
81: ;;=Enter the field coordinate relative to the block. Answer must be two positive integers separated by a comma (,), as follows: 'Row,Column'.
82: ;;^DD(.4044,4.1,21,0)
83: ;;=^^2^2^2940907^
84: ;;^DD(.4044,4.1,21,1,0)
85: ;;=Data coordinate is relative to the position of the block. The top left
86: ;;^DD(.4044,4.1,21,2,0)
87: ;;=corner of the block has a coordinate of 1,1.
88: ;;^DD(.4044,4.1,"DT")
89: ;;=2940908
90: ;;^DD(.4044,4.2,0)
91: ;;=DATA LENGTH^NJ3,0^^2;2^K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X
92: ;;^DD(.4044,4.2,3)
93: ;;=Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be displayed on the screen.
94: ;;^DD(.4044,4.2,21,0)
95: ;;=^^4^4^2940907^^
96: ;;^DD(.4044,4.2,21,1,0)
97: ;;=The data length defines the size of the editing window. The editing
98: ;;^DD(.4044,4.2,21,2,0)
99: ;;=window is a single line and must not extend into or beyond the rightmost
100: ;;^DD(.4044,4.2,21,3,0)
101: ;;=column on the screen. On an 80 column screen, the editing window
102: ;;^DD(.4044,4.2,21,4,0)
103: ;;=must not extend beyond column 79.
104: ;;^DD(.4044,5.1,0)
105: ;;=CAPTION COORDINATE^F^^2;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
106: ;;^DD(.4044,5.1,1,0)
107: ;;=^.1^^0
108: ;;^DD(.4044,5.1,3)
109: ;;=Enter the caption coordinate relative to the block. Answer must be two positive integers separated by a comma (,), as follows: 'Row,Column'.
110: ;;^DD(.4044,5.1,21,0)
111: ;;=^^2^2^2940907^^
112: ;;^DD(.4044,5.1,21,1,0)
113: ;;=Caption coordinate is relative to the position of the block. The
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT29A.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman