TKFAXSI ;INDIVIDUAL LIST ;TKFAXSI; [ 11/17/2000  5:49 PM ]
 ;
OVER S TIT="INDIVIDUAL LIST" D START
 S TYP=1,BL=23,NX=5,SEL=0,TFM=1,%MF=1 K EX D ^TKFAXS
 G YZ
 ;
RES S TIT="INDIVIDUAL RESEND" D START
 S TYP=1,BL=23,NX=5,SEL=0,TFM=1,%MF=1 K EX D RESEND^TKFAXQ
 G YZ
 ;
CAN S TIT="INDIVIDUAL CANCEL" D START
 S TYP=1,BL=23,NX=5,SEL=0,TFM=1,%MF=1 K EX D CANCEL^TKFAXQ
 G YZ
 ;
YZ Q
 ;
START D:$D(TKX)+$D(TK("ECHO-ON"))+$D(XX)'=3 SETUP S:'$D(TK(3)) TK(3)=$$IO^cQ5
 I $D(^TKFAXC("FAX"))=0 D ^TKFAXI S ^TKFAXC("FAX")=""
TITLE D HEAD K CHR,TRM,LNG,PAT
T1 S %R=3,%C=35 W TK("LO"),@TKP,"Version ",$P($T(TKFAX^TKFAX),",",3) S cp=1
 Q
 ;
HEAD W TK("F") S %R=1,%C=2 W TK("LO"),@TKP,TK("RON")," D A T A - M "
 S K=$G(TIT," "_$P($T(+1),";",2)),%C=80-$L(K)\2 W TK("ROF"),@TKP,TK("HI"),K,TK("LO"),TK("RON")
 S %C=70 W @TKP,"  TK-FAX  ",TK("ROF"),!
 W TK("G1") S J=TK("HL"),J=J_J_J_J F I=1:1:20 W J
 W TK("G0") Q
SETUP D:$D(TK)+$D(TKX)'=12 FUNC^TKDEV S TK("ECHO-ON")=^TK("ECHO-ON"),TK("ECHO-OFF")=^TK("ECHO-OFF")
 X ^TK("TERM-ON"),^TK("WRAP-OFF") S %R=23,%C=1 I $D(^TKFAXC(95,TK,1)) S XX=^(4)
 D:'$T SETUP^TKFAXU I $D(TK(9)),TK(9)["TKWP" S $P(TK(9),"(")="^TKFAXC" Q
 K TK(9) I $D(^TKFAXC(98,$I))#2 S:^TKFAXC(98,$I)>1 TK(9)="^TKFAXC(99,"_(TK["VT")_","_^($I)_")"
 Q
 ;
ZZ ; 01.04.97 - 10 u 43 *