Routine: BARPBEN2

Package	Total	Call Graph
IHS Accounts Receivable	3	CHK^BARRHD (HD,HDB)^BARRPSRB EOP^BARUTL

Entry Points

Name	Comments	DBIA/ICR reference
SETHDR	; ; Set header Array
PAT	; EP ; sort/print by Patient
PATPRT	; EP ; Print one line Patient Summary
BILL	;EP ; sort/print by Bill
PATBIL	;
EXIT	; EP ; clear variables
PRINT	; EP ; PRINT
TOTAL	; ; Write report totals
BILLPRT	; EP ; Print one line Bill summary

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!!?25,"* NO DATA TO PRINT *" Line Location: PAT+5
Function Call: WRITE	Prompt: !,$E(BARPATNM,1,25) Line Location: PATPRT+4
Function Call: WRITE	Prompt: ?29,$E(BARBILL,1,18) Line Location: PATPRT+5
Function Call: WRITE	Prompt: ?51,$P(BARHOLD,U,2) Line Location: PATPRT+6
Function Call: WRITE	Prompt: ?69,$J($P(BARHOLD,U),9,2) Line Location: PATPRT+7
Function Call: WRITE	Prompt: !!!!!?25,"* NO DATA TO PRINT *" Line Location: BILL+5
Function Call: WRITE	Prompt: !,$E(BARBILL,1,18) Line Location: BILLPRT+4
Function Call: WRITE	Prompt: ?22,$E($P(BARHOLD,U,3),1,25) Line Location: BILLPRT+5
Function Call: WRITE	Prompt: ?51,$P(BARHOLD,U,2) Line Location: BILLPRT+6
Function Call: WRITE	Prompt: ?69,$J($P(BARHOLD,U),9,2) Line Location: BILLPRT+7
Function Call: WRITE	Prompt: !,?10,"TOTAL BILLS: ",BARCNT Line Location: TOTAL+3
Function Call: WRITE	Prompt: ?40,"TOTAL AMOUNT",?64,$J(BARTOT,14,2) Line Location: TOTAL+4

Name	Line Occurrences (* Changed, ! Killed)
^XTMP("BAR-BEN"	PAT+9, PATBIL+2, PATPRT+2, BILL+9, BILLPRT+2, EXIT+2!

Name	Field # of Occurrence
>> BAR("COL"	PAT+2, BILL+2
>> BAR("CONJ"	SETHDR+5, SETHDR+10, SETHDR+15*
>> BAR("F1"	PAT+9, PATBIL+2, PATPRT+3, BILL+9, BILLPRT+3
>> BAR("HD"	SETHDR+2, SETHDR+8, SETHDR+13*
>> BAR("LVL"	SETHDR+4, SETHDR+7, SETHDR+8, SETHDR+12*, SETHDR+13
>> BAR("PG"	SETHDR+17*
>> BAR("TXT"	SETHDR+3, SETHDR+9, SETHDR+14*
>> BARACNM	SETHDR+9
>> BARBILL	PATBIL+1, PATBIL+2, PATPRT+2, PATPRT+5, BILL+8, BILL+9, BILLPRT+2, BILLPRT+4
>> BARCNT	PAT+4, BILL+4, TOTAL+3
>> BAREQUAL	SETHDR+18*, TOTAL+2
>> BARHOLD	PATPRT+2, PATPRT+6, PATPRT+7, BILLPRT+2, BILLPRT+5, BILLPRT+6, BILLPRT+7
>> BARPATNM	PAT+8, PAT+9, PATBIL+2, PATPRT+2, PATPRT+4
>> BARSBY	PRINT+4, PRINT+5, SETHDR+14
>> BARTOT	TOTAL+4
DIROUT	PRINT+2!
DROUT	PRINT+2!
DTOUT	PRINT+2!
DUOUT	PRINT+2!
IOSL	PATPRT+3, BILLPRT+3
U	PATPRT+6, PATPRT+7, BILLPRT+5, BILLPRT+6, BILLPRT+7