Return to DDWK.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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: 	;;