source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT122.m@ 1769

DINIT122 ;SFISC/MKO-SORT TEMPLATE FILE ;1:13 PM  13 Nov 1998

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 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

 G ^DINIT123

Q Q

 ;;^DD(.4011624,3.1,21,3,0)

 ;;=the sort qualifiers for page breaks (#) or rankings (!).  

 ;;^DD(.4011624,3.1,21,4,0)

 ;;= 

 ;;^DD(.4011624,3.1,21,5,0)

 ;;=The # and/or ! are the only qualifiers that can be used.  Others,

 ;;^DD(.4011624,3.1,21,6,0)

 ;;=such as + for subtotals, cannot be used.

 ;;^DD(.4011624,3.1,23,0)

 ;;=^^1^1^2960910^^

 ;;^DD(.4011624,3.1,23,1,0)

 ;;=Equivalent to the 1st piece of DISPAR(0,n) in the EN1^DIP call.

 ;;^DD(.4011624,3.1,"DT")

 ;;=2960910

 ;;^DD(.4011624,3.2,0)

 ;;=DISPAR(0,n) PIECE TWO^FX^^1;2^K:$L(X)>50!($L(X)<1)!'((X[";""")!(X[";L")!(X[";C")!(X[";S")) X

 ;;^DD(.4011624,3.2,3)

 ;;=Answer with qualifiers like ;"" or ;S2;C10;L30;"VALUE: "

 ;;^DD(.4011624,3.2,21,0)

 ;;=^^12^12^2960910^^^

 ;;^DD(.4011624,3.2,21,1,0)

 ;;=As when defining the second piece of DISPAR(0,n) in a programmer

 ;;^DD(.4011624,3.2,21,2,0)

 ;;=call that includes BY(0) when calling EN1^DIP, this field can hold

 ;;^DD(.4011624,3.2,21,3,0)

 ;;=the sort qualifiers that normally appear after a sort-by field in

 ;;^DD(.4011624,3.2,21,4,0)

 ;;=interactive mode.  The ones that can be used are as follows:

 ;;^DD(.4011624,3.2,21,5,0)

 ;;= 

 ;;^DD(.4011624,3.2,21,6,0)

 ;;= ;""         to have the subheader appear

 ;;^DD(.4011624,3.2,21,7,0)

 ;;= ;"caption"  to give the subheader a caption

 ;;^DD(.4011624,3.2,21,8,0)

 ;;= ;Ln         to left-justify the subheader to n characters

 ;;^DD(.4011624,3.2,21,9,0)

 ;;= ;Cn         to start the display in the nth column

 ;;^DD(.4011624,3.2,21,10,0)

 ;;= ;Sn         to skip n lines before each subheader

 ;;^DD(.4011624,3.2,21,11,0)

 ;;= 

 ;;^DD(.4011624,3.2,21,12,0)

 ;;=If this field is null, subheaders are supressed (@ is assumed).

 ;;^DD(.4011624,3.2,23,0)

 ;;=^^3^3^2960910^^^

 ;;^DD(.4011624,3.2,23,1,0)

 ;;=Equivalent to the 2nd piece of DISPAR(0,n) in the EN1^DIP call.

 ;;^DD(.4011624,3.2,23,2,0)

 ;;=Note that if DISPAR(0,n) is defined, subheaders will appear even if

 ;;^DD(.4011624,3.2,23,3,0)

 ;;=used with a print template that normally suppresses subheaders.

 ;;^DD(.4011624,3.2,"DT")

 ;;=2960911

 ;;^DD(.4011624,4,0)

 ;;=DISPAR(0,n,OUT)^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 ;;^DD(.4011624,4,3)

 ;;=Enter code to transform subscript.  This is Standard M code.

 ;;^DD(.4011624,4,9)

 ;;=@

 ;;^DD(.4011624,4,21,0)

 ;;=^^7^7^2960829^^^^

 ;;^DD(.4011624,4,21,1,0)

 ;;=As when defining DISPAR(0,n,"OUT") for a call to EN1^DIP that includes

 ;;^DD(.4011624,4,21,2,0)

 ;;=BY(0), enter M code that will transform the sort-by value for this 

 ;;^DD(.4011624,4,21,3,0)

 ;;=subscript (n) when it is output (e.g. printed).  At the time

 ;;^DD(.4011624,4,21,4,0)

 ;;=the code is executed the untransformed value of the subscript will be in

 ;;^DD(.4011624,4,21,5,0)

 ;;=Y.  The code should put the transformed value back into Y.

 ;;^DD(.4011624,4,21,6,0)

 ;;= 

 ;;^DD(.4011624,4,21,7,0)

 ;;=For example, for an inverse date, S:Y Y=99999999-Y S Y=$$FMTE^XLFDT(Y)"

 ;;^DD(.4011624,4,23,0)

 ;;=^^2^2^2960829^^^^

 ;;^DD(.4011624,4,23,1,0)

 ;;=Equivalent to the DISPAR(0,n,"OUT") input variable to the programmer call

 ;;^DD(.4011624,4,23,2,0)

 ;;=EN1^DIP.

 ;;^DD(.4011624,4,"DT")

 ;;=2960829

 ;;^DD(.4012,0)

 ;;=DESCRIPTION SUB-FIELD^^.01^1

 ;;^DD(.4012,0,"NM","DESCRIPTION")

 ;;=

 ;;^DD(.4012,0,"UP")

 ;;=.401

 ;;^DD(.4012,.01,0)

 ;;=DESCRIPTION^W^^0;1^Q

 ;;^DD(.4014,0)

 ;;=SORT FIELD DATA SUB-FIELD^^21^27

 ;;^DD(.4014,0,"DT")

 ;;=2931221

 ;;^DD(.4014,0,"IX","B",.4014,.01)

 ;;=

 ;;^DD(.4014,0,"NM","SORT FIELD DATA")

 ;;=

 ;;^DD(.4014,0,"UP")

 ;;=.401

 ;;^DD(.4014,.01,0)

 ;;=FILE OR SUBFILE NO.^MRNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X

 ;;^DD(.4014,.01,1,0)

 ;;=^.1

 ;;^DD(.4014,.01,1,1,0)

 ;;=.4014^B

 ;;^DD(.4014,.01,1,1,1)

 ;;=S ^DIBT(DA(1),2,"B",$E(X,1,30),DA)=""

 ;;^DD(.4014,.01,1,1,2)

 ;;=K ^DIBT(DA(1),2,"B",$E(X,1,30),DA)

 ;;^DD(.4014,.01,3)

 ;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  File or subfile number on which sort field resides.

 ;;^DD(.4014,.01,21,0)

 ;;=^^3^3^2930125^^

 ;;^DD(.4014,.01,21,1,0)

 ;;=This is the number of the file or subfile on which the sort field

 ;;^DD(.4014,.01,21,2,0)

 ;;=resides.  It is created automatically during the SORT FIELDS dialogue

 ;;^DD(.4014,.01,21,3,0)

 ;;=with the user in the sort/print option.

 ;;^DD(.4014,.01,23,0)

 ;;=^^1^1^2930125^^

 ;;^DD(.4014,.01,23,1,0)

 ;;=This number is automatically assigned by the print routine DIP.

 ;;^DD(.4014,.01,"DT")

 ;;=2930125

 ;;^DD(.4014,2,0)

 ;;=FIELD NO.^NJ13,5^^0;2^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"."6N.N) X

 ;;^DD(.4014,2,3)

 ;;=Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  Sort field number, except for pointers, variable pointers and computed fields.

 ;;^DD(.4014,2,21,0)

 ;;=^^4^4^2930125^

 ;;^DD(.4014,2,21,1,0)

 ;;=On most sort fields, this piece will contain the field number.  If sorting

 ;;^DD(.4014,2,21,2,0)

 ;;=on a pointer, variable pointer or computed field, the piece will be null.

 ;;^DD(.4014,2,21,3,0)

 ;;=If sorting on the record number (NUMBER or .001), the piece will contain

 ;;^DD(.4014,2,21,4,0)

 ;;=a 0.

 ;;^DD(.4014,2,23,0)

 ;;=^^1^1^2930125^

 ;;^DD(.4014,2,23,1,0)

 ;;=Created by FileMan during the print option (in the DIP* routines).

 ;;^DD(.4014,2,"DT")

 ;;=2930125

 ;;^DD(.4014,3,0)

 ;;=FIELD NAME^F^^0;3^K:$L(X)>100!($L(X)<1) X

 ;;^DD(.4014,3,3)

 ;;=Answer must be 1-100 characters in length.

 ;;^DD(.4014,3,21,0)

 ;;=^^2^2^2930125^

 ;;^DD(.4014,3,21,1,0)

 ;;=This piece contains the sort field name, or the user entry if sorting by

 ;;^DD(.4014,3,21,2,0)

 ;;=an on-the-fly computed field.

 ;;^DD(.4014,3,23,0)

 ;;=^^1^1^2930125^

 ;;^DD(.4014,3,23,1,0)

 ;;=Created by FileMan during the print option (DIP* routines).

 ;;^DD(.4014,3,"DT")

 ;;=2930125

 ;;^DD(.4014,4,0)

 ;;=SORT QUALIFIERS BEFORE FIELD^F^^0;4^K:$L(X)>20!($L(X)<1) X

 ;;^DD(.4014,4,3)

 ;;=Answer must be 1-20 characters in length.  Sort qualifiers that normally precede the field number in the user dialogue (like !,@,#,+)

 ;;^DD(.4014,4,21,0)

 ;;=^^5^5^2930125^^^

 ;;^DD(.4014,4,21,1,0)

 ;;=This contains all of the sort qualifiers that normally precede the field

 ;;^DD(.4014,4,21,2,0)

 ;;=number in the user dialogue during the sort option.  It includes things

 ;;^DD(.4014,4,21,3,0)

 ;;=like # (Page break when sort value changes), @ (suppress printing of

 ;;^DD(.4014,4,21,4,0)

 ;;=subheader).  These qualifiers are listed out with no delimiters, as they

 ;;^DD(.4014,4,21,5,0)

 ;;=are found during the user dialogue.  (So you might see something like #@).