KFRPLKL ;JUMP NAAR RAADPLEGEN KLANTEN;KFRPLKL; [ 03/16/95   1:08 PM ]
 ;
 I $D(Extern) S K="-" Q
 S Locals("PARAM")=KC,Locals("KC")=KC D XECUTE^vhPROGRAM("S K=$$RAADPL^KLANT(KC,"""",1)")
 X @("^"_Q_"OD(0,US,0)"),^("UT") D ^KF12
 S K="-"
 Q