Return to DINIT121.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT121	;SFISC/TKW - INITIALIZE V21 SORT TEMPLATE DD NODES ;6/24/94  11:05
    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(.401,1816,3)
    7: 	;;=Entry must be 'DISZ'.
    8: 	;;^DD(.401,1816,21,0)
    9: 	;;=^^4^4^2930331^^
   10: 	;;^DD(.401,1816,21,1,0)
   11: 	;;=This node is present only to be consistant with other sort templates.
   12: 	;;^DD(.401,1816,21,2,0)
   13: 	;;=It's presence will indicate that at some time the SORT template was
   14: 	;;^DD(.401,1816,21,3,0)
   15: 	;;=compiled and will contain the beginning characters used to create the
   16: 	;;^DD(.401,1816,21,4,0)
   17: 	;;=name of the compiled routine.
   18: 	;;^DD(.401,1816,"DT")
   19: 	;;=2930416
   20: 	;;^DD(.401,1819,0)
   21: 	;;=COMPILED^CJ3^^ ; ^S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
   22: 	;;^DD(.401,1819,9)
   23: 	;;=^
   24: 	;;^DD(.401,1819,9.01)
   25: 	;;=
   26: 	;;^DD(.401,1819,9.1)
   27: 	;;=S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
   28: 	;;^DD(.4014,0)
   29: 	;;=SORT FIELD DATA SUB-FIELD^^9.5^27
   30: 	;;^DD(.4014,0,"DT")
   31: 	;;=2931221
   32: 	;;^DD(.4014,0,"IX","B",.4014,.01)
   33: 	;;=
   34: 	;;^DD(.4014,0,"NM","SORT FIELD DATA")
   35: 	;;=
   36: 	;;^DD(.4014,0,"UP")
   37: 	;;=.401
   38: 	;;^DD(.4014,.01,0)
   39: 	;;=FILE OR SUBFILE NO.^MRNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
   40: 	;;^DD(.4014,.01,1,0)
   41: 	;;=^.1
   42: 	;;^DD(.4014,.01,1,1,0)
   43: 	;;=.4014^B
   44: 	;;^DD(.4014,.01,1,1,1)
   45: 	;;=S ^DIBT(DA(1),2,"B",$E(X,1,30),DA)=""
   46: 	;;^DD(.4014,.01,1,1,2)
   47: 	;;=K ^DIBT(DA(1),2,"B",$E(X,1,30),DA)
   48: 	;;^DD(.4014,.01,3)
   49: 	;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  File or subfile number on which sort field resides.
   50: 	;;^DD(.4014,.01,21,0)
   51: 	;;=^^3^3^2930125^^
   52: 	;;^DD(.4014,.01,21,1,0)
   53: 	;;=This is the number of the file or subfile on which the sort field
   54: 	;;^DD(.4014,.01,21,2,0)
   55: 	;;=resides.  It is created automatically during the SORT FIELDS dialogue
   56: 	;;^DD(.4014,.01,21,3,0)
   57: 	;;=with the user in the sort/print option.
   58: 	;;^DD(.4014,.01,23,0)
   59: 	;;=^^1^1^2930125^^
   60: 	;;^DD(.4014,.01,23,1,0)
   61: 	;;=This number is automatically assigned by the print routine DIP.
   62: 	;;^DD(.4014,.01,"DT")
   63: 	;;=2930125
   64: 	;;^DD(.4014,2,0)
   65: 	;;=FIELD NO.^NJ13,5^^0;2^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X
   66: 	;;^DD(.4014,2,3)
   67: 	;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  Sort field number, except for pointers, variable pointers and computed fields.
   68: 	;;^DD(.4014,2,21,0)
   69: 	;;=^^4^4^2930125^
   70: 	;;^DD(.4014,2,21,1,0)
   71: 	;;=On most sort fields, this piece will contain the field number.  If sorting
   72: 	;;^DD(.4014,2,21,2,0)
   73: 	;;=on a pointer, variable pointer or computed field, the piece will be null.
   74: 	;;^DD(.4014,2,21,3,0)
   75: 	;;=If sorting on the record number (NUMBER or .001), the piece will contain
   76: 	;;^DD(.4014,2,21,4,0)
   77: 	;;=a 0.
   78: 	;;^DD(.4014,2,23,0)
   79: 	;;=^^1^1^2930125^
   80: 	;;^DD(.4014,2,23,1,0)
   81: 	;;=Created by FileMan during the print option (in the DIP* routines).
   82: 	;;^DD(.4014,2,"DT")
   83: 	;;=2930125
   84: 	;;^DD(.4014,3,0)
   85: 	;;=FIELD NAME^F^^0;3^K:$L(X)>100!($L(X)<1) X
   86: 	;;^DD(.4014,3,3)
   87: 	;;=Answer must be 1-100 characters in length.
   88: 	;;^DD(.4014,3,21,0)
   89: 	;;=^^2^2^2930125^
   90: 	;;^DD(.4014,3,21,1,0)
   91: 	;;=This piece contains the sort field name, or the user entry if sorting by
   92: 	;;^DD(.4014,3,21,2,0)
   93: 	;;=an on-the-fly computed field.
   94: 	;;^DD(.4014,3,23,0)
   95: 	;;=^^1^1^2930125^
   96: 	;;^DD(.4014,3,23,1,0)
   97: 	;;=Created by FileMan during the print option (DIP* routines).
   98: 	;;^DD(.4014,3,"DT")
   99: 	;;=2930125
  100: 	;;^DD(.4014,4,0)
  101: 	;;=SORT QUALIFIERS BEFORE FIELD^F^^0;4^K:$L(X)>20!($L(X)<1) X
  102: 	;;^DD(.4014,4,3)
  103: 	;;=Answer must be 1-20 characters in length.  Sort qualifiers that normally precede the field number in the user dialogue (like !,@,#,+)
  104: 	;;^DD(.4014,4,21,0)
  105: 	;;=^^5^5^2930125^^^
  106: 	;;^DD(.4014,4,21,1,0)
  107: 	;;=This contains all of the sort qualifiers that normally precede the field
  108: 	;;^DD(.4014,4,21,2,0)
  109: 	;;=number in the user dialogue during the sort option.  It includes things
  110: 	;;^DD(.4014,4,21,3,0)
  111: 	;;=like # (Page break when sort value changes), @ (suppress printing of
  112: 	;;^DD(.4014,4,21,4,0)
  113: 	;;=subheader).  These qualifiers are listed out with no delimiters, as they
  114: 	;;^DD(.4014,4,21,5,0)
  115: 	;;=are found during the user dialogue.  (So you might see something like #@).
  116: 	;;^DD(.4014,4,23,0)
  117: 	;;=^^2^2^2930125^^
  118: 	;;^DD(.4014,4,23,1,0)
  119: 	;;=This information is parsed from the user dialogue or from the BY
  120: 	;;^DD(.4014,4,23,2,0)
  121: 	;;=input variable, by the FileMan print routines DIP*.
  122: 	;;^DD(.4014,4,"DT")
  123: 	;;=2930125
  124: 	;;^DD(.4014,4.1,0)
  125: 	;;=SORT QUALIFIERS AFTER FIELD^F^^0;5^K:$L(X)>70!($L(X)<1) X
  126: 	;;^DD(.4014,4.1,3)
  127: 	;;=Answer must be 1-70 characters in length.  Sort qualifiers that normally come after the field in the user dialogue (such as ;Cn, ;Ln, ;"Literal Subheader")