DINIT00Z ; 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,9537,0)
;;=9537^1^y^5
;;^UTILITY(U,$J,.84,9537,1,0)
;;=^^1^1^2940909^^^
;;^UTILITY(U,$J,.84,9537,1,1,0)
;;=Unable to find exact match and resolve pointer.
;;^UTILITY(U,$J,.84,9537,2,0)
;;=^^1^1^2940909^^^
;;^UTILITY(U,$J,.84,9537,2,1,0)
;;=Unable to find exact match and resolve pointer |1|.
;;^UTILITY(U,$J,.84,9538,0)
;;=9538^1^y^5
;;^UTILITY(U,$J,.84,9538,1,0)
;;=^^1^1^2940909^^
;;^UTILITY(U,$J,.84,9538,1,1,0)
;;=Pointer resolved value is missing.
;;^UTILITY(U,$J,.84,9538,2,0)
;;=^^1^1^2940909^^
;;^UTILITY(U,$J,.84,9538,2,1,0)
;;=Pointer resolved value is missing |1|.
;;^UTILITY(U,$J,.84,9539,0)
;;=9539^1^y^5
;;^UTILITY(U,$J,.84,9539,1,0)
;;=^^1^1^2940914^
;;^UTILITY(U,$J,.84,9539,1,1,0)
;;=File not on this system.
;;^UTILITY(U,$J,.84,9539,2,0)
;;=^^1^1^2940914^
;;^UTILITY(U,$J,.84,9539,2,1,0)
;;=File #|1| not on this system.
;;^UTILITY(U,$J,.84,9540,0)
;;=9540^1^y^5
;;^UTILITY(U,$J,.84,9540,1,0)
;;=^^1^1^2940914^^
;;^UTILITY(U,$J,.84,9540,1,1,0)
;;=DD not on this system.
;;^UTILITY(U,$J,.84,9540,2,0)
;;=^^1^1^2940914^^
;;^UTILITY(U,$J,.84,9540,2,1,0)
;;=DD #|1| not on this system.
;;^UTILITY(U,$J,.84,9541,0)
;;=9541^1^y^5
;;^UTILITY(U,$J,.84,9541,1,0)
;;=^^1^1^2940914^^
;;^UTILITY(U,$J,.84,9541,1,1,0)
;;=Field not on this system.
;;^UTILITY(U,$J,.84,9541,2,0)
;;=^^1^1^2940914^^
;;^UTILITY(U,$J,.84,9541,2,1,0)
;;=Field #|1|, DD #|2|, not on this system.
;;^UTILITY(U,$J,.84,9542,0)
;;=9542^1^^5
;;^UTILITY(U,$J,.84,9542,1,0)
;;=^^1^1^2940914^
;;^UTILITY(U,$J,.84,9542,1,1,0)
;;=File number missing or invalid for FIA structure.
;;^UTILITY(U,$J,.84,9542,2,0)
;;=^^1^1^2940914^
;;^UTILITY(U,$J,.84,9542,2,1,0)
;;=File number missing or invalid to build FIA structure.
;;^UTILITY(U,$J,.84,9543,0)
;;=9543^1^y^5
;;^UTILITY(U,$J,.84,9543,1,0)
;;=^^4^4^2980505^
;;^UTILITY(U,$J,.84,9543,1,1,0)
;;=Each field involved in an INDEX or KEY entry should be included in the
;;^UTILITY(U,$J,.84,9543,1,2,0)
;;=KIDS' transport global. If a field participating in an INDEX or KEY entry
;;^UTILITY(U,$J,.84,9543,1,3,0)
;;=is missing from the transport global, the INDEX or KEY entry is not
;;^UTILITY(U,$J,.84,9543,1,4,0)
;;=exported.
;;^UTILITY(U,$J,.84,9543,2,0)
;;=^^2^2^2980505^^
;;^UTILITY(U,$J,.84,9543,2,1,0)
;;=Field |1| of file |2|, part of '|3|' |4| entry, is missing from the
;;^UTILITY(U,$J,.84,9543,2,2,0)
;;=transport global.
;;^UTILITY(U,$J,.84,9543,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,9543,3,1,0)
;;=1^Field name
;;^UTILITY(U,$J,.84,9543,3,2,0)
;;=2^File name
;;^UTILITY(U,$J,.84,9543,3,3,0)
;;=3^Index or Key name
;;^UTILITY(U,$J,.84,9543,3,4,0)
;;=4^KEY or INDEX
;;^UTILITY(U,$J,.84,9543,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,9543,5,1,0)
;;=DIFROMSX^DDIXOUT
;;^UTILITY(U,$J,.84,9543,5,2,0)
;;=DIFROMSY^DDKEYOUT
;;^UTILITY(U,$J,.84,9544,0)
;;=9544^1^y^5
;;^UTILITY(U,$J,.84,9544,1,0)
;;=^^4^4^2980505^^
;;^UTILITY(U,$J,.84,9544,1,1,0)
;;=Each field involved in an INDEX or KEY entry should be included in the
;;^UTILITY(U,$J,.84,9544,1,2,0)
;;=KIDS' transport global. If any fields participating in an INDEX or KEY
;;^UTILITY(U,$J,.84,9544,1,3,0)
;;=entry are missing from the transport global, the INDEX or KEY entry is not
;;^UTILITY(U,$J,.84,9544,1,4,0)
;;=exported.
;;^UTILITY(U,$J,.84,9544,2,0)
;;=^^2^2^2980507^
;;^UTILITY(U,$J,.84,9544,2,1,0)
;;=Field(s) that are part of '|1|' |2| entry for file |3| are missing from
;;^UTILITY(U,$J,.84,9544,2,2,0)
;;=the transport global.
;;^UTILITY(U,$J,.84,9544,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,9544,3,1,0)
;;=1^Key or Index Name
;;^UTILITY(U,$J,.84,9544,3,2,0)
;;=2^KEY or INDEX
;;^UTILITY(U,$J,.84,9544,3,3,0)
;;=3^File Name
;;^UTILITY(U,$J,.84,9544,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9544,5,1,0)
;;=DIFROMSX^DDIXOUT
;;^UTILITY(U,$J,.84,9545,0)
;;=9545^1^y^5
;;^UTILITY(U,$J,.84,9545,1,0)
;;=^^2^2^2980505^^
;;^UTILITY(U,$J,.84,9545,1,1,0)
;;=INDEX entry not installed. This entry references a field that does not
;;^UTILITY(U,$J,.84,9545,1,2,0)
;;=exist on the target system.
;;^UTILITY(U,$J,.84,9545,2,0)
;;=^^2^2^2980507^
;;^UTILITY(U,$J,.84,9545,2,1,0)
;;=|1| '|2|' not installed. Field |3| in file |4|
;;^UTILITY(U,$J,.84,9545,2,2,0)
;;=does not exist on the system.
;;^UTILITY(U,$J,.84,9545,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,9545,3,1,0)
;;=2^This is name of the Index file entry.
;;^UTILITY(U,$J,.84,9545,3,2,0)
;;=3^This is the field that is being referenced by the Index entry.
;;^UTILITY(U,$J,.84,9545,3,3,0)
;;=4^This is the file that is being referenced by the Index entry.
;;^UTILITY(U,$J,.84,9545,3,4,0)
;;=1^KEY or INDEX
;;^UTILITY(U,$J,.84,9545,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,9545,5,1,0)
;;=DDFROMSX^DDIXIN
;;^UTILITY(U,$J,.84,9545,5,2,0)
;;=DDFROMSY^DDKEYIN
;;^UTILITY(U,$J,.84,9546,0)
;;=9546^1^y^5
;;^UTILITY(U,$J,.84,9546,1,0)
;;=^^2^2^2980505^
;;^UTILITY(U,$J,.84,9546,1,1,0)
;;=Uniqueness index pointer either missing from KEY file entry or invalid,
;;^UTILITY(U,$J,.84,9546,1,2,0)
;;=when trying to transport the KEY.
;;^UTILITY(U,$J,.84,9546,2,0)
;;=^^2^2^2980505^
;;^UTILITY(U,$J,.84,9546,2,1,0)
;;=KEY '|1|' for file |2| cannot be transported, problem with Uniqueness
;;^UTILITY(U,$J,.84,9546,2,2,0)
;;=Index for the KEY.
;;^UTILITY(U,$J,.84,9546,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9546,3,1,0)
;;=1^This is the name of the KEY file entry.
;;^UTILITY(U,$J,.84,9546,3,2,0)
;;=2^This is the file number that owns the KEY file entry.
;;^UTILITY(U,$J,.84,9547,0)
;;=9547^1^y^5
;;^UTILITY(U,$J,.84,9547,1,0)
;;=^^2^2^2980505^^
;;^UTILITY(U,$J,.84,9547,1,1,0)
;;=KEY file entry cannot be installed because Uniqueness Index pointer can't
;;^UTILITY(U,$J,.84,9547,1,2,0)
;;=be resolved.
;;^UTILITY(U,$J,.84,9547,2,0)
;;=^^2^2^2980507^
;;^UTILITY(U,$J,.84,9547,2,1,0)
;;=KEY entry '|1|' for file |2| not installed. Pointer to Uniqueness Index
;;^UTILITY(U,$J,.84,9547,2,2,0)
;;=cannot be resolved.
;;^UTILITY(U,$J,.84,9547,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9547,3,1,0)
;;=1^This is the name of the KEY file entry
;;^UTILITY(U,$J,.84,9547,3,2,0)
;;=2^This is the number of the file that owns the KEY.
;;^UTILITY(U,$J,.84,9547,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9547,5,1,0)
;;=DIFROMSY^DDKEYIN
;;^UTILITY(U,$J,.84,9548,0)
;;=9548^1^y^5
;;^UTILITY(U,$J,.84,9548,1,0)
;;=^^2^2^2980610^
;;^UTILITY(U,$J,.84,9548,1,1,0)
;;=Error from TRANSFER mode, when DD is being cloned from the transfer FROM
DINIT00Z ; 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,9537,0)
+2 ;;=9537^1^y^5
+3 ;;^UTILITY(U,$J,.84,9537,1,0)
+4 ;;=^^1^1^2940909^^^
+5 ;;^UTILITY(U,$J,.84,9537,1,1,0)
+6 ;;=Unable to find exact match and resolve pointer.
+7 ;;^UTILITY(U,$J,.84,9537,2,0)
+8 ;;=^^1^1^2940909^^^
+9 ;;^UTILITY(U,$J,.84,9537,2,1,0)
+10 ;;=Unable to find exact match and resolve pointer |1|.
+11 ;;^UTILITY(U,$J,.84,9538,0)
+12 ;;=9538^1^y^5
+13 ;;^UTILITY(U,$J,.84,9538,1,0)
+14 ;;=^^1^1^2940909^^
+15 ;;^UTILITY(U,$J,.84,9538,1,1,0)
+16 ;;=Pointer resolved value is missing.
+17 ;;^UTILITY(U,$J,.84,9538,2,0)
+18 ;;=^^1^1^2940909^^
+19 ;;^UTILITY(U,$J,.84,9538,2,1,0)
+20 ;;=Pointer resolved value is missing |1|.
+21 ;;^UTILITY(U,$J,.84,9539,0)
+22 ;;=9539^1^y^5
+23 ;;^UTILITY(U,$J,.84,9539,1,0)
+24 ;;=^^1^1^2940914^
+25 ;;^UTILITY(U,$J,.84,9539,1,1,0)
+26 ;;=File not on this system.
+27 ;;^UTILITY(U,$J,.84,9539,2,0)
+28 ;;=^^1^1^2940914^
+29 ;;^UTILITY(U,$J,.84,9539,2,1,0)
+30 ;;=File #|1| not on this system.
+31 ;;^UTILITY(U,$J,.84,9540,0)
+32 ;;=9540^1^y^5
+33 ;;^UTILITY(U,$J,.84,9540,1,0)
+34 ;;=^^1^1^2940914^^
+35 ;;^UTILITY(U,$J,.84,9540,1,1,0)
+36 ;;=DD not on this system.
+37 ;;^UTILITY(U,$J,.84,9540,2,0)
+38 ;;=^^1^1^2940914^^
+39 ;;^UTILITY(U,$J,.84,9540,2,1,0)
+40 ;;=DD #|1| not on this system.
+41 ;;^UTILITY(U,$J,.84,9541,0)
+42 ;;=9541^1^y^5
+43 ;;^UTILITY(U,$J,.84,9541,1,0)
+44 ;;=^^1^1^2940914^^
+45 ;;^UTILITY(U,$J,.84,9541,1,1,0)
+46 ;;=Field not on this system.
+47 ;;^UTILITY(U,$J,.84,9541,2,0)
+48 ;;=^^1^1^2940914^^
+49 ;;^UTILITY(U,$J,.84,9541,2,1,0)
+50 ;;=Field #|1|, DD #|2|, not on this system.
+51 ;;^UTILITY(U,$J,.84,9542,0)
+52 ;;=9542^1^^5
+53 ;;^UTILITY(U,$J,.84,9542,1,0)
+54 ;;=^^1^1^2940914^
+55 ;;^UTILITY(U,$J,.84,9542,1,1,0)
+56 ;;=File number missing or invalid for FIA structure.
+57 ;;^UTILITY(U,$J,.84,9542,2,0)
+58 ;;=^^1^1^2940914^
+59 ;;^UTILITY(U,$J,.84,9542,2,1,0)
+60 ;;=File number missing or invalid to build FIA structure.
+61 ;;^UTILITY(U,$J,.84,9543,0)
+62 ;;=9543^1^y^5
+63 ;;^UTILITY(U,$J,.84,9543,1,0)
+64 ;;=^^4^4^2980505^
+65 ;;^UTILITY(U,$J,.84,9543,1,1,0)
+66 ;;=Each field involved in an INDEX or KEY entry should be included in the
+67 ;;^UTILITY(U,$J,.84,9543,1,2,0)
+68 ;;=KIDS' transport global. If a field participating in an INDEX or KEY entry
+69 ;;^UTILITY(U,$J,.84,9543,1,3,0)
+70 ;;=is missing from the transport global, the INDEX or KEY entry is not
+71 ;;^UTILITY(U,$J,.84,9543,1,4,0)
+72 ;;=exported.
+73 ;;^UTILITY(U,$J,.84,9543,2,0)
+74 ;;=^^2^2^2980505^^
+75 ;;^UTILITY(U,$J,.84,9543,2,1,0)
+76 ;;=Field |1| of file |2|, part of '|3|' |4| entry, is missing from the
+77 ;;^UTILITY(U,$J,.84,9543,2,2,0)
+78 ;;=transport global.
+79 ;;^UTILITY(U,$J,.84,9543,3,0)
+80 ;;=^.845^4^4
+81 ;;^UTILITY(U,$J,.84,9543,3,1,0)
+82 ;;=1^Field name
+83 ;;^UTILITY(U,$J,.84,9543,3,2,0)
+84 ;;=2^File name
+85 ;;^UTILITY(U,$J,.84,9543,3,3,0)
+86 ;;=3^Index or Key name
+87 ;;^UTILITY(U,$J,.84,9543,3,4,0)
+88 ;;=4^KEY or INDEX
+89 ;;^UTILITY(U,$J,.84,9543,5,0)
+90 ;;=^.841^2^2
+91 ;;^UTILITY(U,$J,.84,9543,5,1,0)
+92 ;;=DIFROMSX^DDIXOUT
+93 ;;^UTILITY(U,$J,.84,9543,5,2,0)
+94 ;;=DIFROMSY^DDKEYOUT
+95 ;;^UTILITY(U,$J,.84,9544,0)
+96 ;;=9544^1^y^5
+97 ;;^UTILITY(U,$J,.84,9544,1,0)
+98 ;;=^^4^4^2980505^^
+99 ;;^UTILITY(U,$J,.84,9544,1,1,0)
+100 ;;=Each field involved in an INDEX or KEY entry should be included in the
+101 ;;^UTILITY(U,$J,.84,9544,1,2,0)
+102 ;;=KIDS' transport global. If any fields participating in an INDEX or KEY
+103 ;;^UTILITY(U,$J,.84,9544,1,3,0)
+104 ;;=entry are missing from the transport global, the INDEX or KEY entry is not
+105 ;;^UTILITY(U,$J,.84,9544,1,4,0)
+106 ;;=exported.
+107 ;;^UTILITY(U,$J,.84,9544,2,0)
+108 ;;=^^2^2^2980507^
+109 ;;^UTILITY(U,$J,.84,9544,2,1,0)
+110 ;;=Field(s) that are part of '|1|' |2| entry for file |3| are missing from
+111 ;;^UTILITY(U,$J,.84,9544,2,2,0)
+112 ;;=the transport global.
+113 ;;^UTILITY(U,$J,.84,9544,3,0)
+114 ;;=^.845^3^3
+115 ;;^UTILITY(U,$J,.84,9544,3,1,0)
+116 ;;=1^Key or Index Name
+117 ;;^UTILITY(U,$J,.84,9544,3,2,0)
+118 ;;=2^KEY or INDEX
+119 ;;^UTILITY(U,$J,.84,9544,3,3,0)
+120 ;;=3^File Name
+121 ;;^UTILITY(U,$J,.84,9544,5,0)
+122 ;;=^.841^1^1
+123 ;;^UTILITY(U,$J,.84,9544,5,1,0)
+124 ;;=DIFROMSX^DDIXOUT
+125 ;;^UTILITY(U,$J,.84,9545,0)
+126 ;;=9545^1^y^5
+127 ;;^UTILITY(U,$J,.84,9545,1,0)
+128 ;;=^^2^2^2980505^^
+129 ;;^UTILITY(U,$J,.84,9545,1,1,0)
+130 ;;=INDEX entry not installed. This entry references a field that does not
+131 ;;^UTILITY(U,$J,.84,9545,1,2,0)
+132 ;;=exist on the target system.
+133 ;;^UTILITY(U,$J,.84,9545,2,0)
+134 ;;=^^2^2^2980507^
+135 ;;^UTILITY(U,$J,.84,9545,2,1,0)
+136 ;;=|1| '|2|' not installed. Field |3| in file |4|
+137 ;;^UTILITY(U,$J,.84,9545,2,2,0)
+138 ;;=does not exist on the system.
+139 ;;^UTILITY(U,$J,.84,9545,3,0)
+140 ;;=^.845^4^4
+141 ;;^UTILITY(U,$J,.84,9545,3,1,0)
+142 ;;=2^This is name of the Index file entry.
+143 ;;^UTILITY(U,$J,.84,9545,3,2,0)
+144 ;;=3^This is the field that is being referenced by the Index entry.
+145 ;;^UTILITY(U,$J,.84,9545,3,3,0)
+146 ;;=4^This is the file that is being referenced by the Index entry.
+147 ;;^UTILITY(U,$J,.84,9545,3,4,0)
+148 ;;=1^KEY or INDEX
+149 ;;^UTILITY(U,$J,.84,9545,5,0)
+150 ;;=^.841^2^2
+151 ;;^UTILITY(U,$J,.84,9545,5,1,0)
+152 ;;=DDFROMSX^DDIXIN
+153 ;;^UTILITY(U,$J,.84,9545,5,2,0)
+154 ;;=DDFROMSY^DDKEYIN
+155 ;;^UTILITY(U,$J,.84,9546,0)
+156 ;;=9546^1^y^5
+157 ;;^UTILITY(U,$J,.84,9546,1,0)
+158 ;;=^^2^2^2980505^
+159 ;;^UTILITY(U,$J,.84,9546,1,1,0)
+160 ;;=Uniqueness index pointer either missing from KEY file entry or invalid,
+161 ;;^UTILITY(U,$J,.84,9546,1,2,0)
+162 ;;=when trying to transport the KEY.
+163 ;;^UTILITY(U,$J,.84,9546,2,0)
+164 ;;=^^2^2^2980505^
+165 ;;^UTILITY(U,$J,.84,9546,2,1,0)
+166 ;;=KEY '|1|' for file |2| cannot be transported, problem with Uniqueness
+167 ;;^UTILITY(U,$J,.84,9546,2,2,0)
+168 ;;=Index for the KEY.
+169 ;;^UTILITY(U,$J,.84,9546,3,0)
+170 ;;=^.845^2^2
+171 ;;^UTILITY(U,$J,.84,9546,3,1,0)
+172 ;;=1^This is the name of the KEY file entry.
+173 ;;^UTILITY(U,$J,.84,9546,3,2,0)
+174 ;;=2^This is the file number that owns the KEY file entry.
+175 ;;^UTILITY(U,$J,.84,9547,0)
+176 ;;=9547^1^y^5
+177 ;;^UTILITY(U,$J,.84,9547,1,0)
+178 ;;=^^2^2^2980505^^
+179 ;;^UTILITY(U,$J,.84,9547,1,1,0)
+180 ;;=KEY file entry cannot be installed because Uniqueness Index pointer can't
+181 ;;^UTILITY(U,$J,.84,9547,1,2,0)
+182 ;;=be resolved.
+183 ;;^UTILITY(U,$J,.84,9547,2,0)
+184 ;;=^^2^2^2980507^
+185 ;;^UTILITY(U,$J,.84,9547,2,1,0)
+186 ;;=KEY entry '|1|' for file |2| not installed. Pointer to Uniqueness Index
+187 ;;^UTILITY(U,$J,.84,9547,2,2,0)
+188 ;;=cannot be resolved.
+189 ;;^UTILITY(U,$J,.84,9547,3,0)
+190 ;;=^.845^2^2
+191 ;;^UTILITY(U,$J,.84,9547,3,1,0)
+192 ;;=1^This is the name of the KEY file entry
+193 ;;^UTILITY(U,$J,.84,9547,3,2,0)
+194 ;;=2^This is the number of the file that owns the KEY.
+195 ;;^UTILITY(U,$J,.84,9547,5,0)
+196 ;;=^.841^1^1
+197 ;;^UTILITY(U,$J,.84,9547,5,1,0)
+198 ;;=DIFROMSY^DDKEYIN
+199 ;;^UTILITY(U,$J,.84,9548,0)
+200 ;;=9548^1^y^5
+201 ;;^UTILITY(U,$J,.84,9548,1,0)
+202 ;;=^^2^2^2980610^
+203 ;;^UTILITY(U,$J,.84,9548,1,1,0)
+204 ;;=Error from TRANSFER mode, when DD is being cloned from the transfer FROM
