Routine: DINIT00C

DINIT00C ; 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,1701,1,1,0)

 ;;=Transport structure does not contain SPECIFIC ELEMENT.

 ;;^UTILITY(U,$J,.84,1701,2,0)

 ;;=^^1^1^2940912^^^

 ;;^UTILITY(U,$J,.84,1701,2,1,0)

 ;;=Transport structure does not contain |1|.

 ;;^UTILITY(U,$J,.84,1701,3,0)

 ;;=^.845^1^1

 ;;^UTILITY(U,$J,.84,1701,3,1,0)

 ;;=1^Describes missing element in transport structure.

 ;;^UTILITY(U,$J,.84,1805,0)

 ;;=1805^1^

 ;;^UTILITY(U,$J,.84,1805,1,0)

 ;;=^^2^2^2950317^

 ;;^UTILITY(U,$J,.84,1805,1,1,0)

 ;;=For some reason a record or a field in a record could not be filed.  The cause

 ;;^UTILITY(U,$J,.84,1805,1,2,0)

 ;;=of the error should be present in another message.

 ;;^UTILITY(U,$J,.84,1805,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1805,2,1,0)

 ;;=An error occurred during the actual filing of data into the FileMan database.

 ;;^UTILITY(U,$J,.84,1810,0)

 ;;=1810^1^y

 ;;^UTILITY(U,$J,.84,1810,1,0)

 ;;=^^3^3^2950317^

 ;;^UTILITY(U,$J,.84,1810,1,1,0)

 ;;=The attempt to move data from a host file into the MUMPS environment

 ;;^UTILITY(U,$J,.84,1810,1,2,0)

 ;;=failed.  A possible cause is that the host file does not exist in the

 ;;^UTILITY(U,$J,.84,1810,1,3,0)

 ;;=path specified.

 ;;^UTILITY(U,$J,.84,1810,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1810,2,1,0)

 ;;=The data from host file '|1|' could not be moved into a FileMan file.

 ;;^UTILITY(U,$J,.84,1810,3,0)

 ;;=^.845^1^1

 ;;^UTILITY(U,$J,.84,1810,3,1,0)

 ;;=1^Host file name.

 ;;^UTILITY(U,$J,.84,1812,0)

 ;;=1812^1^y

 ;;^UTILITY(U,$J,.84,1812,1,0)

 ;;=^^3^3^2950317^

 ;;^UTILITY(U,$J,.84,1812,1,1,0)

 ;;=A host file was located; however, no data was present in it.  This error

 ;;^UTILITY(U,$J,.84,1812,1,2,0)

 ;;=will also occur if the only "data" is the designation of file and fields

 ;;^UTILITY(U,$J,.84,1812,1,3,0)

 ;;=with no actual data present to file.

 ;;^UTILITY(U,$J,.84,1812,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1812,2,1,0)

 ;;=The host file, |1|, contains no data to import.

 ;;^UTILITY(U,$J,.84,1812,3,0)

 ;;=^.845^1^1

 ;;^UTILITY(U,$J,.84,1812,3,1,0)

 ;;=1^Host file name.

 ;;^UTILITY(U,$J,.84,1820,0)

 ;;=1820^1^y^5

 ;;^UTILITY(U,$J,.84,1820,1,0)

 ;;=^^2^2^2950317^

 ;;^UTILITY(U,$J,.84,1820,1,1,0)

 ;;=The foreign format name that was passed could not be found in the Foreign Format

 ;;^UTILITY(U,$J,.84,1820,1,2,0)

 ;;=file.

 ;;^UTILITY(U,$J,.84,1820,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1820,2,1,0)

 ;;=There is no Foreign Format named '|1|'.

 ;;^UTILITY(U,$J,.84,1820,3,0)

 ;;=^.845^1^1

 ;;^UTILITY(U,$J,.84,1820,3,1,0)

 ;;=1^Foreign format.

 ;;^UTILITY(U,$J,.84,1821,0)

 ;;=1821^1^

 ;;^UTILITY(U,$J,.84,1821,1,0)

 ;;=^^3^3^2960913^^^^

 ;;^UTILITY(U,$J,.84,1821,1,1,0)

 ;;=The format of the imported data must either be delimited by a specified

 ;;^UTILITY(U,$J,.84,1821,1,2,0)

 ;;=character or be fixed length.  Either no format is specified

 ;;^UTILITY(U,$J,.84,1821,1,3,0)

 ;;=or it is both fixed length and delimited or it is neither.

 ;;^UTILITY(U,$J,.84,1821,2,0)

 ;;=^^2^2^2960913^^^^

 ;;^UTILITY(U,$J,.84,1821,2,1,0)

 ;;=The format of imported data must be fixed length or have a delimiter.

 ;;^UTILITY(U,$J,.84,1821,2,2,0)

 ;;=You may also specify a Foreign Format.

 ;;^UTILITY(U,$J,.84,1822,0)

 ;;=1822^1^

 ;;^UTILITY(U,$J,.84,1822,1,0)

 ;;=^^2^2^2960719^^

 ;;^UTILITY(U,$J,.84,1822,1,1,0)

 ;;=For a fixed length import, the length data for a field is impossible.  For

 ;;^UTILITY(U,$J,.84,1822,1,2,0)

 ;;=example, the length is zero or no length is given.

 ;;^UTILITY(U,$J,.84,1822,2,0)

 ;;=^^1^1^2960719^^

 ;;^UTILITY(U,$J,.84,1822,2,1,0)

 ;;=The length of a field is missing or incorrect.

 ;;^UTILITY(U,$J,.84,1831,0)

 ;;=1831^1^^5

 ;;^UTILITY(U,$J,.84,1831,1,0)

 ;;=^^6^6^2960919^

 ;;^UTILITY(U,$J,.84,1831,1,1,0)

 ;;=The Import Tool was expecting to find File and Field specifications

 ;;^UTILITY(U,$J,.84,1831,1,2,0)

 ;;=in the host file containing import data.  However, either the File

 ;;^UTILITY(U,$J,.84,1831,1,3,0)

 ;;=is not specified or the format of the specification is incorrect.

 ;;^UTILITY(U,$J,.84,1831,1,4,0)

 ;;=The first line of the host file should look exactly like this:

 ;;^UTILITY(U,$J,.84,1831,1,5,0)

;;=

 ;;^UTILITY(U,$J,.84,1831,1,6,0)

 ;;=FILE=filename

 ;;^UTILITY(U,$J,.84,1831,2,0)

 ;;=^^1^1^2960919^

 ;;^UTILITY(U,$J,.84,1831,2,1,0)

 ;;=The file name is either missing from the host file or incorrectly specified.

 ;;^UTILITY(U,$J,.84,1833,0)

 ;;=1833^1^

 ;;^UTILITY(U,$J,.84,1833,1,0)

 ;;=^^3^3^2950317^

 ;;^UTILITY(U,$J,.84,1833,1,1,0)

 ;;=The 'F' flag for the Import call means that the file and field information

 ;;^UTILITY(U,$J,.84,1833,1,2,0)

 ;;=is in the host file.  However, the file and/or fields parameter contained

 ;;^UTILITY(U,$J,.84,1833,1,3,0)

 ;;=data.  This conflicts with the 'F' flag.

 ;;^UTILITY(U,$J,.84,1833,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1833,2,1,0)

 ;;=The 'F' flag conflicts with the File or Fields parameter.

 ;;^UTILITY(U,$J,.84,1841,0)

 ;;=1841^1^

 ;;^UTILITY(U,$J,.84,1841,1,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1841,1,1,0)

 ;;=Only multiple fields can be in the path to a field.

 ;;^UTILITY(U,$J,.84,1841,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1841,2,1,0)

 ;;=A field other than a multiple is in the 'path'.

 ;;^UTILITY(U,$J,.84,1842,0)

 ;;=1842^1^

 ;;^UTILITY(U,$J,.84,1842,1,0)

 ;;=^^2^2^2950317^

 ;;^UTILITY(U,$J,.84,1842,1,1,0)

 ;;=The last field in a string of colon-delimited fields must be a field

 ;;^UTILITY(U,$J,.84,1842,1,2,0)

 ;;=containing data, not a multiple field.

 ;;^UTILITY(U,$J,.84,1842,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1842,2,1,0)

 ;;=A multiple field is shown as the last field is a string of fields.

 ;;^UTILITY(U,$J,.84,1844,0)

 ;;=1844^1^

 ;;^UTILITY(U,$J,.84,1844,1,0)

 ;;=^^2^2^2950317^

 ;;^UTILITY(U,$J,.84,1844,1,1,0)

 ;;=There must be at least one field in every subfile before moving down

 ;;^UTILITY(U,$J,.84,1844,1,2,0)

 ;;=into a lower level subfile.

 ;;^UTILITY(U,$J,.84,1844,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1844,2,1,0)

 ;;=A subfile level was skipped without specifying any fields in it.

 ;;^UTILITY(U,$J,.84,1845,0)

 ;;=1845^1^

 ;;^UTILITY(U,$J,.84,1845,1,0)

 ;;=^^2^2^2950317^

 ;;^UTILITY(U,$J,.84,1845,1,1,0)

 ;;=A field may only appear once in the designated fields for a particular

 ;;^UTILITY(U,$J,.84,1845,1,2,0)

 ;;=file or subfile.

 ;;^UTILITY(U,$J,.84,1845,2,0)

 ;;=^^1^1^2950317^

 ;;^UTILITY(U,$J,.84,1845,2,1,0)

 ;;=The same field appears twice in the list of fields for a (sub)file.

DINIT00C  ; 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,1701,1,1,0)

 +2       ;;=Transport structure does not contain SPECIFIC ELEMENT.

 +3       ;;^UTILITY(U,$J,.84,1701,2,0)

 +4       ;;=^^1^1^2940912^^^

 +5       ;;^UTILITY(U,$J,.84,1701,2,1,0)

 +6       ;;=Transport structure does not contain |1|.

 +7       ;;^UTILITY(U,$J,.84,1701,3,0)

 +8       ;;=^.845^1^1

 +9       ;;^UTILITY(U,$J,.84,1701,3,1,0)

 +10      ;;=1^Describes missing element in transport structure.

 +11      ;;^UTILITY(U,$J,.84,1805,0)

 +12      ;;=1805^1^

 +13      ;;^UTILITY(U,$J,.84,1805,1,0)

 +14      ;;=^^2^2^2950317^

 +15      ;;^UTILITY(U,$J,.84,1805,1,1,0)

 +16      ;;=For some reason a record or a field in a record could not be filed.  The cause

 +17      ;;^UTILITY(U,$J,.84,1805,1,2,0)

 +18      ;;=of the error should be present in another message.

 +19      ;;^UTILITY(U,$J,.84,1805,2,0)

 +20      ;;=^^1^1^2950317^

 +21      ;;^UTILITY(U,$J,.84,1805,2,1,0)

 +22      ;;=An error occurred during the actual filing of data into the FileMan database.

 +23      ;;^UTILITY(U,$J,.84,1810,0)

 +24      ;;=1810^1^y

 +25      ;;^UTILITY(U,$J,.84,1810,1,0)

 +26      ;;=^^3^3^2950317^

 +27      ;;^UTILITY(U,$J,.84,1810,1,1,0)

 +28      ;;=The attempt to move data from a host file into the MUMPS environment

 +29      ;;^UTILITY(U,$J,.84,1810,1,2,0)

 +30      ;;=failed.  A possible cause is that the host file does not exist in the

 +31      ;;^UTILITY(U,$J,.84,1810,1,3,0)

 +32      ;;=path specified.

 +33      ;;^UTILITY(U,$J,.84,1810,2,0)

 +34      ;;=^^1^1^2950317^

 +35      ;;^UTILITY(U,$J,.84,1810,2,1,0)

 +36      ;;=The data from host file '|1|' could not be moved into a FileMan file.

 +37      ;;^UTILITY(U,$J,.84,1810,3,0)

 +38      ;;=^.845^1^1

 +39      ;;^UTILITY(U,$J,.84,1810,3,1,0)

 +40      ;;=1^Host file name.

 +41      ;;^UTILITY(U,$J,.84,1812,0)

 +42      ;;=1812^1^y

 +43      ;;^UTILITY(U,$J,.84,1812,1,0)

 +44      ;;=^^3^3^2950317^

 +45      ;;^UTILITY(U,$J,.84,1812,1,1,0)

 +46      ;;=A host file was located; however, no data was present in it.  This error

 +47      ;;^UTILITY(U,$J,.84,1812,1,2,0)

 +48      ;;=will also occur if the only "data" is the designation of file and fields

 +49      ;;^UTILITY(U,$J,.84,1812,1,3,0)

 +50      ;;=with no actual data present to file.

 +51      ;;^UTILITY(U,$J,.84,1812,2,0)

 +52      ;;=^^1^1^2950317^

 +53      ;;^UTILITY(U,$J,.84,1812,2,1,0)

 +54      ;;=The host file, |1|, contains no data to import.

 +55      ;;^UTILITY(U,$J,.84,1812,3,0)

 +56      ;;=^.845^1^1

 +57      ;;^UTILITY(U,$J,.84,1812,3,1,0)

 +58      ;;=1^Host file name.

 +59      ;;^UTILITY(U,$J,.84,1820,0)

 +60      ;;=1820^1^y^5

 +61      ;;^UTILITY(U,$J,.84,1820,1,0)

 +62      ;;=^^2^2^2950317^

 +63      ;;^UTILITY(U,$J,.84,1820,1,1,0)

 +64      ;;=The foreign format name that was passed could not be found in the Foreign Format

 +65      ;;^UTILITY(U,$J,.84,1820,1,2,0)

 +66      ;;=file.

 +67      ;;^UTILITY(U,$J,.84,1820,2,0)

 +68      ;;=^^1^1^2950317^

 +69      ;;^UTILITY(U,$J,.84,1820,2,1,0)

 +70      ;;=There is no Foreign Format named '|1|'.

 +71      ;;^UTILITY(U,$J,.84,1820,3,0)

 +72      ;;=^.845^1^1

 +73      ;;^UTILITY(U,$J,.84,1820,3,1,0)

 +74      ;;=1^Foreign format.

 +75      ;;^UTILITY(U,$J,.84,1821,0)

 +76      ;;=1821^1^

 +77      ;;^UTILITY(U,$J,.84,1821,1,0)

 +78      ;;=^^3^3^2960913^^^^

 +79      ;;^UTILITY(U,$J,.84,1821,1,1,0)

 +80      ;;=The format of the imported data must either be delimited by a specified

 +81      ;;^UTILITY(U,$J,.84,1821,1,2,0)

 +82      ;;=character or be fixed length.  Either no format is specified

 +83      ;;^UTILITY(U,$J,.84,1821,1,3,0)

 +84      ;;=or it is both fixed length and delimited or it is neither.

 +85      ;;^UTILITY(U,$J,.84,1821,2,0)

 +86      ;;=^^2^2^2960913^^^^

 +87      ;;^UTILITY(U,$J,.84,1821,2,1,0)

 +88      ;;=The format of imported data must be fixed length or have a delimiter.

 +89      ;;^UTILITY(U,$J,.84,1821,2,2,0)

 +90      ;;=You may also specify a Foreign Format.

 +91      ;;^UTILITY(U,$J,.84,1822,0)

 +92      ;;=1822^1^

 +93      ;;^UTILITY(U,$J,.84,1822,1,0)

 +94      ;;=^^2^2^2960719^^

 +95      ;;^UTILITY(U,$J,.84,1822,1,1,0)

 +96      ;;=For a fixed length import, the length data for a field is impossible.  For

 +97      ;;^UTILITY(U,$J,.84,1822,1,2,0)

 +98      ;;=example, the length is zero or no length is given.

 +99      ;;^UTILITY(U,$J,.84,1822,2,0)

 +100     ;;=^^1^1^2960719^^

 +101     ;;^UTILITY(U,$J,.84,1822,2,1,0)

 +102     ;;=The length of a field is missing or incorrect.

 +103     ;;^UTILITY(U,$J,.84,1831,0)

 +104     ;;=1831^1^^5

 +105     ;;^UTILITY(U,$J,.84,1831,1,0)

 +106     ;;=^^6^6^2960919^

 +107     ;;^UTILITY(U,$J,.84,1831,1,1,0)

 +108     ;;=The Import Tool was expecting to find File and Field specifications

 +109     ;;^UTILITY(U,$J,.84,1831,1,2,0)

 +110     ;;=in the host file containing import data.  However, either the File

 +111     ;;^UTILITY(U,$J,.84,1831,1,3,0)

 +112     ;;=is not specified or the format of the specification is incorrect.

 +113     ;;^UTILITY(U,$J,.84,1831,1,4,0)

 +114     ;;=The first line of the host file should look exactly like this:

 +115     ;;^UTILITY(U,$J,.84,1831,1,5,0)

 +116     ;;=

 +117     ;;^UTILITY(U,$J,.84,1831,1,6,0)

 +118     ;;=FILE=filename

 +119     ;;^UTILITY(U,$J,.84,1831,2,0)

 +120     ;;=^^1^1^2960919^

 +121     ;;^UTILITY(U,$J,.84,1831,2,1,0)

 +122     ;;=The file name is either missing from the host file or incorrectly specified.

 +123     ;;^UTILITY(U,$J,.84,1833,0)

 +124     ;;=1833^1^

 +125     ;;^UTILITY(U,$J,.84,1833,1,0)

 +126     ;;=^^3^3^2950317^

 +127     ;;^UTILITY(U,$J,.84,1833,1,1,0)

 +128     ;;=The 'F' flag for the Import call means that the file and field information

 +129     ;;^UTILITY(U,$J,.84,1833,1,2,0)

 +130     ;;=is in the host file.  However, the file and/or fields parameter contained

 +131     ;;^UTILITY(U,$J,.84,1833,1,3,0)

 +132     ;;=data.  This conflicts with the 'F' flag.

 +133     ;;^UTILITY(U,$J,.84,1833,2,0)

 +134     ;;=^^1^1^2950317^

 +135     ;;^UTILITY(U,$J,.84,1833,2,1,0)

 +136     ;;=The 'F' flag conflicts with the File or Fields parameter.

 +137     ;;^UTILITY(U,$J,.84,1841,0)

 +138     ;;=1841^1^

 +139     ;;^UTILITY(U,$J,.84,1841,1,0)

 +140     ;;=^^1^1^2950317^

 +141     ;;^UTILITY(U,$J,.84,1841,1,1,0)

 +142     ;;=Only multiple fields can be in the path to a field.

 +143     ;;^UTILITY(U,$J,.84,1841,2,0)

 +144     ;;=^^1^1^2950317^

 +145     ;;^UTILITY(U,$J,.84,1841,2,1,0)

 +146     ;;=A field other than a multiple is in the 'path'.

 +147     ;;^UTILITY(U,$J,.84,1842,0)

 +148     ;;=1842^1^

 +149     ;;^UTILITY(U,$J,.84,1842,1,0)

 +150     ;;=^^2^2^2950317^

 +151     ;;^UTILITY(U,$J,.84,1842,1,1,0)

 +152     ;;=The last field in a string of colon-delimited fields must be a field

 +153     ;;^UTILITY(U,$J,.84,1842,1,2,0)

 +154     ;;=containing data, not a multiple field.

 +155     ;;^UTILITY(U,$J,.84,1842,2,0)

 +156     ;;=^^1^1^2950317^

 +157     ;;^UTILITY(U,$J,.84,1842,2,1,0)

 +158     ;;=A multiple field is shown as the last field is a string of fields.

 +159     ;;^UTILITY(U,$J,.84,1844,0)

 +160     ;;=1844^1^

 +161     ;;^UTILITY(U,$J,.84,1844,1,0)

 +162     ;;=^^2^2^2950317^

 +163     ;;^UTILITY(U,$J,.84,1844,1,1,0)

 +164     ;;=There must be at least one field in every subfile before moving down

 +165     ;;^UTILITY(U,$J,.84,1844,1,2,0)

 +166     ;;=into a lower level subfile.

 +167     ;;^UTILITY(U,$J,.84,1844,2,0)

 +168     ;;=^^1^1^2950317^

 +169     ;;^UTILITY(U,$J,.84,1844,2,1,0)

 +170     ;;=A subfile level was skipped without specifying any fields in it.

 +171     ;;^UTILITY(U,$J,.84,1845,0)

 +172     ;;=1845^1^

 +173     ;;^UTILITY(U,$J,.84,1845,1,0)

 +174     ;;=^^2^2^2950317^

 +175     ;;^UTILITY(U,$J,.84,1845,1,1,0)

 +176     ;;=A field may only appear once in the designated fields for a particular

 +177     ;;^UTILITY(U,$J,.84,1845,1,2,0)

 +178     ;;=file or subfile.

 +179     ;;^UTILITY(U,$J,.84,1845,2,0)

 +180     ;;=^^1^1^2950317^

 +181     ;;^UTILITY(U,$J,.84,1845,2,1,0)

 +182     ;;=The same field appears twice in the list of fields for a (sub)file.

DINIT00C.m