cPE74 G 1 ;BEHEER VERVANGINGSNUMMERS   KLASS., LEVER., DEELPR. ;%PE71; OVERLAY VAN %PE73
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
1 S Q9="^"_Q_"PR(PR,I)",Q99="^"_Q_"PR(PR2,I)"
 ;
10 F K="D","E","I","J" S (K1,I)=K I $D(@Q9) S @Q99="" F J=1:1 S I=$N(@Q9) Q:$E(I,1)'=K1  S @Q99=@Q9
 ;
YZ K I,J,K1,Q9,Q99 Q
 ;
Z X ^cZ Q
ZZ ; 02.05.86 - 11 u 53