cICHKALL	;AFDRUKKEN CONTROLES :%ICHKALL; [ 02/07/02  10:10 AM ]
	;
1	D QQM^cQ6 S %UUO=$ZU(5) D IN^cQMSMSW("MGR,"_boot)
	S BA="^|""TST,"_$P(%UUO,",",2)_"""|"_Q_"BA(99)"
	D GETVG^cVGUTIL S %VGI=""
	F  S %VGI=$O(VG(%VGI)) Q:%VGI=""  I %VGI?1.2N D
	. D VGINFO^cVGUTIL2(%VGI) Q:VGRVG
	. D GETUCI^cVGUTIL2(%VGI) S %UUN=""
	. F  S %UUN=$O(VGUCIS(%UUN)) Q:%UUN=""  I %UUN?1.2N D
	.. S %UCO=$ZU(5) D IN^cQMSMSW(%UUN_","_%VGI) S UCI=VGUCIS(%UUN)
	.. I $D(^cLOG(boot,"QQM",$I,$ZU(5))) S K=^($ZU(5)),Q=$P(K,"\"),QT=$P(K,"\",3),QTU=$S($L(QT):$F("FDE",QT),1:1)
	.. S QN=@BA@(1),NM2=^(2),NM3=^(3)
	.. D @UCI
	.. D IN^cQMSMSW(%UCO)
	;
2	D IN^cQMSMSW(%UUO)
	;
YZ	Q
	;
MGR	D ^cER
	D ^cA401
	Q
	;
TST	D ^cICHKSR
	D ^cICHKSG
	D ^cICOPROP
	D ^cICHKAP("%LOG&SYS")
	D ^cQMSMLBU
	D ^cER
	D ^cA401
	D ^cA402
	D ^cICMPSG Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91