DINIT00P ;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,9117,3,1,0)
;;=1^The prefix for a variable pointer file.
;;^UTILITY(U,$J,.84,9117,3,2,0)
;;=2^The message for a variable pointer file.
;;^UTILITY(U,$J,.84,9201,0)
;;=9201^3^^5
;;^UTILITY(U,$J,.84,9201,1,0)
;;=^^1^1^2950511^^
;;^UTILITY(U,$J,.84,9201,1,1,0)
;;=Browser help
;;^UTILITY(U,$J,.84,9201,2,-1,"DATE")
;;=62796,32024
;;^UTILITY(U,$J,.84,9201,2,-1,"TITLE")
;;=9201
;;^UTILITY(U,$J,.84,9201,2,0)
;;=^^221^221^3121205^
;;^UTILITY(U,$J,.84,9201,2,1,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,2,0)
;;= HELP SUMMARY
;;^UTILITY(U,$J,.84,9201,2,3,0)
;;= ============
;;^UTILITY(U,$J,.84,9201,2,4,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,5,0)
;;=NAVIGATION:
;;^UTILITY(U,$J,.84,9201,2,6,0)
;;============
;;^UTILITY(U,$J,.84,9201,2,7,0)
;;= Scroll Down (one line) ARROW DOWN
;;^UTILITY(U,$J,.84,9201,2,8,0)
;;= Scroll Up (one line) ARROW UP
;;^UTILITY(U,$J,.84,9201,2,9,0)
;;= Page Down <PF1>ARROW DOWN
;;^UTILITY(U,$J,.84,9201,2,10,0)
;;= Page Up <PF1>ARROW UP
;;^UTILITY(U,$J,.84,9201,2,11,0)
;;= Scroll Right (default 22 columns) ARROW RIGHT
;;^UTILITY(U,$J,.84,9201,2,12,0)
;;= Scroll Left (default 22 columns) ARROW LEFT
;;^UTILITY(U,$J,.84,9201,2,13,0)
;;= Scroll Horizontally to the end <PF1>ARROW RIGHT
;;^UTILITY(U,$J,.84,9201,2,14,0)
;;= Scroll Horizontally to the end <PF1>ARROW LEFT
;;^UTILITY(U,$J,.84,9201,2,15,0)
;;= Jump to the Top <PF1>T
;;^UTILITY(U,$J,.84,9201,2,16,0)
;;= Jump to the Bottom <PF1>B
;;^UTILITY(U,$J,.84,9201,2,17,0)
;;= Goto <PF1>G
;;^UTILITY(U,$J,.84,9201,2,18,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,19,0)
;;=SEARCH:
;;^UTILITY(U,$J,.84,9201,2,20,0)
;;========
;;^UTILITY(U,$J,.84,9201,2,21,0)
;;= Find text <PF1>F
;;^UTILITY(U,$J,.84,9201,2,22,0)
;;= Next (occurrence) <PF1>N
;;^UTILITY(U,$J,.84,9201,2,23,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,24,0)
;;= Direction-terminate find text with:
;;^UTILITY(U,$J,.84,9201,2,25,0)
;;= -----------------------------------
;;^UTILITY(U,$J,.84,9201,2,26,0)
;;= Down ARROW DOWN
;;^UTILITY(U,$J,.84,9201,2,27,0)
;;= Up ARROW UP
;;^UTILITY(U,$J,.84,9201,2,28,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,29,0)
;;=BRANCH:
;;^UTILITY(U,$J,.84,9201,2,30,0)
;;========
;;^UTILITY(U,$J,.84,9201,2,31,0)
;;= Switch to another document <PF1>S
;;^UTILITY(U,$J,.84,9201,2,32,0)
;;= Return to previous document(s) R
;;^UTILITY(U,$J,.84,9201,2,33,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,34,0)
;;=SCREEN:
;;^UTILITY(U,$J,.84,9201,2,35,0)
;;========
;;^UTILITY(U,$J,.84,9201,2,36,0)
;;= Repaint screen <PF1>P
;;^UTILITY(U,$J,.84,9201,2,37,0)
;;= Print document <PF1><PF1>P
;;^UTILITY(U,$J,.84,9201,2,38,0)
;;= Split screen <PF2>S
;;^UTILITY(U,$J,.84,9201,2,39,0)
;;= restore Full screen <PF2>F
;;^UTILITY(U,$J,.84,9201,2,40,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,41,0)
;;= Split Screen Mode Navigation:
;;^UTILITY(U,$J,.84,9201,2,42,0)
;;= -----------------------------
;;^UTILITY(U,$J,.84,9201,2,43,0)
;;= Navigate to bottom screen <PF2>ARROW DOWN
;;^UTILITY(U,$J,.84,9201,2,44,0)
;;= Navigate to top screen <PF2>ARROW UP
;;^UTILITY(U,$J,.84,9201,2,45,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,46,0)
;;= Resize Split Screen:
;;^UTILITY(U,$J,.84,9201,2,47,0)
;;= --------------------
;;^UTILITY(U,$J,.84,9201,2,48,0)
;;= Top/Bottom screen larger/smaller <PF2><PF2>ARROW DOWN
;;^UTILITY(U,$J,.84,9201,2,49,0)
;;= Bottom/Top screen larger/smaller <PF2><PF2>ARROW UP
;;^UTILITY(U,$J,.84,9201,2,50,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,51,0)
;;=CLIPBOARD:
;;^UTILITY(U,$J,.84,9201,2,52,0)
;;===========
;;^UTILITY(U,$J,.84,9201,2,53,0)
;;= Copy to VA FileMan's Clipboard <PF1>C
;;^UTILITY(U,$J,.84,9201,2,54,0)
;;= View VA FileMan's Clipboard <PF1>V
;;^UTILITY(U,$J,.84,9201,2,55,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,56,0)
;;=TITLE BAR:
;;^UTILITY(U,$J,.84,9201,2,57,0)
;;===========
;;^UTILITY(U,$J,.84,9201,2,58,0)
;;= Change content of title bar, <PF1><PF1>ARROW DOWN
;;^UTILITY(U,$J,.84,9201,2,59,0)
;;= Or <PF1><PF1>ARROW UP
;;^UTILITY(U,$J,.84,9201,2,60,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,61,0)
;;=HELP:
;;^UTILITY(U,$J,.84,9201,2,62,0)
;;======
;;^UTILITY(U,$J,.84,9201,2,63,0)
;;= Browse Key Summary <PF1>H
;;^UTILITY(U,$J,.84,9201,2,64,0)
;;= More Help <PF1><PF1>H
;;^UTILITY(U,$J,.84,9201,2,65,0)
;;= Print this help text <PF1><PF1><PF1>H
;;^UTILITY(U,$J,.84,9201,2,66,0)
;;= To Return to document from this help R
;;^UTILITY(U,$J,.84,9201,2,67,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,68,0)
;;=EXIT:
;;^UTILITY(U,$J,.84,9201,2,69,0)
;;======
;;^UTILITY(U,$J,.84,9201,2,70,0)
;;= Exit Browser or help text <PF1>E or "EXIT"
;;^UTILITY(U,$J,.84,9201,2,71,0)
;;= Quit <PF1>Q or <Ctrl-E>
;;^UTILITY(U,$J,.84,9201,2,72,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,73,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,74,0)
;;= MORE HELP
;;^UTILITY(U,$J,.84,9201,2,75,0)
;;= =========
;;^UTILITY(U,$J,.84,9201,2,76,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,77,0)
;;= To EXIT the VA FileMan Browser, press <PF1> followed by the letter
;;^UTILITY(U,$J,.84,9201,2,78,0)
;;= 'E'. This is also true for this HELP document which is being
;;^UTILITY(U,$J,.84,9201,2,79,0)
;;= presented by the Browser.
;;^UTILITY(U,$J,.84,9201,2,80,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,81,0)
;;= To SCROLL DOWN one line at a time, press the ARROW DOWN key.
;;^UTILITY(U,$J,.84,9201,2,82,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,83,0)
;;= To SCROLL UP one line at a time, press the ARROW UP key.
;;^UTILITY(U,$J,.84,9201,2,84,0)
;;=
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00P 7168 printed Sep 23, 2025@20:25:58 Page 2
DINIT00P ;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,9117,3,1,0)
+2 ;;=1^The prefix for a variable pointer file.
+3 ;;^UTILITY(U,$J,.84,9117,3,2,0)
+4 ;;=2^The message for a variable pointer file.
+5 ;;^UTILITY(U,$J,.84,9201,0)
+6 ;;=9201^3^^5
+7 ;;^UTILITY(U,$J,.84,9201,1,0)
+8 ;;=^^1^1^2950511^^
+9 ;;^UTILITY(U,$J,.84,9201,1,1,0)
+10 ;;=Browser help
+11 ;;^UTILITY(U,$J,.84,9201,2,-1,"DATE")
+12 ;;=62796,32024
+13 ;;^UTILITY(U,$J,.84,9201,2,-1,"TITLE")
+14 ;;=9201
+15 ;;^UTILITY(U,$J,.84,9201,2,0)
+16 ;;=^^221^221^3121205^
+17 ;;^UTILITY(U,$J,.84,9201,2,1,0)
+18 ;;=
+19 ;;^UTILITY(U,$J,.84,9201,2,2,0)
+20 ;;= HELP SUMMARY
+21 ;;^UTILITY(U,$J,.84,9201,2,3,0)
+22 ;;= ============
+23 ;;^UTILITY(U,$J,.84,9201,2,4,0)
+24 ;;=
+25 ;;^UTILITY(U,$J,.84,9201,2,5,0)
+26 ;;=NAVIGATION:
+27 ;;^UTILITY(U,$J,.84,9201,2,6,0)
+28 ;;============
+29 ;;^UTILITY(U,$J,.84,9201,2,7,0)
+30 ;;= Scroll Down (one line) ARROW DOWN
+31 ;;^UTILITY(U,$J,.84,9201,2,8,0)
+32 ;;= Scroll Up (one line) ARROW UP
+33 ;;^UTILITY(U,$J,.84,9201,2,9,0)
+34 ;;= Page Down <PF1>ARROW DOWN
+35 ;;^UTILITY(U,$J,.84,9201,2,10,0)
+36 ;;= Page Up <PF1>ARROW UP
+37 ;;^UTILITY(U,$J,.84,9201,2,11,0)
+38 ;;= Scroll Right (default 22 columns) ARROW RIGHT
+39 ;;^UTILITY(U,$J,.84,9201,2,12,0)
+40 ;;= Scroll Left (default 22 columns) ARROW LEFT
+41 ;;^UTILITY(U,$J,.84,9201,2,13,0)
+42 ;;= Scroll Horizontally to the end <PF1>ARROW RIGHT
+43 ;;^UTILITY(U,$J,.84,9201,2,14,0)
+44 ;;= Scroll Horizontally to the end <PF1>ARROW LEFT
+45 ;;^UTILITY(U,$J,.84,9201,2,15,0)
+46 ;;= Jump to the Top <PF1>T
+47 ;;^UTILITY(U,$J,.84,9201,2,16,0)
+48 ;;= Jump to the Bottom <PF1>B
+49 ;;^UTILITY(U,$J,.84,9201,2,17,0)
+50 ;;= Goto <PF1>G
+51 ;;^UTILITY(U,$J,.84,9201,2,18,0)
+52 ;;=
+53 ;;^UTILITY(U,$J,.84,9201,2,19,0)
+54 ;;=SEARCH:
+55 ;;^UTILITY(U,$J,.84,9201,2,20,0)
+56 ;;========
+57 ;;^UTILITY(U,$J,.84,9201,2,21,0)
+58 ;;= Find text <PF1>F
+59 ;;^UTILITY(U,$J,.84,9201,2,22,0)
+60 ;;= Next (occurrence) <PF1>N
+61 ;;^UTILITY(U,$J,.84,9201,2,23,0)
+62 ;;=
+63 ;;^UTILITY(U,$J,.84,9201,2,24,0)
+64 ;;= Direction-terminate find text with:
+65 ;;^UTILITY(U,$J,.84,9201,2,25,0)
+66 ;;= -----------------------------------
+67 ;;^UTILITY(U,$J,.84,9201,2,26,0)
+68 ;;= Down ARROW DOWN
+69 ;;^UTILITY(U,$J,.84,9201,2,27,0)
+70 ;;= Up ARROW UP
+71 ;;^UTILITY(U,$J,.84,9201,2,28,0)
+72 ;;=
+73 ;;^UTILITY(U,$J,.84,9201,2,29,0)
+74 ;;=BRANCH:
+75 ;;^UTILITY(U,$J,.84,9201,2,30,0)
+76 ;;========
+77 ;;^UTILITY(U,$J,.84,9201,2,31,0)
+78 ;;= Switch to another document <PF1>S
+79 ;;^UTILITY(U,$J,.84,9201,2,32,0)
+80 ;;= Return to previous document(s) R
+81 ;;^UTILITY(U,$J,.84,9201,2,33,0)
+82 ;;=
+83 ;;^UTILITY(U,$J,.84,9201,2,34,0)
+84 ;;=SCREEN:
+85 ;;^UTILITY(U,$J,.84,9201,2,35,0)
+86 ;;========
+87 ;;^UTILITY(U,$J,.84,9201,2,36,0)
+88 ;;= Repaint screen <PF1>P
+89 ;;^UTILITY(U,$J,.84,9201,2,37,0)
+90 ;;= Print document <PF1><PF1>P
+91 ;;^UTILITY(U,$J,.84,9201,2,38,0)
+92 ;;= Split screen <PF2>S
+93 ;;^UTILITY(U,$J,.84,9201,2,39,0)
+94 ;;= restore Full screen <PF2>F
+95 ;;^UTILITY(U,$J,.84,9201,2,40,0)
+96 ;;=
+97 ;;^UTILITY(U,$J,.84,9201,2,41,0)
+98 ;;= Split Screen Mode Navigation:
+99 ;;^UTILITY(U,$J,.84,9201,2,42,0)
+100 ;;= -----------------------------
+101 ;;^UTILITY(U,$J,.84,9201,2,43,0)
+102 ;;= Navigate to bottom screen <PF2>ARROW DOWN
+103 ;;^UTILITY(U,$J,.84,9201,2,44,0)
+104 ;;= Navigate to top screen <PF2>ARROW UP
+105 ;;^UTILITY(U,$J,.84,9201,2,45,0)
+106 ;;=
+107 ;;^UTILITY(U,$J,.84,9201,2,46,0)
+108 ;;= Resize Split Screen:
+109 ;;^UTILITY(U,$J,.84,9201,2,47,0)
+110 ;;= --------------------
+111 ;;^UTILITY(U,$J,.84,9201,2,48,0)
+112 ;;= Top/Bottom screen larger/smaller <PF2><PF2>ARROW DOWN
+113 ;;^UTILITY(U,$J,.84,9201,2,49,0)
+114 ;;= Bottom/Top screen larger/smaller <PF2><PF2>ARROW UP
+115 ;;^UTILITY(U,$J,.84,9201,2,50,0)
+116 ;;=
+117 ;;^UTILITY(U,$J,.84,9201,2,51,0)
+118 ;;=CLIPBOARD:
+119 ;;^UTILITY(U,$J,.84,9201,2,52,0)
+120 ;;===========
+121 ;;^UTILITY(U,$J,.84,9201,2,53,0)
+122 ;;= Copy to VA FileMan's Clipboard <PF1>C
+123 ;;^UTILITY(U,$J,.84,9201,2,54,0)
+124 ;;= View VA FileMan's Clipboard <PF1>V
+125 ;;^UTILITY(U,$J,.84,9201,2,55,0)
+126 ;;=
+127 ;;^UTILITY(U,$J,.84,9201,2,56,0)
+128 ;;=TITLE BAR:
+129 ;;^UTILITY(U,$J,.84,9201,2,57,0)
+130 ;;===========
+131 ;;^UTILITY(U,$J,.84,9201,2,58,0)
+132 ;;= Change content of title bar, <PF1><PF1>ARROW DOWN
+133 ;;^UTILITY(U,$J,.84,9201,2,59,0)
+134 ;;= Or <PF1><PF1>ARROW UP
+135 ;;^UTILITY(U,$J,.84,9201,2,60,0)
+136 ;;=
+137 ;;^UTILITY(U,$J,.84,9201,2,61,0)
+138 ;;=HELP:
+139 ;;^UTILITY(U,$J,.84,9201,2,62,0)
+140 ;;======
+141 ;;^UTILITY(U,$J,.84,9201,2,63,0)
+142 ;;= Browse Key Summary <PF1>H
+143 ;;^UTILITY(U,$J,.84,9201,2,64,0)
+144 ;;= More Help <PF1><PF1>H
+145 ;;^UTILITY(U,$J,.84,9201,2,65,0)
+146 ;;= Print this help text <PF1><PF1><PF1>H
+147 ;;^UTILITY(U,$J,.84,9201,2,66,0)
+148 ;;= To Return to document from this help R
+149 ;;^UTILITY(U,$J,.84,9201,2,67,0)
+150 ;;=
+151 ;;^UTILITY(U,$J,.84,9201,2,68,0)
+152 ;;=EXIT:
+153 ;;^UTILITY(U,$J,.84,9201,2,69,0)
+154 ;;======
+155 ;;^UTILITY(U,$J,.84,9201,2,70,0)
+156 ;;= Exit Browser or help text <PF1>E or "EXIT"
+157 ;;^UTILITY(U,$J,.84,9201,2,71,0)
+158 ;;= Quit <PF1>Q or <Ctrl-E>
+159 ;;^UTILITY(U,$J,.84,9201,2,72,0)
+160 ;;=
+161 ;;^UTILITY(U,$J,.84,9201,2,73,0)
+162 ;;=
+163 ;;^UTILITY(U,$J,.84,9201,2,74,0)
+164 ;;= MORE HELP
+165 ;;^UTILITY(U,$J,.84,9201,2,75,0)
+166 ;;= =========
+167 ;;^UTILITY(U,$J,.84,9201,2,76,0)
+168 ;;=
+169 ;;^UTILITY(U,$J,.84,9201,2,77,0)
+170 ;;= To EXIT the VA FileMan Browser, press <PF1> followed by the letter
+171 ;;^UTILITY(U,$J,.84,9201,2,78,0)
+172 ;;= 'E'. This is also true for this HELP document which is being
+173 ;;^UTILITY(U,$J,.84,9201,2,79,0)
+174 ;;= presented by the Browser.
+175 ;;^UTILITY(U,$J,.84,9201,2,80,0)
+176 ;;=
+177 ;;^UTILITY(U,$J,.84,9201,2,81,0)
+178 ;;= To SCROLL DOWN one line at a time, press the ARROW DOWN key.
+179 ;;^UTILITY(U,$J,.84,9201,2,82,0)
+180 ;;=
+181 ;;^UTILITY(U,$J,.84,9201,2,83,0)
+182 ;;= To SCROLL UP one line at a time, press the ARROW UP key.
+183 ;;^UTILITY(U,$J,.84,9201,2,84,0)
+184 ;;=
