Annotation of freem_fileman/DINIT126.m, revision 1.1.1.1
1.1 snw 1: DINIT126 ;SFISC/TKW - INITIALIZE V21 SORT TEMPLATE DD NODES ;6/24/94 11:17
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) Q:X="" 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(.4014,21,21,11,0)
7: ;;=The flag is set automatically when the user is entering the sort fields in
8: ;;^DD(.4014,21,21,12,0)
9: ;;=^DIP, and the from/to values in ^DIP1.
10: ;;^DD(.4014,21,"DT")
11: ;;=2931221
12: ;;^DD(.40141,0)
13: ;;=MULTIPLE FIELD DATA SUB-FIELD^^1^2
14: ;;^DD(.40141,0,"DT")
15: ;;=2930201
16: ;;^DD(.40141,0,"IX","B",.40141,.01)
17: ;;=
18: ;;^DD(.40141,0,"NM","MULTIPLE FIELD DATA")
19: ;;=
20: ;;^DD(.40141,0,"UP")
21: ;;=.4014
22: ;;^DD(.40141,.01,0)
23: ;;=MULT.FILE OR SUBFILE NO.^MNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
24: ;;^DD(.40141,.01,1,0)
25: ;;=^.1
26: ;;^DD(.40141,.01,1,1,0)
27: ;;=.40141^B
28: ;;^DD(.40141,.01,1,1,1)
29: ;;=S ^DIBT(DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
30: ;;^DD(.40141,.01,1,1,2)
31: ;;=K ^DIBT(DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
32: ;;^DD(.40141,.01,3)
33: ;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits. This is the file/subfile number when sorting by a multiple field.
34: ;;^DD(.40141,.01,21,0)
35: ;;=^^4^4^2930201^
36: ;;^DD(.40141,.01,21,1,0)
37: ;;=All files or subfiles needed to get back up to the top level from a
38: ;;^DD(.40141,.01,21,2,0)
39: ;;=multiple field will be represented by an entry in this field. The
40: ;;^DD(.40141,.01,21,3,0)
41: ;;=file or subfile number will be used as a subscript in the DPP array
42: ;;^DD(.40141,.01,21,4,0)
43: ;;=during the sort/print processing.
44: ;;^DD(.40141,.01,"DT")
45: ;;=2930201
46: ;;^DD(.40141,1,0)
47: ;;=NODE^F^^0;2^K:$L(X)>50!($L(X)<1) X
48: ;;^DD(.40141,1,3)
49: ;;=Answer must be 1-50 characters in length. This is the node from which the data is descendant.
50: ;;^DD(.40141,1,21,0)
51: ;;=^^1^1^2930201^
52: ;;^DD(.40141,1,21,1,0)
53: ;;=This field contains the node from which the multiple data is descendant.
54: ;;^DD(.40141,1,"DT")
55: ;;=2930201
56: ;;^DD(.401418,0)
57: ;;=RELATIONAL JUMP FIELD DATA SUB-FIELD^^5^6
58: ;;^DD(.401418,0,"DT")
59: ;;=2930201
60: ;;^DD(.401418,0,"IX","B",.401418,.01)
61: ;;=
62: ;;^DD(.401418,0,"NM","RELATIONAL JUMP FIELD DATA")
63: ;;=
64: ;;^DD(.401418,0,"UP")
65: ;;=.4014
66: ;;^DD(.401418,.01,0)
67: ;;=RELATIONAL START FILE NO.^MNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
68: ;;^DD(.401418,.01,1,0)
69: ;;=^.1
70: ;;^DD(.401418,.01,1,1,0)
71: ;;=.401418^B
72: ;;^DD(.401418,.01,1,1,1)
73: ;;=S ^DIBT(DA(2),2,DA(1),2,"B",$E(X,1,30),DA)=""
74: ;;^DD(.401418,.01,1,1,2)
75: ;;=K ^DIBT(DA(2),2,DA(1),2,"B",$E(X,1,30),DA)
76: ;;^DD(.401418,.01,3)
77: ;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits
78: ;;^DD(.401418,.01,21,0)
79: ;;=^^3^3^2930201^^^^
80: ;;^DD(.401418,.01,21,1,0)
81: ;;=Data will appear here if sorting by a field that must be gotten to using
82: ;;^DD(.401418,.01,21,2,0)
83: ;;=a relational jump. This will be the file or subfile number from which
84: ;;^DD(.401418,.01,21,3,0)
85: ;;=the user is jumping (i.e., the starting point).
86: ;;^DD(.401418,.01,23,0)
87: ;;=^^1^1^2930201^
88: ;;^DD(.401418,.01,23,1,0)
89: ;;=Built in COLON^DIP0 during the sort/print.
90: ;;^DD(.401418,.01,"DT")
91: ;;=2930201
92: ;;^DD(.401418,1,0)
93: ;;=NEXT SUBSCRIPT^RNJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
94: ;;^DD(.401418,1,3)
95: ;;=Type a Number between 0 and 9999999, 0 Decimal Digits. Subscript used in the DPP array during the sort/print option.
96: ;;^DD(.401418,1,21,0)
97: ;;=^^4^4^2930201^
98: ;;^DD(.401418,1,21,1,0)
99: ;;=This field contains a subscript used n the DPP array during the
100: ;;^DD(.401418,1,21,2,0)
101: ;;=sort/print. The subscript is generated by DICOMP (using the level
102: ;;^DD(.401418,1,21,3,0)
103: ;;=number multiplied by 100 I think). It results in building a node
104: ;;^DD(.401418,1,21,4,0)
105: ;;=like DPP(DJ,file/subfile no.,subscript)=data.
106: ;;^DD(.401418,1,23,0)
107: ;;=^^1^1^2930201^
108: ;;^DD(.401418,1,23,1,0)
109: ;;=Built by COLON^DIP0 routine.
110: ;;^DD(.401418,1,"DT")
111: ;;=2930201
112: ;;^DD(.401418,2,0)
113: ;;=TO FILE OR SUBFILE^NJ13,5^^0;3^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
114: ;;^DD(.401418,2,3)
115: ;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits. The file or subfile number to which we are jumping using a relational jump.
116: ;;^DD(.401418,2,21,0)
117: ;;=^^2^2^2930201^
118: ;;^DD(.401418,2,21,1,0)
119: ;;=This field contains the file or subfile number to which we are making
120: ;;^DD(.401418,2,21,2,0)
121: ;;=the relational jump (i.e., the destination file).
122: ;;^DD(.401418,2,23,0)
123: ;;=^^1^1^2930201^^
124: ;;^DD(.401418,2,23,1,0)
125: ;;=Built in COLON^DIP0 during the sort/print.
126: ;;^DD(.401418,2,"DT")
127: ;;=2930201
128: ;;^DD(.401418,3,0)
129: ;;=GLOBAL REFERENCE^F^^0;4^K:$L(X)>50!($L(X)<1) X
130: ;;^DD(.401418,3,3)
131: ;;=Answer must be 1-50 characters in length. Contains the global reference of the file to which we are jumping relationally.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT126.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman