187 lines
6.7 KiB
Mathematica
187 lines
6.7 KiB
Mathematica
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 #@).
|