cAFA62(CTLG)	; Prijswijzigingen catalogus ;%AFA62 [ 10/25/01  10:46 AM ]
	; opgeroepen via ^DMM("CTLG",code cat_".PW",67
	;
T0	; Prijswijzigingen catalogus ;
T1	; Update catalogus ;
T2	;Er zijn geen gegevens gewijzigd;
T3	;Update cataloog is beëindigd;
T4	;Opgelet: De update bestaat uit meerdere bestanden !;
T5	;Aangezien na update van de catalog producten uit de catalog zullen;
T6	;verwijderd worden die niet voorkwamen in de update, moet u alle;
T7	;bestanden ingelezen en verwerkt hebben voor u de update van de;
T8	;catalog kan uitvoeren.  Indien u dit niet doet zullen sommige;
T9	;producten onterecht uit de catalog verwijderd worden.;
T10	;Update uitvoeren\"0[] = neen   1[] = ja";
T11	;Opgelet:;
T12	;Na update van de catalog worden de producten uit de catalog die;
T13	;niet voorkwamen in de update verwijderd.;
T14	; Opkuis catalog;
	;
T0F	; Mise à jour catalogue ;
T1F	; Mise à jour catalogue ;
T2F	;Aucune donnée à été modifiée;
T3F	;Mise à jour du catalogue terminée;
T4F	;Opgelet: De update bestaat uit meerdere bestanden !;
T5F	;Aangezien na update van de catalog producten uit de catalog zullen;
T6F	;verwijderd worden die niet voorkwamen in de update, moet u alle;
T7F	;bestanden ingelezen en verwerkt hebben voor u de update van de;
T8F	;catalog kan uitvoeren.  Indien u dit niet doet zullen sommige;
T9F	;producten onterecht uit de catalog verwijderd worden.;
T10F	;Update uitvoeren\"0[] = neen   1[] = ja";
T11F	;Opgelet:;
T12F	;Na update van de catalog worden de producten uit de catalog die;
T13F	;niet voorkwamen in de update verwijderd.;
T14F	; Opkuis catalog;
	;
T0E	; Prijswijzigingen catalogus ;
T1E	; Update catalogus ;
T2E	;Er zijn geen gegevens gewijzigd;
T3E	;Update cataloog is beëindigd;
T4E	;Opgelet: De update bestaat uit meerdere bestanden !;
T5E	;Aangezien na update van de catalog producten uit de catalog zullen;
T6E	;verwijderd worden die niet voorkwamen in de update, moet u alle;
T7E	;bestanden ingelezen en verwerkt hebben voor u de update van de;
T8E	;catalog kan uitvoeren.  Indien u dit niet doet zullen sommige;
T9E	;producten onterecht uit de catalog verwijderd worden.;
T10E	;Update uitvoeren\"0[] = neen   1[] = ja";
T11E	;Opgelet:;
T12E	;Na update van de catalog worden de producten uit de catalog die;
T13E	;niet voorkwamen in de update verwijderd.;
T14E	; Opkuis catalog;
	;
1	D P^cA612(19,1,5,80,1,0,0,0,$P($T(@("T1"_QT)),U,2),0,0,0,0,0)
	N SWUPD,PRG,B,A,SWOPK,UITV
	S $ZT="TRAP^cAN000"
	; ophalen basisgegevens catalog
	D B^cAFA61(CTLG)
	S PRG=$P(B(1),D,25)            ; specifiek uit te voeren voor update
	S SWOPK=$P(B(1),D,9)           ; Ophalen van de parameter opkuis cat.
	;
2	I $P(B(1),D,9)=1,$P(B(1),D,10)=1 D
	. D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
	. W /CUP(2,2),$P($T(@("T4"_QT)),U,2)
	. W /CUP(4,8),$P($T(@("T5"_QT)),U,2)
	. W /CUP(5,8),$P($T(@("T6"_QT)),U,2)
	. W /CUP(6,8),$P($T(@("T7"_QT)),U,2)
	. W /CUP(7,8),$P($T(@("T8"_QT)),U,2)
	. W /CUP(8,8),$P($T(@("T9"_QT)),U,2)
	. S R="UITV\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-01""[K&$L(K)" D R0
	. D C^cA612
21	I $P(B(1),D,9)=1,$P(B(1),D,10)'=1 D
	. D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
	. W /CUP(2,2),$P($T(@("T11"_QT)),U,2)
	. W /CUP(4,8),$P($T(@("T12"_QT)),U,2)
	. W /CUP(5,8),$P($T(@("T13"_QT)),U,2)
	. S R="UITV\22\3\"_$P($T(@("T10"_QT)),U,2)_"\1\\""-01""[K&$L(K)" D R0
	. D C^cA612
23	I $G(UITV)=0!($G(UITV)="-") G YZ
25	D UPDATE($P(B(1),D)_".PW")     ; update catalog
	S K=$P($T(@("T3"_QT)),U,2) D TXT^cAFA1(250)
	I $G(SWUPD) S TAB(206)=DT,TAB(207)=QU D B^cAN220("PW","CTLG",CTLG,"TAB")
	I '$G(SWUPD) S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250)
	;
YZ	D C^cA612 Q
	;
UPDATE(DMSPW)	      ;
	I $L(PRG) D @PRG Q
	N CTLGUQC,CTLGUSC,UQC,USC,CTLGUSA,CTLGUQA,CTLGDMS,I,B,TAB,UI1,PW,I1,IREF,SW3
	S $ZT="TRAP^cAN000"
	D CTLGDEF^cAFA6(CTLG)    ; catalog-definitie
	D DMS^cAN000("UQC","USC",CTLGDMS) I '$L(UQC)!'$L(USC) Q
	S CTLGUQC=UQC,CTLGUSC=USC
	D DMS^cAN000("UQC","USC",DMSPW) I '$L(UQC)!'$L(USC) Q
	S IREF=$G(^DMC(UQC,USC,"DATA","INDEX")) I '$L(IREF) Q
	K ^HULP(boot,$J+.01)
	S I1="",SW3=1 F  S I1=$O(@IREF@(101,I1)) Q:I1=""  D
	. S UI1=^(I1) K PW,B
	. D R^cAN000 M PW=B K B
	. w /CUP(3,3),$P(PW(1),D),/EL
	. I $$UNIEK^cAFA1(CTLGDMS,101,$P(PW(1),D)) D CREATE
	. E  D UPD
	. ;  Wegschrijven in ^HULP van alle producten
	. ;  die voorkomen in de update
	. S ^HULP(boot,$J+.01,NUI1)=I1
	;  Aflopen van de catalogus om te kijken welke producten niet voor
	;  kwamen in de update (^HULP)
	I SWOPK=1 D
	. D P^cA612(19,1,5,80,1,0,0,0,$P($T(@("T14"_QT)),U,2),0,0,0,0,0)
	. N UREF,PRLE
	. S UREF=$G(^DMC(CTLGUQC,CTLGUSC,"DATA","REF")) I '$L(UREF) Q
	. S UI1=""
	. F  S UI1=$O(@(UREF)) Q:UI1=""  D
	.. W /CUP(3,3),$P(^(UI1,0),D),/EL
	.. I $D(^HULP(boot,$J+.01,UI1)) Q
	.. S PRLE=$$PRLE^cAFA6(CTLGUI1,UI1)
	.. D V^cAN220(CTLGUSA,CTLGUQA,UI1)
	.. I '$L(PRLE) Q
	.. K TAB
	.. S TAB(229)=""
	.. D B^cAN220("PR_LE","0",PRLE,"TAB")
	. D C^cA612
	Q
	;
CREATE	; openen nieuw catalogusproduct
	S $P(PW(1),D,28)=$H,$P(PW(1),D,29)=$G(QU)
	D P^cAN220(CTLGUSA,CTLGUQA,"","PW","")
	S SWUPD=1
	Q
	;
UPD	; update 
	N UQC,USC
	S UQC=CTLGUQC,USC=CTLGUSC
	K TAB
	S UI1=$$UI1^cAFA1(CTLGDMS,101,$P(PW(1),D))
	D R^cAN000
	F I=1:1:$L(PW(1),D)  I $P(B(1),D,I)'=$P(PW(1),D,I) S TAB(100+I)=$P(PW(1),D,I)
	I $D(TAB) D B^cAN220(CTLGUSA,CTLGUQA,UI1,"TAB") S SWUPD=1
	S NUI1=UI1
	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 07.11.01 -  9 u 36 * V7.89