Return to DDWK.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDWK.m, revision 1.1

1.1     ! snw         1: DDWK   ;SFISC/MKO-SCREEN EDITOR MAIN ROUTINE ;08:13 AM  30 Aug 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5: GETKEY ;Get key sequences and defaults
        !             6:        N AU,AD,AR,AL,F1,F2,F3,F4
        !             7:        N FIND,REMOVE,PREVSC,NEXTSC
        !             8:        N I,K,N,T
        !             9:        S AU=$P(DDGLKEY,U,2)
        !            10:        S AD=$P(DDGLKEY,U,3)
        !            11:        S AR=$P(DDGLKEY,U,4)
        !            12:        S AL=$P(DDGLKEY,U,5)
        !            13:        S F1=$P(DDGLKEY,U,6)
        !            14:        S F2=$P(DDGLKEY,U,7)
        !            15:        S F3=$P(DDGLKEY,U,8)
        !            16:        S F4=$P(DDGLKEY,U,9)
        !            17:        S FIND=$P(DDGLKEY,U,10)
        !            18:        S REMOVE=$P(DDGLKEY,U,13)
        !            19:        S PREVSC=$P(DDGLKEY,U,14)
        !            20:        S NEXTSC=$P(DDGLKEY,U,15)
        !            21:        ;
        !            22:        S DDW("IN")="",DDW("OUT")=""
        !            23:        F I=1:1 S T=$P($T(MAP+I),";;",2,999) Q:T=""  D
        !            24:        . S @("K="_$P(T,";",2))
        !            25:        . I DDW("IN")'[(U_K),K]"" D
        !            26:        .. S DDW("IN")=DDW("IN")_U_K
        !            27:        .. S DDW("OUT")=DDW("OUT")_$P(T,";")_U
        !            28:        S DDW("IN")=DDW("IN")_U
        !            29:        S DDW("OUT")=$E(DDW("OUT"),1,$L(DDW("OUT"))-1)
        !            30:        Q
        !            31:        ;
        !            32: MAP    ;Keys for main screen
        !            33:        ;;UP;AU
        !            34:        ;;DN;AD
        !            35:        ;;RT;AR
        !            36:        ;;LT;AL
        !            37:        ;;TAB;$C(9)
        !            38:        ;;PUP;F1_AU
        !            39:        ;;PUP;PREVSC
        !            40:        ;;PDN;F1_AD
        !            41:        ;;PDN;NEXTSC
        !            42:        ;;JLT;F1_AL
        !            43:        ;;JRT;F1_AR
        !            44:        ;;LB;F1_F1_AL
        !            45:        ;;LE;F1_F1_AR
        !            46:        ;;TOP;F1_"T"
        !            47:        ;;BOT;F1_"B"
        !            48:        ;;WRT;F1_" "
        !            49:        ;;WRT;$C(12)
        !            50:        ;;WLT;$C(10)
        !            51:        ;;RUB;$C(127)
        !            52:        ;;RUB;$C(8)
        !            53:        ;;DEL;REMOVE
        !            54:        ;;DEL;F4
        !            55:        ;;DEOL;F1_F2
        !            56:        ;;BRK;$C(13)
        !            57:        ;;JN;F1_"J"
        !            58:        ;;RFT;F1_"R"
        !            59:        ;;ST;F1_"?"
        !            60:        ;;XLN;F1_"D"
        !            61:        ;;TST;F1_$C(9)
        !            62:        ;;LST;F1_","
        !            63:        ;;RST;F1_"."
        !            64:        ;;WRM;F2
        !            65:        ;;RPM;F3
        !            66:        ;;SV;F1_"S"
        !            67:        ;;SW;F1_"A"
        !            68:        ;;EX;F1_"E"
        !            69:        ;;QT;F1_"Q"
        !            70:        ;;HLP;F1_"H"
        !            71:        ;;DLW;$C(23)
        !            72:        ;;MRK;F1_"M"
        !            73:        ;;UMK;F1_F1_"M"
        !            74:        ;;CUT;F1_"X"
        !            75:        ;;CPY;F1_"C"
        !            76:        ;;PST;F1_"V"
        !            77:        ;;FND;F1_"F"
        !            78:        ;;FND;FIND
        !            79:        ;;NXT;F1_"N"
        !            80:        ;;GTO;F1_"G"
        !            81:        ;;CHG;F1_"P"
        !            82:        ;;