DINIT00L ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
;;22.0;VA FileMan;;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
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^^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 <RETURN> to see more, '^' to exit this list, OR
;;^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
DINIT00L ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
+1 ;;22.0;VA FileMan;;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 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^^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 <RETURN> to see more, '^' to exit this list, OR
+53 ;;^UTILITY(U,$J,.84,8087,5,0)
+54 ;;=^.841^1^1
+55 ;;^UTILITY(U,$J,.84,8087,5,1,0)
+56 ;;=DIC1^DSP
+57 ;;^UTILITY(U,$J,.84,8088,0)
+58 ;;=8088^2^y^5
+59 ;;^UTILITY(U,$J,.84,8088,1,0)
+60 ;;=^^2^2^2970529^^
+61 ;;^UTILITY(U,$J,.84,8088,1,1,0)
+62 ;;=Message directing the user to Choose one of the displayed selections
+63 ;;^UTILITY(U,$J,.84,8088,1,2,0)
+64 ;;=during lookup (^DIC).
+65 ;;^UTILITY(U,$J,.84,8088,2,0)
+66 ;;=^^1^1^2970529^
+67 ;;^UTILITY(U,$J,.84,8088,2,1,0)
+68 ;;=CHOOSE |1|-|2|:
+69 ;;^UTILITY(U,$J,.84,8088,3,0)
+70 ;;=^.845^2^2
+71 ;;^UTILITY(U,$J,.84,8088,3,1,0)
+72 ;;=1^Starting number in displayed list
+73 ;;^UTILITY(U,$J,.84,8088,3,2,0)
+74 ;;=2^Ending number in displayed list
+75 ;;^UTILITY(U,$J,.84,8088,5,0)
+76 ;;=^.841^1^1
+77 ;;^UTILITY(U,$J,.84,8088,5,1,0)
+78 ;;=DIC1^DSP
+79 ;;^UTILITY(U,$J,.84,8089,0)
+80 ;;=8089^2^y^5
+81 ;;^UTILITY(U,$J,.84,8089,1,0)
+82 ;;=^^2^2^2970609^^
+83 ;;^UTILITY(U,$J,.84,8089,1,1,0)
+84 ;;=Message used during interactive ^DIC to display the file and index name
+85 ;;^UTILITY(U,$J,.84,8089,1,2,0)
+86 ;;=on which the displayed entries were found.
+87 ;;^UTILITY(U,$J,.84,8089,2,0)
+88 ;;=^^1^1^2970609^^
+89 ;;^UTILITY(U,$J,.84,8089,2,1,0)
+90 ;;=Matches to: |1| |2|.
+91 ;;^UTILITY(U,$J,.84,8089,3,0)
+92 ;;=^.845^2^2
+93 ;;^UTILITY(U,$J,.84,8089,3,1,0)
+94 ;;=1^File name
+95 ;;^UTILITY(U,$J,.84,8089,3,2,0)
+96 ;;=2^Indexed field name
+97 ;;^UTILITY(U,$J,.84,8089,5,0)
+98 ;;=^.841^1^1
+99 ;;^UTILITY(U,$J,.84,8089,5,1,0)
+100 ;;=DIC1^DSP
+101 ;;^UTILITY(U,$J,.84,8090,0)
+102 ;;=8090^2^^5
+103 ;;^UTILITY(U,$J,.84,8090,1,0)
+104 ;;=^^3^3^2970626^
+105 ;;^UTILITY(U,$J,.84,8090,1,1,0)
+106 ;;=Used in displaying an error message when the lookup value X does not pass
+107 ;;^UTILITY(U,$J,.84,8090,1,2,0)
+108 ;;=the Pre-lookup transform code (^DD(File#,.01,7.5) node) during ^DIC or
+109 ;;^UTILITY(U,$J,.84,8090,1,3,0)
+110 ;;=Finder lookups.
+111 ;;^UTILITY(U,$J,.84,8090,2,0)
+112 ;;=^^1^1^2970626^
+113 ;;^UTILITY(U,$J,.84,8090,2,1,0)
+114 ;;=Pre-lookup transform (7.5 node)
+115 ;;^UTILITY(U,$J,.84,8090,5,0)
+116 ;;=^.841^2^2
+117 ;;^UTILITY(U,$J,.84,8090,5,1,0)
+118 ;;=DIC
+119 ;;^UTILITY(U,$J,.84,8090,5,2,0)
+120 ;;=DICF
+121 ;;^UTILITY(U,$J,.84,8091,0)
+122 ;;=8091^1^^5^
+123 ;;^UTILITY(U,$J,.84,8091,1,0)
+124 ;;=^^1^1^2970715^
+125 ;;^UTILITY(U,$J,.84,8091,1,1,0)
+126 ;;=Error set when user times out.
+127 ;;^UTILITY(U,$J,.84,8091,2,0)
+128 ;;=^^1^1^2970715^
+129 ;;^UTILITY(U,$J,.84,8091,2,1,0)
+130 ;;=User timed out.
+131 ;;^UTILITY(U,$J,.84,8091,5,0)
+132 ;;=^.841^1^1
+133 ;;^UTILITY(U,$J,.84,8091,5,1,0)
+134 ;;=DIC1^Y
+135 ;;^UTILITY(U,$J,.84,8092,0)
+136 ;;=8092^1^^5
+137 ;;^UTILITY(U,$J,.84,8092,1,0)
+138 ;;=^^1^1^2970715^
+139 ;;^UTILITY(U,$J,.84,8092,1,1,0)
+140 ;;=Error when user up-arrows out.
+141 ;;^UTILITY(U,$J,.84,8092,2,0)
+142 ;;=^^1^1^2970715^
+143 ;;^UTILITY(U,$J,.84,8092,2,1,0)
+144 ;;=User up-arrowed out.
+145 ;;^UTILITY(U,$J,.84,8092,5,0)
+146 ;;=^.841^1^1
+147 ;;^UTILITY(U,$J,.84,8092,5,1,0)
+148 ;;=DIC1^Y
+149 ;;^UTILITY(U,$J,.84,8093,0)
+150 ;;=8093^1^^5
+151 ;;^UTILITY(U,$J,.84,8093,1,0)
+152 ;;=^^4^4^2970722^
+153 ;;^UTILITY(U,$J,.84,8093,1,1,0)
+154 ;;=Error that occurs when user passes too many lookup values to either the
+155 ;;^UTILITY(U,$J,.84,8093,1,2,0)
+156 ;;=Finder call ^DICF or the FileMan lookup ^DIC. When the number of lookup
+157 ;;^UTILITY(U,$J,.84,8093,1,3,0)
+158 ;;=values exceeds the number of subscripts in the index passed (or the
+159 ;;^UTILITY(U,$J,.84,8093,1,4,0)
+160 ;;=default index if no index is passed).
+161 ;;^UTILITY(U,$J,.84,8093,2,0)
+162 ;;=^^1^1^2970722^
+163 ;;^UTILITY(U,$J,.84,8093,2,1,0)
+164 ;;=Too many lookup values for this index.
+165 ;;^UTILITY(U,$J,.84,8093,5,0)
+166 ;;=^.841^1^1
+167 ;;^UTILITY(U,$J,.84,8093,5,1,0)
+168 ;;=DIC3^ASK
+169 ;;^UTILITY(U,$J,.84,8094,0)
+170 ;;=8094^1^^5
+171 ;;^UTILITY(U,$J,.84,8094,1,0)
+172 ;;=^^3^3^2970820^
+173 ;;^UTILITY(U,$J,.84,8094,1,1,0)
+174 ;;=Error message returned from ^DICF or ^DIC when flags parameter or
+175 ;;^UTILITY(U,$J,.84,8094,1,2,0)
+176 ;;=DIC(0) contains an "X", but not enough lookup values passed for the number
+177 ;;^UTILITY(U,$J,.84,8094,1,3,0)
+178 ;;=of subscripts in the lookup index.
+179 ;;^UTILITY(U,$J,.84,8094,2,0)
+180 ;;=^^1^1^2970820^
+181 ;;^UTILITY(U,$J,.84,8094,2,1,0)
+182 ;;=Not enough lookup values provided for an exact match on this index.
+183 ;;^UTILITY(U,$J,.84,8094,5,0)
+184 ;;=^.841^1^1
+185 ;;^UTILITY(U,$J,.84,8094,5,1,0)
+186 ;;=DIC31^CHKVAL1
+187 ;;^UTILITY(U,$J,.84,8095,0)
+188 ;;=8095^1^^5
+189 ;;^UTILITY(U,$J,.84,8095,1,0)
+190 ;;=^^3^3^2990104^^
+191 ;;^UTILITY(U,$J,.84,8095,1,1,0)
+192 ;;=In calls to the Finder, IX^DIC or MIX^DIC, if the first index passed (or
+193 ;;^UTILITY(U,$J,.84,8095,1,2,0)
+194 ;;=the default index) is a compound index, then only one index can be passed,
+195 ;;^UTILITY(U,$J,.84,8095,1,3,0)
+196 ;;=so DIC(0) (or flags) cannot contain "M".
+197 ;;^UTILITY(U,$J,.84,8095,2,0)
+198 ;;=^^1^1^2990104^
+199 ;;^UTILITY(U,$J,.84,8095,2,1,0)
+200 ;;=First lookup index is compound, so "M"ultiple index lookups not allowed.
+201 ;;^UTILITY(U,$J,.84,8095,5,0)
+202 ;;=^.841^1^1
+203 ;;^UTILITY(U,$J,.84,8095,5,1,0)
+204 ;;=DIC31^CHKVAL1
+205 ;;^UTILITY(U,$J,.84,8096,0)
+206 ;;=8096^1^^5
+207 ;;^UTILITY(U,$J,.84,8096,1,0)
+208 ;;=^^2^2^2971001^
+209 ;;^UTILITY(U,$J,.84,8096,1,1,0)
+210 ;;=Error message from ^DIC or ^DICQ when DIC contains a subfile number
