DINIT00L ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;29AUG2003
;;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,8084,2,0)
;;=^^1^1^2940318^
;;^UTILITY(U,$J,.84,8084,2,1,0)
;;=file number
;;^UTILITY(U,$J,.84,8084,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8084,5,1,0)
;;=DIT^TRNMRG
;;^UTILITY(U,$J,.84,8085,0)
;;=8085^2^^5
;;^UTILITY(U,$J,.84,8085,1,0)
;;=^^1^1^2940426^^
;;^UTILITY(U,$J,.84,8085,1,1,0)
;;=The words 'IEN string' to be used in any dialog.
;;^UTILITY(U,$J,.84,8085,2,0)
;;=^^1^1^2940426^^
;;^UTILITY(U,$J,.84,8085,2,1,0)
;;=IEN string
;;^UTILITY(U,$J,.84,8085,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8085,5,1,0)
;;=DIT^TRNMRG
;;^UTILITY(U,$J,.84,8086,0)
;;=8086^2^^5
;;^UTILITY(U,$J,.84,8086,1,0)
;;=^^1^1^2940608^^^^
;;^UTILITY(U,$J,.84,8086,1,1,0)
;;=Warning to use the merge only during non-peak times.
;;^UTILITY(U,$J,.84,8086,2,0)
;;=^^5^5^2940608^
;;^UTILITY(U,$J,.84,8086,2,1,0)
;;=
;;^UTILITY(U,$J,.84,8086,2,2,0)
;;=NOTE: Use this option ONLY DURING NON-PEAK HOURS if merging entries in a
;;^UTILITY(U,$J,.84,8086,2,3,0)
;;=file that is pointed-to either by many files, or by large files.
;;^UTILITY(U,$J,.84,8086,2,4,0)
;;=
;;^UTILITY(U,$J,.84,8086,2,5,0)
;;=MERGE ENTRIES AFTER COMPARING THEM
;;^UTILITY(U,$J,.84,8087,0)
;;=8087^2^y^5^End of Page message for Lookup (DIC)
;;^UTILITY(U,$J,.84,8087,1,0)
;;=^^2^2^2970529^
;;^UTILITY(U,$J,.84,8087,1,1,0)
;;=Displays the end of page message displayed at the bottom of a screen after
;;^UTILITY(U,$J,.84,8087,1,2,0)
;;=a list of selectable entries is displayed during lookup (^DIC).
;;^UTILITY(U,$J,.84,8087,2,0)
;;=^^1^1^2970529^
;;^UTILITY(U,$J,.84,8087,2,1,0)
;;=Press <Enter> to see more, '^' to exit this list, |T| OR
;;^UTILITY(U,$J,.84,8087,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8087,3,1,0)
;;=T^TO EXIT ALL LISTS
;;^UTILITY(U,$J,.84,8087,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8087,5,1,0)
;;=DIC1^DSP
;;^UTILITY(U,$J,.84,8088,0)
;;=8088^2^y^5
;;^UTILITY(U,$J,.84,8088,1,0)
;;=^^2^2^2970529^^
;;^UTILITY(U,$J,.84,8088,1,1,0)
;;=Message directing the user to Choose one of the displayed selections
;;^UTILITY(U,$J,.84,8088,1,2,0)
;;=during lookup (^DIC).
;;^UTILITY(U,$J,.84,8088,2,0)
;;=^^1^1^2970529^
;;^UTILITY(U,$J,.84,8088,2,1,0)
;;=CHOOSE |1|-|2|:
;;^UTILITY(U,$J,.84,8088,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,8088,3,1,0)
;;=1^Starting number in displayed list
;;^UTILITY(U,$J,.84,8088,3,2,0)
;;=2^Ending number in displayed list
;;^UTILITY(U,$J,.84,8088,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8088,5,1,0)
;;=DIC1^DSP
;;^UTILITY(U,$J,.84,8089,0)
;;=8089^2^y^5
;;^UTILITY(U,$J,.84,8089,1,0)
;;=^^2^2^2970609^^
;;^UTILITY(U,$J,.84,8089,1,1,0)
;;=Message used during interactive ^DIC to display the file and index name
;;^UTILITY(U,$J,.84,8089,1,2,0)
;;=on which the displayed entries were found.
;;^UTILITY(U,$J,.84,8089,2,0)
;;=^^1^1^2970609^^
;;^UTILITY(U,$J,.84,8089,2,1,0)
;;=Matches to: |1| |2|.
;;^UTILITY(U,$J,.84,8089,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,8089,3,1,0)
;;=1^File name
;;^UTILITY(U,$J,.84,8089,3,2,0)
;;=2^Indexed field name
;;^UTILITY(U,$J,.84,8089,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8089,5,1,0)
;;=DIC1^DSP
;;^UTILITY(U,$J,.84,8090,0)
;;=8090^2^^5
;;^UTILITY(U,$J,.84,8090,1,0)
;;=^^3^3^2970626^
;;^UTILITY(U,$J,.84,8090,1,1,0)
;;=Used in displaying an error message when the lookup value X does not pass
;;^UTILITY(U,$J,.84,8090,1,2,0)
;;=the Pre-lookup transform code (^DD(File#,.01,7.5) node) during ^DIC or
;;^UTILITY(U,$J,.84,8090,1,3,0)
;;=Finder lookups.
;;^UTILITY(U,$J,.84,8090,2,0)
;;=^^1^1^2970626^
;;^UTILITY(U,$J,.84,8090,2,1,0)
;;=Pre-lookup transform (7.5 node)
;;^UTILITY(U,$J,.84,8090,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8090,5,1,0)
;;=DIC
;;^UTILITY(U,$J,.84,8090,5,2,0)
;;=DICF
;;^UTILITY(U,$J,.84,8091,0)
;;=8091^1^^5^
;;^UTILITY(U,$J,.84,8091,1,0)
;;=^^1^1^2970715^
;;^UTILITY(U,$J,.84,8091,1,1,0)
;;=Error set when user times out.
;;^UTILITY(U,$J,.84,8091,2,0)
;;=^^1^1^2970715^
;;^UTILITY(U,$J,.84,8091,2,1,0)
;;=User timed out.
;;^UTILITY(U,$J,.84,8091,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8091,5,1,0)
;;=DIC1^Y
;;^UTILITY(U,$J,.84,8092,0)
;;=8092^1^^5
;;^UTILITY(U,$J,.84,8092,1,0)
;;=^^1^1^2970715^
;;^UTILITY(U,$J,.84,8092,1,1,0)
;;=Error when user up-arrows out.
;;^UTILITY(U,$J,.84,8092,2,0)
;;=^^1^1^2970715^
;;^UTILITY(U,$J,.84,8092,2,1,0)
;;=User up-arrowed out.
;;^UTILITY(U,$J,.84,8092,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8092,5,1,0)
;;=DIC1^Y
;;^UTILITY(U,$J,.84,8093,0)
;;=8093^1^^5
;;^UTILITY(U,$J,.84,8093,1,0)
;;=^^4^4^2970722^
;;^UTILITY(U,$J,.84,8093,1,1,0)
;;=Error that occurs when user passes too many lookup values to either the
;;^UTILITY(U,$J,.84,8093,1,2,0)
;;=Finder call ^DICF or the FileMan lookup ^DIC. When the number of lookup
;;^UTILITY(U,$J,.84,8093,1,3,0)
;;=values exceeds the number of subscripts in the index passed (or the
;;^UTILITY(U,$J,.84,8093,1,4,0)
;;=default index if no index is passed).
;;^UTILITY(U,$J,.84,8093,2,0)
;;=^^1^1^2970722^
;;^UTILITY(U,$J,.84,8093,2,1,0)
;;=Too many lookup values for this index.
;;^UTILITY(U,$J,.84,8093,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8093,5,1,0)
;;=DIC3^ASK
;;^UTILITY(U,$J,.84,8094,0)
;;=8094^1^^5
;;^UTILITY(U,$J,.84,8094,1,0)
;;=^^3^3^2970820^
;;^UTILITY(U,$J,.84,8094,1,1,0)
;;=Error message returned from ^DICF or ^DIC when flags parameter or
;;^UTILITY(U,$J,.84,8094,1,2,0)
;;=DIC(0) contains an "X", but not enough lookup values passed for the number
;;^UTILITY(U,$J,.84,8094,1,3,0)
;;=of subscripts in the lookup index.
;;^UTILITY(U,$J,.84,8094,2,0)
;;=^^1^1^2970820^
;;^UTILITY(U,$J,.84,8094,2,1,0)
;;=Not enough lookup values provided for an exact match on this index.
;;^UTILITY(U,$J,.84,8094,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8094,5,1,0)
;;=DIC31^CHKVAL1
;;^UTILITY(U,$J,.84,8095,0)
;;=8095^1^^5
;;^UTILITY(U,$J,.84,8095,1,0)
;;=^^3^3^2990104^^
;;^UTILITY(U,$J,.84,8095,1,1,0)
;;=In calls to the Finder, IX^DIC or MIX^DIC, if the first index passed (or
;;^UTILITY(U,$J,.84,8095,1,2,0)
;;=the default index) is a compound index, then only one index can be passed,
;;^UTILITY(U,$J,.84,8095,1,3,0)
;;=so DIC(0) (or flags) cannot contain "M".
;;^UTILITY(U,$J,.84,8095,2,0)
;;=^^1^1^2990104^
;;^UTILITY(U,$J,.84,8095,2,1,0)
;;=First lookup index is compound, so "M"ultiple index lookups not allowed.
;;^UTILITY(U,$J,.84,8095,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8095,5,1,0)
;;=DIC31^CHKVAL1
;;^UTILITY(U,$J,.84,8096,0)
;;=8096^1^^5
;;^UTILITY(U,$J,.84,8096,1,0)
;;=^^2^2^2971001^
;;^UTILITY(U,$J,.84,8096,1,1,0)
;;=Error message from ^DIC or ^DICQ when DIC contains a subfile number
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00L 7377 printed Sep 23, 2025@20:25:55 Page 2
DINIT00L ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;29AUG2003
+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,8084,2,0)
+2 ;;=^^1^1^2940318^
+3 ;;^UTILITY(U,$J,.84,8084,2,1,0)
+4 ;;=file number
+5 ;;^UTILITY(U,$J,.84,8084,5,0)
+6 ;;=^.841^1^1
+7 ;;^UTILITY(U,$J,.84,8084,5,1,0)
+8 ;;=DIT^TRNMRG
+9 ;;^UTILITY(U,$J,.84,8085,0)
+10 ;;=8085^2^^5
+11 ;;^UTILITY(U,$J,.84,8085,1,0)
+12 ;;=^^1^1^2940426^^
+13 ;;^UTILITY(U,$J,.84,8085,1,1,0)
+14 ;;=The words 'IEN string' to be used in any dialog.
+15 ;;^UTILITY(U,$J,.84,8085,2,0)
+16 ;;=^^1^1^2940426^^
+17 ;;^UTILITY(U,$J,.84,8085,2,1,0)
+18 ;;=IEN string
+19 ;;^UTILITY(U,$J,.84,8085,5,0)
+20 ;;=^.841^1^1
+21 ;;^UTILITY(U,$J,.84,8085,5,1,0)
+22 ;;=DIT^TRNMRG
+23 ;;^UTILITY(U,$J,.84,8086,0)
+24 ;;=8086^2^^5
+25 ;;^UTILITY(U,$J,.84,8086,1,0)
+26 ;;=^^1^1^2940608^^^^
+27 ;;^UTILITY(U,$J,.84,8086,1,1,0)
+28 ;;=Warning to use the merge only during non-peak times.
+29 ;;^UTILITY(U,$J,.84,8086,2,0)
+30 ;;=^^5^5^2940608^
+31 ;;^UTILITY(U,$J,.84,8086,2,1,0)
+32 ;;=
+33 ;;^UTILITY(U,$J,.84,8086,2,2,0)
+34 ;;=NOTE: Use this option ONLY DURING NON-PEAK HOURS if merging entries in a
+35 ;;^UTILITY(U,$J,.84,8086,2,3,0)
+36 ;;=file that is pointed-to either by many files, or by large files.
+37 ;;^UTILITY(U,$J,.84,8086,2,4,0)
+38 ;;=
+39 ;;^UTILITY(U,$J,.84,8086,2,5,0)
+40 ;;=MERGE ENTRIES AFTER COMPARING THEM
+41 ;;^UTILITY(U,$J,.84,8087,0)
+42 ;;=8087^2^y^5^End of Page message for Lookup (DIC)
+43 ;;^UTILITY(U,$J,.84,8087,1,0)
+44 ;;=^^2^2^2970529^
+45 ;;^UTILITY(U,$J,.84,8087,1,1,0)
+46 ;;=Displays the end of page message displayed at the bottom of a screen after
+47 ;;^UTILITY(U,$J,.84,8087,1,2,0)
+48 ;;=a list of selectable entries is displayed during lookup (^DIC).
+49 ;;^UTILITY(U,$J,.84,8087,2,0)
+50 ;;=^^1^1^2970529^
+51 ;;^UTILITY(U,$J,.84,8087,2,1,0)
+52 ;;=Press <Enter> to see more, '^' to exit this list, |T| OR
+53 ;;^UTILITY(U,$J,.84,8087,3,0)
+54 ;;=^.845^1^1
+55 ;;^UTILITY(U,$J,.84,8087,3,1,0)
+56 ;;=T^TO EXIT ALL LISTS
+57 ;;^UTILITY(U,$J,.84,8087,5,0)
+58 ;;=^.841^1^1
+59 ;;^UTILITY(U,$J,.84,8087,5,1,0)
+60 ;;=DIC1^DSP
+61 ;;^UTILITY(U,$J,.84,8088,0)
+62 ;;=8088^2^y^5
+63 ;;^UTILITY(U,$J,.84,8088,1,0)
+64 ;;=^^2^2^2970529^^
+65 ;;^UTILITY(U,$J,.84,8088,1,1,0)
+66 ;;=Message directing the user to Choose one of the displayed selections
+67 ;;^UTILITY(U,$J,.84,8088,1,2,0)
+68 ;;=during lookup (^DIC).
+69 ;;^UTILITY(U,$J,.84,8088,2,0)
+70 ;;=^^1^1^2970529^
+71 ;;^UTILITY(U,$J,.84,8088,2,1,0)
+72 ;;=CHOOSE |1|-|2|:
+73 ;;^UTILITY(U,$J,.84,8088,3,0)
+74 ;;=^.845^2^2
+75 ;;^UTILITY(U,$J,.84,8088,3,1,0)
+76 ;;=1^Starting number in displayed list
+77 ;;^UTILITY(U,$J,.84,8088,3,2,0)
+78 ;;=2^Ending number in displayed list
+79 ;;^UTILITY(U,$J,.84,8088,5,0)
+80 ;;=^.841^1^1
+81 ;;^UTILITY(U,$J,.84,8088,5,1,0)
+82 ;;=DIC1^DSP
+83 ;;^UTILITY(U,$J,.84,8089,0)
+84 ;;=8089^2^y^5
+85 ;;^UTILITY(U,$J,.84,8089,1,0)
+86 ;;=^^2^2^2970609^^
+87 ;;^UTILITY(U,$J,.84,8089,1,1,0)
+88 ;;=Message used during interactive ^DIC to display the file and index name
+89 ;;^UTILITY(U,$J,.84,8089,1,2,0)
+90 ;;=on which the displayed entries were found.
+91 ;;^UTILITY(U,$J,.84,8089,2,0)
+92 ;;=^^1^1^2970609^^
+93 ;;^UTILITY(U,$J,.84,8089,2,1,0)
+94 ;;=Matches to: |1| |2|.
+95 ;;^UTILITY(U,$J,.84,8089,3,0)
+96 ;;=^.845^2^2
+97 ;;^UTILITY(U,$J,.84,8089,3,1,0)
+98 ;;=1^File name
+99 ;;^UTILITY(U,$J,.84,8089,3,2,0)
+100 ;;=2^Indexed field name
+101 ;;^UTILITY(U,$J,.84,8089,5,0)
+102 ;;=^.841^1^1
+103 ;;^UTILITY(U,$J,.84,8089,5,1,0)
+104 ;;=DIC1^DSP
+105 ;;^UTILITY(U,$J,.84,8090,0)
+106 ;;=8090^2^^5
+107 ;;^UTILITY(U,$J,.84,8090,1,0)
+108 ;;=^^3^3^2970626^
+109 ;;^UTILITY(U,$J,.84,8090,1,1,0)
+110 ;;=Used in displaying an error message when the lookup value X does not pass
+111 ;;^UTILITY(U,$J,.84,8090,1,2,0)
+112 ;;=the Pre-lookup transform code (^DD(File#,.01,7.5) node) during ^DIC or
+113 ;;^UTILITY(U,$J,.84,8090,1,3,0)
+114 ;;=Finder lookups.
+115 ;;^UTILITY(U,$J,.84,8090,2,0)
+116 ;;=^^1^1^2970626^
+117 ;;^UTILITY(U,$J,.84,8090,2,1,0)
+118 ;;=Pre-lookup transform (7.5 node)
+119 ;;^UTILITY(U,$J,.84,8090,5,0)
+120 ;;=^.841^2^2
+121 ;;^UTILITY(U,$J,.84,8090,5,1,0)
+122 ;;=DIC
+123 ;;^UTILITY(U,$J,.84,8090,5,2,0)
+124 ;;=DICF
+125 ;;^UTILITY(U,$J,.84,8091,0)
+126 ;;=8091^1^^5^
+127 ;;^UTILITY(U,$J,.84,8091,1,0)
+128 ;;=^^1^1^2970715^
+129 ;;^UTILITY(U,$J,.84,8091,1,1,0)
+130 ;;=Error set when user times out.
+131 ;;^UTILITY(U,$J,.84,8091,2,0)
+132 ;;=^^1^1^2970715^
+133 ;;^UTILITY(U,$J,.84,8091,2,1,0)
+134 ;;=User timed out.
+135 ;;^UTILITY(U,$J,.84,8091,5,0)
+136 ;;=^.841^1^1
+137 ;;^UTILITY(U,$J,.84,8091,5,1,0)
+138 ;;=DIC1^Y
+139 ;;^UTILITY(U,$J,.84,8092,0)
+140 ;;=8092^1^^5
+141 ;;^UTILITY(U,$J,.84,8092,1,0)
+142 ;;=^^1^1^2970715^
+143 ;;^UTILITY(U,$J,.84,8092,1,1,0)
+144 ;;=Error when user up-arrows out.
+145 ;;^UTILITY(U,$J,.84,8092,2,0)
+146 ;;=^^1^1^2970715^
+147 ;;^UTILITY(U,$J,.84,8092,2,1,0)
+148 ;;=User up-arrowed out.
+149 ;;^UTILITY(U,$J,.84,8092,5,0)
+150 ;;=^.841^1^1
+151 ;;^UTILITY(U,$J,.84,8092,5,1,0)
+152 ;;=DIC1^Y
+153 ;;^UTILITY(U,$J,.84,8093,0)
+154 ;;=8093^1^^5
+155 ;;^UTILITY(U,$J,.84,8093,1,0)
+156 ;;=^^4^4^2970722^
+157 ;;^UTILITY(U,$J,.84,8093,1,1,0)
+158 ;;=Error that occurs when user passes too many lookup values to either the
+159 ;;^UTILITY(U,$J,.84,8093,1,2,0)
+160 ;;=Finder call ^DICF or the FileMan lookup ^DIC. When the number of lookup
+161 ;;^UTILITY(U,$J,.84,8093,1,3,0)
+162 ;;=values exceeds the number of subscripts in the index passed (or the
+163 ;;^UTILITY(U,$J,.84,8093,1,4,0)
+164 ;;=default index if no index is passed).
+165 ;;^UTILITY(U,$J,.84,8093,2,0)
+166 ;;=^^1^1^2970722^
+167 ;;^UTILITY(U,$J,.84,8093,2,1,0)
+168 ;;=Too many lookup values for this index.
+169 ;;^UTILITY(U,$J,.84,8093,5,0)
+170 ;;=^.841^1^1
+171 ;;^UTILITY(U,$J,.84,8093,5,1,0)
+172 ;;=DIC3^ASK
+173 ;;^UTILITY(U,$J,.84,8094,0)
+174 ;;=8094^1^^5
+175 ;;^UTILITY(U,$J,.84,8094,1,0)
+176 ;;=^^3^3^2970820^
+177 ;;^UTILITY(U,$J,.84,8094,1,1,0)
+178 ;;=Error message returned from ^DICF or ^DIC when flags parameter or
+179 ;;^UTILITY(U,$J,.84,8094,1,2,0)
+180 ;;=DIC(0) contains an "X", but not enough lookup values passed for the number
+181 ;;^UTILITY(U,$J,.84,8094,1,3,0)
+182 ;;=of subscripts in the lookup index.
+183 ;;^UTILITY(U,$J,.84,8094,2,0)
+184 ;;=^^1^1^2970820^
+185 ;;^UTILITY(U,$J,.84,8094,2,1,0)
+186 ;;=Not enough lookup values provided for an exact match on this index.
+187 ;;^UTILITY(U,$J,.84,8094,5,0)
+188 ;;=^.841^1^1
+189 ;;^UTILITY(U,$J,.84,8094,5,1,0)
+190 ;;=DIC31^CHKVAL1
+191 ;;^UTILITY(U,$J,.84,8095,0)
+192 ;;=8095^1^^5
+193 ;;^UTILITY(U,$J,.84,8095,1,0)
+194 ;;=^^3^3^2990104^^
+195 ;;^UTILITY(U,$J,.84,8095,1,1,0)
+196 ;;=In calls to the Finder, IX^DIC or MIX^DIC, if the first index passed (or
+197 ;;^UTILITY(U,$J,.84,8095,1,2,0)
+198 ;;=the default index) is a compound index, then only one index can be passed,
+199 ;;^UTILITY(U,$J,.84,8095,1,3,0)
+200 ;;=so DIC(0) (or flags) cannot contain "M".
+201 ;;^UTILITY(U,$J,.84,8095,2,0)
+202 ;;=^^1^1^2990104^
+203 ;;^UTILITY(U,$J,.84,8095,2,1,0)
+204 ;;=First lookup index is compound, so "M"ultiple index lookups not allowed.
+205 ;;^UTILITY(U,$J,.84,8095,5,0)
+206 ;;=^.841^1^1
+207 ;;^UTILITY(U,$J,.84,8095,5,1,0)
+208 ;;=DIC31^CHKVAL1
+209 ;;^UTILITY(U,$J,.84,8096,0)
+210 ;;=8096^1^^5
+211 ;;^UTILITY(U,$J,.84,8096,1,0)
+212 ;;=^^2^2^2971001^
+213 ;;^UTILITY(U,$J,.84,8096,1,1,0)
+214 ;;=Error message from ^DIC or ^DICQ when DIC contains a subfile number
