- IBTUBAV1 ;ALB/AAS - UNBILLED AMOUNTS - AVERAGE BILL AMOUNT LOGIC ; 29-SEP-94
- ;;2.0;INTEGRATED BILLING;**19,32,123**;21-MAR-94
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- ;
- MANUAL ; - When manually updating, recompute yearly totals to current month.
- Q ;;**NO LONGER USED**
- ;;N IBSAV,IBI
- ;;S IBSAV=IBTIMON,IBTMON=IBTIMON D BLD^IBTUBAV,DQ^IBTUBO
- ;;S (IBTMON,IBTIMON)=IBSAV
- ;;F IBI=1:1:12 S IBTMON=$O(^IBE(356.19,IBTMON)) Q:'IBTMON D
- ;;.I $G(^IBE(356.19,+IBTMON,1))'="" D YEAR^IBTUBAV(IBTMON)
- ;;Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTUBAV1 541 printed Apr 23, 2025@18:43:40 Page 2
- IBTUBAV1 ;ALB/AAS - UNBILLED AMOUNTS - AVERAGE BILL AMOUNT LOGIC ; 29-SEP-94
- +1 ;;2.0;INTEGRATED BILLING;**19,32,123**;21-MAR-94
- +2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +3 ;
- MANUAL ; - When manually updating, recompute yearly totals to current month.
- +1 ;;**NO LONGER USED**
- QUIT
- +2 ;;N IBSAV,IBI
- +3 ;;S IBSAV=IBTIMON,IBTMON=IBTIMON D BLD^IBTUBAV,DQ^IBTUBO
- +4 ;;S (IBTMON,IBTIMON)=IBSAV
- +5 ;;F IBI=1:1:12 S IBTMON=$O(^IBE(356.19,IBTMON)) Q:'IBTMON D
- +6 ;;.I $G(^IBE(356.19,+IBTMON,1))'="" D YEAR^IBTUBAV(IBTMON)
- +7 ;;Q
