DINIT00O ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3:18 PM 25 May 2001 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;22.0;VA FileMan;**85**;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,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
DINIT00O ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3:18 PM 25 May 2001 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**85**;Mar 30, 1999
+3 ;Per VHA Directive 10-93-142, this routine should not be modified.
+4 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