cANR23(Q,UGL,US,KC,FNR,PRG)	;Facturen doorsturen naar Word/Excel; %FN40 [ 01/18/02  3:53 PM ]
	;
	G 1
	;
T0	;Omschrijving;
T1	;Aantal;
T2	;Eenh.prijs;
T3	;Bedrag;
T4	;BTW;
T5	;Productcode printen\"[] = neen   1[] = ja";
T6	;Kortingen printen\"[] = neen   1[] = ja";
T7	;Prijs printen\"[] = neen   1[] = ja";
T8	;Goederen;
T9	;Basis;
T10	;BTW;
T11	;Indicatief in;
T12	;Te betalen;Uw voordeel;
T13	;Afsluiting printen\"[] = zonder   1[] = enkel totaal   2[] = BTW-afsluiting";
T14	;Afdruk G-lijn\"[] = zonder detail   1[] = met detail";
T15	;Totaal;
T16	;Betaald;
T17	;Lever. ref. printen\"[] = neen   1[] = ja";
T18	;Uw ref.;
T19	;FACTUUR#CREDITNOTA;
T20	;Bij betaling voor ;
T21	;% betalingskorting;
	;
T0F	;Description;
T1F	;Quantité;
T2F	;Prix unit.;
T3F	;Montant;
T4F	;TVA;
T5F	;Imprimer le code produit\"[] = non   1[] = oui";
T6F	;Imprimer réductions\"[] = non   1[] = oui";
T7F	;Imprimer le prix\"[] = non   1[] = oui";
T8F	;Marchand.;     
T9F	;Base;
T10F	;TVA;
T11F	;Indicatif en;
T12F	;A payer;Votre faveur;
T13F	;Imprimer fermeture\"[] = sans   1[] = seulement le total   2[] = fermeture TVA";
T14F	;Imprimer ligne G\"[] = sans détail   1[] = avec détail";
T15F	;Total;
T16F	;Payé;
T17F	;Imprimer réf. four.\"[] = non   1[] = oui";
T18F	;Votre réf;
T19F	;FACTURE#NOTE DE CREDIT;
T20F	;Paiement avant le ;
T21F	;% escompte;
	;
T0E	;Description;
T1E	;Quantity;
T2E	;PR/PC;
T3E	;Amount;
T4E	;VA;
T5E	;Print product code\"[] = no  1[] =  yes";
T6E	;Print discount\"[] = no   1[] = yes";
T7E	;Print price\"[] = no   1[] = yes";
T8E	;Goods;     
T9E	;Basis;
T10E	;VAT;    
T11E	;Indicative in;
T12E	;To pay;In your favour;
T13E	;Print conclusion\ "[] = without   1[] = only total   2[] = clonclusion VAT;
T14E	;Print G line\"[] = without   1[] = with detail";
T15E	;Total;
T16E	;Payed;
T17E	;Print supl. ref. \"[] = no   1[] = yes";
T18E	;Your ref.;
T19E	;INVOICE#CREDIT NOTE;
T20E	;To be payed before ;
T21E	;% reduction;
	;
T0D	;Umschreibung;
T1D	;Anzahl;
T2D	;Pr/St;
T3D	;Betrag;
T4D	;MW;
T8D	;Gueter;
T9D	;Basis;
T10D	;MwSt;
T11D	;Indikation in;    
T12D	;Zu zahlen;Ihrem vorteil;
T15D	;Totaal;
T16D	;Zahled;
T18D	;Ihre reference;
T19D	;RECHNUNG#GUTSCHRIFT;
T20D	;Zahlbar vor ;
T21D	;% rabatt;
	;
	;
1	K ^HULP(boot,$J+.01)
11	N SWEND,HEADER,NUMCOL,I1,I2,I3,UCO,NET,MST,BTW,PBTW,TTB,INH,TELLER,U1,LAND,PRO,PRCOOM,KORT,PRIJS,AF,GL,LR,AANTL,COT,UPRDMS,UQD,U8,RX,U5
13	S $ZT="TRAP^cAN000"
15	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,10)) I $G(SWEND)=1 G YZ ; VRAAG
19	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,2))  ; HOOFD
	;
2	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,3))  ; INTER
21	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,11)) ; KOLTIT
23	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D))    ; DETAIL
25	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,4))  ; AFSL
	D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,5))  ; SLOT
27	D MAC
	;
YZ	K ^HULP(boot,$J+.01) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q
	;
	;  Opzoeken van de afsluiting
AFSL	N VM,TELLER,I1,I2,I3,X
	S X=$O(@("^"_Q_"BA(18,"""")"))
	F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1)
	S VM=$P(U1,D,5)
	S INH=@("^"_Q_"FA(US,FNR,0,1)")
	F I1=1:1:3 D
	. S I2=$P(INH,D,I1)
	. S TELLER=0,LEN=($L(I2,"#")-1)
	. F I3=1:2:LEN D
	.. I $P(I2,"#",I3)="" Q
	.. ; I $L($P($G(^HULP(boot,$J+.01,"DETFOOT",TELLER)),D,3)),$P(^(TELLER),D,3)'=PBTW($P(I2,"#",I3))_"%" Q
	.. I '$L($P($G(^HULP(boot,$J+.01,"DETFOOT",TELLER)),D,3)) S $P(^(TELLER),D,3)=PBTW($P(I2,"#",I3))_"%"
	.. I I1'=3 S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,I1)=$J($P(I2,"#",I3+1),0,UQD)
	.. I I1=3 S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,4)=$J($P(I2,"#",I3+1),0,UQD)
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,5)=""
	.. S TELLER=TELLER+1
	;
	;   Rekening houden met een voorschot
	S TELLER=""
	S TELLER=$S('$D(^HULP(boot,$J+.01,"DETFOOT")):0,1:$O(^HULP(boot,$J+.01,"DETFOOT",TELLER),-1)+1)
	S BTLD=+$P(U1,D,23)
	I BTLD D
	. I TELLER=0 D
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER+1)),D,5)=$P($T(@("T16"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J(BTLD,0,UQD)
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,5)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J($P(U1,D,12),0,UQD)
	. I TELLER=1 D
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",TELLER),D,5)=$P($T(@("T16"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J(BTLD,0,UQD)
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER-1)),D,5)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J($P(U1,D,12),0,UQD)
	. I TELLER>1 D
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER-1)),D,5)=$P($T(@("T16"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J(BTLD,0,UQD)
	.. S $P(^HULP(boot,$J+.01,"DETFOOT",(TELLER-2)),D,5)=$P($T(@("T15"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J($P(U1,D,12),0,UQD)
	;  Drukken betalingskorting
	I $P(U1,D,13),$L($P($P(U1,D,20),"#")) D
	. S $P(^HULP(boot,$J+.01,"DETFOOT",3),D,5)=$P($T(@("T20"_$S(HEADER="N":"",1:HEADER))),U,2)_$P($P(U1,D,20),"#",2)
	. S $P(^HULP(boot,$J+.01,"DETFOOT",4),D,5)=$P($P(U1,D,20),"#")_$P($T(@("T21"_$S(HEADER="N":"",1:HEADER))),U,2)_": "_$J($P(U1,D,13),0,UQD)
	;
	S ^HULP(boot,$J+.01,"FOOT")=$J($P(U1,D,7),0,UQD)_D_$J($P(U1,D,8),0,UQD)_D_$J($P(U1,D,9),0,UQD)_D_""
	S $P(^HULP(boot,$J+.01,"FOOT"),D,4)=$$IND^cANR201(($P(U1,D,12)-BTLD),VM,$P(U1,D,6),"LNT")
	S $P(^HULP(boot,$J+.01,"FOOT"),D,5)=$J(($P(U1,D,12)-BTLD),0,UQD)_" "_VM
	S $P(^HULP(boot,$J+.01,"FOOT"),D,6)=$P($T(@("T8"_$S(HEADER="N":"",1:HEADER))),U,2)
	S $P(^HULP(boot,$J+.01,"FOOT"),D,7)=$P($T(@("T9"_$S(HEADER="N":"",1:HEADER))),U,2)
	S $P(^HULP(boot,$J+.01,"FOOT"),D,8)=$P($T(@("T10"_$S(HEADER="N":"",1:HEADER))),U,2)
	S $P(^HULP(boot,$J+.01,"FOOT"),D,9)=$S($P(^HULP(boot,$J+.01,"FOOT"),D,4)'="":$P($T(@("T11"_$S(HEADER="N":"",1:HEADER))),U,2)_" "_$S($P($P(^HULP(boot,$J+.01,"FOOT"),D,4)," ",2)="EUR":"euro",1:$P($P(^HULP(boot,$J+.01,"FOOT"),D,4)," ",2)),1:"")
	S $P(^HULP(boot,$J+.01,"FOOT"),D,10)=$P($T(@("T12"_$S(HEADER="N":"",1:HEADER))),U,2+($P(U1,D,2)="C"))
AFSLZ	Q
	;
	;  Opzoeken van de detaillijnen
DETAIL	N UPM,DECAANT,DECEP
	S UPM=@("^"_Q_UGL_"(0,US,""LNT"")")
	S NUMCOL=6,TELLER=0,UQD=QD,UR="U"
	I KC'=KCF D
	. S STRING=$$SG^cAFA1("KL",KC,104)_" "_$P(^(0),D,2)_" "_$P(^(0),D,5)_" "_$P(^(0),D,6)_" "_$P(^(0),D,7)
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=STRING
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"
	. S TELLER=TELLER+1
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=""
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"
	. S TELLER=TELLER+1
	F  S UR=$O(@("^"_Q_"FA(US,FNR,UR)")) Q:UR=""!($E(UR)'="U")  D
	. I '$P(UPM,D,15) D
	.. S INH=^(UR,1)
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=$E(UR,2,$L(UR))_" - "_$P(INH,D,2)
	.. S:'$P(UPM,D,15) $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=$P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)_" - "_$P(INH,D,3)
	.. I $P(UPM,D,60),$L($P(INH,D,43)) S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=$P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)_" - "_$P(U5,D,43)
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"
	.. S TELLER=TELLER+1
	. S I1=100
	. F  S I1=$O(@("^"_Q_"FA(US,FNR,UR,I1)")) Q:I1=""  D
	.. S INH=^(I1)
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)=""!($G(PRO)="") S PRCOOM=""
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)="1"!($G(PRO)="1") S PRCOOM=$$SIG^cAFA1("PR",$P(INH,D,2),101)
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,5)="1" S PRCOOM=$G(PRCOOM)_$S($L($G(PRCOOM))>0:" ",1:"")_$P(INH,D,5)
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,5)=""&($P(INH,D,17)'=".") S PRCOOM=$G(PRCOOM)_$S($L($G(PRCOOM))>0:" ",1:"")_$P(INH,D,5)
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,9)=""!($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,9)="."&($G(GL)="")) D
	... I $P(INH,D,17)'="G" Q
	... S I2=$P(INH,D,30) 
	... F I3=1:1:I2 D
	.... S TELLER=TELLER-1
	.... K ^HULP(boot,$J+.01,"DETAIL",TELLER)
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,6)="" S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=PRCOOM  ;  Omschrijving
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,6)="1"&($P(INH,D,17)=".") S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=PRCOOM_$J(" ",37-$L(PRCOOM))_" "_$P(INH,D,4)  ;  Omschrijving
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,6)="1"&($P(INH,D,17)'=".") S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=PRCOOM
	.. S DECAANT=$S($P(INH,D,3)#1:$L($P($P(INH,D,3),".",2)),1:0)
	.. I ($P(INH,D,3)#1)&(DECAANT<2) S DECAANT=2
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=$J($P(INH,D,3),0,DECAANT)   ;  Aantal
	.. S UPRDMS=$P($G(@("^"_Q_UGL_"(0,US,""UPR"")"),"PR\"),D)
	.. S UQD=$S($L($P(U5,D,18)):$P(@("^"_Q_"BA(11,$P(U5,D,18))"),D,7),1:QD)
	.. S DECEP=$L($P($P(INH,D,6),".",2))
	.. I DECEP<2 S DECEP=2
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=$J($P(INH,D,6),0,DECEP)  ;  E.P.
	.. I ($E($P(INH,D,7))="+")!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)=""!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)=".")&($G(KORT)="")))&($P(INH,D,7)'="")) D
	... I $P(INH,D,7)="" Q
	... D EP^cANR201($P(INH,D,29)/$P(INH,D,3))
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=$J($P(R,D),0,UQD)
	.. S $P(U8,U,9)="1"
	.. I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)="1"!(($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)=".")&($G(KORT)="1")) D 
	... I $P(INH,D,7)="" Q
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)=$$KORT^cANR201($P(INH,D,7),"V",$G(UPRDMS,"PR")) ; Korting %
	.. I $E($P(INH,D,7))="+" S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,4)="" 
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)=$J($P(INH,D,9),0,UQD) ;  Bedrag
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,6)=$P(INH,D,8)  ; BT (BTW-code)
	.. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)=$P(INH,D,17) ; Module keuze
	.. I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"!($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="T") D
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=""
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)=""
	.. I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="G" D
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=""
	... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
	.. I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="M" D
	... I $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=0&(($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=0)&($P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,5)'=0)) D
	.... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,2)=""
	.... S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,3)=""
	.. ; Uitvoeren extra execute
	.. I $L($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,9)) D @($P(@("^"_Q_UGL_"(0,US,""UDFA.EXT"")"),D,9))
	.. S TELLER=TELLER+1
	I $D(@("^"_Q_"BA(151,KT,1)"))&$L(^(1))!($D(@("^"_Q_"BA(151,KT,2)"))&$L(^(2))) D
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=""
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"
	. S TELLER=TELLER+1
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=""
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"
	. S TELLER=TELLER+1
	F I=1,2 I $D(@("^"_Q_"BA(151,KT,I)")),$L(^(I)) D
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D)=@("^"_Q_"BA(151,KT,I)")
	. S $P(^HULP(boot,$J+.01,"DETAIL",TELLER),D,7)="L"
	. S TELLER=TELLER+1
DETAILZ	Q
	;
	;  Opzoeken hoofinggevens
HOOFD	S HEADER=$$SG^cAFA1("KL",KCF,109)
	S ^HULP(boot,$J+.01,"HEADER")=HEADER
	S $P(^HULP(boot,$J+.01,"HEADER"),D,2)=""
	S $P(^HULP(boot,$J+.01,"HEADER"),D,3)=$$SG^cAFA1("KL",KCF,103)
	S $P(^HULP(boot,$J+.01,"HEADER"),D,4)=$$SG^cAFA1("KL",KCF,105)_D_$P(^(0),D,6)_D_$P(^(0),D,7)
	S LAND=$$SG^cAFA1("KL",KCF,108)
	S $P(^HULP(boot,$J+.01,"HEADER"),D,7)=$$SIG^cAFA1("ISO.LAND",LAND,102)
	I $$SIG^cAFA1("ISO.LAND",LAND,101)=$P(@("^"_Q_"BA(39)"),D,3) S $P(^HULP(boot,$J+.01,"HEADER"),D,7)=""
	S $P(^HULP(boot,$J+.01,"HEADER"),D,8)=KCF
HOOFDZ	Q
	;
	;  Opzoeken interludium
INTER	N UPM
	S UPM=@("^"_Q_UGL_"(0,US,""LNT"")")
	S U1=@("^"_Q_"FA(US,FNR,0,0)"),U2=^(2)
	S U5=U1
	S UR=$N(@("^"_Q_"FA(US,FNR,""U"")")) S U6=^(UR,1)
	S $P(^HULP(boot,$J+.01,"HEADER"),D,9)=$P($P($T(@("T19"_$S(HEADER="N":"",1:HEADER))),U,2),"#",$P(U1,D,2)="C"+1)_" "_$E(FNR,1,($L(FNR)-3))_"."_$E(FNR,($L(FNR)-2),$L(FNR))
	S $P(^HULP(boot,$J+.01,"HEADER"),D,10)=": "_$P(U1,D,6)
	S $P(^HULP(boot,$J+.01,"HEADER"),D,11)=": "_$P(U1,D,3)
	; S K=$$SG^cAFA1("KL",KCF,116)
	; S RX=$E(K,1,2) S:RX'?2U RX="BE"
	; X:$D(^BA(5,RX,2)) "S K="_^(2) S K=": "_K
	S $P(^HULP(boot,$J+.01,"HEADER"),D,14)=": "_$$BTW^cAFO1($$SG^cAFA1("KL",KCF,116))
	I $P(UPM,D,65) S $P(^HULP(boot,$J+.01,"HEADER"),D,15)=$S($L($P(U6,D,10)):$$UPWU^cAFO5(UPW,$P(U6,D,10),"F"),1:"")
	S $P(^HULP(boot,$J+.01,"HEADER"),D,16)=$$SG^cAFA1("KL",KCF,104)_$S($L($P(^(0),D,4)):" ",1:"")_$$SG^cAFA1("KL",KCF,102)
	S $P(^HULP(boot,$J+.01,"HEADER"),D,17)=$$SG^cAFA1("KL",KCF,318)
	S ^HULP(boot,$J+.01,"THEADER")=$S(HEADER="N":"Fact. datum",HEADER="F":"Date de fac.",HEADER="D":"Datum Rechn.",1:"Date invoice")_D_$S(HEADER="N":"Vervaldatum",HEADER="F":"Date d' ch.",HEADER="D":"Verfalldatum",1:"Expiry date")_D_D_D_$S(HEADER="N":"BTW nr.",HEADER="F":"No. TVA",HEADER="D":"MwSt nr.",1:"VAT nr.")_D_"Info"
	I $P(UPM,D,26) S $P(^HULP(boot,$J+.01,"HEADER"),D,11)="",$P(^HULP(boot,$J+.01,"THEADER"),D,2)=""
	I '$P(U6,D,10)!('$P(UPM,D,65)) S $P(^HULP(boot,$J+.01,"HEADER"),D,15)="",$P(^HULP(boot,$J+.01,"THEADER"),D,6)=""
INTERZ	Q
	;
	;  Starten macro + doorsturen gegevens
MAC	D START^cANR0($P("DocToWrd\DocToEx",D,PRG))
	W "TEMPLATE",!
	I PRG="1"&($ZV["MSM") W $$D2NT^cQCV($TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,2),"/",D)),!
	I PRG="1"&($ZV'["MSM") W $TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,2),"/",D),!
	I PRG="2"&($ZV["MSM") W $$D2NT^cQCV($TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,3),"/",D)),!
	I PRG="2"&($ZV'["MSM") W $TR($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,3),"/",D),!
	W "HEADER",!
	I $ZV["MSM" F I1=1:1:17 W $$D2NT^cQCV($P(^HULP(boot,$J+.01,"HEADER"),D,I1)),!
	I $ZV'["MSM" F I1=1:1:17 W $P(^HULP(boot,$J+.01,"HEADER"),D,I1),!
	W "THEADER",!
	I $ZV["MSM" F I1=1:1:6 W $$D2NT^cQCV($P(^HULP(boot,$J+.01,"THEADER"),D,I1)),!
	I $ZV'["MSM" F I1=1:1:6 W $P(^HULP(boot,$J+.01,"THEADER"),D,I1),!
	W "NUMCOL",!
	W NUMCOL,!
	W "TITEL",!
	I $ZV["MSM" F I1=1:1:NUMCOL W $$D2NT^cQCV($P(^HULP(boot,$J+.01,"TITEL"),D,I1)),!
	I $ZV'["MSM" F I1=1:1:NUMCOL W $P(^HULP(boot,$J+.01,"TITEL"),D,I1),!
	W "DETAIL",!
	S I1=""
	F  S I1=$O(^HULP(boot,$J+.01,"DETAIL",I1)) Q:I1=""  D
	. S K=^HULP(boot,$J+.01,"DETAIL",I1)
	. I $ZV["MSM" W $$D2NT^cQCV($P(K,D)),!,D,$$D2NT^cQCV($P(K,D,2,$L(K,D))),!
	. i $ZV'["MSM" W $P(K,D),!,D,$P(K,D,2,$L(K,D)),!
	W "ENDDET",!
	W "DETFOOT",!
	S I1=""
	F  S I1=$O(^HULP(boot,$J+.01,"DETFOOT",I1)) Q:I1=""  D
	. I $ZV["MSM" W $$D2NT^cQCV(^HULP(boot,$J+.01,"DETFOOT",I1)),!
	. I $ZV'["MSM" W ^HULP(boot,$J+.01,"DETFOOT",I1),!
	W "ENDDETFOOT",!
	W "FOOT",!
	I $ZV["MSM" F I1=1:1:10 W $$D2NT^cQCV($P($G(^HULP(boot,$J+.01,"FOOT")),D,I1)),!
	I $ZV'["MSM" F I1=1:1:10 W $P($G(^HULP(boot,$J+.01,"FOOT")),D,I1),!
	W "SLOT",!
	I $ZV["MSM" F I1=1:1:AANTL W $$D2NT^cQCV(^HULP(boot,$J+.01,"SLOT",I1)),!
	I $ZV'["MSM" F I1=1:1:AANTL W ^HULP(boot,$J+.01,"SLOT",I1),!
	W "ENDSLOT",!
	W "END",!
	D STOP^cANR0
MACZ	Q
	;
	;  Ophalen van de slotteksten
SLOT	N BEGIN   
	S AANTL=@("^"_Q_"BA(""%F"",11,US,0,0)")
	S COT=$$SG^cAFA1("KL",KC,109)
	S BEGIN=1
	I $P(U1,D,2)'="C"&($P(U1,D,12)-BTLD>0) D
	. I $L($P(U1,D,22)) Q
	. S K=$S($D(@("^"_Q_"BA(180+'$L($P(U1,D,22)),COT)")):$P(^(COT),D),1:"")
	. S K=K_" : "_$E(FNR,1,3)_"."_$E(FNR,4,6)_"/"_KCF
	. S ^HULP(boot,$J+.01,"SLOT",1)=K
	. S ^HULP(boot,$J+.01,"SLOT",2)=""
	. S BEGIN=3
	I '$L($G(AANTL)) G SLOTY
	F I1=BEGIN:1:(AANTL+$S(BEGIN=3:2,1:0)) D
	. S ^HULP(boot,$J+.01,"SLOT",I1)=$G(@("^"_Q_"BA(""%F"",11,US,COT,$S(BEGIN=3:I1-2,1:I1))"))
SLOTY	I BEGIN=3 S AANTL=$G(AANTL)+2
SLOTZ	Q
	;
	;  Stellen van vragen ivm layout van het printen
VRAAG	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)="." S R="PRO\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""1-""[K" D R0 I K="-" S SWEND=1 G VRAAGZ
VRAAGA	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)="." S R="KORT\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""1-""[K" D R0
	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)=".")) G VRAAG
	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)'=".")) S SWEND=1 G VRAAGZ
VRAAGB	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,9)="." D
	. S R="GL\22\3\"_$P($T(@("T14"_QT)),U,2)_"\1\\""1-""[K" D R0
	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)=".")) G VRAAGA
	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)=".")) G VRAAG
	I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,9)=".",((K="-")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,7)'=".")&($P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",1),D,4)'=".")) S SWEND=1 G VRAAGZ
	S SWEND=0
VRAAGZ	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08