DINIT121 ;SFISC/MKO-SORT TEMPLATE FILE ;06JAN2016
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
;.
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 ^DINIT122
Q Q
;;^DD(.401,1815,21,5,0)
;;=file to create the routine name.
;;^DD(.401,1815,21,6,0)
;;= If this node is present, a new compiled sort routine will be created
;;^DD(.401,1815,21,7,0)
;;=during the FileMan sort/print.
;;^DD(.401,1815,23,0)
;;=^^3^3^2930331^^^
;;^DD(.401,1815,23,1,0)
;;=A routine beginning with these characters is created during the FileMan
;;^DD(.401,1815,23,2,0)
;;=sort/print. The routine is then called from DIO2 to do the sort, rather
;;^DD(.401,1815,23,3,0)
;;=than executing code from the local DY, DZ and P arrays.
;;^DD(.401,1815,"DT")
;;=2930416
;;^DD(.401,1816,0)
;;=PREVIOUS ROUTINE INVOKED^F^^ROUOLD;E1,13^K:$L(X)>4!($L(X)<4)!'(X?1"DISZ") X
;;^DD(.401,1816,3)
;;=Entry must be 'DISZ'.
;;^DD(.401,1816,21,0)
;;=^^4^4^2930331^^
;;^DD(.401,1816,21,1,0)
;;=This node is present only to be consistant with other sort templates.
;;^DD(.401,1816,21,2,0)
;;=It's presence will indicate that at some time the SORT template was
;;^DD(.401,1816,21,3,0)
;;=compiled and will contain the beginning characters used to create the
;;^DD(.401,1816,21,4,0)
;;=name of the compiled routine.
;;^DD(.401,1816,"DT")
;;=2930416
;;^DD(.401,1819,0)
;;=COMPILED^CJ3^^ ; ^S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
;;^DD(.401,1819,9)
;;=^
;;^DD(.401,1819,9.01)
;;=
;;^DD(.401,1819,9.1)
;;=S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
;;^DD(.401,6666,0)
;;=ENTRIES^Cm^^ ; ^N FILE,DINAME,D S FILE=$P($G(^DIBT(D0,0)),U,4) I $D(^(1)) S DINAME=$G(^DIC(FILE,0,"GL"))_"D,0)" I DINAME[U F D=0:0 S D=$O(^DIBT(D0,1,D)) Q:'D I $D(@DINAME) S X=$$GET1^DIQ(FILE,D,.01) X DICMX Q:'$D(D)
;;^DD(.401,6666,21,0)
;;=^^3^3^3160105^^
;;^DD(.401,6666,21,1,0)
;;=For SEARCH Templates, the list of the entries found and stored
;;^DD(.401,6666,21,2,0)
;;=when the Template was created is accessed.
;;^DD(.401,6666,21,3,0)
;;=The value of the .01 Field for each entry is displayed.
;;^DD(.401,21400,0)
;;=BUILD(S)^Cmp9.6^^ ; ^N DIBTNAME,D S DIBTNAME=$P($G(^DIBT(D0,0)),U)_" FILE #"_$P($G(^(0)),U,4) F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,"KRN",.401,"NM","B",DIBTNAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D)
;;^DD(.401,21400,21,0)
;;=^^3^3^3160105^^
;;^DD(.401,21400,21,1,0)
;;=The Build File (#9.6) is searched for Builds containing the Sort Template.
;;^DD(.401,21400,21,2,0)
;;=A list of the identified Builds is created for display.
;;^DD(.401,21400,21,3,0)
;;=Multiple Builds will be shown if appropriate.
;;^DD(.401,21409,0)
;;=CANONIC FOR THIS FILE^S^1:YES^CANONIC;1
;;^DD(.401,21409,1,0)
;;=^.1^1^1
;;^DD(.401,21409,1,1,0)
;;=^^^MUMPS
;;^DD(.401,21409,1,1,1)
;;=N F S F=$P(^DIBT(DA,0),U,4) I F S ^DIBT("CANONIC",F,DA)=""
;;^DD(.401,21409,1,1,2)
;;=N F S F=$P(^DIBT(DA,0),U,4) I F K ^DIBT("CANONIC",F,DA)
;;^DD(.401,21409,1,1,"%D",0)
;;=^6^6^3160106
;;^DD(.401,21409,1,1,"%D",1,0)
;;=This cross-reference is used to identify files that have a Canonic Sort Template assigned.
;;^DD(.401,21409,1,1,"%D",2,0)
;;=The structure of the cross-reference is:
;;^DD(.401,21409,1,1,"%D",3,0)
;;= ^DIBT("CANONIC", File#, IEN)
;;^DD(.401,21409,1,1,"%D",4,0)
;;= where File# identifies the file which has a Canonic Sort Template
;;^DD(.401,21409,1,1,"%D",5,0)
;;=and IEN is the internal entry number of the Canonic Sort Template
;;^DD(.401,21409,1,1,"%D",6,0)
;;=assigned to that file.
;;^DD(.401,21409,4)
;;=D HELP^DIUCANON
;;^DD(.401,21409,21,0)
;;=^^2^2^3151123^^^^
;;^DD(.401,21409,21,1,0)
;;=The Sort Template identified as CANONIC will always be presented
;;^DD(.401,21409,21,2,0)
;;=to the user for selection at the Sort By: prompt.
;;^DD(.401,491620,0)
;;=PRINT TEMPLATE^F^^DIPT;1^K:'$D(^DIPT("B",X)) X
;;^DD(.401,491620,4)
;;=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)
;;^DD(.4011,0)
;;=SEARCH SPECIFICATIONS SUB-FIELD^^.01^1
;;^DD(.4011,0,"NM","SEARCH SPECIFICATIONS SUB-FIELD")
;;=
;;^DD(.4011,0,"UP")
;;=.401
;;^DD(.4011,.01,0)
;;=SEARCH SPECIFICATIONS^WL^^0;1
;;^DD(.4011624,0)
;;=SORT RANGE DATA FOR BY(0) SUB-FIELD^^3.2^6
;;^DD(.4011624,0,"DT")
;;=2960910
;;^DD(.4011624,0,"IX","B",.4011624,.01)
;;=
;;^DD(.4011624,0,"NM","SORT RANGE DATA FOR BY(0)")
;;=
;;^DD(.4011624,0,"UP")
;;=.401
;;^DD(.4011624,.01,0)
;;=SUBSCRIPT LEVEL^MNJ1,0^^0;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
;;^DD(.4011624,.01,1,0)
;;=^.1
;;^DD(.4011624,.01,1,1,0)
;;=.4011624^B
;;^DD(.4011624,.01,1,1,1)
;;=S ^DIBT(DA(1),"BY0D","B",$E(X,1,30),DA)=""
;;^DD(.4011624,.01,1,1,2)
;;=K ^DIBT(DA(1),"BY0D","B",$E(X,1,30),DA)
;;^DD(.4011624,.01,3)
;;=Enter a number, 1 or more. L(0)-1 is the upper limit.
;;^DD(.4011624,.01,21,0)
;;=^^4^4^2960911^^^^
;;^DD(.4011624,.01,21,1,0)
;;=This field corresponds to a subscript in, and contains sort from/to ranges
;;^DD(.4011624,.01,21,2,0)
;;=and/or subheader information for, any of the variable subscripts in the
;;^DD(.4011624,.01,21,3,0)
;;=BY(0) global. Any number here should never be greater than L(0)-1. This
;;^DD(.4011624,.01,21,4,0)
;;=can represent a sparse array.
;;^DD(.4011624,.01,23,0)
;;=^^3^3^2960911^^^^
;;^DD(.4011624,.01,23,1,0)
;;=Corresponds to subscript levels in the BY(0) global, and will be used to
;;^DD(.4011624,.01,23,2,0)
;;=put sort from/to and subheader information into the DPP array when the
;;^DD(.4011624,.01,23,3,0)
;;=sort data is being built.
;;^DD(.4011624,.01,"DT")
;;=2960828
;;^DD(.4011624,1,0)
;;=FR(0,n)^F^^0;2^K:$L(X)>62!($L(X)<1) X
;;^DD(.4011624,1,3)
;;=Starting value for the sort on this subscript. Answer must be 1-62 characters in length.
;;^DD(.4011624,1,21,0)
;;=^^16^16^2960911^^^^
;;^DD(.4011624,1,21,1,0)
;;=Use this field to define the FR(0,n) variable as you would in a
;;^DD(.4011624,1,21,2,0)
;;=call to EN1^DIP that included BY(0). If defined, the value will be
;;^DD(.4011624,1,21,3,0)
;;=used as the starting point as FileMan sequences through the global
;;^DD(.4011624,1,21,4,0)
;;=array referenced by BY(0) at this subscript level (n).
;;^DD(.4011624,1,21,5,0)
;;=
;;^DD(.4011624,1,21,6,0)
;;=Values are not transformed, so enter the internal form just as it
;;^DD(.4011624,1,21,7,0)
;;=is stored in the global array. A date, for example, would be 2960829,
;;^DD(.4011624,1,21,8,0)
;;=not Aug 29, 1996.
;;^DD(.4011624,1,21,9,0)
;;=
;;^DD(.4011624,1,21,10,0)
;;=Don't attempt to use the at-sign (@) to include records with null
;;^DD(.4011624,1,21,11,0)
;;=values (as can be done in ordinary sorts). Only use values that can
;;^DD(.4011624,1,21,12,0)
;;=be compared with actual data in this subscript of the global array
;;^DD(.4011624,1,21,13,0)
;;=referenced by BY(0). (The only records that can be selected are ones
;;^DD(.4011624,1,21,14,0)
;;=that exist in this global array. A record with a null value for this
;;^DD(.4011624,1,21,15,0)
;;=subscript would exist in the data file but not in this array and thus
;;^DD(.4011624,1,21,16,0)
;;=can't be selected.)
;;^DD(.4011624,1,23,0)
;;=^^1^1^2960911^^^^
;;^DD(.4011624,1,23,1,0)
;;=Equivalent to the FR(0,n) input variable to the programmer call EN1^DIP.
;;^DD(.4011624,1,"DT")
;;=2960828
;;^DD(.4011624,2,0)
;;=TO(0,n)^F^^0;3^K:$L(X)>62!($L(X)<1) X
;;^DD(.4011624,2,3)
;;=Ending value for sort on this subscript. Answer must be 1-62 characters in length.
;;^DD(.4011624,2,21,0)
;;=^^9^9^2960911^^^^
;;^DD(.4011624,2,21,1,0)
;;=Use this field to define the TO(0,n) variable as you would in a
;;^DD(.4011624,2,21,2,0)
;;=call to EN1^DIP that included BY(0). If defined, the value will be
;;^DD(.4011624,2,21,3,0)
;;=used as the ending point as FileMan sequences through the global
;;^DD(.4011624,2,21,4,0)
;;=array referenced by BY(0) at this subscript level (n).
;;^DD(.4011624,2,21,5,0)
;;=
;;^DD(.4011624,2,21,6,0)
;;=Values are not transformed, so enter the internal form just as it
;;^DD(.4011624,2,21,7,0)
;;=is stored in the global array. An inverse date, for example,
;;^DD(.4011624,2,21,8,0)
;;=would be 7039268, not 7/31/96. Do not attempt to use @ to select
;;^DD(.4011624,2,21,9,0)
;;=records with null values for this subscript.
;;^DD(.4011624,2,23,0)
;;=^^1^1^2960911^^^^
;;^DD(.4011624,2,23,1,0)
;;=Equivalent to the TO(0,n) input variable to the programmer call EN1^DIP.
;;^DD(.4011624,2,"DT")
;;=2960828
;;^DD(.4011624,3.1,0)
;;=DISPAR(0,n) PIECE ONE^FX^^1;1^K:$L(X)>10!($L(X)<1)!("#!#"'[X) X
;;^DD(.4011624,3.1,3)
;;=Answer with #, !, #!, or null.
;;^DD(.4011624,3.1,21,0)
;;=^^6^6^2960910^^
;;^DD(.4011624,3.1,21,1,0)
;;=Just as when setting the first piece of DISPAR(0,n) in a programmer
;;^DD(.4011624,3.1,21,2,0)
;;=call that includes BY(0) when calling EN1^DIP, this field can hold
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT121 9582 printed Apr 09, 2024@21:44:42 Page 2
DINIT121 ;SFISC/MKO-SORT TEMPLATE FILE ;06JAN2016
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 ;.
+8 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
+9 GOTO ^DINIT122
Q QUIT
+1 ;;^DD(.401,1815,21,5,0)
+2 ;;=file to create the routine name.
+3 ;;^DD(.401,1815,21,6,0)
+4 ;;= If this node is present, a new compiled sort routine will be created
+5 ;;^DD(.401,1815,21,7,0)
+6 ;;=during the FileMan sort/print.
+7 ;;^DD(.401,1815,23,0)
+8 ;;=^^3^3^2930331^^^
+9 ;;^DD(.401,1815,23,1,0)
+10 ;;=A routine beginning with these characters is created during the FileMan
+11 ;;^DD(.401,1815,23,2,0)
+12 ;;=sort/print. The routine is then called from DIO2 to do the sort, rather
+13 ;;^DD(.401,1815,23,3,0)
+14 ;;=than executing code from the local DY, DZ and P arrays.
+15 ;;^DD(.401,1815,"DT")
+16 ;;=2930416
+17 ;;^DD(.401,1816,0)
+18 ;;=PREVIOUS ROUTINE INVOKED^F^^ROUOLD;E1,13^K:$L(X)>4!($L(X)<4)!'(X?1"DISZ") X
+19 ;;^DD(.401,1816,3)
+20 ;;=Entry must be 'DISZ'.
+21 ;;^DD(.401,1816,21,0)
+22 ;;=^^4^4^2930331^^
+23 ;;^DD(.401,1816,21,1,0)
+24 ;;=This node is present only to be consistant with other sort templates.
+25 ;;^DD(.401,1816,21,2,0)
+26 ;;=It's presence will indicate that at some time the SORT template was
+27 ;;^DD(.401,1816,21,3,0)
+28 ;;=compiled and will contain the beginning characters used to create the
+29 ;;^DD(.401,1816,21,4,0)
+30 ;;=name of the compiled routine.
+31 ;;^DD(.401,1816,"DT")
+32 ;;=2930416
+33 ;;^DD(.401,1819,0)
+34 ;;=COMPILED^CJ3^^ ; ^S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
+35 ;;^DD(.401,1819,9)
+36 ;;=^
+37 ;;^DD(.401,1819,9.01)
+38 ;;=
+39 ;;^DD(.401,1819,9.1)
+40 ;;=S X=$S($G(^DIBT(D0,"ROU"))]"":"YES",1:"NO")
+41 ;;^DD(.401,6666,0)
+42 ;;=ENTRIES^Cm^^ ; ^N FILE,DINAME,D S FILE=$P($G(^DIBT(D0,0)),U,4) I $D(^(1)) S DINAME=$G(^DIC(FILE,0,"GL"))_"D,0)" I DINAME[U F D=0:0 S D=$O(^DIBT(D0,1,D)) Q:'D I $D(@DINAME) S X=$$GET1^DIQ(FILE,D,.01) X DICMX Q:'$D(D)
+43 ;;^DD(.401,6666,21,0)
+44 ;;=^^3^3^3160105^^
+45 ;;^DD(.401,6666,21,1,0)
+46 ;;=For SEARCH Templates, the list of the entries found and stored
+47 ;;^DD(.401,6666,21,2,0)
+48 ;;=when the Template was created is accessed.
+49 ;;^DD(.401,6666,21,3,0)
+50 ;;=The value of the .01 Field for each entry is displayed.
+51 ;;^DD(.401,21400,0)
+52 ;;=BUILD(S)^Cmp9.6^^ ; ^N DIBTNAME,D S DIBTNAME=$P($G(^DIBT(D0,0)),U)_" FILE #"_$P($G(^(0)),U,4) F D=0:0 S D=$O(^XPD(9.6,D)) Q:'D I $D(^(D,"KRN",.401,"NM","B",DIBTNAME)) N D0 S D0=D,X=$P(^XPD(9.6,D,0),U) X DICMX Q:'$D(D)
+53 ;;^DD(.401,21400,21,0)
+54 ;;=^^3^3^3160105^^
+55 ;;^DD(.401,21400,21,1,0)
+56 ;;=The Build File (#9.6) is searched for Builds containing the Sort Template.
+57 ;;^DD(.401,21400,21,2,0)
+58 ;;=A list of the identified Builds is created for display.
+59 ;;^DD(.401,21400,21,3,0)
+60 ;;=Multiple Builds will be shown if appropriate.
+61 ;;^DD(.401,21409,0)
+62 ;;=CANONIC FOR THIS FILE^S^1:YES^CANONIC;1
+63 ;;^DD(.401,21409,1,0)
+64 ;;=^.1^1^1
+65 ;;^DD(.401,21409,1,1,0)
+66 ;;=^^^MUMPS
+67 ;;^DD(.401,21409,1,1,1)
+68 ;;=N F S F=$P(^DIBT(DA,0),U,4) I F S ^DIBT("CANONIC",F,DA)=""
+69 ;;^DD(.401,21409,1,1,2)
+70 ;;=N F S F=$P(^DIBT(DA,0),U,4) I F K ^DIBT("CANONIC",F,DA)
+71 ;;^DD(.401,21409,1,1,"%D",0)
+72 ;;=^6^6^3160106
+73 ;;^DD(.401,21409,1,1,"%D",1,0)
+74 ;;=This cross-reference is used to identify files that have a Canonic Sort Template assigned.
+75 ;;^DD(.401,21409,1,1,"%D",2,0)
+76 ;;=The structure of the cross-reference is:
+77 ;;^DD(.401,21409,1,1,"%D",3,0)
+78 ;;= ^DIBT("CANONIC", File#, IEN)
+79 ;;^DD(.401,21409,1,1,"%D",4,0)
+80 ;;= where File# identifies the file which has a Canonic Sort Template
+81 ;;^DD(.401,21409,1,1,"%D",5,0)
+82 ;;=and IEN is the internal entry number of the Canonic Sort Template
+83 ;;^DD(.401,21409,1,1,"%D",6,0)
+84 ;;=assigned to that file.
+85 ;;^DD(.401,21409,4)
+86 ;;=D HELP^DIUCANON
+87 ;;^DD(.401,21409,21,0)
+88 ;;=^^2^2^3151123^^^^
+89 ;;^DD(.401,21409,21,1,0)
+90 ;;=The Sort Template identified as CANONIC will always be presented
+91 ;;^DD(.401,21409,21,2,0)
+92 ;;=to the user for selection at the Sort By: prompt.
+93 ;;^DD(.401,491620,0)
+94 ;;=PRINT TEMPLATE^F^^DIPT;1^K:'$D(^DIPT("B",X)) X
+95 ;;^DD(.401,491620,4)
+96 ;;=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)
+97 ;;^DD(.4011,0)
+98 ;;=SEARCH SPECIFICATIONS SUB-FIELD^^.01^1
+99 ;;^DD(.4011,0,"NM","SEARCH SPECIFICATIONS SUB-FIELD")
+100 ;;=
+101 ;;^DD(.4011,0,"UP")
+102 ;;=.401
+103 ;;^DD(.4011,.01,0)
+104 ;;=SEARCH SPECIFICATIONS^WL^^0;1
+105 ;;^DD(.4011624,0)
+106 ;;=SORT RANGE DATA FOR BY(0) SUB-FIELD^^3.2^6
+107 ;;^DD(.4011624,0,"DT")
+108 ;;=2960910
+109 ;;^DD(.4011624,0,"IX","B",.4011624,.01)
+110 ;;=
+111 ;;^DD(.4011624,0,"NM","SORT RANGE DATA FOR BY(0)")
+112 ;;=
+113 ;;^DD(.4011624,0,"UP")
+114 ;;=.401
+115 ;;^DD(.4011624,.01,0)
+116 ;;=SUBSCRIPT LEVEL^MNJ1,0^^0;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
+117 ;;^DD(.4011624,.01,1,0)
+118 ;;=^.1
+119 ;;^DD(.4011624,.01,1,1,0)
+120 ;;=.4011624^B
+121 ;;^DD(.4011624,.01,1,1,1)
+122 ;;=S ^DIBT(DA(1),"BY0D","B",$E(X,1,30),DA)=""
+123 ;;^DD(.4011624,.01,1,1,2)
+124 ;;=K ^DIBT(DA(1),"BY0D","B",$E(X,1,30),DA)
+125 ;;^DD(.4011624,.01,3)
+126 ;;=Enter a number, 1 or more. L(0)-1 is the upper limit.
+127 ;;^DD(.4011624,.01,21,0)
+128 ;;=^^4^4^2960911^^^^
+129 ;;^DD(.4011624,.01,21,1,0)
+130 ;;=This field corresponds to a subscript in, and contains sort from/to ranges
+131 ;;^DD(.4011624,.01,21,2,0)
+132 ;;=and/or subheader information for, any of the variable subscripts in the
+133 ;;^DD(.4011624,.01,21,3,0)
+134 ;;=BY(0) global. Any number here should never be greater than L(0)-1. This
+135 ;;^DD(.4011624,.01,21,4,0)
+136 ;;=can represent a sparse array.
+137 ;;^DD(.4011624,.01,23,0)
+138 ;;=^^3^3^2960911^^^^
+139 ;;^DD(.4011624,.01,23,1,0)
+140 ;;=Corresponds to subscript levels in the BY(0) global, and will be used to
+141 ;;^DD(.4011624,.01,23,2,0)
+142 ;;=put sort from/to and subheader information into the DPP array when the
+143 ;;^DD(.4011624,.01,23,3,0)
+144 ;;=sort data is being built.
+145 ;;^DD(.4011624,.01,"DT")
+146 ;;=2960828
+147 ;;^DD(.4011624,1,0)
+148 ;;=FR(0,n)^F^^0;2^K:$L(X)>62!($L(X)<1) X
+149 ;;^DD(.4011624,1,3)
+150 ;;=Starting value for the sort on this subscript. Answer must be 1-62 characters in length.
+151 ;;^DD(.4011624,1,21,0)
+152 ;;=^^16^16^2960911^^^^
+153 ;;^DD(.4011624,1,21,1,0)
+154 ;;=Use this field to define the FR(0,n) variable as you would in a
+155 ;;^DD(.4011624,1,21,2,0)
+156 ;;=call to EN1^DIP that included BY(0). If defined, the value will be
+157 ;;^DD(.4011624,1,21,3,0)
+158 ;;=used as the starting point as FileMan sequences through the global
+159 ;;^DD(.4011624,1,21,4,0)
+160 ;;=array referenced by BY(0) at this subscript level (n).
+161 ;;^DD(.4011624,1,21,5,0)
+162 ;;=
+163 ;;^DD(.4011624,1,21,6,0)
+164 ;;=Values are not transformed, so enter the internal form just as it
+165 ;;^DD(.4011624,1,21,7,0)
+166 ;;=is stored in the global array. A date, for example, would be 2960829,
+167 ;;^DD(.4011624,1,21,8,0)
+168 ;;=not Aug 29, 1996.
+169 ;;^DD(.4011624,1,21,9,0)
+170 ;;=
+171 ;;^DD(.4011624,1,21,10,0)
+172 ;;=Don't attempt to use the at-sign (@) to include records with null
+173 ;;^DD(.4011624,1,21,11,0)
+174 ;;=values (as can be done in ordinary sorts). Only use values that can
+175 ;;^DD(.4011624,1,21,12,0)
+176 ;;=be compared with actual data in this subscript of the global array
+177 ;;^DD(.4011624,1,21,13,0)
+178 ;;=referenced by BY(0). (The only records that can be selected are ones
+179 ;;^DD(.4011624,1,21,14,0)
+180 ;;=that exist in this global array. A record with a null value for this
+181 ;;^DD(.4011624,1,21,15,0)
+182 ;;=subscript would exist in the data file but not in this array and thus
+183 ;;^DD(.4011624,1,21,16,0)
+184 ;;=can't be selected.)
+185 ;;^DD(.4011624,1,23,0)
+186 ;;=^^1^1^2960911^^^^
+187 ;;^DD(.4011624,1,23,1,0)
+188 ;;=Equivalent to the FR(0,n) input variable to the programmer call EN1^DIP.
+189 ;;^DD(.4011624,1,"DT")
+190 ;;=2960828
+191 ;;^DD(.4011624,2,0)
+192 ;;=TO(0,n)^F^^0;3^K:$L(X)>62!($L(X)<1) X
+193 ;;^DD(.4011624,2,3)
+194 ;;=Ending value for sort on this subscript. Answer must be 1-62 characters in length.
+195 ;;^DD(.4011624,2,21,0)
+196 ;;=^^9^9^2960911^^^^
+197 ;;^DD(.4011624,2,21,1,0)
+198 ;;=Use this field to define the TO(0,n) variable as you would in a
+199 ;;^DD(.4011624,2,21,2,0)
+200 ;;=call to EN1^DIP that included BY(0). If defined, the value will be
+201 ;;^DD(.4011624,2,21,3,0)
+202 ;;=used as the ending point as FileMan sequences through the global
+203 ;;^DD(.4011624,2,21,4,0)
+204 ;;=array referenced by BY(0) at this subscript level (n).
+205 ;;^DD(.4011624,2,21,5,0)
+206 ;;=
+207 ;;^DD(.4011624,2,21,6,0)
+208 ;;=Values are not transformed, so enter the internal form just as it
+209 ;;^DD(.4011624,2,21,7,0)
+210 ;;=is stored in the global array. An inverse date, for example,
+211 ;;^DD(.4011624,2,21,8,0)
+212 ;;=would be 7039268, not 7/31/96. Do not attempt to use @ to select
+213 ;;^DD(.4011624,2,21,9,0)
+214 ;;=records with null values for this subscript.
+215 ;;^DD(.4011624,2,23,0)
+216 ;;=^^1^1^2960911^^^^
+217 ;;^DD(.4011624,2,23,1,0)
+218 ;;=Equivalent to the TO(0,n) input variable to the programmer call EN1^DIP.
+219 ;;^DD(.4011624,2,"DT")
+220 ;;=2960828
+221 ;;^DD(.4011624,3.1,0)
+222 ;;=DISPAR(0,n) PIECE ONE^FX^^1;1^K:$L(X)>10!($L(X)<1)!("#!#"'[X) X
+223 ;;^DD(.4011624,3.1,3)
+224 ;;=Answer with #, !, #!, or null.
+225 ;;^DD(.4011624,3.1,21,0)
+226 ;;=^^6^6^2960910^^
+227 ;;^DD(.4011624,3.1,21,1,0)
+228 ;;=Just as when setting the first piece of DISPAR(0,n) in a programmer
+229 ;;^DD(.4011624,3.1,21,2,0)
+230 ;;=call that includes BY(0) when calling EN1^DIP, this field can hold
