cQJRNL ;Journal Utilities ;cQJRNL; [ 05/31/01  10:49 AM ]
 ;
T0 ;Journal Utilities;
 ;
T0F ;Journal Utilities;
 ;
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=X_" D PPURGE^JRNUTIL" Q
 ;
SWJ(X) ;Switch Journalspaces
 S X=X_" D JRNSWCH^JRNUTIL()" Q
 ;
SWS(X) ; Switch to %SYS namespace
 S X=X_" N nmspc S nmspc=$ZU(5) ZN ""%SYS""" Q
 ;
SWB(X) ; Switch back to where you came from
 S X=X_" ZN nmspc" Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8