DINIT00A ; 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,720,1,2,0)
;;=LAYGO is not allowed.
;;^UTILITY(U,$J,.84,720,2,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,720,2,1,0)
;;=The value cannot be found in the pointed-to file.
;;^UTILITY(U,$J,.84,720,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,720,3,1,0)
;;=FILE^File number -- the number of the file in which the pointer field exists.
;;^UTILITY(U,$J,.84,720,3,2,0)
;;=FIELD^Field number of the pointer field.
;;^UTILITY(U,$J,.84,726,0)
;;=726^1^y^5
;;^UTILITY(U,$J,.84,726,1,0)
;;=^^2^2^2931110^
;;^UTILITY(U,$J,.84,726,1,1,0)
;;=There is an attempt to take an action with word processing data, but
;;^UTILITY(U,$J,.84,726,1,2,0)
;;=the specified field is not a word processing field.
;;^UTILITY(U,$J,.84,726,2,0)
;;=^^1^1^2931110^
;;^UTILITY(U,$J,.84,726,2,1,0)
;;=Field #|FIELD| in File #|FILE| is not a word processing field.
;;^UTILITY(U,$J,.84,726,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,726,3,1,0)
;;=FIELD^Field number.
;;^UTILITY(U,$J,.84,726,3,2,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,730,0)
;;=730^1^y^5
;;^UTILITY(U,$J,.84,730,1,0)
;;=^^2^2^2941128^
;;^UTILITY(U,$J,.84,730,1,1,0)
;;=Based on how the data type is defined by a specific field in a specific
;;^UTILITY(U,$J,.84,730,1,2,0)
;;=file, the passed value is not valid.
;;^UTILITY(U,$J,.84,730,2,0)
;;=^^2^2^2941128^
;;^UTILITY(U,$J,.84,730,2,1,0)
;;=The value '|1|' is not a valid |2| according to the definition in Field
;;^UTILITY(U,$J,.84,730,2,2,0)
;;=#|FIELD| of File #|FILE|.
;;^UTILITY(U,$J,.84,730,3,0)
;;=^.845^4^4
;;^UTILITY(U,$J,.84,730,3,1,0)
;;=1^Passed Value.
;;^UTILITY(U,$J,.84,730,3,2,0)
;;=2^Data Type.
;;^UTILITY(U,$J,.84,730,3,3,0)
;;=FIELD^Field #.
;;^UTILITY(U,$J,.84,730,3,4,0)
;;=FILE^File #.
;;^UTILITY(U,$J,.84,740,0)
;;=740^1^y^5
;;^UTILITY(U,$J,.84,740,1,0)
;;=^^5^5^2980407^^^^
;;^UTILITY(U,$J,.84,740,1,1,0)
;;=When one or more fields are declared as a key for a file, there cannot be
;;^UTILITY(U,$J,.84,740,1,2,0)
;;=duplicate values in those field(s) for entries in the file. The values
;;^UTILITY(U,$J,.84,740,1,3,0)
;;=being passed for validation, when combined with values for unchanging
;;^UTILITY(U,$J,.84,740,1,4,0)
;;=fields in the entry if necessary, create a duplicate key. The changes
;;^UTILITY(U,$J,.84,740,1,5,0)
;;=destroy the integrity of the key. Therefore, they are invalid.
;;^UTILITY(U,$J,.84,740,2,0)
;;=^^1^1^2980407^
;;^UTILITY(U,$J,.84,740,2,1,0)
;;=New values are invalid because they create a duplicate Key '|1|' for the |2| file.
;;^UTILITY(U,$J,.84,740,3,0)
;;=^.845^5^5
;;^UTILITY(U,$J,.84,740,3,1,0)
;;=1^Name of Key.
;;^UTILITY(U,$J,.84,740,3,2,0)
;;=2^Name of affected file.
;;^UTILITY(U,$J,.84,740,3,3,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,740,3,4,0)
;;=KEY^IEN of the invalid key.
;;^UTILITY(U,$J,.84,740,3,5,0)
;;=IENS^IENS of record with invalid key.
;;^UTILITY(U,$J,.84,741,0)
;;=741^1^^5
;;^UTILITY(U,$J,.84,741,1,0)
;;=^^3^3^2981208^
;;^UTILITY(U,$J,.84,741,1,1,0)
;;=Error message generated when user is adding a new entry using classic
;;^UTILITY(U,$J,.84,741,1,2,0)
;;=FileMan lookup ^DIC routines, and either key values are not entered, or
;;^UTILITY(U,$J,.84,741,1,3,0)
;;=they create a duplicate key.
;;^UTILITY(U,$J,.84,741,2,0)
;;=^^1^1^2981208^
;;^UTILITY(U,$J,.84,741,2,1,0)
;;=Either key values are null, or they create a duplicate key.
;;^UTILITY(U,$J,.84,741,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,741,5,1,0)
;;=DICN1^A
;;^UTILITY(U,$J,.84,742,0)
;;=742^1^y^5
;;^UTILITY(U,$J,.84,742,1,0)
;;=^^2^2^2980407^^^^
;;^UTILITY(U,$J,.84,742,1,1,0)
;;=Every field in a key must have a value. The incoming data cannot delete
;;^UTILITY(U,$J,.84,742,1,2,0)
;;=the value for any field in a key.
;;^UTILITY(U,$J,.84,742,2,0)
;;=^^1^1^2980407^^
;;^UTILITY(U,$J,.84,742,2,1,0)
;;=The value of field |1| in the |2| file cannot be deleted because that field is part of the '|3|' key.
;;^UTILITY(U,$J,.84,742,3,0)
;;=^.845^6^6
;;^UTILITY(U,$J,.84,742,3,1,0)
;;=1^Field name
;;^UTILITY(U,$J,.84,742,3,2,0)
;;=2^File name
;;^UTILITY(U,$J,.84,742,3,3,0)
;;=3^Key name
;;^UTILITY(U,$J,.84,742,3,4,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,742,3,5,0)
;;=FIELD^Field number.
;;^UTILITY(U,$J,.84,742,3,6,0)
;;=IENS^IENS
;;^UTILITY(U,$J,.84,744,0)
;;=744^1^y^5
;;^UTILITY(U,$J,.84,744,1,0)
;;=^^2^2^2980413^^^^
;;^UTILITY(U,$J,.84,744,1,1,0)
;;=Every field that is in a key must have a value. No value for this field
;;^UTILITY(U,$J,.84,744,1,2,0)
;;=exists.
;;^UTILITY(U,$J,.84,744,2,0)
;;=^^1^1^2980407^^^^
;;^UTILITY(U,$J,.84,744,2,1,0)
;;=Field |1| is part of Key '|2|', but the field has not been assigned a value.
;;^UTILITY(U,$J,.84,744,3,0)
;;=^.845^5^5
;;^UTILITY(U,$J,.84,744,3,1,0)
;;=1^Field name.
;;^UTILITY(U,$J,.84,744,3,2,0)
;;=2^Key name.
;;^UTILITY(U,$J,.84,744,3,3,0)
;;=FIELD^Field number.
;;^UTILITY(U,$J,.84,744,3,4,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,744,3,5,0)
;;=IENS^IENS of record with incomplete key.
;;^UTILITY(U,$J,.84,746,0)
;;=746^1^y^5
;;^UTILITY(U,$J,.84,746,1,0)
;;=^^2^2^2980415^^^^
;;^UTILITY(U,$J,.84,746,1,1,0)
;;=A lookup node is present in the FDA, but no Primary Key fields are
;;^UTILITY(U,$J,.84,746,1,2,0)
;;=provided.
;;^UTILITY(U,$J,.84,746,2,0)
;;=^^1^1^2980415^
;;^UTILITY(U,$J,.84,746,2,1,0)
;;=No fields in Primary Key '|1|' have been provided in the FDA to look up '|IENS|' in the |2| file.
;;^UTILITY(U,$J,.84,746,3,0)
;;=^.845^5^5
;;^UTILITY(U,$J,.84,746,3,1,0)
;;=1^Key name.
;;^UTILITY(U,$J,.84,746,3,2,0)
;;=2^File name.
;;^UTILITY(U,$J,.84,746,3,3,0)
;;=IENS^IENS of lookup node.
;;^UTILITY(U,$J,.84,746,3,4,0)
;;=KEY^Key number.
;;^UTILITY(U,$J,.84,746,3,5,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,810,0)
;;=810^1^^5
;;^UTILITY(U,$J,.84,810,1,0)
;;=^^3^3^2931109^
;;^UTILITY(U,$J,.84,810,1,1,0)
;;=A %ZOSF node required to perform a function does not exist. The
;;^UTILITY(U,$J,.84,810,1,2,0)
;;=VA FileMan Programmer's Manual contains a complete list of %ZOSF
;;^UTILITY(U,$J,.84,810,1,3,0)
;;=nodes.
;;^UTILITY(U,$J,.84,810,2,0)
;;=^^1^1^2931109^
;;^UTILITY(U,$J,.84,810,2,1,0)
;;=A necessary %ZOSF node does not exist on your system.
;;^UTILITY(U,$J,.84,820,0)
;;=820^1^^5
;;^UTILITY(U,$J,.84,820,1,0)
;;=^^3^3^2931109^
;;^UTILITY(U,$J,.84,820,1,1,0)
;;=The ZSAVE CODE field (#2619) in the MUMPS Operating System file (#.7)
DINIT00A ; 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,720,1,2,0)
+2 ;;=LAYGO is not allowed.
+3 ;;^UTILITY(U,$J,.84,720,2,0)
+4 ;;=^^1^1^2931109^
+5 ;;^UTILITY(U,$J,.84,720,2,1,0)
+6 ;;=The value cannot be found in the pointed-to file.
+7 ;;^UTILITY(U,$J,.84,720,3,0)
+8 ;;=^.845^2^2
+9 ;;^UTILITY(U,$J,.84,720,3,1,0)
+10 ;;=FILE^File number -- the number of the file in which the pointer field exists.
+11 ;;^UTILITY(U,$J,.84,720,3,2,0)
+12 ;;=FIELD^Field number of the pointer field.
+13 ;;^UTILITY(U,$J,.84,726,0)
+14 ;;=726^1^y^5
+15 ;;^UTILITY(U,$J,.84,726,1,0)
+16 ;;=^^2^2^2931110^
+17 ;;^UTILITY(U,$J,.84,726,1,1,0)
+18 ;;=There is an attempt to take an action with word processing data, but
+19 ;;^UTILITY(U,$J,.84,726,1,2,0)
+20 ;;=the specified field is not a word processing field.
+21 ;;^UTILITY(U,$J,.84,726,2,0)
+22 ;;=^^1^1^2931110^
+23 ;;^UTILITY(U,$J,.84,726,2,1,0)
+24 ;;=Field #|FIELD| in File #|FILE| is not a word processing field.
+25 ;;^UTILITY(U,$J,.84,726,3,0)
+26 ;;=^.845^2^2
+27 ;;^UTILITY(U,$J,.84,726,3,1,0)
+28 ;;=FIELD^Field number.
+29 ;;^UTILITY(U,$J,.84,726,3,2,0)
+30 ;;=FILE^File number.
+31 ;;^UTILITY(U,$J,.84,730,0)
+32 ;;=730^1^y^5
+33 ;;^UTILITY(U,$J,.84,730,1,0)
+34 ;;=^^2^2^2941128^
+35 ;;^UTILITY(U,$J,.84,730,1,1,0)
+36 ;;=Based on how the data type is defined by a specific field in a specific
+37 ;;^UTILITY(U,$J,.84,730,1,2,0)
+38 ;;=file, the passed value is not valid.
+39 ;;^UTILITY(U,$J,.84,730,2,0)
+40 ;;=^^2^2^2941128^
+41 ;;^UTILITY(U,$J,.84,730,2,1,0)
+42 ;;=The value '|1|' is not a valid |2| according to the definition in Field
+43 ;;^UTILITY(U,$J,.84,730,2,2,0)
+44 ;;=#|FIELD| of File #|FILE|.
+45 ;;^UTILITY(U,$J,.84,730,3,0)
+46 ;;=^.845^4^4
+47 ;;^UTILITY(U,$J,.84,730,3,1,0)
+48 ;;=1^Passed Value.
+49 ;;^UTILITY(U,$J,.84,730,3,2,0)
+50 ;;=2^Data Type.
+51 ;;^UTILITY(U,$J,.84,730,3,3,0)
+52 ;;=FIELD^Field #.
+53 ;;^UTILITY(U,$J,.84,730,3,4,0)
+54 ;;=FILE^File #.
+55 ;;^UTILITY(U,$J,.84,740,0)
+56 ;;=740^1^y^5
+57 ;;^UTILITY(U,$J,.84,740,1,0)
+58 ;;=^^5^5^2980407^^^^
+59 ;;^UTILITY(U,$J,.84,740,1,1,0)
+60 ;;=When one or more fields are declared as a key for a file, there cannot be
+61 ;;^UTILITY(U,$J,.84,740,1,2,0)
+62 ;;=duplicate values in those field(s) for entries in the file. The values
+63 ;;^UTILITY(U,$J,.84,740,1,3,0)
+64 ;;=being passed for validation, when combined with values for unchanging
+65 ;;^UTILITY(U,$J,.84,740,1,4,0)
+66 ;;=fields in the entry if necessary, create a duplicate key. The changes
+67 ;;^UTILITY(U,$J,.84,740,1,5,0)
+68 ;;=destroy the integrity of the key. Therefore, they are invalid.
+69 ;;^UTILITY(U,$J,.84,740,2,0)
+70 ;;=^^1^1^2980407^
+71 ;;^UTILITY(U,$J,.84,740,2,1,0)
+72 ;;=New values are invalid because they create a duplicate Key '|1|' for the |2| file.
+73 ;;^UTILITY(U,$J,.84,740,3,0)
+74 ;;=^.845^5^5
+75 ;;^UTILITY(U,$J,.84,740,3,1,0)
+76 ;;=1^Name of Key.
+77 ;;^UTILITY(U,$J,.84,740,3,2,0)
+78 ;;=2^Name of affected file.
+79 ;;^UTILITY(U,$J,.84,740,3,3,0)
+80 ;;=FILE^File number.
+81 ;;^UTILITY(U,$J,.84,740,3,4,0)
+82 ;;=KEY^IEN of the invalid key.
+83 ;;^UTILITY(U,$J,.84,740,3,5,0)
+84 ;;=IENS^IENS of record with invalid key.
+85 ;;^UTILITY(U,$J,.84,741,0)
+86 ;;=741^1^^5
+87 ;;^UTILITY(U,$J,.84,741,1,0)
+88 ;;=^^3^3^2981208^
+89 ;;^UTILITY(U,$J,.84,741,1,1,0)
+90 ;;=Error message generated when user is adding a new entry using classic
+91 ;;^UTILITY(U,$J,.84,741,1,2,0)
+92 ;;=FileMan lookup ^DIC routines, and either key values are not entered, or
+93 ;;^UTILITY(U,$J,.84,741,1,3,0)
+94 ;;=they create a duplicate key.
+95 ;;^UTILITY(U,$J,.84,741,2,0)
+96 ;;=^^1^1^2981208^
+97 ;;^UTILITY(U,$J,.84,741,2,1,0)
+98 ;;=Either key values are null, or they create a duplicate key.
+99 ;;^UTILITY(U,$J,.84,741,5,0)
+100 ;;=^.841^1^1
+101 ;;^UTILITY(U,$J,.84,741,5,1,0)
+102 ;;=DICN1^A
+103 ;;^UTILITY(U,$J,.84,742,0)
+104 ;;=742^1^y^5
+105 ;;^UTILITY(U,$J,.84,742,1,0)
+106 ;;=^^2^2^2980407^^^^
+107 ;;^UTILITY(U,$J,.84,742,1,1,0)
+108 ;;=Every field in a key must have a value. The incoming data cannot delete
+109 ;;^UTILITY(U,$J,.84,742,1,2,0)
+110 ;;=the value for any field in a key.
+111 ;;^UTILITY(U,$J,.84,742,2,0)
+112 ;;=^^1^1^2980407^^
+113 ;;^UTILITY(U,$J,.84,742,2,1,0)
+114 ;;=The value of field |1| in the |2| file cannot be deleted because that field is part of the '|3|' key.
+115 ;;^UTILITY(U,$J,.84,742,3,0)
+116 ;;=^.845^6^6
+117 ;;^UTILITY(U,$J,.84,742,3,1,0)
+118 ;;=1^Field name
+119 ;;^UTILITY(U,$J,.84,742,3,2,0)
+120 ;;=2^File name
+121 ;;^UTILITY(U,$J,.84,742,3,3,0)
+122 ;;=3^Key name
+123 ;;^UTILITY(U,$J,.84,742,3,4,0)
+124 ;;=FILE^File number.
+125 ;;^UTILITY(U,$J,.84,742,3,5,0)
+126 ;;=FIELD^Field number.
+127 ;;^UTILITY(U,$J,.84,742,3,6,0)
+128 ;;=IENS^IENS
+129 ;;^UTILITY(U,$J,.84,744,0)
+130 ;;=744^1^y^5
+131 ;;^UTILITY(U,$J,.84,744,1,0)
+132 ;;=^^2^2^2980413^^^^
+133 ;;^UTILITY(U,$J,.84,744,1,1,0)
+134 ;;=Every field that is in a key must have a value. No value for this field
+135 ;;^UTILITY(U,$J,.84,744,1,2,0)
+136 ;;=exists.
+137 ;;^UTILITY(U,$J,.84,744,2,0)
+138 ;;=^^1^1^2980407^^^^
+139 ;;^UTILITY(U,$J,.84,744,2,1,0)
+140 ;;=Field |1| is part of Key '|2|', but the field has not been assigned a value.
+141 ;;^UTILITY(U,$J,.84,744,3,0)
+142 ;;=^.845^5^5
+143 ;;^UTILITY(U,$J,.84,744,3,1,0)
+144 ;;=1^Field name.
+145 ;;^UTILITY(U,$J,.84,744,3,2,0)
+146 ;;=2^Key name.
+147 ;;^UTILITY(U,$J,.84,744,3,3,0)
+148 ;;=FIELD^Field number.
+149 ;;^UTILITY(U,$J,.84,744,3,4,0)
+150 ;;=FILE^File number.
+151 ;;^UTILITY(U,$J,.84,744,3,5,0)
+152 ;;=IENS^IENS of record with incomplete key.
+153 ;;^UTILITY(U,$J,.84,746,0)
+154 ;;=746^1^y^5
+155 ;;^UTILITY(U,$J,.84,746,1,0)
+156 ;;=^^2^2^2980415^^^^
+157 ;;^UTILITY(U,$J,.84,746,1,1,0)
+158 ;;=A lookup node is present in the FDA, but no Primary Key fields are
+159 ;;^UTILITY(U,$J,.84,746,1,2,0)
+160 ;;=provided.
+161 ;;^UTILITY(U,$J,.84,746,2,0)
+162 ;;=^^1^1^2980415^
+163 ;;^UTILITY(U,$J,.84,746,2,1,0)
+164 ;;=No fields in Primary Key '|1|' have been provided in the FDA to look up '|IENS|' in the |2| file.
+165 ;;^UTILITY(U,$J,.84,746,3,0)
+166 ;;=^.845^5^5
+167 ;;^UTILITY(U,$J,.84,746,3,1,0)
+168 ;;=1^Key name.
+169 ;;^UTILITY(U,$J,.84,746,3,2,0)
+170 ;;=2^File name.
+171 ;;^UTILITY(U,$J,.84,746,3,3,0)
+172 ;;=IENS^IENS of lookup node.
+173 ;;^UTILITY(U,$J,.84,746,3,4,0)
+174 ;;=KEY^Key number.
+175 ;;^UTILITY(U,$J,.84,746,3,5,0)
+176 ;;=FILE^File number.
+177 ;;^UTILITY(U,$J,.84,810,0)
+178 ;;=810^1^^5
+179 ;;^UTILITY(U,$J,.84,810,1,0)
+180 ;;=^^3^3^2931109^
+181 ;;^UTILITY(U,$J,.84,810,1,1,0)
+182 ;;=A %ZOSF node required to perform a function does not exist. The
+183 ;;^UTILITY(U,$J,.84,810,1,2,0)
+184 ;;=VA FileMan Programmer's Manual contains a complete list of %ZOSF
+185 ;;^UTILITY(U,$J,.84,810,1,3,0)
+186 ;;=nodes.
+187 ;;^UTILITY(U,$J,.84,810,2,0)
+188 ;;=^^1^1^2931109^
+189 ;;^UTILITY(U,$J,.84,810,2,1,0)
+190 ;;=A necessary %ZOSF node does not exist on your system.
+191 ;;^UTILITY(U,$J,.84,820,0)
+192 ;;=820^1^^5
+193 ;;^UTILITY(U,$J,.84,820,1,0)
+194 ;;=^^3^3^2931109^
+195 ;;^UTILITY(U,$J,.84,820,1,1,0)
+196 ;;=The ZSAVE CODE field (#2619) in the MUMPS Operating System file (#.7)
