DINIT00G ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;21FEB2005
;;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,8008,2,1,0)
;;=Heading (S/C)
;;^UTILITY(U,$J,.84,8008,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8008,5,1,0)
;;=DIP^EN1
;;^UTILITY(U,$J,.84,8008,5,2,0)
;;=DIS^ENS
;;^UTILITY(U,$J,.84,8004.1,0)
;;=8004.1^3^^13^HELP FOR ONE SEARCH CRITERION ('A')
;;^UTILITY(U,$J,.84,8004.1,2,0)
;;=^.844^3^3^3050131^^
;;^UTILITY(U,$J,.84,8004.1,2,1,0)
;;=To search on the condition you have just typed, hit 'Enter'.
;;^UTILITY(U,$J,.84,8004.1,2,2,0)
;;=To search for the NEGATIVE of the condition,
;;^UTILITY(U,$J,.84,8004.1,2,3,0)
;;=type "'A". The "'" character means "negation".
;;^UTILITY(U,$J,.84,8004.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8004.1,5,1,0)
;;=DIS0^BAD+1
;;^UTILITY(U,$J,.84,8004.2,0)
;;=8004.2^3^^13^HELP AFTER 'IF: ' FOR MULTIPLE CONDITIONS
;;^UTILITY(U,$J,.84,8004.2,2,0)
;;=^^3^3^3050131^
;;^UTILITY(U,$J,.84,8004.2,2,1,0)
;;=To 'AND' Condition 'A' with Condition 'B', type 'A&B'.
;;^UTILITY(U,$J,.84,8004.2,2,2,0)
;;=To 'OR' Condition 'A' with Condition 'B', type 'A',
;;^UTILITY(U,$J,.84,8004.2,2,3,0)
;;=and then type 'B' at the next "OR:" prompt.
;;^UTILITY(U,$J,.84,8004.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8004.2,5,1,0)
;;=DIS0^BAD+1
;;^UTILITY(U,$J,.84,8009,0)
;;=8009^2^^5
;;^UTILITY(U,$J,.84,8009,1,0)
;;=^^2^2^2940908^^^^
;;^UTILITY(U,$J,.84,8009,1,1,0)
;;=This is the normal help message given if user enters a question mark when
;;^UTILITY(U,$J,.84,8009,1,2,0)
;;=being prompted for the HEADER during a FileMan print.
;;^UTILITY(U,$J,.84,8009,2,0)
;;=^^3^3^2940908^
;;^UTILITY(U,$J,.84,8009,2,1,0)
;;=Accept default heading or enter a custom heading.
;;^UTILITY(U,$J,.84,8009,2,2,0)
;;=For no heading at all, type @.
;;^UTILITY(U,$J,.84,8009,2,3,0)
;;=To use a Print Template for the heading, type [TEMPLATE NAME].
;;^UTILITY(U,$J,.84,8009,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8009,5,1,0)
;;=DIP^EN1
;;^UTILITY(U,$J,.84,8009,5,2,0)
;;=DIS^ENS
;;^UTILITY(U,$J,.84,8010,0)
;;=8010^2^y^5
;;^UTILITY(U,$J,.84,8010,1,0)
;;=^^1^1^2931102^^^^
;;^UTILITY(U,$J,.84,8010,1,1,0)
;;=Print dialog coming from routine ^DIP31.
;;^UTILITY(U,$J,.84,8010,2,0)
;;=^^1^1^2931102^
;;^UTILITY(U,$J,.84,8010,2,1,0)
;;=** Suppress the |1|.
;;^UTILITY(U,$J,.84,8010,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8010,3,1,0)
;;=1^Text from either entry #8006 or #8007, depending on whether it's called from the SEARCH or PRINT Options.
;;^UTILITY(U,$J,.84,8010,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8010,5,1,0)
;;=DIP^EN1
;;^UTILITY(U,$J,.84,8010,5,2,0)
;;=DIS^ENS
;;^UTILITY(U,$J,.84,8011,0)
;;=8011^2^y^5
;;^UTILITY(U,$J,.84,8011,1,0)
;;=^^1^1^2940526^^^^
;;^UTILITY(U,$J,.84,8011,1,1,0)
;;=Dialog coming from routine ^DIP31
;;^UTILITY(U,$J,.84,8011,2,0)
;;=^^1^1^2940526^
;;^UTILITY(U,$J,.84,8011,2,1,0)
;;=** print |1| Criteria in heading.
;;^UTILITY(U,$J,.84,8011,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8011,3,1,0)
;;=1^The word SORT or SEARCH, depending on which option we're coming from.
;;^UTILITY(U,$J,.84,8011,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8011,5,1,0)
;;=DIP^EN1
;;^UTILITY(U,$J,.84,8011,5,2,0)
;;=DIS^ENS
;;^UTILITY(U,$J,.84,8012,0)
;;=8012^2^^5
;;^UTILITY(U,$J,.84,8012,1,0)
;;=^^2^2^2931102^^^
;;^UTILITY(U,$J,.84,8012,1,1,0)
;;=The word HEADING to be used in the prompt for the heading from the FileMan
;;^UTILITY(U,$J,.84,8012,1,2,0)
;;=PRINT option.
;;^UTILITY(U,$J,.84,8012,2,0)
;;=^^1^1^2931102^
;;^UTILITY(U,$J,.84,8012,2,1,0)
;;=Heading
;;^UTILITY(U,$J,.84,8012,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8012,5,1,0)
;;=DIP^EN1
;;^UTILITY(U,$J,.84,8012,5,2,0)
;;=DIS^ENS
;;^UTILITY(U,$J,.84,8013,0)
;;=8013^2^^5
;;^UTILITY(U,$J,.84,8013,1,0)
;;=^^3^3^2931105^^
;;^UTILITY(U,$J,.84,8013,1,1,0)
;;=The DD for the file of files is not completely FileMan compatible. This
;;^UTILITY(U,$J,.84,8013,1,2,0)
;;=is the field name prompt for the POST-SELECTION ACTION field on the file
;;^UTILITY(U,$J,.84,8013,1,3,0)
;;=of files. Prompt appears when file attributes.
;;^UTILITY(U,$J,.84,8013,2,0)
;;=^^1^1^2931105^^
;;^UTILITY(U,$J,.84,8013,2,1,0)
;;=POST-SELECTION ACTION
;;^UTILITY(U,$J,.84,8013,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8013,5,1,0)
;;=DIU0^6
;;^UTILITY(U,$J,.84,8014,0)
;;=8014^2^^5
;;^UTILITY(U,$J,.84,8014,1,0)
;;=^^3^3^2931105^
;;^UTILITY(U,$J,.84,8014,1,1,0)
;;=The DD for the file of files is not completely FileMan compatible. This
;;^UTILITY(U,$J,.84,8014,1,2,0)
;;=is the field name prompt for the LOOK-UP PROGRAM field on the file
;;^UTILITY(U,$J,.84,8014,1,3,0)
;;=of files. Prompt appears when file attributes are edited.
;;^UTILITY(U,$J,.84,8014,2,0)
;;=^^1^1^2931105^
;;^UTILITY(U,$J,.84,8014,2,1,0)
;;=LOOK-UP PROGRAM
;;^UTILITY(U,$J,.84,8014,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8014,5,1,0)
;;=DIU0^6
;;^UTILITY(U,$J,.84,8015,0)
;;=8015^2^^5
;;^UTILITY(U,$J,.84,8015,1,0)
;;=^^2^2^2931105^
;;^UTILITY(U,$J,.84,8015,1,1,0)
;;=Standard prompt to verify to the user that they just deleted something
;;^UTILITY(U,$J,.84,8015,1,2,0)
;;=with the "@".
;;^UTILITY(U,$J,.84,8015,2,0)
;;=^^1^1^2931105^
;;^UTILITY(U,$J,.84,8015,2,1,0)
;;=Deleted.
;;^UTILITY(U,$J,.84,8015,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8015,5,1,0)
;;=DIU0^6
;;^UTILITY(U,$J,.84,8016,0)
;;=8016^2^y^5
;;^UTILITY(U,$J,.84,8016,1,0)
;;=^^2^2^2931105^^^^
;;^UTILITY(U,$J,.84,8016,1,1,0)
;;=Called after performing routine existence test to tell user that routine
;;^UTILITY(U,$J,.84,8016,1,2,0)
;;=is already in their directory.
;;^UTILITY(U,$J,.84,8016,2,0)
;;=^^1^1^2931105^
;;^UTILITY(U,$J,.84,8016,2,1,0)
;;=Note that |1| is already in the routine directory.
;;^UTILITY(U,$J,.84,8016,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8016,3,1,0)
;;=1^Name of the routine.
;;^UTILITY(U,$J,.84,8016,5,0)
;;=^.841^4^4
;;^UTILITY(U,$J,.84,8016,5,1,0)
;;=DIU0^6
;;^UTILITY(U,$J,.84,8016,5,2,0)
;;=DIEZ^
;;^UTILITY(U,$J,.84,8016,5,3,0)
;;=DIKZ^
;;^UTILITY(U,$J,.84,8016,5,4,0)
;;=DIPZ^
;;^UTILITY(U,$J,.84,8017,0)
;;=8017^2^^5
;;^UTILITY(U,$J,.84,8017,1,0)
;;=^^2^2^2931105^
;;^UTILITY(U,$J,.84,8017,1,1,0)
;;=Message warning user that a routine does not exist in their routine
;;^UTILITY(U,$J,.84,8017,1,2,0)
;;=directory.
;;^UTILITY(U,$J,.84,8017,2,0)
;;=^^1^1^2931105^
;;^UTILITY(U,$J,.84,8017,2,1,0)
;;=This routine does not exist in the routine directory.
;;^UTILITY(U,$J,.84,8017,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8017,5,1,0)
;;=DIU0^6
;;^UTILITY(U,$J,.84,8018,0)
;;=8018^2^y^5
;;^UTILITY(U,$J,.84,8018,1,0)
;;=^^2^2^2931105^
;;^UTILITY(U,$J,.84,8018,1,1,0)
;;=Prompt showing the user a routine name previously used for compiled
;;^UTILITY(U,$J,.84,8018,1,2,0)
;;=routines (input templates, print templates, cross-references).
;;^UTILITY(U,$J,.84,8018,2,0)
;;=^^1^1^2931105^
;;^UTILITY(U,$J,.84,8018,2,1,0)
;;=Previously compiled under routine name |1|.
;;^UTILITY(U,$J,.84,8018,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8018,3,1,0)
;;=1^Routine name from "DIKOLD" or "ROUOLD" nodes in templates or DD for cross-references.
;;^UTILITY(U,$J,.84,8018,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8018,5,1,0)
;;=DIU0^6
;;^UTILITY(U,$J,.84,8019,0)
;;=8019^2^^5
;;^UTILITY(U,$J,.84,8019,1,0)
;;=^^3^3^2931105^^
;;^UTILITY(U,$J,.84,8019,1,1,0)
;;=The DD for the file of files is not completely FileMan compatible. This
;;^UTILITY(U,$J,.84,8019,1,2,0)
;;=is the field name prompt for the CROSS-REFERENCE ROUTINE field on the file
;;^UTILITY(U,$J,.84,8019,1,3,0)
;;=of files. Prompt appears when file attributes are edited.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00G 8327 printed Sep 23, 2025@20:25:50 Page 2
DINIT00G ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;21FEB2005
+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,8008,2,1,0)
+2 ;;=Heading (S/C)
+3 ;;^UTILITY(U,$J,.84,8008,5,0)
+4 ;;=^.841^2^2
+5 ;;^UTILITY(U,$J,.84,8008,5,1,0)
+6 ;;=DIP^EN1
+7 ;;^UTILITY(U,$J,.84,8008,5,2,0)
+8 ;;=DIS^ENS
+9 ;;^UTILITY(U,$J,.84,8004.1,0)
+10 ;;=8004.1^3^^13^HELP FOR ONE SEARCH CRITERION ('A')
+11 ;;^UTILITY(U,$J,.84,8004.1,2,0)
+12 ;;=^.844^3^3^3050131^^
+13 ;;^UTILITY(U,$J,.84,8004.1,2,1,0)
+14 ;;=To search on the condition you have just typed, hit 'Enter'.
+15 ;;^UTILITY(U,$J,.84,8004.1,2,2,0)
+16 ;;=To search for the NEGATIVE of the condition,
+17 ;;^UTILITY(U,$J,.84,8004.1,2,3,0)
+18 ;;=type "'A". The "'" character means "negation".
+19 ;;^UTILITY(U,$J,.84,8004.1,5,0)
+20 ;;=^.841^1^1
+21 ;;^UTILITY(U,$J,.84,8004.1,5,1,0)
+22 ;;=DIS0^BAD+1
+23 ;;^UTILITY(U,$J,.84,8004.2,0)
+24 ;;=8004.2^3^^13^HELP AFTER 'IF: ' FOR MULTIPLE CONDITIONS
+25 ;;^UTILITY(U,$J,.84,8004.2,2,0)
+26 ;;=^^3^3^3050131^
+27 ;;^UTILITY(U,$J,.84,8004.2,2,1,0)
+28 ;;=To 'AND' Condition 'A' with Condition 'B', type 'A&B'.
+29 ;;^UTILITY(U,$J,.84,8004.2,2,2,0)
+30 ;;=To 'OR' Condition 'A' with Condition 'B', type 'A',
+31 ;;^UTILITY(U,$J,.84,8004.2,2,3,0)
+32 ;;=and then type 'B' at the next "OR:" prompt.
+33 ;;^UTILITY(U,$J,.84,8004.2,5,0)
+34 ;;=^.841^1^1
+35 ;;^UTILITY(U,$J,.84,8004.2,5,1,0)
+36 ;;=DIS0^BAD+1
+37 ;;^UTILITY(U,$J,.84,8009,0)
+38 ;;=8009^2^^5
+39 ;;^UTILITY(U,$J,.84,8009,1,0)
+40 ;;=^^2^2^2940908^^^^
+41 ;;^UTILITY(U,$J,.84,8009,1,1,0)
+42 ;;=This is the normal help message given if user enters a question mark when
+43 ;;^UTILITY(U,$J,.84,8009,1,2,0)
+44 ;;=being prompted for the HEADER during a FileMan print.
+45 ;;^UTILITY(U,$J,.84,8009,2,0)
+46 ;;=^^3^3^2940908^
+47 ;;^UTILITY(U,$J,.84,8009,2,1,0)
+48 ;;=Accept default heading or enter a custom heading.
+49 ;;^UTILITY(U,$J,.84,8009,2,2,0)
+50 ;;=For no heading at all, type @.
+51 ;;^UTILITY(U,$J,.84,8009,2,3,0)
+52 ;;=To use a Print Template for the heading, type [TEMPLATE NAME].
+53 ;;^UTILITY(U,$J,.84,8009,5,0)
+54 ;;=^.841^2^2
+55 ;;^UTILITY(U,$J,.84,8009,5,1,0)
+56 ;;=DIP^EN1
+57 ;;^UTILITY(U,$J,.84,8009,5,2,0)
+58 ;;=DIS^ENS
+59 ;;^UTILITY(U,$J,.84,8010,0)
+60 ;;=8010^2^y^5
+61 ;;^UTILITY(U,$J,.84,8010,1,0)
+62 ;;=^^1^1^2931102^^^^
+63 ;;^UTILITY(U,$J,.84,8010,1,1,0)
+64 ;;=Print dialog coming from routine ^DIP31.
+65 ;;^UTILITY(U,$J,.84,8010,2,0)
+66 ;;=^^1^1^2931102^
+67 ;;^UTILITY(U,$J,.84,8010,2,1,0)
+68 ;;=** Suppress the |1|.
+69 ;;^UTILITY(U,$J,.84,8010,3,0)
+70 ;;=^.845^1^1
+71 ;;^UTILITY(U,$J,.84,8010,3,1,0)
+72 ;;=1^Text from either entry #8006 or #8007, depending on whether it's called from the SEARCH or PRINT Options.
+73 ;;^UTILITY(U,$J,.84,8010,5,0)
+74 ;;=^.841^2^2
+75 ;;^UTILITY(U,$J,.84,8010,5,1,0)
+76 ;;=DIP^EN1
+77 ;;^UTILITY(U,$J,.84,8010,5,2,0)
+78 ;;=DIS^ENS
+79 ;;^UTILITY(U,$J,.84,8011,0)
+80 ;;=8011^2^y^5
+81 ;;^UTILITY(U,$J,.84,8011,1,0)
+82 ;;=^^1^1^2940526^^^^
+83 ;;^UTILITY(U,$J,.84,8011,1,1,0)
+84 ;;=Dialog coming from routine ^DIP31
+85 ;;^UTILITY(U,$J,.84,8011,2,0)
+86 ;;=^^1^1^2940526^
+87 ;;^UTILITY(U,$J,.84,8011,2,1,0)
+88 ;;=** print |1| Criteria in heading.
+89 ;;^UTILITY(U,$J,.84,8011,3,0)
+90 ;;=^.845^1^1
+91 ;;^UTILITY(U,$J,.84,8011,3,1,0)
+92 ;;=1^The word SORT or SEARCH, depending on which option we're coming from.
+93 ;;^UTILITY(U,$J,.84,8011,5,0)
+94 ;;=^.841^2^2
+95 ;;^UTILITY(U,$J,.84,8011,5,1,0)
+96 ;;=DIP^EN1
+97 ;;^UTILITY(U,$J,.84,8011,5,2,0)
+98 ;;=DIS^ENS
+99 ;;^UTILITY(U,$J,.84,8012,0)
+100 ;;=8012^2^^5
+101 ;;^UTILITY(U,$J,.84,8012,1,0)
+102 ;;=^^2^2^2931102^^^
+103 ;;^UTILITY(U,$J,.84,8012,1,1,0)
+104 ;;=The word HEADING to be used in the prompt for the heading from the FileMan
+105 ;;^UTILITY(U,$J,.84,8012,1,2,0)
+106 ;;=PRINT option.
+107 ;;^UTILITY(U,$J,.84,8012,2,0)
+108 ;;=^^1^1^2931102^
+109 ;;^UTILITY(U,$J,.84,8012,2,1,0)
+110 ;;=Heading
+111 ;;^UTILITY(U,$J,.84,8012,5,0)
+112 ;;=^.841^2^2
+113 ;;^UTILITY(U,$J,.84,8012,5,1,0)
+114 ;;=DIP^EN1
+115 ;;^UTILITY(U,$J,.84,8012,5,2,0)
+116 ;;=DIS^ENS
+117 ;;^UTILITY(U,$J,.84,8013,0)
+118 ;;=8013^2^^5
+119 ;;^UTILITY(U,$J,.84,8013,1,0)
+120 ;;=^^3^3^2931105^^
+121 ;;^UTILITY(U,$J,.84,8013,1,1,0)
+122 ;;=The DD for the file of files is not completely FileMan compatible. This
+123 ;;^UTILITY(U,$J,.84,8013,1,2,0)
+124 ;;=is the field name prompt for the POST-SELECTION ACTION field on the file
+125 ;;^UTILITY(U,$J,.84,8013,1,3,0)
+126 ;;=of files. Prompt appears when file attributes.
+127 ;;^UTILITY(U,$J,.84,8013,2,0)
+128 ;;=^^1^1^2931105^^
+129 ;;^UTILITY(U,$J,.84,8013,2,1,0)
+130 ;;=POST-SELECTION ACTION
+131 ;;^UTILITY(U,$J,.84,8013,5,0)
+132 ;;=^.841^1^1
+133 ;;^UTILITY(U,$J,.84,8013,5,1,0)
+134 ;;=DIU0^6
+135 ;;^UTILITY(U,$J,.84,8014,0)
+136 ;;=8014^2^^5
+137 ;;^UTILITY(U,$J,.84,8014,1,0)
+138 ;;=^^3^3^2931105^
+139 ;;^UTILITY(U,$J,.84,8014,1,1,0)
+140 ;;=The DD for the file of files is not completely FileMan compatible. This
+141 ;;^UTILITY(U,$J,.84,8014,1,2,0)
+142 ;;=is the field name prompt for the LOOK-UP PROGRAM field on the file
+143 ;;^UTILITY(U,$J,.84,8014,1,3,0)
+144 ;;=of files. Prompt appears when file attributes are edited.
+145 ;;^UTILITY(U,$J,.84,8014,2,0)
+146 ;;=^^1^1^2931105^
+147 ;;^UTILITY(U,$J,.84,8014,2,1,0)
+148 ;;=LOOK-UP PROGRAM
+149 ;;^UTILITY(U,$J,.84,8014,5,0)
+150 ;;=^.841^1^1
+151 ;;^UTILITY(U,$J,.84,8014,5,1,0)
+152 ;;=DIU0^6
+153 ;;^UTILITY(U,$J,.84,8015,0)
+154 ;;=8015^2^^5
+155 ;;^UTILITY(U,$J,.84,8015,1,0)
+156 ;;=^^2^2^2931105^
+157 ;;^UTILITY(U,$J,.84,8015,1,1,0)
+158 ;;=Standard prompt to verify to the user that they just deleted something
+159 ;;^UTILITY(U,$J,.84,8015,1,2,0)
+160 ;;=with the "@".
+161 ;;^UTILITY(U,$J,.84,8015,2,0)
+162 ;;=^^1^1^2931105^
+163 ;;^UTILITY(U,$J,.84,8015,2,1,0)
+164 ;;=Deleted.
+165 ;;^UTILITY(U,$J,.84,8015,5,0)
+166 ;;=^.841^1^1
+167 ;;^UTILITY(U,$J,.84,8015,5,1,0)
+168 ;;=DIU0^6
+169 ;;^UTILITY(U,$J,.84,8016,0)
+170 ;;=8016^2^y^5
+171 ;;^UTILITY(U,$J,.84,8016,1,0)
+172 ;;=^^2^2^2931105^^^^
+173 ;;^UTILITY(U,$J,.84,8016,1,1,0)
+174 ;;=Called after performing routine existence test to tell user that routine
+175 ;;^UTILITY(U,$J,.84,8016,1,2,0)
+176 ;;=is already in their directory.
+177 ;;^UTILITY(U,$J,.84,8016,2,0)
+178 ;;=^^1^1^2931105^
+179 ;;^UTILITY(U,$J,.84,8016,2,1,0)
+180 ;;=Note that |1| is already in the routine directory.
+181 ;;^UTILITY(U,$J,.84,8016,3,0)
+182 ;;=^.845^1^1
+183 ;;^UTILITY(U,$J,.84,8016,3,1,0)
+184 ;;=1^Name of the routine.
+185 ;;^UTILITY(U,$J,.84,8016,5,0)
+186 ;;=^.841^4^4
+187 ;;^UTILITY(U,$J,.84,8016,5,1,0)
+188 ;;=DIU0^6
+189 ;;^UTILITY(U,$J,.84,8016,5,2,0)
+190 ;;=DIEZ^
+191 ;;^UTILITY(U,$J,.84,8016,5,3,0)
+192 ;;=DIKZ^
+193 ;;^UTILITY(U,$J,.84,8016,5,4,0)
+194 ;;=DIPZ^
+195 ;;^UTILITY(U,$J,.84,8017,0)
+196 ;;=8017^2^^5
+197 ;;^UTILITY(U,$J,.84,8017,1,0)
+198 ;;=^^2^2^2931105^
+199 ;;^UTILITY(U,$J,.84,8017,1,1,0)
+200 ;;=Message warning user that a routine does not exist in their routine
+201 ;;^UTILITY(U,$J,.84,8017,1,2,0)
+202 ;;=directory.
+203 ;;^UTILITY(U,$J,.84,8017,2,0)
+204 ;;=^^1^1^2931105^
+205 ;;^UTILITY(U,$J,.84,8017,2,1,0)
+206 ;;=This routine does not exist in the routine directory.
+207 ;;^UTILITY(U,$J,.84,8017,5,0)
+208 ;;=^.841^1^1
+209 ;;^UTILITY(U,$J,.84,8017,5,1,0)
+210 ;;=DIU0^6
+211 ;;^UTILITY(U,$J,.84,8018,0)
+212 ;;=8018^2^y^5
+213 ;;^UTILITY(U,$J,.84,8018,1,0)
+214 ;;=^^2^2^2931105^
+215 ;;^UTILITY(U,$J,.84,8018,1,1,0)
+216 ;;=Prompt showing the user a routine name previously used for compiled
+217 ;;^UTILITY(U,$J,.84,8018,1,2,0)
+218 ;;=routines (input templates, print templates, cross-references).
+219 ;;^UTILITY(U,$J,.84,8018,2,0)
+220 ;;=^^1^1^2931105^
+221 ;;^UTILITY(U,$J,.84,8018,2,1,0)
+222 ;;=Previously compiled under routine name |1|.
+223 ;;^UTILITY(U,$J,.84,8018,3,0)
+224 ;;=^.845^1^1
+225 ;;^UTILITY(U,$J,.84,8018,3,1,0)
+226 ;;=1^Routine name from "DIKOLD" or "ROUOLD" nodes in templates or DD for cross-references.
+227 ;;^UTILITY(U,$J,.84,8018,5,0)
+228 ;;=^.841^1^1
+229 ;;^UTILITY(U,$J,.84,8018,5,1,0)
+230 ;;=DIU0^6
+231 ;;^UTILITY(U,$J,.84,8019,0)
+232 ;;=8019^2^^5
+233 ;;^UTILITY(U,$J,.84,8019,1,0)
+234 ;;=^^3^3^2931105^^
+235 ;;^UTILITY(U,$J,.84,8019,1,1,0)
+236 ;;=The DD for the file of files is not completely FileMan compatible. This
+237 ;;^UTILITY(U,$J,.84,8019,1,2,0)
+238 ;;=is the field name prompt for the CROSS-REFERENCE ROUTINE field on the file
+239 ;;^UTILITY(U,$J,.84,8019,1,3,0)
+240 ;;=of files. Prompt appears when file attributes are edited.
