cA109 ;Kreatie 'Q'PP voor latere verwerking ; [ 04/04/00  2:16 PM ]
 ;
 ;
T0 ;Kreatie 'Q'PP voor latere verwerking ;
 ;
T0F ;Création 'Q'PP pour traitement retardé ;
 ;
T0E ;Kreatie 'Q'PP voor latere verwerking ;
 ;
R9 S R1=$T(+0) I $D(QPT) F R0=1,2 I $L($P(QPT,"#",R0)) S $P(R1,"#",R0)=$P(QPT,"#",R0)
R9A F R0=1:1 Q:'$D(PP(R0))  S R1=R1_D_PP(R0)
R9B S @%Q1=0,R2="^"_Q_"PP(boot,$G(io,$$IO^cQ5),0)" L @R2 S R0=$G(@R2,1),^(0)=R0+1,^(R0)=R1,^(R0,1)=1_D_D_QT_D_$G(ISO)_D,@%Q1=1
R9Z K R0,R1,R2 L  Q  ;V6 08.09.95
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84