DINIT00J ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;12:15 PM 6 Nov 2002
;;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,8044,1,0)
;;=^^1^1^2940314^^
;;^UTILITY(U,$J,.84,8044,1,1,0)
;;=Used for time input to the reader.
;;^UTILITY(U,$J,.84,8044,2,0)
;;=^^1^1^2940314^^
;;^UTILITY(U,$J,.84,8044,2,1,0)
;;= and optional time
;;^UTILITY(U,$J,.84,8045,0)
;;=8045^2^y^5
;;^UTILITY(U,$J,.84,8045,1,0)
;;=^^3^3^2940310^^^^
;;^UTILITY(U,$J,.84,8045,1,1,0)
;;=This prompt is used by the reader when he is building prompts for
;;^UTILITY(U,$J,.84,8045,1,2,0)
;;=Set-of-codes type data.
;;^UTILITY(U,$J,.84,8045,1,3,0)
;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
;;^UTILITY(U,$J,.84,8045,2,0)
;;=^^1^1^2940310^^^
;;^UTILITY(U,$J,.84,8045,2,1,0)
;;=Enter |1|:
;;^UTILITY(U,$J,.84,8045,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8045,3,1,0)
;;=1^Default Prompt from DIR("A")
;;^UTILITY(U,$J,.84,8046,0)
;;=8046^2^^5
;;^UTILITY(U,$J,.84,8046,1,0)
;;=^^1^1^2960124^^
;;^UTILITY(U,$J,.84,8046,1,1,0)
;;=Reader prompt for choices from a list
;;^UTILITY(U,$J,.84,8046,2,0)
;;=^^1^1^2960124^^^
;;^UTILITY(U,$J,.84,8046,2,1,0)
;;=Select one of the following:
;;^UTILITY(U,$J,.84,8047,0)
;;=8047^2^^5
;;^UTILITY(U,$J,.84,8047,1,0)
;;=^^1^1^2940315^^^^
;;^UTILITY(U,$J,.84,8047,1,1,0)
;;=Part one of the Replace with prompt (including spaces).
;;^UTILITY(U,$J,.84,8047,2,0)
;;=^^1^1^2940315^^^^
;;^UTILITY(U,$J,.84,8047,2,1,0)
;;= Replace
;;^UTILITY(U,$J,.84,8048,0)
;;=8048^2^^5
;;^UTILITY(U,$J,.84,8048,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8048,1,1,0)
;;=Part two of the Replace With editor (including spaces).
;;^UTILITY(U,$J,.84,8048,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8048,2,1,0)
;;= With
;;^UTILITY(U,$J,.84,8050,0)
;;=8050^2^^5
;;^UTILITY(U,$J,.84,8050,1,0)
;;=^^2^2^2971125^
;;^UTILITY(U,$J,.84,8050,1,1,0)
;;=Print the word 'Another' when prompting user to select another entry in
;;^UTILITY(U,$J,.84,8050,1,2,0)
;;=Inquire mode.
;;^UTILITY(U,$J,.84,8050,2,0)
;;=^^1^1^2971125^
;;^UTILITY(U,$J,.84,8050,2,1,0)
;;=Another
;;^UTILITY(U,$J,.84,8050,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8050,5,1,0)
;;=DIC11^GETPRMT
;;^UTILITY(U,$J,.84,8051,0)
;;=8051^2^^5
;;^UTILITY(U,$J,.84,8051,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8051,1,1,0)
;;=Reader prompt
;;^UTILITY(U,$J,.84,8051,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8051,2,1,0)
;;=Enter response:
;;^UTILITY(U,$J,.84,8052,0)
;;=8052^2^^5
;;^UTILITY(U,$J,.84,8052,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8052,1,1,0)
;;=Prompt for the reader
;;^UTILITY(U,$J,.84,8052,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8052,2,1,0)
;;=Enter Yes or No:
;;^UTILITY(U,$J,.84,8053,0)
;;=8053^2^^5
;;^UTILITY(U,$J,.84,8053,1,0)
;;=^^1^1^2940316^^
;;^UTILITY(U,$J,.84,8053,1,1,0)
;;=Prompt for the reader: End of page
;;^UTILITY(U,$J,.84,8053,2,0)
;;=^^1^1^2940316^^
;;^UTILITY(U,$J,.84,8053,2,1,0)
;;=Type <Enter> to continue or '^' to exit:
;;^UTILITY(U,$J,.84,8054,0)
;;=8054^2^^5
;;^UTILITY(U,$J,.84,8054,1,0)
;;=^^1^1^2940310^^
;;^UTILITY(U,$J,.84,8054,1,1,0)
;;=Prompt for the reader: numbers
;;^UTILITY(U,$J,.84,8054,2,0)
;;=^^1^1^2940310^^
;;^UTILITY(U,$J,.84,8054,2,1,0)
;;=Enter a number
;;^UTILITY(U,$J,.84,8055,0)
;;=8055^2^^5
;;^UTILITY(U,$J,.84,8055,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8055,1,1,0)
;;=Prompt for the reader: date
;;^UTILITY(U,$J,.84,8055,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8055,2,1,0)
;;=Enter a date
;;^UTILITY(U,$J,.84,8056,0)
;;=8056^2^^5
;;^UTILITY(U,$J,.84,8056,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8056,1,1,0)
;;=Prompt for the reader: List
;;^UTILITY(U,$J,.84,8056,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8056,2,1,0)
;;=Enter a list or range of numbers
;;^UTILITY(U,$J,.84,8057,0)
;;=8057^2^^5
;;^UTILITY(U,$J,.84,8057,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8057,1,1,0)
;;=Prompt for the Reader: Pointers
;;^UTILITY(U,$J,.84,8057,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,8057,2,1,0)
;;=Select:
;;^UTILITY(U,$J,.84,8058,0)
;;=8058^2^y^5
;;^UTILITY(U,$J,.84,8058,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8058,1,1,0)
;;=Part II of the 'Are you adding a new...' question
;;^UTILITY(U,$J,.84,8058,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8058,2,1,0)
;;= (the |1|
;;^UTILITY(U,$J,.84,8058,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8058,3,1,0)
;;=1^Ordinal number of new entry
;;^UTILITY(U,$J,.84,8059,0)
;;=8059^2^y^5
;;^UTILITY(U,$J,.84,8059,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8059,1,1,0)
;;=Part III of the 'Are you adding a new...' question
;;^UTILITY(U,$J,.84,8059,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8059,2,1,0)
;;= for this |1|
;;^UTILITY(U,$J,.84,8059,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8059,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8060,0)
;;=8060^2^^5
;;^UTILITY(U,$J,.84,8060,1,0)
;;=^^1^1^2940314^^
;;^UTILITY(U,$J,.84,8060,1,1,0)
;;=Part Ia of the 'Are you adding...' message
;;^UTILITY(U,$J,.84,8060,2,0)
;;=^^1^1^2940314^^
;;^UTILITY(U,$J,.84,8060,2,1,0)
;;= Are you adding
;;^UTILITY(U,$J,.84,8061,0)
;;=8061^2^y^5
;;^UTILITY(U,$J,.84,8061,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8061,1,1,0)
;;=Part Ib of the 'Are you adding...' question
;;^UTILITY(U,$J,.84,8061,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8061,2,1,0)
;;='|1|' as
;;^UTILITY(U,$J,.84,8061,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8061,3,1,0)
;;=1^Input value for .01 field
;;^UTILITY(U,$J,.84,8062,0)
;;=8062^2^y^5
;;^UTILITY(U,$J,.84,8062,1,0)
;;=^^1^1^2940314^^^
;;^UTILITY(U,$J,.84,8062,1,1,0)
;;=Part Ic of the "Are you adding..." message
;;^UTILITY(U,$J,.84,8062,2,0)
;;=^^1^1^2940314^^^^
;;^UTILITY(U,$J,.84,8062,2,1,0)
;;=a new |1|
;;^UTILITY(U,$J,.84,8062,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8062,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8063,0)
;;=8063^2^y^5
;;^UTILITY(U,$J,.84,8063,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8063,1,1,0)
;;=Lookup Part I
;;^UTILITY(U,$J,.84,8063,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8063,2,1,0)
;;= Answer with |1|
;;^UTILITY(U,$J,.84,8063,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8063,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8064,0)
;;=8064^2^^5
;;^UTILITY(U,$J,.84,8064,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8064,1,1,0)
;;=Lookup Part II
;;^UTILITY(U,$J,.84,8064,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8064,2,1,0)
;;= Do you want the entire
;;^UTILITY(U,$J,.84,8065,0)
;;=8065^2^y^5
;;^UTILITY(U,$J,.84,8065,1,0)
;;=^^1^1^2940314^^
;;^UTILITY(U,$J,.84,8065,1,1,0)
;;=Lookup Part III
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00J 7297 printed Apr 09, 2024@21:49:13 Page 2
DINIT00J ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;12:15 PM 6 Nov 2002
+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,8044,1,0)
+2 ;;=^^1^1^2940314^^
+3 ;;^UTILITY(U,$J,.84,8044,1,1,0)
+4 ;;=Used for time input to the reader.
+5 ;;^UTILITY(U,$J,.84,8044,2,0)
+6 ;;=^^1^1^2940314^^
+7 ;;^UTILITY(U,$J,.84,8044,2,1,0)
+8 ;;= and optional time
+9 ;;^UTILITY(U,$J,.84,8045,0)
+10 ;;=8045^2^y^5
+11 ;;^UTILITY(U,$J,.84,8045,1,0)
+12 ;;=^^3^3^2940310^^^^
+13 ;;^UTILITY(U,$J,.84,8045,1,1,0)
+14 ;;=This prompt is used by the reader when he is building prompts for
+15 ;;^UTILITY(U,$J,.84,8045,1,2,0)
+16 ;;=Set-of-codes type data.
+17 ;;^UTILITY(U,$J,.84,8045,1,3,0)
+18 ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
+19 ;;^UTILITY(U,$J,.84,8045,2,0)
+20 ;;=^^1^1^2940310^^^
+21 ;;^UTILITY(U,$J,.84,8045,2,1,0)
+22 ;;=Enter |1|:
+23 ;;^UTILITY(U,$J,.84,8045,3,0)
+24 ;;=^.845^1^1
+25 ;;^UTILITY(U,$J,.84,8045,3,1,0)
+26 ;;=1^Default Prompt from DIR("A")
+27 ;;^UTILITY(U,$J,.84,8046,0)
+28 ;;=8046^2^^5
+29 ;;^UTILITY(U,$J,.84,8046,1,0)
+30 ;;=^^1^1^2960124^^
+31 ;;^UTILITY(U,$J,.84,8046,1,1,0)
+32 ;;=Reader prompt for choices from a list
+33 ;;^UTILITY(U,$J,.84,8046,2,0)
+34 ;;=^^1^1^2960124^^^
+35 ;;^UTILITY(U,$J,.84,8046,2,1,0)
+36 ;;=Select one of the following:
+37 ;;^UTILITY(U,$J,.84,8047,0)
+38 ;;=8047^2^^5
+39 ;;^UTILITY(U,$J,.84,8047,1,0)
+40 ;;=^^1^1^2940315^^^^
+41 ;;^UTILITY(U,$J,.84,8047,1,1,0)
+42 ;;=Part one of the Replace with prompt (including spaces).
+43 ;;^UTILITY(U,$J,.84,8047,2,0)
+44 ;;=^^1^1^2940315^^^^
+45 ;;^UTILITY(U,$J,.84,8047,2,1,0)
+46 ;;= Replace
+47 ;;^UTILITY(U,$J,.84,8048,0)
+48 ;;=8048^2^^5
+49 ;;^UTILITY(U,$J,.84,8048,1,0)
+50 ;;=^^1^1^2940310^
+51 ;;^UTILITY(U,$J,.84,8048,1,1,0)
+52 ;;=Part two of the Replace With editor (including spaces).
+53 ;;^UTILITY(U,$J,.84,8048,2,0)
+54 ;;=^^1^1^2940310^
+55 ;;^UTILITY(U,$J,.84,8048,2,1,0)
+56 ;;= With
+57 ;;^UTILITY(U,$J,.84,8050,0)
+58 ;;=8050^2^^5
+59 ;;^UTILITY(U,$J,.84,8050,1,0)
+60 ;;=^^2^2^2971125^
+61 ;;^UTILITY(U,$J,.84,8050,1,1,0)
+62 ;;=Print the word 'Another' when prompting user to select another entry in
+63 ;;^UTILITY(U,$J,.84,8050,1,2,0)
+64 ;;=Inquire mode.
+65 ;;^UTILITY(U,$J,.84,8050,2,0)
+66 ;;=^^1^1^2971125^
+67 ;;^UTILITY(U,$J,.84,8050,2,1,0)
+68 ;;=Another
+69 ;;^UTILITY(U,$J,.84,8050,5,0)
+70 ;;=^.841^1^1
+71 ;;^UTILITY(U,$J,.84,8050,5,1,0)
+72 ;;=DIC11^GETPRMT
+73 ;;^UTILITY(U,$J,.84,8051,0)
+74 ;;=8051^2^^5
+75 ;;^UTILITY(U,$J,.84,8051,1,0)
+76 ;;=^^1^1^2940310^
+77 ;;^UTILITY(U,$J,.84,8051,1,1,0)
+78 ;;=Reader prompt
+79 ;;^UTILITY(U,$J,.84,8051,2,0)
+80 ;;=^^1^1^2940310^
+81 ;;^UTILITY(U,$J,.84,8051,2,1,0)
+82 ;;=Enter response:
+83 ;;^UTILITY(U,$J,.84,8052,0)
+84 ;;=8052^2^^5
+85 ;;^UTILITY(U,$J,.84,8052,1,0)
+86 ;;=^^1^1^2940310^
+87 ;;^UTILITY(U,$J,.84,8052,1,1,0)
+88 ;;=Prompt for the reader
+89 ;;^UTILITY(U,$J,.84,8052,2,0)
+90 ;;=^^1^1^2940310^
+91 ;;^UTILITY(U,$J,.84,8052,2,1,0)
+92 ;;=Enter Yes or No:
+93 ;;^UTILITY(U,$J,.84,8053,0)
+94 ;;=8053^2^^5
+95 ;;^UTILITY(U,$J,.84,8053,1,0)
+96 ;;=^^1^1^2940316^^
+97 ;;^UTILITY(U,$J,.84,8053,1,1,0)
+98 ;;=Prompt for the reader: End of page
+99 ;;^UTILITY(U,$J,.84,8053,2,0)
+100 ;;=^^1^1^2940316^^
+101 ;;^UTILITY(U,$J,.84,8053,2,1,0)
+102 ;;=Type <Enter> to continue or '^' to exit:
+103 ;;^UTILITY(U,$J,.84,8054,0)
+104 ;;=8054^2^^5
+105 ;;^UTILITY(U,$J,.84,8054,1,0)
+106 ;;=^^1^1^2940310^^
+107 ;;^UTILITY(U,$J,.84,8054,1,1,0)
+108 ;;=Prompt for the reader: numbers
+109 ;;^UTILITY(U,$J,.84,8054,2,0)
+110 ;;=^^1^1^2940310^^
+111 ;;^UTILITY(U,$J,.84,8054,2,1,0)
+112 ;;=Enter a number
+113 ;;^UTILITY(U,$J,.84,8055,0)
+114 ;;=8055^2^^5
+115 ;;^UTILITY(U,$J,.84,8055,1,0)
+116 ;;=^^1^1^2940310^
+117 ;;^UTILITY(U,$J,.84,8055,1,1,0)
+118 ;;=Prompt for the reader: date
+119 ;;^UTILITY(U,$J,.84,8055,2,0)
+120 ;;=^^1^1^2940310^
+121 ;;^UTILITY(U,$J,.84,8055,2,1,0)
+122 ;;=Enter a date
+123 ;;^UTILITY(U,$J,.84,8056,0)
+124 ;;=8056^2^^5
+125 ;;^UTILITY(U,$J,.84,8056,1,0)
+126 ;;=^^1^1^2940310^
+127 ;;^UTILITY(U,$J,.84,8056,1,1,0)
+128 ;;=Prompt for the reader: List
+129 ;;^UTILITY(U,$J,.84,8056,2,0)
+130 ;;=^^1^1^2940310^
+131 ;;^UTILITY(U,$J,.84,8056,2,1,0)
+132 ;;=Enter a list or range of numbers
+133 ;;^UTILITY(U,$J,.84,8057,0)
+134 ;;=8057^2^^5
+135 ;;^UTILITY(U,$J,.84,8057,1,0)
+136 ;;=^^1^1^2940310^
+137 ;;^UTILITY(U,$J,.84,8057,1,1,0)
+138 ;;=Prompt for the Reader: Pointers
+139 ;;^UTILITY(U,$J,.84,8057,2,0)
+140 ;;=^^1^1^2940310^
+141 ;;^UTILITY(U,$J,.84,8057,2,1,0)
+142 ;;=Select:
+143 ;;^UTILITY(U,$J,.84,8058,0)
+144 ;;=8058^2^y^5
+145 ;;^UTILITY(U,$J,.84,8058,1,0)
+146 ;;=^^1^1^2940314^
+147 ;;^UTILITY(U,$J,.84,8058,1,1,0)
+148 ;;=Part II of the 'Are you adding a new...' question
+149 ;;^UTILITY(U,$J,.84,8058,2,0)
+150 ;;=^^1^1^2940314^
+151 ;;^UTILITY(U,$J,.84,8058,2,1,0)
+152 ;;= (the |1|
+153 ;;^UTILITY(U,$J,.84,8058,3,0)
+154 ;;=^.845^1^1
+155 ;;^UTILITY(U,$J,.84,8058,3,1,0)
+156 ;;=1^Ordinal number of new entry
+157 ;;^UTILITY(U,$J,.84,8059,0)
+158 ;;=8059^2^y^5
+159 ;;^UTILITY(U,$J,.84,8059,1,0)
+160 ;;=^^1^1^2940314^
+161 ;;^UTILITY(U,$J,.84,8059,1,1,0)
+162 ;;=Part III of the 'Are you adding a new...' question
+163 ;;^UTILITY(U,$J,.84,8059,2,0)
+164 ;;=^^1^1^2940314^
+165 ;;^UTILITY(U,$J,.84,8059,2,1,0)
+166 ;;= for this |1|
+167 ;;^UTILITY(U,$J,.84,8059,3,0)
+168 ;;=^.845^1^1
+169 ;;^UTILITY(U,$J,.84,8059,3,1,0)
+170 ;;=1^Filename
+171 ;;^UTILITY(U,$J,.84,8060,0)
+172 ;;=8060^2^^5
+173 ;;^UTILITY(U,$J,.84,8060,1,0)
+174 ;;=^^1^1^2940314^^
+175 ;;^UTILITY(U,$J,.84,8060,1,1,0)
+176 ;;=Part Ia of the 'Are you adding...' message
+177 ;;^UTILITY(U,$J,.84,8060,2,0)
+178 ;;=^^1^1^2940314^^
+179 ;;^UTILITY(U,$J,.84,8060,2,1,0)
+180 ;;= Are you adding
+181 ;;^UTILITY(U,$J,.84,8061,0)
+182 ;;=8061^2^y^5
+183 ;;^UTILITY(U,$J,.84,8061,1,0)
+184 ;;=^^1^1^2940314^
+185 ;;^UTILITY(U,$J,.84,8061,1,1,0)
+186 ;;=Part Ib of the 'Are you adding...' question
+187 ;;^UTILITY(U,$J,.84,8061,2,0)
+188 ;;=^^1^1^2940314^
+189 ;;^UTILITY(U,$J,.84,8061,2,1,0)
+190 ;;='|1|' as
+191 ;;^UTILITY(U,$J,.84,8061,3,0)
+192 ;;=^.845^1^1
+193 ;;^UTILITY(U,$J,.84,8061,3,1,0)
+194 ;;=1^Input value for .01 field
+195 ;;^UTILITY(U,$J,.84,8062,0)
+196 ;;=8062^2^y^5
+197 ;;^UTILITY(U,$J,.84,8062,1,0)
+198 ;;=^^1^1^2940314^^^
+199 ;;^UTILITY(U,$J,.84,8062,1,1,0)
+200 ;;=Part Ic of the "Are you adding..." message
+201 ;;^UTILITY(U,$J,.84,8062,2,0)
+202 ;;=^^1^1^2940314^^^^
+203 ;;^UTILITY(U,$J,.84,8062,2,1,0)
+204 ;;=a new |1|
+205 ;;^UTILITY(U,$J,.84,8062,3,0)
+206 ;;=^.845^1^1
+207 ;;^UTILITY(U,$J,.84,8062,3,1,0)
+208 ;;=1^Filename
+209 ;;^UTILITY(U,$J,.84,8063,0)
+210 ;;=8063^2^y^5
+211 ;;^UTILITY(U,$J,.84,8063,1,0)
+212 ;;=^^1^1^2940314^
+213 ;;^UTILITY(U,$J,.84,8063,1,1,0)
+214 ;;=Lookup Part I
+215 ;;^UTILITY(U,$J,.84,8063,2,0)
+216 ;;=^^1^1^2940314^
+217 ;;^UTILITY(U,$J,.84,8063,2,1,0)
+218 ;;= Answer with |1|
+219 ;;^UTILITY(U,$J,.84,8063,3,0)
+220 ;;=^.845^1^1
+221 ;;^UTILITY(U,$J,.84,8063,3,1,0)
+222 ;;=1^Filename
+223 ;;^UTILITY(U,$J,.84,8064,0)
+224 ;;=8064^2^^5
+225 ;;^UTILITY(U,$J,.84,8064,1,0)
+226 ;;=^^1^1^2940314^
+227 ;;^UTILITY(U,$J,.84,8064,1,1,0)
+228 ;;=Lookup Part II
+229 ;;^UTILITY(U,$J,.84,8064,2,0)
+230 ;;=^^1^1^2940314^
+231 ;;^UTILITY(U,$J,.84,8064,2,1,0)
+232 ;;= Do you want the entire
+233 ;;^UTILITY(U,$J,.84,8065,0)
+234 ;;=8065^2^y^5
+235 ;;^UTILITY(U,$J,.84,8065,1,0)
+236 ;;=^^1^1^2940314^^
+237 ;;^UTILITY(U,$J,.84,8065,1,1,0)
+238 ;;=Lookup Part III
