Routine: BARCLU0

Package	Total	Call Graph
IHS Accounts Receivable	6	BARCLIT^BARCLU CACC^BARCLU01 (DISPLAY,DSPSUB)^BARCLU1 NEWITEM^BARCLU4 EOP^BARUTL $$EN^BARVDF
VA Fileman	5	^DIC ^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	2	($$DIC,ENP,ENPM,PARSE)^XBDIQ1 ^XBNEW

Package	Total	Caller Graph
IHS Accounts Receivable	3	BARCLU BARCLU01 BARCLU3

Entry Points

Name	Comments	DBIA/ICR reference
REFUND	; EP ; refund
EOB	; EP ; ask PAYOR (A/R Account with DISV(screen)
EITEMEOB	;
DELSUBS	; EP ; REMOVE EOBSUBS
EDITEM	; EP ; edit collection item
CHECKDUP(CHK,LIST)	;EP - CHECK FOR DUPLICATE CHEACKS IN A/R COLLECTION BATCH
KSUB	; EP ; kill eob sub
FILE	; ; file entry and check counter
RESEL	;
EOBEDIT	;
SHOLIST(LIST)	;EP - SHOW LIST OF DUPES
DSPSUB	;
SELPAYOR	; EP ; select A/R Account for Insurer only
CASH	; EP ; cash col
INSSUB	; EP ; insert single sub node
ASK	;
ENDEOB	;
AMT
END	;
ITEMEOB	;
CC	; EP ; credit card
DUPHDR(CNT)	;EP - CHKDUP HEADER
CACC	; EP
GL	; EP ; general ledger entry
SPAYOR	; EP ; from BARCLU3
SAME
CHECK	; EP ; for checks
KILLSUB	; EP ; kill eob sub when the entry is 0
EOBSUB	;EP ; enter data for sub EOB locations and amounts"
LOOP	;EP ; loop subs for entries and amounts

External References

Name	Field # of Occurrence
BARCLIT^BARCLU	ITEMEOB+10, AMT+17, LOOP+8, LOOP+15, LOOP+20
CACC^BARCLU01	CACC+1
DISPLAY^BARCLU1	AMT+18
DSPSUB^BARCLU1	DSPSUB+1
NEWITEM^BARCLU4	FILE+11
EOP^BARUTL	EOB+7
$$EN^BARVDF	ITEMEOB+12
^DIC	LOOP+8, SELPAYOR+8, INSSUB+14
^DIE	REFUND+6, RESEL+8, ITEMEOB+7, ITEMEOB+36, ITEMEOB+63, AMT+2, AMT+12, FILE+8, LOOP+13
^DIK	ASK+11, KSUB+3
$$GET1^DIQ	ITEMEOB+17, ITEMEOB+21, ITEMEOB+44, CHECKDUP+11, CHECKDUP+12, CHECKDUP+13
^DIR	ITEMEOB+51, ASK+4
$$DIC^XBDIQ1	ASK+8, FILE+3, INSSUB+6, DELSUBS+3
ENP^XBDIQ1	INSSUB+11
ENPM^XBDIQ1	DELSUBS+4
PARSE^XBDIQ1	DELSUBS+8
^XBNEW	SPAYOR+2, KILLSUB+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"A sequence error has been detected." Line Location: EOB+3
Function Call: WRITE	Prompt: !,"Please notate exactly what you were doing" Line Location: EOB+4
Function Call: WRITE	Prompt: !,"to provide assistance to the programmers" Line Location: EOB+5
Function Call: WRITE	Prompt: !,BARLAST,?10,BARITDA Line Location: EOB+6
Function Call: WRITE	Prompt: !,"FILEING ERROR .. SELECT PAYOR ",! Line Location: RESEL+9
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: ITEMEOB+12
Function Call: WRITE	Prompt: !!,"ENTERING ",BARCL(.01) Line Location: ITEMEOB+13
Function Call: WRITE	Prompt: ?30,"TYPE: ",BARCLID(2) Line Location: ITEMEOB+14
Function Call: WRITE	Prompt: ?50,"BATCH TOTAL: ",$$GET1^DIQ(90051.01,BARCLDA,15) Line Location: ITEMEOB+17
Function Call: WRITE	Prompt: !! Line Location: ITEMEOB+22
Function Call: WRITE	Prompt: "ITEM ",BARITDA Line Location: ITEMEOB+24
Function Call: WRITE	Prompt: ?20,BARCLIT(7) Line Location: ITEMEOB+25
Function Call: WRITE	Prompt: !," ^ at Check Number to ask Payor" Line Location: ITEMEOB+26
Function Call: WRITE	Prompt: !," ^ at Payor to exit entry" Line Location: ITEMEOB+27
Function Call: WRITE	Prompt: !,"TREASURY DEPOSIT/IPAC: "_BARTDN Line Location: ITEMEOB+38
Function Call: WRITE	Prompt: !! Line Location: ITEMEOB+54
Function Call: WRITE	Prompt: *7,?40,"BALANCE : ",BARCLIT(202.5) Line Location: LOOP+17
Function Call: WRITE	Prompt: !,"NEGATIVE BALANCE .. ENTRY REMOVED",! Line Location: LOOP+19
Function Call: WRITE	Prompt: !!,"Potential duplicate"_$S(CNT>1:"s",1:"")_" found in the following batch"_$S(CNT>1:"es",1:"")_":" Line Location: DUPHDR+1
Function Call: WRITE	Prompt: ! Line Location: SHOLIST+3
Function Call: WRITE	Prompt: !! Line Location: SHOLIST+10
Routine Call	DIE Line Location: REFUND+6 RESEL+8 ITEMEOB+7 ITEMEOB+36 ITEMEOB+63 AMT+2 AMT+12 FILE+8 LOOP+13
Routine Call	DIC Line Location: LOOP+8 SELPAYOR+8 INSSUB+14
Routine Call	DIR Line Location: ITEMEOB+51 ASK+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARCOL(	CHECK+4, ITEMEOB+19, ITEMEOB+20, ITEMEOB+31, AMT+1, AMT+4, AMT+5, CHECKDUP+6, CHECKDUP+9
^DD(90051.1101	LOOP+7, INSSUB+8

Label References

Name	Line Occurrences
AMT	AMT+4
CACC	CC+3, GL+2, CASH+3
CASH	EDITEM+7
CC	EDITEM+8
CHECK	EDITEM+10
CHECKDUP	ITEMEOB+44
DELSUBS	INSSUB+2
DSPSUB	LOOP+8
DUPHDR	CHECKDUP+16
EOB	EDITEM+6
EOBEDIT	ITEMEOB+41, ASK+5
EOBSUB	AMT+15
GL	EDITEM+11
INSSUB	AMT+16
ITEMEOB	ITEMEOB+45
KILLSUB	LOOP+18, DELSUBS+9
LOOP	LOOP+21
REFUND	EDITEM+9
RESEL	RESEL+9
SAME	FILE+12
SHOLIST	CHECKDUP+17
SPAYOR	RESEL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACCOUNT	CHECKDUP+12*, CHECKDUP+14
AMOUNT	CHECKDUP+2~, CHECKDUP+13*, CHECKDUP+14
>> BARAC	RESEL+3*, RESEL+7, RESEL+9
BARBL	EDITEM+2!
>> BARCL(	ITEMEOB+13
>> BARCL(7	ASK+12*, FILE+4, FILE+6
>> BARCLDA	EDITEM+4, EDITEM+5, CHECK+4, RESEL+4, RESEL+6, ITEMEOB+2, ITEMEOB+4, ITEMEOB+17, ITEMEOB+19, ITEMEOB+20 , ITEMEOB+21, ITEMEOB+31, ITEMEOB+35, ITEMEOB+44, AMT+1, AMT+4, AMT+5, ASK+10, FILE+5, LOOP+3 , LOOP+5, INSSUB+4, CHECKDUP+7
>> BARCLID(12	CHECK+5, ITEMEOB+57
>> BARCLID(13	AMT+6
>> BARCLID(2	ITEMEOB+14
>> BARCLID(22	CHECK+4, ITEMEOB+18, ITEMEOB+32, ITEMEOB+38, AMT+4
>> BARCLIT(	LOOP+8, LOOP+16, LOOP+17, LOOP+21, LOOP+22
>> BARCLIT(101	LOOP+8
>> BARCLIT(2	ITEMEOB+11
>> BARCLIT(7	EOBEDIT+3, ITEMEOB+25
>> BARDIC	EDITEM+5, RESEL+4, ITEMEOB+2
>> BARITDA	EDITEM+3, EOB+2, EOB+6, RESEL+5, ITEMEOB+3, ITEMEOB+24, ITEMEOB+35, ITEMEOB+44, AMT+4, ASK+9 , LOOP+4, LOOP+5, INSSUB+5
>> BARITTYP	ITEMEOB+11*
>> BARLAST	EOB+2, EOB+6, FILE+6*
>> BARPAYOR	EOBEDIT+3, EOBEDIT+4, SELPAYOR+7
BARQUIT	EOBEDIT+1, RESEL+2, ITEMEOB+1!, ITEMEOB+40*, ITEMEOB+41, AMT+19!
>> BARSPAR(2	AMT+9, AMT+15
>> BARSPAR(3	REFUND+3
BART	INSSUB+9, INSSUB+10~, DELSUBS+2~, DELSUBS+5, DELSUBS+6*, DELSUBS+7
BART(	DELSUBS+6
BART(8	INSSUB+12
>> BARTDN	ITEMEOB+31*, ITEMEOB+38
>> BARX	EDITEM+6, EDITEM+7, EDITEM+8, EDITEM+9, EDITEM+10, EDITEM+11
CHECK	CHECKDUP+2~
CHECNUM	CHECKDUP+2~
CHK	CHECKDUP~, CHECKDUP+1, CHECKDUP+6, CHECKDUP+9
CNT	CHECKDUP+4, CHECKDUP+10, CHECKDUP+14, CHECKDUP+16, DUPHDR~, DUPHDR+1, SHOLIST+1~, SHOLIST+2, SHOLIST+4, SHOLIST+5 , SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
COLBAT	CHECKDUP+2~, CHECKDUP+5, CHECKDUP+6, CHECKDUP+7, CHECKDUP+9, CHECKDUP+11, CHECKDUP+12, CHECKDUP+13
COLNAM	CHECKDUP+2~, CHECKDUP+11*, CHECKDUP+14
>> D0	ITEMEOB+35*
>> D1	ITEMEOB+35*
DA	EDITEM+3, RESEL+5, ITEMEOB+3, ASK+7!, ASK+9, FILE+2!, FILE+5, LOOP+2!, LOOP+10, INSSUB+3! , DELSUBS+7*
DA(1	EDITEM+4, RESEL+6, ITEMEOB+4, ASK+10, LOOP+4, INSSUB+5
DA(2	LOOP+3, INSSUB+4
DIC	LOOP+2!, LOOP+5, LOOP+9, SELPAYOR+2!, SELPAYOR+3, INSSUB+3!, INSSUB+6*, INSSUB+9
DIC("A"	LOOP+8, SELPAYOR+5
DIC("B"	SELPAYOR+7*
DIC("DR"	INSSUB+13*
DIC("P"	LOOP+7, LOOP+14!, INSSUB+8
DIC("S"	SELPAYOR+6*
DIC(0	LOOP+6, LOOP+8, SELPAYOR+4, INSSUB+7
DIDEL	REFUND+5, REFUND+7!, ITEMEOB+6, ITEMEOB+8!, ITEMEOB+34, ITEMEOB+37!, ITEMEOB+62, ITEMEOB+64!, AMT+10, AMT+13! , FILE+7, FILE+9!, LOOP+12*, LOOP+14!
DIE	EDITEM+2!, EDITEM+5, RESEL+4, ITEMEOB+2, FILE+2!, FILE+3, LOOP+2!, LOOP+9, INSSUB+3!, KSUB+2 , DELSUBS+2~, DELSUBS+3
>> DIK	ASK+8, KSUB+2
DIR	ITEMEOB+46!, ASK+1!
DIR("A"	ITEMEOB+50*
DIR("B"	ITEMEOB+48, ASK+3
DIR(0	ITEMEOB+47, ASK+2
DOCARE	ITEMEOB+43~, ITEMEOB+45, ITEMEOB+52*, ITEMEOB+53!
DR	CHECK+2, CHECK+4, CHECK+5, CC+2, GL+2, REFUND+2, REFUND+3, REFUND+4, CASH+2, EOBEDIT+2! , RESEL+7, ITEMEOB+5, ITEMEOB+28, ITEMEOB+32, ITEMEOB+56, ITEMEOB+57, AMT, AMT+1, AMT+3!, AMT+6 , AMT+9, AMT+12, FILE+2!, FILE+4, LOOP+2!, LOOP+11*, INSSUB+3!
DUZ(2	CHECK+4, ITEMEOB+19, ITEMEOB+20, ITEMEOB+31, AMT+1, AMT+4, AMT+5, CHECKDUP+6, CHECKDUP+9
ITEM	CHECKDUP+2~, CHECKDUP+8, CHECKDUP+9, CHECKDUP+12, CHECKDUP+13, CHECKDUP+14
LIST	ITEMEOB+43~, ITEMEOB+44, ITEMEOB+45, ITEMEOB+53!, CHECKDUP~, CHECKDUP+3!, CHECKDUP+15, CHECKDUP+17, SHOLIST~
LIST(	CHECKDUP+14*, SHOLIST+4, SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
U	CHECK+4, ITEMEOB+19, ITEMEOB+20, ITEMEOB+31, AMT+1, AMT+4, AMT+5, LOOP+7, INSSUB+8, CHECKDUP+14 , SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
>> X	INSSUB+12*
>> Y	RESEL+2, RESEL+3, ITEMEOB+40, ITEMEOB+52, ASK+5, ASK+6, LOOP+8, LOOP+10

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARCLU0

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: