DINIT00N ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;06:19 PM 21 Aug 2002
;;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,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 <Enter> 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 <Enter> 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 <Enter> 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^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00N 7196 printed Sep 23, 2025@20:25:57 Page 2
DINIT00N ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;06:19 PM 21 Aug 2002
+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,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 <Enter> 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 <Enter> 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 <Enter> 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^
