- DINIT00D ; 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,1846,0)
- ;;=1846^1^y
- ;;^UTILITY(U,$J,.84,1846,1,0)
- ;;=^^1^1^2950317^^
- ;;^UTILITY(U,$J,.84,1846,1,1,0)
- ;;=A file or subfile must have only one string of fields associated with it.
- ;;^UTILITY(U,$J,.84,1846,2,0)
- ;;=^^1^1^2950317^^
- ;;^UTILITY(U,$J,.84,1846,2,1,0)
- ;;=File #|FILE| appears more than once in the import with different fields.
- ;;^UTILITY(U,$J,.84,1846,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,1846,3,1,0)
- ;;=FILE^File or subfile number.
- ;;^UTILITY(U,$J,.84,1850,0)
- ;;=1850^1^^5
- ;;^UTILITY(U,$J,.84,1850,1,0)
- ;;=^^4^4^2960718^^
- ;;^UTILITY(U,$J,.84,1850,1,1,0)
- ;;=The device for printing the Import report was not properly specified.
- ;;^UTILITY(U,$J,.84,1850,1,2,0)
- ;;=This could be caused either by a user's response or by the
- ;;^UTILITY(U,$J,.84,1850,1,3,0)
- ;;=device specifications passed to the FILE^DDMP call. The problem
- ;;^UTILITY(U,$J,.84,1850,1,4,0)
- ;;=could involve either device or queuing instructions.
- ;;^UTILITY(U,$J,.84,1850,2,0)
- ;;=^^1^1^2960718^^
- ;;^UTILITY(U,$J,.84,1850,2,1,0)
- ;;=There is an error in device selection or queuing setup.
- ;;^UTILITY(U,$J,.84,1860,0)
- ;;=1860^1^^5
- ;;^UTILITY(U,$J,.84,1860,1,0)
- ;;=^^1^1^2960906^
- ;;^UTILITY(U,$J,.84,1860,1,1,0)
- ;;=The record being imported has no data.
- ;;^UTILITY(U,$J,.84,1860,2,0)
- ;;=^^1^1^2960906^
- ;;^UTILITY(U,$J,.84,1860,2,1,0)
- ;;=The record being imported has no data.
- ;;^UTILITY(U,$J,.84,1862,0)
- ;;=1862^1^^5
- ;;^UTILITY(U,$J,.84,1862,1,0)
- ;;=^^4^4^2960906^^
- ;;^UTILITY(U,$J,.84,1862,1,1,0)
- ;;=When parsing the imported record, more fields were found than expected.
- ;;^UTILITY(U,$J,.84,1862,1,2,0)
- ;;=There were either more delimiter-pieces than expected or the length of a
- ;;^UTILITY(U,$J,.84,1862,1,3,0)
- ;;=fixed length import was too long. This probably means that the incoming
- ;;^UTILITY(U,$J,.84,1862,1,4,0)
- ;;=file is corrupted.
- ;;^UTILITY(U,$J,.84,1862,2,0)
- ;;=^^1^1^2960906^^
- ;;^UTILITY(U,$J,.84,1862,2,1,0)
- ;;=There are more fields in the incoming record than expected.
- ;;^UTILITY(U,$J,.84,1870,0)
- ;;=1870^1^y^5
- ;;^UTILITY(U,$J,.84,1870,1,0)
- ;;=^^2^2^2960913^
- ;;^UTILITY(U,$J,.84,1870,1,1,0)
- ;;=A requested import template does not exist in the Import Template file
- ;;^UTILITY(U,$J,.84,1870,1,2,0)
- ;;=for the file being imported into.
- ;;^UTILITY(U,$J,.84,1870,2,0)
- ;;=^^1^1^2961002^^^
- ;;^UTILITY(U,$J,.84,1870,2,1,0)
- ;;=Import template |1| does not exist for File #|FILE|.
- ;;^UTILITY(U,$J,.84,1870,3,0)
- ;;=^.845^2^2
- ;;^UTILITY(U,$J,.84,1870,3,1,0)
- ;;=1^Template name.
- ;;^UTILITY(U,$J,.84,1870,3,2,0)
- ;;=FILE^File number.
- ;;^UTILITY(U,$J,.84,3000,0)
- ;;=3000^1^^5
- ;;^UTILITY(U,$J,.84,3000,1,0)
- ;;=^^1^1^2930721^
- ;;^UTILITY(U,$J,.84,3000,1,1,0)
- ;;=Initial call to ^DDS failed.
- ;;^UTILITY(U,$J,.84,3000,2,0)
- ;;=^^1^1^2931202^
- ;;^UTILITY(U,$J,.84,3000,2,1,0)
- ;;=THE FORM COULD NOT BE INVOKED.
- ;;^UTILITY(U,$J,.84,3002,0)
- ;;=3002^1^y^5
- ;;^UTILITY(U,$J,.84,3002,1,0)
- ;;=^^1^1^2931202^
- ;;^UTILITY(U,$J,.84,3002,1,1,0)
- ;;=An error was encountered during Form compilation.
- ;;^UTILITY(U,$J,.84,3002,2,0)
- ;;=^^1^1^2931202^^
- ;;^UTILITY(U,$J,.84,3002,2,1,0)
- ;;=THE FORM "|1|" COULD NOT BE COMPILED.
- ;;^UTILITY(U,$J,.84,3002,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,3002,3,1,0)
- ;;=1^Form name
- ;;^UTILITY(U,$J,.84,3011,0)
- ;;=3011^1^y^5
- ;;^UTILITY(U,$J,.84,3011,1,0)
- ;;=^^1^1^2931201^
- ;;^UTILITY(U,$J,.84,3011,1,1,0)
- ;;=The specified field is missing or invalid.
- ;;^UTILITY(U,$J,.84,3011,2,0)
- ;;=^^1^1^2931201^
- ;;^UTILITY(U,$J,.84,3011,2,1,0)
- ;;=The |1| field of the |2| file is missing or invalid.
- ;;^UTILITY(U,$J,.84,3011,3,0)
- ;;=^.845^2^2
- ;;^UTILITY(U,$J,.84,3011,3,1,0)
- ;;=1^Field or subfield name
- ;;^UTILITY(U,$J,.84,3011,3,2,0)
- ;;=2^File name
- ;;^UTILITY(U,$J,.84,3012,0)
- ;;=3012^1^y^5
- ;;^UTILITY(U,$J,.84,3012,1,0)
- ;;=^^2^2^2931201^
- ;;^UTILITY(U,$J,.84,3012,1,1,0)
- ;;=The specified file or subfile does not exist; it is not present in the
- ;;^UTILITY(U,$J,.84,3012,1,2,0)
- ;;=data dictionary.
- ;;^UTILITY(U,$J,.84,3012,2,0)
- ;;=^^1^1^2931201^
- ;;^UTILITY(U,$J,.84,3012,2,1,0)
- ;;=File |1| does not exist.
- ;;^UTILITY(U,$J,.84,3012,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,3012,3,1,0)
- ;;=1^File number or name
- ;;^UTILITY(U,$J,.84,3021,0)
- ;;=3021^1^y^5
- ;;^UTILITY(U,$J,.84,3021,1,0)
- ;;=^^1^1^2940811^^^
- ;;^UTILITY(U,$J,.84,3021,1,1,0)
- ;;=A lookup in to the Form file for the given form failed.
- ;;^UTILITY(U,$J,.84,3021,2,0)
- ;;=^^2^2^2940811^
- ;;^UTILITY(U,$J,.84,3021,2,1,0)
- ;;=Form |1| does not exist in the Form file, or DDSFILE is not the Primary
- ;;^UTILITY(U,$J,.84,3021,2,2,0)
- ;;=File of the form.
- ;;^UTILITY(U,$J,.84,3021,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,3021,3,1,0)
- ;;=1^Form name
- ;;^UTILITY(U,$J,.84,3022,0)
- ;;=3022^1^y^5
- ;;^UTILITY(U,$J,.84,3022,1,0)
- ;;=^^1^1^2931130^^
- ;;^UTILITY(U,$J,.84,3022,1,1,0)
- ;;=There are no pages defined in the Page multiple of the given form.
- ;;^UTILITY(U,$J,.84,3022,2,0)
- ;;=^^1^1^2931130^^
- ;;^UTILITY(U,$J,.84,3022,2,1,0)
- ;;=Form |1| contains no pages.
- ;;^UTILITY(U,$J,.84,3022,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,3022,3,1,0)
- ;;=1^Form name
- ;;^UTILITY(U,$J,.84,3023,0)
- ;;=3023^1^y^5
- ;;^UTILITY(U,$J,.84,3023,1,0)
- ;;=^^1^1^2931129^^
- ;;^UTILITY(U,$J,.84,3023,1,1,0)
- ;;=The given page was not found on the form.
- ;;^UTILITY(U,$J,.84,3023,2,0)
- ;;=^^1^1^2931129^^^
- ;;^UTILITY(U,$J,.84,3023,2,1,0)
- ;;=The form does not contain a page |1|.
- ;;^UTILITY(U,$J,.84,3023,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,3023,3,1,0)
- ;;=1^Page name or number
- ;;^UTILITY(U,$J,.84,3031,0)
- ;;=3031^1^y^5
- ;;^UTILITY(U,$J,.84,3031,1,0)
- ;;=^^1^1^2931124^
- ;;^UTILITY(U,$J,.84,3031,1,1,0)
- ;;=The call to the specified ScreenMan utility failed.
- ;;^UTILITY(U,$J,.84,3031,2,0)
- ;;=^^1^1^2931124^
- ;;^UTILITY(U,$J,.84,3031,2,1,0)
- ;;=NOTE: The programmer call to the |1| ScreenMan utility failed.
- ;;^UTILITY(U,$J,.84,3031,3,0)
- ;;=^.845^1^1
- ;;^UTILITY(U,$J,.84,3031,3,1,0)
- ;;=1^ScreenMan utility entry point.
- ;;^UTILITY(U,$J,.84,3041,0)
- ;;=3041^1^y^5
- ;;^UTILITY(U,$J,.84,3041,1,0)
- ;;=^^1^1^2931130^^
- ;;^UTILITY(U,$J,.84,3041,1,1,0)
- ;;=Errors were encountered while attempting to load the page.
- ;;^UTILITY(U,$J,.84,3041,2,0)
- ;;=^^1^1^2931130^
- ;;^UTILITY(U,$J,.84,3041,2,1,0)
- ;;=Page |1| (|2|) could not be loaded.
- ;;^UTILITY(U,$J,.84,3041,3,0)
- ;;=^.845^2^2
- ;;^UTILITY(U,$J,.84,3041,3,1,0)
- ;;=1^Page number
- ;;^UTILITY(U,$J,.84,3041,3,2,0)
- ;;=2^Page name
- ;;^UTILITY(U,$J,.84,3051,0)
- ;;=3051^1^y^5
- DINIT00D ; 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,1846,0)
- +2 ;;=1846^1^y
- +3 ;;^UTILITY(U,$J,.84,1846,1,0)
- +4 ;;=^^1^1^2950317^^
- +5 ;;^UTILITY(U,$J,.84,1846,1,1,0)
- +6 ;;=A file or subfile must have only one string of fields associated with it.
- +7 ;;^UTILITY(U,$J,.84,1846,2,0)
- +8 ;;=^^1^1^2950317^^
- +9 ;;^UTILITY(U,$J,.84,1846,2,1,0)
- +10 ;;=File #|FILE| appears more than once in the import with different fields.
- +11 ;;^UTILITY(U,$J,.84,1846,3,0)
- +12 ;;=^.845^1^1
- +13 ;;^UTILITY(U,$J,.84,1846,3,1,0)
- +14 ;;=FILE^File or subfile number.
- +15 ;;^UTILITY(U,$J,.84,1850,0)
- +16 ;;=1850^1^^5
- +17 ;;^UTILITY(U,$J,.84,1850,1,0)
- +18 ;;=^^4^4^2960718^^
- +19 ;;^UTILITY(U,$J,.84,1850,1,1,0)
- +20 ;;=The device for printing the Import report was not properly specified.
- +21 ;;^UTILITY(U,$J,.84,1850,1,2,0)
- +22 ;;=This could be caused either by a user's response or by the
- +23 ;;^UTILITY(U,$J,.84,1850,1,3,0)
- +24 ;;=device specifications passed to the FILE^DDMP call. The problem
- +25 ;;^UTILITY(U,$J,.84,1850,1,4,0)
- +26 ;;=could involve either device or queuing instructions.
- +27 ;;^UTILITY(U,$J,.84,1850,2,0)
- +28 ;;=^^1^1^2960718^^
- +29 ;;^UTILITY(U,$J,.84,1850,2,1,0)
- +30 ;;=There is an error in device selection or queuing setup.
- +31 ;;^UTILITY(U,$J,.84,1860,0)
- +32 ;;=1860^1^^5
- +33 ;;^UTILITY(U,$J,.84,1860,1,0)
- +34 ;;=^^1^1^2960906^
- +35 ;;^UTILITY(U,$J,.84,1860,1,1,0)
- +36 ;;=The record being imported has no data.
- +37 ;;^UTILITY(U,$J,.84,1860,2,0)
- +38 ;;=^^1^1^2960906^
- +39 ;;^UTILITY(U,$J,.84,1860,2,1,0)
- +40 ;;=The record being imported has no data.
- +41 ;;^UTILITY(U,$J,.84,1862,0)
- +42 ;;=1862^1^^5
- +43 ;;^UTILITY(U,$J,.84,1862,1,0)
- +44 ;;=^^4^4^2960906^^
- +45 ;;^UTILITY(U,$J,.84,1862,1,1,0)
- +46 ;;=When parsing the imported record, more fields were found than expected.
- +47 ;;^UTILITY(U,$J,.84,1862,1,2,0)
- +48 ;;=There were either more delimiter-pieces than expected or the length of a
- +49 ;;^UTILITY(U,$J,.84,1862,1,3,0)
- +50 ;;=fixed length import was too long. This probably means that the incoming
- +51 ;;^UTILITY(U,$J,.84,1862,1,4,0)
- +52 ;;=file is corrupted.
- +53 ;;^UTILITY(U,$J,.84,1862,2,0)
- +54 ;;=^^1^1^2960906^^
- +55 ;;^UTILITY(U,$J,.84,1862,2,1,0)
- +56 ;;=There are more fields in the incoming record than expected.
- +57 ;;^UTILITY(U,$J,.84,1870,0)
- +58 ;;=1870^1^y^5
- +59 ;;^UTILITY(U,$J,.84,1870,1,0)
- +60 ;;=^^2^2^2960913^
- +61 ;;^UTILITY(U,$J,.84,1870,1,1,0)
- +62 ;;=A requested import template does not exist in the Import Template file
- +63 ;;^UTILITY(U,$J,.84,1870,1,2,0)
- +64 ;;=for the file being imported into.
- +65 ;;^UTILITY(U,$J,.84,1870,2,0)
- +66 ;;=^^1^1^2961002^^^
- +67 ;;^UTILITY(U,$J,.84,1870,2,1,0)
- +68 ;;=Import template |1| does not exist for File #|FILE|.
- +69 ;;^UTILITY(U,$J,.84,1870,3,0)
- +70 ;;=^.845^2^2
- +71 ;;^UTILITY(U,$J,.84,1870,3,1,0)
- +72 ;;=1^Template name.
- +73 ;;^UTILITY(U,$J,.84,1870,3,2,0)
- +74 ;;=FILE^File number.
- +75 ;;^UTILITY(U,$J,.84,3000,0)
- +76 ;;=3000^1^^5
- +77 ;;^UTILITY(U,$J,.84,3000,1,0)
- +78 ;;=^^1^1^2930721^
- +79 ;;^UTILITY(U,$J,.84,3000,1,1,0)
- +80 ;;=Initial call to ^DDS failed.
- +81 ;;^UTILITY(U,$J,.84,3000,2,0)
- +82 ;;=^^1^1^2931202^
- +83 ;;^UTILITY(U,$J,.84,3000,2,1,0)
- +84 ;;=THE FORM COULD NOT BE INVOKED.
- +85 ;;^UTILITY(U,$J,.84,3002,0)
- +86 ;;=3002^1^y^5
- +87 ;;^UTILITY(U,$J,.84,3002,1,0)
- +88 ;;=^^1^1^2931202^
- +89 ;;^UTILITY(U,$J,.84,3002,1,1,0)
- +90 ;;=An error was encountered during Form compilation.
- +91 ;;^UTILITY(U,$J,.84,3002,2,0)
- +92 ;;=^^1^1^2931202^^
- +93 ;;^UTILITY(U,$J,.84,3002,2,1,0)
- +94 ;;=THE FORM "|1|" COULD NOT BE COMPILED.
- +95 ;;^UTILITY(U,$J,.84,3002,3,0)
- +96 ;;=^.845^1^1
- +97 ;;^UTILITY(U,$J,.84,3002,3,1,0)
- +98 ;;=1^Form name
- +99 ;;^UTILITY(U,$J,.84,3011,0)
- +100 ;;=3011^1^y^5
- +101 ;;^UTILITY(U,$J,.84,3011,1,0)
- +102 ;;=^^1^1^2931201^
- +103 ;;^UTILITY(U,$J,.84,3011,1,1,0)
- +104 ;;=The specified field is missing or invalid.
- +105 ;;^UTILITY(U,$J,.84,3011,2,0)
- +106 ;;=^^1^1^2931201^
- +107 ;;^UTILITY(U,$J,.84,3011,2,1,0)
- +108 ;;=The |1| field of the |2| file is missing or invalid.
- +109 ;;^UTILITY(U,$J,.84,3011,3,0)
- +110 ;;=^.845^2^2
- +111 ;;^UTILITY(U,$J,.84,3011,3,1,0)
- +112 ;;=1^Field or subfield name
- +113 ;;^UTILITY(U,$J,.84,3011,3,2,0)
- +114 ;;=2^File name
- +115 ;;^UTILITY(U,$J,.84,3012,0)
- +116 ;;=3012^1^y^5
- +117 ;;^UTILITY(U,$J,.84,3012,1,0)
- +118 ;;=^^2^2^2931201^
- +119 ;;^UTILITY(U,$J,.84,3012,1,1,0)
- +120 ;;=The specified file or subfile does not exist; it is not present in the
- +121 ;;^UTILITY(U,$J,.84,3012,1,2,0)
- +122 ;;=data dictionary.
- +123 ;;^UTILITY(U,$J,.84,3012,2,0)
- +124 ;;=^^1^1^2931201^
- +125 ;;^UTILITY(U,$J,.84,3012,2,1,0)
- +126 ;;=File |1| does not exist.
- +127 ;;^UTILITY(U,$J,.84,3012,3,0)
- +128 ;;=^.845^1^1
- +129 ;;^UTILITY(U,$J,.84,3012,3,1,0)
- +130 ;;=1^File number or name
- +131 ;;^UTILITY(U,$J,.84,3021,0)
- +132 ;;=3021^1^y^5
- +133 ;;^UTILITY(U,$J,.84,3021,1,0)
- +134 ;;=^^1^1^2940811^^^
- +135 ;;^UTILITY(U,$J,.84,3021,1,1,0)
- +136 ;;=A lookup in to the Form file for the given form failed.
- +137 ;;^UTILITY(U,$J,.84,3021,2,0)
- +138 ;;=^^2^2^2940811^
- +139 ;;^UTILITY(U,$J,.84,3021,2,1,0)
- +140 ;;=Form |1| does not exist in the Form file, or DDSFILE is not the Primary
- +141 ;;^UTILITY(U,$J,.84,3021,2,2,0)
- +142 ;;=File of the form.
- +143 ;;^UTILITY(U,$J,.84,3021,3,0)
- +144 ;;=^.845^1^1
- +145 ;;^UTILITY(U,$J,.84,3021,3,1,0)
- +146 ;;=1^Form name
- +147 ;;^UTILITY(U,$J,.84,3022,0)
- +148 ;;=3022^1^y^5
- +149 ;;^UTILITY(U,$J,.84,3022,1,0)
- +150 ;;=^^1^1^2931130^^
- +151 ;;^UTILITY(U,$J,.84,3022,1,1,0)
- +152 ;;=There are no pages defined in the Page multiple of the given form.
- +153 ;;^UTILITY(U,$J,.84,3022,2,0)
- +154 ;;=^^1^1^2931130^^
- +155 ;;^UTILITY(U,$J,.84,3022,2,1,0)
- +156 ;;=Form |1| contains no pages.
- +157 ;;^UTILITY(U,$J,.84,3022,3,0)
- +158 ;;=^.845^1^1
- +159 ;;^UTILITY(U,$J,.84,3022,3,1,0)
- +160 ;;=1^Form name
- +161 ;;^UTILITY(U,$J,.84,3023,0)
- +162 ;;=3023^1^y^5
- +163 ;;^UTILITY(U,$J,.84,3023,1,0)
- +164 ;;=^^1^1^2931129^^
- +165 ;;^UTILITY(U,$J,.84,3023,1,1,0)
- +166 ;;=The given page was not found on the form.
- +167 ;;^UTILITY(U,$J,.84,3023,2,0)
- +168 ;;=^^1^1^2931129^^^
- +169 ;;^UTILITY(U,$J,.84,3023,2,1,0)
- +170 ;;=The form does not contain a page |1|.
- +171 ;;^UTILITY(U,$J,.84,3023,3,0)
- +172 ;;=^.845^1^1
- +173 ;;^UTILITY(U,$J,.84,3023,3,1,0)
- +174 ;;=1^Page name or number
- +175 ;;^UTILITY(U,$J,.84,3031,0)
- +176 ;;=3031^1^y^5
- +177 ;;^UTILITY(U,$J,.84,3031,1,0)
- +178 ;;=^^1^1^2931124^
- +179 ;;^UTILITY(U,$J,.84,3031,1,1,0)
- +180 ;;=The call to the specified ScreenMan utility failed.
- +181 ;;^UTILITY(U,$J,.84,3031,2,0)
- +182 ;;=^^1^1^2931124^
- +183 ;;^UTILITY(U,$J,.84,3031,2,1,0)
- +184 ;;=NOTE: The programmer call to the |1| ScreenMan utility failed.
- +185 ;;^UTILITY(U,$J,.84,3031,3,0)
- +186 ;;=^.845^1^1
- +187 ;;^UTILITY(U,$J,.84,3031,3,1,0)
- +188 ;;=1^ScreenMan utility entry point.
- +189 ;;^UTILITY(U,$J,.84,3041,0)
- +190 ;;=3041^1^y^5
- +191 ;;^UTILITY(U,$J,.84,3041,1,0)
- +192 ;;=^^1^1^2931130^^
- +193 ;;^UTILITY(U,$J,.84,3041,1,1,0)
- +194 ;;=Errors were encountered while attempting to load the page.
- +195 ;;^UTILITY(U,$J,.84,3041,2,0)
- +196 ;;=^^1^1^2931130^
- +197 ;;^UTILITY(U,$J,.84,3041,2,1,0)
- +198 ;;=Page |1| (|2|) could not be loaded.
- +199 ;;^UTILITY(U,$J,.84,3041,3,0)
- +200 ;;=^.845^2^2
- +201 ;;^UTILITY(U,$J,.84,3041,3,1,0)
- +202 ;;=1^Page number
- +203 ;;^UTILITY(U,$J,.84,3041,3,2,0)
- +204 ;;=2^Page name
- +205 ;;^UTILITY(U,$J,.84,3051,0)
- +206 ;;=3051^1^y^5