DINIT902 ;GFT/GFT-DIALOG FILE INITS ;Jan 05, 2015
;;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
Q Q
;;^UTILITY(U,$J,.84,7064,3,1,0)
;;=1^'FIRST' OR 'THEN'
;;^UTILITY(U,$J,.84,7064,3,2,0)
;;=2^'FIELD' or similar
;;^UTILITY(U,$J,.84,7064,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7064,5,1,0)
;;=DIP2^2
;;^UTILITY(U,$J,.84,7065,0)
;;=7065^2^^2^THIS IS THE ADVERB 'FIRST'
;;^UTILITY(U,$J,.84,7065,2,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,7065,2,1,0)
;;=First
;;^UTILITY(U,$J,.84,7065,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7065,5,1,0)
;;=DIP2^2
;;^UTILITY(U,$J,.84,7066,0)
;;=7066^2^^2
;;^UTILITY(U,$J,.84,7066,1,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,7066,1,1,0)
;;=THIS IS THE ADVERB 'THEN'
;;^UTILITY(U,$J,.84,7066,2,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,7066,2,1,0)
;;=Then
;;^UTILITY(U,$J,.84,7066,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7066,5,1,0)
;;=DIP2^2
;;^UTILITY(U,$J,.84,7068,0)
;;=7068^2^y^2
;;^UTILITY(U,$J,.84,7068,2,0)
;;=^^1^1^2991013^
;;^UTILITY(U,$J,.84,7068,2,1,0)
;;=Start with |1|
;;^UTILITY(U,$J,.84,7068,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7068,3,1,0)
;;=1^NAME OF FIELD WHOSE INITAL VALUE WE ARE ASKING FOR
;;^UTILITY(U,$J,.84,7068,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7068,5,1,0)
;;=DIP1
;;^UTILITY(U,$J,.84,7069,0)
;;=7069^2^y^2
;;^UTILITY(U,$J,.84,7069,2,0)
;;=^^1^1^2991013^
;;^UTILITY(U,$J,.84,7069,2,1,0)
;;=Go to |1|
;;^UTILITY(U,$J,.84,7069,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7069,3,1,0)
;;=1^NAME OF FIELD WHOSE LAST VALUE WE ARE ASKING FOR
;;^UTILITY(U,$J,.84,7069,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7069,5,1,0)
;;=DIP1
;;^UTILITY(U,$J,.84,7070,0)
;;=7070^2^^2
;;^UTILITY(U,$J,.84,7070,1,0)
;;=^^1^1^2991012^
;;^UTILITY(U,$J,.84,7070,1,1,0)
;;=As in START WITH: FIRST
;;^UTILITY(U,$J,.84,7070,2,0)
;;=^^1^1^2991012^^
;;^UTILITY(U,$J,.84,7070,2,1,0)
;;=FIRST
;;^UTILITY(U,$J,.84,7070,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7070,5,1,0)
;;=DIP1
;;^UTILITY(U,$J,.84,7071,0)
;;=7071^2^^2
;;^UTILITY(U,$J,.84,7071,1,0)
;;=^^1^1^2991012^
;;^UTILITY(U,$J,.84,7071,1,1,0)
;;=As in GO TO: LAST
;;^UTILITY(U,$J,.84,7071,2,0)
;;=^^1^1^2991012^
;;^UTILITY(U,$J,.84,7071,2,1,0)
;;=LAST
;;^UTILITY(U,$J,.84,7071,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7071,5,1,0)
;;=DIP1
;;^UTILITY(U,$J,.84,7080,0)
;;=7080^2^^2
;;^UTILITY(U,$J,.84,7080,2,0)
;;=^^1^1^2991008^
;;^UTILITY(U,$J,.84,7080,2,1,0)
;;=NULL-STRING
;;^UTILITY(U,$J,.84,7080,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7080,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,7081,0)
;;=7081^2^y^2
;;^UTILITY(U,$J,.84,7081,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,7081,2,1,0)
;;=|1| by |2|
;;^UTILITY(U,$J,.84,7081,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,7081,3,1,0)
;;=1^NAME OF FIELD BEING COUNTED IN HISTOGRAM
;;^UTILITY(U,$J,.84,7081,3,2,0)
;;=2^NEW OF FIELD SUBTOTALLED IN HISTOGRAM
;;^UTILITY(U,$J,.84,7081,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7081,5,1,0)
;;=DIH
;;^UTILITY(U,$J,.84,7085,0)
;;=7085^2^^2
;;^UTILITY(U,$J,.84,7085,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,7085,2,1,0)
;;=Deviation
;;^UTILITY(U,$J,.84,7085,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7085,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7086,0)
;;=7086^2^^2
;;^UTILITY(U,$J,.84,7086,2,0)
;;=^^1^1^2990903^^
;;^UTILITY(U,$J,.84,7086,2,1,0)
;;=Maximum
;;^UTILITY(U,$J,.84,7086,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7086,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7087,0)
;;=7087^2^^2
;;^UTILITY(U,$J,.84,7087,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,7087,2,1,0)
;;=Minimum
;;^UTILITY(U,$J,.84,7087,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7087,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7088,0)
;;=7088^2^^2
;;^UTILITY(U,$J,.84,7088,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,7088,2,1,0)
;;=Mean
;;^UTILITY(U,$J,.84,7088,3,0)
;;=^.845
;;^UTILITY(U,$J,.84,7088,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,7088,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7088,5,2,0)
;;=DIH
;;^UTILITY(U,$J,.84,7089,0)
;;=7089^2^^2
;;^UTILITY(U,$J,.84,7089,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,7089,2,1,0)
;;=Count
;;^UTILITY(U,$J,.84,7089,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,7089,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7089,5,2,0)
;;=DIH
;;^UTILITY(U,$J,.84,7090,0)
;;=7090^2^^2
;;^UTILITY(U,$J,.84,7090,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,7090,2,1,0)
;;=Total
;;^UTILITY(U,$J,.84,7090,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,7090,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7090,5,2,0)
;;=DIH
;;^UTILITY(U,$J,.84,7091,0)
;;=7091^2^y^2
;;^UTILITY(U,$J,.84,7091,2,0)
;;=^^1^1^2990902^^
;;^UTILITY(U,$J,.84,7091,2,1,0)
;;=Previous specification: '|1|'
;;^UTILITY(U,$J,.84,7091,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7091,3,1,0)
;;=1^PHRASE DESCRIBING SORT SPECIFICATION , LIKE "DATE null"
;;^UTILITY(U,$J,.84,7091,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7091,5,1,0)
;;=DIP1
;;^UTILITY(U,$J,.84,7092,0)
;;=7092^2^y^2
;;^UTILITY(U,$J,.84,7092,2,0)
;;=^^1^1^2990902^
;;^UTILITY(U,$J,.84,7092,2,1,0)
;;=|1| is null
;;^UTILITY(U,$J,.84,7092,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7092,3,1,0)
;;=1^FIELD NAME
;;^UTILITY(U,$J,.84,7092,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7092,5,1,0)
;;=DIP12
;;^UTILITY(U,$J,.84,7093,0)
;;=7093^2^y^2
;;^UTILITY(U,$J,.84,7093,2,0)
;;=^^1^1^2990902^^
;;^UTILITY(U,$J,.84,7093,2,1,0)
;;= |1| not null
;;^UTILITY(U,$J,.84,7093,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7093,3,1,0)
;;=1^FIELD NAME
;;^UTILITY(U,$J,.84,7093,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7093,5,1,0)
;;=DIP12
;;^UTILITY(U,$J,.84,7094,0)
;;=7094^2^^2
;;^UTILITY(U,$J,.84,7094,2,0)
;;=^^1^1^2990902^^^
;;^UTILITY(U,$J,.84,7094,2,1,0)
;;= (includes null values)
;;^UTILITY(U,$J,.84,7094,3,0)
;;=^.845^^0
;;^UTILITY(U,$J,.84,7094,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7094,5,1,0)
;;=DIP12^ALL
;;^UTILITY(U,$J,.84,7095,0)
;;=7095^2^y^2
;;^UTILITY(U,$J,.84,7095,1,0)
;;=^^1^1^2990823^^
;;^UTILITY(U,$J,.84,7095,1,1,0)
;;="Page 1" or whatever, at the top of each output page
;;^UTILITY(U,$J,.84,7095,2,0)
;;=^^1^1^2990823^^^
;;^UTILITY(U,$J,.84,7095,2,1,0)
;;=PAGE |1|
;;^UTILITY(U,$J,.84,7095,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7095,3,1,0)
;;=1^PAGE NUMBER
;;^UTILITY(U,$J,.84,7095,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7095,5,1,0)
;;=DIP5^EGP
;;^UTILITY(U,$J,.84,7096,0)
;;=7096^2^^2
;;^UTILITY(U,$J,.84,7096,2,0)
;;=^^1^1^2990531^
;;^UTILITY(U,$J,.84,7096,2,1,0)
;;=START at PAGE:
;;^UTILITY(U,$J,.84,7096,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7096,5,1,0)
;;=DIP3
;;^UTILITY(U,$J,.84,7097,0)
;;=7097^2^^2
;;^UTILITY(U,$J,.84,7097,1,0)
;;=^^1^1^2991024^^^
;;^UTILITY(U,$J,.84,7097,1,1,0)
;;=AS IN 'REPLACE : END'
;;^UTILITY(U,$J,.84,7097,2,0)
;;=^^1^1^2991024^^
;;^UTILITY(U,$J,.84,7097,2,1,0)
;;=END
;;^UTILITY(U,$J,.84,7097,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7097,5,1,0)
;;=DIR2
;;^UTILITY(U,$J,.84,7098,0)
;;=7098^2^y^2^SUB
;;^UTILITY(U,$J,.84,7098,1,0)
;;=^^1^1^2991008^^
;;^UTILITY(U,$J,.84,7098,1,1,0)
;;=TAKES THE WORD 'TOTAL' AND TURNS IT INTO 'SUBTOTAL', 'COUNT' INTO 'SUBCOUNT', ETC
;;^UTILITY(U,$J,.84,7098,2,0)
;;=^^1^1^2991008^^
;;^UTILITY(U,$J,.84,7098,2,1,0)
;;=Sub-|1|
;;^UTILITY(U,$J,.84,7098,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7098,3,1,0)
;;=1^WORD LIKE 'TOTAL'
;;^UTILITY(U,$J,.84,7098,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7098,5,1,0)
;;=DIO3
;;^UTILITY(U,$J,.84,7099,0)
;;=7099^2^^2
;;^UTILITY(U,$J,.84,7099,1,0)
;;=^^1^1^2991218^^^^
;;^UTILITY(U,$J,.84,7099,1,1,0)
;;=The term for INTERNAL ENTRY NUMBER.
;;^UTILITY(U,$J,.84,7099,2,0)
;;=^^1^1^2991218^^^^
;;^UTILITY(U,$J,.84,7099,2,1,0)
;;=NUMBER
;;^UTILITY(U,$J,.84,7099,5,0)
;;=^.841^5^5
;;^UTILITY(U,$J,.84,7099,5,1,0)
;;=DICQ
;;^UTILITY(U,$J,.84,7099,5,2,0)
;;=DIP^NUM
;;^UTILITY(U,$J,.84,7099,5,3,0)
;;=DIP22^0
;;^UTILITY(U,$J,.84,7099,5,4,0)
;;=DICOMP0^N+1
;;^UTILITY(U,$J,.84,7099,5,5,0)
;;=DIQ
;;^UTILITY(U,$J,.84,8000,0)
;;=8000^2^^2
;;^UTILITY(U,$J,.84,8000,2,0)
;;=^^1^1^2991028^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT902 8698 printed Dec 13, 2024@02:51:55 Page 2
DINIT902 ;GFT/GFT-DIALOG FILE INITS ;Jan 05, 2015
+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 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
Q QUIT
+1 ;;^UTILITY(U,$J,.84,7064,3,1,0)
+2 ;;=1^'FIRST' OR 'THEN'
+3 ;;^UTILITY(U,$J,.84,7064,3,2,0)
+4 ;;=2^'FIELD' or similar
+5 ;;^UTILITY(U,$J,.84,7064,5,0)
+6 ;;=^.841^1^1
+7 ;;^UTILITY(U,$J,.84,7064,5,1,0)
+8 ;;=DIP2^2
+9 ;;^UTILITY(U,$J,.84,7065,0)
+10 ;;=7065^2^^2^THIS IS THE ADVERB 'FIRST'
+11 ;;^UTILITY(U,$J,.84,7065,2,0)
+12 ;;=^^1^1^2991028^
+13 ;;^UTILITY(U,$J,.84,7065,2,1,0)
+14 ;;=First
+15 ;;^UTILITY(U,$J,.84,7065,5,0)
+16 ;;=^.841^1^1
+17 ;;^UTILITY(U,$J,.84,7065,5,1,0)
+18 ;;=DIP2^2
+19 ;;^UTILITY(U,$J,.84,7066,0)
+20 ;;=7066^2^^2
+21 ;;^UTILITY(U,$J,.84,7066,1,0)
+22 ;;=^^1^1^2991028^
+23 ;;^UTILITY(U,$J,.84,7066,1,1,0)
+24 ;;=THIS IS THE ADVERB 'THEN'
+25 ;;^UTILITY(U,$J,.84,7066,2,0)
+26 ;;=^^1^1^2991028^
+27 ;;^UTILITY(U,$J,.84,7066,2,1,0)
+28 ;;=Then
+29 ;;^UTILITY(U,$J,.84,7066,5,0)
+30 ;;=^.841^1^1
+31 ;;^UTILITY(U,$J,.84,7066,5,1,0)
+32 ;;=DIP2^2
+33 ;;^UTILITY(U,$J,.84,7068,0)
+34 ;;=7068^2^y^2
+35 ;;^UTILITY(U,$J,.84,7068,2,0)
+36 ;;=^^1^1^2991013^
+37 ;;^UTILITY(U,$J,.84,7068,2,1,0)
+38 ;;=Start with |1|
+39 ;;^UTILITY(U,$J,.84,7068,3,0)
+40 ;;=^.845^1^1
+41 ;;^UTILITY(U,$J,.84,7068,3,1,0)
+42 ;;=1^NAME OF FIELD WHOSE INITAL VALUE WE ARE ASKING FOR
+43 ;;^UTILITY(U,$J,.84,7068,5,0)
+44 ;;=^.841^1^1
+45 ;;^UTILITY(U,$J,.84,7068,5,1,0)
+46 ;;=DIP1
+47 ;;^UTILITY(U,$J,.84,7069,0)
+48 ;;=7069^2^y^2
+49 ;;^UTILITY(U,$J,.84,7069,2,0)
+50 ;;=^^1^1^2991013^
+51 ;;^UTILITY(U,$J,.84,7069,2,1,0)
+52 ;;=Go to |1|
+53 ;;^UTILITY(U,$J,.84,7069,3,0)
+54 ;;=^.845^1^1
+55 ;;^UTILITY(U,$J,.84,7069,3,1,0)
+56 ;;=1^NAME OF FIELD WHOSE LAST VALUE WE ARE ASKING FOR
+57 ;;^UTILITY(U,$J,.84,7069,5,0)
+58 ;;=^.841^1^1
+59 ;;^UTILITY(U,$J,.84,7069,5,1,0)
+60 ;;=DIP1
+61 ;;^UTILITY(U,$J,.84,7070,0)
+62 ;;=7070^2^^2
+63 ;;^UTILITY(U,$J,.84,7070,1,0)
+64 ;;=^^1^1^2991012^
+65 ;;^UTILITY(U,$J,.84,7070,1,1,0)
+66 ;;=As in START WITH: FIRST
+67 ;;^UTILITY(U,$J,.84,7070,2,0)
+68 ;;=^^1^1^2991012^^
+69 ;;^UTILITY(U,$J,.84,7070,2,1,0)
+70 ;;=FIRST
+71 ;;^UTILITY(U,$J,.84,7070,5,0)
+72 ;;=^.841^1^1
+73 ;;^UTILITY(U,$J,.84,7070,5,1,0)
+74 ;;=DIP1
+75 ;;^UTILITY(U,$J,.84,7071,0)
+76 ;;=7071^2^^2
+77 ;;^UTILITY(U,$J,.84,7071,1,0)
+78 ;;=^^1^1^2991012^
+79 ;;^UTILITY(U,$J,.84,7071,1,1,0)
+80 ;;=As in GO TO: LAST
+81 ;;^UTILITY(U,$J,.84,7071,2,0)
+82 ;;=^^1^1^2991012^
+83 ;;^UTILITY(U,$J,.84,7071,2,1,0)
+84 ;;=LAST
+85 ;;^UTILITY(U,$J,.84,7071,5,0)
+86 ;;=^.841^1^1
+87 ;;^UTILITY(U,$J,.84,7071,5,1,0)
+88 ;;=DIP1
+89 ;;^UTILITY(U,$J,.84,7080,0)
+90 ;;=7080^2^^2
+91 ;;^UTILITY(U,$J,.84,7080,2,0)
+92 ;;=^^1^1^2991008^
+93 ;;^UTILITY(U,$J,.84,7080,2,1,0)
+94 ;;=NULL-STRING
+95 ;;^UTILITY(U,$J,.84,7080,5,0)
+96 ;;=^.841^1^1
+97 ;;^UTILITY(U,$J,.84,7080,5,1,0)
+98 ;;=DIWE11
+99 ;;^UTILITY(U,$J,.84,7081,0)
+100 ;;=7081^2^y^2
+101 ;;^UTILITY(U,$J,.84,7081,2,0)
+102 ;;=^^1^1^2991028^^^
+103 ;;^UTILITY(U,$J,.84,7081,2,1,0)
+104 ;;=|1| by |2|
+105 ;;^UTILITY(U,$J,.84,7081,3,0)
+106 ;;=^.845^2^2
+107 ;;^UTILITY(U,$J,.84,7081,3,1,0)
+108 ;;=1^NAME OF FIELD BEING COUNTED IN HISTOGRAM
+109 ;;^UTILITY(U,$J,.84,7081,3,2,0)
+110 ;;=2^NEW OF FIELD SUBTOTALLED IN HISTOGRAM
+111 ;;^UTILITY(U,$J,.84,7081,5,0)
+112 ;;=^.841^1^1
+113 ;;^UTILITY(U,$J,.84,7081,5,1,0)
+114 ;;=DIH
+115 ;;^UTILITY(U,$J,.84,7085,0)
+116 ;;=7085^2^^2
+117 ;;^UTILITY(U,$J,.84,7085,2,0)
+118 ;;=^^1^1^2990903^
+119 ;;^UTILITY(U,$J,.84,7085,2,1,0)
+120 ;;=Deviation
+121 ;;^UTILITY(U,$J,.84,7085,5,0)
+122 ;;=^.841^1^1
+123 ;;^UTILITY(U,$J,.84,7085,5,1,0)
+124 ;;=DIO3
+125 ;;^UTILITY(U,$J,.84,7086,0)
+126 ;;=7086^2^^2
+127 ;;^UTILITY(U,$J,.84,7086,2,0)
+128 ;;=^^1^1^2990903^^
+129 ;;^UTILITY(U,$J,.84,7086,2,1,0)
+130 ;;=Maximum
+131 ;;^UTILITY(U,$J,.84,7086,5,0)
+132 ;;=^.841^1^1
+133 ;;^UTILITY(U,$J,.84,7086,5,1,0)
+134 ;;=DIO3
+135 ;;^UTILITY(U,$J,.84,7087,0)
+136 ;;=7087^2^^2
+137 ;;^UTILITY(U,$J,.84,7087,2,0)
+138 ;;=^^1^1^2990903^
+139 ;;^UTILITY(U,$J,.84,7087,2,1,0)
+140 ;;=Minimum
+141 ;;^UTILITY(U,$J,.84,7087,5,0)
+142 ;;=^.841^1^1
+143 ;;^UTILITY(U,$J,.84,7087,5,1,0)
+144 ;;=DIO3
+145 ;;^UTILITY(U,$J,.84,7088,0)
+146 ;;=7088^2^^2
+147 ;;^UTILITY(U,$J,.84,7088,2,0)
+148 ;;=^^1^1^2990903^
+149 ;;^UTILITY(U,$J,.84,7088,2,1,0)
+150 ;;=Mean
+151 ;;^UTILITY(U,$J,.84,7088,3,0)
+152 ;;=^.845
+153 ;;^UTILITY(U,$J,.84,7088,5,0)
+154 ;;=^.841^2^2
+155 ;;^UTILITY(U,$J,.84,7088,5,1,0)
+156 ;;=DIO3
+157 ;;^UTILITY(U,$J,.84,7088,5,2,0)
+158 ;;=DIH
+159 ;;^UTILITY(U,$J,.84,7089,0)
+160 ;;=7089^2^^2
+161 ;;^UTILITY(U,$J,.84,7089,2,0)
+162 ;;=^^1^1^2990903^
+163 ;;^UTILITY(U,$J,.84,7089,2,1,0)
+164 ;;=Count
+165 ;;^UTILITY(U,$J,.84,7089,5,0)
+166 ;;=^.841^2^2
+167 ;;^UTILITY(U,$J,.84,7089,5,1,0)
+168 ;;=DIO3
+169 ;;^UTILITY(U,$J,.84,7089,5,2,0)
+170 ;;=DIH
+171 ;;^UTILITY(U,$J,.84,7090,0)
+172 ;;=7090^2^^2
+173 ;;^UTILITY(U,$J,.84,7090,2,0)
+174 ;;=^^1^1^2990903^
+175 ;;^UTILITY(U,$J,.84,7090,2,1,0)
+176 ;;=Total
+177 ;;^UTILITY(U,$J,.84,7090,5,0)
+178 ;;=^.841^2^2
+179 ;;^UTILITY(U,$J,.84,7090,5,1,0)
+180 ;;=DIO3
+181 ;;^UTILITY(U,$J,.84,7090,5,2,0)
+182 ;;=DIH
+183 ;;^UTILITY(U,$J,.84,7091,0)
+184 ;;=7091^2^y^2
+185 ;;^UTILITY(U,$J,.84,7091,2,0)
+186 ;;=^^1^1^2990902^^
+187 ;;^UTILITY(U,$J,.84,7091,2,1,0)
+188 ;;=Previous specification: '|1|'
+189 ;;^UTILITY(U,$J,.84,7091,3,0)
+190 ;;=^.845^1^1
+191 ;;^UTILITY(U,$J,.84,7091,3,1,0)
+192 ;;=1^PHRASE DESCRIBING SORT SPECIFICATION , LIKE "DATE null"
+193 ;;^UTILITY(U,$J,.84,7091,5,0)
+194 ;;=^.841^1^1
+195 ;;^UTILITY(U,$J,.84,7091,5,1,0)
+196 ;;=DIP1
+197 ;;^UTILITY(U,$J,.84,7092,0)
+198 ;;=7092^2^y^2
+199 ;;^UTILITY(U,$J,.84,7092,2,0)
+200 ;;=^^1^1^2990902^
+201 ;;^UTILITY(U,$J,.84,7092,2,1,0)
+202 ;;=|1| is null
+203 ;;^UTILITY(U,$J,.84,7092,3,0)
+204 ;;=^.845^1^1
+205 ;;^UTILITY(U,$J,.84,7092,3,1,0)
+206 ;;=1^FIELD NAME
+207 ;;^UTILITY(U,$J,.84,7092,5,0)
+208 ;;=^.841^1^1
+209 ;;^UTILITY(U,$J,.84,7092,5,1,0)
+210 ;;=DIP12
+211 ;;^UTILITY(U,$J,.84,7093,0)
+212 ;;=7093^2^y^2
+213 ;;^UTILITY(U,$J,.84,7093,2,0)
+214 ;;=^^1^1^2990902^^
+215 ;;^UTILITY(U,$J,.84,7093,2,1,0)
+216 ;;= |1| not null
+217 ;;^UTILITY(U,$J,.84,7093,3,0)
+218 ;;=^.845^1^1
+219 ;;^UTILITY(U,$J,.84,7093,3,1,0)
+220 ;;=1^FIELD NAME
+221 ;;^UTILITY(U,$J,.84,7093,5,0)
+222 ;;=^.841^1^1
+223 ;;^UTILITY(U,$J,.84,7093,5,1,0)
+224 ;;=DIP12
+225 ;;^UTILITY(U,$J,.84,7094,0)
+226 ;;=7094^2^^2
+227 ;;^UTILITY(U,$J,.84,7094,2,0)
+228 ;;=^^1^1^2990902^^^
+229 ;;^UTILITY(U,$J,.84,7094,2,1,0)
+230 ;;= (includes null values)
+231 ;;^UTILITY(U,$J,.84,7094,3,0)
+232 ;;=^.845^^0
+233 ;;^UTILITY(U,$J,.84,7094,5,0)
+234 ;;=^.841^1^1
+235 ;;^UTILITY(U,$J,.84,7094,5,1,0)
+236 ;;=DIP12^ALL
+237 ;;^UTILITY(U,$J,.84,7095,0)
+238 ;;=7095^2^y^2
+239 ;;^UTILITY(U,$J,.84,7095,1,0)
+240 ;;=^^1^1^2990823^^
+241 ;;^UTILITY(U,$J,.84,7095,1,1,0)
+242 ;;="Page 1" or whatever, at the top of each output page
+243 ;;^UTILITY(U,$J,.84,7095,2,0)
+244 ;;=^^1^1^2990823^^^
+245 ;;^UTILITY(U,$J,.84,7095,2,1,0)
+246 ;;=PAGE |1|
+247 ;;^UTILITY(U,$J,.84,7095,3,0)
+248 ;;=^.845^1^1
+249 ;;^UTILITY(U,$J,.84,7095,3,1,0)
+250 ;;=1^PAGE NUMBER
+251 ;;^UTILITY(U,$J,.84,7095,5,0)
+252 ;;=^.841^1^1
+253 ;;^UTILITY(U,$J,.84,7095,5,1,0)
+254 ;;=DIP5^EGP
+255 ;;^UTILITY(U,$J,.84,7096,0)
+256 ;;=7096^2^^2
+257 ;;^UTILITY(U,$J,.84,7096,2,0)
+258 ;;=^^1^1^2990531^
+259 ;;^UTILITY(U,$J,.84,7096,2,1,0)
+260 ;;=START at PAGE:
+261 ;;^UTILITY(U,$J,.84,7096,5,0)
+262 ;;=^.841^1^1
+263 ;;^UTILITY(U,$J,.84,7096,5,1,0)
+264 ;;=DIP3
+265 ;;^UTILITY(U,$J,.84,7097,0)
+266 ;;=7097^2^^2
+267 ;;^UTILITY(U,$J,.84,7097,1,0)
+268 ;;=^^1^1^2991024^^^
+269 ;;^UTILITY(U,$J,.84,7097,1,1,0)
+270 ;;=AS IN 'REPLACE : END'
+271 ;;^UTILITY(U,$J,.84,7097,2,0)
+272 ;;=^^1^1^2991024^^
+273 ;;^UTILITY(U,$J,.84,7097,2,1,0)
+274 ;;=END
+275 ;;^UTILITY(U,$J,.84,7097,5,0)
+276 ;;=^.841^1^1
+277 ;;^UTILITY(U,$J,.84,7097,5,1,0)
+278 ;;=DIR2
+279 ;;^UTILITY(U,$J,.84,7098,0)
+280 ;;=7098^2^y^2^SUB
+281 ;;^UTILITY(U,$J,.84,7098,1,0)
+282 ;;=^^1^1^2991008^^
+283 ;;^UTILITY(U,$J,.84,7098,1,1,0)
+284 ;;=TAKES THE WORD 'TOTAL' AND TURNS IT INTO 'SUBTOTAL', 'COUNT' INTO 'SUBCOUNT', ETC
+285 ;;^UTILITY(U,$J,.84,7098,2,0)
+286 ;;=^^1^1^2991008^^
+287 ;;^UTILITY(U,$J,.84,7098,2,1,0)
+288 ;;=Sub-|1|
+289 ;;^UTILITY(U,$J,.84,7098,3,0)
+290 ;;=^.845^1^1
+291 ;;^UTILITY(U,$J,.84,7098,3,1,0)
+292 ;;=1^WORD LIKE 'TOTAL'
+293 ;;^UTILITY(U,$J,.84,7098,5,0)
+294 ;;=^.841^1^1
+295 ;;^UTILITY(U,$J,.84,7098,5,1,0)
+296 ;;=DIO3
+297 ;;^UTILITY(U,$J,.84,7099,0)
+298 ;;=7099^2^^2
+299 ;;^UTILITY(U,$J,.84,7099,1,0)
+300 ;;=^^1^1^2991218^^^^
+301 ;;^UTILITY(U,$J,.84,7099,1,1,0)
+302 ;;=The term for INTERNAL ENTRY NUMBER.
+303 ;;^UTILITY(U,$J,.84,7099,2,0)
+304 ;;=^^1^1^2991218^^^^
+305 ;;^UTILITY(U,$J,.84,7099,2,1,0)
+306 ;;=NUMBER
+307 ;;^UTILITY(U,$J,.84,7099,5,0)
+308 ;;=^.841^5^5
+309 ;;^UTILITY(U,$J,.84,7099,5,1,0)
+310 ;;=DICQ
+311 ;;^UTILITY(U,$J,.84,7099,5,2,0)
+312 ;;=DIP^NUM
+313 ;;^UTILITY(U,$J,.84,7099,5,3,0)
+314 ;;=DIP22^0
+315 ;;^UTILITY(U,$J,.84,7099,5,4,0)
+316 ;;=DICOMP0^N+1
+317 ;;^UTILITY(U,$J,.84,7099,5,5,0)
+318 ;;=DIQ
+319 ;;^UTILITY(U,$J,.84,8000,0)
+320 ;;=8000^2^^2
+321 ;;^UTILITY(U,$J,.84,8000,2,0)
+322 ;;=^^1^1^2991028^