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 Nov 22, 2024@17:39:06 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
