DINIT00K ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;07DEC2015
;;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,8065,2,0)
;;=^^1^1^2940314^^^
;;^UTILITY(U,$J,.84,8065,2,1,0)
;;=|1|-Entry
;;^UTILITY(U,$J,.84,8065,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8065,3,1,0)
;;=1^Number of entries in list
;;^UTILITY(U,$J,.84,8066,0)
;;=8066^2^y^5
;;^UTILITY(U,$J,.84,8066,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8066,1,1,0)
;;=Lookup Part IV
;;^UTILITY(U,$J,.84,8066,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8066,2,1,0)
;;=|1| List
;;^UTILITY(U,$J,.84,8066,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8066,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8067,0)
;;=8067^2^^5
;;^UTILITY(U,$J,.84,8067,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8067,1,1,0)
;;=For list of Fields on Lookup
;;^UTILITY(U,$J,.84,8067,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8067,2,1,0)
;;=, or
;;^UTILITY(U,$J,.84,8068,0)
;;=8068^2^^5
;;^UTILITY(U,$J,.84,8068,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8068,1,1,0)
;;=The Chooser
;;^UTILITY(U,$J,.84,8068,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8068,2,1,0)
;;=Choose from:
;;^UTILITY(U,$J,.84,8069,0)
;;=8069^2^y^5
;;^UTILITY(U,$J,.84,8069,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8069,1,1,0)
;;=New entry allowed message
;;^UTILITY(U,$J,.84,8069,2,0)
;;=^^1^1^2940315^^
;;^UTILITY(U,$J,.84,8069,2,1,0)
;;=You may enter a new |1|, if you wish
;;^UTILITY(U,$J,.84,8069,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8069,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8070,0)
;;=8070^2^y^5
;;^UTILITY(U,$J,.84,8070,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8070,1,1,0)
;;=Variable Pointer Lookup
;;^UTILITY(U,$J,.84,8070,2,0)
;;=^^1^1^2980304^
;;^UTILITY(U,$J,.84,8070,2,1,0)
;;= Searching for a |1|
;;^UTILITY(U,$J,.84,8070,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8070,3,1,0)
;;=1^Filename
;;^UTILITY(U,$J,.84,8071,0)
;;=8071^2^^5
;;^UTILITY(U,$J,.84,8071,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8071,1,1,0)
;;=Variable Pointer lookup
;;^UTILITY(U,$J,.84,8071,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8071,2,1,0)
;;=Enter one of the following:
;;^UTILITY(U,$J,.84,8072,0)
;;=8072^2^y^5
;;^UTILITY(U,$J,.84,8072,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8072,1,1,0)
;;=Variable Pointer Lookup
;;^UTILITY(U,$J,.84,8072,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8072,2,1,0)
;;= |1|.EntryName to select a |2|
;;^UTILITY(U,$J,.84,8072,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,8072,3,1,0)
;;=1^Prefix
;;^UTILITY(U,$J,.84,8072,3,2,0)
;;=2^Filename
;;^UTILITY(U,$J,.84,8073,0)
;;=8073^2^^5
;;^UTILITY(U,$J,.84,8073,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8073,1,1,0)
;;=Variable Pointer Lookup
;;^UTILITY(U,$J,.84,8073,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8073,2,1,0)
;;=To see the entries in any particular file type <Prefix.?>
;;^UTILITY(U,$J,.84,8074,0)
;;=8074^2^^5
;;^UTILITY(U,$J,.84,8074,1,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8074,1,1,0)
;;=How to call for help
;;^UTILITY(U,$J,.84,8074,2,0)
;;=^^1^1^2940314^
;;^UTILITY(U,$J,.84,8074,2,1,0)
;;=Press <PF1>H for help
;;^UTILITY(U,$J,.84,8074.1,0)
;;=8074.1^2^^5
;;^UTILITY(U,$J,.84,8074.1,1,0)
;;=^^1^1^3040430
;;^UTILITY(U,$J,.84,8074.1,1,1,0)
;;=How to click for help
;;^UTILITY(U,$J,.84,8074.1,2,0)
;;=^^1^1^3040430
;;^UTILITY(U,$J,.84,8074.1,2,1,0)
;;=HELP
;;^UTILITY(U,$J,.84,8075,0)
;;=8075^2^^5
;;^UTILITY(U,$J,.84,8075,1,0)
;;=^^1^1^2940524^^
;;^UTILITY(U,$J,.84,8075,1,1,0)
;;=Save changes question on form exit
;;^UTILITY(U,$J,.84,8075,2,0)
;;=^^1^1^2940524^^
;;^UTILITY(U,$J,.84,8075,2,1,0)
;;=Save changes before leaving form (Y/N)?
;;^UTILITY(U,$J,.84,8076,0)
;;=8076^2^^5
;;^UTILITY(U,$J,.84,8076,1,0)
;;=^^1^1^2940315^
;;^UTILITY(U,$J,.84,8076,1,1,0)
;;=Timeout
;;^UTILITY(U,$J,.84,8076,2,0)
;;=^^1^1^2940315^
;;^UTILITY(U,$J,.84,8076,2,1,0)
;;=Timed out.
;;^UTILITY(U,$J,.84,8077,0)
;;=8077^2^^5
;;^UTILITY(U,$J,.84,8077,1,0)
;;=^^1^1^2940315^
;;^UTILITY(U,$J,.84,8077,1,1,0)
;;=Changes not saved on leaving form
;;^UTILITY(U,$J,.84,8077,2,0)
;;=^^1^1^2940315^
;;^UTILITY(U,$J,.84,8077,2,1,0)
;;=Changes not saved!
;;^UTILITY(U,$J,.84,8078,0)
;;=8078^2^^5
;;^UTILITY(U,$J,.84,8078,1,0)
;;=^^1^1^2940316^
;;^UTILITY(U,$J,.84,8078,1,1,0)
;;=Wording for record
;;^UTILITY(U,$J,.84,8078,2,0)
;;=^^1^1^2940316^
;;^UTILITY(U,$J,.84,8078,2,1,0)
;;=record
;;^UTILITY(U,$J,.84,8079,0)
;;=8079^2^^5
;;^UTILITY(U,$J,.84,8079,1,0)
;;=^^1^1^2940316^
;;^UTILITY(U,$J,.84,8079,1,1,0)
;;=Wording for Subrecord
;;^UTILITY(U,$J,.84,8079,2,0)
;;=^^1^1^2940316^
;;^UTILITY(U,$J,.84,8079,2,1,0)
;;=Subrecord
;;^UTILITY(U,$J,.84,8080,0)
;;=8080^2^y^5
;;^UTILITY(U,$J,.84,8080,1,0)
;;=^^1^1^2940316^
;;^UTILITY(U,$J,.84,8080,1,1,0)
;;=Warning for immediate deletion of entries.
;;^UTILITY(U,$J,.84,8080,2,0)
;;=^^3^3^2940316^
;;^UTILITY(U,$J,.84,8080,2,1,0)
;;= WARNING: DELETIONS ARE DONE IMMEDIATELY!
;;^UTILITY(U,$J,.84,8080,2,2,0)
;;= (EXITING WITHOUT SAVING WILL NOT RESTORE DELETED RECORDS.)
;;^UTILITY(U,$J,.84,8080,2,3,0)
;;=Are you sure you want to delete this entire |1| (Y/N)?
;;^UTILITY(U,$J,.84,8080,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8080,3,1,0)
;;=1^Record or Subrecord
;;^UTILITY(U,$J,.84,8081,0)
;;=8081^2^y^5
;;^UTILITY(U,$J,.84,8081,1,0)
;;=^^1^1^2940316^
;;^UTILITY(U,$J,.84,8081,1,1,0)
;;=Choose from-to dialog
;;^UTILITY(U,$J,.84,8081,2,0)
;;=^^1^1^2940316^^
;;^UTILITY(U,$J,.84,8081,2,1,0)
;;=Choose |1| or '^' to quit:
;;^UTILITY(U,$J,.84,8081,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8081,3,1,0)
;;=1^Number range for selection
;;^UTILITY(U,$J,.84,8082,0)
;;=8082^2^^5
;;^UTILITY(U,$J,.84,8082,1,0)
;;=^^2^2^2940318^^^^
;;^UTILITY(U,$J,.84,8082,1,1,0)
;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3. Could be
;;^UTILITY(U,$J,.84,8082,1,2,0)
;;=used elsewhere, however, so I didn't put it into the ERROR category.
;;^UTILITY(U,$J,.84,8082,2,0)
;;=^^1^1^2940318^
;;^UTILITY(U,$J,.84,8082,2,1,0)
;;=Transfer FROM
;;^UTILITY(U,$J,.84,8082,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8082,5,1,0)
;;=DIT^TRNMRG
;;^UTILITY(U,$J,.84,8083,0)
;;=8083^2^^5
;;^UTILITY(U,$J,.84,8083,1,0)
;;=^^2^2^2940318^^^^
;;^UTILITY(U,$J,.84,8083,1,1,0)
;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3. Could be
;;^UTILITY(U,$J,.84,8083,1,2,0)
;;=used elsewhere, however, so I didn't put it into the ERROR category.
;;^UTILITY(U,$J,.84,8083,2,0)
;;=^^1^1^2940318^
;;^UTILITY(U,$J,.84,8083,2,1,0)
;;=Transfer TO
;;^UTILITY(U,$J,.84,8083,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8083,5,1,0)
;;=DIT^TRNMRG
;;^UTILITY(U,$J,.84,8084,0)
;;=8084^2^^5
;;^UTILITY(U,$J,.84,8084,1,0)
;;=^^1^1^2940318^
;;^UTILITY(U,$J,.84,8084,1,1,0)
;;=The words 'file number' to be used in any dialog.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00K 7516 printed Sep 23, 2025@20:25:54 Page 2
DINIT00K ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;07DEC2015
+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,8065,2,0)
+2 ;;=^^1^1^2940314^^^
+3 ;;^UTILITY(U,$J,.84,8065,2,1,0)
+4 ;;=|1|-Entry
+5 ;;^UTILITY(U,$J,.84,8065,3,0)
+6 ;;=^.845^1^1
+7 ;;^UTILITY(U,$J,.84,8065,3,1,0)
+8 ;;=1^Number of entries in list
+9 ;;^UTILITY(U,$J,.84,8066,0)
+10 ;;=8066^2^y^5
+11 ;;^UTILITY(U,$J,.84,8066,1,0)
+12 ;;=^^1^1^2940314^
+13 ;;^UTILITY(U,$J,.84,8066,1,1,0)
+14 ;;=Lookup Part IV
+15 ;;^UTILITY(U,$J,.84,8066,2,0)
+16 ;;=^^1^1^2940314^
+17 ;;^UTILITY(U,$J,.84,8066,2,1,0)
+18 ;;=|1| List
+19 ;;^UTILITY(U,$J,.84,8066,3,0)
+20 ;;=^.845^1^1
+21 ;;^UTILITY(U,$J,.84,8066,3,1,0)
+22 ;;=1^Filename
+23 ;;^UTILITY(U,$J,.84,8067,0)
+24 ;;=8067^2^^5
+25 ;;^UTILITY(U,$J,.84,8067,1,0)
+26 ;;=^^1^1^2940314^
+27 ;;^UTILITY(U,$J,.84,8067,1,1,0)
+28 ;;=For list of Fields on Lookup
+29 ;;^UTILITY(U,$J,.84,8067,2,0)
+30 ;;=^^1^1^2940314^
+31 ;;^UTILITY(U,$J,.84,8067,2,1,0)
+32 ;;=, or
+33 ;;^UTILITY(U,$J,.84,8068,0)
+34 ;;=8068^2^^5
+35 ;;^UTILITY(U,$J,.84,8068,1,0)
+36 ;;=^^1^1^2940314^
+37 ;;^UTILITY(U,$J,.84,8068,1,1,0)
+38 ;;=The Chooser
+39 ;;^UTILITY(U,$J,.84,8068,2,0)
+40 ;;=^^1^1^2940314^
+41 ;;^UTILITY(U,$J,.84,8068,2,1,0)
+42 ;;=Choose from:
+43 ;;^UTILITY(U,$J,.84,8069,0)
+44 ;;=8069^2^y^5
+45 ;;^UTILITY(U,$J,.84,8069,1,0)
+46 ;;=^^1^1^2940314^
+47 ;;^UTILITY(U,$J,.84,8069,1,1,0)
+48 ;;=New entry allowed message
+49 ;;^UTILITY(U,$J,.84,8069,2,0)
+50 ;;=^^1^1^2940315^^
+51 ;;^UTILITY(U,$J,.84,8069,2,1,0)
+52 ;;=You may enter a new |1|, if you wish
+53 ;;^UTILITY(U,$J,.84,8069,3,0)
+54 ;;=^.845^1^1
+55 ;;^UTILITY(U,$J,.84,8069,3,1,0)
+56 ;;=1^Filename
+57 ;;^UTILITY(U,$J,.84,8070,0)
+58 ;;=8070^2^y^5
+59 ;;^UTILITY(U,$J,.84,8070,1,0)
+60 ;;=^^1^1^2940314^
+61 ;;^UTILITY(U,$J,.84,8070,1,1,0)
+62 ;;=Variable Pointer Lookup
+63 ;;^UTILITY(U,$J,.84,8070,2,0)
+64 ;;=^^1^1^2980304^
+65 ;;^UTILITY(U,$J,.84,8070,2,1,0)
+66 ;;= Searching for a |1|
+67 ;;^UTILITY(U,$J,.84,8070,3,0)
+68 ;;=^.845^1^1
+69 ;;^UTILITY(U,$J,.84,8070,3,1,0)
+70 ;;=1^Filename
+71 ;;^UTILITY(U,$J,.84,8071,0)
+72 ;;=8071^2^^5
+73 ;;^UTILITY(U,$J,.84,8071,1,0)
+74 ;;=^^1^1^2940314^
+75 ;;^UTILITY(U,$J,.84,8071,1,1,0)
+76 ;;=Variable Pointer lookup
+77 ;;^UTILITY(U,$J,.84,8071,2,0)
+78 ;;=^^1^1^2940314^
+79 ;;^UTILITY(U,$J,.84,8071,2,1,0)
+80 ;;=Enter one of the following:
+81 ;;^UTILITY(U,$J,.84,8072,0)
+82 ;;=8072^2^y^5
+83 ;;^UTILITY(U,$J,.84,8072,1,0)
+84 ;;=^^1^1^2940314^
+85 ;;^UTILITY(U,$J,.84,8072,1,1,0)
+86 ;;=Variable Pointer Lookup
+87 ;;^UTILITY(U,$J,.84,8072,2,0)
+88 ;;=^^1^1^2940314^
+89 ;;^UTILITY(U,$J,.84,8072,2,1,0)
+90 ;;= |1|.EntryName to select a |2|
+91 ;;^UTILITY(U,$J,.84,8072,3,0)
+92 ;;=^.845^2^2
+93 ;;^UTILITY(U,$J,.84,8072,3,1,0)
+94 ;;=1^Prefix
+95 ;;^UTILITY(U,$J,.84,8072,3,2,0)
+96 ;;=2^Filename
+97 ;;^UTILITY(U,$J,.84,8073,0)
+98 ;;=8073^2^^5
+99 ;;^UTILITY(U,$J,.84,8073,1,0)
+100 ;;=^^1^1^2940314^
+101 ;;^UTILITY(U,$J,.84,8073,1,1,0)
+102 ;;=Variable Pointer Lookup
+103 ;;^UTILITY(U,$J,.84,8073,2,0)
+104 ;;=^^1^1^2940314^
+105 ;;^UTILITY(U,$J,.84,8073,2,1,0)
+106 ;;=To see the entries in any particular file type <Prefix.?>
+107 ;;^UTILITY(U,$J,.84,8074,0)
+108 ;;=8074^2^^5
+109 ;;^UTILITY(U,$J,.84,8074,1,0)
+110 ;;=^^1^1^2940314^
+111 ;;^UTILITY(U,$J,.84,8074,1,1,0)
+112 ;;=How to call for help
+113 ;;^UTILITY(U,$J,.84,8074,2,0)
+114 ;;=^^1^1^2940314^
+115 ;;^UTILITY(U,$J,.84,8074,2,1,0)
+116 ;;=Press <PF1>H for help
+117 ;;^UTILITY(U,$J,.84,8074.1,0)
+118 ;;=8074.1^2^^5
+119 ;;^UTILITY(U,$J,.84,8074.1,1,0)
+120 ;;=^^1^1^3040430
+121 ;;^UTILITY(U,$J,.84,8074.1,1,1,0)
+122 ;;=How to click for help
+123 ;;^UTILITY(U,$J,.84,8074.1,2,0)
+124 ;;=^^1^1^3040430
+125 ;;^UTILITY(U,$J,.84,8074.1,2,1,0)
+126 ;;=HELP
+127 ;;^UTILITY(U,$J,.84,8075,0)
+128 ;;=8075^2^^5
+129 ;;^UTILITY(U,$J,.84,8075,1,0)
+130 ;;=^^1^1^2940524^^
+131 ;;^UTILITY(U,$J,.84,8075,1,1,0)
+132 ;;=Save changes question on form exit
+133 ;;^UTILITY(U,$J,.84,8075,2,0)
+134 ;;=^^1^1^2940524^^
+135 ;;^UTILITY(U,$J,.84,8075,2,1,0)
+136 ;;=Save changes before leaving form (Y/N)?
+137 ;;^UTILITY(U,$J,.84,8076,0)
+138 ;;=8076^2^^5
+139 ;;^UTILITY(U,$J,.84,8076,1,0)
+140 ;;=^^1^1^2940315^
+141 ;;^UTILITY(U,$J,.84,8076,1,1,0)
+142 ;;=Timeout
+143 ;;^UTILITY(U,$J,.84,8076,2,0)
+144 ;;=^^1^1^2940315^
+145 ;;^UTILITY(U,$J,.84,8076,2,1,0)
+146 ;;=Timed out.
+147 ;;^UTILITY(U,$J,.84,8077,0)
+148 ;;=8077^2^^5
+149 ;;^UTILITY(U,$J,.84,8077,1,0)
+150 ;;=^^1^1^2940315^
+151 ;;^UTILITY(U,$J,.84,8077,1,1,0)
+152 ;;=Changes not saved on leaving form
+153 ;;^UTILITY(U,$J,.84,8077,2,0)
+154 ;;=^^1^1^2940315^
+155 ;;^UTILITY(U,$J,.84,8077,2,1,0)
+156 ;;=Changes not saved!
+157 ;;^UTILITY(U,$J,.84,8078,0)
+158 ;;=8078^2^^5
+159 ;;^UTILITY(U,$J,.84,8078,1,0)
+160 ;;=^^1^1^2940316^
+161 ;;^UTILITY(U,$J,.84,8078,1,1,0)
+162 ;;=Wording for record
+163 ;;^UTILITY(U,$J,.84,8078,2,0)
+164 ;;=^^1^1^2940316^
+165 ;;^UTILITY(U,$J,.84,8078,2,1,0)
+166 ;;=record
+167 ;;^UTILITY(U,$J,.84,8079,0)
+168 ;;=8079^2^^5
+169 ;;^UTILITY(U,$J,.84,8079,1,0)
+170 ;;=^^1^1^2940316^
+171 ;;^UTILITY(U,$J,.84,8079,1,1,0)
+172 ;;=Wording for Subrecord
+173 ;;^UTILITY(U,$J,.84,8079,2,0)
+174 ;;=^^1^1^2940316^
+175 ;;^UTILITY(U,$J,.84,8079,2,1,0)
+176 ;;=Subrecord
+177 ;;^UTILITY(U,$J,.84,8080,0)
+178 ;;=8080^2^y^5
+179 ;;^UTILITY(U,$J,.84,8080,1,0)
+180 ;;=^^1^1^2940316^
+181 ;;^UTILITY(U,$J,.84,8080,1,1,0)
+182 ;;=Warning for immediate deletion of entries.
+183 ;;^UTILITY(U,$J,.84,8080,2,0)
+184 ;;=^^3^3^2940316^
+185 ;;^UTILITY(U,$J,.84,8080,2,1,0)
+186 ;;= WARNING: DELETIONS ARE DONE IMMEDIATELY!
+187 ;;^UTILITY(U,$J,.84,8080,2,2,0)
+188 ;;= (EXITING WITHOUT SAVING WILL NOT RESTORE DELETED RECORDS.)
+189 ;;^UTILITY(U,$J,.84,8080,2,3,0)
+190 ;;=Are you sure you want to delete this entire |1| (Y/N)?
+191 ;;^UTILITY(U,$J,.84,8080,3,0)
+192 ;;=^.845^1^1
+193 ;;^UTILITY(U,$J,.84,8080,3,1,0)
+194 ;;=1^Record or Subrecord
+195 ;;^UTILITY(U,$J,.84,8081,0)
+196 ;;=8081^2^y^5
+197 ;;^UTILITY(U,$J,.84,8081,1,0)
+198 ;;=^^1^1^2940316^
+199 ;;^UTILITY(U,$J,.84,8081,1,1,0)
+200 ;;=Choose from-to dialog
+201 ;;^UTILITY(U,$J,.84,8081,2,0)
+202 ;;=^^1^1^2940316^^
+203 ;;^UTILITY(U,$J,.84,8081,2,1,0)
+204 ;;=Choose |1| or '^' to quit:
+205 ;;^UTILITY(U,$J,.84,8081,3,0)
+206 ;;=^.845^1^1
+207 ;;^UTILITY(U,$J,.84,8081,3,1,0)
+208 ;;=1^Number range for selection
+209 ;;^UTILITY(U,$J,.84,8082,0)
+210 ;;=8082^2^^5
+211 ;;^UTILITY(U,$J,.84,8082,1,0)
+212 ;;=^^2^2^2940318^^^^
+213 ;;^UTILITY(U,$J,.84,8082,1,1,0)
+214 ;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3. Could be
+215 ;;^UTILITY(U,$J,.84,8082,1,2,0)
+216 ;;=used elsewhere, however, so I didn't put it into the ERROR category.
+217 ;;^UTILITY(U,$J,.84,8082,2,0)
+218 ;;=^^1^1^2940318^
+219 ;;^UTILITY(U,$J,.84,8082,2,1,0)
+220 ;;=Transfer FROM
+221 ;;^UTILITY(U,$J,.84,8082,5,0)
+222 ;;=^.841^1^1
+223 ;;^UTILITY(U,$J,.84,8082,5,1,0)
+224 ;;=DIT^TRNMRG
+225 ;;^UTILITY(U,$J,.84,8083,0)
+226 ;;=8083^2^^5
+227 ;;^UTILITY(U,$J,.84,8083,1,0)
+228 ;;=^^2^2^2940318^^^^
+229 ;;^UTILITY(U,$J,.84,8083,1,1,0)
+230 ;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3. Could be
+231 ;;^UTILITY(U,$J,.84,8083,1,2,0)
+232 ;;=used elsewhere, however, so I didn't put it into the ERROR category.
+233 ;;^UTILITY(U,$J,.84,8083,2,0)
+234 ;;=^^1^1^2940318^
+235 ;;^UTILITY(U,$J,.84,8083,2,1,0)
+236 ;;=Transfer TO
+237 ;;^UTILITY(U,$J,.84,8083,5,0)
+238 ;;=^.841^1^1
+239 ;;^UTILITY(U,$J,.84,8083,5,1,0)
+240 ;;=DIT^TRNMRG
+241 ;;^UTILITY(U,$J,.84,8084,0)
+242 ;;=8084^2^^5
+243 ;;^UTILITY(U,$J,.84,8084,1,0)
+244 ;;=^^1^1^2940318^
+245 ;;^UTILITY(U,$J,.84,8084,1,1,0)
+246 ;;=The words 'file number' to be used in any dialog.
