Return to DINIT00V.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT00V.m, revision 1.1

1.1     ! snw         1: DINIT00V       ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94  09:32:23
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        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
        !             5: Q      Q
        !             6:        ;;^UTILITY(U,$J,.84,9201,2,77,0)
        !             7:        ;;=     few times, then press the arrow up key.  Also notice that the 'Line>'
        !             8:        ;;^UTILITY(U,$J,.84,9201,2,78,0)
        !             9:        ;;=     and 'Screen>' indicator numbers are changing. To see more of this
        !            10:        ;;^UTILITY(U,$J,.84,9201,2,79,0)
        !            11:        ;;=     text keep pressing the ARROW DOWN key.  Now try the arrow right key,
        !            12:        ;;^UTILITY(U,$J,.84,9201,2,80,0)
        !            13:        ;;=     then the arrow left key.  Notice that the 'Col>' indicator number is
        !            14:        ;;^UTILITY(U,$J,.84,9201,2,81,0)
        !            15:        ;;=     also changing.  This shows what column the left most edge of the
        !            16:        ;;^UTILITY(U,$J,.84,9201,2,82,0)
        !            17:        ;;=     document is on.  As you can see, the VA FileMan Browser is like a
        !            18:        ;;^UTILITY(U,$J,.84,9201,2,83,0)
        !            19:        ;;=     window placed over a document. You are in control of this window
        !            20:        ;;^UTILITY(U,$J,.84,9201,2,84,0)
        !            21:        ;;=     which moves over the document by pressing the functional key
        !            22:        ;;^UTILITY(U,$J,.84,9201,2,85,0)
        !            23:        ;;=     sequences.  Here are a few more functions.
        !            24:        ;;^UTILITY(U,$J,.84,9201,2,86,0)
        !            25:        ;;= 
        !            26:        ;;^UTILITY(U,$J,.84,9201,2,87,0)
        !            27:        ;;=     To PAGE DOWN one screen at one time, press the NEXT SCREEN key, PAGE
        !            28:        ;;^UTILITY(U,$J,.84,9201,2,88,0)
        !            29:        ;;=     DOWN or PF1 followed by the ARROW DOWN key, depending on what kind of
        !            30:        ;;^UTILITY(U,$J,.84,9201,2,89,0)
        !            31:        ;;=     CRT or workstation that is being used.
        !            32:        ;;^UTILITY(U,$J,.84,9201,2,90,0)
        !            33:        ;;=     
        !            34:        ;;^UTILITY(U,$J,.84,9201,2,91,0)
        !            35:        ;;=     To PAGE UP one screen at one time, press the PREV SCREEN key, PAGE UP
        !            36:        ;;^UTILITY(U,$J,.84,9201,2,92,0)
        !            37:        ;;=     or PF1 followed by the ARROW UP key, depending on what kind of CRT or
        !            38:        ;;^UTILITY(U,$J,.84,9201,2,93,0)
        !            39:        ;;=     workstation that is being used.
        !            40:        ;;^UTILITY(U,$J,.84,9201,2,94,0)
        !            41:        ;;=     
        !            42:        ;;^UTILITY(U,$J,.84,9201,2,95,0)
        !            43:        ;;=     To return to the TOP, back to the beginning of the document, press
        !            44:        ;;^UTILITY(U,$J,.84,9201,2,96,0)
        !            45:        ;;=     the <PF1> key followed by the letter 'T'.
        !            46:        ;;^UTILITY(U,$J,.84,9201,2,97,0)
        !            47:        ;;=     
        !            48:        ;;^UTILITY(U,$J,.84,9201,2,98,0)
        !            49:        ;;=     To go to the BOTTOM, end of the document, press the <PF1> key
        !            50:        ;;^UTILITY(U,$J,.84,9201,2,99,0)
        !            51:        ;;=     followed by the letter 'B'.
        !            52:        ;;^UTILITY(U,$J,.84,9201,2,100,0)
        !            53:        ;;=     
        !            54:        ;;^UTILITY(U,$J,.84,9201,2,101,0)
        !            55:        ;;=     To GOTO a specific screen, line or column press the <PF1> key
        !            56:        ;;^UTILITY(U,$J,.84,9201,2,102,0)
        !            57:        ;;=     followed by the letter 'G'.  This will cause a prompt to be displayed
        !            58:        ;;^UTILITY(U,$J,.84,9201,2,103,0)
        !            59:        ;;=     where a screen, line or column number can be entered preceded by a
        !            60:        ;;^UTILITY(U,$J,.84,9201,2,104,0)
        !            61:        ;;=     'S' , 'L' or 'C'.  The default is screen, meaning that the 'S' is
        !            62:        ;;^UTILITY(U,$J,.84,9201,2,105,0)
        !            63:        ;;=     optional when entering a screen number.  10 or S10 will go to screen
        !            64:        ;;^UTILITY(U,$J,.84,9201,2,106,0)
        !            65:        ;;=     10, if screen 10 is a valid screen.  L99 will go to line 99 and C33
        !            66:        ;;^UTILITY(U,$J,.84,9201,2,107,0)
        !            67:        ;;=     will go to column 33.
        !            68:        ;;^UTILITY(U,$J,.84,9201,2,108,0)
        !            69:        ;;=     
        !            70:        ;;^UTILITY(U,$J,.84,9201,2,109,0)
        !            71:        ;;=     To FIND a string of characters, on a line, press the <PF1> key
        !            72:        ;;^UTILITY(U,$J,.84,9201,2,110,0)
        !            73:        ;;=     followed by the letter 'F' or 'FIND' key.  A prompt will appear where
        !            74:        ;;^UTILITY(U,$J,.84,9201,2,111,0)
        !            75:        ;;=     a search string of characters can be entered.  The Find facility will
        !            76:        ;;^UTILITY(U,$J,.84,9201,2,112,0)
        !            77:        ;;=     search the document and immediately stop when it finds a match and
        !            78:        ;;^UTILITY(U,$J,.84,9201,2,113,0)
        !            79:        ;;=     'Goto' the line/screen.  The matched text will be highlighted in
        !            80:        ;;^UTILITY(U,$J,.84,9201,2,114,0)
        !            81:        ;;=     reverse video, if available, so it can be found easily.  However, if
        !            82:        ;;^UTILITY(U,$J,.84,9201,2,115,0)
        !            83:        ;;=     a string contains two or more words, matching will only be done if
        !            84:        ;;^UTILITY(U,$J,.84,9201,2,116,0)
        !            85:        ;;=     the words are found on the same line.  The default direction of the
        !            86:        ;;^UTILITY(U,$J,.84,9201,2,117,0)
        !            87:        ;;=     search is down.  This can be controlled by using the ARROW UP or
        !            88:        ;;^UTILITY(U,$J,.84,9201,2,118,0)
        !            89:        ;;=     ARROW DOWN keys instead of the RETURN key to terminate the search
        !            90:        ;;^UTILITY(U,$J,.84,9201,2,119,0)
        !            91:        ;;=     string.
        !            92:        ;;^UTILITY(U,$J,.84,9201,2,120,0)
        !            93:        ;;=     
        !            94:        ;;^UTILITY(U,$J,.84,9201,2,121,0)
        !            95:        ;;=     To, NEXT FIND, find the next occurrence of the same search string,
        !            96:        ;;^UTILITY(U,$J,.84,9201,2,122,0)
        !            97:        ;;=     press the letter 'N' or <PF1> followed by the letter 'N'. The FIND