CONVAFS ; afschrijvingscategorieën in ^DATA(0,... ; CONVAFS ; ; conversie AFS.CAT 1 I $D(^DATA(0,"AFS.CAT")) G YZ S NR=1000,CODE="" 11 S CODE=$O(^EABA("%F",32,CODE)) G 2:CODE="" S INH=^(CODE) s BEE(1)=INH S $P(BEE(1),D,6)=$P(CODE," ") D P^cAN220("AFS.CAT",0,NR,"BEE","") S NR=NR+1 G 11 ; ; 2 F GL="AFS.HRUB","AFS.RUBR","AFS.SUBR" M ^DATA(0,GL)=^DATA("EA",GL) D S1^cAN002(0,GL) ; 3 K ^DMS(Q,"AFS.CAT","SYN") ; YZ Q ; ; ZZ ; 04.04.05 - 14 u 30 * V8.03