DINIT00O ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3:18 PM  25 May 2001
 ;;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,9041,2,1,0)
 ;;= 
 ;;^UTILITY(U,$J,.84,9041,2,2,0)
 ;;=Enter 'NO' to compare and display the two entries.
 ;;^UTILITY(U,$J,.84,9041,2,3,0)
 ;;=Enter 'YES' to choose valid fields from each entry then merge into the
 ;;^UTILITY(U,$J,.84,9041,2,4,0)
 ;;=record selected as the default.
 ;;^UTILITY(U,$J,.84,9041,2,5,0)
 ;;= 
 ;;^UTILITY(U,$J,.84,9041,2,6,0)
 ;;=If you merge two entries within a file that is pointed-to by many other
 ;;^UTILITY(U,$J,.84,9041,2,7,0)
 ;;=files (such as the PATIENT file), then the re-pointing process can be time
 ;;^UTILITY(U,$J,.84,9041,2,8,0)
 ;;=consuming and can create many tasked jobs.
 ;;^UTILITY(U,$J,.84,9101,0)
 ;;=9101^3^^5
 ;;^UTILITY(U,$J,.84,9101,1,0)
 ;;=^^1^1^2930810^
 ;;^UTILITY(U,$J,.84,9101,1,1,0)
 ;;=The "CHOOSE FROM:" prompt.
 ;;^UTILITY(U,$J,.84,9101,2,0)
 ;;=^^1^1^2930908^^
 ;;^UTILITY(U,$J,.84,9101,2,1,0)
 ;;=Choose from:
 ;;^UTILITY(U,$J,.84,9103,0)
 ;;=9103^3^^5
 ;;^UTILITY(U,$J,.84,9103,1,0)
 ;;=^^2^2^2930810^^
 ;;^UTILITY(U,$J,.84,9103,1,1,0)
 ;;=First line of Variable Pointer help that shows the Prefixes and Messages
 ;;^UTILITY(U,$J,.84,9103,1,2,0)
 ;;=for a field.
 ;;^UTILITY(U,$J,.84,9103,2,0)
 ;;=^^1^1^2930810^
 ;;^UTILITY(U,$J,.84,9103,2,1,0)
 ;;=Enter one of the following:
 ;;^UTILITY(U,$J,.84,9105,0)
 ;;=9105^3^y^5
 ;;^UTILITY(U,$J,.84,9105,1,0)
 ;;=^^2^2^2931229^
 ;;^UTILITY(U,$J,.84,9105,1,1,0)
 ;;=The beginning of the help text used to give list of fields that can
 ;;^UTILITY(U,$J,.84,9105,1,2,0)
 ;;=be used for a look-up.
 ;;^UTILITY(U,$J,.84,9105,2,0)
 ;;=^^1^1^2931229^
 ;;^UTILITY(U,$J,.84,9105,2,1,0)
 ;;=Answer with |1|.
 ;;^UTILITY(U,$J,.84,9105,3,0)
 ;;=^.845^1^1
 ;;^UTILITY(U,$J,.84,9105,3,1,0)
 ;;=1^File name and list of fields that can be used for look-up.
 ;;^UTILITY(U,$J,.84,9105,5,0)
 ;;=^.841^1^1
 ;;^UTILITY(U,$J,.84,9105,5,1,0)
 ;;=DIE^HELP
 ;;^UTILITY(U,$J,.84,9107,0)
 ;;=9107^3^y^5
 ;;^UTILITY(U,$J,.84,9107,1,0)
 ;;=^^1^1^2940513^
 ;;^UTILITY(U,$J,.84,9107,1,1,0)
 ;;=LAYGO allowed.
 ;;^UTILITY(U,$J,.84,9107,2,0)
 ;;=^^1^1^2940513^
 ;;^UTILITY(U,$J,.84,9107,2,1,0)
 ;;=You may enter a new |1| if you wish.
 ;;^UTILITY(U,$J,.84,9107,3,0)
 ;;=^.845^1^1
 ;;^UTILITY(U,$J,.84,9107,3,1,0)
 ;;=1^File Name.
 ;;^UTILITY(U,$J,.84,9110,0)
 ;;=9110^3^y^5
 ;;^UTILITY(U,$J,.84,9110,1,0)
 ;;=^^1^1^2990323^^^^
 ;;^UTILITY(U,$J,.84,9110,1,1,0)
 ;;=Instructions for entering date data.
 ;;^UTILITY(U,$J,.84,9110,2,0)
 ;;=^^7^7^2990323^^^
 ;;^UTILITY(U,$J,.84,9110,2,1,0)
 ;;=Examples of Valid Dates:
 ;;^UTILITY(U,$J,.84,9110,2,2,0)
 ;;=   JAN 20 1957 or 20 JAN 57 or 1/20/57 |1|
 ;;^UTILITY(U,$J,.84,9110,2,3,0)
 ;;=   T   (for TODAY),  T+1 (for TOMORROW),  T+2,  T+7, etc.
 ;;^UTILITY(U,$J,.84,9110,2,4,0)
 ;;=   T-1 (for YESTERDAY),  T-3W (for 3 WEEKS AGO), etc.
 ;;^UTILITY(U,$J,.84,9110,2,5,0)
 ;;=If the year is omitted, the computer |2|
 ;;^UTILITY(U,$J,.84,9110,2,6,0)
 ;;=|3|
 ;;^UTILITY(U,$J,.84,9110,2,7,0)
 ;;=|4|
 ;;^UTILITY(U,$J,.84,9110,3,0)
 ;;=^.845^4^4
 ;;^UTILITY(U,$J,.84,9110,3,1,0)
 ;;=1^If numeric dates are allowed, " or 012057" is written.
 ;;^UTILITY(U,$J,.84,9110,3,2,0)
 ;;=2^Conditionally, indicates if past, future, or current year is assumed.
 ;;^UTILITY(U,$J,.84,9110,3,3,0)
 ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided, or indicates that day is not needed if past or future year assumed.
 ;;^UTILITY(U,$J,.84,9110,3,4,0)
 ;;=4^Conditionally, indicates that day is not needed (unless past or future date is assumed, in which case this information goes into parameter 3).
 ;;^UTILITY(U,$J,.84,9110,5,0)
 ;;=^.841^1^1
 ;;^UTILITY(U,$J,.84,9110,5,1,0)
 ;;=DIEH1^DT
 ;;^UTILITY(U,$J,.84,9110.7,0)
 ;;=9110.7^3^y^5^Instructions for entering date data.
 ;;^UTILITY(U,$J,.84,9110.7,1,0)
 ;;=^.842^1^1^3010525^^^^
 ;;^UTILITY(U,$J,.84,9110.7,1,1,0)
 ;;=Instructions for entering date data, when the "M" flag is used.
 ;;^UTILITY(U,$J,.84,9110.7,2,0)
 ;;=^.844^8^8^3010525^^^
 ;;^UTILITY(U,$J,.84,9110.7,2,1,0)
 ;;=Examples of Valid Dates:
 ;;^UTILITY(U,$J,.84,9110.7,2,2,0)
 ;;=  JAN 1957 or JAN 57 |1|
 ;;^UTILITY(U,$J,.84,9110.7,2,3,0)
 ;;=  T    (for this month)
 ;;^UTILITY(U,$J,.84,9110.7,2,4,0)
 ;;=  T+3M (for 3 months in the future)
 ;;^UTILITY(U,$J,.84,9110.7,2,5,0)
 ;;=  T-3M (for 3 months ago)
 ;;^UTILITY(U,$J,.84,9110.7,2,6,0)
 ;;=Only month and year are accepted. You must omit the precise day.
 ;;^UTILITY(U,$J,.84,9110.7,2,7,0)
 ;;=If the year is omitted, the computer |2|
 ;;^UTILITY(U,$J,.84,9110.7,2,8,0)
 ;;=|3|
 ;;^UTILITY(U,$J,.84,9110.7,3,0)
 ;;=^.845^3^3
 ;;^UTILITY(U,$J,.84,9110.7,3,1,0)
 ;;=1^If numeric dates are allowed, " or 0157" is written.
 ;;^UTILITY(U,$J,.84,9110.7,3,2,0)
 ;;=2^Conditionally, indicates if past, future, or current year is assumed.
 ;;^UTILITY(U,$J,.84,9110.7,3,3,0)
 ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided.
 ;;^UTILITY(U,$J,.84,9110.7,5,0)
 ;;=^.841^1^1
 ;;^UTILITY(U,$J,.84,9110.7,5,1,0)
 ;;=DIEH1^DT
 ;;^UTILITY(U,$J,.84,9111,0)
 ;;=9111^3^y^5
 ;;^UTILITY(U,$J,.84,9111,1,0)
 ;;=^^1^1^2930806^
 ;;^UTILITY(U,$J,.84,9111,1,1,0)
 ;;=Instructions for entering time data.
 ;;^UTILITY(U,$J,.84,9111,2,0)
 ;;=^^5^5^2931104^^
 ;;^UTILITY(U,$J,.84,9111,2,1,0)
 ;;=If the date is omitted, the current date is assumed.
 ;;^UTILITY(U,$J,.84,9111,2,2,0)
 ;;=Follow the date with a time, such as JAN 20@10, T@10AM, 10:30, etc.
 ;;^UTILITY(U,$J,.84,9111,2,3,0)
 ;;=You may enter NOON, MIDNIGHT, or NOW to indicate the time.
 ;;^UTILITY(U,$J,.84,9111,2,4,0)
 ;;=|1|
 ;;^UTILITY(U,$J,.84,9111,2,5,0)
 ;;=|2|
 ;;^UTILITY(U,$J,.84,9111,3,0)
 ;;=^.845^2^2
 ;;^UTILITY(U,$J,.84,9111,3,1,0)
 ;;=1^Conditionally, give instructions for entering seconds.
 ;;^UTILITY(U,$J,.84,9111,3,2,0)
 ;;=2^Conditionally, state that time is required.
 ;;^UTILITY(U,$J,.84,9115,0)
 ;;=9115^3^^5
 ;;^UTILITY(U,$J,.84,9115,1,0)
 ;;=^^1^1^2930810^
 ;;^UTILITY(U,$J,.84,9115,1,1,0)
 ;;=The short help for variable pointers.
 ;;^UTILITY(U,$J,.84,9115,2,0)
 ;;=^^1^1^2930810^
 ;;^UTILITY(U,$J,.84,9115,2,1,0)
 ;;=To see the entries in any particular file, type <Prefix.?>.
 ;;^UTILITY(U,$J,.84,9116,0)
 ;;=9116^3^^5
 ;;^UTILITY(U,$J,.84,9116,1,0)
 ;;=^^1^1^2930810^
 ;;^UTILITY(U,$J,.84,9116,1,1,0)
 ;;=Long help for variable pointers.
 ;;^UTILITY(U,$J,.84,9116,2,0)
 ;;=^^15^15^2930810^
 ;;^UTILITY(U,$J,.84,9116,2,1,0)
 ;;=If you enter just a name, the system will search each of the 
 ;;^UTILITY(U,$J,.84,9116,2,2,0)
 ;;=above files for the name you have entered.  If a match is found,
 ;;^UTILITY(U,$J,.84,9116,2,3,0)
 ;;=the system will ask you if it is the entry you desire.
 ;;^UTILITY(U,$J,.84,9116,2,4,0)
 ;;= 
 ;;^UTILITY(U,$J,.84,9116,2,5,0)
 ;;=However, if you know the file the entry should be in, you can
 ;;^UTILITY(U,$J,.84,9116,2,6,0)
 ;;=speed processing by using the following syntax to select an entry:
 ;;^UTILITY(U,$J,.84,9116,2,7,0)
 ;;= 
 ;;^UTILITY(U,$J,.84,9116,2,8,0)
 ;;=     <Prefix>.<entry name>
 ;;^UTILITY(U,$J,.84,9116,2,9,0)
 ;;=             or
 ;;^UTILITY(U,$J,.84,9116,2,10,0)
 ;;=     <Message>.<entry name>
 ;;^UTILITY(U,$J,.84,9116,2,11,0)
 ;;=             or
 ;;^UTILITY(U,$J,.84,9116,2,12,0)
 ;;=     <File Name>.<entry name>
 ;;^UTILITY(U,$J,.84,9116,2,13,0)
 ;;= 
 ;;^UTILITY(U,$J,.84,9116,2,14,0)
 ;;=You do not need to enter the entire file name or message.
 ;;^UTILITY(U,$J,.84,9116,2,15,0)
 ;;=The first few characters will suffice.
 ;;^UTILITY(U,$J,.84,9117,0)
 ;;=9117^3^y^5
 ;;^UTILITY(U,$J,.84,9117,1,0)
 ;;=^^1^1^2930810^^
 ;;^UTILITY(U,$J,.84,9117,1,1,0)
 ;;=Variable pointer help - prefix and message.
 ;;^UTILITY(U,$J,.84,9117,2,0)
 ;;=^^1^1^2930810^^^
 ;;^UTILITY(U,$J,.84,9117,2,1,0)
 ;;=|1|.EntryName to select a |2|.
 ;;^UTILITY(U,$J,.84,9117,3,0)
 ;;=^.845^2^2
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00O   8556     printed  Sep 23, 2025@20:25:58                                                                                                                                                                                                    Page 2
DINIT00O  ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3:18 PM  25 May 2001
 +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,9041,2,1,0)
 +2       ;;= 
 +3       ;;^UTILITY(U,$J,.84,9041,2,2,0)
 +4       ;;=Enter 'NO' to compare and display the two entries.
 +5       ;;^UTILITY(U,$J,.84,9041,2,3,0)
 +6       ;;=Enter 'YES' to choose valid fields from each entry then merge into the
 +7       ;;^UTILITY(U,$J,.84,9041,2,4,0)
 +8       ;;=record selected as the default.
 +9       ;;^UTILITY(U,$J,.84,9041,2,5,0)
 +10      ;;= 
 +11      ;;^UTILITY(U,$J,.84,9041,2,6,0)
 +12      ;;=If you merge two entries within a file that is pointed-to by many other
 +13      ;;^UTILITY(U,$J,.84,9041,2,7,0)
 +14      ;;=files (such as the PATIENT file), then the re-pointing process can be time
 +15      ;;^UTILITY(U,$J,.84,9041,2,8,0)
 +16      ;;=consuming and can create many tasked jobs.
 +17      ;;^UTILITY(U,$J,.84,9101,0)
 +18      ;;=9101^3^^5
 +19      ;;^UTILITY(U,$J,.84,9101,1,0)
 +20      ;;=^^1^1^2930810^
 +21      ;;^UTILITY(U,$J,.84,9101,1,1,0)
 +22      ;;=The "CHOOSE FROM:" prompt.
 +23      ;;^UTILITY(U,$J,.84,9101,2,0)
 +24      ;;=^^1^1^2930908^^
 +25      ;;^UTILITY(U,$J,.84,9101,2,1,0)
 +26      ;;=Choose from:
 +27      ;;^UTILITY(U,$J,.84,9103,0)
 +28      ;;=9103^3^^5
 +29      ;;^UTILITY(U,$J,.84,9103,1,0)
 +30      ;;=^^2^2^2930810^^
 +31      ;;^UTILITY(U,$J,.84,9103,1,1,0)
 +32      ;;=First line of Variable Pointer help that shows the Prefixes and Messages
 +33      ;;^UTILITY(U,$J,.84,9103,1,2,0)
 +34      ;;=for a field.
 +35      ;;^UTILITY(U,$J,.84,9103,2,0)
 +36      ;;=^^1^1^2930810^
 +37      ;;^UTILITY(U,$J,.84,9103,2,1,0)
 +38      ;;=Enter one of the following:
 +39      ;;^UTILITY(U,$J,.84,9105,0)
 +40      ;;=9105^3^y^5
 +41      ;;^UTILITY(U,$J,.84,9105,1,0)
 +42      ;;=^^2^2^2931229^
 +43      ;;^UTILITY(U,$J,.84,9105,1,1,0)
 +44      ;;=The beginning of the help text used to give list of fields that can
 +45      ;;^UTILITY(U,$J,.84,9105,1,2,0)
 +46      ;;=be used for a look-up.
 +47      ;;^UTILITY(U,$J,.84,9105,2,0)
 +48      ;;=^^1^1^2931229^
 +49      ;;^UTILITY(U,$J,.84,9105,2,1,0)
 +50      ;;=Answer with |1|.
 +51      ;;^UTILITY(U,$J,.84,9105,3,0)
 +52      ;;=^.845^1^1
 +53      ;;^UTILITY(U,$J,.84,9105,3,1,0)
 +54      ;;=1^File name and list of fields that can be used for look-up.
 +55      ;;^UTILITY(U,$J,.84,9105,5,0)
 +56      ;;=^.841^1^1
 +57      ;;^UTILITY(U,$J,.84,9105,5,1,0)
 +58      ;;=DIE^HELP
 +59      ;;^UTILITY(U,$J,.84,9107,0)
 +60      ;;=9107^3^y^5
 +61      ;;^UTILITY(U,$J,.84,9107,1,0)
 +62      ;;=^^1^1^2940513^
 +63      ;;^UTILITY(U,$J,.84,9107,1,1,0)
 +64      ;;=LAYGO allowed.
 +65      ;;^UTILITY(U,$J,.84,9107,2,0)
 +66      ;;=^^1^1^2940513^
 +67      ;;^UTILITY(U,$J,.84,9107,2,1,0)
 +68      ;;=You may enter a new |1| if you wish.
 +69      ;;^UTILITY(U,$J,.84,9107,3,0)
 +70      ;;=^.845^1^1
 +71      ;;^UTILITY(U,$J,.84,9107,3,1,0)
 +72      ;;=1^File Name.
 +73      ;;^UTILITY(U,$J,.84,9110,0)
 +74      ;;=9110^3^y^5
 +75      ;;^UTILITY(U,$J,.84,9110,1,0)
 +76      ;;=^^1^1^2990323^^^^
 +77      ;;^UTILITY(U,$J,.84,9110,1,1,0)
 +78      ;;=Instructions for entering date data.
 +79      ;;^UTILITY(U,$J,.84,9110,2,0)
 +80      ;;=^^7^7^2990323^^^
 +81      ;;^UTILITY(U,$J,.84,9110,2,1,0)
 +82      ;;=Examples of Valid Dates:
 +83      ;;^UTILITY(U,$J,.84,9110,2,2,0)
 +84      ;;=   JAN 20 1957 or 20 JAN 57 or 1/20/57 |1|
 +85      ;;^UTILITY(U,$J,.84,9110,2,3,0)
 +86      ;;=   T   (for TODAY),  T+1 (for TOMORROW),  T+2,  T+7, etc.
 +87      ;;^UTILITY(U,$J,.84,9110,2,4,0)
 +88      ;;=   T-1 (for YESTERDAY),  T-3W (for 3 WEEKS AGO), etc.
 +89      ;;^UTILITY(U,$J,.84,9110,2,5,0)
 +90      ;;=If the year is omitted, the computer |2|
 +91      ;;^UTILITY(U,$J,.84,9110,2,6,0)
 +92      ;;=|3|
 +93      ;;^UTILITY(U,$J,.84,9110,2,7,0)
 +94      ;;=|4|
 +95      ;;^UTILITY(U,$J,.84,9110,3,0)
 +96      ;;=^.845^4^4
 +97      ;;^UTILITY(U,$J,.84,9110,3,1,0)
 +98      ;;=1^If numeric dates are allowed, " or 012057" is written.
 +99      ;;^UTILITY(U,$J,.84,9110,3,2,0)
 +100     ;;=2^Conditionally, indicates if past, future, or current year is assumed.
 +101     ;;^UTILITY(U,$J,.84,9110,3,3,0)
 +102     ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided, or indicates that day is not needed if past or future year assumed.
 +103     ;;^UTILITY(U,$J,.84,9110,3,4,0)
 +104     ;;=4^Conditionally, indicates that day is not needed (unless past or future date is assumed, in which case this information goes into parameter 3).
 +105     ;;^UTILITY(U,$J,.84,9110,5,0)
 +106     ;;=^.841^1^1
 +107     ;;^UTILITY(U,$J,.84,9110,5,1,0)
 +108     ;;=DIEH1^DT
 +109     ;;^UTILITY(U,$J,.84,9110.7,0)
 +110     ;;=9110.7^3^y^5^Instructions for entering date data.
 +111     ;;^UTILITY(U,$J,.84,9110.7,1,0)
 +112     ;;=^.842^1^1^3010525^^^^
 +113     ;;^UTILITY(U,$J,.84,9110.7,1,1,0)
 +114     ;;=Instructions for entering date data, when the "M" flag is used.
 +115     ;;^UTILITY(U,$J,.84,9110.7,2,0)
 +116     ;;=^.844^8^8^3010525^^^
 +117     ;;^UTILITY(U,$J,.84,9110.7,2,1,0)
 +118     ;;=Examples of Valid Dates:
 +119     ;;^UTILITY(U,$J,.84,9110.7,2,2,0)
 +120     ;;=  JAN 1957 or JAN 57 |1|
 +121     ;;^UTILITY(U,$J,.84,9110.7,2,3,0)
 +122     ;;=  T    (for this month)
 +123     ;;^UTILITY(U,$J,.84,9110.7,2,4,0)
 +124     ;;=  T+3M (for 3 months in the future)
 +125     ;;^UTILITY(U,$J,.84,9110.7,2,5,0)
 +126     ;;=  T-3M (for 3 months ago)
 +127     ;;^UTILITY(U,$J,.84,9110.7,2,6,0)
 +128     ;;=Only month and year are accepted. You must omit the precise day.
 +129     ;;^UTILITY(U,$J,.84,9110.7,2,7,0)
 +130     ;;=If the year is omitted, the computer |2|
 +131     ;;^UTILITY(U,$J,.84,9110.7,2,8,0)
 +132     ;;=|3|
 +133     ;;^UTILITY(U,$J,.84,9110.7,3,0)
 +134     ;;=^.845^3^3
 +135     ;;^UTILITY(U,$J,.84,9110.7,3,1,0)
 +136     ;;=1^If numeric dates are allowed, " or 0157" is written.
 +137     ;;^UTILITY(U,$J,.84,9110.7,3,2,0)
 +138     ;;=2^Conditionally, indicates if past, future, or current year is assumed.
 +139     ;;^UTILITY(U,$J,.84,9110.7,3,3,0)
 +140     ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided.
 +141     ;;^UTILITY(U,$J,.84,9110.7,5,0)
 +142     ;;=^.841^1^1
 +143     ;;^UTILITY(U,$J,.84,9110.7,5,1,0)
 +144     ;;=DIEH1^DT
 +145     ;;^UTILITY(U,$J,.84,9111,0)
 +146     ;;=9111^3^y^5
 +147     ;;^UTILITY(U,$J,.84,9111,1,0)
 +148     ;;=^^1^1^2930806^
 +149     ;;^UTILITY(U,$J,.84,9111,1,1,0)
 +150     ;;=Instructions for entering time data.
 +151     ;;^UTILITY(U,$J,.84,9111,2,0)
 +152     ;;=^^5^5^2931104^^
 +153     ;;^UTILITY(U,$J,.84,9111,2,1,0)
 +154     ;;=If the date is omitted, the current date is assumed.
 +155     ;;^UTILITY(U,$J,.84,9111,2,2,0)
 +156     ;;=Follow the date with a time, such as JAN 20@10, T@10AM, 10:30, etc.
 +157     ;;^UTILITY(U,$J,.84,9111,2,3,0)
 +158     ;;=You may enter NOON, MIDNIGHT, or NOW to indicate the time.
 +159     ;;^UTILITY(U,$J,.84,9111,2,4,0)
 +160     ;;=|1|
 +161     ;;^UTILITY(U,$J,.84,9111,2,5,0)
 +162     ;;=|2|
 +163     ;;^UTILITY(U,$J,.84,9111,3,0)
 +164     ;;=^.845^2^2
 +165     ;;^UTILITY(U,$J,.84,9111,3,1,0)
 +166     ;;=1^Conditionally, give instructions for entering seconds.
 +167     ;;^UTILITY(U,$J,.84,9111,3,2,0)
 +168     ;;=2^Conditionally, state that time is required.
 +169     ;;^UTILITY(U,$J,.84,9115,0)
 +170     ;;=9115^3^^5
 +171     ;;^UTILITY(U,$J,.84,9115,1,0)
 +172     ;;=^^1^1^2930810^
 +173     ;;^UTILITY(U,$J,.84,9115,1,1,0)
 +174     ;;=The short help for variable pointers.
 +175     ;;^UTILITY(U,$J,.84,9115,2,0)
 +176     ;;=^^1^1^2930810^
 +177     ;;^UTILITY(U,$J,.84,9115,2,1,0)
 +178     ;;=To see the entries in any particular file, type <Prefix.?>.
 +179     ;;^UTILITY(U,$J,.84,9116,0)
 +180     ;;=9116^3^^5
 +181     ;;^UTILITY(U,$J,.84,9116,1,0)
 +182     ;;=^^1^1^2930810^
 +183     ;;^UTILITY(U,$J,.84,9116,1,1,0)
 +184     ;;=Long help for variable pointers.
 +185     ;;^UTILITY(U,$J,.84,9116,2,0)
 +186     ;;=^^15^15^2930810^
 +187     ;;^UTILITY(U,$J,.84,9116,2,1,0)
 +188     ;;=If you enter just a name, the system will search each of the 
 +189     ;;^UTILITY(U,$J,.84,9116,2,2,0)
 +190     ;;=above files for the name you have entered.  If a match is found,
 +191     ;;^UTILITY(U,$J,.84,9116,2,3,0)
 +192     ;;=the system will ask you if it is the entry you desire.
 +193     ;;^UTILITY(U,$J,.84,9116,2,4,0)
 +194     ;;= 
 +195     ;;^UTILITY(U,$J,.84,9116,2,5,0)
 +196     ;;=However, if you know the file the entry should be in, you can
 +197     ;;^UTILITY(U,$J,.84,9116,2,6,0)
 +198     ;;=speed processing by using the following syntax to select an entry:
 +199     ;;^UTILITY(U,$J,.84,9116,2,7,0)
 +200     ;;= 
 +201     ;;^UTILITY(U,$J,.84,9116,2,8,0)
 +202     ;;=     <Prefix>.<entry name>
 +203     ;;^UTILITY(U,$J,.84,9116,2,9,0)
 +204     ;;=             or
 +205     ;;^UTILITY(U,$J,.84,9116,2,10,0)
 +206     ;;=     <Message>.<entry name>
 +207     ;;^UTILITY(U,$J,.84,9116,2,11,0)
 +208     ;;=             or
 +209     ;;^UTILITY(U,$J,.84,9116,2,12,0)
 +210     ;;=     <File Name>.<entry name>
 +211     ;;^UTILITY(U,$J,.84,9116,2,13,0)
 +212     ;;= 
 +213     ;;^UTILITY(U,$J,.84,9116,2,14,0)
 +214     ;;=You do not need to enter the entire file name or message.
 +215     ;;^UTILITY(U,$J,.84,9116,2,15,0)
 +216     ;;=The first few characters will suffice.
 +217     ;;^UTILITY(U,$J,.84,9117,0)
 +218     ;;=9117^3^y^5
 +219     ;;^UTILITY(U,$J,.84,9117,1,0)
 +220     ;;=^^1^1^2930810^^
 +221     ;;^UTILITY(U,$J,.84,9117,1,1,0)
 +222     ;;=Variable pointer help - prefix and message.
 +223     ;;^UTILITY(U,$J,.84,9117,2,0)
 +224     ;;=^^1^1^2930810^^^
 +225     ;;^UTILITY(U,$J,.84,9117,2,1,0)
 +226     ;;=|1|.EntryName to select a |2|.
 +227     ;;^UTILITY(U,$J,.84,9117,3,0)
 +228     ;;=^.845^2^2