Routine: DINIT005

DINIT005 ; 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,205,1,3,0)

 ;;=the IEN string do not match the file/subfile level according to the "UP"

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

 ;;=nodes).

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

 ;;=^^1^1^2960827^^^

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

 ;;=File# |1| and IEN string |IENS| represent different subfile levels.

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

 ;;=^.845^2^2

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

 ;;=1^File or subfile number

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

 ;;=IENS^IEN string

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

 ;;=^.841^2^2

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

 ;;=DIT3^IENCHK

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

 ;;=DICA3^ERR

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

 ;;=206^1^y^5

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

 ;;=^^3^3^2960124^

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

 ;;=FileMan is trying to pack fields onto a single node for a record, and the

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

 ;;=data will not fit. The application has asked for too many fields back for

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

 ;;=this record.

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

 ;;=^^1^1^2960124^

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

 ;;=The data requested for record |1| is too long to pack together.

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

 ;;=^.845^1^1

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

 ;;=1^Record Number.

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

 ;;=207^1^y^5

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

 ;;=^^5^5^2960318^

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

 ;;=The library function $$HTML^DILF can encode or decode a string to and from

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

 ;;=HTML, used within FileMan to pack a value containing embedded ^s into a

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

 ;;=^-delimited string. Encoding increases the length of the string. If

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

 ;;=encoding would cause the length to exceed the portable string length

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

 ;;=limit, $$HTML^DILF instead returns this error.

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

 ;;=^^1^1^2960318^

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

 ;;=The value |1| is too long to encode into HTML.

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

 ;;=^.845^1^1

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

 ;;=1^Value.

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

 ;;=208^1^^5^Illegal number error

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

 ;;=^^1^1^2970829^

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

 ;;=Input value is an illegal number.

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

 ;;=209^1^^5

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

 ;;=^^1^1^2980709^

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

 ;;=Input value is too long.

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

 ;;=^.841^2^2

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

 ;;=DIC0^CHKVAL2

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

 ;;=DIC11^PR1

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

 ;;=299^1^y^5

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

 ;;=^^2^2^2970423^^^^

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

 ;;=A lookup that was restricted to finding a single entry found more than

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

 ;;=one.

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

 ;;=^^1^1^2970423^

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

 ;;=More than one entry matches the value(s) '|1|'.

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

 ;;=^.845^3^3

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

 ;;=1^Lookup Value.

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

 ;;=FILE^File #.

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

 ;;=IENS^IEN String.

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

 ;;=301^1^y^5

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

 ;;=^^1^1^2931110^^

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

 ;;=Flags passed in a variable (like DIC(0)) or in a parameter are incorrect.

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

 ;;=^^1^1^2931110^^

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

 ;;=The passed flag(s) '|1|' are unknown or inconsistent.

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

 ;;=^.845^1^1

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

 ;;=1^Letter(s) from flag.

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

 ;;=302^1^y^5

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

 ;;=^^2^2^2940215^

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

 ;;=The calling application has asked us to add a new record, and has supplied

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

 ;;=a record number, but a record already exists at that number.

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

 ;;=^^1^1^2941018^

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

 ;;=Entry '|IENS|' already exists.

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

 ;;=^.845^2^2

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

 ;;=FILE^File #.

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

 ;;=IENS^IEN String.

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

 ;;=304^1^y^5

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

 ;;=^^2^2^2940628^^^^

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

 ;;=The problem with this IEN string is that it lacks the final ','. This is a

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

 ;;=common mistake for beginners.

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

 ;;=^^1^1^2941018^

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

 ;;=The IENS '|IENS|' lacks a final comma.

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

 ;;=^.845^1^1

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

 ;;=IENS^IENS.

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

 ;;=305^1^y^5

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

 ;;=^^1^1^2931109^

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

 ;;=A root is used to identify an input array.  But the array is empty.

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

 ;;=^^1^1^2931109^

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

 ;;=The array with a root of '|1|' has no data associated with it.

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

 ;;=^.845^1^1

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

 ;;=1^Passed root.

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

 ;;=^.841^1^1

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

 ;;=DIE^FILE

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

 ;;=306^1^y^5

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

 ;;=^^2^2^2940628^

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

 ;;=When an IENS is used to explicitly identify a subfile, not a subfile

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

 ;;=entry, then the first comma-piece should be empty. This one wasn't.

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

 ;;=^^1^1^2941018^

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

 ;;=The first comma-piece of IENS '|IENS|' should be empty.

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

 ;;=^.845^1^1

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

 ;;=IENS^IENS.

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

 ;;=307^1^y^5

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

 ;;=^^2^2^2940629^

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

 ;;=One of the IENs in the IENS has been left out, leaving an empty

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

 ;;=comma-piece.

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

 ;;=^^1^1^2941018^

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

 ;;=The IENS '|IENS|' has an empty comma-piece.

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

 ;;=^.845^1^1

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

 ;;=IENS^IENS.

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

 ;;=308^1^y^5

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

 ;;=^^3^3^2940629^

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

 ;;=The syntax of this IENS is incorrect. For example, a record number may be

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

 ;;=illegal; or a subfile may be specified as already existing, but have a

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

 ;;=parent that is just now being added.

DINIT005  ; 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,205,1,3,0)

 +2       ;;=the IEN string do not match the file/subfile level according to the "UP"

 +3       ;;^UTILITY(U,$J,.84,205,1,4,0)

 +4       ;;=nodes).

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

 +6       ;;=^^1^1^2960827^^^

 +7       ;;^UTILITY(U,$J,.84,205,2,1,0)

 +8       ;;=File# |1| and IEN string |IENS| represent different subfile levels.

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

 +10      ;;=^.845^2^2

 +11      ;;^UTILITY(U,$J,.84,205,3,1,0)

 +12      ;;=1^File or subfile number

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

 +14      ;;=IENS^IEN string

 +15      ;;^UTILITY(U,$J,.84,205,5,0)

 +16      ;;=^.841^2^2

 +17      ;;^UTILITY(U,$J,.84,205,5,1,0)

 +18      ;;=DIT3^IENCHK

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

 +20      ;;=DICA3^ERR

 +21      ;;^UTILITY(U,$J,.84,206,0)

 +22      ;;=206^1^y^5

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

 +24      ;;=^^3^3^2960124^

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

 +26      ;;=FileMan is trying to pack fields onto a single node for a record, and the

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

 +28      ;;=data will not fit. The application has asked for too many fields back for

 +29      ;;^UTILITY(U,$J,.84,206,1,3,0)

 +30      ;;=this record.

 +31      ;;^UTILITY(U,$J,.84,206,2,0)

 +32      ;;=^^1^1^2960124^

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

 +34      ;;=The data requested for record |1| is too long to pack together.

 +35      ;;^UTILITY(U,$J,.84,206,3,0)

 +36      ;;=^.845^1^1

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

 +38      ;;=1^Record Number.

 +39      ;;^UTILITY(U,$J,.84,207,0)

 +40      ;;=207^1^y^5

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

 +42      ;;=^^5^5^2960318^

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

 +44      ;;=The library function $$HTML^DILF can encode or decode a string to and from

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

 +46      ;;=HTML, used within FileMan to pack a value containing embedded ^s into a

 +47      ;;^UTILITY(U,$J,.84,207,1,3,0)

 +48      ;;=^-delimited string. Encoding increases the length of the string. If

 +49      ;;^UTILITY(U,$J,.84,207,1,4,0)

 +50      ;;=encoding would cause the length to exceed the portable string length

 +51      ;;^UTILITY(U,$J,.84,207,1,5,0)

 +52      ;;=limit, $$HTML^DILF instead returns this error.

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

 +54      ;;=^^1^1^2960318^

 +55      ;;^UTILITY(U,$J,.84,207,2,1,0)

 +56      ;;=The value |1| is too long to encode into HTML.

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

 +58      ;;=^.845^1^1

 +59      ;;^UTILITY(U,$J,.84,207,3,1,0)

 +60      ;;=1^Value.

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

 +62      ;;=208^1^^5^Illegal number error

 +63      ;;^UTILITY(U,$J,.84,208,2,0)

 +64      ;;=^^1^1^2970829^

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

 +66      ;;=Input value is an illegal number.

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

 +68      ;;=209^1^^5

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

 +70      ;;=^^1^1^2980709^

 +71      ;;^UTILITY(U,$J,.84,209,2,1,0)

 +72      ;;=Input value is too long.

 +73      ;;^UTILITY(U,$J,.84,209,5,0)

 +74      ;;=^.841^2^2

 +75      ;;^UTILITY(U,$J,.84,209,5,1,0)

 +76      ;;=DIC0^CHKVAL2

 +77      ;;^UTILITY(U,$J,.84,209,5,2,0)

 +78      ;;=DIC11^PR1

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

 +80      ;;=299^1^y^5

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

 +82      ;;=^^2^2^2970423^^^^

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

 +84      ;;=A lookup that was restricted to finding a single entry found more than

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

 +86      ;;=one.

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

 +88      ;;=^^1^1^2970423^

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

 +90      ;;=More than one entry matches the value(s) '|1|'.

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

 +92      ;;=^.845^3^3

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

 +94      ;;=1^Lookup Value.

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

 +96      ;;=FILE^File #.

 +97      ;;^UTILITY(U,$J,.84,299,3,3,0)

 +98      ;;=IENS^IEN String.

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

 +100     ;;=301^1^y^5

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

 +102     ;;=^^1^1^2931110^^

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

 +104     ;;=Flags passed in a variable (like DIC(0)) or in a parameter are incorrect.

 +105     ;;^UTILITY(U,$J,.84,301,2,0)

 +106     ;;=^^1^1^2931110^^

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

 +108     ;;=The passed flag(s) '|1|' are unknown or inconsistent.

 +109     ;;^UTILITY(U,$J,.84,301,3,0)

 +110     ;;=^.845^1^1

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

 +112     ;;=1^Letter(s) from flag.

 +113     ;;^UTILITY(U,$J,.84,302,0)

 +114     ;;=302^1^y^5

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

 +116     ;;=^^2^2^2940215^

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

 +118     ;;=The calling application has asked us to add a new record, and has supplied

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

 +120     ;;=a record number, but a record already exists at that number.

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

 +122     ;;=^^1^1^2941018^

 +123     ;;^UTILITY(U,$J,.84,302,2,1,0)

 +124     ;;=Entry '|IENS|' already exists.

 +125     ;;^UTILITY(U,$J,.84,302,3,0)

 +126     ;;=^.845^2^2

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

 +128     ;;=FILE^File #.

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

 +130     ;;=IENS^IEN String.

 +131     ;;^UTILITY(U,$J,.84,304,0)

 +132     ;;=304^1^y^5

 +133     ;;^UTILITY(U,$J,.84,304,1,0)

 +134     ;;=^^2^2^2940628^^^^

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

 +136     ;;=The problem with this IEN string is that it lacks the final ','. This is a

 +137     ;;^UTILITY(U,$J,.84,304,1,2,0)

 +138     ;;=common mistake for beginners.

 +139     ;;^UTILITY(U,$J,.84,304,2,0)

 +140     ;;=^^1^1^2941018^

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

 +142     ;;=The IENS '|IENS|' lacks a final comma.

 +143     ;;^UTILITY(U,$J,.84,304,3,0)

 +144     ;;=^.845^1^1

 +145     ;;^UTILITY(U,$J,.84,304,3,1,0)

 +146     ;;=IENS^IENS.

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

 +148     ;;=305^1^y^5

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

 +150     ;;=^^1^1^2931109^

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

 +152     ;;=A root is used to identify an input array.  But the array is empty.

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

 +154     ;;=^^1^1^2931109^

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

 +156     ;;=The array with a root of '|1|' has no data associated with it.

 +157     ;;^UTILITY(U,$J,.84,305,3,0)

 +158     ;;=^.845^1^1

 +159     ;;^UTILITY(U,$J,.84,305,3,1,0)

 +160     ;;=1^Passed root.

 +161     ;;^UTILITY(U,$J,.84,305,5,0)

 +162     ;;=^.841^1^1

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

 +164     ;;=DIE^FILE

 +165     ;;^UTILITY(U,$J,.84,306,0)

 +166     ;;=306^1^y^5

 +167     ;;^UTILITY(U,$J,.84,306,1,0)

 +168     ;;=^^2^2^2940628^

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

 +170     ;;=When an IENS is used to explicitly identify a subfile, not a subfile

 +171     ;;^UTILITY(U,$J,.84,306,1,2,0)

 +172     ;;=entry, then the first comma-piece should be empty. This one wasn't.

 +173     ;;^UTILITY(U,$J,.84,306,2,0)

 +174     ;;=^^1^1^2941018^

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

 +176     ;;=The first comma-piece of IENS '|IENS|' should be empty.

 +177     ;;^UTILITY(U,$J,.84,306,3,0)

 +178     ;;=^.845^1^1

 +179     ;;^UTILITY(U,$J,.84,306,3,1,0)

 +180     ;;=IENS^IENS.

 +181     ;;^UTILITY(U,$J,.84,307,0)

 +182     ;;=307^1^y^5

 +183     ;;^UTILITY(U,$J,.84,307,1,0)

 +184     ;;=^^2^2^2940629^

 +185     ;;^UTILITY(U,$J,.84,307,1,1,0)

 +186     ;;=One of the IENs in the IENS has been left out, leaving an empty

 +187     ;;^UTILITY(U,$J,.84,307,1,2,0)

 +188     ;;=comma-piece.

 +189     ;;^UTILITY(U,$J,.84,307,2,0)

 +190     ;;=^^1^1^2941018^

 +191     ;;^UTILITY(U,$J,.84,307,2,1,0)

 +192     ;;=The IENS '|IENS|' has an empty comma-piece.

 +193     ;;^UTILITY(U,$J,.84,307,3,0)

 +194     ;;=^.845^1^1

 +195     ;;^UTILITY(U,$J,.84,307,3,1,0)

 +196     ;;=IENS^IENS.

 +197     ;;^UTILITY(U,$J,.84,308,0)

 +198     ;;=308^1^y^5

 +199     ;;^UTILITY(U,$J,.84,308,1,0)

 +200     ;;=^^3^3^2940629^

 +201     ;;^UTILITY(U,$J,.84,308,1,1,0)

 +202     ;;=The syntax of this IENS is incorrect. For example, a record number may be

 +203     ;;^UTILITY(U,$J,.84,308,1,2,0)

 +204     ;;=illegal; or a subfile may be specified as already existing, but have a

 +205     ;;^UTILITY(U,$J,.84,308,1,3,0)

 +206     ;;=parent that is just now being added.

DINIT005.m