- 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 Feb 19, 2025@00:16:11 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^