DINIT00T ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;09DEC2015
;;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,90,0)
;;='S' is optional when entering a screen number. 10 or S10 will Goto screen 10,
;;^UTILITY(U,$J,.84,9202,2,91,0)
;;=if screen 10 is a valid screen. L99 will go to line 99.
;;^UTILITY(U,$J,.84,9202,2,92,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,93,0)
;;=To change the content of the Title Bar, press <PF1> <PF1> ARROW DOWN or ARROW
;;^UTILITY(U,$J,.84,9202,2,94,0)
;;=UP. This function replaces the content of the Title Bar with the text in the
;;^UTILITY(U,$J,.84,9202,2,95,0)
;;=body of the document. Users with programmer access can also use <PF4> 'T', to
;;^UTILITY(U,$J,.84,9202,2,96,0)
;;=permanently change the title of a hypertext document.
;;^UTILITY(U,$J,.84,9202,2,97,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,98,0)
;;=To copy text to VA FileMan's Clipboard, press <PF1><PF1>C. This open up a
;;^UTILITY(U,$J,.84,9202,2,99,0)
;;=dialog screen and prompts for a line or range of lines to copy or append to the
;;^UTILITY(U,$J,.84,9202,2,100,0)
;;=clipboard. A range of lines are represented by two numeric values separated by
;;^UTILITY(U,$J,.84,9202,2,101,0)
;;=a colon (:), the wild card (*) may also be used if the entire text is
;;^UTILITY(U,$J,.84,9202,2,102,0)
;;=desired. To append to the existing clipboard text, enter the letter 'A'
;;^UTILITY(U,$J,.84,9202,2,103,0)
;;=as the last character, when entering the range of lines to copy. This
;;^UTILITY(U,$J,.84,9202,2,104,0)
;;=text is then retrieved for word-processing fields, when using VA FileMan's
;;^UTILITY(U,$J,.84,9202,2,105,0)
;;=Screen Editor.
;;^UTILITY(U,$J,.84,9202,2,106,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,107,0)
;;=To SPLIT SCREEN, while in Full (Browse Region) Screen mode, press <PF2>
;;^UTILITY(U,$J,.84,9202,2,108,0)
;;=followed by the letter 'S'. This causes the screen to split into two separate
;;^UTILITY(U,$J,.84,9202,2,109,0)
;;=scroll regions.
;;^UTILITY(U,$J,.84,9202,2,110,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,111,0)
;;=To navigate to the bottom screen, while in Split Screen mode, press <PF2>
;;^UTILITY(U,$J,.84,9202,2,112,0)
;;=followed by pressing the DOWN ARROW key.
;;^UTILITY(U,$J,.84,9202,2,113,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,114,0)
;;=To navigate to the top screen, while in Split Screen mode, press <PF2> followed
;;^UTILITY(U,$J,.84,9202,2,115,0)
;;=by pressing the UP ARRAY key.
;;^UTILITY(U,$J,.84,9202,2,116,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,117,0)
;;=To return to FULL SCREEN mode, while in Split Screen mode, press <PF2> followed
;;^UTILITY(U,$J,.84,9202,2,118,0)
;;=by the letter 'F'. This causes the entire browse region to return to one Full
;;^UTILITY(U,$J,.84,9202,2,119,0)
;;=(Browse) Screen scroll region.
;;^UTILITY(U,$J,.84,9202,2,120,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,121,0)
;;=The BOTTOM STATUS LINE shows that the Browser is in hypertext mode. It
;;^UTILITY(U,$J,.84,9202,2,122,0)
;;=indicates the line numbers that correspond to the bottom text line on the
;;^UTILITY(U,$J,.84,9202,2,123,0)
;;=screen, in the display text section, and provides the total line count. The
;;^UTILITY(U,$J,.84,9202,2,124,0)
;;=screen indicator shows what screen the last line is on and also provides the
;;^UTILITY(U,$J,.84,9202,2,125,0)
;;=total number of screens.
;;^UTILITY(U,$J,.84,9202,2,126,0)
;;=
;;^UTILITY(U,$J,.84,9202,2,127,0)
;;=<<<Press 'R' or <PF1>'E' to exit this help document>>>
;;^UTILITY(U,$J,.84,9211,0)
;;=9211^3^^5
;;^UTILITY(U,$J,.84,9211,1,0)
;;=^^1^1^2960423^^^^
;;^UTILITY(U,$J,.84,9211,1,1,0)
;;=Screen 1 of Screen Editor help.
;;^UTILITY(U,$J,.84,9211,2,0)
;;=^^18^18^2961212^
;;^UTILITY(U,$J,.84,9211,2,1,0)
;;= \BHelp Screen 1 of 4\n
;;^UTILITY(U,$J,.84,9211,2,2,0)
;;=
;;^UTILITY(U,$J,.84,9211,2,3,0)
;;=\BSUMMARY OF KEY SEQUENCES\n
;;^UTILITY(U,$J,.84,9211,2,4,0)
;;=
;;^UTILITY(U,$J,.84,9211,2,5,0)
;;=\BNavigation\n
;;^UTILITY(U,$J,.84,9211,2,6,0)
;;=
;;^UTILITY(U,$J,.84,9211,2,7,0)
;;= Incremental movement Arrow keys
;;^UTILITY(U,$J,.84,9211,2,8,0)
;;= One word left and right <Ctrl-J> and <Ctrl-L>
;;^UTILITY(U,$J,.84,9211,2,9,0)
;;= Next tab stop to the right <Tab>
;;^UTILITY(U,$J,.84,9211,2,10,0)
;;= Jump left and right <PF1><Left> and <PF1><Right>
;;^UTILITY(U,$J,.84,9211,2,11,0)
;;= Beginning and end of line <PF1><PF1><Left> and <PF1><PF1><Right>
;;^UTILITY(U,$J,.84,9211,2,12,0)
;;= or: <Find> and <Select>
;;^UTILITY(U,$J,.84,9211,2,13,0)
;;= or: <Home> and <End>
;;^UTILITY(U,$J,.84,9211,2,14,0)
;;= Screen up or down <PF1><Up> and <PF1><Down>
;;^UTILITY(U,$J,.84,9211,2,15,0)
;;= or: <Prev Scr> and <Next Scr>
;;^UTILITY(U,$J,.84,9211,2,16,0)
;;= or: <Page Up> and <Page Down>
;;^UTILITY(U,$J,.84,9211,2,17,0)
;;= Top or bottom of document <PF1>T and <PF1>B
;;^UTILITY(U,$J,.84,9211,2,18,0)
;;= Go to a specific location <PF1>G
;;^UTILITY(U,$J,.84,9212,0)
;;=9212^3^^5
;;^UTILITY(U,$J,.84,9212,1,0)
;;=^^1^1^3000816^^^^
;;^UTILITY(U,$J,.84,9212,1,1,0)
;;=Screen 2 of Screen Editor help.
;;^UTILITY(U,$J,.84,9212,2,0)
;;=^^18^18^3000816^
;;^UTILITY(U,$J,.84,9212,2,1,0)
;;= \BHelp Screen 2 of 4\n
;;^UTILITY(U,$J,.84,9212,2,2,0)
;;=
;;^UTILITY(U,$J,.84,9212,2,3,0)
;;=\BExiting/Saving\n
;;^UTILITY(U,$J,.84,9212,2,4,0)
;;=
;;^UTILITY(U,$J,.84,9212,2,5,0)
;;= Exit and save text <PF1>E
;;^UTILITY(U,$J,.84,9212,2,6,0)
;;= Quit with optional save <PF1>Q or <Ctrl-E>
;;^UTILITY(U,$J,.84,9212,2,7,0)
;;= Exit, save, and switch editors <PF1>A
;;^UTILITY(U,$J,.84,9212,2,8,0)
;;= Save without exiting <PF1>S
;;^UTILITY(U,$J,.84,9212,2,9,0)
;;= Enter minutes for AutoSave <PF1><PF1>S
;;^UTILITY(U,$J,.84,9212,2,10,0)
;;=
;;^UTILITY(U,$J,.84,9212,2,11,0)
;;=
;;^UTILITY(U,$J,.84,9212,2,12,0)
;;=\BDeleting\n
;;^UTILITY(U,$J,.84,9212,2,13,0)
;;=
;;^UTILITY(U,$J,.84,9212,2,14,0)
;;= Character before cursor <Backspace>
;;^UTILITY(U,$J,.84,9212,2,15,0)
;;= Character at cursor <PF4> or <Remove> or <Delete>
;;^UTILITY(U,$J,.84,9212,2,16,0)
;;= From cursor to end of word <Ctrl-W>
;;^UTILITY(U,$J,.84,9212,2,17,0)
;;= From cursor to end of line <PF1><PF2>
;;^UTILITY(U,$J,.84,9212,2,18,0)
;;= Entire line <PF1>D
;;^UTILITY(U,$J,.84,9213,0)
;;=9213^3^^5
;;^UTILITY(U,$J,.84,9213,1,0)
;;=^.842^1^1^3000825^^^^
;;^UTILITY(U,$J,.84,9213,1,1,0)
;;=Screen 3 of Screen Editor help.
;;^UTILITY(U,$J,.84,9213,2,0)
;;=^^16^16^3000825^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00T 7541 printed Apr 09, 2024@21:53:46 Page 2
DINIT00T ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;09DEC2015
+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,90,0)
+2 ;;='S' is optional when entering a screen number. 10 or S10 will Goto screen 10,
+3 ;;^UTILITY(U,$J,.84,9202,2,91,0)
+4 ;;=if screen 10 is a valid screen. L99 will go to line 99.
+5 ;;^UTILITY(U,$J,.84,9202,2,92,0)
+6 ;;=
+7 ;;^UTILITY(U,$J,.84,9202,2,93,0)
+8 ;;=To change the content of the Title Bar, press <PF1> <PF1> ARROW DOWN or ARROW
+9 ;;^UTILITY(U,$J,.84,9202,2,94,0)
+10 ;;=UP. This function replaces the content of the Title Bar with the text in the
+11 ;;^UTILITY(U,$J,.84,9202,2,95,0)
+12 ;;=body of the document. Users with programmer access can also use <PF4> 'T', to
+13 ;;^UTILITY(U,$J,.84,9202,2,96,0)
+14 ;;=permanently change the title of a hypertext document.
+15 ;;^UTILITY(U,$J,.84,9202,2,97,0)
+16 ;;=
+17 ;;^UTILITY(U,$J,.84,9202,2,98,0)
+18 ;;=To copy text to VA FileMan's Clipboard, press <PF1><PF1>C. This open up a
+19 ;;^UTILITY(U,$J,.84,9202,2,99,0)
+20 ;;=dialog screen and prompts for a line or range of lines to copy or append to the
+21 ;;^UTILITY(U,$J,.84,9202,2,100,0)
+22 ;;=clipboard. A range of lines are represented by two numeric values separated by
+23 ;;^UTILITY(U,$J,.84,9202,2,101,0)
+24 ;;=a colon (:), the wild card (*) may also be used if the entire text is
+25 ;;^UTILITY(U,$J,.84,9202,2,102,0)
+26 ;;=desired. To append to the existing clipboard text, enter the letter 'A'
+27 ;;^UTILITY(U,$J,.84,9202,2,103,0)
+28 ;;=as the last character, when entering the range of lines to copy. This
+29 ;;^UTILITY(U,$J,.84,9202,2,104,0)
+30 ;;=text is then retrieved for word-processing fields, when using VA FileMan's
+31 ;;^UTILITY(U,$J,.84,9202,2,105,0)
+32 ;;=Screen Editor.
+33 ;;^UTILITY(U,$J,.84,9202,2,106,0)
+34 ;;=
+35 ;;^UTILITY(U,$J,.84,9202,2,107,0)
+36 ;;=To SPLIT SCREEN, while in Full (Browse Region) Screen mode, press <PF2>
+37 ;;^UTILITY(U,$J,.84,9202,2,108,0)
+38 ;;=followed by the letter 'S'. This causes the screen to split into two separate
+39 ;;^UTILITY(U,$J,.84,9202,2,109,0)
+40 ;;=scroll regions.
+41 ;;^UTILITY(U,$J,.84,9202,2,110,0)
+42 ;;=
+43 ;;^UTILITY(U,$J,.84,9202,2,111,0)
+44 ;;=To navigate to the bottom screen, while in Split Screen mode, press <PF2>
+45 ;;^UTILITY(U,$J,.84,9202,2,112,0)
+46 ;;=followed by pressing the DOWN ARROW key.
+47 ;;^UTILITY(U,$J,.84,9202,2,113,0)
+48 ;;=
+49 ;;^UTILITY(U,$J,.84,9202,2,114,0)
+50 ;;=To navigate to the top screen, while in Split Screen mode, press <PF2> followed
+51 ;;^UTILITY(U,$J,.84,9202,2,115,0)
+52 ;;=by pressing the UP ARRAY key.
+53 ;;^UTILITY(U,$J,.84,9202,2,116,0)
+54 ;;=
+55 ;;^UTILITY(U,$J,.84,9202,2,117,0)
+56 ;;=To return to FULL SCREEN mode, while in Split Screen mode, press <PF2> followed
+57 ;;^UTILITY(U,$J,.84,9202,2,118,0)
+58 ;;=by the letter 'F'. This causes the entire browse region to return to one Full
+59 ;;^UTILITY(U,$J,.84,9202,2,119,0)
+60 ;;=(Browse) Screen scroll region.
+61 ;;^UTILITY(U,$J,.84,9202,2,120,0)
+62 ;;=
+63 ;;^UTILITY(U,$J,.84,9202,2,121,0)
+64 ;;=The BOTTOM STATUS LINE shows that the Browser is in hypertext mode. It
+65 ;;^UTILITY(U,$J,.84,9202,2,122,0)
+66 ;;=indicates the line numbers that correspond to the bottom text line on the
+67 ;;^UTILITY(U,$J,.84,9202,2,123,0)
+68 ;;=screen, in the display text section, and provides the total line count. The
+69 ;;^UTILITY(U,$J,.84,9202,2,124,0)
+70 ;;=screen indicator shows what screen the last line is on and also provides the
+71 ;;^UTILITY(U,$J,.84,9202,2,125,0)
+72 ;;=total number of screens.
+73 ;;^UTILITY(U,$J,.84,9202,2,126,0)
+74 ;;=
+75 ;;^UTILITY(U,$J,.84,9202,2,127,0)
+76 ;;=<<<Press 'R' or <PF1>'E' to exit this help document>>>
+77 ;;^UTILITY(U,$J,.84,9211,0)
+78 ;;=9211^3^^5
+79 ;;^UTILITY(U,$J,.84,9211,1,0)
+80 ;;=^^1^1^2960423^^^^
+81 ;;^UTILITY(U,$J,.84,9211,1,1,0)
+82 ;;=Screen 1 of Screen Editor help.
+83 ;;^UTILITY(U,$J,.84,9211,2,0)
+84 ;;=^^18^18^2961212^
+85 ;;^UTILITY(U,$J,.84,9211,2,1,0)
+86 ;;= \BHelp Screen 1 of 4\n
+87 ;;^UTILITY(U,$J,.84,9211,2,2,0)
+88 ;;=
+89 ;;^UTILITY(U,$J,.84,9211,2,3,0)
+90 ;;=\BSUMMARY OF KEY SEQUENCES\n
+91 ;;^UTILITY(U,$J,.84,9211,2,4,0)
+92 ;;=
+93 ;;^UTILITY(U,$J,.84,9211,2,5,0)
+94 ;;=\BNavigation\n
+95 ;;^UTILITY(U,$J,.84,9211,2,6,0)
+96 ;;=
+97 ;;^UTILITY(U,$J,.84,9211,2,7,0)
+98 ;;= Incremental movement Arrow keys
+99 ;;^UTILITY(U,$J,.84,9211,2,8,0)
+100 ;;= One word left and right <Ctrl-J> and <Ctrl-L>
+101 ;;^UTILITY(U,$J,.84,9211,2,9,0)
+102 ;;= Next tab stop to the right <Tab>
+103 ;;^UTILITY(U,$J,.84,9211,2,10,0)
+104 ;;= Jump left and right <PF1><Left> and <PF1><Right>
+105 ;;^UTILITY(U,$J,.84,9211,2,11,0)
+106 ;;= Beginning and end of line <PF1><PF1><Left> and <PF1><PF1><Right>
+107 ;;^UTILITY(U,$J,.84,9211,2,12,0)
+108 ;;= or: <Find> and <Select>
+109 ;;^UTILITY(U,$J,.84,9211,2,13,0)
+110 ;;= or: <Home> and <End>
+111 ;;^UTILITY(U,$J,.84,9211,2,14,0)
+112 ;;= Screen up or down <PF1><Up> and <PF1><Down>
+113 ;;^UTILITY(U,$J,.84,9211,2,15,0)
+114 ;;= or: <Prev Scr> and <Next Scr>
+115 ;;^UTILITY(U,$J,.84,9211,2,16,0)
+116 ;;= or: <Page Up> and <Page Down>
+117 ;;^UTILITY(U,$J,.84,9211,2,17,0)
+118 ;;= Top or bottom of document <PF1>T and <PF1>B
+119 ;;^UTILITY(U,$J,.84,9211,2,18,0)
+120 ;;= Go to a specific location <PF1>G
+121 ;;^UTILITY(U,$J,.84,9212,0)
+122 ;;=9212^3^^5
+123 ;;^UTILITY(U,$J,.84,9212,1,0)
+124 ;;=^^1^1^3000816^^^^
+125 ;;^UTILITY(U,$J,.84,9212,1,1,0)
+126 ;;=Screen 2 of Screen Editor help.
+127 ;;^UTILITY(U,$J,.84,9212,2,0)
+128 ;;=^^18^18^3000816^
+129 ;;^UTILITY(U,$J,.84,9212,2,1,0)
+130 ;;= \BHelp Screen 2 of 4\n
+131 ;;^UTILITY(U,$J,.84,9212,2,2,0)
+132 ;;=
+133 ;;^UTILITY(U,$J,.84,9212,2,3,0)
+134 ;;=\BExiting/Saving\n
+135 ;;^UTILITY(U,$J,.84,9212,2,4,0)
+136 ;;=
+137 ;;^UTILITY(U,$J,.84,9212,2,5,0)
+138 ;;= Exit and save text <PF1>E
+139 ;;^UTILITY(U,$J,.84,9212,2,6,0)
+140 ;;= Quit with optional save <PF1>Q or <Ctrl-E>
+141 ;;^UTILITY(U,$J,.84,9212,2,7,0)
+142 ;;= Exit, save, and switch editors <PF1>A
+143 ;;^UTILITY(U,$J,.84,9212,2,8,0)
+144 ;;= Save without exiting <PF1>S
+145 ;;^UTILITY(U,$J,.84,9212,2,9,0)
+146 ;;= Enter minutes for AutoSave <PF1><PF1>S
+147 ;;^UTILITY(U,$J,.84,9212,2,10,0)
+148 ;;=
+149 ;;^UTILITY(U,$J,.84,9212,2,11,0)
+150 ;;=
+151 ;;^UTILITY(U,$J,.84,9212,2,12,0)
+152 ;;=\BDeleting\n
+153 ;;^UTILITY(U,$J,.84,9212,2,13,0)
+154 ;;=
+155 ;;^UTILITY(U,$J,.84,9212,2,14,0)
+156 ;;= Character before cursor <Backspace>
+157 ;;^UTILITY(U,$J,.84,9212,2,15,0)
+158 ;;= Character at cursor <PF4> or <Remove> or <Delete>
+159 ;;^UTILITY(U,$J,.84,9212,2,16,0)
+160 ;;= From cursor to end of word <Ctrl-W>
+161 ;;^UTILITY(U,$J,.84,9212,2,17,0)
+162 ;;= From cursor to end of line <PF1><PF2>
+163 ;;^UTILITY(U,$J,.84,9212,2,18,0)
+164 ;;= Entire line <PF1>D
+165 ;;^UTILITY(U,$J,.84,9213,0)
+166 ;;=9213^3^^5
+167 ;;^UTILITY(U,$J,.84,9213,1,0)
+168 ;;=^.842^1^1^3000825^^^^
+169 ;;^UTILITY(U,$J,.84,9213,1,1,0)
+170 ;;=Screen 3 of Screen Editor help.
+171 ;;^UTILITY(U,$J,.84,9213,2,0)
+172 ;;=^^16^16^3000825^
