- 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 Feb 19, 2025@00:18:09 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^