DINIT006 ;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,308,2,0)
;;=^^1^1^2941018^
;;^UTILITY(U,$J,.84,308,2,1,0)
;;=The IENS '|IENS|' is syntactically incorrect.
;;^UTILITY(U,$J,.84,308,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,308,3,1,0)
;;=IENS^IENS.
;;^UTILITY(U,$J,.84,309,0)
;;=309^1^^5
;;^UTILITY(U,$J,.84,309,1,0)
;;=^^2^2^2931109^
;;^UTILITY(U,$J,.84,309,1,1,0)
;;=A multiple field is involved. Either the root of the multiple or the
;;^UTILITY(U,$J,.84,309,1,2,0)
;;=necessary entry numbers are missing.
;;^UTILITY(U,$J,.84,309,2,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,309,2,1,0)
;;=There is insufficient information to identify an entry in a subfile.
;;^UTILITY(U,$J,.84,310,0)
;;=310^1^y^5
;;^UTILITY(U,$J,.84,310,1,0)
;;=^^6^6^2940629^
;;^UTILITY(U,$J,.84,310,1,1,0)
;;=Some of the IENS subscripts in this FDA conflict with each other. For
;;^UTILITY(U,$J,.84,310,1,2,0)
;;=example, one IENS may use the sequence number ?1 while another uses +1.
;;^UTILITY(U,$J,.84,310,1,3,0)
;;=This would be illegal because the sequence number 1 is being used to
;;^UTILITY(U,$J,.84,310,1,4,0)
;;=represent two different operations. Consult your documentation for an
;;^UTILITY(U,$J,.84,310,1,5,0)
;;=explanation of the various conflicts possible. The IENS returned with this
;;^UTILITY(U,$J,.84,310,1,6,0)
;;=error happens to be one of the IENS values in conflict.
;;^UTILITY(U,$J,.84,310,2,0)
;;=^^1^1^2941018^
;;^UTILITY(U,$J,.84,310,2,1,0)
;;=The IENS '|IENS|' conflicts with the rest of the FDA.
;;^UTILITY(U,$J,.84,310,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,310,3,1,0)
;;=IENS^IENS.
;;^UTILITY(U,$J,.84,311,0)
;;=311^1^y^5
;;^UTILITY(U,$J,.84,311,1,0)
;;=^^3^3^2940629^
;;^UTILITY(U,$J,.84,311,1,1,0)
;;=Adding an entry to a file without including all required identifiers
;;^UTILITY(U,$J,.84,311,1,2,0)
;;=violates database integrity. The entry identified by this IENS lacks some
;;^UTILITY(U,$J,.84,311,1,3,0)
;;=of its required identifiers in the passed FDA.
;;^UTILITY(U,$J,.84,311,2,0)
;;=^^1^1^2941018^
;;^UTILITY(U,$J,.84,311,2,1,0)
;;=The new record '|IENS|' lacks some required identifiers.
;;^UTILITY(U,$J,.84,311,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,311,3,1,0)
;;=IENS^IENS.
;;^UTILITY(U,$J,.84,312,0)
;;=312^1^y
;;^UTILITY(U,$J,.84,312,1,0)
;;=^^2^2^2950317^
;;^UTILITY(U,$J,.84,312,1,1,0)
;;=All required identifiers must be present for a new entry to be filed.
;;^UTILITY(U,$J,.84,312,1,2,0)
;;=One or more of those fields is missing for the (sub)file.
;;^UTILITY(U,$J,.84,312,2,0)
;;=^^1^1^2950317^
;;^UTILITY(U,$J,.84,312,2,1,0)
;;=The list of fields is missing a required identifier for File #|FILE|.
;;^UTILITY(U,$J,.84,312,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,312,3,1,0)
;;=FILE^File or subfile #.
;;^UTILITY(U,$J,.84,313,0)
;;=313^1^^5
;;^UTILITY(U,$J,.84,313,1,0)
;;=^^2^2^2960306^
;;^UTILITY(U,$J,.84,313,1,1,0)
;;=The arrays that hold internal and external values must have different roots,
;;^UTILITY(U,$J,.84,313,1,2,0)
;;=but both FDAs have the same root.
;;^UTILITY(U,$J,.84,313,2,0)
;;=^^1^1^2960306^
;;^UTILITY(U,$J,.84,313,2,1,0)
;;=The FDA root for external values is the same as the one for internal values.
;;^UTILITY(U,$J,.84,330,0)
;;=330^1^y^5
;;^UTILITY(U,$J,.84,330,1,0)
;;=^^2^2^2941123^
;;^UTILITY(U,$J,.84,330,1,1,0)
;;=The value passed by the calling application should be a certain data type,
;;^UTILITY(U,$J,.84,330,1,2,0)
;;=but according to our checks it is not.
;;^UTILITY(U,$J,.84,330,2,0)
;;=^^1^1^2941123^
;;^UTILITY(U,$J,.84,330,2,1,0)
;;=The value '|1|' is not a valid |2|.
;;^UTILITY(U,$J,.84,330,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,330,3,1,0)
;;=1^Passed Value.
;;^UTILITY(U,$J,.84,330,3,2,0)
;;=2^Data Type.
;;^UTILITY(U,$J,.84,348,0)
;;=348^1^y^5
;;^UTILITY(U,$J,.84,348,1,0)
;;=^^2^2^2940214^
;;^UTILITY(U,$J,.84,348,1,1,0)
;;=The calling application passed us a variable pointer value. That value
;;^UTILITY(U,$J,.84,348,1,2,0)
;;=points to a file that does not exist, or that lacks a Header Node.
;;^UTILITY(U,$J,.84,348,2,0)
;;=^^2^2^2940214^
;;^UTILITY(U,$J,.84,348,2,1,0)
;;=The passed value '|1|' points to a file that does not exist or lacks a
;;^UTILITY(U,$J,.84,348,2,2,0)
;;=Header Node.
;;^UTILITY(U,$J,.84,348,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,348,3,1,0)
;;=1^Passed Value.
;;^UTILITY(U,$J,.84,349,0)
;;=349^2^y^5
;;^UTILITY(U,$J,.84,349,1,0)
;;=^^2^2^2940310^^^
;;^UTILITY(U,$J,.84,349,1,1,0)
;;=Text used by the Replace...With editor
;;^UTILITY(U,$J,.84,349,1,2,0)
;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
;;^UTILITY(U,$J,.84,349,2,0)
;;=^^1^1^2940310^^
;;^UTILITY(U,$J,.84,349,2,1,0)
;;= String too long by |1| character(s)!
;;^UTILITY(U,$J,.84,349,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,349,3,1,0)
;;=1^Number of characters over the limit.
;;^UTILITY(U,$J,.84,350,0)
;;=350^2^^5
;;^UTILITY(U,$J,.84,350,1,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,350,1,1,0)
;;=Message from the Replace...With editor.
;;^UTILITY(U,$J,.84,350,2,0)
;;=^^1^1^2940310^
;;^UTILITY(U,$J,.84,350,2,1,0)
;;= String too long! '^' to quit.
;;^UTILITY(U,$J,.84,351,0)
;;=351^1^y^5
;;^UTILITY(U,$J,.84,351,1,0)
;;=^^4^4^2941021^
;;^UTILITY(U,$J,.84,351,1,1,0)
;;=When passing an FDA to the Updater, any entries intended as Finding or
;;^UTILITY(U,$J,.84,351,1,2,0)
;;=LAYGO Finding nodes must include a .01 node that has the lookup value.
;;^UTILITY(U,$J,.84,351,1,3,0)
;;=This value need not be a legitimate .01 field value, but it must be a
;;^UTILITY(U,$J,.84,351,1,4,0)
;;=valid and unambiguous lookup value for the file.
;;^UTILITY(U,$J,.84,351,2,0)
;;=^^1^1^2941021^
;;^UTILITY(U,$J,.84,351,2,1,0)
;;=FDA nodes for lookup '|IENS|' omit a .01 node with a lookup value.
;;^UTILITY(U,$J,.84,351,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,351,3,1,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,351,3,2,0)
;;=IENS^IENS Subscript for Finding or LAYGO Finding node.
;;^UTILITY(U,$J,.84,352,0)
;;=352^1^y^5
;;^UTILITY(U,$J,.84,352,1,0)
;;=^^3^3^2980415^
;;^UTILITY(U,$J,.84,352,1,1,0)
;;=When passing an FDA to the Updater, any entries intended as LAYGO or LAYGO
;;^UTILITY(U,$J,.84,352,1,2,0)
;;=Findings nodes must include a .01 node. Every new entry must have a value
;;^UTILITY(U,$J,.84,352,1,3,0)
;;=for the .01 field.
;;^UTILITY(U,$J,.84,352,2,0)
;;=^^1^1^2980415^
;;^UTILITY(U,$J,.84,352,2,1,0)
;;=The new record '|IENS|' for file #|FILE| lacks a .01 field.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT006 7214 printed Nov 22, 2024@17:59:31 Page 2
DINIT006 ;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,308,2,0)
+2 ;;=^^1^1^2941018^
+3 ;;^UTILITY(U,$J,.84,308,2,1,0)
+4 ;;=The IENS '|IENS|' is syntactically incorrect.
+5 ;;^UTILITY(U,$J,.84,308,3,0)
+6 ;;=^.845^1^1
+7 ;;^UTILITY(U,$J,.84,308,3,1,0)
+8 ;;=IENS^IENS.
+9 ;;^UTILITY(U,$J,.84,309,0)
+10 ;;=309^1^^5
+11 ;;^UTILITY(U,$J,.84,309,1,0)
+12 ;;=^^2^2^2931109^
+13 ;;^UTILITY(U,$J,.84,309,1,1,0)
+14 ;;=A multiple field is involved. Either the root of the multiple or the
+15 ;;^UTILITY(U,$J,.84,309,1,2,0)
+16 ;;=necessary entry numbers are missing.
+17 ;;^UTILITY(U,$J,.84,309,2,0)
+18 ;;=^^1^1^2931109^
+19 ;;^UTILITY(U,$J,.84,309,2,1,0)
+20 ;;=There is insufficient information to identify an entry in a subfile.
+21 ;;^UTILITY(U,$J,.84,310,0)
+22 ;;=310^1^y^5
+23 ;;^UTILITY(U,$J,.84,310,1,0)
+24 ;;=^^6^6^2940629^
+25 ;;^UTILITY(U,$J,.84,310,1,1,0)
+26 ;;=Some of the IENS subscripts in this FDA conflict with each other. For
+27 ;;^UTILITY(U,$J,.84,310,1,2,0)
+28 ;;=example, one IENS may use the sequence number ?1 while another uses +1.
+29 ;;^UTILITY(U,$J,.84,310,1,3,0)
+30 ;;=This would be illegal because the sequence number 1 is being used to
+31 ;;^UTILITY(U,$J,.84,310,1,4,0)
+32 ;;=represent two different operations. Consult your documentation for an
+33 ;;^UTILITY(U,$J,.84,310,1,5,0)
+34 ;;=explanation of the various conflicts possible. The IENS returned with this
+35 ;;^UTILITY(U,$J,.84,310,1,6,0)
+36 ;;=error happens to be one of the IENS values in conflict.
+37 ;;^UTILITY(U,$J,.84,310,2,0)
+38 ;;=^^1^1^2941018^
+39 ;;^UTILITY(U,$J,.84,310,2,1,0)
+40 ;;=The IENS '|IENS|' conflicts with the rest of the FDA.
+41 ;;^UTILITY(U,$J,.84,310,3,0)
+42 ;;=^.845^1^1
+43 ;;^UTILITY(U,$J,.84,310,3,1,0)
+44 ;;=IENS^IENS.
+45 ;;^UTILITY(U,$J,.84,311,0)
+46 ;;=311^1^y^5
+47 ;;^UTILITY(U,$J,.84,311,1,0)
+48 ;;=^^3^3^2940629^
+49 ;;^UTILITY(U,$J,.84,311,1,1,0)
+50 ;;=Adding an entry to a file without including all required identifiers
+51 ;;^UTILITY(U,$J,.84,311,1,2,0)
+52 ;;=violates database integrity. The entry identified by this IENS lacks some
+53 ;;^UTILITY(U,$J,.84,311,1,3,0)
+54 ;;=of its required identifiers in the passed FDA.
+55 ;;^UTILITY(U,$J,.84,311,2,0)
+56 ;;=^^1^1^2941018^
+57 ;;^UTILITY(U,$J,.84,311,2,1,0)
+58 ;;=The new record '|IENS|' lacks some required identifiers.
+59 ;;^UTILITY(U,$J,.84,311,3,0)
+60 ;;=^.845^1^1
+61 ;;^UTILITY(U,$J,.84,311,3,1,0)
+62 ;;=IENS^IENS.
+63 ;;^UTILITY(U,$J,.84,312,0)
+64 ;;=312^1^y
+65 ;;^UTILITY(U,$J,.84,312,1,0)
+66 ;;=^^2^2^2950317^
+67 ;;^UTILITY(U,$J,.84,312,1,1,0)
+68 ;;=All required identifiers must be present for a new entry to be filed.
+69 ;;^UTILITY(U,$J,.84,312,1,2,0)
+70 ;;=One or more of those fields is missing for the (sub)file.
+71 ;;^UTILITY(U,$J,.84,312,2,0)
+72 ;;=^^1^1^2950317^
+73 ;;^UTILITY(U,$J,.84,312,2,1,0)
+74 ;;=The list of fields is missing a required identifier for File #|FILE|.
+75 ;;^UTILITY(U,$J,.84,312,3,0)
+76 ;;=^.845^1^1
+77 ;;^UTILITY(U,$J,.84,312,3,1,0)
+78 ;;=FILE^File or subfile #.
+79 ;;^UTILITY(U,$J,.84,313,0)
+80 ;;=313^1^^5
+81 ;;^UTILITY(U,$J,.84,313,1,0)
+82 ;;=^^2^2^2960306^
+83 ;;^UTILITY(U,$J,.84,313,1,1,0)
+84 ;;=The arrays that hold internal and external values must have different roots,
+85 ;;^UTILITY(U,$J,.84,313,1,2,0)
+86 ;;=but both FDAs have the same root.
+87 ;;^UTILITY(U,$J,.84,313,2,0)
+88 ;;=^^1^1^2960306^
+89 ;;^UTILITY(U,$J,.84,313,2,1,0)
+90 ;;=The FDA root for external values is the same as the one for internal values.
+91 ;;^UTILITY(U,$J,.84,330,0)
+92 ;;=330^1^y^5
+93 ;;^UTILITY(U,$J,.84,330,1,0)
+94 ;;=^^2^2^2941123^
+95 ;;^UTILITY(U,$J,.84,330,1,1,0)
+96 ;;=The value passed by the calling application should be a certain data type,
+97 ;;^UTILITY(U,$J,.84,330,1,2,0)
+98 ;;=but according to our checks it is not.
+99 ;;^UTILITY(U,$J,.84,330,2,0)
+100 ;;=^^1^1^2941123^
+101 ;;^UTILITY(U,$J,.84,330,2,1,0)
+102 ;;=The value '|1|' is not a valid |2|.
+103 ;;^UTILITY(U,$J,.84,330,3,0)
+104 ;;=^.845^2^2
+105 ;;^UTILITY(U,$J,.84,330,3,1,0)
+106 ;;=1^Passed Value.
+107 ;;^UTILITY(U,$J,.84,330,3,2,0)
+108 ;;=2^Data Type.
+109 ;;^UTILITY(U,$J,.84,348,0)
+110 ;;=348^1^y^5
+111 ;;^UTILITY(U,$J,.84,348,1,0)
+112 ;;=^^2^2^2940214^
+113 ;;^UTILITY(U,$J,.84,348,1,1,0)
+114 ;;=The calling application passed us a variable pointer value. That value
+115 ;;^UTILITY(U,$J,.84,348,1,2,0)
+116 ;;=points to a file that does not exist, or that lacks a Header Node.
+117 ;;^UTILITY(U,$J,.84,348,2,0)
+118 ;;=^^2^2^2940214^
+119 ;;^UTILITY(U,$J,.84,348,2,1,0)
+120 ;;=The passed value '|1|' points to a file that does not exist or lacks a
+121 ;;^UTILITY(U,$J,.84,348,2,2,0)
+122 ;;=Header Node.
+123 ;;^UTILITY(U,$J,.84,348,3,0)
+124 ;;=^.845^1^1
+125 ;;^UTILITY(U,$J,.84,348,3,1,0)
+126 ;;=1^Passed Value.
+127 ;;^UTILITY(U,$J,.84,349,0)
+128 ;;=349^2^y^5
+129 ;;^UTILITY(U,$J,.84,349,1,0)
+130 ;;=^^2^2^2940310^^^
+131 ;;^UTILITY(U,$J,.84,349,1,1,0)
+132 ;;=Text used by the Replace...With editor
+133 ;;^UTILITY(U,$J,.84,349,1,2,0)
+134 ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
+135 ;;^UTILITY(U,$J,.84,349,2,0)
+136 ;;=^^1^1^2940310^^
+137 ;;^UTILITY(U,$J,.84,349,2,1,0)
+138 ;;= String too long by |1| character(s)!
+139 ;;^UTILITY(U,$J,.84,349,3,0)
+140 ;;=^.845^1^1
+141 ;;^UTILITY(U,$J,.84,349,3,1,0)
+142 ;;=1^Number of characters over the limit.
+143 ;;^UTILITY(U,$J,.84,350,0)
+144 ;;=350^2^^5
+145 ;;^UTILITY(U,$J,.84,350,1,0)
+146 ;;=^^1^1^2940310^
+147 ;;^UTILITY(U,$J,.84,350,1,1,0)
+148 ;;=Message from the Replace...With editor.
+149 ;;^UTILITY(U,$J,.84,350,2,0)
+150 ;;=^^1^1^2940310^
+151 ;;^UTILITY(U,$J,.84,350,2,1,0)
+152 ;;= String too long! '^' to quit.
+153 ;;^UTILITY(U,$J,.84,351,0)
+154 ;;=351^1^y^5
+155 ;;^UTILITY(U,$J,.84,351,1,0)
+156 ;;=^^4^4^2941021^
+157 ;;^UTILITY(U,$J,.84,351,1,1,0)
+158 ;;=When passing an FDA to the Updater, any entries intended as Finding or
+159 ;;^UTILITY(U,$J,.84,351,1,2,0)
+160 ;;=LAYGO Finding nodes must include a .01 node that has the lookup value.
+161 ;;^UTILITY(U,$J,.84,351,1,3,0)
+162 ;;=This value need not be a legitimate .01 field value, but it must be a
+163 ;;^UTILITY(U,$J,.84,351,1,4,0)
+164 ;;=valid and unambiguous lookup value for the file.
+165 ;;^UTILITY(U,$J,.84,351,2,0)
+166 ;;=^^1^1^2941021^
+167 ;;^UTILITY(U,$J,.84,351,2,1,0)
+168 ;;=FDA nodes for lookup '|IENS|' omit a .01 node with a lookup value.
+169 ;;^UTILITY(U,$J,.84,351,3,0)
+170 ;;=^.845^2^2
+171 ;;^UTILITY(U,$J,.84,351,3,1,0)
+172 ;;=FILE^File #.
+173 ;;^UTILITY(U,$J,.84,351,3,2,0)
+174 ;;=IENS^IENS Subscript for Finding or LAYGO Finding node.
+175 ;;^UTILITY(U,$J,.84,352,0)
+176 ;;=352^1^y^5
+177 ;;^UTILITY(U,$J,.84,352,1,0)
+178 ;;=^^3^3^2980415^
+179 ;;^UTILITY(U,$J,.84,352,1,1,0)
+180 ;;=When passing an FDA to the Updater, any entries intended as LAYGO or LAYGO
+181 ;;^UTILITY(U,$J,.84,352,1,2,0)
+182 ;;=Findings nodes must include a .01 node. Every new entry must have a value
+183 ;;^UTILITY(U,$J,.84,352,1,3,0)
+184 ;;=for the .01 field.
+185 ;;^UTILITY(U,$J,.84,352,2,0)
+186 ;;=^^1^1^2980415^
+187 ;;^UTILITY(U,$J,.84,352,2,1,0)
+188 ;;=The new record '|IENS|' for file #|FILE| lacks a .01 field.
