source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBORAT1A.m@ 700

Last change on this file since 700 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 801 bytes
RevLine 
[613]1IBORAT1A ;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
5START ;
6 S IBSPEC=""
7 F S IBSPEC=$O(^IBE(350.1,"E",IBSPEC)) Q:IBSPEC="" D IBPTR
8END ;
9 K IBEFFDAT,IBPTR,IBRECNR,IBSPEC,IBXDATA
10 Q
11IBPTR ;
12 S IBPTR=""
13 F S IBPTR=$O(^IBE(350.1,"E",IBSPEC,IBPTR)) Q:IBPTR="" D IBEFFDAT
14 Q
15IBEFFDAT ;
16 S IBEFFDAT=-9999999
17 F S IBEFFDAT=$O(^IBE(350.2,"AIVDT",IBPTR,IBEFFDAT)) Q:IBEFFDAT="" D NEXT
18 Q
19NEXT ;
20 F IBRECNR=0:0 S IBRECNR=$O(^IBE(350.2,"AIVDT",IBPTR,IBEFFDAT,IBRECNR)) Q:IBRECNR="" D LOAD
21 Q
22LOAD ;
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
Note: See TracBrowser for help on using the repository browser.