| [613] | 1 | IBORAT1A ;ALB/RJS - FILTER FOR FILE 350.2 - 2/27/92
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;THIS PROGRAM BUILDS A TEMP FILE FROM FILE 350.2 DATA
|
|---|
| 4 | ;FILE 350.2 IS THE IB ACTION CHARGE FILE
|
|---|
| 5 | START ;
|
|---|
| 6 | S IBSPEC=""
|
|---|
| 7 | F S IBSPEC=$O(^IBE(350.1,"E",IBSPEC)) Q:IBSPEC="" D IBPTR
|
|---|
| 8 | END ;
|
|---|
| 9 | K IBEFFDAT,IBPTR,IBRECNR,IBSPEC,IBXDATA
|
|---|
| 10 | Q
|
|---|
| 11 | IBPTR ;
|
|---|
| 12 | S IBPTR=""
|
|---|
| 13 | F S IBPTR=$O(^IBE(350.1,"E",IBSPEC,IBPTR)) Q:IBPTR="" D IBEFFDAT
|
|---|
| 14 | Q
|
|---|
| 15 | IBEFFDAT ;
|
|---|
| 16 | S IBEFFDAT=-9999999
|
|---|
| 17 | F S IBEFFDAT=$O(^IBE(350.2,"AIVDT",IBPTR,IBEFFDAT)) Q:IBEFFDAT="" D NEXT
|
|---|
| 18 | Q
|
|---|
| 19 | NEXT ;
|
|---|
| 20 | F IBRECNR=0:0 S IBRECNR=$O(^IBE(350.2,"AIVDT",IBPTR,IBEFFDAT,IBRECNR)) Q:IBRECNR="" D LOAD
|
|---|
| 21 | Q
|
|---|
| 22 | LOAD ;
|
|---|
| 23 | SET IBXDATA=$G(^IBE(350.2,IBRECNR,0))
|
|---|
| 24 | I IBSPEC'=""&($P(IBXDATA,U,2)'="") S ^TMP($J,"IBORAT1A",IBSPEC,$P(IBXDATA,U,2))=$P(IBXDATA,U,4)_"^"_$P(IBXDATA,U,6)
|
|---|
| 25 | Q
|
|---|
