cABIEMGR	;Import - GLOBAL RESTORE ;%ABIE; [ 12/11/01  3:03 PM ]
	;
	S $ZT="ERR^%GR"
SDEV	D IN^cABIEMSD G:$D(QUIT) YZ
	S %TAP=%DEV>46&(%DEV<51) D:%TAP %SET^%MTCHK
	U %DEV R %TIME,%CMT I %TIME="" G YZ
	U 0 S %S=0,%SEQ=1,%LG="",%POS=0
	W !!,"Global(s) saved at ",%TIME,".",!,"Header comment is : ",%CMT,!
L1	I '$g(quiet) G L1^%GR
	I $g(quiet) S %SEL=0,%ANS="Y" G START^%GR
	;
YZ	Q
	;
ZZ	; 27.04.06 -  9 u 01 * V8.07