DINIT901 ;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,210,0)
;;=210^1^^2
;;^UTILITY(U,$J,.84,210,2,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,210,2,1,0)
;;=Response must be a positive number
;;^UTILITY(U,$J,.84,210,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,210,5,1,0)
;;=DIR3
;;^UTILITY(U,$J,.84,211,0)
;;=211^1^y^2
;;^UTILITY(U,$J,.84,211,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,211,2,1,0)
;;=Response must contain no more than |1| decimal digit(s)
;;^UTILITY(U,$J,.84,211,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,211,3,1,0)
;;=1^Number of decimal digits
;;^UTILITY(U,$J,.84,211,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,211,5,1,0)
;;=DIR3
;;^UTILITY(U,$J,.84,211,5,2,0)
;;=DIR1
;;^UTILITY(U,$J,.84,212,0)
;;=212^1^y^2
;;^UTILITY(U,$J,.84,212,2,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,212,2,1,0)
;;=Response must be no less than |1| and no greater than |2|
;;^UTILITY(U,$J,.84,212,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,212,3,1,0)
;;=1^LOW VALUE
;;^UTILITY(U,$J,.84,212,3,2,0)
;;=2^HIGH VALUE
;;^UTILITY(U,$J,.84,212,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,212,5,1,0)
;;=DIR3
;;^UTILITY(U,$J,.84,213,0)
;;=213^1^y^2
;;^UTILITY(U,$J,.84,213,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,213,2,1,0)
;;=Response must contain from |1| to |2| characters.
;;^UTILITY(U,$J,.84,213,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,213,3,1,0)
;;=1^SMALLEST NUMBER OF CHARACTERS
;;^UTILITY(U,$J,.84,213,3,2,0)
;;=2^LARGEST NUMBER OF CHARACTERS
;;^UTILITY(U,$J,.84,213,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,213,5,1,0)
;;=DIR1^F+2
;;^UTILITY(U,$J,.84,214,0)
;;=214^1^^2
;;^UTILITY(U,$J,.84,214,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,214,2,1,0)
;;=Response must not contain embedded uparrows(^).
;;^UTILITY(U,$J,.84,214,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,214,5,1,0)
;;=DIR1^F+2
;;^UTILITY(U,$J,.84,504,0)
;;=504^1^y^2
;;^UTILITY(U,$J,.84,504,2,0)
;;=^^1^1^2991026^
;;^UTILITY(U,$J,.84,504,2,1,0)
;;='|1|' IS NOT A WORD-PROCESSING FIELD!
;;^UTILITY(U,$J,.84,504,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,504,3,1,0)
;;=1^NAME OF FIELD
;;^UTILITY(U,$J,.84,504,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,504,5,1,0)
;;=DIWE3^ACC+3
;;^UTILITY(U,$J,.84,1401,0)
;;=1401^1^^2
;;^UTILITY(U,$J,.84,1401,2,0)
;;=^^1^1^2991025^^
;;^UTILITY(U,$J,.84,1401,2,1,0)
;;=That is not a valid Response.
;;^UTILITY(U,$J,.84,1401,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1401,5,1,0)
;;=DIWE3^%+6
;;^UTILITY(U,$J,.84,1402,0)
;;=1402^1^^2
;;^UTILITY(U,$J,.84,1402,2,0)
;;=^^1^1^2991025^
;;^UTILITY(U,$J,.84,1402,2,1,0)
;;=No Record Found.
;;^UTILITY(U,$J,.84,1402,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1402,5,1,0)
;;=DIWE3^DIC+2
;;^UTILITY(U,$J,.84,1403,0)
;;=1403^1^^2
;;^UTILITY(U,$J,.84,1403,2,0)
;;=^^1^1^2991025^
;;^UTILITY(U,$J,.84,1403,2,1,0)
;;=There is no text to Transfer.
;;^UTILITY(U,$J,.84,1403,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1403,5,1,0)
;;=DIWE3^GET1+3
;;^UTILITY(U,$J,.84,1410,0)
;;=1410^1^^2
;;^UTILITY(U,$J,.84,1410,2,0)
;;=^^1^1^2991025^
;;^UTILITY(U,$J,.84,1410,2,1,0)
;;=You have no READ ACCESS to the File.
;;^UTILITY(U,$J,.84,1410,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1410,5,1,0)
;;=DIWE3^ACC
;;^UTILITY(U,$J,.84,1509,0)
;;=1509^1^^2
;;^UTILITY(U,$J,.84,1509,1,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,1509,1,1,0)
;;=This Search Template has no search results!
;;^UTILITY(U,$J,.84,1509,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,1509,2,1,0)
;;=This Search Template has no search results!
;;^UTILITY(U,$J,.84,1509,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1509,5,1,0)
;;=DIP11^EMPTY
;;^UTILITY(U,$J,.84,1510,0)
;;=1510^1^^2
;;^UTILITY(U,$J,.84,1510,2,0)
;;=^^1^1^2991012^
;;^UTILITY(U,$J,.84,1510,2,1,0)
;;=The START WITH File Number must be less than the GO TO File Number.
;;^UTILITY(U,$J,.84,1510,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1510,5,1,0)
;;=DICRW1
;;^UTILITY(U,$J,.84,1511,0)
;;=1511^1^^2
;;^UTILITY(U,$J,.84,1511,2,0)
;;=^^1^1^2991012^
;;^UTILITY(U,$J,.84,1511,2,1,0)
;;= The START WITH value follows the GO TO value.
;;^UTILITY(U,$J,.84,1511,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1511,5,1,0)
;;=DIP100
;;^UTILITY(U,$J,.84,1519,0)
;;=1519^1^y^2
;;^UTILITY(U,$J,.84,1519,2,0)
;;=^^1^1^2991002^^
;;^UTILITY(U,$J,.84,1519,2,1,0)
;;=*** Job stopped because maximum number of SPOOL lines (|1|) has been exceeded ***
;;^UTILITY(U,$J,.84,1519,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,1519,3,1,0)
;;=1^Maximum number of spool lines
;;^UTILITY(U,$J,.84,1519,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1519,5,1,0)
;;=DIO2
;;^UTILITY(U,$J,.84,1520,0)
;;=1520^1^^2
;;^UTILITY(U,$J,.84,1520,2,0)
;;=^^2^2^2991028^
;;^UTILITY(U,$J,.84,1520,2,1,0)
;;=A histogram cannot be displayed. No SUB-COUNTs were calculated on the last
;;^UTILITY(U,$J,.84,1520,2,2,0)
;;=Fileman print job from this device.
;;^UTILITY(U,$J,.84,1520,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1520,5,1,0)
;;=DIH
;;^UTILITY(U,$J,.84,1521,0)
;;=1521^1^^2
;;^UTILITY(U,$J,.84,1521,2,0)
;;=^^2^2^2991028^^
;;^UTILITY(U,$J,.84,1521,2,1,0)
;;=A scattergram cannot be displayed. No SUB-SUB-COUNTs were calculated on the last
;;^UTILITY(U,$J,.84,1521,2,2,0)
;;=Fileman print job from this device.
;;^UTILITY(U,$J,.84,1521,5,0)
;;=^.841^^0
;;^UTILITY(U,$J,.84,1528,0)
;;=1528^1^y^2
;;^UTILITY(U,$J,.84,1528,2,0)
;;=^^1^1^2991002^
;;^UTILITY(U,$J,.84,1528,2,1,0)
;;=*** TASK |1| stopped by user during Print Execution ***
;;^UTILITY(U,$J,.84,1528,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,1528,3,1,0)
;;=1^Task Number
;;^UTILITY(U,$J,.84,1528,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1528,5,1,0)
;;=DIO2^TASKSTOP
;;^UTILITY(U,$J,.84,1529,0)
;;=1529^1^y^2
;;^UTILITY(U,$J,.84,1529,2,0)
;;=^^1^1^2991002^^
;;^UTILITY(U,$J,.84,1529,2,1,0)
;;=*** TASK |1| stopped by user during Sort Execution ***
;;^UTILITY(U,$J,.84,1529,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,1529,3,1,0)
;;=1^Task Number
;;^UTILITY(U,$J,.84,1529,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1529,5,1,0)
;;=DIO2^TASKSTOP
;;^UTILITY(U,$J,.84,7050,0)
;;=7050^2^^2
;;^UTILITY(U,$J,.84,7050,1,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,7050,1,1,0)
;;=ARE YOU SURE?
;;^UTILITY(U,$J,.84,7050,2,0)
;;=^^1^1^2990710^^
;;^UTILITY(U,$J,.84,7050,2,1,0)
;;=ARE YOU SURE
;;^UTILITY(U,$J,.84,7050,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7050,5,1,0)
;;=DIWE3^YN
;;^UTILITY(U,$J,.84,7060,0)
;;=7060^2^y^2
;;^UTILITY(U,$J,.84,7060,2,0)
;;=2
;;^UTILITY(U,$J,.84,7060,2,1,0)
;;=Within |1|, |2| by
;;^UTILITY(U,$J,.84,7060,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,7060,3,1,0)
;;=1^NAME OF PREVIOUS SORT FIELD
;;^UTILITY(U,$J,.84,7060,3,2,0)
;;=2^AN IMPERATIVE PHRASE LIKE 'SORT BY'
;;^UTILITY(U,$J,.84,7060,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7060,5,1,0)
;;=DIP^EGP
;;^UTILITY(U,$J,.84,7061,0)
;;=7061^2^y^2
;;^UTILITY(U,$J,.84,7061,2,0)
;;=^^1^1^2991013^^^
;;^UTILITY(U,$J,.84,7061,2,1,0)
;;=|1| by
;;^UTILITY(U,$J,.84,7061,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7061,3,1,0)
;;=1^THE WORD 'SORT' OR SIMILAR
;;^UTILITY(U,$J,.84,7061,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7061,5,1,0)
;;=DIP^BY
;;^UTILITY(U,$J,.84,7062,0)
;;=7062^2^^2
;;^UTILITY(U,$J,.84,7062,2,0)
;;=^^1^1^2991013^
;;^UTILITY(U,$J,.84,7062,2,1,0)
;;=Sort
;;^UTILITY(U,$J,.84,7062,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7062,5,1,0)
;;=DIP^SORT
;;^UTILITY(U,$J,.84,7063,0)
;;=7063^2^y^2
;;^UTILITY(U,$J,.84,7063,2,0)
;;=^^1^1^2991028^
;;^UTILITY(U,$J,.84,7063,2,1,0)
;;=|1| Print |2|:
;;^UTILITY(U,$J,.84,7063,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,7063,3,1,0)
;;=1^'FIRST' OR 'THEN'
;;^UTILITY(U,$J,.84,7063,3,2,0)
;;=2^'FIELD' or similar
;;^UTILITY(U,$J,.84,7063,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7063,5,1,0)
;;=DIP2^2
;;^UTILITY(U,$J,.84,7064,0)
;;=7064^2^y^2
;;^UTILITY(U,$J,.84,7064,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,7064,2,1,0)
;;=|1| Export |2|:
;;^UTILITY(U,$J,.84,7064,3,0)
;;=^.845^2^2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT901 8689 printed Dec 13, 2024@02:51:54 Page 2
DINIT901 ;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,210,0)
+2 ;;=210^1^^2
+3 ;;^UTILITY(U,$J,.84,210,2,0)
+4 ;;=^^1^1^2991028^
+5 ;;^UTILITY(U,$J,.84,210,2,1,0)
+6 ;;=Response must be a positive number
+7 ;;^UTILITY(U,$J,.84,210,5,0)
+8 ;;=^.841^1^1
+9 ;;^UTILITY(U,$J,.84,210,5,1,0)
+10 ;;=DIR3
+11 ;;^UTILITY(U,$J,.84,211,0)
+12 ;;=211^1^y^2
+13 ;;^UTILITY(U,$J,.84,211,2,0)
+14 ;;=^^1^1^2991028^^^
+15 ;;^UTILITY(U,$J,.84,211,2,1,0)
+16 ;;=Response must contain no more than |1| decimal digit(s)
+17 ;;^UTILITY(U,$J,.84,211,3,0)
+18 ;;=^.845^1^1
+19 ;;^UTILITY(U,$J,.84,211,3,1,0)
+20 ;;=1^Number of decimal digits
+21 ;;^UTILITY(U,$J,.84,211,5,0)
+22 ;;=^.841^2^2
+23 ;;^UTILITY(U,$J,.84,211,5,1,0)
+24 ;;=DIR3
+25 ;;^UTILITY(U,$J,.84,211,5,2,0)
+26 ;;=DIR1
+27 ;;^UTILITY(U,$J,.84,212,0)
+28 ;;=212^1^y^2
+29 ;;^UTILITY(U,$J,.84,212,2,0)
+30 ;;=^^1^1^2991028^
+31 ;;^UTILITY(U,$J,.84,212,2,1,0)
+32 ;;=Response must be no less than |1| and no greater than |2|
+33 ;;^UTILITY(U,$J,.84,212,3,0)
+34 ;;=^.845^2^2
+35 ;;^UTILITY(U,$J,.84,212,3,1,0)
+36 ;;=1^LOW VALUE
+37 ;;^UTILITY(U,$J,.84,212,3,2,0)
+38 ;;=2^HIGH VALUE
+39 ;;^UTILITY(U,$J,.84,212,5,0)
+40 ;;=^.841^1^1
+41 ;;^UTILITY(U,$J,.84,212,5,1,0)
+42 ;;=DIR3
+43 ;;^UTILITY(U,$J,.84,213,0)
+44 ;;=213^1^y^2
+45 ;;^UTILITY(U,$J,.84,213,2,0)
+46 ;;=^^1^1^2991028^^
+47 ;;^UTILITY(U,$J,.84,213,2,1,0)
+48 ;;=Response must contain from |1| to |2| characters.
+49 ;;^UTILITY(U,$J,.84,213,3,0)
+50 ;;=^.845^2^2
+51 ;;^UTILITY(U,$J,.84,213,3,1,0)
+52 ;;=1^SMALLEST NUMBER OF CHARACTERS
+53 ;;^UTILITY(U,$J,.84,213,3,2,0)
+54 ;;=2^LARGEST NUMBER OF CHARACTERS
+55 ;;^UTILITY(U,$J,.84,213,5,0)
+56 ;;=^.841^1^1
+57 ;;^UTILITY(U,$J,.84,213,5,1,0)
+58 ;;=DIR1^F+2
+59 ;;^UTILITY(U,$J,.84,214,0)
+60 ;;=214^1^^2
+61 ;;^UTILITY(U,$J,.84,214,2,0)
+62 ;;=^^1^1^2991028^^
+63 ;;^UTILITY(U,$J,.84,214,2,1,0)
+64 ;;=Response must not contain embedded uparrows(^).
+65 ;;^UTILITY(U,$J,.84,214,5,0)
+66 ;;=^.841^1^1
+67 ;;^UTILITY(U,$J,.84,214,5,1,0)
+68 ;;=DIR1^F+2
+69 ;;^UTILITY(U,$J,.84,504,0)
+70 ;;=504^1^y^2
+71 ;;^UTILITY(U,$J,.84,504,2,0)
+72 ;;=^^1^1^2991026^
+73 ;;^UTILITY(U,$J,.84,504,2,1,0)
+74 ;;='|1|' IS NOT A WORD-PROCESSING FIELD!
+75 ;;^UTILITY(U,$J,.84,504,3,0)
+76 ;;=^.845^1^1
+77 ;;^UTILITY(U,$J,.84,504,3,1,0)
+78 ;;=1^NAME OF FIELD
+79 ;;^UTILITY(U,$J,.84,504,5,0)
+80 ;;=^.841^1^1
+81 ;;^UTILITY(U,$J,.84,504,5,1,0)
+82 ;;=DIWE3^ACC+3
+83 ;;^UTILITY(U,$J,.84,1401,0)
+84 ;;=1401^1^^2
+85 ;;^UTILITY(U,$J,.84,1401,2,0)
+86 ;;=^^1^1^2991025^^
+87 ;;^UTILITY(U,$J,.84,1401,2,1,0)
+88 ;;=That is not a valid Response.
+89 ;;^UTILITY(U,$J,.84,1401,5,0)
+90 ;;=^.841^1^1
+91 ;;^UTILITY(U,$J,.84,1401,5,1,0)
+92 ;;=DIWE3^%+6
+93 ;;^UTILITY(U,$J,.84,1402,0)
+94 ;;=1402^1^^2
+95 ;;^UTILITY(U,$J,.84,1402,2,0)
+96 ;;=^^1^1^2991025^
+97 ;;^UTILITY(U,$J,.84,1402,2,1,0)
+98 ;;=No Record Found.
+99 ;;^UTILITY(U,$J,.84,1402,5,0)
+100 ;;=^.841^1^1
+101 ;;^UTILITY(U,$J,.84,1402,5,1,0)
+102 ;;=DIWE3^DIC+2
+103 ;;^UTILITY(U,$J,.84,1403,0)
+104 ;;=1403^1^^2
+105 ;;^UTILITY(U,$J,.84,1403,2,0)
+106 ;;=^^1^1^2991025^
+107 ;;^UTILITY(U,$J,.84,1403,2,1,0)
+108 ;;=There is no text to Transfer.
+109 ;;^UTILITY(U,$J,.84,1403,5,0)
+110 ;;=^.841^1^1
+111 ;;^UTILITY(U,$J,.84,1403,5,1,0)
+112 ;;=DIWE3^GET1+3
+113 ;;^UTILITY(U,$J,.84,1410,0)
+114 ;;=1410^1^^2
+115 ;;^UTILITY(U,$J,.84,1410,2,0)
+116 ;;=^^1^1^2991025^
+117 ;;^UTILITY(U,$J,.84,1410,2,1,0)
+118 ;;=You have no READ ACCESS to the File.
+119 ;;^UTILITY(U,$J,.84,1410,5,0)
+120 ;;=^.841^1^1
+121 ;;^UTILITY(U,$J,.84,1410,5,1,0)
+122 ;;=DIWE3^ACC
+123 ;;^UTILITY(U,$J,.84,1509,0)
+124 ;;=1509^1^^2
+125 ;;^UTILITY(U,$J,.84,1509,1,0)
+126 ;;=^^1^1^2990903^
+127 ;;^UTILITY(U,$J,.84,1509,1,1,0)
+128 ;;=This Search Template has no search results!
+129 ;;^UTILITY(U,$J,.84,1509,2,0)
+130 ;;=^^1^1^2990903^
+131 ;;^UTILITY(U,$J,.84,1509,2,1,0)
+132 ;;=This Search Template has no search results!
+133 ;;^UTILITY(U,$J,.84,1509,5,0)
+134 ;;=^.841^1^1
+135 ;;^UTILITY(U,$J,.84,1509,5,1,0)
+136 ;;=DIP11^EMPTY
+137 ;;^UTILITY(U,$J,.84,1510,0)
+138 ;;=1510^1^^2
+139 ;;^UTILITY(U,$J,.84,1510,2,0)
+140 ;;=^^1^1^2991012^
+141 ;;^UTILITY(U,$J,.84,1510,2,1,0)
+142 ;;=The START WITH File Number must be less than the GO TO File Number.
+143 ;;^UTILITY(U,$J,.84,1510,5,0)
+144 ;;=^.841^1^1
+145 ;;^UTILITY(U,$J,.84,1510,5,1,0)
+146 ;;=DICRW1
+147 ;;^UTILITY(U,$J,.84,1511,0)
+148 ;;=1511^1^^2
+149 ;;^UTILITY(U,$J,.84,1511,2,0)
+150 ;;=^^1^1^2991012^
+151 ;;^UTILITY(U,$J,.84,1511,2,1,0)
+152 ;;= The START WITH value follows the GO TO value.
+153 ;;^UTILITY(U,$J,.84,1511,5,0)
+154 ;;=^.841^1^1
+155 ;;^UTILITY(U,$J,.84,1511,5,1,0)
+156 ;;=DIP100
+157 ;;^UTILITY(U,$J,.84,1519,0)
+158 ;;=1519^1^y^2
+159 ;;^UTILITY(U,$J,.84,1519,2,0)
+160 ;;=^^1^1^2991002^^
+161 ;;^UTILITY(U,$J,.84,1519,2,1,0)
+162 ;;=*** Job stopped because maximum number of SPOOL lines (|1|) has been exceeded ***
+163 ;;^UTILITY(U,$J,.84,1519,3,0)
+164 ;;=^.845^1^1
+165 ;;^UTILITY(U,$J,.84,1519,3,1,0)
+166 ;;=1^Maximum number of spool lines
+167 ;;^UTILITY(U,$J,.84,1519,5,0)
+168 ;;=^.841^1^1
+169 ;;^UTILITY(U,$J,.84,1519,5,1,0)
+170 ;;=DIO2
+171 ;;^UTILITY(U,$J,.84,1520,0)
+172 ;;=1520^1^^2
+173 ;;^UTILITY(U,$J,.84,1520,2,0)
+174 ;;=^^2^2^2991028^
+175 ;;^UTILITY(U,$J,.84,1520,2,1,0)
+176 ;;=A histogram cannot be displayed. No SUB-COUNTs were calculated on the last
+177 ;;^UTILITY(U,$J,.84,1520,2,2,0)
+178 ;;=Fileman print job from this device.
+179 ;;^UTILITY(U,$J,.84,1520,5,0)
+180 ;;=^.841^1^1
+181 ;;^UTILITY(U,$J,.84,1520,5,1,0)
+182 ;;=DIH
+183 ;;^UTILITY(U,$J,.84,1521,0)
+184 ;;=1521^1^^2
+185 ;;^UTILITY(U,$J,.84,1521,2,0)
+186 ;;=^^2^2^2991028^^
+187 ;;^UTILITY(U,$J,.84,1521,2,1,0)
+188 ;;=A scattergram cannot be displayed. No SUB-SUB-COUNTs were calculated on the last
+189 ;;^UTILITY(U,$J,.84,1521,2,2,0)
+190 ;;=Fileman print job from this device.
+191 ;;^UTILITY(U,$J,.84,1521,5,0)
+192 ;;=^.841^^0
+193 ;;^UTILITY(U,$J,.84,1528,0)
+194 ;;=1528^1^y^2
+195 ;;^UTILITY(U,$J,.84,1528,2,0)
+196 ;;=^^1^1^2991002^
+197 ;;^UTILITY(U,$J,.84,1528,2,1,0)
+198 ;;=*** TASK |1| stopped by user during Print Execution ***
+199 ;;^UTILITY(U,$J,.84,1528,3,0)
+200 ;;=^.845^1^1
+201 ;;^UTILITY(U,$J,.84,1528,3,1,0)
+202 ;;=1^Task Number
+203 ;;^UTILITY(U,$J,.84,1528,5,0)
+204 ;;=^.841^1^1
+205 ;;^UTILITY(U,$J,.84,1528,5,1,0)
+206 ;;=DIO2^TASKSTOP
+207 ;;^UTILITY(U,$J,.84,1529,0)
+208 ;;=1529^1^y^2
+209 ;;^UTILITY(U,$J,.84,1529,2,0)
+210 ;;=^^1^1^2991002^^
+211 ;;^UTILITY(U,$J,.84,1529,2,1,0)
+212 ;;=*** TASK |1| stopped by user during Sort Execution ***
+213 ;;^UTILITY(U,$J,.84,1529,3,0)
+214 ;;=^.845^1^1
+215 ;;^UTILITY(U,$J,.84,1529,3,1,0)
+216 ;;=1^Task Number
+217 ;;^UTILITY(U,$J,.84,1529,5,0)
+218 ;;=^.841^1^1
+219 ;;^UTILITY(U,$J,.84,1529,5,1,0)
+220 ;;=DIO2^TASKSTOP
+221 ;;^UTILITY(U,$J,.84,7050,0)
+222 ;;=7050^2^^2
+223 ;;^UTILITY(U,$J,.84,7050,1,0)
+224 ;;=^^1^1^2990710^
+225 ;;^UTILITY(U,$J,.84,7050,1,1,0)
+226 ;;=ARE YOU SURE?
+227 ;;^UTILITY(U,$J,.84,7050,2,0)
+228 ;;=^^1^1^2990710^^
+229 ;;^UTILITY(U,$J,.84,7050,2,1,0)
+230 ;;=ARE YOU SURE
+231 ;;^UTILITY(U,$J,.84,7050,5,0)
+232 ;;=^.841^1^1
+233 ;;^UTILITY(U,$J,.84,7050,5,1,0)
+234 ;;=DIWE3^YN
+235 ;;^UTILITY(U,$J,.84,7060,0)
+236 ;;=7060^2^y^2
+237 ;;^UTILITY(U,$J,.84,7060,2,0)
+238 ;;=2
+239 ;;^UTILITY(U,$J,.84,7060,2,1,0)
+240 ;;=Within |1|, |2| by
+241 ;;^UTILITY(U,$J,.84,7060,3,0)
+242 ;;=^.845^2^2
+243 ;;^UTILITY(U,$J,.84,7060,3,1,0)
+244 ;;=1^NAME OF PREVIOUS SORT FIELD
+245 ;;^UTILITY(U,$J,.84,7060,3,2,0)
+246 ;;=2^AN IMPERATIVE PHRASE LIKE 'SORT BY'
+247 ;;^UTILITY(U,$J,.84,7060,5,0)
+248 ;;=^.841^1^1
+249 ;;^UTILITY(U,$J,.84,7060,5,1,0)
+250 ;;=DIP^EGP
+251 ;;^UTILITY(U,$J,.84,7061,0)
+252 ;;=7061^2^y^2
+253 ;;^UTILITY(U,$J,.84,7061,2,0)
+254 ;;=^^1^1^2991013^^^
+255 ;;^UTILITY(U,$J,.84,7061,2,1,0)
+256 ;;=|1| by
+257 ;;^UTILITY(U,$J,.84,7061,3,0)
+258 ;;=^.845^1^1
+259 ;;^UTILITY(U,$J,.84,7061,3,1,0)
+260 ;;=1^THE WORD 'SORT' OR SIMILAR
+261 ;;^UTILITY(U,$J,.84,7061,5,0)
+262 ;;=^.841^1^1
+263 ;;^UTILITY(U,$J,.84,7061,5,1,0)
+264 ;;=DIP^BY
+265 ;;^UTILITY(U,$J,.84,7062,0)
+266 ;;=7062^2^^2
+267 ;;^UTILITY(U,$J,.84,7062,2,0)
+268 ;;=^^1^1^2991013^
+269 ;;^UTILITY(U,$J,.84,7062,2,1,0)
+270 ;;=Sort
+271 ;;^UTILITY(U,$J,.84,7062,5,0)
+272 ;;=^.841^1^1
+273 ;;^UTILITY(U,$J,.84,7062,5,1,0)
+274 ;;=DIP^SORT
+275 ;;^UTILITY(U,$J,.84,7063,0)
+276 ;;=7063^2^y^2
+277 ;;^UTILITY(U,$J,.84,7063,2,0)
+278 ;;=^^1^1^2991028^
+279 ;;^UTILITY(U,$J,.84,7063,2,1,0)
+280 ;;=|1| Print |2|:
+281 ;;^UTILITY(U,$J,.84,7063,3,0)
+282 ;;=^.845^2^2
+283 ;;^UTILITY(U,$J,.84,7063,3,1,0)
+284 ;;=1^'FIRST' OR 'THEN'
+285 ;;^UTILITY(U,$J,.84,7063,3,2,0)
+286 ;;=2^'FIELD' or similar
+287 ;;^UTILITY(U,$J,.84,7063,5,0)
+288 ;;=^.841^1^1
+289 ;;^UTILITY(U,$J,.84,7063,5,1,0)
+290 ;;=DIP2^2
+291 ;;^UTILITY(U,$J,.84,7064,0)
+292 ;;=7064^2^y^2
+293 ;;^UTILITY(U,$J,.84,7064,2,0)
+294 ;;=^^1^1^2991028^^
+295 ;;^UTILITY(U,$J,.84,7064,2,1,0)
+296 ;;=|1| Export |2|:
+297 ;;^UTILITY(U,$J,.84,7064,3,0)
+298 ;;=^.845^2^2