Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT121

DINIT121.m

Go to the documentation of this file. 
  1. DINIT121 ;SFISC/MKO-SORT TEMPLATE FILE ;1:13 PM  13 Nov 1998
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  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
  1.  G ^DINIT122
  1. Q Q
  1.  ;;^DD(.401,1815,21,5,0)
  1.  ;;=file to create the routine name.
  1.  ;;^DD(.401,1815,21,6,0)
  1.  ;;=  If this node is present, a new compiled sort routine will be created
  1.  ;;^DD(.401,1815,21,7,0)
  1.  ;;=during the FileMan sort/print.
  1.  ;;^DD(.401,1815,23,0)
  1.  ;;=^^3^3^2930331^^^
  1.  ;;^DD(.401,1815,23,1,0)
  1.  ;;=A routine beginning with these characters is created during the FileMan
  1.  ;;^DD(.401,1815,23,2,0)
  1.  ;;=sort/print.  The routine is then called from DIO2 to do the sort, rather
  1.  ;;^DD(.401,1815,23,3,0)
  1.  ;;=than executing code from the local DY, DZ and P arrays.
  1.  ;;^DD(.401,1815,"DT")
  1.  ;;=2930416
  1.  ;;^DD(.401,1816,0)
  1.  ;;=PREVIOUS ROUTINE INVOKED^F^^ROUOLD;E1,13^K:$L(X)>4!($L(X)<4)!'(X?1"DISZ") X
  1.  ;;^DD(.401,1816,3)
  1.  ;;=Entry must be 'DISZ'.
  1.  ;;^DD(.401,1816,21,0)
  1.  ;;=^^4^4^2930331^^
  1.  ;;^DD(.401,1816,21,1,0)
  1.  ;;=This node is present only to be consistant with other sort templates.
  1.  ;;^DD(.401,1816,21,2,0)
  1.  ;;=It's presence will indicate that at some time the SORT template was
  1.  ;;^DD(.401,1816,21,3,0)
  1.  ;;=compiled and will contain the beginning characters used to create the
  1.  ;;^DD(.401,1816,21,4,0)
  1.  ;;=name of the compiled routine.
  1.  ;;^DD(.401,1816,"DT")
  1.  ;;=2930416
  1.  ;;^DD(.401,1819,0)
  1.  ;;=COMPILED^CJ3^^ ; ^S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
  1.  ;;^DD(.401,1819,9)
  1.  ;;=^
  1.  ;;^DD(.401,1819,9.01)
  1.  ;;=
  1.  ;;^DD(.401,1819,9.1)
  1.  ;;=S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
  1.  ;;^DD(.401,491620,0)
  1.  ;;=PRINT TEMPLATE^F^^DIPT;1^K:'$D(^DIPT("B",X)) X
  1.  ;;^DD(.401,491620,4)
  1.  ;;=N D1 S D1(1)="If this Sort Template should always be used with a particular",D1(2)="Print Template, enter the name of that Print Template.",D1(3)="" D EN^DDIOL(.D1)
  1.  ;;^DD(.4011,0)
  1.  ;;=FIELD^.01^.01^1
  1.  ;;^DD(.4011,0,"NM","FIELD")
  1.  ;;=
  1.  ;;^DD(.4011,0,"UP")
  1.  ;;=.401
  1.  ;;^DD(.4011,.01,0)
  1.  ;;=SEARCH SPECIFICATIONS^WL^^0;1
  1.  ;;^DD(.4011624,0)
  1.  ;;=SORT RANGE DATA FOR BY(0) SUB-FIELD^^3.2^6
  1.  ;;^DD(.4011624,0,"DT")
  1.  ;;=2960910
  1.  ;;^DD(.4011624,0,"IX","B",.4011624,.01)
  1.  ;;=
  1.  ;;^DD(.4011624,0,"NM","SORT RANGE DATA FOR BY(0)")
  1.  ;;=
  1.  ;;^DD(.4011624,0,"UP")
  1.  ;;=.401
  1.  ;;^DD(.4011624,.01,0)
  1.  ;;=SUBSCRIPT LEVEL^MNJ1,0^^0;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
  1.  ;;^DD(.4011624,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.4011624,.01,1,1,0)
  1.  ;;=.4011624^B
  1.  ;;^DD(.4011624,.01,1,1,1)
  1.  ;;=S ^DIBT(DA(1),"BY0D","B",$E(X,1,30),DA)=""
  1.  ;;^DD(.4011624,.01,1,1,2)
  1.  ;;=K ^DIBT(DA(1),"BY0D","B",$E(X,1,30),DA)
  1.  ;;^DD(.4011624,.01,3)
  1.  ;;=Enter a number, 1 or more.  L(0)-1 is the upper limit.
  1.  ;;^DD(.4011624,.01,21,0)
  1.  ;;=^^4^4^2960911^^^^
  1.  ;;^DD(.4011624,.01,21,1,0)
  1.  ;;=This field corresponds to a subscript in, and contains sort from/to ranges
  1.  ;;^DD(.4011624,.01,21,2,0)
  1.  ;;=and/or subheader information for, any of the variable subscripts in the
  1.  ;;^DD(.4011624,.01,21,3,0)
  1.  ;;=BY(0) global.  Any number here should never be greater than L(0)-1.  This
  1.  ;;^DD(.4011624,.01,21,4,0)
  1.  ;;=can represent a sparse array.
  1.  ;;^DD(.4011624,.01,23,0)
  1.  ;;=^^3^3^2960911^^^^
  1.  ;;^DD(.4011624,.01,23,1,0)
  1.  ;;=Corresponds to subscript levels in the BY(0) global, and will be used to
  1.  ;;^DD(.4011624,.01,23,2,0)
  1.  ;;=put sort from/to and subheader information into the DPP array when the
  1.  ;;^DD(.4011624,.01,23,3,0)
  1.  ;;=sort data is being built.
  1.  ;;^DD(.4011624,.01,"DT")
  1.  ;;=2960828
  1.  ;;^DD(.4011624,1,0)
  1.  ;;=FR(0,n)^F^^0;2^K:$L(X)>62!($L(X)<1) X
  1.  ;;^DD(.4011624,1,3)
  1.  ;;=Starting value for the sort on this subscript.  Answer must be 1-62 characters in length.
  1.  ;;^DD(.4011624,1,21,0)
  1.  ;;=^^16^16^2960911^^^^
  1.  ;;^DD(.4011624,1,21,1,0)
  1.  ;;=Use this field to define the FR(0,n) variable as you would in a
  1.  ;;^DD(.4011624,1,21,2,0)
  1.  ;;=call to EN1^DIP that included BY(0).  If defined, the value will be
  1.  ;;^DD(.4011624,1,21,3,0)
  1.  ;;=used as the starting point as FileMan sequences through the global
  1.  ;;^DD(.4011624,1,21,4,0)
  1.  ;;=array referenced by BY(0) at this subscript level (n).
  1.  ;;^DD(.4011624,1,21,5,0)
  1.  ;;= 
  1.  ;;^DD(.4011624,1,21,6,0)
  1.  ;;=Values are not transformed, so enter the internal form just as it
  1.  ;;^DD(.4011624,1,21,7,0)
  1.  ;;=is stored in the global array.  A date, for example, would be 2960829,
  1.  ;;^DD(.4011624,1,21,8,0)
  1.  ;;=not Aug 29, 1996.
  1.  ;;^DD(.4011624,1,21,9,0)
  1.  ;;= 
  1.  ;;^DD(.4011624,1,21,10,0)
  1.  ;;=Don't attempt to use the at-sign (@) to include records with null
  1.  ;;^DD(.4011624,1,21,11,0)
  1.  ;;=values (as can be done in ordinary sorts).  Only use values that can
  1.  ;;^DD(.4011624,1,21,12,0)
  1.  ;;=be compared with actual data in this subscript of the global array
  1.  ;;^DD(.4011624,1,21,13,0)
  1.  ;;=referenced by BY(0).  (The only records that can be selected are ones
  1.  ;;^DD(.4011624,1,21,14,0)
  1.  ;;=that exist in this global array.  A record with a null value for this
  1.  ;;^DD(.4011624,1,21,15,0)
  1.  ;;=subscript would exist in the data file but not in this array and thus
  1.  ;;^DD(.4011624,1,21,16,0)
  1.  ;;=can't be selected.)
  1.  ;;^DD(.4011624,1,23,0)
  1.  ;;=^^1^1^2960911^^^^
  1.  ;;^DD(.4011624,1,23,1,0)
  1.  ;;=Equivalent to the FR(0,n) input variable to the programmer call EN1^DIP.
  1.  ;;^DD(.4011624,1,"DT")
  1.  ;;=2960828
  1.  ;;^DD(.4011624,2,0)
  1.  ;;=TO(0,n)^F^^0;3^K:$L(X)>62!($L(X)<1) X
  1.  ;;^DD(.4011624,2,3)
  1.  ;;=Ending value for sort on this subscript.  Answer must be 1-62 characters in length.
  1.  ;;^DD(.4011624,2,21,0)
  1.  ;;=^^9^9^2960911^^^^
  1.  ;;^DD(.4011624,2,21,1,0)
  1.  ;;=Use this field to define the TO(0,n) variable as you would in a
  1.  ;;^DD(.4011624,2,21,2,0)
  1.  ;;=call to EN1^DIP that included BY(0).  If defined, the value will be
  1.  ;;^DD(.4011624,2,21,3,0)
  1.  ;;=used as the ending point as FileMan sequences through the global
  1.  ;;^DD(.4011624,2,21,4,0)
  1.  ;;=array referenced by BY(0) at this subscript level (n).
  1.  ;;^DD(.4011624,2,21,5,0)
  1.  ;;= 
  1.  ;;^DD(.4011624,2,21,6,0)
  1.  ;;=Values are not transformed, so enter the internal form just as it
  1.  ;;^DD(.4011624,2,21,7,0)
  1.  ;;=is stored in the global array.  An inverse date, for example,
  1.  ;;^DD(.4011624,2,21,8,0)
  1.  ;;=would be 7039268, not 7/31/96.  Do not attempt to use @ to select
  1.  ;;^DD(.4011624,2,21,9,0)
  1.  ;;=records with null values for this subscript.
  1.  ;;^DD(.4011624,2,23,0)
  1.  ;;=^^1^1^2960911^^^^
  1.  ;;^DD(.4011624,2,23,1,0)
  1.  ;;=Equivalent to the TO(0,n) input variable to the programmer call EN1^DIP.
  1.  ;;^DD(.4011624,2,"DT")
  1.  ;;=2960828
  1.  ;;^DD(.4011624,3.1,0)
  1.  ;;=DISPAR(0,n) PIECE ONE^FX^^1;1^K:$L(X)>10!($L(X)<1)!("#!#"'[X) X
  1.  ;;^DD(.4011624,3.1,3)
  1.  ;;=Answer with #, !, #!, or null.
  1.  ;;^DD(.4011624,3.1,21,0)
  1.  ;;=^^6^6^2960910^^
  1.  ;;^DD(.4011624,3.1,21,1,0)
  1.  ;;=Just as when setting the first piece of DISPAR(0,n) in a programmer
  1.  ;;^DD(.4011624,3.1,21,2,0)
  1.  ;;=call that includes BY(0) when calling EN1^DIP, this field can hold