K IBXDATA I $P(IBXSAVE("DISDT"),".",2)'="" S IBXDATA=$E($P(IBXSAVE("DISDT"),".",2)_"0000",1,4)
FORMAT CODE DESCRIPTION
Extract time from date/time retrieved from IBXSAVE array previously
extracted. Format time in HHMM format. If data element's value is null,
do not output.