K IBXSV S:'$O(^TMP("IBXMSG",$J,""),-1) IBXDATA="BGN " S:$G(IBXDATA)="" IBXNOREQ=1 S ^TMP("IBTX",$J,IBXIEN)=1
FORMAT CODE DESCRIPTION
If header data has already been extracted, then kill data element so
there is no output. If no header already extracted, output record
id for 'BGN' record.