PRINT ;AFDRUKKEN [ 10/27/93  1:09 PM ]
 ;
 ; Ophalen van de data
PRODUKT(PRNr,Ref,Local) 
 New I
 If '$G(Local) New A Set Local=0
 If Local<2 Do
 .For I=0:1 Quit:'$D(^KPR(PRNr,I))  Set A(I)=^KPR(PRNr,I)
 .For I="I","J" Set Node=$N(^KPR(PRNr,I)) Set:$E(Node)=I A(I)=^KPR(PRNr,Node)
 Quit $$CHECK(Ref)
 ;
 ; kontrole voor afdruk op listings
CHECK(Ref) 
 New Ok,Next,Data,Node,ToCheck,Check
 Set Ok=1,Next=100
 For  Set Next=$O(@(Ref_"(Next)")) Quit:Next=""  Do  Quit:'Ok
 .If Next?.N Set Data=$P(A(Next\100-1),D,Next#100)
 .Else  Set Node=$E(Next) If $D(A(Node)) S Data=$P(A(Node),D,$E(Next,2,99)#100)
 .Else  Quit:'$L($P(@(Ref_"(Next)"),D,4))  Xecute $P(@(Ref_"(Next)"),D,4)
 .Set ToCheck=$P(@(Ref_"(Next)"),D),Check=$P(">\'<\=\<\'>\'=",D,$P(@(Ref_"(Next)"),D,2))
 .If '$L(Check) Do  Quit
 ..Set Ok=1
 ..F I=1:1:$L(ToCheck) If $E(ToCheck,I)'="#" Set Ok=$E(Data,I-1+$P($P(@(Ref_"(Next)"),D,3),","))=$E(ToCheck,I) Quit:'Ok
 .If Data'?.N!(ToCheck'?.N) Do
 ..Set Ok=Check_"ToCheck"
 ..Set:Check="<" Ok="']ToCheck&(Data'=ToCheck)"
 ..Set:Check=">" Ok="]ToCheck&(Data'=ToCheck)"
 ..Set:Check="'>" Ok="']ToCheck!(Data=ToCheck)"
 ..Set:Check="'<" Ok="]ToCheck!(Data=ToCheck)"
 ..Set Ok="Set Ok=Data"_Ok
 .Else  Set Ok="Set Ok=Data"_Check_"ToCheck"
 .Xecute Ok
 Quit Ok
 ;
 ; Afdrukken van de titel
TITEL(Papier,Breedte,Titel,BladNr,Verpl,FaNaam,FaAdres,FaWoonpl) 
 Set Verpl=$G(Verpl)
 If $G(FaNaam)="" Set FaNaam=^KBA(99,1)
 If $G(FaAdres)="" Set FaAdres=^KBA(99,2)
 If $G(FaWoonpl)="" Set FaWoonpl=^KBA(99,3)
 If "\LO\GL\KL\"[(D_Papier_D) Do  Quit
 .Set Breedte=Breedte-25
 .Write !,"Blz:",$J(BladNr,4)
 .Write !,DT,?Verpl+Breedte-$L($P(Titel,D))/2+7,@FMTB,$P(Titel,D),@FMTb
 .Write !,TD,?Verpl+Breedte-$L($P(Titel,D,2))/2+7,@FMTB,$P(Titel,D,2),@FMTb
 .Write !!
 Quit