cABIECGR	       ;Import - GLOBAL INPUT ;cABIE;  [ 07/04/00  4:35 PM ]
	;
	S $ZT="ERRDEV",$ZE=""  ;no variables escape!
OPEN	S IO=TRFIL,OIBS="*8",OIF="#",OIM=132,IOPAR="(""R"")",IOSL=66,IOST="RMS",IOT="RMS",MSYS="M/WNT"
	O IO:"R":0 S OK=$T I 'OK W !,"Could not open file",! S QUIT=2 Q
	I IO=$I W:'quiet !,"(cannot load from THIS device)" Q
	U IO R x C IO S fmt=5
	I TRF'="E",x["Format=5.V" S TRF="E" G OPEN
	I TRF="E",x'["Format=5.V" S TRF="C" G OPEN
	I TRF="E" S IOPAR="(""RV"")"
	S x=$$header^cABIECW(IO_":"_IOPAR,fmt,0),DESC=$p(x,$c(13,10),1),DAT=$p(x,$c(13,10),2)
	S ASN=$G(%ABIE("SEL"),"A")
	I 'quiet U 0 W !,"Globals were saved on ",DAT,!,"with description: ",$p(DESC,"~Format=",1),!
OPT	I 'quiet G OPT^%GI
	I quiet G A^%GI
	;
YZ	Q
	;
ERRDEV	;error while preparing (opening file) to load globals
	S $ZT="",ZE=$ZE,$ZE=""
	U 0 I ZE]"" W !,"Received error: ",ZE
	C IO Q
	;
ZZ	; 29.07.08 - 11 u 27 * V9.02