source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBEFCOP.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 819 bytes
Line 
1IBEFCOP ;ALB/AAS - INTEGRATED BILLING BACKGROUND FILER FOR RX COPAY ;26-FEB-91
2 ;;2.0;INTEGRATED BILLING;**150**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5COPAY ; - find pharmacy copay entries to process
6 ;
7 S IBHT=1
8 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)
9 Q
10 ;
11C1 S IBSEQNO=$O(^IB("APOST",IBNOW,DFN,"")) Q:'IBSEQNO S IBDUZ=$O(^IB("APOST",IBNOW,DFN,IBSEQNO,"")) Q:'IBDUZ D C2
12 Q
13 ;
14C2 D CHKDT S IBNOS=^IB("APOST",IBNOW,DFN,IBSEQNO,IBDUZ) K ^IB("APOST",IBNOW,DFN,IBSEQNO,IBDUZ) D FILER^IBARXMA(+IBNOS),^IBR
15 D LAST
16 Q
17 ;
18LAST S DIE="^IBE(350.9,",DA=1,DR=".06///NOW" D ^DIE K DIE,DA,DR
19 Q
20 ;
21CHKDT ; -- update dt if not the same
22 N X,%
23 D NOW^%DTC
24 S:X'=DT DT=X
25 Q
Note: See TracBrowser for help on using the repository browser.