Return to DDWK.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDWK.m, revision 1.1.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:        ;;