DINIT00C ;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,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.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00C 7176 printed Apr 09, 2024@21:46:53 Page 2
DINIT00C ;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,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.
