Routine: BARCLU2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BARCLU BARCLU3

Entry Points

Name	Comments	DBIA/ICR reference
CC	; EP ; credit card
REFUND	; EP ; refund
EDICW	;
PAYOR	; EP ; ask PAYOR (A/R Account with DISV(screen)
EOB	; EP ; EOB entry
EDITEM	; EP ; edit collection item
DICW1
CASH	; EP ; cash col
DISPLAY	; EP ; display item elements
ITEM	; EP
CACC	; EP ; for other types
DICW	; EP ; help display on Item lookup
FLDS	;;203;GENERAL LEDGER^11;CHECK NUMBER^12;BANK NUMBER^13;CC NUMBER^14;CC VER NUMBER^101;AMOUNT PAID^102;REFUND^7;A/R ACCOUNT^201;PAYOR^8;LOCATION OF SERVICE^10;INPAT/OUTPAT^5;PATIENT^6;BILL^16;AUTO PRINT^20;TREASURY DEPOSIT/IPAC #
END	;
GL	; EP ; general ledger
CHECK	; EP ; for checks

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: BARCLU2+4
Function Call: WRITE	Prompt: !,"MORE FUNCTION - add items that were not asked" Line Location: BARCLU2+5
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: FLDS+3
Function Call: WRITE	Prompt: !,BARCL(.01) Line Location: FLDS+4
Function Call: WRITE	Prompt: ?22,"ITEM: ",BARITDA Line Location: FLDS+5
Function Call: WRITE	Prompt: " TYPE: ",BARCLIT(2) Line Location: FLDS+6
Function Call: WRITE	Prompt: ?54,"BATCH TOTAL: ",$$GET1^DIQ(90051.01,BARCLDA,15) Line Location: FLDS+7
Function Call: WRITE	Prompt: ! Line Location: FLDS+8
Function Call: WRITE	Prompt: "=" Line Location: FLDS+9
Function Call: WRITE	Prompt: !?5,BARNM,?30,BARCLIT(BARFLD) Line Location: FLDS+13
Function Call: WRITE	Prompt: !,"COMMENTS" Line Location: FLDS+15
Function Call: WRITE	Prompt: !,?3,BARCLIT(301,BARI) Line Location: FLDS+16
Function Call: WRITE	Prompt: ! Line Location: FLDS+17
Function Call: WRITE	Prompt: "=" Line Location: FLDS+17
Function Call: WRITE	Prompt: ! Line Location: FLDS+18
Function Call: WRITE	Prompt: ?7,$J($E(BARCLIT(11),1,9),10) Line Location: DICW1+12
Function Call: WRITE	Prompt: ?18,$J(BARCLIT(101),8,2),?28,BARCLIT(7),?58,$E(BARCLIT(2.5),1,2) Line Location: DICW1+14
Routine Call	DIE Line Location: CACC+7 CACC+16 REFUND+6 PAYOR+7
Routine Call	DIC Line Location: ITEM+9

FileNo	Call Tags
^BARCOL(2906 - [#90051.01]	GET1^DIQ

Name	Field # of Occurrence
BARBL	EDITEM+2!, CACC+5!, CACC+10
>> BARCL(	FLDS+4
>> BARCLDA	ITEM+5, EDITEM+4, EDITEM+5, FLDS+7, DICW1+9
>> BARCLID(12	CHECK+2, PAYOR+4
>> BARCLID(14	CACC+3
>> BARCLID(15	CACC+2
>> BARCLID(16	CACC+4
>> BARCLID(17	CACC+12
>> BARCLID(18	CACC+11
>> BARCLID(19	CACC+13
BARCLIT	DICW1+1!
BARCLIT(	FLDS+13, DICW1+14
BARCLIT(101	DICW1+14
BARCLIT(11	DICW1+12, DICW1+13
BARCLIT(2	ITEM+13, FLDS+6
BARCLIT(301	CACC+14, FLDS+14, FLDS+16
BARCLIT(7	DICW1+14
>> BARDIC	EDITEM+5
>> BARE	FLDS+10*, FLDS+11, FLDS+12
BARFLD	FLDS+11*, FLDS+13, FLDS+19!
BARI	FLDS+9, FLDS+10, FLDS+16, FLDS+17, FLDS+19!
>> BARITDA	ITEM+11*, EDITEM+3, FLDS+5
BARNM	FLDS+12*, FLDS+13, FLDS+19!
>> BARSPAR(3	REFUND+3
>> BARX	ITEM+13*, EDITEM+6, EDITEM+7, EDITEM+8, EDITEM+9, EDITEM+10, EDITEM+11, CACC+2, CACC+3, CACC+4 , CACC+11, CACC+12, CACC+13
BARY	FLDS+2*, FLDS+10, FLDS+19!
DA	EDITEM+3, DICW1+2~, DICW1+4
DA(1	ITEM+5, EDITEM+4, DICW1+9*
DIC	BARCLU2+6!, ITEM+1, ITEM+2, PAYOR+3, DICW1+2~, DICW1+8
DIC("A"	ITEM+4*
DIC("S"	ITEM+7*
DIC("W"	ITEM+3*
DIC(0	ITEM+6, ITEM+8
DIDEL	CACC+6, CACC+8!, CACC+15, CACC+17!, REFUND+5, REFUND+7!, PAYOR+6, PAYOR+8!
DIE	EDITEM+2!, EDITEM+5, PAYOR+3
DIQ	DICW1+2~, DICW1+6*
DIQ(0	DICW1+7*
DR	ITEM+15, CHECK+2, CACC+2, CACC+3, CACC+4, CACC+9, CACC+11, CACC+12, CACC+13, CACC+14 , CACC+18, CC+2, GL+2, REFUND+2, REFUND+3, REFUND+4, CASH+2, PAYOR+2, PAYOR+4, PAYOR+5* , DICW1+2~, DICW1+10*
U	FLDS+10
Y	ITEM+10, ITEM+11, DICW1+3, DICW1+4, DICW1+5~

Name	Field # of Occurrence
$T(FLDS	FLDS+2