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