RPLKL2b ;RAADPLEGEN KLANTEN ;RPLKL; Quit naar RPLKL1 [ 09/18/2003  10:21 AM ]
 Q
 ;
T2 ; Geen uitzonderingen voor deze klant 
T3 ; Geen verkoopanalyze voor deze klant 
T4 ; Geen faktuurinformatie voor deze klant 
T5 ; Geen leveringsadressen voor deze klant 
T6 ; Geen maandomzet voor deze klant 
T7 ; Geen verkopen voor de geselekteerde maand 
T8 ; Geen openstaande fakturen voor deze klant 
T9 ; Geen openstaande orders voor deze klant 
T10 ; Geen openstaande leveringen voor deze klant 
T11 ; Geen produktreferenties voor deze klant 
T12 ; Geen betalingsgedrag voor deze klant 
T13 ;     *** VERVOLG ***
T14 ;                               | Bet vw |# Fakt |# Verv |% Verv | Gem d | Max d
T15 ;"";C;C;1;;\0;C;L;4;; \0;C;L;25;;|\4;C;R;7;; |\5;N;R;7;;|\6;N;R;7;;|\7;N;R;7;;|\8;N;R;7;;|\9;N;R;7;;
T16 ; Geen rapporten voor deze klant
T17 ; Geen omzet per subgroep voor deze klant
T18 ; Geen offertes voor deze klant 
 ;
O1 S K=$P($T(T2),U,2) G OY
O2 S K=$P($T(T3),U,2) G OY
O3 S K=$P($T(T4),U,2) G OY
O4 S K=$P($T(T5),U,2) G OY
O5 S K=$P($T(T6),U,2) G OY
O6 S K=$P($T(T7),U,2) G OY
O7 S K=$P($T(T8),U,2) G OY
O8 S K=$P($T(T9),U,2) G OY
O9 S K=$P($T(T10),U,2) G OY
O10 S K=$P($T(T11),U,2) G OY
O11 S K=$P($T(T12),U,2) G OY
O12 S K=$P($T(T16),U,2) G OY
O13 S K=$P($T(T17),U,2) G OY
O14 S K=$P($T(T18),U,2) G OY
OY S FP=2403 W @F,@F1,@FMTI,K,@FMTi,@F0
OZ Q
 ;
XT S R=$$INTDATE^vhLib.DataTypes(R)
 Q
 ;
 ;Write list
WL N R
 K DL(2),DL(3) D WL^PROC
 Q
 ;
 ;Offertes
OFF S (OFF(9),VNR)=0
 N lc,tr,OffSort,OffDate
 
 ; Sorteren op datum
 Set UR=""
 For  Set UR=$O(^KOFKL(KC,"F",UR)) Quit:UR=""  Do
 . Set OffDate=$P(^KOFKL(KC,"F",UR,1),D,2)
 . Set OffSort($$INTDATE^vhLib.DataTypes(OffDate)_UR)=UR
 
 ; Ophalen van de data
 Set OffSort=""
OFF1 S OffSort=$O(OffSort(OffSort),-1) I OffSort="" D WL,O14:'$D(^HULP($J,"K"_KC,"E")) G OFF4
 S UR=OffSort(OffSort)
 S U2=^KOFKL(KC,"F",UR,1),OffTyp=$P(U2,D,25) 
 S U2=UR_D_$P(U2,D,2)_D_D_$P(U2,D,3)_"\\ "_$P(U2,D,2)_" \\\\\"_$S(OffTyp="D":"",OffTyp="":"P",1:$P(U2,D,25))_"\\\",UZ=100 G OFF3
OFF2 Goto OFF1:"P"[OffTyp
 S UZ=$N(^KOFKL(KC,"F",UR,UZ)) G OFF1:UZ=-1 S U2=^(UZ),UPR=$P(U2,D,2),tr=$P(U2,D,27)
 If UPR,$D(^KPR(UPR,0)) Set $P(U2,D,2)=$P(^KPR(UPR,0),D,1)
 Else  If UPR,$D(^KPRO(UPR,0)) Set $P(U2,D,2)=$P(^KPRO(UPR,0),D,1)
 Else  If $P($P(U2,D,17),"#")="KOF1925" Do
 . Set $P(U2,D,2)=$$KortTxt^FLOWMANL(U2)
 . I '$P(U2,D,3),'$P(U2,D,6) S $P(U2,D,6)=$P(U2,D,9)
 Else  Goto OFF2
 S $P(U2,D,28,99)=""
 S $P(U2,D,22,24)=$P(U2,D,22),$P(U2,D,6,20)=$P(U2,D,6),$P(U2,D,3,5)=$P(U2,D,3),$P(U2,D,10)=$$GETSTOCK^PRODUKT4(UPR,"F")
 S $P(U2,D,5)=$S($E($P(U2,D,5),1)="E":"",$E($P(U2,D,5),1)="H":"%",1:$E($P(U2,D,5),1)),$P(U2,D,1)=D_D_UPR
 G OFF3:tr="",OFF3:'$D(^KTO1(tr)) S lc=$P(^(tr),D)
 G OFF3:'$L($P(^KTO(lc,tr,1),D,10)) S $P(U2,D,13)="*"
OFF3 S VNR=VNR+1
 I $D(SELECT),$P(SELECT,U)="OFF",$P(SELECT,U,2)=UR,$P(SELECT,U,3)=UZ S OFF(6)=VNR K OFF(7),SELECT
 S $P(U2,D,15)=UR
 S ^HULP($J,"K"_KC,"E",VNR)=U2 G OFF2
OFF4 S OFF(9)=VNR Q
 ;
 ;Betalingsgedrag
BGDx ;S (BGD(9),VNR)=0,RDT=(DJ-1)_"."_DM K ^HULP($J+100) S R=$$KLANT^Derde.Klant.BetalingsGedrag.PerKlant(KC,RDT)
BGDy S (BGD(9),VNR)=0,RDT=(DJ-2)_"."_"07" K ^HULP($J+100) S R=$$KLANT^Derde.Klant.BetalingsGedrag.PerKlant(KC,RDT)
BGD S (BGD(9),VNR)=0,RDT=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(,"M",-24),"DM4") K ^HULP($J+100) S R=$$KLANT^Derde.Klant.BetalingsGedrag.PerKlant(KC,RDT)
 I '$L(R) D BGD7,O11 G BGD6
 S ^HULP($J,"K"_KC,"B")=R
 S FNR=""
BGD1 S FNR=$O(^HULP($J+100,KI1,FNR),-1) G BGD5:FNR=""
 S X=^(FNR,0,"F"),VDT=$P(X,D,3),R=$E(FNR,$L(FNR)-5,$L(FNR)),$P(R,D,2)=$P(X,D,6)
 S $P(R,D,3)=$P(X,D,3),$P(R,D,4)=$P(X,D,14)
 S BDT=0
BGD2 S BDT=$O(^HULP($J+100,KI1,FNR,BDT)) G BGD4:BDT="" S VolgNr=0
BGD3 S VolgNr=$O(^HULP($J+100,KI1,FNR,BDT,VolgNr)) G BGD2:VolgNr=""
 S X=^(VolgNr),$P(R,D,5)=$P(X,D,2),$P(R,D,6)=$P(X,D,5)
 I $E($P(X,D,14))'="W" S $P(R,D,8)=""
 E  S $P(R,D,8)="WISL" I $$DIFFDATE^vhLib.DataTypes(DT,$P(X,D,2))>0 S $P(R,D,5)="Saldo",$P(R,D,9)=1
 I $E($P(X,D,14))'="W" S $P(R,D,7)=$$DIFFDATE^vhLib.DataTypes(VDT,$P(X,D,2)) I $P(R,D,7)'>0 S $P(R,D,7)=0
 S $P(R,D,10)=$E(FNR,$L(FNR)-5,$L(FNR))
 S VNR=VNR+1,^HULP($J,"K"_KC,"B",VNR)=R,R="" G BGD3
BGD4 G BGD1:'$D(^HULP($J+100,KI1,FNR,0,"O")) S X=^("O")
 S $P(R,D,5)="Saldo",$P(R,D,6)=$P(X,D,10),$P(R,D,8)=$P(X,D,8),$P(R,D,9)=1
 S $P(R,D,7)=$$DIFFDATE^vhLib.DataTypes(VDT,DT) I $P(R,D,7)'>0 S $P(R,D,7)=0
 S $P(R,D,10)=$E(FNR,$L(FNR)-5,$L(FNR))
 S VNR=VNR+1,^HULP($J,"K"_KC,"B",VNR)=R G BGD1
BGD5 K ^HULP($J+100) D BGD7
BGD6 S BGD(9)=VNR Q
 ;
BGD7 S FP=701 W @F,@FMTI,$P($T(T14),U,2),$J("",80-$L($P($T(T14),U,2))),@FMTi
 S R="" I $D(^HULP($J,"K"_KC,"B")) S R=^("B")
 S FL(1)=$P($T(T15),U,2,999),FL(2)=801,FL(3)=R W @FMTB D FL^PROC W @FMTb
 D WL
 Q
 ;
 ;
 ;Faktuurlijn detailinformatie
FLD N OldSel,IsOrgal,IsComm,ORDNr,Transport,TranspNr,VerzW,FactuurTransport,FactKLNr
 S ORDNr="",OldSel=FLD(1),FLD(9)=0
 I VRV Set MAXF=0 ; Vervolg
 Else  Set VNR=0,FDT=-1,MAXF=1
FLD1 ; FaktuurDatum (stoppen indien de recenste 6 maanden zijn opgehaald
 S FDT=$N(^KFA1("F",KC,FDT)) I FDT'=-1,'MAXF!(FDT<(-$H+182))!(VNR<200) S FNR=-1 G FLD2
 If FDT'=-1,VNR,MAXF,(FDT'<(-$H+182)) S U2="",$P(U2,D,4)=$P($T(T13),U,2),^HULP($J,"K"_KC,"F",VNR+1)=U2,^(0)=VNR_D_(FDT-1) ; Vervolg
 I VRV,VNR-FLD(6)<18 S (FLD(6),FDL(7))=VNR-16
 D WL:VNR'>17!VRV,O3:'$D(^HULP($J,"K"_KC,"F")) S FLD(9)=VNR G FLD5
FLD2 ; Faktuur
 S FDTX=$$EXTDATE^vhLib.DataTypes(-FDT,"DKP")
 S (FNR,FNRX)=$N(^KFA1("F",KC,FDT,FNR),-1) G FLD1:FNR=-1 S UR=0
 S U2=^KFA("F",FNR,0,3),FactKLNr=$P(U2,D,6),FactuurTransport=$P(U2,D,20),Bruto=$P(U2,D,27)
FLD3 ; Leveringsbon
 S UR=$N(^KFA("F",FNR,UR)) G FLD2:UR=-1 S UZ=100
 I $G(LayOut("F"))["LH" D
 .S U2=^KFA("F",FNR,UR,1),UPC=D,VerzW=$P(U2,D,7)
 .I $G(FactuurTransport) S Transport=FactuurTransport,TranspNr=$P(FactuurTransport,";",3)
 .E  S Transport=$P(U2,D,8),TranspNr=$P(Transport,";",3)
 .S U2="LevBonNr "_$$EXTNUM^vhLib.DataTypes($E(UR,2,9),0,".",0)_" van "_$P(U2,D,2)_" "
 .I Transport,TranspNr,$D(^TRANSP("T",TranspNr)) S U2=U2_"*"_$P(^TRANSP("T",TranspNr),D)_"*"
 .E  S U2=U2_$$LOCASE^vhRtn1($P(VerzW,"#",2))
 .S VNR=VNR+1 I VNR=18 D WL
 .S $P(U2,D,12)=FNR,$P(U2,D,13)=$E(UR,2,9),^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
 I $G(LayOut("F"))["LA" D
 .S U2=^KFA("F",FNR,UR,3)
 .I '$P(U2,D),$G(FactKLNr),FactKLNr'=KC S U2=^KKL(^KK1(FactKLNr),0)
 .Q:'$P(U2,D)
 .S UPC=D,U2="Adres "_$$INITCAP^vhRtn1($P(U2,D,2)_" - "_$P(U2,D,7)_" - "_$P(U2,D,5))
 .S VNR=VNR+1 I VNR=18 D WL
 .S $P(U2,D,12)=FNR,$P(U2,D,13)=$E(UR,2,9),^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
FLD4 ; Faktuurlijnen
 S UZ=$N(^KFA("F",FNR,UR,UZ)) G FLD3:UZ=-1 S U2=^(UZ)
 S:$P(U2,D,17)="KF5" ORDNr=$P($P(U2,D,5)," - ")
 I '$L($P(U2,D,9)) G FLD4:'$L($G(LayOut("F"))) D  G FLD4
 .I $P($P(U2,D,17),"#")="KF11",LayOut("F")["TL" D  Q
 ..N R
 ..S UPC=D,R=$P(U2,D,5)
 ..S:$P($P(U2,D,18),";",4)'["F" R=$C(171)_R_$C(187)
 ..S VNR=VNR+1 I VNR=18 D WL
 ..S $P(R,D,12,15)=FNR_D_$E(UR,2,9)_D_UZ_D_0,$P(R,D,46)=ORDNr
 ..S ^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_R,(FNRX,FDTX)=""
 .I $P(U2,D,17)="KF5",LayOut("F")["OH" D
 ..N R,IPers
 ..Set IPers=$P($P(U2,D,4),"#")
 ..Set:IPers?1.N IPers=$P($G(^vhUSER("D",IPers)),D,4)
 ..S UPC=D,R=$P(U2,D,5)
 ..S R="OrderNr "_$$EXTNUM^vhLib.DataTypes($P(R," - "),0,".",0)_" van "_$P(R," - ",2)_" "_IPers_" - "_$P(R," - ",3)
 ..S VNR=VNR+1 I VNR=18 D WL
 ..S $P(R,D,12,14)=FNR_D_$E(UR,2,9)_D_UZ,$P(R,D,46)=ORDNr
 ..S ^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_R,(FNRX,FDTX)=""
 .I $P(U2,D,17)="KF5",LayOut("F")["OR",$P(U2,D,20,21)'=D D
 ..N R
 ..Set IsOrgal=$$ISORGAL^FLOW("F",FNR),IsComm=$$ISCOMM^FLOW("F",FNR)
 ..S UPC=D,R=$S(IsOrgal:"ORGA: ",IsComm:"COMM: ",1:"")_$P(U2,D,20)
 ..I $L($P(U2,D,21)) S:$L(R) R=R_" - " S R=R_"EDI:"_$P(U2,D,21) S:$L($P(U2,D,22)) R=R_"/"_$P(U2,D,22)
 ..S VNR=VNR+1 I VNR=18 D WL
 ..S $P(R,D,12,15)=FNR_D_$E(UR,2,9)_D_UZ_D_0,$P(R,D,46)=ORDNr
 ..S ^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_R,(FNRX,FDTX)=""
 If $P($P(U2,D,17),"#")="KF1925" Do  ; Manuele lijn 
 .S $P(U2,D,5)=$$KortTxt^FLOWMANL(U2)
 .I '$P(U2,D,3),'$P(U2,D,6) S $P(U2,D,6)=$P(U2,D,9)
 S UPC="" I '$L($P(U2,D,6)) S $P(U2,D,6)=$P(U2,D,9)
 S:Bruto $P(U2,D,6)=$P(U2,D,6)*(100-$P($P(U2,D,7),"#"))*(100-$P($P(U2,D,7),"#",2))/10000
 S STUPD=$P(U2,D,14)
 S R=$E($P(U2,D,21),1),$P(U2,D,21)=$S(R="E":"",R="H":"%",1:R)
 I $P(U2,D,2),$D(^KPR($P(U2,D,2),0)) S UPC=$P(^(0),D,1)
 E  I $P(U2,D,2),$D(^KPRO($P(U2,D,2),0)) S UPC=$P(^(0),D,1)
 S UPC=D_UPC S:$L($P(UPC,D,2)) UPC=$P(U2,D,2)_UPC S:'$L($P(UPC,D,2)) $P(UPC,D,2)=$P(U2,D,5)
 S U2=$P(U2,D,3)_D_$P(U2,D,6)_D_$P(U2,D,21,26)
 S VNR=VNR+1 I VNR=18 D WL
 I STUPD'["S",STUPD'["Z" S STUPD=""
 E  S STUPD="Z"
 S $P(U2,D,11)=STUPD,$P(U2,D,12,14)=FNR_D_$E(UR,2,9)_D_UZ,$P(U2,D,46)=ORDNr
 S ^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
 K STUPD
 G FLD4
 S FLD(9)=VNR+1
FLD5 G FLD6:VRV
 S (FLD(6),FLD(7))=1
FLD6 S VRV=0
 D WL
 Q
 ;
 ;Proformalijn detailinformatie (Monster)
PLD N IsOrgal,IsComm,ORDNr,Transport,TranspNr,VerzW,ProformaTransport,FactKLNr
 S ORDNr="",(PLD(9),MAXF)=0 I VRV S Bruto=$P(^KFAP("F",FNR,0,3),D,27) G PLD4
 S VNR=0,FDT=-1,MAXF=203
PLD1 S FDT=$N(^KFAP1("F",KC,FDT)) I FDT'=-1 S FNR=-1 G PLD2
 I VRV,VNR-PLD(6)<18 S (PLD(6),FDL(7))=VNR-16
 D WL:VNR'>17!VRV,O3:'$D(^HULP($J,"K"_KC,"P")) S PLD(9)=VNR G PLD5
PLD2
 S FDTX=$$EXTDATE^vhLib.DataTypes(-FDT,"DKP")
 S (FNR,FNRX)=$N(^KFAP1("F",KC,FDT,FNR),-1) G PLD1:FNR=-1 S UR=0
 S U2=^KFAP("F",FNR,0,3),FactKLNr=$P(U2,D,6),ProformaTransport=$P(U2,D,20),Bruto=$P(U2,D,27)
PLD3 S UR=$N(^KFAP("F",FNR,UR)) G PLD2:UR=-1 S UZ=100
 I $G(LayOut("Z"))["LH" D
 .S U2=^KFAP("F",FNR,UR,1),UPC=D,VerzW=$P(U2,D,7)
 .I $G(ProformaTransport) S Transport=ProformaTransport,TranspNr=$P(ProformaTransport,";",3)
 .E  S Transport=$P(U2,D,8),TranspNr=$P(Transport,";",3)
 .S U2="LevBonNr "_$$EXTNUM^vhLib.DataTypes($E(UR,2,9),0,".",0)_" van "_$P(U2,D,2)_" "
 .I Transport,TranspNr,$D(^TRANSP("T",TranspNr)) S U2=U2_"*"_$P(^TRANSP("T",TranspNr),D)_"*"
 .E  S U2=U2_$$LOCASE^vhRtn1($P(VerzW,"#",2))
 .S VNR=VNR+1 I VNR=18 D WL
 .S $P(U2,D,12)=FNR,$P(U2,D,13)=$E(UR,2,9),^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
 I $G(LayOut("Z"))["LA" D
 .S U2=^KFAP("F",FNR,UR,3)
 .I '$P(U2,D),$G(FactKLNr),FactKLNr'=KC S U2=^KKL(^KK1(FactKLNr),0)
 .Q:'$P(U2,D)
 .S UPC=D,U2="Adres "_$$INITCAP^vhRtn1($P(U2,D,2)_" - "_$P(U2,D,7)_" - "_$P(U2,D,5))
 .S VNR=VNR+1 I VNR=18 D WL
 .S $P(U2,D,12)=FNR,$P(U2,D,13)=$E(UR,2,9),^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
PLD4 S UZ=$N(^KFAP("F",FNR,UR,UZ)) G PLD3:UZ=-1 S U2=^(UZ)
 S:$P(U2,D,17)="KF5" ORDNr=$P($P(U2,D,5)," - ")
 I '$L($P(U2,D,9)) G PLD4:'$L($G(LayOut("Z"))) D  G PLD4
 .I $P($P(U2,D,17),"#")="KF11",LayOut("Z")["TL" D
 ..N R
 ..S UPC=D,R=$P(U2,D,5)
 ..S VNR=VNR+1 I VNR=18 D WL
 ..S $P(R,D,12,15)=FNR_D_$E(UR,2,9)_D_UZ_D_0,$P(R,D,46)=ORDNr
 ..S ^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_R,(FNRX,FDTX)=""
 .I $P(U2,D,17)="KF5",LayOut("Z")["OH" D
 ..N R,IPers
 ..Set IPers=$P($P(U2,D,4),"#")
 ..Set:IPers?1.N IPers=$P($G(^vhUSER("D",IPers)),D,4)
 ..S UPC=D,R=$P(U2,D,5)
 ..S R="OrderNr "_$$EXTNUM^vhLib.DataTypes($P(R," - "),0,".",0)_" van "_$P(R," - ",2)_" "_IPers_" - "_$P(R," - ",3)
 ..S VNR=VNR+1 I VNR=18 D WL
 ..S $P(R,D,12,14)=FNR_D_$E(UR,2,9)_D_UZ,$P(R,D,46)=ORDNr
 ..S ^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_R,(FNRX,FDTX)=""
 .I $P(U2,D,17)="KF5",LayOut("Z")["OR",$P(U2,D,20,21)'=D D
 ..N R
 ..Set IsOrgal=$$ISORGAL^FLOW("P",FNR),IsComm=$$ISCOMM^FLOW("P",FNR)
 ..S UPC=D,R=$S(IsOrgal:"ORGA: ",IsComm:"COMM: ",1:"")_$P(U2,D,20)
 ..I $L($P(U2,D,21)) S:$L(R) R=R_" - " S R=R_"EDI:"_$P(U2,D,21) S:$L($P(U2,D,22)) R=R_"/"_$P(U2,D,22)
 ..S VNR=VNR+1 I VNR=18 D WL
 ..S $P(R,D,12,15)=FNR_D_$E(UR,2,9)_D_UZ_D_0,$P(R,D,46)=ORDNr
 ..S ^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_R,(FNRX,FDTX)=""
 S UPC="" I '$L($P(U2,D,6)) S $P(U2,D,6)=$P(U2,D,9)
 S:Bruto $P(U2,D,6)=$P(U2,D,6)*(100-$P($P(U2,D,7),"#"))*(100-$P($P(U2,D,7),"#",2))/10000
 S STUPD=$P(U2,D,14)
 S R=$E($P(U2,D,21),1),$P(U2,D,21)=$S(R="E":"",R="H":"%",1:R)
 I $P(U2,D,2),$D(^KPR($P(U2,D,2),0)) S UPC=$P(^(0),D,1)
 E  I $P(U2,D,2),$D(^KPRO($P(U2,D,2),0)) S UPC=$P(^(0),D,1)
 S UPC=D_UPC S:$L($P(UPC,D,2)) UPC=$P(U2,D,2)_UPC S:'$L($P(UPC,D,2)) $P(UPC,D,2)=$P(U2,D,5)
 S U2=$P(U2,D,3)_D_$P(U2,D,6)_D_$P(U2,D,21,26)
 S VNR=VNR+1 I VNR=18 D WL
 I STUPD'["S",STUPD'["Z" S STUPD=""
 E  S STUPD="Z"
 S $P(U2,D,11)=STUPD,$P(U2,D,12,14)=FNR_D_$E(UR,2,9)_D_UZ,$P(U2,D,46)=ORDNr
 S ^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
 K STUPD
 G PLD4:'MAXF G PLD4:VNR#MAXF
 S U2="",$P(U2,D,4)=$P($T(T13),U,2),^(VNR+1)=U2,^(0)=VNR_D_FDT_D_FDTX_D_FNR_D_FNRX_D_UR_D_UZ_D
 S PLD(9)=VNR+1
PLD5 G PLD6:VRV
 S (PLD(6),PLD(7))=1
PLD6 S VRV=0
 D WL
 Q
 ;
CBFZ(Ref,Rec) 
 New Format
 If $D(FPLD) Do  Quit $G(Format)
 .Quit:$E(Ref,1,5)'="^HULP"
 .If '$D(Rec),$E(Ref,1,5)="^HULP",$D(@Ref) Set Rec=@Ref
 .Set Format=";0"
 .If $D(Rec),$P(Rec,D,4)'["*** VERVOLG ***",'$P(Rec,D,5) Set Format=";1"
 Quit $S('$D(Rec):"",$P(Rec,D,4)["*** VERVOLG ***":"",$P(Rec,D,6):"",$P(Rec,D,19)=0:1,'$P(Rec,D,5):1,1:"")
 ;