DINIT906 ;GFT/GFT-DIALOG FILE INITS ;6JUNE2003
;;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,8197.2,2,1,0)
;;=Changed from "|1|"
;;^UTILITY(U,$J,.84,8197.2,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8197.2,3,1,0)
;;=1^The former audit-trail value of the field being displayed in CAPTIONED OUTPUT
;;^UTILITY(U,$J,.84,8197.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8197.2,5,1,0)
;;=DIQ^PRINTAUD+6
;;^UTILITY(U,$J,.84,8197.3,0)
;;=8197.3^2^^2
;;^UTILITY(U,$J,.84,8197.3,2,0)
;;=^^1^1^2991218^
;;^UTILITY(U,$J,.84,8197.3,2,1,0)
;;=Created
;;^UTILITY(U,$J,.84,8197.3,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8197.3,5,1,0)
;;=DIQ^PRINTAUD+6
;;^UTILITY(U,$J,.84,8197.4,0)
;;=8197.4^2^y^2
;;^UTILITY(U,$J,.84,8197.4,2,0)
;;=^^1^1^2991218^
;;^UTILITY(U,$J,.84,8197.4,2,1,0)
;;=|1| on |2| by User #|3|
;;^UTILITY(U,$J,.84,8197.4,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,8197.4,3,1,0)
;;=1^What happened
;;^UTILITY(U,$J,.84,8197.4,3,2,0)
;;=2^DATE/TIME
;;^UTILITY(U,$J,.84,8197.4,3,3,0)
;;=3^USER NUMBER
;;^UTILITY(U,$J,.84,8197.4,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8197.4,5,1,0)
;;=DIQ^PRINTAUD+6
;;^UTILITY(U,$J,.84,8197.5,0)
;;=8197.5^2^^2
;;^UTILITY(U,$J,.84,8197.5,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,8197.5,2,1,0)
;;=Accessed
;;^UTILITY(U,$J,.84,8197.5,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8197.5,5,1,0)
;;=DIQ^PRINTAUD+7
;;^UTILITY(U,$J,.84,8198,0)
;;=8198^2^^2
;;^UTILITY(U,$J,.84,8198,2,0)
;;=^^1^1^2990828^^
;;^UTILITY(U,$J,.84,8198,2,1,0)
;;=Standard Captioned Output
;;^UTILITY(U,$J,.84,8198,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8198,5,1,0)
;;=DII^R
;;^UTILITY(U,$J,.84,8199,0)
;;=8199^2^^2
;;^UTILITY(U,$J,.84,8199,1,0)
;;=^^1^1^2990824^
;;^UTILITY(U,$J,.84,8199,1,1,0)
;;=ANOTHER ONE: in inquiry
;;^UTILITY(U,$J,.84,8199,2,0)
;;=^^1^1^2990824^
;;^UTILITY(U,$J,.84,8199,2,1,0)
;;=Another one:
;;^UTILITY(U,$J,.84,8201,0)
;;=8201^2^y^2
;;^UTILITY(U,$J,.84,8201,2,0)
;;=^^1^1^2990831^^^
;;^UTILITY(U,$J,.84,8201,2,1,0)
;;=By '|1|', do you mean |2| '|3|'
;;^UTILITY(U,$J,.84,8201,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,8201,3,1,0)
;;=1^What user input as a COMPUTED EXPRESSION element
;;^UTILITY(U,$J,.84,8201,3,2,0)
;;=2^File
;;^UTILITY(U,$J,.84,8201,3,3,0)
;;=3^Field
;;^UTILITY(U,$J,.84,8201,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8201,5,1,0)
;;=DICOMP0^A+1
;;^UTILITY(U,$J,.84,8202,0)
;;=8202^2^y^2
;;^UTILITY(U,$J,.84,8202,2,0)
;;=^^1^1^2990831^^^^
;;^UTILITY(U,$J,.84,8202,2,1,0)
;;=By '|1|', do you mean the |2| File, pointing via its '|3|' field
;;^UTILITY(U,$J,.84,8202,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,8202,3,1,0)
;;=1^What user entered as BACKWARDS POINTER
;;^UTILITY(U,$J,.84,8202,3,2,0)
;;=2^File name
;;^UTILITY(U,$J,.84,8202,3,3,0)
;;=3^Name of POINTER field
;;^UTILITY(U,$J,.84,8202,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8202,5,1,0)
;;=DICOMPV
;;^UTILITY(U,$J,.84,8203,0)
;;=8203^2^y^2
;;^UTILITY(U,$J,.84,8203,2,0)
;;=^^1^1^2990831^^
;;^UTILITY(U,$J,.84,8203,2,1,0)
;;=Will terminal user be allowed to select proper entry in |1| File
;;^UTILITY(U,$J,.84,8203,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8203,3,1,0)
;;=1^Name of File that computed expression is navigating to.
;;^UTILITY(U,$J,.84,8203,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8203,5,1,0)
;;=DICOMPW^ASKE+1
;;^UTILITY(U,$J,.84,8204,0)
;;=8204^2^y^2
;;^UTILITY(U,$J,.84,8204,2,0)
;;=^^1^1^2990831^
;;^UTILITY(U,$J,.84,8204,2,1,0)
;;=Do you want to permit adding a new '|1|' entry
;;^UTILITY(U,$J,.84,8204,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8204,3,1,0)
;;=1^Name of File
;;^UTILITY(U,$J,.84,8204,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8204,5,1,0)
;;=DICOMPW^ASK1
;;^UTILITY(U,$J,.84,8205,0)
;;=8205^2^^2
;;^UTILITY(U,$J,.84,8205,2,0)
;;=^^1^1^2990831^
;;^UTILITY(U,$J,.84,8205,2,1,0)
;;=Well then, do you want to FORCE adding a new entry every time
;;^UTILITY(U,$J,.84,8205,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8205,5,1,0)
;;=DICOMPW^ASK2
;;^UTILITY(U,$J,.84,8206,0)
;;=8206^2^y^2
;;^UTILITY(U,$J,.84,8206,2,0)
;;=^^1^1^2990831^
;;^UTILITY(U,$J,.84,8206,2,1,0)
;;=Do you want an 'ADDING A NEW |1|' message
;;^UTILITY(U,$J,.84,8206,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8206,3,1,0)
;;=1^Name of File
;;^UTILITY(U,$J,.84,8206,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8206,5,1,0)
;;=DICOMPW^ASK3
;;^UTILITY(U,$J,.84,8300,0)
;;=8300^2^y^2
;;^UTILITY(U,$J,.84,8300,2,0)
;;=^^1^1^2991011^^
;;^UTILITY(U,$J,.84,8300,2,1,0)
;;= (|1| entries)
;;^UTILITY(U,$J,.84,8300,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8300,3,1,0)
;;=1^NUMBER OF ENTRIES
;;^UTILITY(U,$J,.84,8300,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8300,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,8301,0)
;;=8301^2^^2
;;^UTILITY(U,$J,.84,8301,2,0)
;;=^^1^1^2991011^^
;;^UTILITY(U,$J,.84,8301,2,1,0)
;;= (1 entry)
;;^UTILITY(U,$J,.84,8301,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8301,5,1,0)
;;=DICRW
;;^UTILITY(U,$J,.84,9070,0)
;;=9070^3^^2
;;^UTILITY(U,$J,.84,9070,1,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9070,1,1,0)
;;=Type '-' in front of numeric-valued field name to sort from high to low.
;;^UTILITY(U,$J,.84,9070,2,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9070,2,1,0)
;;=Type '-' in front of numeric-valued field name to sort from high to low.
;;^UTILITY(U,$J,.84,9070,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9070,5,1,0)
;;=DIQQ^DIP+1
;;^UTILITY(U,$J,.84,9071,0)
;;=9071^3^^2
;;^UTILITY(U,$J,.84,9071,2,0)
;;=^^4^4^2991026^^^^
;;^UTILITY(U,$J,.84,9071,2,1,0)
;;=Type '+' in front of field name to get SUBTOTALS by that field's values.
;;^UTILITY(U,$J,.84,9071,2,2,0)
;;= '#' to PAGE-FEED on each field value, '!' to get RANKING NUMBER
;;^UTILITY(U,$J,.84,9071,2,3,0)
;;= '@' to SUPPRESS SUB-HEADER, ']' to force SAVING TEMPLATE
;;^UTILITY(U,$J,.84,9071,2,4,0)
;;=Type ';TXT' after free-text fields to SORT NUMBERS AS TEXT
;;^UTILITY(U,$J,.84,9071,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9071,5,1,0)
;;=DIQQ^DIP
;;^UTILITY(U,$J,.84,9072,0)
;;=9072^3^^2
;;^UTILITY(U,$J,.84,9072,2,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9072,2,1,0)
;;=Type [TEMPLATE NAME] in brackets to SORT BY PREVIOUS SEARCH RESULTS
;;^UTILITY(U,$J,.84,9072,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9072,5,1,0)
;;=DIQQ^DIP+7
;;^UTILITY(U,$J,.84,9073,0)
;;=9073^3^^2
;;^UTILITY(U,$J,.84,9073,2,0)
;;=^^1^1^2990720^
;;^UTILITY(U,$J,.84,9073,2,1,0)
;;=Type 'BY(0)' to define record selection and sort order
;;^UTILITY(U,$J,.84,9075,0)
;;=9075^3^^2
;;^UTILITY(U,$J,.84,9075,2,0)
;;=^^2^2^2990710^^
;;^UTILITY(U,$J,.84,9075,2,1,0)
;;=You can NEGATE any of these conditions by preceding them with "'" or "-".
;;^UTILITY(U,$J,.84,9075,2,2,0)
;;=Thus, "'NULL" means "NOT NULL".
;;^UTILITY(U,$J,.84,9075,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9075,5,1,0)
;;=DIQQQ^DISC
;;^UTILITY(U,$J,.84,9076,0)
;;=9076^3^^2
;;^UTILITY(U,$J,.84,9076,2,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9076,2,1,0)
;;=Enter "ALL" to print every field.
;;^UTILITY(U,$J,.84,9076,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9076,5,1,0)
;;=DIQQ^DIP2+6
;;^UTILITY(U,$J,.84,9077,0)
;;=9077^3^^2
;;^UTILITY(U,$J,.84,9077,2,0)
;;=^^4^4^2990711^^
;;^UTILITY(U,$J,.84,9077,2,1,0)
;;=Type '&' in front of field name to get TOTAL for that field.
;;^UTILITY(U,$J,.84,9077,2,2,0)
;;= '!' to get COUNT. '+' to get TOTAL & COUNT. '#' to get MAX & MIN.
;;^UTILITY(U,$J,.84,9077,2,3,0)
;;= ']' to force SAVING PRINT TEMPLATE
;;^UTILITY(U,$J,.84,9077,2,4,0)
;;=You can follow field name with ';' and FORMAT SPECIFICATION.
;;^UTILITY(U,$J,.84,9077,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9077,5,1,0)
;;=DIQQ^DIP2
;;^UTILITY(U,$J,.84,9078,0)
;;=9078^3^^2
;;^UTILITY(U,$J,.84,9078,2,0)
;;=^^1^1^2990710^^
;;^UTILITY(U,$J,.84,9078,2,1,0)
;;=Type '[TEMPLATE NAME]' in brackets to use an existing PRINT TEMPLATE.
;;^UTILITY(U,$J,.84,9078,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9078,5,1,0)
;;=DIQQ^DIP2
;;^UTILITY(U,$J,.84,9079,0)
;;=9079^3^y^2
;;^UTILITY(U,$J,.84,9079,2,0)
;;=^^3^3^2990710^
;;^UTILITY(U,$J,.84,9079,2,1,0)
;;=Enter a value which '|1|'
;;^UTILITY(U,$J,.84,9079,2,2,0)
;;=must |2|, in order for truth condition
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT906 8873 printed Sep 23, 2025@20:28:05 Page 2
DINIT906 ;GFT/GFT-DIALOG FILE INITS ;6JUNE2003
+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,8197.2,2,1,0)
+2 ;;=Changed from "|1|"
+3 ;;^UTILITY(U,$J,.84,8197.2,3,0)
+4 ;;=^.845^1^1
+5 ;;^UTILITY(U,$J,.84,8197.2,3,1,0)
+6 ;;=1^The former audit-trail value of the field being displayed in CAPTIONED OUTPUT
+7 ;;^UTILITY(U,$J,.84,8197.2,5,0)
+8 ;;=^.841^1^1
+9 ;;^UTILITY(U,$J,.84,8197.2,5,1,0)
+10 ;;=DIQ^PRINTAUD+6
+11 ;;^UTILITY(U,$J,.84,8197.3,0)
+12 ;;=8197.3^2^^2
+13 ;;^UTILITY(U,$J,.84,8197.3,2,0)
+14 ;;=^^1^1^2991218^
+15 ;;^UTILITY(U,$J,.84,8197.3,2,1,0)
+16 ;;=Created
+17 ;;^UTILITY(U,$J,.84,8197.3,5,0)
+18 ;;=^.841^1^1
+19 ;;^UTILITY(U,$J,.84,8197.3,5,1,0)
+20 ;;=DIQ^PRINTAUD+6
+21 ;;^UTILITY(U,$J,.84,8197.4,0)
+22 ;;=8197.4^2^y^2
+23 ;;^UTILITY(U,$J,.84,8197.4,2,0)
+24 ;;=^^1^1^2991218^
+25 ;;^UTILITY(U,$J,.84,8197.4,2,1,0)
+26 ;;=|1| on |2| by User #|3|
+27 ;;^UTILITY(U,$J,.84,8197.4,3,0)
+28 ;;=^.845^3^3
+29 ;;^UTILITY(U,$J,.84,8197.4,3,1,0)
+30 ;;=1^What happened
+31 ;;^UTILITY(U,$J,.84,8197.4,3,2,0)
+32 ;;=2^DATE/TIME
+33 ;;^UTILITY(U,$J,.84,8197.4,3,3,0)
+34 ;;=3^USER NUMBER
+35 ;;^UTILITY(U,$J,.84,8197.4,5,0)
+36 ;;=^.841^1^1
+37 ;;^UTILITY(U,$J,.84,8197.4,5,1,0)
+38 ;;=DIQ^PRINTAUD+6
+39 ;;^UTILITY(U,$J,.84,8197.5,0)
+40 ;;=8197.5^2^^2
+41 ;;^UTILITY(U,$J,.84,8197.5,2,0)
+42 ;;=^^1^1^
+43 ;;^UTILITY(U,$J,.84,8197.5,2,1,0)
+44 ;;=Accessed
+45 ;;^UTILITY(U,$J,.84,8197.5,5,0)
+46 ;;=^.841^1^1
+47 ;;^UTILITY(U,$J,.84,8197.5,5,1,0)
+48 ;;=DIQ^PRINTAUD+7
+49 ;;^UTILITY(U,$J,.84,8198,0)
+50 ;;=8198^2^^2
+51 ;;^UTILITY(U,$J,.84,8198,2,0)
+52 ;;=^^1^1^2990828^^
+53 ;;^UTILITY(U,$J,.84,8198,2,1,0)
+54 ;;=Standard Captioned Output
+55 ;;^UTILITY(U,$J,.84,8198,5,0)
+56 ;;=^.841^1^1
+57 ;;^UTILITY(U,$J,.84,8198,5,1,0)
+58 ;;=DII^R
+59 ;;^UTILITY(U,$J,.84,8199,0)
+60 ;;=8199^2^^2
+61 ;;^UTILITY(U,$J,.84,8199,1,0)
+62 ;;=^^1^1^2990824^
+63 ;;^UTILITY(U,$J,.84,8199,1,1,0)
+64 ;;=ANOTHER ONE: in inquiry
+65 ;;^UTILITY(U,$J,.84,8199,2,0)
+66 ;;=^^1^1^2990824^
+67 ;;^UTILITY(U,$J,.84,8199,2,1,0)
+68 ;;=Another one:
+69 ;;^UTILITY(U,$J,.84,8201,0)
+70 ;;=8201^2^y^2
+71 ;;^UTILITY(U,$J,.84,8201,2,0)
+72 ;;=^^1^1^2990831^^^
+73 ;;^UTILITY(U,$J,.84,8201,2,1,0)
+74 ;;=By '|1|', do you mean |2| '|3|'
+75 ;;^UTILITY(U,$J,.84,8201,3,0)
+76 ;;=^.845^3^3
+77 ;;^UTILITY(U,$J,.84,8201,3,1,0)
+78 ;;=1^What user input as a COMPUTED EXPRESSION element
+79 ;;^UTILITY(U,$J,.84,8201,3,2,0)
+80 ;;=2^File
+81 ;;^UTILITY(U,$J,.84,8201,3,3,0)
+82 ;;=3^Field
+83 ;;^UTILITY(U,$J,.84,8201,5,0)
+84 ;;=^.841^1^1
+85 ;;^UTILITY(U,$J,.84,8201,5,1,0)
+86 ;;=DICOMP0^A+1
+87 ;;^UTILITY(U,$J,.84,8202,0)
+88 ;;=8202^2^y^2
+89 ;;^UTILITY(U,$J,.84,8202,2,0)
+90 ;;=^^1^1^2990831^^^^
+91 ;;^UTILITY(U,$J,.84,8202,2,1,0)
+92 ;;=By '|1|', do you mean the |2| File, pointing via its '|3|' field
+93 ;;^UTILITY(U,$J,.84,8202,3,0)
+94 ;;=^.845^3^3
+95 ;;^UTILITY(U,$J,.84,8202,3,1,0)
+96 ;;=1^What user entered as BACKWARDS POINTER
+97 ;;^UTILITY(U,$J,.84,8202,3,2,0)
+98 ;;=2^File name
+99 ;;^UTILITY(U,$J,.84,8202,3,3,0)
+100 ;;=3^Name of POINTER field
+101 ;;^UTILITY(U,$J,.84,8202,5,0)
+102 ;;=^.841^1^1
+103 ;;^UTILITY(U,$J,.84,8202,5,1,0)
+104 ;;=DICOMPV
+105 ;;^UTILITY(U,$J,.84,8203,0)
+106 ;;=8203^2^y^2
+107 ;;^UTILITY(U,$J,.84,8203,2,0)
+108 ;;=^^1^1^2990831^^
+109 ;;^UTILITY(U,$J,.84,8203,2,1,0)
+110 ;;=Will terminal user be allowed to select proper entry in |1| File
+111 ;;^UTILITY(U,$J,.84,8203,3,0)
+112 ;;=^.845^1^1
+113 ;;^UTILITY(U,$J,.84,8203,3,1,0)
+114 ;;=1^Name of File that computed expression is navigating to.
+115 ;;^UTILITY(U,$J,.84,8203,5,0)
+116 ;;=^.841^1^1
+117 ;;^UTILITY(U,$J,.84,8203,5,1,0)
+118 ;;=DICOMPW^ASKE+1
+119 ;;^UTILITY(U,$J,.84,8204,0)
+120 ;;=8204^2^y^2
+121 ;;^UTILITY(U,$J,.84,8204,2,0)
+122 ;;=^^1^1^2990831^
+123 ;;^UTILITY(U,$J,.84,8204,2,1,0)
+124 ;;=Do you want to permit adding a new '|1|' entry
+125 ;;^UTILITY(U,$J,.84,8204,3,0)
+126 ;;=^.845^1^1
+127 ;;^UTILITY(U,$J,.84,8204,3,1,0)
+128 ;;=1^Name of File
+129 ;;^UTILITY(U,$J,.84,8204,5,0)
+130 ;;=^.841^1^1
+131 ;;^UTILITY(U,$J,.84,8204,5,1,0)
+132 ;;=DICOMPW^ASK1
+133 ;;^UTILITY(U,$J,.84,8205,0)
+134 ;;=8205^2^^2
+135 ;;^UTILITY(U,$J,.84,8205,2,0)
+136 ;;=^^1^1^2990831^
+137 ;;^UTILITY(U,$J,.84,8205,2,1,0)
+138 ;;=Well then, do you want to FORCE adding a new entry every time
+139 ;;^UTILITY(U,$J,.84,8205,5,0)
+140 ;;=^.841^1^1
+141 ;;^UTILITY(U,$J,.84,8205,5,1,0)
+142 ;;=DICOMPW^ASK2
+143 ;;^UTILITY(U,$J,.84,8206,0)
+144 ;;=8206^2^y^2
+145 ;;^UTILITY(U,$J,.84,8206,2,0)
+146 ;;=^^1^1^2990831^
+147 ;;^UTILITY(U,$J,.84,8206,2,1,0)
+148 ;;=Do you want an 'ADDING A NEW |1|' message
+149 ;;^UTILITY(U,$J,.84,8206,3,0)
+150 ;;=^.845^1^1
+151 ;;^UTILITY(U,$J,.84,8206,3,1,0)
+152 ;;=1^Name of File
+153 ;;^UTILITY(U,$J,.84,8206,5,0)
+154 ;;=^.841^1^1
+155 ;;^UTILITY(U,$J,.84,8206,5,1,0)
+156 ;;=DICOMPW^ASK3
+157 ;;^UTILITY(U,$J,.84,8300,0)
+158 ;;=8300^2^y^2
+159 ;;^UTILITY(U,$J,.84,8300,2,0)
+160 ;;=^^1^1^2991011^^
+161 ;;^UTILITY(U,$J,.84,8300,2,1,0)
+162 ;;= (|1| entries)
+163 ;;^UTILITY(U,$J,.84,8300,3,0)
+164 ;;=^.845^1^1
+165 ;;^UTILITY(U,$J,.84,8300,3,1,0)
+166 ;;=1^NUMBER OF ENTRIES
+167 ;;^UTILITY(U,$J,.84,8300,5,0)
+168 ;;=^.841^1^1
+169 ;;^UTILITY(U,$J,.84,8300,5,1,0)
+170 ;;=DICRW
+171 ;;^UTILITY(U,$J,.84,8301,0)
+172 ;;=8301^2^^2
+173 ;;^UTILITY(U,$J,.84,8301,2,0)
+174 ;;=^^1^1^2991011^^
+175 ;;^UTILITY(U,$J,.84,8301,2,1,0)
+176 ;;= (1 entry)
+177 ;;^UTILITY(U,$J,.84,8301,5,0)
+178 ;;=^.841^1^1
+179 ;;^UTILITY(U,$J,.84,8301,5,1,0)
+180 ;;=DICRW
+181 ;;^UTILITY(U,$J,.84,9070,0)
+182 ;;=9070^3^^2
+183 ;;^UTILITY(U,$J,.84,9070,1,0)
+184 ;;=^^1^1^2990710^
+185 ;;^UTILITY(U,$J,.84,9070,1,1,0)
+186 ;;=Type '-' in front of numeric-valued field name to sort from high to low.
+187 ;;^UTILITY(U,$J,.84,9070,2,0)
+188 ;;=^^1^1^2990710^
+189 ;;^UTILITY(U,$J,.84,9070,2,1,0)
+190 ;;=Type '-' in front of numeric-valued field name to sort from high to low.
+191 ;;^UTILITY(U,$J,.84,9070,5,0)
+192 ;;=^.841^1^1
+193 ;;^UTILITY(U,$J,.84,9070,5,1,0)
+194 ;;=DIQQ^DIP+1
+195 ;;^UTILITY(U,$J,.84,9071,0)
+196 ;;=9071^3^^2
+197 ;;^UTILITY(U,$J,.84,9071,2,0)
+198 ;;=^^4^4^2991026^^^^
+199 ;;^UTILITY(U,$J,.84,9071,2,1,0)
+200 ;;=Type '+' in front of field name to get SUBTOTALS by that field's values.
+201 ;;^UTILITY(U,$J,.84,9071,2,2,0)
+202 ;;= '#' to PAGE-FEED on each field value, '!' to get RANKING NUMBER
+203 ;;^UTILITY(U,$J,.84,9071,2,3,0)
+204 ;;= '@' to SUPPRESS SUB-HEADER, ']' to force SAVING TEMPLATE
+205 ;;^UTILITY(U,$J,.84,9071,2,4,0)
+206 ;;=Type ';TXT' after free-text fields to SORT NUMBERS AS TEXT
+207 ;;^UTILITY(U,$J,.84,9071,5,0)
+208 ;;=^.841^1^1
+209 ;;^UTILITY(U,$J,.84,9071,5,1,0)
+210 ;;=DIQQ^DIP
+211 ;;^UTILITY(U,$J,.84,9072,0)
+212 ;;=9072^3^^2
+213 ;;^UTILITY(U,$J,.84,9072,2,0)
+214 ;;=^^1^1^2990710^
+215 ;;^UTILITY(U,$J,.84,9072,2,1,0)
+216 ;;=Type [TEMPLATE NAME] in brackets to SORT BY PREVIOUS SEARCH RESULTS
+217 ;;^UTILITY(U,$J,.84,9072,5,0)
+218 ;;=^.841^1^1
+219 ;;^UTILITY(U,$J,.84,9072,5,1,0)
+220 ;;=DIQQ^DIP+7
+221 ;;^UTILITY(U,$J,.84,9073,0)
+222 ;;=9073^3^^2
+223 ;;^UTILITY(U,$J,.84,9073,2,0)
+224 ;;=^^1^1^2990720^
+225 ;;^UTILITY(U,$J,.84,9073,2,1,0)
+226 ;;=Type 'BY(0)' to define record selection and sort order
+227 ;;^UTILITY(U,$J,.84,9075,0)
+228 ;;=9075^3^^2
+229 ;;^UTILITY(U,$J,.84,9075,2,0)
+230 ;;=^^2^2^2990710^^
+231 ;;^UTILITY(U,$J,.84,9075,2,1,0)
+232 ;;=You can NEGATE any of these conditions by preceding them with "'" or "-".
+233 ;;^UTILITY(U,$J,.84,9075,2,2,0)
+234 ;;=Thus, "'NULL" means "NOT NULL".
+235 ;;^UTILITY(U,$J,.84,9075,5,0)
+236 ;;=^.841^1^1
+237 ;;^UTILITY(U,$J,.84,9075,5,1,0)
+238 ;;=DIQQQ^DISC
+239 ;;^UTILITY(U,$J,.84,9076,0)
+240 ;;=9076^3^^2
+241 ;;^UTILITY(U,$J,.84,9076,2,0)
+242 ;;=^^1^1^2990710^
+243 ;;^UTILITY(U,$J,.84,9076,2,1,0)
+244 ;;=Enter "ALL" to print every field.
+245 ;;^UTILITY(U,$J,.84,9076,5,0)
+246 ;;=^.841^1^1
+247 ;;^UTILITY(U,$J,.84,9076,5,1,0)
+248 ;;=DIQQ^DIP2+6
+249 ;;^UTILITY(U,$J,.84,9077,0)
+250 ;;=9077^3^^2
+251 ;;^UTILITY(U,$J,.84,9077,2,0)
+252 ;;=^^4^4^2990711^^
+253 ;;^UTILITY(U,$J,.84,9077,2,1,0)
+254 ;;=Type '&' in front of field name to get TOTAL for that field.
+255 ;;^UTILITY(U,$J,.84,9077,2,2,0)
+256 ;;= '!' to get COUNT. '+' to get TOTAL & COUNT. '#' to get MAX & MIN.
+257 ;;^UTILITY(U,$J,.84,9077,2,3,0)
+258 ;;= ']' to force SAVING PRINT TEMPLATE
+259 ;;^UTILITY(U,$J,.84,9077,2,4,0)
+260 ;;=You can follow field name with ';' and FORMAT SPECIFICATION.
+261 ;;^UTILITY(U,$J,.84,9077,5,0)
+262 ;;=^.841^1^1
+263 ;;^UTILITY(U,$J,.84,9077,5,1,0)
+264 ;;=DIQQ^DIP2
+265 ;;^UTILITY(U,$J,.84,9078,0)
+266 ;;=9078^3^^2
+267 ;;^UTILITY(U,$J,.84,9078,2,0)
+268 ;;=^^1^1^2990710^^
+269 ;;^UTILITY(U,$J,.84,9078,2,1,0)
+270 ;;=Type '[TEMPLATE NAME]' in brackets to use an existing PRINT TEMPLATE.
+271 ;;^UTILITY(U,$J,.84,9078,5,0)
+272 ;;=^.841^1^1
+273 ;;^UTILITY(U,$J,.84,9078,5,1,0)
+274 ;;=DIQQ^DIP2
+275 ;;^UTILITY(U,$J,.84,9079,0)
+276 ;;=9079^3^y^2
+277 ;;^UTILITY(U,$J,.84,9079,2,0)
+278 ;;=^^3^3^2990710^
+279 ;;^UTILITY(U,$J,.84,9079,2,1,0)
+280 ;;=Enter a value which '|1|'
+281 ;;^UTILITY(U,$J,.84,9079,2,2,0)
+282 ;;=must |2|, in order for truth condition
