Return to DIR0K.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIR0K.m, revision 1.1.1.1

1.1       snw         1: DIR0K  ;SFISC/MKO-GET KEYS FOR FIELD EDITOR ;08:42 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
                      6:        N AU,AD,AR,AL,F1,F2,F3,F4,I,K,T
                      7:        N REMOVE,PREVSC,NEXTSC
                      8:        S AU=$P(DDGLKEY,U,2)
                      9:        S AD=$P(DDGLKEY,U,3)
                     10:        S AR=$P(DDGLKEY,U,4)
                     11:        S AL=$P(DDGLKEY,U,5)
                     12:        S F1=$P(DDGLKEY,U,6)
                     13:        S F2=$P(DDGLKEY,U,7)
                     14:        S F3=$P(DDGLKEY,U,8)
                     15:        S F4=$P(DDGLKEY,U,9)
                     16:        S REMOVE=$P(DDGLKEY,U,13)
                     17:        S PREVSC=$P(DDGLKEY,U,14)
                     18:        S NEXTSC=$P(DDGLKEY,U,15)
                     19:        ;
                     20:        S DIR0(DIR0P_"IN")="",DIR0(DIR0P_"OUT")=""
                     21:        ;
                     22:        I DIR0P="C" S I="" F  S I=$O(DIR0MAP(I)) Q:I'=+$P(I,"E")  S T=DIR0MAP(I) D INOUT
                     23:        F I=1:1 S T=$P($T(GENMAP+I),";;",2,999) Q:T=""  D INOUT
                     24:        I DIR0P="" F I=1:1 S T=$P($T(SMMAP+I),";;",2,999) Q:T=""  D INOUT
                     25:        ;
                     26:        S DIR0(DIR0P_"IN")=DIR0(DIR0P_"IN")_U
                     27:        S DIR0(DIR0P_"OUT")=$E(DIR0(DIR0P_"OUT"),1,$L(DIR0(DIR0P_"OUT"))-1)
                     28:        Q
                     29:        ;
                     30: INOUT  ;Set DIR0("IN") and DIR0("OUT")
                     31:        I $P(T,";",2)="KEYDOWN" Q:$P(T,";")=""  S DIR0KD=$P(T,";"),K="KD"
                     32:        E  S @("K="_$P(T,";",2))
                     33:        I DIR0(DIR0P_"IN")'[(U_K) D
                     34:        . S DIR0(DIR0P_"IN")=DIR0(DIR0P_"IN")_U_K
                     35:        . S DIR0(DIR0P_"OUT")=DIR0(DIR0P_"OUT")_$P(T,";")_";"
                     36:        ;
                     37:        Q
                     38: GENMAP ;General field editor key sequences
                     39:        ;;RIGHT;AR
                     40:        ;;LEFT;AL
                     41:        ;;JRT;F1_AR
                     42:        ;;JLT;F1_AL
                     43:        ;;FDE;F1_F1_AR
                     44:        ;;FDB;F1_F1_AL
                     45:        ;;WRT;F1_" "
                     46:        ;;WRT;$C(12)
                     47:        ;;WLT;$C(10)
                     48:        ;;DEL;REMOVE
                     49:        ;;DEL;F2
                     50:        ;;CLR;F1_"D"
                     51:        ;;CLR;$C(21)
                     52:        ;;DEOF;F1_F2
                     53:        ;;DLW;$C(23)
                     54:        ;;CR;$C(13)
                     55:        ;;UP;AU
                     56:        ;;DOWN;AD
                     57:        ;;TAB;$C(9)
                     58:        ;;RPM;F3
                     59:        ;;BS;$C(127)
                     60:        ;;BS;$C(8)
                     61:        ;;
                     62: SMMAP  ;ScreenMan specific key sequences
                     63:        ;;FDL;F4
                     64:        ;;NB;F1_F4
                     65:        ;;NP;F1_AD
                     66:        ;;NP;NEXTSC
                     67:        ;;PP;F1_AU
                     68:        ;;PP;PREVSC
                     69:        ;;HLP;F1_"H"
                     70:        ;;SEL;F1_"L"
                     71:        ;;EX;F1_"E"
                     72:        ;;QT;F1_"Q"
                     73:        ;;CL;F1_"C"
                     74:        ;;SV;F1_"S"
                     75:        ;;RF;F1_"R"
                     76:        ;;ZM;F1_"Z"
                     77:        ;;