KPE40B G 1 ;VERWIJDEREN PRODUKTEN ;OVERLAY VAN KPE40 [ 09/28/93  9:35 AM ]
 ;
T1 ;EEN OGENBLIK, VERWIJDEREN 
T2 ;PRODUCT "
T3 ;" IS VERWIJDERD [] = ok 
T4 ;*** FUSIE VAN DE MOEDERS ***
T5 ;DIT KAN ENKELE SECONDEN (MINUTEN) DUREN.
T6 ;*** DEACTIVEREN VAN DE MOEDERS ***
T7 ;DIT KAN ENKELE SECONDEN DUREN.
 ;
1 ;
 ;
360 S @%Q1=0
 D:$D(^PRBS("IP",PR))
 .D:Moeders(PR)="F"
 ..S FP=2203+F60 W @F,@F1,@F4,$P($T(T1),";",2),$P($T(T2),";",2),PC,"""",@F5
 ..S FP=2303+F60 W @F,@F4,$P($T(T4),";",2),@F5
 ..S FP=2403+F60 W @F,@F4,$P($T(T5),";",2),@F5,@F0
 .D:Moeders(PR)="D"
 ..S FP=2203+F60 W @F,@F1,@F4,$P($T(T1),";",2),$P($T(T2),";",2),PC,"""",@F5
 ..S FP=2303+F60 W @F,@F4,$P($T(T6),";",2),@F5
 ..S FP=2403+F60 W @F,@F4,$P($T(T7),";",2),@F5,@F0
 D DELETE^PRODUKT2(PR)
 ; Fusioneren van de eventuele moeders met hun basis
 D:$D(^PRBS("IP",PR))
 .D:Moeders(PR)="F" OnDeleteProduct^PRFUSIE(PR)
 .D:Moeders(PR)="D" OnDeleteProduct^Prod.Product.ProductBeheer.CommercieelActief(PR)
455 S FP=2201+F60 W @F,@F1
 S FP=2403+F60 W @F,@F4,$P($T(T2),";",2),PC,$P($T(T3),";",2),@F5,@F0 N R R R
460 S SW1=0,@%Q1=1 L
 ;
YZ Q
 ;