DINIT00S ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;08DEC2015
;;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,9202,2,5,0)
;;=selected, pressing the arrow right key causes the jump to occur. To return to
;;^UTILITY(U,$J,.84,9202,2,6,0)
;;=the previous jump location from the jump, press the arrow left key. On the
;;^UTILITY(U,$J,.84,9202,2,7,0)
;;=return, the selected hypertext represent the previous jump made.
;;^UTILITY(U,$J,.84,9202,2,8,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,9,0)
;;=To EXIT the VA FileMan Browser, in hypertext mode, press <PF1> followed by the
;;^UTILITY(U,$J,.84,9202,2,10,0)
;;=letter 'E'. This is also true for this HELP document which is being presented
;;^UTILITY(U,$J,.84,9202,2,11,0)
;;=by the Browser, in hypertext mode. Pressing the letter 'R', returns the Browser
;;^UTILITY(U,$J,.84,9202,2,12,0)
;;=to the hypertext document.
;;^UTILITY(U,$J,.84,9202,2,13,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,14,0)
;;=For help, select, using TAB and press ARROW RIGHT to jump:
;;^UTILITY(U,$J,.84,9202,2,15,0)
;;= * $.%#NAVIGATION^Navigation$.%
;;^UTILITY(U,$J,.84,9202,2,16,0)
;;= * $.%#SEARCH^Search$.%
;;^UTILITY(U,$J,.84,9202,2,17,0)
;;= * $.%#SCREEN^Screen$.%
;;^UTILITY(U,$J,.84,9202,2,18,0)
;;= * $.%#CLIPBOARD^Clipboard$.%
;;^UTILITY(U,$J,.84,9202,2,19,0)
;;= * $.%#HELP^Help$.%
;;^UTILITY(U,$J,.84,9202,2,20,0)
;;= * $.%#EXIT^Exit$.%
;;^UTILITY(U,$J,.84,9202,2,21,0)
;;= * $.%#MORE_HELP^More Help$.%
;;^UTILITY(U,$J,.84,9202,2,22,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,23,0)
;;= ---------------------------------------------------------------------------
;;^UTILITY(U,$J,.84,9202,2,24,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,25,0)
;;=$.$NAVIGATION$.$NAVIGATION:
;;^UTILITY(U,$J,.84,9202,2,26,0)
;;============
;;^UTILITY(U,$J,.84,9202,2,27,0)
;;=Select hypertext, left to right and down TAB
;;^UTILITY(U,$J,.84,9202,2,28,0)
;;=Select hypertext right to left and up Q
;;^UTILITY(U,$J,.84,9202,2,29,0)
;;=Invoke hypertext jump, selected ARROW RIGHT
;;^UTILITY(U,$J,.84,9202,2,30,0)
;;=Return from hypertext jump ARROW LEFT
;;^UTILITY(U,$J,.84,9202,2,31,0)
;;=Scroll Down (one line) ARROW DOWN
;;^UTILITY(U,$J,.84,9202,2,32,0)
;;=Scroll Up (one line) ARROW UP
;;^UTILITY(U,$J,.84,9202,2,33,0)
;;=Page Down <PF1>ARROW DOWN
;;^UTILITY(U,$J,.84,9202,2,34,0)
;;=Page Up <PF1>ARROW UP
;;^UTILITY(U,$J,.84,9202,2,35,0)
;;=Jump to the Top <PF1>T
;;^UTILITY(U,$J,.84,9202,2,36,0)
;;=Jump to the Bottom <PF1>B
;;^UTILITY(U,$J,.84,9202,2,37,0)
;;=Goto <PF1>G
;;^UTILITY(U,$J,.84,9202,2,38,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,39,0)
;;=$.$SEARCH$.$SEARCH:
;;^UTILITY(U,$J,.84,9202,2,40,0)
;;========
;;^UTILITY(U,$J,.84,9202,2,41,0)
;;=Find text <PF1>F
;;^UTILITY(U,$J,.84,9202,2,42,0)
;;=Next (occurrence) <PF1>N
;;^UTILITY(U,$J,.84,9202,2,43,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,44,0)
;;=Direction-terminate find text with:
;;^UTILITY(U,$J,.84,9202,2,45,0)
;;=-----------------------------------
;;^UTILITY(U,$J,.84,9202,2,46,0)
;;=Down ARROW DOWN
;;^UTILITY(U,$J,.84,9202,2,47,0)
;;=Up ARROW UP
;;^UTILITY(U,$J,.84,9202,2,48,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,49,0)
;;=$.$SCREEN$.$SCREEN:
;;^UTILITY(U,$J,.84,9202,2,50,0)
;;========
;;^UTILITY(U,$J,.84,9202,2,51,0)
;;=Repaint screen <PF1>P
;;^UTILITY(U,$J,.84,9202,2,52,0)
;;=Split screen <PF2>S
;;^UTILITY(U,$J,.84,9202,2,53,0)
;;=Restore Full screen <PF2>F
;;^UTILITY(U,$J,.84,9202,2,54,0)
;;=Print document <PF1><PF1>P
;;^UTILITY(U,$J,.84,9202,2,55,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,56,0)
;;=Split Screen Mode Navigation:
;;^UTILITY(U,$J,.84,9202,2,57,0)
;;=-----------------------------
;;^UTILITY(U,$J,.84,9202,2,58,0)
;;=Navigate to bottom screen <PF2>ARROW DOWN
;;^UTILITY(U,$J,.84,9202,2,59,0)
;;=Navigate to top screen <PF2>ARROW UP
;;^UTILITY(U,$J,.84,9202,2,60,0)
;;=Resize Split Screen:
;;^UTILITY(U,$J,.84,9202,2,61,0)
;;=--------------------
;;^UTILITY(U,$J,.84,9202,2,62,0)
;;=Top/Bottom screen larger/smaller <PF2><PF2>ARROW DOWN
;;^UTILITY(U,$J,.84,9202,2,63,0)
;;=Bottom/Top screen larger/smaller <PF2><PF2>ARROW UP
;;^UTILITY(U,$J,.84,9202,2,64,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,65,0)
;;=$.$HELP$.$HELP:
;;^UTILITY(U,$J,.84,9202,2,66,0)
;;======
;;^UTILITY(U,$J,.84,9202,2,67,0)
;;=Browse Key Summary <PF1>H
;;^UTILITY(U,$J,.84,9202,2,68,0)
;;=More Help <PF1><PF1>H
;;^UTILITY(U,$J,.84,9202,2,69,0)
;;=Print Help <PF1><PF1><PF1>H
;;^UTILITY(U,$J,.84,9202,2,70,0)
;;=Return to hypertext document, from HELP R
;;^UTILITY(U,$J,.84,9202,2,71,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,72,0)
;;=$.$CLIPBOARD$.$CLIPBOARD:
;;^UTILITY(U,$J,.84,9202,2,73,0)
;;===========
;;^UTILITY(U,$J,.84,9202,2,74,0)
;;=Copy to FileMan's Clipboard <PF1>C
;;^UTILITY(U,$J,.84,9202,2,75,0)
;;=View FileMan's Clipboard <PF1>V
;;^UTILITY(U,$J,.84,9202,2,76,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,77,0)
;;=$.$EXIT$.$EXIT:
;;^UTILITY(U,$J,.84,9202,2,78,0)
;;======
;;^UTILITY(U,$J,.84,9202,2,79,0)
;;=Exit Browser or help text <PF1>E or "EXIT"
;;^UTILITY(U,$J,.84,9202,2,80,0)
;;=Quit <PF1>Q or <Ctrl-E>
;;^UTILITY(U,$J,.84,9202,2,81,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,82,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,83,0)
;;= ---------------------------------------------------------------------------
;;^UTILITY(U,$J,.84,9202,2,84,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,85,0)
;;=$.$MORE_HELP$.$MORE HELP
;;^UTILITY(U,$J,.84,9202,2,86,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,87,0)
;;=To GOTO a specific screen or line press the <PF1> key followed by the letter
;;^UTILITY(U,$J,.84,9202,2,88,0)
;;='G'. This will cause a prompt to be displayed where a screen or line number can
;;^UTILITY(U,$J,.84,9202,2,89,0)
;;=be entered preceded by an 'S' or 'L'. The default is screen, meaning that the
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00S 7188 printed Sep 23, 2025@20:26:01 Page 2
DINIT00S ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;08DEC2015
+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,9202,2,5,0)
+2 ;;=selected, pressing the arrow right key causes the jump to occur. To return to
+3 ;;^UTILITY(U,$J,.84,9202,2,6,0)
+4 ;;=the previous jump location from the jump, press the arrow left key. On the
+5 ;;^UTILITY(U,$J,.84,9202,2,7,0)
+6 ;;=return, the selected hypertext represent the previous jump made.
+7 ;;^UTILITY(U,$J,.84,9202,2,8,0)
+8 ;;=
+9 ;;^UTILITY(U,$J,.84,9202,2,9,0)
+10 ;;=To EXIT the VA FileMan Browser, in hypertext mode, press <PF1> followed by the
+11 ;;^UTILITY(U,$J,.84,9202,2,10,0)
+12 ;;=letter 'E'. This is also true for this HELP document which is being presented
+13 ;;^UTILITY(U,$J,.84,9202,2,11,0)
+14 ;;=by the Browser, in hypertext mode. Pressing the letter 'R', returns the Browser
+15 ;;^UTILITY(U,$J,.84,9202,2,12,0)
+16 ;;=to the hypertext document.
+17 ;;^UTILITY(U,$J,.84,9202,2,13,0)
+18 ;;=
+19 ;;^UTILITY(U,$J,.84,9202,2,14,0)
+20 ;;=For help, select, using TAB and press ARROW RIGHT to jump:
+21 ;;^UTILITY(U,$J,.84,9202,2,15,0)
+22 ;;= * $.%#NAVIGATION^Navigation$.%
+23 ;;^UTILITY(U,$J,.84,9202,2,16,0)
+24 ;;= * $.%#SEARCH^Search$.%
+25 ;;^UTILITY(U,$J,.84,9202,2,17,0)
+26 ;;= * $.%#SCREEN^Screen$.%
+27 ;;^UTILITY(U,$J,.84,9202,2,18,0)
+28 ;;= * $.%#CLIPBOARD^Clipboard$.%
+29 ;;^UTILITY(U,$J,.84,9202,2,19,0)
+30 ;;= * $.%#HELP^Help$.%
+31 ;;^UTILITY(U,$J,.84,9202,2,20,0)
+32 ;;= * $.%#EXIT^Exit$.%
+33 ;;^UTILITY(U,$J,.84,9202,2,21,0)
+34 ;;= * $.%#MORE_HELP^More Help$.%
+35 ;;^UTILITY(U,$J,.84,9202,2,22,0)
+36 ;;=
+37 ;;^UTILITY(U,$J,.84,9202,2,23,0)
+38 ;;= ---------------------------------------------------------------------------
+39 ;;^UTILITY(U,$J,.84,9202,2,24,0)
+40 ;;=
+41 ;;^UTILITY(U,$J,.84,9202,2,25,0)
+42 ;;=$.$NAVIGATION$.$NAVIGATION:
+43 ;;^UTILITY(U,$J,.84,9202,2,26,0)
+44 ;;============
+45 ;;^UTILITY(U,$J,.84,9202,2,27,0)
+46 ;;=Select hypertext, left to right and down TAB
+47 ;;^UTILITY(U,$J,.84,9202,2,28,0)
+48 ;;=Select hypertext right to left and up Q
+49 ;;^UTILITY(U,$J,.84,9202,2,29,0)
+50 ;;=Invoke hypertext jump, selected ARROW RIGHT
+51 ;;^UTILITY(U,$J,.84,9202,2,30,0)
+52 ;;=Return from hypertext jump ARROW LEFT
+53 ;;^UTILITY(U,$J,.84,9202,2,31,0)
+54 ;;=Scroll Down (one line) ARROW DOWN
+55 ;;^UTILITY(U,$J,.84,9202,2,32,0)
+56 ;;=Scroll Up (one line) ARROW UP
+57 ;;^UTILITY(U,$J,.84,9202,2,33,0)
+58 ;;=Page Down <PF1>ARROW DOWN
+59 ;;^UTILITY(U,$J,.84,9202,2,34,0)
+60 ;;=Page Up <PF1>ARROW UP
+61 ;;^UTILITY(U,$J,.84,9202,2,35,0)
+62 ;;=Jump to the Top <PF1>T
+63 ;;^UTILITY(U,$J,.84,9202,2,36,0)
+64 ;;=Jump to the Bottom <PF1>B
+65 ;;^UTILITY(U,$J,.84,9202,2,37,0)
+66 ;;=Goto <PF1>G
+67 ;;^UTILITY(U,$J,.84,9202,2,38,0)
+68 ;;=
+69 ;;^UTILITY(U,$J,.84,9202,2,39,0)
+70 ;;=$.$SEARCH$.$SEARCH:
+71 ;;^UTILITY(U,$J,.84,9202,2,40,0)
+72 ;;========
+73 ;;^UTILITY(U,$J,.84,9202,2,41,0)
+74 ;;=Find text <PF1>F
+75 ;;^UTILITY(U,$J,.84,9202,2,42,0)
+76 ;;=Next (occurrence) <PF1>N
+77 ;;^UTILITY(U,$J,.84,9202,2,43,0)
+78 ;;=
+79 ;;^UTILITY(U,$J,.84,9202,2,44,0)
+80 ;;=Direction-terminate find text with:
+81 ;;^UTILITY(U,$J,.84,9202,2,45,0)
+82 ;;=-----------------------------------
+83 ;;^UTILITY(U,$J,.84,9202,2,46,0)
+84 ;;=Down ARROW DOWN
+85 ;;^UTILITY(U,$J,.84,9202,2,47,0)
+86 ;;=Up ARROW UP
+87 ;;^UTILITY(U,$J,.84,9202,2,48,0)
+88 ;;=
+89 ;;^UTILITY(U,$J,.84,9202,2,49,0)
+90 ;;=$.$SCREEN$.$SCREEN:
+91 ;;^UTILITY(U,$J,.84,9202,2,50,0)
+92 ;;========
+93 ;;^UTILITY(U,$J,.84,9202,2,51,0)
+94 ;;=Repaint screen <PF1>P
+95 ;;^UTILITY(U,$J,.84,9202,2,52,0)
+96 ;;=Split screen <PF2>S
+97 ;;^UTILITY(U,$J,.84,9202,2,53,0)
+98 ;;=Restore Full screen <PF2>F
+99 ;;^UTILITY(U,$J,.84,9202,2,54,0)
+100 ;;=Print document <PF1><PF1>P
+101 ;;^UTILITY(U,$J,.84,9202,2,55,0)
+102 ;;=
+103 ;;^UTILITY(U,$J,.84,9202,2,56,0)
+104 ;;=Split Screen Mode Navigation:
+105 ;;^UTILITY(U,$J,.84,9202,2,57,0)
+106 ;;=-----------------------------
+107 ;;^UTILITY(U,$J,.84,9202,2,58,0)
+108 ;;=Navigate to bottom screen <PF2>ARROW DOWN
+109 ;;^UTILITY(U,$J,.84,9202,2,59,0)
+110 ;;=Navigate to top screen <PF2>ARROW UP
+111 ;;^UTILITY(U,$J,.84,9202,2,60,0)
+112 ;;=Resize Split Screen:
+113 ;;^UTILITY(U,$J,.84,9202,2,61,0)
+114 ;;=--------------------
+115 ;;^UTILITY(U,$J,.84,9202,2,62,0)
+116 ;;=Top/Bottom screen larger/smaller <PF2><PF2>ARROW DOWN
+117 ;;^UTILITY(U,$J,.84,9202,2,63,0)
+118 ;;=Bottom/Top screen larger/smaller <PF2><PF2>ARROW UP
+119 ;;^UTILITY(U,$J,.84,9202,2,64,0)
+120 ;;=
+121 ;;^UTILITY(U,$J,.84,9202,2,65,0)
+122 ;;=$.$HELP$.$HELP:
+123 ;;^UTILITY(U,$J,.84,9202,2,66,0)
+124 ;;======
+125 ;;^UTILITY(U,$J,.84,9202,2,67,0)
+126 ;;=Browse Key Summary <PF1>H
+127 ;;^UTILITY(U,$J,.84,9202,2,68,0)
+128 ;;=More Help <PF1><PF1>H
+129 ;;^UTILITY(U,$J,.84,9202,2,69,0)
+130 ;;=Print Help <PF1><PF1><PF1>H
+131 ;;^UTILITY(U,$J,.84,9202,2,70,0)
+132 ;;=Return to hypertext document, from HELP R
+133 ;;^UTILITY(U,$J,.84,9202,2,71,0)
+134 ;;=
+135 ;;^UTILITY(U,$J,.84,9202,2,72,0)
+136 ;;=$.$CLIPBOARD$.$CLIPBOARD:
+137 ;;^UTILITY(U,$J,.84,9202,2,73,0)
+138 ;;===========
+139 ;;^UTILITY(U,$J,.84,9202,2,74,0)
+140 ;;=Copy to FileMan's Clipboard <PF1>C
+141 ;;^UTILITY(U,$J,.84,9202,2,75,0)
+142 ;;=View FileMan's Clipboard <PF1>V
+143 ;;^UTILITY(U,$J,.84,9202,2,76,0)
+144 ;;=
+145 ;;^UTILITY(U,$J,.84,9202,2,77,0)
+146 ;;=$.$EXIT$.$EXIT:
+147 ;;^UTILITY(U,$J,.84,9202,2,78,0)
+148 ;;======
+149 ;;^UTILITY(U,$J,.84,9202,2,79,0)
+150 ;;=Exit Browser or help text <PF1>E or "EXIT"
+151 ;;^UTILITY(U,$J,.84,9202,2,80,0)
+152 ;;=Quit <PF1>Q or <Ctrl-E>
+153 ;;^UTILITY(U,$J,.84,9202,2,81,0)
+154 ;;=
+155 ;;^UTILITY(U,$J,.84,9202,2,82,0)
+156 ;;=
+157 ;;^UTILITY(U,$J,.84,9202,2,83,0)
+158 ;;= ---------------------------------------------------------------------------
+159 ;;^UTILITY(U,$J,.84,9202,2,84,0)
+160 ;;=
+161 ;;^UTILITY(U,$J,.84,9202,2,85,0)
+162 ;;=$.$MORE_HELP$.$MORE HELP
+163 ;;^UTILITY(U,$J,.84,9202,2,86,0)
+164 ;;=
+165 ;;^UTILITY(U,$J,.84,9202,2,87,0)
+166 ;;=To GOTO a specific screen or line press the <PF1> key followed by the letter
+167 ;;^UTILITY(U,$J,.84,9202,2,88,0)
+168 ;;='G'. This will cause a prompt to be displayed where a screen or line number can
+169 ;;^UTILITY(U,$J,.84,9202,2,89,0)
+170 ;;=be entered preceded by an 'S' or 'L'. The default is screen, meaning that the
