DINIT00R.m

DINIT00R ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:34 AM  5 Dec 2012

 ;;22.0;VA FileMan;**169**;Mar 30, 1999;Build 28

 ;Per VHA Directive 2004-038, this routine should not be modified.

 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

DINIT00R  ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;11:34 AM  5 Dec 2012

 +1       ;;22.0;VA FileMan;**169**;Mar 30, 1999;Build 28

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3        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