cABIEMGR ;Import - GLOBAL RESTORE ;%ABIE; [ 07/04/00  4:36 PM ]
 ;
 S $ZT="ERR^%GR"
SDEV D IN^%ABIEMSD G:$D(QUIT) EXIT
 S %TAP=%DEV>46&(%DEV<51) D:%TAP %SET^%MTCHK
 U %DEV R %TIME,%CMT I %TIME="" G BADSAVE
 U 0 S %S=0,%SEQ=1,%LG="",%POS=0
 W !!,"Global(s) saved at ",%TIME,".",!,"Header comment is : ",%CMT,!
L1 G L1^%GR
 ;
YZ Q
 ;
ZZ ; 07.02.01 - 10 u 46 * V7.84
 
BADSAVE
 
EXIT