DINIT00Q.m

DINIT00Q ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;2:03 PM  10 Jan 2013

 ;;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,85,0)

 ;;=     To SCROLL RIGHT, press the ARROW RIGHT key.

 ;;^UTILITY(U,$J,.84,9201,2,86,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,87,0)

 ;;=     To SCROLL LEFT, press the ARROW LEFT key.

 ;;^UTILITY(U,$J,.84,9201,2,88,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,89,0)

 ;;=     Try pressing these keys at this time and observe the behavior. Get a

 ;;^UTILITY(U,$J,.84,9201,2,90,0)

 ;;=     feel for 'browsing' through a document.  Press the arrow down key a

 ;;^UTILITY(U,$J,.84,9201,2,91,0)

 ;;=     few times, then press the arrow up key.  Also notice that the 'Line>'

 ;;^UTILITY(U,$J,.84,9201,2,92,0)

 ;;=     and 'Screen>' indicator numbers are changing. To see more of this

 ;;^UTILITY(U,$J,.84,9201,2,93,0)

 ;;=     text keep pressing the ARROW DOWN key.  Now try the arrow right key,

 ;;^UTILITY(U,$J,.84,9201,2,94,0)

 ;;=     then the arrow left key.  Notice that the 'Col>' indicator number is

 ;;^UTILITY(U,$J,.84,9201,2,95,0)

 ;;=     also changing.  This shows what column the left most edge of the

 ;;^UTILITY(U,$J,.84,9201,2,96,0)

 ;;=     document is on.  As you can see, the VA FileMan Browser is like a

 ;;^UTILITY(U,$J,.84,9201,2,97,0)

 ;;=     window placed over a document. You are in control of this window

 ;;^UTILITY(U,$J,.84,9201,2,98,0)

 ;;=     which moves over the document by pressing the functional key

 ;;^UTILITY(U,$J,.84,9201,2,99,0)

 ;;=     sequences.  Here are a few more functions.

 ;;^UTILITY(U,$J,.84,9201,2,100,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,101,0)

 ;;=     To PAGE DOWN one screen at one time, press the NEXT SCREEN key, PAGE

 ;;^UTILITY(U,$J,.84,9201,2,102,0)

 ;;=     DOWN or PF1 followed by the ARROW DOWN key, depending on what kind of

 ;;^UTILITY(U,$J,.84,9201,2,103,0)

 ;;=     CRT or workstation that is being used.

 ;;^UTILITY(U,$J,.84,9201,2,104,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,105,0)

 ;;=     To PAGE UP one screen at one time, press the PREV SCREEN key, PAGE UP

 ;;^UTILITY(U,$J,.84,9201,2,106,0)

 ;;=     or PF1 followed by the ARROW UP key, depending on what kind of CRT or

 ;;^UTILITY(U,$J,.84,9201,2,107,0)

 ;;=     workstation that is being used.

 ;;^UTILITY(U,$J,.84,9201,2,108,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,109,0)

 ;;=     To return to the TOP, back to the beginning of the document, press

 ;;^UTILITY(U,$J,.84,9201,2,110,0)

 ;;=     the <PF1> key followed by the letter 'T'.

 ;;^UTILITY(U,$J,.84,9201,2,111,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,112,0)

 ;;=     To go to the BOTTOM, end of the document, press the <PF1> key

 ;;^UTILITY(U,$J,.84,9201,2,113,0)

 ;;=     followed by the letter 'B'.

 ;;^UTILITY(U,$J,.84,9201,2,114,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,115,0)

 ;;=     To GOTO a specific screen, line or column press the <PF1> key

 ;;^UTILITY(U,$J,.84,9201,2,116,0)

 ;;=     followed by the letter 'G'.  This will cause a prompt to be displayed

 ;;^UTILITY(U,$J,.84,9201,2,117,0)

 ;;=     where a screen, line or column number can be entered preceded by a

 ;;^UTILITY(U,$J,.84,9201,2,118,0)

 ;;=     'S' , 'L' or 'C'.  The default is screen, meaning that the 'S' is

 ;;^UTILITY(U,$J,.84,9201,2,119,0)

 ;;=     optional when entering a screen number.  10 or S10 will go to screen

 ;;^UTILITY(U,$J,.84,9201,2,120,0)

 ;;=     10, if screen 10 is a valid screen.  L99 will go to line 99 and C33

 ;;^UTILITY(U,$J,.84,9201,2,121,0)

 ;;=     will go to column 33.

 ;;^UTILITY(U,$J,.84,9201,2,122,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,123,0)

 ;;=     To FIND a string of characters, on a line, press the <PF1> key

 ;;^UTILITY(U,$J,.84,9201,2,124,0)

 ;;=     followed by the letter 'F' or 'FIND' key.  A prompt will appear where

 ;;^UTILITY(U,$J,.84,9201,2,125,0)

 ;;=     a search string of characters can be entered.  The Find facility will

 ;;^UTILITY(U,$J,.84,9201,2,126,0)

 ;;=     search the document and immediately stop when it finds a match and

 ;;^UTILITY(U,$J,.84,9201,2,127,0)

 ;;=     'Goto' the line/screen.  The matched text will be highlighted in

 ;;^UTILITY(U,$J,.84,9201,2,128,0)

 ;;=     reverse video, if available, so it can be found easily.  However, if

 ;;^UTILITY(U,$J,.84,9201,2,129,0)

 ;;=     a string contains two or more words, matching will only be done if

 ;;^UTILITY(U,$J,.84,9201,2,130,0)

 ;;=     the words are found on the same line.  The default direction of the

 ;;^UTILITY(U,$J,.84,9201,2,131,0)

 ;;=     search is down.  This can be controlled by using the ARROW UP or

 ;;^UTILITY(U,$J,.84,9201,2,132,0)

 ;;=     ARROW DOWN keys instead of the RETURN key to terminate the search

 ;;^UTILITY(U,$J,.84,9201,2,133,0)

 ;;=     string.

 ;;^UTILITY(U,$J,.84,9201,2,134,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,135,0)

 ;;=     To, NEXT FIND, find the next occurrence of the same search string,

 ;;^UTILITY(U,$J,.84,9201,2,136,0)

 ;;=     press the letter 'N' or <PF1> followed by the letter 'N'. The FIND

 ;;^UTILITY(U,$J,.84,9201,2,137,0)

 ;;=     facility keeps track of the last find string including the direction

 ;;^UTILITY(U,$J,.84,9201,2,138,0)

 ;;=     and continues searching through the document and brings up the next

 ;;^UTILITY(U,$J,.84,9201,2,139,0)

 ;;=     screen.  If no match is found a message appears indicating this and

 ;;^UTILITY(U,$J,.84,9201,2,140,0)

 ;;=     the screen is repainted at it's original location.

 ;;^UTILITY(U,$J,.84,9201,2,141,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,142,0)

 ;;=     To rePAINT the screen, press the <PF1> key followed by the letter

 ;;^UTILITY(U,$J,.84,9201,2,143,0)

 ;;=     'P'.

 ;;^UTILITY(U,$J,.84,9201,2,144,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,145,0)

 ;;=     To PRINT the current document, press <PF1><PF1> followed by the

 ;;^UTILITY(U,$J,.84,9201,2,146,0)

 ;;=     letter 'P'. You will be prompted whether to print a header on each

 ;;^UTILITY(U,$J,.84,9201,2,147,0)

 ;;=     page, whether to wrap the text at word bounaries, whether to

 ;;^UTILITY(U,$J,.84,9201,2,148,0)

 ;;=     interpret wp windows (|), and for a DEVICE to print to.

 ;;^UTILITY(U,$J,.84,9201,2,149,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,150,0)

 ;;=     To SWITCH to another document press the <PF1> key followed by the

 ;;^UTILITY(U,$J,.84,9201,2,151,0)

 ;;=     letter 'S'.  This will allow the selection of another file, (wp)field

 ;;^UTILITY(U,$J,.84,9201,2,152,0)

 ;;=     and entry.  The document is put on an active list and Browse

 ;;^UTILITY(U,$J,.84,9201,2,153,0)

 ;;=     switches to the newly selected document.  Subsequent use of Switch

 ;;^UTILITY(U,$J,.84,9201,2,154,0)

 ;;=     will allow choosing from the active list if desired or branch to

 ;;^UTILITY(U,$J,.84,9201,2,155,0)

 ;;=     select file, (wp)field and entry prompts. This function CAN BE

 ;;^UTILITY(U,$J,.84,9201,2,156,0)

 ;;=     RESTRICTED depending on how the running application calls the Browser

 ;;^UTILITY(U,$J,.84,9201,2,157,0)

 ;;=     utility.

 ;;^UTILITY(U,$J,.84,9201,2,158,0)

 ;;= 

 ;;^UTILITY(U,$J,.84,9201,2,159,0)

 ;;=     To RETURN to the previous document after using Switch or Help, press

DINIT00Q  ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;2:03 PM  10 Jan 2013

 +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,85,0)

 +2       ;;=     To SCROLL RIGHT, press the ARROW RIGHT key.

 +3       ;;^UTILITY(U,$J,.84,9201,2,86,0)

 +4       ;;= 

 +5       ;;^UTILITY(U,$J,.84,9201,2,87,0)

 +6       ;;=     To SCROLL LEFT, press the ARROW LEFT key.

 +7       ;;^UTILITY(U,$J,.84,9201,2,88,0)

 +8       ;;= 

 +9       ;;^UTILITY(U,$J,.84,9201,2,89,0)

 +10      ;;=     Try pressing these keys at this time and observe the behavior. Get a

 +11      ;;^UTILITY(U,$J,.84,9201,2,90,0)

 +12      ;;=     feel for 'browsing' through a document.  Press the arrow down key a

 +13      ;;^UTILITY(U,$J,.84,9201,2,91,0)

 +14      ;;=     few times, then press the arrow up key.  Also notice that the 'Line>'

 +15      ;;^UTILITY(U,$J,.84,9201,2,92,0)

 +16      ;;=     and 'Screen>' indicator numbers are changing. To see more of this

 +17      ;;^UTILITY(U,$J,.84,9201,2,93,0)

 +18      ;;=     text keep pressing the ARROW DOWN key.  Now try the arrow right key,

 +19      ;;^UTILITY(U,$J,.84,9201,2,94,0)

 +20      ;;=     then the arrow left key.  Notice that the 'Col>' indicator number is

 +21      ;;^UTILITY(U,$J,.84,9201,2,95,0)

 +22      ;;=     also changing.  This shows what column the left most edge of the

 +23      ;;^UTILITY(U,$J,.84,9201,2,96,0)

 +24      ;;=     document is on.  As you can see, the VA FileMan Browser is like a

 +25      ;;^UTILITY(U,$J,.84,9201,2,97,0)

 +26      ;;=     window placed over a document. You are in control of this window

 +27      ;;^UTILITY(U,$J,.84,9201,2,98,0)

 +28      ;;=     which moves over the document by pressing the functional key

 +29      ;;^UTILITY(U,$J,.84,9201,2,99,0)

 +30      ;;=     sequences.  Here are a few more functions.

 +31      ;;^UTILITY(U,$J,.84,9201,2,100,0)

 +32      ;;= 

 +33      ;;^UTILITY(U,$J,.84,9201,2,101,0)

 +34      ;;=     To PAGE DOWN one screen at one time, press the NEXT SCREEN key, PAGE

 +35      ;;^UTILITY(U,$J,.84,9201,2,102,0)

 +36      ;;=     DOWN or PF1 followed by the ARROW DOWN key, depending on what kind of

 +37      ;;^UTILITY(U,$J,.84,9201,2,103,0)

 +38      ;;=     CRT or workstation that is being used.

 +39      ;;^UTILITY(U,$J,.84,9201,2,104,0)

 +40      ;;= 

 +41      ;;^UTILITY(U,$J,.84,9201,2,105,0)

 +42      ;;=     To PAGE UP one screen at one time, press the PREV SCREEN key, PAGE UP

 +43      ;;^UTILITY(U,$J,.84,9201,2,106,0)

 +44      ;;=     or PF1 followed by the ARROW UP key, depending on what kind of CRT or

 +45      ;;^UTILITY(U,$J,.84,9201,2,107,0)

 +46      ;;=     workstation that is being used.

 +47      ;;^UTILITY(U,$J,.84,9201,2,108,0)

 +48      ;;= 

 +49      ;;^UTILITY(U,$J,.84,9201,2,109,0)

 +50      ;;=     To return to the TOP, back to the beginning of the document, press

 +51      ;;^UTILITY(U,$J,.84,9201,2,110,0)

 +52      ;;=     the <PF1> key followed by the letter 'T'.

 +53      ;;^UTILITY(U,$J,.84,9201,2,111,0)

 +54      ;;= 

 +55      ;;^UTILITY(U,$J,.84,9201,2,112,0)

 +56      ;;=     To go to the BOTTOM, end of the document, press the <PF1> key

 +57      ;;^UTILITY(U,$J,.84,9201,2,113,0)

 +58      ;;=     followed by the letter 'B'.

 +59      ;;^UTILITY(U,$J,.84,9201,2,114,0)

 +60      ;;= 

 +61      ;;^UTILITY(U,$J,.84,9201,2,115,0)

 +62      ;;=     To GOTO a specific screen, line or column press the <PF1> key

 +63      ;;^UTILITY(U,$J,.84,9201,2,116,0)

 +64      ;;=     followed by the letter 'G'.  This will cause a prompt to be displayed

 +65      ;;^UTILITY(U,$J,.84,9201,2,117,0)

 +66      ;;=     where a screen, line or column number can be entered preceded by a

 +67      ;;^UTILITY(U,$J,.84,9201,2,118,0)

 +68      ;;=     'S' , 'L' or 'C'.  The default is screen, meaning that the 'S' is

 +69      ;;^UTILITY(U,$J,.84,9201,2,119,0)

 +70      ;;=     optional when entering a screen number.  10 or S10 will go to screen

 +71      ;;^UTILITY(U,$J,.84,9201,2,120,0)

 +72      ;;=     10, if screen 10 is a valid screen.  L99 will go to line 99 and C33

 +73      ;;^UTILITY(U,$J,.84,9201,2,121,0)

 +74      ;;=     will go to column 33.

 +75      ;;^UTILITY(U,$J,.84,9201,2,122,0)

 +76      ;;= 

 +77      ;;^UTILITY(U,$J,.84,9201,2,123,0)

 +78      ;;=     To FIND a string of characters, on a line, press the <PF1> key

 +79      ;;^UTILITY(U,$J,.84,9201,2,124,0)

 +80      ;;=     followed by the letter 'F' or 'FIND' key.  A prompt will appear where

 +81      ;;^UTILITY(U,$J,.84,9201,2,125,0)

 +82      ;;=     a search string of characters can be entered.  The Find facility will

 +83      ;;^UTILITY(U,$J,.84,9201,2,126,0)

 +84      ;;=     search the document and immediately stop when it finds a match and

 +85      ;;^UTILITY(U,$J,.84,9201,2,127,0)

 +86      ;;=     'Goto' the line/screen.  The matched text will be highlighted in

 +87      ;;^UTILITY(U,$J,.84,9201,2,128,0)

 +88      ;;=     reverse video, if available, so it can be found easily.  However, if

 +89      ;;^UTILITY(U,$J,.84,9201,2,129,0)

 +90      ;;=     a string contains two or more words, matching will only be done if

 +91      ;;^UTILITY(U,$J,.84,9201,2,130,0)

 +92      ;;=     the words are found on the same line.  The default direction of the

 +93      ;;^UTILITY(U,$J,.84,9201,2,131,0)

 +94      ;;=     search is down.  This can be controlled by using the ARROW UP or

 +95      ;;^UTILITY(U,$J,.84,9201,2,132,0)

 +96      ;;=     ARROW DOWN keys instead of the RETURN key to terminate the search

 +97      ;;^UTILITY(U,$J,.84,9201,2,133,0)

 +98      ;;=     string.

 +99      ;;^UTILITY(U,$J,.84,9201,2,134,0)

 +100     ;;= 

 +101     ;;^UTILITY(U,$J,.84,9201,2,135,0)

 +102     ;;=     To, NEXT FIND, find the next occurrence of the same search string,

 +103     ;;^UTILITY(U,$J,.84,9201,2,136,0)

 +104     ;;=     press the letter 'N' or <PF1> followed by the letter 'N'. The FIND

 +105     ;;^UTILITY(U,$J,.84,9201,2,137,0)

 +106     ;;=     facility keeps track of the last find string including the direction

 +107     ;;^UTILITY(U,$J,.84,9201,2,138,0)

 +108     ;;=     and continues searching through the document and brings up the next

 +109     ;;^UTILITY(U,$J,.84,9201,2,139,0)

 +110     ;;=     screen.  If no match is found a message appears indicating this and

 +111     ;;^UTILITY(U,$J,.84,9201,2,140,0)

 +112     ;;=     the screen is repainted at it's original location.

 +113     ;;^UTILITY(U,$J,.84,9201,2,141,0)

 +114     ;;= 

 +115     ;;^UTILITY(U,$J,.84,9201,2,142,0)

 +116     ;;=     To rePAINT the screen, press the <PF1> key followed by the letter

 +117     ;;^UTILITY(U,$J,.84,9201,2,143,0)

 +118     ;;=     'P'.

 +119     ;;^UTILITY(U,$J,.84,9201,2,144,0)

 +120     ;;= 

 +121     ;;^UTILITY(U,$J,.84,9201,2,145,0)

 +122     ;;=     To PRINT the current document, press <PF1><PF1> followed by the

 +123     ;;^UTILITY(U,$J,.84,9201,2,146,0)

 +124     ;;=     letter 'P'. You will be prompted whether to print a header on each

 +125     ;;^UTILITY(U,$J,.84,9201,2,147,0)

 +126     ;;=     page, whether to wrap the text at word bounaries, whether to

 +127     ;;^UTILITY(U,$J,.84,9201,2,148,0)

 +128     ;;=     interpret wp windows (|), and for a DEVICE to print to.

 +129     ;;^UTILITY(U,$J,.84,9201,2,149,0)

 +130     ;;= 

 +131     ;;^UTILITY(U,$J,.84,9201,2,150,0)

 +132     ;;=     To SWITCH to another document press the <PF1> key followed by the

 +133     ;;^UTILITY(U,$J,.84,9201,2,151,0)

 +134     ;;=     letter 'S'.  This will allow the selection of another file, (wp)field

 +135     ;;^UTILITY(U,$J,.84,9201,2,152,0)

 +136     ;;=     and entry.  The document is put on an active list and Browse

 +137     ;;^UTILITY(U,$J,.84,9201,2,153,0)

 +138     ;;=     switches to the newly selected document.  Subsequent use of Switch

 +139     ;;^UTILITY(U,$J,.84,9201,2,154,0)

 +140     ;;=     will allow choosing from the active list if desired or branch to

 +141     ;;^UTILITY(U,$J,.84,9201,2,155,0)

 +142     ;;=     select file, (wp)field and entry prompts. This function CAN BE

 +143     ;;^UTILITY(U,$J,.84,9201,2,156,0)

 +144     ;;=     RESTRICTED depending on how the running application calls the Browser

 +145     ;;^UTILITY(U,$J,.84,9201,2,157,0)

 +146     ;;=     utility.

 +147     ;;^UTILITY(U,$J,.84,9201,2,158,0)

 +148     ;;= 

 +149     ;;^UTILITY(U,$J,.84,9201,2,159,0)

 +150     ;;=     To RETURN to the previous document after using Switch or Help, press