KPE01 G 10 ; RAADPLEGEN - WIJZIGEN - VERWIJDEREN PRODUCTEN ;OVERLAY VAN KPE20-KPE30-KPE40 ;GO NAAR KPE0 [ 09/10/93  8:42 AM ]
 ;
10 Quit:$D(KE)  Set KN=3,SW2=1,(A,SW8,SW9,SW10)=0,FP=250 Write @F,@F1
 If $D(PRNr) Set PR=PRNr
 Else  Set PR=$$SELECT^PRODUKT6(,,,,$S(sScr("VTW"):"NODO;NOKP",1:"ALL"),,,,,1) Set:'PR PR="-"
 Set (I1,K)=PR,FP=L-2*100 Write @F,@F1
 ;
YZ Kill A,B,I,I2,I3,I4,IB,JP,K,K1,K2,KN,LV,L1,M,Q1,Q2,R,SX,T,V1,V2,V3,V4,VN,VVE
 Quit
 ;