FLOWCOPYKFA ; ^COPYKFA
 ;
DELOBJ(FANr)
 New FaRec,KLNr,FactDate
 Do:$D(^COPYKFA("F",FANr))
 . Set FaRec=^COPYKFA("F",FANr,0,0),KLNr=$P(FaRec,D),FactDate=$$INTDATE^vhDTyp($P(FaRec,D,6))
 . Kill ^COPYKFA1("F",KLNr,-FactDate,FANr)
 . Kill ^COPYKFA("F",FANr)
 Quit