cA604	;INTERNE INITIALISATIE ;%A604; [ 04/07/95  11:50 AM ]
	;
T0	;Interne initialisatie ;
	;
T0F	;Initialisation interne ;
	;
T0E	;Interne initialisatie ;
	;
1	D ^cA600
	;
2	S QP=1,QD=$D(@("^"_QS_Q_"BA(34)")),%Q1="^TEMP(""%1"",$J)" S:QD QD=^(34)
21	D ^cA105,^cA106
	;
YZ	Q
	;
ZZ	; 15.04.03 -  9 u 31 * V7.94