cQJRNL	;Journal Utilities ;cQJRNL;
	Q
	;
PSW	;Purge & Switch Journalspaces
	N K S K="" D SWS(.K),PUJ(.K),SWJ(.K),SWB(.K) X K Q
	;
SWP	;Switch & Purge Journalspaces
	N K S K="" D SWS(.K),SWJ(.K),PUJ(.K),SWB(.K) X K Q
	;
PUJ(X)	;Purge Journalspaces
	S X=$G(X),X=$S($L(X):X_" ",1:"")_"D PURGE^JRNUTIL" Q
	;
SWJ(X)	;Switch Journalspaces
	S X=$G(X),X=$S($L(X):X_" ",1:"")_"D JRNSWCH^JRNUTIL()" Q
	;
SWS(X)	; Switch to %SYS namespace
	S X=$G(X),X=$S($L(X):X_" ",1:"")_"N nmspc S nmspc="""_$ZU(5)_""" ZN ""%SYS""" Q
	;
SWB(X)	; Switch back to where you came from
	S X=$G(X),X=$S($L(X):X_" ",1:"")_"ZN:$ZU(90,10,$G(nmspc)) nmspc" Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9