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