DINIT006.m

DINIT006 ; 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,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.

DINIT006  ; 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,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.