DINIT009 ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
;;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,630,0)
;;=630^1^y^5
;;^UTILITY(U,$J,.84,630,1,0)
;;=^^2^2^2941128^
;;^UTILITY(U,$J,.84,630,1,1,0)
;;=The database is corrupted. The value for a specific field in one entry
;;^UTILITY(U,$J,.84,630,1,2,0)
;;=should be a certain data type, but it is not.
;;^UTILITY(U,$J,.84,630,2,0)
;;=^^2^2^2941128^
;;^UTILITY(U,$J,.84,630,2,1,0)
;;=In Entry #|1| of File #|FILE|, the value '|2|' for Field #|FIELD| is not a
;;^UTILITY(U,$J,.84,630,2,2,0)
;;=valid |3|.
;;^UTILITY(U,$J,.84,630,3,0)
;;=^.845^5^5
;;^UTILITY(U,$J,.84,630,3,1,0)
;;=1^Entry #.
;;^UTILITY(U,$J,.84,630,3,2,0)
;;=2^Field Value.
;;^UTILITY(U,$J,.84,630,3,3,0)
;;=3^Data Type.
;;^UTILITY(U,$J,.84,630,3,4,0)
;;=FIELD^Field #.
;;^UTILITY(U,$J,.84,630,3,5,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,648,0)
;;=648^1^y^5
;;^UTILITY(U,$J,.84,648,1,0)
;;=^^3^3^2940214^
;;^UTILITY(U,$J,.84,648,1,1,0)
;;=The database is corrupted. In a specific variable pointer field of a
;;^UTILITY(U,$J,.84,648,1,2,0)
;;=certain entry, the field's value points to a file that either does not
;;^UTILITY(U,$J,.84,648,1,3,0)
;;=exist or that lacks a Header Node.
;;^UTILITY(U,$J,.84,648,2,0)
;;=^^2^2^2940214^
;;^UTILITY(U,$J,.84,648,2,1,0)
;;=In Entry #|1| of File #|FILE|, the value '|2|' for Field #|FIELD| points
;;^UTILITY(U,$J,.84,648,2,2,0)
;;=to a file that does not exist or lacks a Header Node.
;;^UTILITY(U,$J,.84,648,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,648,3,1,0)
;;=1^Entry #.
;;^UTILITY(U,$J,.84,648,3,2,0)
;;=2^Field Value.
;;^UTILITY(U,$J,.84,648,3,3,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,648,3,4,0)
;;=FIELD^Field #.
;;^UTILITY(U,$J,.84,701,0)
;;=701^1^y^5
;;^UTILITY(U,$J,.84,701,1,0)
;;=^^3^3^2931109^
;;^UTILITY(U,$J,.84,701,1,1,0)
;;=The value is invalid. Possible causes include: value did not pass input
;;^UTILITY(U,$J,.84,701,1,2,0)
;;=transform, value for a pointer or variable pointer field cannot be found in
;;^UTILITY(U,$J,.84,701,1,3,0)
;;=the pointed-to file, a screen was not passed.
;;^UTILITY(U,$J,.84,701,2,0)
;;=^^1^1^2931110^^
;;^UTILITY(U,$J,.84,701,2,1,0)
;;=The value '|3|' for field |1| in file |2| is not valid.
;;^UTILITY(U,$J,.84,701,3,0)
;;=^.845^6^6
;;^UTILITY(U,$J,.84,701,3,1,0)
;;=1^Field name.
;;^UTILITY(U,$J,.84,701,3,2,0)
;;=2^File name.
;;^UTILITY(U,$J,.84,701,3,3,0)
;;=3^Value that was found to be invalid.
;;^UTILITY(U,$J,.84,701,3,4,0)
;;=FIELD^Field number. (external only)
;;^UTILITY(U,$J,.84,701,3,5,0)
;;=FILE^File number. (external only)
;;^UTILITY(U,$J,.84,701,3,6,0)
;;=IENS^IEN string identifying entry with invalid value. (external only, sometimes returned)
;;^UTILITY(U,$J,.84,701,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,701,5,1,0)
;;=DIE^FILE
;;^UTILITY(U,$J,.84,703,0)
;;=703^1^y^5
;;^UTILITY(U,$J,.84,703,1,0)
;;=^^1^1^2940317^
;;^UTILITY(U,$J,.84,703,1,1,0)
;;=The value passed cannot be found in the indicated file using $$FIND1^DIC.
;;^UTILITY(U,$J,.84,703,2,0)
;;=^^1^1^2940317^
;;^UTILITY(U,$J,.84,703,2,1,0)
;;=The value '|1|' cannot be found in file #|FILE|.
;;^UTILITY(U,$J,.84,703,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,703,3,1,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,703,3,2,0)
;;=IENS^IEN String.
;;^UTILITY(U,$J,.84,703,3,3,0)
;;=1^Lookup Value.
;;^UTILITY(U,$J,.84,710,0)
;;=710^1^y^5
;;^UTILITY(U,$J,.84,710,1,0)
;;=^^2^2^2931123^^^^
;;^UTILITY(U,$J,.84,710,1,1,0)
;;=The data dictionary specifies that the field is uneditable. Data already
;;^UTILITY(U,$J,.84,710,1,2,0)
;;=exists in the field. It cannot be changed.
;;^UTILITY(U,$J,.84,710,2,0)
;;=^^1^1^2931110^^^
;;^UTILITY(U,$J,.84,710,2,1,0)
;;=Data in Field #|FIELD| in File #|FILE| cannot be edited.
;;^UTILITY(U,$J,.84,710,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,710,3,1,0)
;;=FIELD^Field number.
;;^UTILITY(U,$J,.84,710,3,2,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,712,0)
;;=712^1^y^5
;;^UTILITY(U,$J,.84,712,1,0)
;;=^^3^3^2931109^
;;^UTILITY(U,$J,.84,712,1,1,0)
;;=The value of a field cannot be deleted either because it is a required
;;^UTILITY(U,$J,.84,712,1,2,0)
;;=field, because it is the .01 of a file, or because the test in the "DEL"
;;^UTILITY(U,$J,.84,712,1,3,0)
;;=node was not passed.
;;^UTILITY(U,$J,.84,712,2,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,712,2,1,0)
;;=The value of field |1| in file |2| cannot be deleted.
;;^UTILITY(U,$J,.84,712,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,712,3,1,0)
;;=1^Field name.
;;^UTILITY(U,$J,.84,712,3,2,0)
;;=2^File name.
;;^UTILITY(U,$J,.84,712,3,3,0)
;;=FIELD^Field number. (external only)
;;^UTILITY(U,$J,.84,712,3,4,0)
;;=FILE^File number. (external only)
;;^UTILITY(U,$J,.84,712,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,712,5,1,0)
;;=DIE^FILE
;;^UTILITY(U,$J,.84,714,0)
;;=714^1^y^5
;;^UTILITY(U,$J,.84,714,1,0)
;;=^^2^2^2931109^^
;;^UTILITY(U,$J,.84,714,1,1,0)
;;=The field uses $Piece storage and the data contains an '^'. The data
;;^UTILITY(U,$J,.84,714,1,2,0)
;;=cannot be filed.
;;^UTILITY(U,$J,.84,714,2,0)
;;=^^1^1^2931109^^
;;^UTILITY(U,$J,.84,714,2,1,0)
;;=Data for Field |1| in File |2| contains an '^'.
;;^UTILITY(U,$J,.84,714,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,714,3,1,0)
;;=1^Field name.
;;^UTILITY(U,$J,.84,714,3,2,0)
;;=2^File name.
;;^UTILITY(U,$J,.84,714,3,3,0)
;;=FILE^File number. (external only)
;;^UTILITY(U,$J,.84,714,3,4,0)
;;=FIELD^Field number. (external only)
;;^UTILITY(U,$J,.84,714,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,714,5,1,0)
;;=DIE^FILE
;;^UTILITY(U,$J,.84,716,0)
;;=716^1^y^5
;;^UTILITY(U,$J,.84,716,1,0)
;;=^^2^2^2931109^
;;^UTILITY(U,$J,.84,716,1,1,0)
;;=Data being filed is too long for the field. Specifically, this occurs
;;^UTILITY(U,$J,.84,716,1,2,0)
;;=when data of the wrong length is being filed in a $Extract (Em,n) field.
;;^UTILITY(U,$J,.84,716,2,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,716,2,1,0)
;;=Data for field |1| in file |2| is too long.
;;^UTILITY(U,$J,.84,716,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,716,3,1,0)
;;=1^Field name.
;;^UTILITY(U,$J,.84,716,3,2,0)
;;=2^File name.
;;^UTILITY(U,$J,.84,716,3,3,0)
;;=FIELD^Field number. (external only)
;;^UTILITY(U,$J,.84,716,3,4,0)
;;=FILE^File number. (external only)
;;^UTILITY(U,$J,.84,716,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,716,5,1,0)
;;=DIE^FILE
;;^UTILITY(U,$J,.84,720,0)
;;=720^1^^5
;;^UTILITY(U,$J,.84,720,1,0)
;;=^^2^2^2931110^^
;;^UTILITY(U,$J,.84,720,1,1,0)
;;=The lookup for a pointer fails. This is an error only when
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT009 7251 printed Sep 23, 2025@20:25:44 Page 2
DINIT009 ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
+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,630,0)
+2 ;;=630^1^y^5
+3 ;;^UTILITY(U,$J,.84,630,1,0)
+4 ;;=^^2^2^2941128^
+5 ;;^UTILITY(U,$J,.84,630,1,1,0)
+6 ;;=The database is corrupted. The value for a specific field in one entry
+7 ;;^UTILITY(U,$J,.84,630,1,2,0)
+8 ;;=should be a certain data type, but it is not.
+9 ;;^UTILITY(U,$J,.84,630,2,0)
+10 ;;=^^2^2^2941128^
+11 ;;^UTILITY(U,$J,.84,630,2,1,0)
+12 ;;=In Entry #|1| of File #|FILE|, the value '|2|' for Field #|FIELD| is not a
+13 ;;^UTILITY(U,$J,.84,630,2,2,0)
+14 ;;=valid |3|.
+15 ;;^UTILITY(U,$J,.84,630,3,0)
+16 ;;=^.845^5^5
+17 ;;^UTILITY(U,$J,.84,630,3,1,0)
+18 ;;=1^Entry #.
+19 ;;^UTILITY(U,$J,.84,630,3,2,0)
+20 ;;=2^Field Value.
+21 ;;^UTILITY(U,$J,.84,630,3,3,0)
+22 ;;=3^Data Type.
+23 ;;^UTILITY(U,$J,.84,630,3,4,0)
+24 ;;=FIELD^Field #.
+25 ;;^UTILITY(U,$J,.84,630,3,5,0)
+26 ;;=FILE^File #.
+27 ;;^UTILITY(U,$J,.84,648,0)
+28 ;;=648^1^y^5
+29 ;;^UTILITY(U,$J,.84,648,1,0)
+30 ;;=^^3^3^2940214^
+31 ;;^UTILITY(U,$J,.84,648,1,1,0)
+32 ;;=The database is corrupted. In a specific variable pointer field of a
+33 ;;^UTILITY(U,$J,.84,648,1,2,0)
+34 ;;=certain entry, the field's value points to a file that either does not
+35 ;;^UTILITY(U,$J,.84,648,1,3,0)
+36 ;;=exist or that lacks a Header Node.
+37 ;;^UTILITY(U,$J,.84,648,2,0)
+38 ;;=^^2^2^2940214^
+39 ;;^UTILITY(U,$J,.84,648,2,1,0)
+40 ;;=In Entry #|1| of File #|FILE|, the value '|2|' for Field #|FIELD| points
+41 ;;^UTILITY(U,$J,.84,648,2,2,0)
+42 ;;=to a file that does not exist or lacks a Header Node.
+43 ;;^UTILITY(U,$J,.84,648,3,0)
+44 ;;=^.845^4^4
+45 ;;^UTILITY(U,$J,.84,648,3,1,0)
+46 ;;=1^Entry #.
+47 ;;^UTILITY(U,$J,.84,648,3,2,0)
+48 ;;=2^Field Value.
+49 ;;^UTILITY(U,$J,.84,648,3,3,0)
+50 ;;=FILE^File #.
+51 ;;^UTILITY(U,$J,.84,648,3,4,0)
+52 ;;=FIELD^Field #.
+53 ;;^UTILITY(U,$J,.84,701,0)
+54 ;;=701^1^y^5
+55 ;;^UTILITY(U,$J,.84,701,1,0)
+56 ;;=^^3^3^2931109^
+57 ;;^UTILITY(U,$J,.84,701,1,1,0)
+58 ;;=The value is invalid. Possible causes include: value did not pass input
+59 ;;^UTILITY(U,$J,.84,701,1,2,0)
+60 ;;=transform, value for a pointer or variable pointer field cannot be found in
+61 ;;^UTILITY(U,$J,.84,701,1,3,0)
+62 ;;=the pointed-to file, a screen was not passed.
+63 ;;^UTILITY(U,$J,.84,701,2,0)
+64 ;;=^^1^1^2931110^^
+65 ;;^UTILITY(U,$J,.84,701,2,1,0)
+66 ;;=The value '|3|' for field |1| in file |2| is not valid.
+67 ;;^UTILITY(U,$J,.84,701,3,0)
+68 ;;=^.845^6^6
+69 ;;^UTILITY(U,$J,.84,701,3,1,0)
+70 ;;=1^Field name.
+71 ;;^UTILITY(U,$J,.84,701,3,2,0)
+72 ;;=2^File name.
+73 ;;^UTILITY(U,$J,.84,701,3,3,0)
+74 ;;=3^Value that was found to be invalid.
+75 ;;^UTILITY(U,$J,.84,701,3,4,0)
+76 ;;=FIELD^Field number. (external only)
+77 ;;^UTILITY(U,$J,.84,701,3,5,0)
+78 ;;=FILE^File number. (external only)
+79 ;;^UTILITY(U,$J,.84,701,3,6,0)
+80 ;;=IENS^IEN string identifying entry with invalid value. (external only, sometimes returned)
+81 ;;^UTILITY(U,$J,.84,701,5,0)
+82 ;;=^.841^1^1
+83 ;;^UTILITY(U,$J,.84,701,5,1,0)
+84 ;;=DIE^FILE
+85 ;;^UTILITY(U,$J,.84,703,0)
+86 ;;=703^1^y^5
+87 ;;^UTILITY(U,$J,.84,703,1,0)
+88 ;;=^^1^1^2940317^
+89 ;;^UTILITY(U,$J,.84,703,1,1,0)
+90 ;;=The value passed cannot be found in the indicated file using $$FIND1^DIC.
+91 ;;^UTILITY(U,$J,.84,703,2,0)
+92 ;;=^^1^1^2940317^
+93 ;;^UTILITY(U,$J,.84,703,2,1,0)
+94 ;;=The value '|1|' cannot be found in file #|FILE|.
+95 ;;^UTILITY(U,$J,.84,703,3,0)
+96 ;;=^.845^3^3
+97 ;;^UTILITY(U,$J,.84,703,3,1,0)
+98 ;;=FILE^File #.
+99 ;;^UTILITY(U,$J,.84,703,3,2,0)
+100 ;;=IENS^IEN String.
+101 ;;^UTILITY(U,$J,.84,703,3,3,0)
+102 ;;=1^Lookup Value.
+103 ;;^UTILITY(U,$J,.84,710,0)
+104 ;;=710^1^y^5
+105 ;;^UTILITY(U,$J,.84,710,1,0)
+106 ;;=^^2^2^2931123^^^^
+107 ;;^UTILITY(U,$J,.84,710,1,1,0)
+108 ;;=The data dictionary specifies that the field is uneditable. Data already
+109 ;;^UTILITY(U,$J,.84,710,1,2,0)
+110 ;;=exists in the field. It cannot be changed.
+111 ;;^UTILITY(U,$J,.84,710,2,0)
+112 ;;=^^1^1^2931110^^^
+113 ;;^UTILITY(U,$J,.84,710,2,1,0)
+114 ;;=Data in Field #|FIELD| in File #|FILE| cannot be edited.
+115 ;;^UTILITY(U,$J,.84,710,3,0)
+116 ;;=^.845^2^2
+117 ;;^UTILITY(U,$J,.84,710,3,1,0)
+118 ;;=FIELD^Field number.
+119 ;;^UTILITY(U,$J,.84,710,3,2,0)
+120 ;;=FILE^File number.
+121 ;;^UTILITY(U,$J,.84,712,0)
+122 ;;=712^1^y^5
+123 ;;^UTILITY(U,$J,.84,712,1,0)
+124 ;;=^^3^3^2931109^
+125 ;;^UTILITY(U,$J,.84,712,1,1,0)
+126 ;;=The value of a field cannot be deleted either because it is a required
+127 ;;^UTILITY(U,$J,.84,712,1,2,0)
+128 ;;=field, because it is the .01 of a file, or because the test in the "DEL"
+129 ;;^UTILITY(U,$J,.84,712,1,3,0)
+130 ;;=node was not passed.
+131 ;;^UTILITY(U,$J,.84,712,2,0)
+132 ;;=^^1^1^2931109^
+133 ;;^UTILITY(U,$J,.84,712,2,1,0)
+134 ;;=The value of field |1| in file |2| cannot be deleted.
+135 ;;^UTILITY(U,$J,.84,712,3,0)
+136 ;;=^.845^4^4
+137 ;;^UTILITY(U,$J,.84,712,3,1,0)
+138 ;;=1^Field name.
+139 ;;^UTILITY(U,$J,.84,712,3,2,0)
+140 ;;=2^File name.
+141 ;;^UTILITY(U,$J,.84,712,3,3,0)
+142 ;;=FIELD^Field number. (external only)
+143 ;;^UTILITY(U,$J,.84,712,3,4,0)
+144 ;;=FILE^File number. (external only)
+145 ;;^UTILITY(U,$J,.84,712,5,0)
+146 ;;=^.841^1^1
+147 ;;^UTILITY(U,$J,.84,712,5,1,0)
+148 ;;=DIE^FILE
+149 ;;^UTILITY(U,$J,.84,714,0)
+150 ;;=714^1^y^5
+151 ;;^UTILITY(U,$J,.84,714,1,0)
+152 ;;=^^2^2^2931109^^
+153 ;;^UTILITY(U,$J,.84,714,1,1,0)
+154 ;;=The field uses $Piece storage and the data contains an '^'. The data
+155 ;;^UTILITY(U,$J,.84,714,1,2,0)
+156 ;;=cannot be filed.
+157 ;;^UTILITY(U,$J,.84,714,2,0)
+158 ;;=^^1^1^2931109^^
+159 ;;^UTILITY(U,$J,.84,714,2,1,0)
+160 ;;=Data for Field |1| in File |2| contains an '^'.
+161 ;;^UTILITY(U,$J,.84,714,3,0)
+162 ;;=^.845^4^4
+163 ;;^UTILITY(U,$J,.84,714,3,1,0)
+164 ;;=1^Field name.
+165 ;;^UTILITY(U,$J,.84,714,3,2,0)
+166 ;;=2^File name.
+167 ;;^UTILITY(U,$J,.84,714,3,3,0)
+168 ;;=FILE^File number. (external only)
+169 ;;^UTILITY(U,$J,.84,714,3,4,0)
+170 ;;=FIELD^Field number. (external only)
+171 ;;^UTILITY(U,$J,.84,714,5,0)
+172 ;;=^.841^1^1
+173 ;;^UTILITY(U,$J,.84,714,5,1,0)
+174 ;;=DIE^FILE
+175 ;;^UTILITY(U,$J,.84,716,0)
+176 ;;=716^1^y^5
+177 ;;^UTILITY(U,$J,.84,716,1,0)
+178 ;;=^^2^2^2931109^
+179 ;;^UTILITY(U,$J,.84,716,1,1,0)
+180 ;;=Data being filed is too long for the field. Specifically, this occurs
+181 ;;^UTILITY(U,$J,.84,716,1,2,0)
+182 ;;=when data of the wrong length is being filed in a $Extract (Em,n) field.
+183 ;;^UTILITY(U,$J,.84,716,2,0)
+184 ;;=^^1^1^2931109^
+185 ;;^UTILITY(U,$J,.84,716,2,1,0)
+186 ;;=Data for field |1| in file |2| is too long.
+187 ;;^UTILITY(U,$J,.84,716,3,0)
+188 ;;=^.845^4^4
+189 ;;^UTILITY(U,$J,.84,716,3,1,0)
+190 ;;=1^Field name.
+191 ;;^UTILITY(U,$J,.84,716,3,2,0)
+192 ;;=2^File name.
+193 ;;^UTILITY(U,$J,.84,716,3,3,0)
+194 ;;=FIELD^Field number. (external only)
+195 ;;^UTILITY(U,$J,.84,716,3,4,0)
+196 ;;=FILE^File number. (external only)
+197 ;;^UTILITY(U,$J,.84,716,5,0)
+198 ;;=^.841^1^1
+199 ;;^UTILITY(U,$J,.84,716,5,1,0)
+200 ;;=DIE^FILE
+201 ;;^UTILITY(U,$J,.84,720,0)
+202 ;;=720^1^^5
+203 ;;^UTILITY(U,$J,.84,720,1,0)
+204 ;;=^^2^2^2931110^^
+205 ;;^UTILITY(U,$J,.84,720,1,1,0)
+206 ;;=The lookup for a pointer fails. This is an error only when
