Annotation of freem_fileman/DINIT123.m, revision 1.1
1.1 ! snw 1: DINIT123 ;SFISC/TKW - INITIALIZE V21 SORT TEMPLATE DD NODES ;6/24/94 11:15
! 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,7,3)
! 7: ;;=Answer must be 1-63 characters in length. The ending point for the sort, derived by FileMan.
! 8: ;;^DD(.4014,7,21,0)
! 9: ;;=^^3^3^2930115^
! 10: ;;^DD(.4014,7,21,1,0)
! 11: ;;=FileMan usually uses the TO value as entered by the user, but in the
! 12: ;;^DD(.4014,7,21,2,0)
! 13: ;;=case of dates and sets of codes, the internal value is used. This field
! 14: ;;^DD(.4014,7,21,3,0)
! 15: ;;=tells FileMan the ending point for the sort.
! 16: ;;^DD(.4014,7,"DT")
! 17: ;;=2930119
! 18: ;;^DD(.4014,8,0)
! 19: ;;=TO VALUE EXTERNAL^F^^T;2^K:$L(X)>63!($L(X)<1) X
! 20: ;;^DD(.4014,8,3)
! 21: ;;=Answer must be 1-63 characters in length. The ending point for the sort, as entered by the user.
! 22: ;;^DD(.4014,8,21,0)
! 23: ;;=^^1^1^2930115^
! 24: ;;^DD(.4014,8,21,1,0)
! 25: ;;=The ending value for the sort, as entered by the user.
! 26: ;;^DD(.4014,8,"DT")
! 27: ;;=2930119
! 28: ;;^DD(.4014,8.5,0)
! 29: ;;=TO VALUE PRINTABLE^F^^T;3^K:$L(X)>40!($L(X)<1) X
! 30: ;;^DD(.4014,8.5,3)
! 31: ;;=Answer must be 1-40 characters in length. Used for storing printable form of date and set values.
! 32: ;;^DD(.4014,8.5,21,0)
! 33: ;;=^^3^3^2930216^
! 34: ;;^DD(.4014,8.5,21,1,0)
! 35: ;;=This field is used to store a printable representation of the TO value
! 36: ;;^DD(.4014,8.5,21,2,0)
! 37: ;;=entered by the user during the sort/print dialogue. Used for date and
! 38: ;;^DD(.4014,8.5,21,3,0)
! 39: ;;=set-of-code data types.
! 40: ;;^DD(.4014,8.5,23,0)
! 41: ;;=^^1^1^2930216^
! 42: ;;^DD(.4014,8.5,23,1,0)
! 43: ;;=Created in CK^DIP12.
! 44: ;;^DD(.4014,8.5,"DT")
! 45: ;;=2930216
! 46: ;;^DD(.4014,9,0)
! 47: ;;=CROSS REFERENCE DATA^F^^IX;E1,245^K:$L(X)>245!($L(X)<1) X
! 48: ;;^DD(.4014,9,3)
! 49: ;;=First ^ piece null, second piece=static part of cross-reference, third piece=global reference, 4th piece=number of variable subscripts to get to (and including) record number.
! 50: ;;^DD(.4014,9,21,0)
! 51: ;;=^^8^8^2930115^
! 52: ;;^DD(.4014,9,21,1,0)
! 53: ;;= Piece 1 is always null
! 54: ;;^DD(.4014,9,21,2,0)
! 55: ;;= Piece 2 is the static part of the cross-reference: ex. DIZ(662001,"B",
! 56: ;;^DD(.4014,9,21,3,0)
! 57: ;;= Piece 3 is the global reference: ex. DIZ(662001,
! 58: ;;^DD(.4014,9,21,4,0)
! 59: ;;= Piece 4 tells FileMan how many variable subscripts must be sorted
! 60: ;;^DD(.4014,9,21,5,0)
! 61: ;;=through to get to the record number, plus 1 for the record number
! 62: ;;^DD(.4014,9,21,6,0)
! 63: ;;=itself. ex. for a regular cross-reference, ^DIZ(662001,"B",X,DA),
! 64: ;;^DD(.4014,9,21,7,0)
! 65: ;;=the number is 2. One for the value of the X subscript, and one for the
! 66: ;;^DD(.4014,9,21,8,0)
! 67: ;;=record number itself (DA).
! 68: ;;^DD(.4014,9,23,0)
! 69: ;;=^^6^6^2930115^
! 70: ;;^DD(.4014,9,23,1,0)
! 71: ;;=The IX nodes are normally derived by FileMan during the entry of sort
! 72: ;;^DD(.4014,9,23,2,0)
! 73: ;;=fields (in routine XR^DIP). However, they can also be passed to the
! 74: ;;^DD(.4014,9,23,3,0)
! 75: ;;=print (^DIP) in the BY(0) variable to cause FileMan to either use a MUMPS
! 76: ;;^DD(.4014,9,23,4,0)
! 77: ;;=type cross-reference, or a previously sorted list of record numbers.
! 78: ;;^DD(.4014,9,23,5,0)
! 79: ;;=Fileman sometimes builds the IX node prior to calling the print, as in
! 80: ;;^DD(.4014,9,23,6,0)
! 81: ;;=the INQUIRE option, where the user then goes on to print the records.
! 82: ;;^DD(.4014,9,"DT")
! 83: ;;=2930115
! 84: ;;^DD(.4014,9.5,0)
! 85: ;;=POINT TO CROSS REFERENCE^F^^PTRIX;E1,245^K:$L(X)>245!($L(X)<1) X
! 86: ;;^DD(.4014,9.5,3)
! 87: ;;=Enter global reference for "B" index of .01 field on pointed-to file. Answer must be 1-245 characters in length.
! 88: ;;^DD(.4014,9.5,21,0)
! 89: ;;=^^7^7^2931221^
! 90: ;;^DD(.4014,9.5,21,1,0)
! 91: ;;=This node will exist only if the sort field is a pointer, if the sort
! 92: ;;^DD(.4014,9.5,21,2,0)
! 93: ;;=field has a regular cross-reference, if the .01 field on the pointed-to
! 94: ;;^DD(.4014,9.5,21,3,0)
! 95: ;;=file has a "B" index, and if the .01 field on the pointed-to file is
! 96: ;;^DD(.4014,9.5,21,4,0)
! 97: ;;=either a numeric, date, set-of-codes or free-text field, and does not have
! 98: ;;^DD(.4014,9.5,21,5,0)
! 99: ;;=an output transform. If this node exists, it will be set to the static
! 100: ;;^DD(.4014,9.5,21,6,0)
! 101: ;;=part of the global reference of the "B" index on the pointed-to file. (ex.
! 102: ;;^DD(.4014,9.5,21,7,0)
! 103: ;;=^DIZ(662001,"B",).
! 104: ;;^DD(.4014,9.5,"DT")
! 105: ;;=2931221
! 106: ;;^DD(.4014,10,0)
! 107: ;;=GET CODE^K^^GET;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
! 108: ;;^DD(.4014,10,3)
! 109: ;;=This is Standard MUMPS code used to extract the sort field from a record.
! 110: ;;^DD(.4014,10,9)
! 111: ;;=@
! 112: ;;^DD(.4014,10,21,0)
! 113: ;;=^^3^3^2930115^
! 114: ;;^DD(.4014,10,21,1,0)
! 115: ;;=The GET CODE is MUMPS code that is executed after a record (or sub-record)
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT123.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman