DINIT00N.m

DINIT00N ; 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,9026,5,0)

 ;;=^.841^1^1

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

 ;;=DIU0^6

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

 ;;=9027^3^^5

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

 ;;=^^3^3^2931105^

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

 ;;=The DD for the file of files is not completely FileMan compatible.  This

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

 ;;=is the standard help prompt for the CROSS-REFERENCE ROUTINE field on the

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

 ;;=file of files.  Prompt appears when file attributes are being edited.

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

 ;;=^^5^5^2931109^

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

 ;;=If a NEW routine name is entered, but the cross-references are not

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

 ;;=compiled at this time, the routine name will be automatically deleted.

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

 ;;= 

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

 ;;=If the routine name is deleted, the cross-references are considered

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

 ;;=uncompiled, and FileMan will not use the routine for re-indexing.

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

 ;;=^.841^1^1

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

 ;;=DIU0^6

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

 ;;=9028^3^^5

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

 ;;=^^3^3^2931109^

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

 ;;=Help prompt for CROSS-REFERENCE ROUTINE name when editing file attributes.

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

 ;;= If the user does not changes the name of the CROSS-REFERENCE ROUTINE,

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

 ;;=then recompilation is not required, and they will see this help prompt.

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

 ;;=^^2^2^2931109^

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

 ;;=It is not necessary to recompile the cross-references, since the name of

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

 ;;=the CROSS-REFERENCE ROUTINE was not changed.

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

 ;;=^.841^1^1

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

 ;;=DIU0^6

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

 ;;=9029^3^^5

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

 ;;=^^5^5^2931109^

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

 ;;=Help prompt for CROSS-REFERENCE ROUTINE name when editing file attributes.

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

 ;;= If the user changes the name of the CROSS-REFERENCE ROUTINE, or enters a

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

 ;;=name for the first time, they must also compile the routines at this time.

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

 ;;= If they don't the routine name they just entered will be deleted from the

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

 ;;=DD.

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

 ;;=^^2^2^2931109^

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

 ;;=If the cross-references are not recompiled at this time, the

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

 ;;=CROSS-REFERENCE ROUTINE name will NOT be saved in the data dictionary.

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

 ;;=^.841^1^1

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

 ;;=DIU0^6

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

 ;;=9030^3^^5

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

 ;;=^^2^2^2931109^^^^

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

 ;;=Help for prompting for compiled routine name, when compiling templates

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

 ;;=or cross-references.

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

 ;;=^^1^1^2931109^

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

 ;;=This will become the namespace of the compiled routine(s).

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

 ;;=^.841^4^4

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

 ;;=DIU0^6

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

 ;;=DIKZ^ 

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

 ;;=DIPZ^ 

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

 ;;=DIEZ^ 

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

 ;;=9031^2^^5

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

 ;;=^^1^1^2940310^

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

 ;;=Help for the reader: Freetext

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

 ;;=^^1^1^2940310^

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

 ;;=This response can be free text

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

 ;;=9032^2^^5

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

 ;;=^^1^1^2940310^

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

 ;;=Help for the reader: Set of codes

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

 ;;=^^1^1^2940310^

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

 ;;=Enter a code from the list.

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

 ;;=9033^2^^5

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

 ;;=^^1^1^2940310^

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

 ;;=Help for the reader: End of page

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

 ;;=^^1^1^2940310^

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

 ;;=Enter either RETURN or '^'

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

 ;;=9034^2^^5

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

 ;;=^^1^1^2940310^

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

 ;;=Help for the reader: Numbers

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

 ;;=^^1^1^2940310^

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

 ;;=This response must be a number

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

 ;;=9035^2^^5

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

 ;;=^^1^1^2940310^

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

 ;;=Help for the reader: dates

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

 ;;=^^1^1^2940310^

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

 ;;=This response must be a date

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

 ;;=9036^2^^5

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

 ;;=^^1^1^2940310^

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

 ;;=Help for the reader: List

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

 ;;=^^1^1^2940310^

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

 ;;=This response must be a list or range, e.g., 1,3,5 or 2-4,8

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

 ;;=9037^3^^5

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

 ;;=^^1^1^2940316^^

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

 ;;=Help for leaving form

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

 ;;=^^3^3^2940316^^

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

 ;;=Enter 'Y' to save before exiting.

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

 ;;=Enter 'N' or '^' to exit without saving.

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

 ;;=Press 'RETURN' to return to form

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

 ;;=9038^3^^5

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

 ;;=^^1^1^2940316^

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

 ;;=Help for (Sub)record delete in forms

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

 ;;=^^2^2^2940316^

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

 ;;=Enter 'Y' to delete.

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

 ;;=Enter 'N' or 'RETURN' to return to form.

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

 ;;=9040^2^^5

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

 ;;=^^1^1^2940314^

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

 ;;=Reader Help for Yes/No question

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

 ;;=^^1^1^2940314^

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

 ;;=Enter either 'Y' or 'N'.

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

 ;;=9041^3^^5

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

 ;;=^^2^2^2940608^^^^

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

 ;;=Help message for why the Compare/Merge options should be run during

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

 ;;=non-peak hours.

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

 ;;=^^8^8^2940608^

DINIT00N  ; 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,9026,5,0)

 +2       ;;=^.841^1^1

 +3       ;;^UTILITY(U,$J,.84,9026,5,1,0)

 +4       ;;=DIU0^6

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

 +6       ;;=9027^3^^5

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

 +8       ;;=^^3^3^2931105^

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

 +10      ;;=The DD for the file of files is not completely FileMan compatible.  This

 +11      ;;^UTILITY(U,$J,.84,9027,1,2,0)

 +12      ;;=is the standard help prompt for the CROSS-REFERENCE ROUTINE field on the

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

 +14      ;;=file of files.  Prompt appears when file attributes are being edited.

 +15      ;;^UTILITY(U,$J,.84,9027,2,0)

 +16      ;;=^^5^5^2931109^

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

 +18      ;;=If a NEW routine name is entered, but the cross-references are not

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

 +20      ;;=compiled at this time, the routine name will be automatically deleted.

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

 +22      ;;= 

 +23      ;;^UTILITY(U,$J,.84,9027,2,4,0)

 +24      ;;=If the routine name is deleted, the cross-references are considered

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

 +26      ;;=uncompiled, and FileMan will not use the routine for re-indexing.

 +27      ;;^UTILITY(U,$J,.84,9027,5,0)

 +28      ;;=^.841^1^1

 +29      ;;^UTILITY(U,$J,.84,9027,5,1,0)

 +30      ;;=DIU0^6

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

 +32      ;;=9028^3^^5

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

 +34      ;;=^^3^3^2931109^

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

 +36      ;;=Help prompt for CROSS-REFERENCE ROUTINE name when editing file attributes.

 +37      ;;^UTILITY(U,$J,.84,9028,1,2,0)

 +38      ;;= If the user does not changes the name of the CROSS-REFERENCE ROUTINE,

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

 +40      ;;=then recompilation is not required, and they will see this help prompt.

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

 +42      ;;=^^2^2^2931109^

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

 +44      ;;=It is not necessary to recompile the cross-references, since the name of

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

 +46      ;;=the CROSS-REFERENCE ROUTINE was not changed.

 +47      ;;^UTILITY(U,$J,.84,9028,5,0)

 +48      ;;=^.841^1^1

 +49      ;;^UTILITY(U,$J,.84,9028,5,1,0)

 +50      ;;=DIU0^6

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

 +52      ;;=9029^3^^5

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

 +54      ;;=^^5^5^2931109^

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

 +56      ;;=Help prompt for CROSS-REFERENCE ROUTINE name when editing file attributes.

 +57      ;;^UTILITY(U,$J,.84,9029,1,2,0)

 +58      ;;= If the user changes the name of the CROSS-REFERENCE ROUTINE, or enters a

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

 +60      ;;=name for the first time, they must also compile the routines at this time.

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

 +62      ;;= If they don't the routine name they just entered will be deleted from the

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

 +64      ;;=DD.

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

 +66      ;;=^^2^2^2931109^

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

 +68      ;;=If the cross-references are not recompiled at this time, the

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

 +70      ;;=CROSS-REFERENCE ROUTINE name will NOT be saved in the data dictionary.

 +71      ;;^UTILITY(U,$J,.84,9029,5,0)

 +72      ;;=^.841^1^1

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

 +74      ;;=DIU0^6

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

 +76      ;;=9030^3^^5

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

 +78      ;;=^^2^2^2931109^^^^

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

 +80      ;;=Help for prompting for compiled routine name, when compiling templates

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

 +82      ;;=or cross-references.

 +83      ;;^UTILITY(U,$J,.84,9030,2,0)

 +84      ;;=^^1^1^2931109^

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

 +86      ;;=This will become the namespace of the compiled routine(s).

 +87      ;;^UTILITY(U,$J,.84,9030,5,0)

 +88      ;;=^.841^4^4

 +89      ;;^UTILITY(U,$J,.84,9030,5,1,0)

 +90      ;;=DIU0^6

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

 +92      ;;=DIKZ^ 

 +93      ;;^UTILITY(U,$J,.84,9030,5,3,0)

 +94      ;;=DIPZ^ 

 +95      ;;^UTILITY(U,$J,.84,9030,5,4,0)

 +96      ;;=DIEZ^ 

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

 +98      ;;=9031^2^^5

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

 +100     ;;=^^1^1^2940310^

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

 +102     ;;=Help for the reader: Freetext

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

 +104     ;;=^^1^1^2940310^

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

 +106     ;;=This response can be free text

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

 +108     ;;=9032^2^^5

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

 +110     ;;=^^1^1^2940310^

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

 +112     ;;=Help for the reader: Set of codes

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

 +114     ;;=^^1^1^2940310^

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

 +116     ;;=Enter a code from the list.

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

 +118     ;;=9033^2^^5

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

 +120     ;;=^^1^1^2940310^

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

 +122     ;;=Help for the reader: End of page

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

 +124     ;;=^^1^1^2940310^

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

 +126     ;;=Enter either RETURN or '^'

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

 +128     ;;=9034^2^^5

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

 +130     ;;=^^1^1^2940310^

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

 +132     ;;=Help for the reader: Numbers

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

 +134     ;;=^^1^1^2940310^

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

 +136     ;;=This response must be a number

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

 +138     ;;=9035^2^^5

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

 +140     ;;=^^1^1^2940310^

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

 +142     ;;=Help for the reader: dates

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

 +144     ;;=^^1^1^2940310^

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

 +146     ;;=This response must be a date

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

 +148     ;;=9036^2^^5

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

 +150     ;;=^^1^1^2940310^

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

 +152     ;;=Help for the reader: List

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

 +154     ;;=^^1^1^2940310^

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

 +156     ;;=This response must be a list or range, e.g., 1,3,5 or 2-4,8

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

 +158     ;;=9037^3^^5

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

 +160     ;;=^^1^1^2940316^^

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

 +162     ;;=Help for leaving form

 +163     ;;^UTILITY(U,$J,.84,9037,2,0)

 +164     ;;=^^3^3^2940316^^

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

 +166     ;;=Enter 'Y' to save before exiting.

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

 +168     ;;=Enter 'N' or '^' to exit without saving.

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

 +170     ;;=Press 'RETURN' to return to form

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

 +172     ;;=9038^3^^5

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

 +174     ;;=^^1^1^2940316^

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

 +176     ;;=Help for (Sub)record delete in forms

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

 +178     ;;=^^2^2^2940316^

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

 +180     ;;=Enter 'Y' to delete.

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

 +182     ;;=Enter 'N' or 'RETURN' to return to form.

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

 +184     ;;=9040^2^^5

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

 +186     ;;=^^1^1^2940314^

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

 +188     ;;=Reader Help for Yes/No question

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

 +190     ;;=^^1^1^2940314^

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

 +192     ;;=Enter either 'Y' or 'N'.

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

 +194     ;;=9041^3^^5

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

 +196     ;;=^^2^2^2940608^^^^

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

 +198     ;;=Help message for why the Compare/Merge options should be run during

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

 +200     ;;=non-peak hours.

 +201     ;;^UTILITY(U,$J,.84,9041,2,0)

 +202     ;;=^^8^8^2940608^