Annotation of freem_fileman/DINIT00U.m, revision 1.1

1.1     ! snw         1: DINIT00U       ; 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,15,0)
        !             7:        ;;=     Jump to the Top                         <PF1>T
        !             8:        ;;^UTILITY(U,$J,.84,9201,2,16,0)
        !             9:        ;;=     Jump to the Bottom                      <PF1>B
        !            10:        ;;^UTILITY(U,$J,.84,9201,2,17,0)
        !            11:        ;;=     Goto                                    <PF1>G
        !            12:        ;;^UTILITY(U,$J,.84,9201,2,18,0)
        !            13:        ;;=     
        !            14:        ;;^UTILITY(U,$J,.84,9201,2,19,0)
        !            15:        ;;=SEARCH:
        !            16:        ;;^UTILITY(U,$J,.84,9201,2,20,0)
        !            17:        ;;========
        !            18:        ;;^UTILITY(U,$J,.84,9201,2,21,0)
        !            19:        ;;=     Find text                               <PF1>F
        !            20:        ;;^UTILITY(U,$J,.84,9201,2,22,0)
        !            21:        ;;=     Next (occurrence)                       <PF1>N
        !            22:        ;;^UTILITY(U,$J,.84,9201,2,23,0)
        !            23:        ;;=     
        !            24:        ;;^UTILITY(U,$J,.84,9201,2,24,0)
        !            25:        ;;=     Direction-terminate find text with:
        !            26:        ;;^UTILITY(U,$J,.84,9201,2,25,0)
        !            27:        ;;=     -----------------------------------
        !            28:        ;;^UTILITY(U,$J,.84,9201,2,26,0)
        !            29:        ;;=     Down                                    ARROW DOWN
        !            30:        ;;^UTILITY(U,$J,.84,9201,2,27,0)
        !            31:        ;;=     Up                                      ARROW UP
        !            32:        ;;^UTILITY(U,$J,.84,9201,2,28,0)
        !            33:        ;;=     
        !            34:        ;;^UTILITY(U,$J,.84,9201,2,29,0)
        !            35:        ;;=BRANCH:
        !            36:        ;;^UTILITY(U,$J,.84,9201,2,30,0)
        !            37:        ;;========
        !            38:        ;;^UTILITY(U,$J,.84,9201,2,31,0)
        !            39:        ;;=     Switch to another document              <PF1>S
        !            40:        ;;^UTILITY(U,$J,.84,9201,2,32,0)
        !            41:        ;;=     Return to previous document(s)          R
        !            42:        ;;^UTILITY(U,$J,.84,9201,2,33,0)
        !            43:        ;;= 
        !            44:        ;;^UTILITY(U,$J,.84,9201,2,34,0)
        !            45:        ;;=SCREEN:
        !            46:        ;;^UTILITY(U,$J,.84,9201,2,35,0)
        !            47:        ;;========
        !            48:        ;;^UTILITY(U,$J,.84,9201,2,36,0)
        !            49:        ;;=     Repaint screen                          <PF1>P
        !            50:        ;;^UTILITY(U,$J,.84,9201,2,37,0)
        !            51:        ;;=     Split screen                            <PF2>S
        !            52:        ;;^UTILITY(U,$J,.84,9201,2,38,0)
        !            53:        ;;=     restore Full screen                     <PF2>F
        !            54:        ;;^UTILITY(U,$J,.84,9201,2,39,0)
        !            55:        ;;= 
        !            56:        ;;^UTILITY(U,$J,.84,9201,2,40,0)
        !            57:        ;;=     Split Screen Mode Navigation:
        !            58:        ;;^UTILITY(U,$J,.84,9201,2,41,0)
        !            59:        ;;=     -----------------------------
        !            60:        ;;^UTILITY(U,$J,.84,9201,2,42,0)
        !            61:        ;;=     Navigate to bottom screen              <PF2>ARROW DOWN
        !            62:        ;;^UTILITY(U,$J,.84,9201,2,43,0)
        !            63:        ;;=     Navigate to top screen                 <PF2>ARROW UP
        !            64:        ;;^UTILITY(U,$J,.84,9201,2,44,0)
        !            65:        ;;= 
        !            66:        ;;^UTILITY(U,$J,.84,9201,2,45,0)
        !            67:        ;;=     Resize Split Screen:
        !            68:        ;;^UTILITY(U,$J,.84,9201,2,46,0)
        !            69:        ;;=     --------------------
        !            70:        ;;^UTILITY(U,$J,.84,9201,2,47,0)
        !            71:        ;;=     Top/Bottom screen larger/smaller       <PF2><PF2>ARROW DOWN
        !            72:        ;;^UTILITY(U,$J,.84,9201,2,48,0)
        !            73:        ;;=     Bottom/Top screen larger/smaller       <PF2><PF2>ARROW UP
        !            74:        ;;^UTILITY(U,$J,.84,9201,2,49,0)
        !            75:        ;;=     
        !            76:        ;;^UTILITY(U,$J,.84,9201,2,50,0)
        !            77:        ;;=HELP:
        !            78:        ;;^UTILITY(U,$J,.84,9201,2,51,0)
        !            79:        ;;======
        !            80:        ;;^UTILITY(U,$J,.84,9201,2,52,0)
        !            81:        ;;=     Browse Key Summary                     <PF1>H
        !            82:        ;;^UTILITY(U,$J,.84,9201,2,53,0)
        !            83:        ;;=     More Help                              <PF1><PF1>H
        !            84:        ;;^UTILITY(U,$J,.84,9201,2,54,0)
        !            85:        ;;= 
        !            86:        ;;^UTILITY(U,$J,.84,9201,2,55,0)
        !            87:        ;;=EXIT:
        !            88:        ;;^UTILITY(U,$J,.84,9201,2,56,0)
        !            89:        ;;======
        !            90:        ;;^UTILITY(U,$J,.84,9201,2,57,0)
        !            91:        ;;=     Exit Browser or help text              <PF1>E or "EXIT"
        !            92:        ;;^UTILITY(U,$J,.84,9201,2,58,0)
        !            93:        ;;=     Quit                                   <PF1>Q
        !            94:        ;;^UTILITY(U,$J,.84,9201,2,59,0)
        !            95:        ;;=     
        !            96:        ;;^UTILITY(U,$J,.84,9201,2,60,0)
        !            97:        ;;=                                    More Help
        !            98:        ;;^UTILITY(U,$J,.84,9201,2,61,0)
        !            99:        ;;=                                    =========
        !           100:        ;;^UTILITY(U,$J,.84,9201,2,62,0)
        !           101:        ;;= 
        !           102:        ;;^UTILITY(U,$J,.84,9201,2,63,0)
        !           103:        ;;=     To EXIT the VA FileMan Browser, press <PF1> followed by the letter
        !           104:        ;;^UTILITY(U,$J,.84,9201,2,64,0)
        !           105:        ;;=     'E'.  This is also true for this HELP document which is being
        !           106:        ;;^UTILITY(U,$J,.84,9201,2,65,0)
        !           107:        ;;=     presented by the Browser.
        !           108:        ;;^UTILITY(U,$J,.84,9201,2,66,0)
        !           109:        ;;=     
        !           110:        ;;^UTILITY(U,$J,.84,9201,2,67,0)
        !           111:        ;;=     To SCROLL DOWN one line at a time, press the ARROW DOWN key.
        !           112:        ;;^UTILITY(U,$J,.84,9201,2,68,0)
        !           113:        ;;=     
        !           114:        ;;^UTILITY(U,$J,.84,9201,2,69,0)
        !           115:        ;;=     To SCROLL UP one line at a time, press the ARROW UP key.
        !           116:        ;;^UTILITY(U,$J,.84,9201,2,70,0)
        !           117:        ;;=     
        !           118:        ;;^UTILITY(U,$J,.84,9201,2,71,0)
        !           119:        ;;=     To SCROLL RIGHT, press the ARROW RIGHT key.
        !           120:        ;;^UTILITY(U,$J,.84,9201,2,72,0)
        !           121:        ;;=     
        !           122:        ;;^UTILITY(U,$J,.84,9201,2,73,0)
        !           123:        ;;=     To SCROLL LEFT, press the ARROW LEFT key.
        !           124:        ;;^UTILITY(U,$J,.84,9201,2,74,0)
        !           125:        ;;=     
        !           126:        ;;^UTILITY(U,$J,.84,9201,2,75,0)
        !           127:        ;;=     Try pressing these keys at this time and observe the behavior. Get a
        !           128:        ;;^UTILITY(U,$J,.84,9201,2,76,0)
        !           129:        ;;=     feel for 'browsing' through a document.  Press the arrow down key a

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>