IBEFCOP ;ALB/AAS - INTEGRATED BILLING BACKGROUND FILER FOR RX COPAY ;26-FEB-91
 ;;2.0;INTEGRATED BILLING;**150**;21-MAR-94
 ;;Per VHA Directive 10-93-142, this routine should not be modified.
 ;
COPAY ;  - find pharmacy copay entries to process
 ;
 S IBHT=1
 S IBNOW="" F  S IBNOW=$O(^IB("APOST",IBNOW)) Q:'IBNOW  L +^IB("APOST",IBNOW):0 I $T S DFN=$O(^IB("APOST",IBNOW,"")) Q:'DFN  D C1 L -^IB("APOST",IBNOW)
 Q
 ;
C1 S IBSEQNO=$O(^IB("APOST",IBNOW,DFN,"")) Q:'IBSEQNO  S IBDUZ=$O(^IB("APOST",IBNOW,DFN,IBSEQNO,"")) Q:'IBDUZ  D C2
 Q
 ;
C2 D CHKDT S IBNOS=^IB("APOST",IBNOW,DFN,IBSEQNO,IBDUZ) K ^IB("APOST",IBNOW,DFN,IBSEQNO,IBDUZ) D FILER^IBARXMA(+IBNOS),^IBR
 D LAST
 Q
 ;
LAST S DIE="^IBE(350.9,",DA=1,DR=".06///NOW" D ^DIE K DIE,DA,DR
 Q
 ;
CHKDT ; -- update dt if not the same
 N X,%
 D NOW^%DTC
 S:X'=DT DT=X
 Q