KLTKFAX ;MODULE DOORFAXEN VIA TKFAX;KLTKFAX; [ 07/08/2003  1:08 PM ]
 ;
 New zb
 Set K='$P($G(B(2)),D,26)
 Set K=$$PI^vhPOPUP("C;C","-O1","TKFax","SYSTEM","JANEEN",K)
 If zb="CANC" Set K="-"
 Else  Set K='K
 Set Locals("K")=K
 Quit
 ;