Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBORAT1A

IBORAT1A.m

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