Routine: BARBLCLC

Information

BARBLCLC ;IHS/SD/LSL - A/R BILL CALCULATIONS ; 03/04/2010

Source file <BARBLCLC.m>

Package	Total	Caller Graph
IHS Accounts Receivable	1	^BARBL(2906

Name	Comments	DBIA/ICR reference
CALC(D0)	; Calculated Amount field PAYMENT - CO-PAY - DEDUCTIBLE ; Already have bill ^BARBL(DUZ(2),D0,0) where D0 = Bill Number ; ^BARBL(DUZ(2),"AC",D0,DATE.TIME)="" points to-> $P(^BARTR(DUZ(2),DATE.TIME,0),"^") ; I $P(^BARTR(DUZ(2),DATE.TIME,0),"^")=40 - PAYMENT

Name	Line Occurrences (* Changed, ! Killed)
^BARTR(	CALC+5, CALC+6, CALC+8