cQMSMSW	;Change Namespace ;cQMSMSW;
	;
	W !,"You're in namespace ",$ZU(5),!
	;
YZ	Q
	;
ST	D ^%CD Q
	;
SW	Q
	;
INT	ZN UCI Q
	;
MGR	ZN "%SYS" Q
TST	ZN $G(^["%SYS"]cLOG(0,"NAMESPACE",0),"USER") Q
MENU(UCI)	ZN UCI Q
IN(UCI)	ZN UCI Q
UCILIB	ZN "%SYS" Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9