cTI98	;Conversie ivm centrale goederencode ;%TI98 ; [ 04/28/00  11:30 AM ]
	G 1
	;
T0	;Conversie ivm centrale goederencode ;
	;
T0F	;Conversion conc. code march. centr. ;
	;
	; voor alle Q-waardes : conversie van
	; 1) bestaande goederencodes
	; 2) bestaande aangiftes
	; 3) productenbestand
	;
1	d QQM^cQ6 s QQ=Q,QU="DAM" d B^cA612 w /CUP(1,1)
11	s XQ=$G(^cLOG("Q"),$G(^cLOG($p($zu($ZV'["MSM"*5),",",2),"Q"),Q))
13	f  s Q=$p(XQ,D),XQ=$p(XQ,D,2,999) q:Q=""&(XQ="")  i Q'="SYS" d
	. i '$d(@("^"_Q_"BA(99,1)")) q
	. w !,Q," : ",^(1)
	. s (ATC,CODE)=0                                  ; conv. goederencodes
	. f  s CODE=$o(@("^"_Q_"INTR(""%F"",1,CODE)")) q:CODE=""  d
	.. s ATC=ATC+1,NODE=^(CODE)
	.. i '$d(UQC) d
	... d DMS^cAN000("UQC","USC","INTR.GOE") i UQC=""!(USC="") x "stop"
	... s UREF=^DMC(UQC,USC,"DATA","REF")
	.. i $$UNIEK^cAFA1("INTR.GOE",103,$p(NODE,D)) d             ; openen gc
	... s A(1)=D,B(1)=D,UFU="O",(SW2,SW3)=1
	... d B^cAN000(101,$p(CODE," "))
	... f i=2,12 s $p(B(1),D,i)=$p(NODE,D,3)
	... f i=3,4 s $p(B(1),D,i)=$p(NODE,D,i-2)
	... s UI1=$$NR^cAN000 d U^cAN000
	. w !,$j(ATC,10)," goederencodes"
	. s (ATM,KC)=0                                    ; conv. aangiftes
	. f  s KC=$o(@("^"_Q_"INTR(KC)")) q:'KC  d
	.. s ATM=ATM+1 f US=19,29 s UR=0 d
	... f  s UR=$o(@("^"_Q_"INTR(KC,US,UR)")) q:UR=""  s UZ=100 d
	.... f  s UZ=$o(@("^"_Q_"INTR(KC,US,UR,UZ)")) q:UZ=""  s NODE=^(UZ) d
	..... s CODE=$p(NODE,D)_" " i $p(NODE,D,11)=CODE q
	..... s OFFC="" i $d(@("^"_Q_"INTR(""%F"",1,CODE)")) d
	...... s OFFC=$p(^(CODE),D),UI1=$$UR^cAFA1("INTR.GOE",103,OFFC)
	..... i OFFC="" s UI1=$$UR^cAFA1("INTR.GOE",101,CODE)
	..... i UI1 s $p(NODE,D)=UI1,$p(NODE,D,11)=CODE,@("^"_Q_"INTR(KC,US,UR,UZ)")=NODE
	. w !,$j(ATM,10)," maanden met aangifte(s)"
	. s (ATA,ATP,UI1)=0                               ; conv. producten
	. i $o(@("^"_Q_"PR(0)")) d
	.. d DMS^cAN000("UQC","USC","PR") i UQC=""!(USC="") x "stop"
	.. s UREF=^DMC(UQC,USC,"DATA","REF")
	.. s UFU="W",SW3=3,USL=D,U2(1)="Goederencode~Code march."
	.. f  s UI1=$o(@UREF) q:UI1=""  d
	... k A,B D R^cAN000 m A=B
	... s ATP=ATP+1,CODE=$p(B(3),D,8) i CODE="" q
	... s CODE=CODE_" "
	... s OFFC="" i $d(@("^"_Q_"INTR(""%F"",1,CODE)")) d
	.... s OFFC=$p(^(CODE),D),K=$$UR^cAFA1("INTR.GOE",103,OFFC)
	... i OFFC="" s K=$$UR^cAFA1("INTR.GOE",101,CODE)
	... i K d
	.... d B^cAN000(308,K)
	.... s $p(ULOG(308),D,2)=$p(CODE," ")
	.... s $p(ULOG(308),D,3)=$$SIG^cAFA1("INTR.GOE",K,101)
	.... d U^cAN000 s ATA=ATA+1
	. w !,$j(ATP,10)," producten, ",ATA," aangepast"
	;
YZ	d C^cA612 Q
	;
ZZ	; 30.06.00 - 16 u 02 * V7.4