IBORAT1A ;ALB/RJS - FILTER FOR FILE 350.2 - 2/27/92
 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
 ;THIS PROGRAM BUILDS A TEMP FILE FROM FILE 350.2 DATA
 ;FILE 350.2 IS THE IB ACTION CHARGE FILE
START ;
 S IBSPEC=""
 F  S IBSPEC=$O(^IBE(350.1,"E",IBSPEC)) Q:IBSPEC=""  D IBPTR
END ;
 K IBEFFDAT,IBPTR,IBRECNR,IBSPEC,IBXDATA
 Q
IBPTR ;
 S IBPTR=""
 F  S IBPTR=$O(^IBE(350.1,"E",IBSPEC,IBPTR)) Q:IBPTR=""  D IBEFFDAT
 Q
IBEFFDAT ;
 S IBEFFDAT=-9999999
 F  S IBEFFDAT=$O(^IBE(350.2,"AIVDT",IBPTR,IBEFFDAT)) Q:IBEFFDAT=""  D NEXT
 Q
NEXT ;
 F IBRECNR=0:0 S IBRECNR=$O(^IBE(350.2,"AIVDT",IBPTR,IBEFFDAT,IBRECNR)) Q:IBRECNR=""  D LOAD
 Q
LOAD ;
 SET IBXDATA=$G(^IBE(350.2,IBRECNR,0))
 I IBSPEC'=""&($P(IBXDATA,U,2)'="") S ^TMP($J,"IBORAT1A",IBSPEC,$P(IBXDATA,U,2))=$P(IBXDATA,U,4)_"^"_$P(IBXDATA,U,6)
 Q