KFTP ;KEUZE PROGRAMMA VIA FUNKTIE-TOETSEN ;KFTP; [ 12/17/2001   4:35 PM ]
 G 1
 ;
1 G Y:'$D(@("^"_Q_"FT(K)")) S K=^(K),R1="MENU",R2=-1
11 S R2=$N(@("^"_Q_"BA(R1,R2)")) G Y:R2=-1 S R3=0
13 S R3=$N(@("^"_Q_"BA(R1,R2,R3)")) G 11:R3=-1 S R=^(R3) G 13:$P(R,D,4)'=$P(K,D,1) S QM=R2
 ;
2 G Y:"DG"'[$P(R,D,5),Y:$L($P(R,D,7)) L  ZD  B 0
21 K (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io,DEV,FR,F,F0,F1,F11,F12,F2,F3,F4,F5,F55,F56,F57,F58,F6,F60,F61,F62,F7,F8,F80,F81,F82,F83,F84,F85,F86,F9,F90,F91,F92,F93,F94,F95,FG,FDL,R,sProgLog,RK)
23 I $D(@("^"_Q_"BA(""CP"")")) S F70="D ^cQKP"
25 S $ZT="^cER" X F71
27 S %Q1="^"_Q_"BA(""%1"",$I)",@%Q1=1,QP=1,QD=$D(@("^"_Q_"BA(34)")) S:QD QD=^(34) S:'$D(QL) QL=9 S:'$D(QO) QO=""
 ;
3 D R6^cTR6,R5^cTR5 G @$P(R,D,4)
 ;
Y K K,R,R1,R2,R3
YZ Q
 ;
Z X ^cZ Q
ZZ ; 19.01.88 - 11 u 38