DINIT00R ;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,9201,2,160,0)
;;= 'R'. A separate list keeps track of the documents chosen during the
;;^UTILITY(U,$J,.84,9201,2,161,0)
;;= current Browse session. R will return all the way back to the very
;;^UTILITY(U,$J,.84,9201,2,162,0)
;;= first document when used repeatedly.
;;^UTILITY(U,$J,.84,9201,2,163,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,164,0)
;;= To COPY text to VA FileMan's Clipboard, press <PF1> followed by the
;;^UTILITY(U,$J,.84,9201,2,165,0)
;;= letter C. A prompt will appear where a range of lines can be entered
;;^UTILITY(U,$J,.84,9201,2,166,0)
;;= separated with a colon (:), or wild card such as (*), to copy the
;;^UTILITY(U,$J,.84,9201,2,167,0)
;;= entire text. If the letter 'A' is appended, the text will be
;;^UTILITY(U,$J,.84,9201,2,168,0)
;;= appended to the existing content of the VA FileMan Clipboard, when
;;^UTILITY(U,$J,.84,9201,2,169,0)
;;= applicable. The text in the clipboard may then be retrieved by VA
;;^UTILITY(U,$J,.84,9201,2,170,0)
;;= FileMan's Screen Editor.
;;^UTILITY(U,$J,.84,9201,2,171,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,172,0)
;;= To VIEW the content of the VA FileMan's Clipboard, press <PF1>
;;^UTILITY(U,$J,.84,9201,2,173,0)
;;= followed by the letter V. A new Browser screen appears, which
;;^UTILITY(U,$J,.84,9201,2,174,0)
;;= displays the text. Many functions are restricted, when in the 'View
;;^UTILITY(U,$J,.84,9201,2,175,0)
;;= Clipboard' mode.
;;^UTILITY(U,$J,.84,9201,2,176,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,177,0)
;;= To SPLIT SCREEN, while in Full (Browse Region) Screen mode, press
;;^UTILITY(U,$J,.84,9201,2,178,0)
;;= <PF2> followed by the letter 'S'. This causes the screen to split
;;^UTILITY(U,$J,.84,9201,2,179,0)
;;= into two separate scroll regions.
;;^UTILITY(U,$J,.84,9201,2,180,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,181,0)
;;= To navigate to the bottom screen, while in Split Screen mode, press
;;^UTILITY(U,$J,.84,9201,2,182,0)
;;= <PF2> followed by pressing the ARROW DOWN key.
;;^UTILITY(U,$J,.84,9201,2,183,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,184,0)
;;= To navigate to the top screen, while in Split Screen mode, press
;;^UTILITY(U,$J,.84,9201,2,185,0)
;;= <PF2> followed by pressing the ARROW UP key.
;;^UTILITY(U,$J,.84,9201,2,186,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,187,0)
;;= To return to FULL SCREEN mode, while in Split Screen mode, press
;;^UTILITY(U,$J,.84,9201,2,188,0)
;;= <PF2> followed by the letter 'F'. This causes the entire browse
;;^UTILITY(U,$J,.84,9201,2,189,0)
;;= region to return to one Full (Browse) Screen scroll region.
;;^UTILITY(U,$J,.84,9201,2,190,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,191,0)
;;= To RESIZE screens, while in Split Screen mode, press <PF2><PF2>
;;^UTILITY(U,$J,.84,9201,2,192,0)
;;= followed by the ARROW UP key. This makes the top window smaller and
;;^UTILITY(U,$J,.84,9201,2,193,0)
;;= the bottom window larger. <PF2><PF2> followed by the ARROW DOWN key
;;^UTILITY(U,$J,.84,9201,2,194,0)
;;= makes the top window larger and the bottom window smaller.
;;^UTILITY(U,$J,.84,9201,2,195,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,196,0)
;;= The TITLE BAR, at the top, is a non scrolling region which contains
;;^UTILITY(U,$J,.84,9201,2,197,0)
;;= static information, while browsing in the selected document. The
;;^UTILITY(U,$J,.84,9201,2,198,0)
;;= title bar information only changes when switching documents or
;;^UTILITY(U,$J,.84,9201,2,199,0)
;;= requesting help. To move text header into the Title Bar, one line at
;;^UTILITY(U,$J,.84,9201,2,200,0)
;;= a time, press <PF1><PF1>ARROW DOWN or <PF1><PF1>ARROW UP. This
;;^UTILITY(U,$J,.84,9201,2,201,0)
;;= replaces the text in the Title Bar with the content of the text in
;;^UTILITY(U,$J,.84,9201,2,202,0)
;;= the scroll region, one line at a time. This can be usefull, when
;;^UTILITY(U,$J,.84,9201,2,203,0)
;;= Browser is called via the Device Handler (Browser Device), for
;;^UTILITY(U,$J,.84,9201,2,204,0)
;;= Browsing through standard VA FileMan Prints. This allows a user to
;;^UTILITY(U,$J,.84,9201,2,205,0)
;;= move the field headers into the Title Bar.
;;^UTILITY(U,$J,.84,9201,2,206,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,207,0)
;;= The STATUS BAR, at the bottom, is also a non scroll region. It shows
;;^UTILITY(U,$J,.84,9201,2,208,0)
;;= the column indicator, how to get help, how to exit, line information
;;^UTILITY(U,$J,.84,9201,2,209,0)
;;= and screen information. The "Col>" indicates the column number the
;;^UTILITY(U,$J,.84,9201,2,210,0)
;;= left edge of the browse window is over in the document. The "Line>"
;;^UTILITY(U,$J,.84,9201,2,211,0)
;;= shows the current line at the bottom of the scroll region and the
;;^UTILITY(U,$J,.84,9201,2,212,0)
;;= total number of lines in the document. The "Screen>" shows the
;;^UTILITY(U,$J,.84,9201,2,213,0)
;;= current screen and the total number of screens in the document.
;;^UTILITY(U,$J,.84,9201,2,214,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,215,0)
;;= The SCROLLING REGION, between the TITLE BAR and the STATUS BAR, is
;;^UTILITY(U,$J,.84,9201,2,216,0)
;;= where the Browser displays the text being viewed.
;;^UTILITY(U,$J,.84,9201,2,217,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,218,0)
;;= To print the help text, press <PF1><PF1><PF1>H. This will prompt for
;;^UTILITY(U,$J,.84,9201,2,219,0)
;;= a Device. Only valid print devices can be selected.
;;^UTILITY(U,$J,.84,9201,2,220,0)
;;=
;;^UTILITY(U,$J,.84,9201,2,221,0)
;;= <<<Press 'R' or <PF1>'E' to exit this help document>>>
;;^UTILITY(U,$J,.84,9202,0)
;;=9202^3^^5
;;^UTILITY(U,$J,.84,9202,1,0)
;;=^^1^1^2950511^^^
;;^UTILITY(U,$J,.84,9202,1,1,0)
;;=Browser help text, for hypertext mode.
;;^UTILITY(U,$J,.84,9202,2,-1,"DATE")
;;=62796,32034
;;^UTILITY(U,$J,.84,9202,2,-1,"TITLE")
;;=9202
;;^UTILITY(U,$J,.84,9202,2,0)
;;=^^127^127^3121205^^
;;^UTILITY(U,$J,.84,9202,2,1,0)
;;=VA FileMan Browser Help for Hypertext Mode
;;^UTILITY(U,$J,.84,9202,2,2,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,3,0)
;;=Hypertext jumps are represented in 'bold' text. Press the Tab or 'Q' keys to
;;^UTILITY(U,$J,.84,9202,2,4,0)
;;=navigate forward and backward, in order to select a jump. Once a jump is
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00R 7092 printed Sep 23, 2025@20:26 Page 2
DINIT00R ;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,9201,2,160,0)
+2 ;;= 'R'. A separate list keeps track of the documents chosen during the
+3 ;;^UTILITY(U,$J,.84,9201,2,161,0)
+4 ;;= current Browse session. R will return all the way back to the very
+5 ;;^UTILITY(U,$J,.84,9201,2,162,0)
+6 ;;= first document when used repeatedly.
+7 ;;^UTILITY(U,$J,.84,9201,2,163,0)
+8 ;;=
+9 ;;^UTILITY(U,$J,.84,9201,2,164,0)
+10 ;;= To COPY text to VA FileMan's Clipboard, press <PF1> followed by the
+11 ;;^UTILITY(U,$J,.84,9201,2,165,0)
+12 ;;= letter C. A prompt will appear where a range of lines can be entered
+13 ;;^UTILITY(U,$J,.84,9201,2,166,0)
+14 ;;= separated with a colon (:), or wild card such as (*), to copy the
+15 ;;^UTILITY(U,$J,.84,9201,2,167,0)
+16 ;;= entire text. If the letter 'A' is appended, the text will be
+17 ;;^UTILITY(U,$J,.84,9201,2,168,0)
+18 ;;= appended to the existing content of the VA FileMan Clipboard, when
+19 ;;^UTILITY(U,$J,.84,9201,2,169,0)
+20 ;;= applicable. The text in the clipboard may then be retrieved by VA
+21 ;;^UTILITY(U,$J,.84,9201,2,170,0)
+22 ;;= FileMan's Screen Editor.
+23 ;;^UTILITY(U,$J,.84,9201,2,171,0)
+24 ;;=
+25 ;;^UTILITY(U,$J,.84,9201,2,172,0)
+26 ;;= To VIEW the content of the VA FileMan's Clipboard, press <PF1>
+27 ;;^UTILITY(U,$J,.84,9201,2,173,0)
+28 ;;= followed by the letter V. A new Browser screen appears, which
+29 ;;^UTILITY(U,$J,.84,9201,2,174,0)
+30 ;;= displays the text. Many functions are restricted, when in the 'View
+31 ;;^UTILITY(U,$J,.84,9201,2,175,0)
+32 ;;= Clipboard' mode.
+33 ;;^UTILITY(U,$J,.84,9201,2,176,0)
+34 ;;=
+35 ;;^UTILITY(U,$J,.84,9201,2,177,0)
+36 ;;= To SPLIT SCREEN, while in Full (Browse Region) Screen mode, press
+37 ;;^UTILITY(U,$J,.84,9201,2,178,0)
+38 ;;= <PF2> followed by the letter 'S'. This causes the screen to split
+39 ;;^UTILITY(U,$J,.84,9201,2,179,0)
+40 ;;= into two separate scroll regions.
+41 ;;^UTILITY(U,$J,.84,9201,2,180,0)
+42 ;;=
+43 ;;^UTILITY(U,$J,.84,9201,2,181,0)
+44 ;;= To navigate to the bottom screen, while in Split Screen mode, press
+45 ;;^UTILITY(U,$J,.84,9201,2,182,0)
+46 ;;= <PF2> followed by pressing the ARROW DOWN key.
+47 ;;^UTILITY(U,$J,.84,9201,2,183,0)
+48 ;;=
+49 ;;^UTILITY(U,$J,.84,9201,2,184,0)
+50 ;;= To navigate to the top screen, while in Split Screen mode, press
+51 ;;^UTILITY(U,$J,.84,9201,2,185,0)
+52 ;;= <PF2> followed by pressing the ARROW UP key.
+53 ;;^UTILITY(U,$J,.84,9201,2,186,0)
+54 ;;=
+55 ;;^UTILITY(U,$J,.84,9201,2,187,0)
+56 ;;= To return to FULL SCREEN mode, while in Split Screen mode, press
+57 ;;^UTILITY(U,$J,.84,9201,2,188,0)
+58 ;;= <PF2> followed by the letter 'F'. This causes the entire browse
+59 ;;^UTILITY(U,$J,.84,9201,2,189,0)
+60 ;;= region to return to one Full (Browse) Screen scroll region.
+61 ;;^UTILITY(U,$J,.84,9201,2,190,0)
+62 ;;=
+63 ;;^UTILITY(U,$J,.84,9201,2,191,0)
+64 ;;= To RESIZE screens, while in Split Screen mode, press <PF2><PF2>
+65 ;;^UTILITY(U,$J,.84,9201,2,192,0)
+66 ;;= followed by the ARROW UP key. This makes the top window smaller and
+67 ;;^UTILITY(U,$J,.84,9201,2,193,0)
+68 ;;= the bottom window larger. <PF2><PF2> followed by the ARROW DOWN key
+69 ;;^UTILITY(U,$J,.84,9201,2,194,0)
+70 ;;= makes the top window larger and the bottom window smaller.
+71 ;;^UTILITY(U,$J,.84,9201,2,195,0)
+72 ;;=
+73 ;;^UTILITY(U,$J,.84,9201,2,196,0)
+74 ;;= The TITLE BAR, at the top, is a non scrolling region which contains
+75 ;;^UTILITY(U,$J,.84,9201,2,197,0)
+76 ;;= static information, while browsing in the selected document. The
+77 ;;^UTILITY(U,$J,.84,9201,2,198,0)
+78 ;;= title bar information only changes when switching documents or
+79 ;;^UTILITY(U,$J,.84,9201,2,199,0)
+80 ;;= requesting help. To move text header into the Title Bar, one line at
+81 ;;^UTILITY(U,$J,.84,9201,2,200,0)
+82 ;;= a time, press <PF1><PF1>ARROW DOWN or <PF1><PF1>ARROW UP. This
+83 ;;^UTILITY(U,$J,.84,9201,2,201,0)
+84 ;;= replaces the text in the Title Bar with the content of the text in
+85 ;;^UTILITY(U,$J,.84,9201,2,202,0)
+86 ;;= the scroll region, one line at a time. This can be usefull, when
+87 ;;^UTILITY(U,$J,.84,9201,2,203,0)
+88 ;;= Browser is called via the Device Handler (Browser Device), for
+89 ;;^UTILITY(U,$J,.84,9201,2,204,0)
+90 ;;= Browsing through standard VA FileMan Prints. This allows a user to
+91 ;;^UTILITY(U,$J,.84,9201,2,205,0)
+92 ;;= move the field headers into the Title Bar.
+93 ;;^UTILITY(U,$J,.84,9201,2,206,0)
+94 ;;=
+95 ;;^UTILITY(U,$J,.84,9201,2,207,0)
+96 ;;= The STATUS BAR, at the bottom, is also a non scroll region. It shows
+97 ;;^UTILITY(U,$J,.84,9201,2,208,0)
+98 ;;= the column indicator, how to get help, how to exit, line information
+99 ;;^UTILITY(U,$J,.84,9201,2,209,0)
+100 ;;= and screen information. The "Col>" indicates the column number the
+101 ;;^UTILITY(U,$J,.84,9201,2,210,0)
+102 ;;= left edge of the browse window is over in the document. The "Line>"
+103 ;;^UTILITY(U,$J,.84,9201,2,211,0)
+104 ;;= shows the current line at the bottom of the scroll region and the
+105 ;;^UTILITY(U,$J,.84,9201,2,212,0)
+106 ;;= total number of lines in the document. The "Screen>" shows the
+107 ;;^UTILITY(U,$J,.84,9201,2,213,0)
+108 ;;= current screen and the total number of screens in the document.
+109 ;;^UTILITY(U,$J,.84,9201,2,214,0)
+110 ;;=
+111 ;;^UTILITY(U,$J,.84,9201,2,215,0)
+112 ;;= The SCROLLING REGION, between the TITLE BAR and the STATUS BAR, is
+113 ;;^UTILITY(U,$J,.84,9201,2,216,0)
+114 ;;= where the Browser displays the text being viewed.
+115 ;;^UTILITY(U,$J,.84,9201,2,217,0)
+116 ;;=
+117 ;;^UTILITY(U,$J,.84,9201,2,218,0)
+118 ;;= To print the help text, press <PF1><PF1><PF1>H. This will prompt for
+119 ;;^UTILITY(U,$J,.84,9201,2,219,0)
+120 ;;= a Device. Only valid print devices can be selected.
+121 ;;^UTILITY(U,$J,.84,9201,2,220,0)
+122 ;;=
+123 ;;^UTILITY(U,$J,.84,9201,2,221,0)
+124 ;;= <<<Press 'R' or <PF1>'E' to exit this help document>>>
+125 ;;^UTILITY(U,$J,.84,9202,0)
+126 ;;=9202^3^^5
+127 ;;^UTILITY(U,$J,.84,9202,1,0)
+128 ;;=^^1^1^2950511^^^
+129 ;;^UTILITY(U,$J,.84,9202,1,1,0)
+130 ;;=Browser help text, for hypertext mode.
+131 ;;^UTILITY(U,$J,.84,9202,2,-1,"DATE")
+132 ;;=62796,32034
+133 ;;^UTILITY(U,$J,.84,9202,2,-1,"TITLE")
+134 ;;=9202
+135 ;;^UTILITY(U,$J,.84,9202,2,0)
+136 ;;=^^127^127^3121205^^
+137 ;;^UTILITY(U,$J,.84,9202,2,1,0)
+138 ;;=VA FileMan Browser Help for Hypertext Mode
+139 ;;^UTILITY(U,$J,.84,9202,2,2,0)
+140 ;;=
+141 ;;^UTILITY(U,$J,.84,9202,2,3,0)
+142 ;;=Hypertext jumps are represented in 'bold' text. Press the Tab or 'Q' keys to
+143 ;;^UTILITY(U,$J,.84,9202,2,4,0)
+144 ;;=navigate forward and backward, in order to select a jump. Once a jump is
