| 1 | DINIT00E ; 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,3051,1,0)
|
---|
| 7 | ;;=^^2^2^2931129^^^^
|
---|
| 8 | ;;^UTILITY(U,$J,.84,3051,1,1,0)
|
---|
| 9 | ;;=The block has no 0 node in the Block file or was not found in the "B"
|
---|
| 10 | ;;^UTILITY(U,$J,.84,3051,1,2,0)
|
---|
| 11 | ;;=index.
|
---|
| 12 | ;;^UTILITY(U,$J,.84,3051,2,0)
|
---|
| 13 | ;;=^^1^1^2931129^^^
|
---|
| 14 | ;;^UTILITY(U,$J,.84,3051,2,1,0)
|
---|
| 15 | ;;=Block |1| does not exist in the Block file.
|
---|
| 16 | ;;^UTILITY(U,$J,.84,3051,3,0)
|
---|
| 17 | ;;=^.845^1^1
|
---|
| 18 | ;;^UTILITY(U,$J,.84,3051,3,1,0)
|
---|
| 19 | ;;=1^Block number or name
|
---|
| 20 | ;;^UTILITY(U,$J,.84,3053,0)
|
---|
| 21 | ;;=3053^1^y^5
|
---|
| 22 | ;;^UTILITY(U,$J,.84,3053,1,0)
|
---|
| 23 | ;;=^^4^4^2931129^
|
---|
| 24 | ;;^UTILITY(U,$J,.84,3053,1,1,0)
|
---|
| 25 | ;;=The specified block was not found on the page. For example, it was not
|
---|
| 26 | ;;^UTILITY(U,$J,.84,3053,1,2,0)
|
---|
| 27 | ;;=found in the "AC" or "B" index in the block multiple of the page multiple
|
---|
| 28 | ;;^UTILITY(U,$J,.84,3053,1,3,0)
|
---|
| 29 | ;;=of the Form file, or the 0 node of the block in the block multiple is
|
---|
| 30 | ;;^UTILITY(U,$J,.84,3053,1,4,0)
|
---|
| 31 | ;;=missing.
|
---|
| 32 | ;;^UTILITY(U,$J,.84,3053,2,0)
|
---|
| 33 | ;;=^^1^1^2931129^^
|
---|
| 34 | ;;^UTILITY(U,$J,.84,3053,2,1,0)
|
---|
| 35 | ;;=Block |1| was not found on page |2|.
|
---|
| 36 | ;;^UTILITY(U,$J,.84,3053,3,0)
|
---|
| 37 | ;;=^.845^2^2
|
---|
| 38 | ;;^UTILITY(U,$J,.84,3053,3,1,0)
|
---|
| 39 | ;;=1^Block order, name, or number
|
---|
| 40 | ;;^UTILITY(U,$J,.84,3053,3,2,0)
|
---|
| 41 | ;;=2^Page number and/or name
|
---|
| 42 | ;;^UTILITY(U,$J,.84,3055,0)
|
---|
| 43 | ;;=3055^1^y^5
|
---|
| 44 | ;;^UTILITY(U,$J,.84,3055,1,0)
|
---|
| 45 | ;;=^^1^1^2931129^^^
|
---|
| 46 | ;;^UTILITY(U,$J,.84,3055,1,1,0)
|
---|
| 47 | ;;=There are no blocks defined on the page.
|
---|
| 48 | ;;^UTILITY(U,$J,.84,3055,2,0)
|
---|
| 49 | ;;=^^1^1^2931129^^^
|
---|
| 50 | ;;^UTILITY(U,$J,.84,3055,2,1,0)
|
---|
| 51 | ;;=There are no blocks defined on page |1|.
|
---|
| 52 | ;;^UTILITY(U,$J,.84,3055,3,0)
|
---|
| 53 | ;;=^.845^1^1
|
---|
| 54 | ;;^UTILITY(U,$J,.84,3055,3,1,0)
|
---|
| 55 | ;;=1^Page name and/or number
|
---|
| 56 | ;;^UTILITY(U,$J,.84,3071,0)
|
---|
| 57 | ;;=3071^1^y^5
|
---|
| 58 | ;;^UTILITY(U,$J,.84,3071,1,0)
|
---|
| 59 | ;;=^^1^1^2931129^^^
|
---|
| 60 | ;;^UTILITY(U,$J,.84,3071,1,1,0)
|
---|
| 61 | ;;=The specified block has no fields on it.
|
---|
| 62 | ;;^UTILITY(U,$J,.84,3071,2,0)
|
---|
| 63 | ;;=^^1^1^2931129^^
|
---|
| 64 | ;;^UTILITY(U,$J,.84,3071,2,1,0)
|
---|
| 65 | ;;=There are no fields defined on block |1|.
|
---|
| 66 | ;;^UTILITY(U,$J,.84,3071,3,0)
|
---|
| 67 | ;;=^.845^1^1
|
---|
| 68 | ;;^UTILITY(U,$J,.84,3071,3,1,0)
|
---|
| 69 | ;;=1^Block name
|
---|
| 70 | ;;^UTILITY(U,$J,.84,3072,0)
|
---|
| 71 | ;;=3072^1^y^5
|
---|
| 72 | ;;^UTILITY(U,$J,.84,3072,1,0)
|
---|
| 73 | ;;=^^1^1^2931129^
|
---|
| 74 | ;;^UTILITY(U,$J,.84,3072,1,1,0)
|
---|
| 75 | ;;=The specified field was not found on the block.
|
---|
| 76 | ;;^UTILITY(U,$J,.84,3072,2,0)
|
---|
| 77 | ;;=^^1^1^2931129^
|
---|
| 78 | ;;^UTILITY(U,$J,.84,3072,2,1,0)
|
---|
| 79 | ;;=Field |1| was not found on block |2|.
|
---|
| 80 | ;;^UTILITY(U,$J,.84,3072,3,0)
|
---|
| 81 | ;;=^.845^2^2
|
---|
| 82 | ;;^UTILITY(U,$J,.84,3072,3,1,0)
|
---|
| 83 | ;;=1^Field order, number, caption, or unique name
|
---|
| 84 | ;;^UTILITY(U,$J,.84,3072,3,2,0)
|
---|
| 85 | ;;=2^Block name
|
---|
| 86 | ;;^UTILITY(U,$J,.84,3081,0)
|
---|
| 87 | ;;=3081^1^^5
|
---|
| 88 | ;;^UTILITY(U,$J,.84,3081,1,0)
|
---|
| 89 | ;;=^^2^2^2931201^^
|
---|
| 90 | ;;^UTILITY(U,$J,.84,3081,1,1,0)
|
---|
| 91 | ;;=The field specified by FO(field) in the pointer link or computed expression
|
---|
| 92 | ;;^UTILITY(U,$J,.84,3081,1,2,0)
|
---|
| 93 | ;;=is not a form only field.
|
---|
| 94 | ;;^UTILITY(U,$J,.84,3081,2,0)
|
---|
| 95 | ;;=^^1^1^2931201^^
|
---|
| 96 | ;;^UTILITY(U,$J,.84,3081,2,1,0)
|
---|
| 97 | ;;=The specified field is not a form-only field.
|
---|
| 98 | ;;^UTILITY(U,$J,.84,3082,0)
|
---|
| 99 | ;;=3082^1^^5
|
---|
| 100 | ;;^UTILITY(U,$J,.84,3082,1,0)
|
---|
| 101 | ;;=^^3^3^2931203^
|
---|
| 102 | ;;^UTILITY(U,$J,.84,3082,1,1,0)
|
---|
| 103 | ;;=The field, block, and/or page is missing or invalid in the expression
|
---|
| 104 | ;;^UTILITY(U,$J,.84,3082,1,2,0)
|
---|
| 105 | ;;=FO(field,block,page), used in the pointer link, parent field, or computed
|
---|
| 106 | ;;^UTILITY(U,$J,.84,3082,1,3,0)
|
---|
| 107 | ;;=expression.
|
---|
| 108 | ;;^UTILITY(U,$J,.84,3082,2,0)
|
---|
| 109 | ;;=^^1^1^2931203^
|
---|
| 110 | ;;^UTILITY(U,$J,.84,3082,2,1,0)
|
---|
| 111 | ;;=Parameters are missing or invalid in an FO() expression.
|
---|
| 112 | ;;^UTILITY(U,$J,.84,3083,0)
|
---|
| 113 | ;;=3083^1^^5
|
---|
| 114 | ;;^UTILITY(U,$J,.84,3083,1,0)
|
---|
| 115 | ;;=^^1^1^2931203^^
|
---|
| 116 | ;;^UTILITY(U,$J,.84,3083,1,1,0)
|
---|
| 117 | ;;=The relational expression is incomplete.
|
---|
| 118 | ;;^UTILITY(U,$J,.84,3083,2,0)
|
---|
| 119 | ;;=^^1^1^2931203^^
|
---|
| 120 | ;;^UTILITY(U,$J,.84,3083,2,1,0)
|
---|
| 121 | ;;=The relational expression is incomplete.
|
---|
| 122 | ;;^UTILITY(U,$J,.84,3084,0)
|
---|
| 123 | ;;=3084^1^^5
|
---|
| 124 | ;;^UTILITY(U,$J,.84,3084,1,0)
|
---|
| 125 | ;;=^^3^3^2931203^^
|
---|
| 126 | ;;^UTILITY(U,$J,.84,3084,1,1,0)
|
---|
| 127 | ;;=In a computed expression, a form-only field should be referenced as
|
---|
| 128 | ;;^UTILITY(U,$J,.84,3084,1,2,0)
|
---|
| 129 | ;;={FO(field,block)} or {FO(field)}. The page parameter should not be
|
---|
| 130 | ;;^UTILITY(U,$J,.84,3084,1,3,0)
|
---|
| 131 | ;;=included.
|
---|
| 132 | ;;^UTILITY(U,$J,.84,3084,2,0)
|
---|
| 133 | ;;=^^1^1^2931203^^
|
---|
| 134 | ;;^UTILITY(U,$J,.84,3084,2,1,0)
|
---|
| 135 | ;;=The FO() expression should not contain a page parameter.
|
---|
| 136 | ;;^UTILITY(U,$J,.84,3085,0)
|
---|
| 137 | ;;=3085^1^^5
|
---|
| 138 | ;;^UTILITY(U,$J,.84,3085,1,0)
|
---|
| 139 | ;;=^^3^3^2931203^
|
---|
| 140 | ;;^UTILITY(U,$J,.84,3085,1,1,0)
|
---|
| 141 | ;;=In a computed expression, a form-only field should be referenced as
|
---|
| 142 | ;;^UTILITY(U,$J,.84,3085,1,2,0)
|
---|
| 143 | ;;={FO(field,block)} or {FO(field)}. The block parameter should be
|
---|
| 144 | ;;^UTILITY(U,$J,.84,3085,1,3,0)
|
---|
| 145 | ;;=either the block name or `block number. It should not be a block order.
|
---|
| 146 | ;;^UTILITY(U,$J,.84,3085,2,0)
|
---|
| 147 | ;;=^^1^1^2931203^^
|
---|
| 148 | ;;^UTILITY(U,$J,.84,3085,2,1,0)
|
---|
| 149 | ;;=The FO() expression should not use block order to specify a block.
|
---|
| 150 | ;;^UTILITY(U,$J,.84,3086,0)
|
---|
| 151 | ;;=3086^1^^5
|
---|
| 152 | ;;^UTILITY(U,$J,.84,3086,1,0)
|
---|
| 153 | ;;=^^2^2^2940708^^
|
---|
| 154 | ;;^UTILITY(U,$J,.84,3086,1,1,0)
|
---|
| 155 | ;;=Reject calls to PUT^DDSVAL which attempt to set the .01 field of a file to
|
---|
| 156 | ;;^UTILITY(U,$J,.84,3086,1,2,0)
|
---|
| 157 | ;;="" or "@".
|
---|
| 158 | ;;^UTILITY(U,$J,.84,3086,2,0)
|
---|
| 159 | ;;=^^1^1^2940708^^^
|
---|
| 160 | ;;^UTILITY(U,$J,.84,3086,2,1,0)
|
---|
| 161 | ;;=PUT^DDSVAL cannot be used to delete an entry.
|
---|
| 162 | ;;^UTILITY(U,$J,.84,3091,0)
|
---|
| 163 | ;;=3091^1^^5
|
---|
| 164 | ;;^UTILITY(U,$J,.84,3091,1,0)
|
---|
| 165 | ;;=^^1^1^2930722^
|
---|
| 166 | ;;^UTILITY(U,$J,.84,3091,1,1,0)
|
---|
| 167 | ;;=The data could not be filed.
|
---|
| 168 | ;;^UTILITY(U,$J,.84,3091,2,0)
|
---|
| 169 | ;;=^^1^1^2931202^^
|
---|
| 170 | ;;^UTILITY(U,$J,.84,3091,2,1,0)
|
---|
| 171 | ;;=THE DATA COULD NOT BE FILED.
|
---|
| 172 | ;;^UTILITY(U,$J,.84,3092,0)
|
---|
| 173 | ;;=3092^1^y^5
|
---|
| 174 | ;;^UTILITY(U,$J,.84,3092,1,0)
|
---|
| 175 | ;;=^^1^1^2940713^^^^
|
---|
| 176 | ;;^UTILITY(U,$J,.84,3092,1,1,0)
|
---|
| 177 | ;;=The given field is required and its current value is null.
|
---|
| 178 | ;;^UTILITY(U,$J,.84,3092,2,0)
|
---|
| 179 | ;;=^^1^1^2940713^^^
|
---|
| 180 | ;;^UTILITY(U,$J,.84,3092,2,1,0)
|
---|
| 181 | ;;=|1|, |2| is a required field |3|
|
---|
| 182 | ;;^UTILITY(U,$J,.84,3092,3,0)
|
---|
| 183 | ;;=^.845^3^3
|
---|
| 184 | ;;^UTILITY(U,$J,.84,3092,3,1,0)
|
---|
| 185 | ;;=1^Page name
|
---|
| 186 | ;;^UTILITY(U,$J,.84,3092,3,2,0)
|
---|
| 187 | ;;=2^Caption
|
---|
| 188 | ;;^UTILITY(U,$J,.84,3092,3,3,0)
|
---|
| 189 | ;;=3^Subrecord name in parentheses
|
---|
| 190 | ;;^UTILITY(U,$J,.84,7001,0)
|
---|
| 191 | ;;=7001^2^^5
|
---|
| 192 | ;;^UTILITY(U,$J,.84,7001,1,0)
|
---|
| 193 | ;;=^^1^1^2940314^^^
|
---|
| 194 | ;;^UTILITY(U,$J,.84,7001,1,1,0)
|
---|
| 195 | ;;=This is the general Yes/No Prompt
|
---|
| 196 | ;;^UTILITY(U,$J,.84,7001,2,0)
|
---|
| 197 | ;;=^^1^1^2940314^^^
|
---|
| 198 | ;;^UTILITY(U,$J,.84,7001,2,1,0)
|
---|
| 199 | ;;=Yes^No
|
---|
| 200 | ;;^UTILITY(U,$J,.84,7002,0)
|
---|
| 201 | ;;=7002^2^^5
|
---|
| 202 | ;;^UTILITY(U,$J,.84,7002,1,0)
|
---|
| 203 | ;;=^^1^1^2940314^^^
|
---|
| 204 | ;;^UTILITY(U,$J,.84,7002,1,1,0)
|
---|
| 205 | ;;=Insert/Replace Switch
|
---|
| 206 | ;;^UTILITY(U,$J,.84,7002,2,0)
|
---|
| 207 | ;;=^^1^1^2940314^^
|
---|
| 208 | ;;^UTILITY(U,$J,.84,7002,2,1,0)
|
---|
| 209 | ;;=Insert ^Replace
|
---|