Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT00T

DINIT00T.m

Go to the documentation of this file.
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^