Routine: BAREDP09

Package	Total	Call Graph
VA Fileman	5	H^%DTC FILE^DICN ^DIE $$GET1^DIQ ^DIR
IHS Accounts Receivable	4	$$BARXCHK^BAREDP09 WHD^BARRHD EOP^BARUTL $$EN^BARVDF
IHS VA Utilities	2	ENP^XBDIQ1 ^XBFMK

Package	Total	Caller Graph
IHS Accounts Receivable	9	BAR50EB BAR50EP1 BAR50P09 BAREDBPR BAREDEB BAREDEP1 BAREDP00 BAREDP09 BAREDPA1

Entry Points

Name	Comments	DBIA/ICR reference
CHECK(IMPDA)	; EP
SETHDR	;
PREVIOUS	; ; This ERA chk previously matched to coll. batch
CONT	;
LISTCHK	; ; List possible batches for ERA chk so user can choose
MANY	;
UPD	;
UPDCHECK	; EP
NONE	; ; No coll. batch/item for this chk#
ERACHECK	;
HDB	;EP
ADD	;
EXIST	;
STORE	;
ASK	;
ONLYONE	; ; This ERA chk only matches 1 coll. batch/item
BARXCHK(X)	;
BATCHECK	;
DISPLAY	;
MATCH	; ; Loop chks & tell user matched status
BTCHDATA	;

External References

Name	Field # of Occurrence
H^%DTC	BATCHECK+3, BATCHECK+21
$$BARXCHK^BAREDP09	BATCHECK+7
WHD^BARRHD	HDB+4
EOP^BARUTL	CHECK+11, CHECK+25, BATCHECK+29, CONT+7
$$EN^BARVDF	CHECK+18, LISTCHK+2
FILE^DICN	ADD+6
^DIE	CHECK+10, UPD+8, STORE+9
$$GET1^DIQ	ERACHECK+9, BATCHECK+20, BATCHECK+28, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, MATCH+6, MATCH+7 , PREVIOUS+4, PREVIOUS+5, PREVIOUS+7, NONE+5, ONLYONE+8, ONLYONE+9, ONLYONE+12, MANY+16, DISPLAY+15, SETHDR+6
^DIR	ASK+9
ENP^XBDIQ1	SETHDR+4
^XBFMK	STORE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"I'm sorry, it seems ERA file ",IMPDA," does not contain " Line Location: CHECK+4
Function Call: WRITE	Prompt: !,"a Check/EFT Trace Number. The file cannot be posted." Line Location: CHECK+5
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: CHECK+18
Function Call: WRITE	Prompt: !!?1,"IMPORT FILE SUMMARY:" Line Location: CHECK+20
Function Call: WRITE	Prompt: !?7,"TOTAL SEGMENTS PROCESSED........:",$J($P($G(^BAREDI("I",DUZ(2),IMPDA,15,0)),U,3),12) Line Location: CHECK+21
Function Call: WRITE	Prompt: !?7,"TOTAL AMOUNT PROCESSED..........$",$J($FN((+$G(BARMAMT)+$G(BARNAMT)),",",2),12) Line Location: CHECK+22
Function Call: WRITE	Prompt: !!?1,"PLEASE REVIEW THE BPR 'NOT FOUND' REPORT AND CREATE A BATCH FOR THE BPR SEGMENT 'NOT FOUND'." Line Location: CHECK+23
Function Call: WRITE	Prompt: !!?1,"* - Indicates a PLB segment has been located.",!?5,"Collection item balance may not match check balance!" Line Location: CHECK+24
Function Call: WRITE	Prompt: !!,"A/R Collection batch found is older than 365 days. Checks will NOT be" Line Location: BATCHECK+25
Function Call: WRITE	Prompt: !,"matched in the ERA file AND will not be posted to the Collection Batch" Line Location: BATCHECK+26
Function Call: WRITE	Prompt: !," CHK:",BARXCHK," BATCH: ",BARBATCH," BATCH DATE: ",BARCBDT Line Location: BATCHECK+27
Function Call: WRITE	Prompt: !," CHK:",BARXCHK," BATCH: ",$$GET1^DIQ(90051.01,BARBATCH,.01)," BATCH DATE: ",$P($$GET1^DIQ(90051.01,BARBATCH_",",4,"I"),"@",1) Line Location: BATCHECK+28
Function Call: WRITE	Prompt: !!,"#"_BARCHECK_" BPR02: ",$FN($$GET1^DIQ(90056.02011,IENS,.03),",",2) Line Location: MATCH+6
Function Call: WRITE	Prompt: !?4,"TRN02: ",$$GET1^DIQ(90056.02011,IENS,.01) Line Location: MATCH+7
Function Call: WRITE	Prompt: ?40,"Matching... " Line Location: MATCH+8
Function Call: WRITE	Prompt: " Previously matched" Line Location: PREVIOUS+2
Function Call: WRITE	Prompt: !,"Matched to batch ",$P(BARCHK(BARCHECK,BAREBTCH,BAREITM),U),?50," ITEM: ",BAREITM Line Location: PREVIOUS+3
Function Call: WRITE	Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.01,BAREBTCH_",",28) Line Location: PREVIOUS+4
Function Call: WRITE	Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.1101,BAREITM_","_BAREBTCH_",",20) Line Location: PREVIOUS+5
Function Call: WRITE	Prompt: "not done!" Line Location: NONE+2
Function Call: WRITE	Prompt: !,"Match to: COLLECTION BATCH/ITEM NOT FOUND. PLACING ON NOT FOUND REPORT!" Line Location: NONE+3
Function Call: WRITE	Prompt: "done!" Line Location: ONLYONE+5
Function Call: WRITE	Prompt: !,"Match to: ",$P(BARCHK(BARCHECK,BARBATCH,BARITEM),U),?50," ITEM: ",BARITEM Line Location: ONLYONE+6
Function Call: WRITE	Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.01,BARBATCH_",",28) Line Location: ONLYONE+8
Function Call: WRITE	Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.1101,BARITEM_","_BARBATCH_",",20) Line Location: ONLYONE+9
Function Call: WRITE	Prompt: !!,"Chk/EFT # ",BARCHECK," matches more than one collection batch and item." Line Location: MANY+2
Function Call: WRITE	Prompt: !,"Please select one:" Line Location: MANY+3
Function Call: WRITE	Prompt: !!,"A collection batch/item has NOT been selected for this ERA Chk/EFT #" Line Location: MANY+7
Function Call: WRITE	Prompt: !!,"Updating A/R EDI CHECKS file with Collection Batch Data..." Line Location: MANY+12
Function Call: WRITE	Prompt: " ... Done!" Line Location: MANY+14
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("ULN"),"LINE",?11,"BATCH",?35,"ITEM",?42,"A/R ACCOUNT",?57,"$ BATCHED",?70,"BALANCE",$$EN^BARVDF("ULF") Line Location: LISTCHK+2
Function Call: WRITE	Prompt: !,$J(BARCNT,3) Line Location: LISTCHK+9
Function Call: WRITE	Prompt: ?5,$E($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U),1,31) Line Location: LISTCHK+10
Function Call: WRITE	Prompt: ?36,$J(BARITEM,3) Line Location: LISTCHK+11
Function Call: WRITE	Prompt: ?40,$E($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U,2),1,15) Line Location: LISTCHK+12
Function Call: WRITE	Prompt: ?56,$J($FN($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U,3),",",2),10) Line Location: LISTCHK+13
Function Call: WRITE	Prompt: ?67,$J($FN($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U,4),",",2),10) Line Location: LISTCHK+14
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: !! Line Location: CONT+1
Function Call: WRITE	Prompt: !?2,BARMCNT_" "_$S(+$G(BARMCNT)=1:"ENTRY HAS ",1:"ENTRIES HAVE ")_"BEEN MATCHED.....................$",?50,$J($FN(BARMAMT,",",2),12) Line Location: CONT+3
Function Call: WRITE	Prompt: !?2,BARNCNT_" "_$S(+$G(BARNCNT)=1:"ENTRY HAS ",1:"ENTRIES HAVE ")_"NOT BEEN MATCHED.................$",?50,$J($FN(BARNAMT,",",2),12) Line Location: CONT+5
Function Call: WRITE	Prompt: !,?40,"TOTAL.....$",$J($FN((+$G(BARMAMT)+$G(BARNAMT)),",",2),12) Line Location: CONT+6
Function Call: WRITE	Prompt: !?1,$E(BARST,($L(BARST)-3),$L(BARST)) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: "*" Line Location: DISPLAY+10
Function Call: WRITE	Prompt: ?10,$J($FN($P(BARREC,U,3),",",2),12),?24,$P(BARREC,U) Line Location: DISPLAY+11
Function Call: WRITE	Prompt: ?47,"NOT FOUND" Line Location: DISPLAY+12
Function Call: WRITE	Prompt: ?47,$$GET1^DIQ(90056.02011,IENS,.07)_" "_$P(BARREC,U,8) Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !,BARDASH,! Line Location: HDB+6
Routine Call	DIE Line Location: CHECK+10 UPD+8 STORE+9
Routine Call	DIR Line Location: ASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^BARCOL(2906 - [#90051.01]	GET1^DIQ
90051.1101	GET1^DIQ
90056.02011	GET1^DIQ
^BARECHK - [#90056.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARCOL(	BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+31, BARXCHK+1, BARXCHK+2
^BARECHK - [#90056.22]	EXIST+6, EXIST+10, EXIST+11, UPDCHECK+10
^BARECHK("B"	EXIST+2, EXIST+5, UPDCHECK+3, UPDCHECK+9
^BAREDI("I"	CHECK+21, ERACHECK+5, MATCH+12, DISPLAY+6, DISPLAY+7

Label References

Name	Line Occurrences
ADD	UPDCHECK+4, UPDCHECK+12
ASK	MANY+5
BATCHECK	CHECK+12
BTCHDATA	BATCHECK+13, BATCHECK+33
CONT	CHECK+14
DISPLAY	CHECK+19
ERACHECK	CHECK+2
EXIST	ERACHECK+11
HDB	DISPLAY+4
LISTCHK	MANY+4
MANY	MATCH+15
MATCH	CHECK+13
NONE	MATCH+13
ONLYONE	MATCH+14
PREVIOUS	MATCH+12
SETHDR	DISPLAY+3
STORE	CHECK+17
UPD	UPDCHECK+6, UPDCHECK+14
UPDCHECK	NONE+7, ONLYONE+10, MANY+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	BATCHECK+2~, BATCHECK+4, BATCHECK+22
>> BAR("COL"	HDB+1*, HDB+5
>> BAR("HD"	SETHDR+5, SETHDR+6, SETHDR+7*
>> BAR("LVL"	HDB+3*
>> BAR("PG"	DISPLAY+1, HDB+2, HDB+3
BARAIEN	SETHDR+2!
>> BARANS	MANY+6, MANY+8, MANY+9, ASK+3, ASK+10
BARBATCH	ERACHECK+2~, EXIST+10, EXIST+12, EXIST+13, BATCHECK+2~, BATCHECK+9, BATCHECK+18, BATCHECK+20, BATCHECK+28, BATCHECK+31 , BTCHDATA+3, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+2~, NONE+6, ONLYONE+2* , ONLYONE+3, ONLYONE+6, ONLYONE+7, ONLYONE+8, ONLYONE+9, MANY+8, MANY+10, LISTCHK+4, LISTCHK+5*, LISTCHK+7 , LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14, LISTCHK+15, UPD+6
BARCBDT	BATCHECK+19~, BATCHECK+22*, BATCHECK+23
BARCHECK	ERACHECK+2~, BATCHECK+2~, BATCHECK+5, BATCHECK+6, BATCHECK+8, BATCHECK+9, BATCHECK+10, BATCHECK+12, BATCHECK+16, BATCHECK+24 , BATCHECK+34, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+2~, MATCH+3, MATCH+4* , MATCH+5, MATCH+6, MATCH+10, MATCH+11, MATCH+12, MATCH+13, MATCH+14, PREVIOUS+3, ONLYONE+2, ONLYONE+3 , ONLYONE+4, ONLYONE+6, ONLYONE+7, MANY+2, MANY+10, MANY+11, LISTCHK+5, LISTCHK+7, LISTCHK+10, LISTCHK+12 , LISTCHK+13, LISTCHK+14
BARCHK	CHECK+1~
BARCHK(	ERACHECK+9, ERACHECK+10, EXIST+8, EXIST+13, EXIST+14, BATCHECK+5, BATCHECK+6, BATCHECK+8, BATCHECK+9, BATCHECK+10 , BATCHECK+12, BATCHECK+16, BATCHECK+24, BATCHECK+34, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9! , MATCH+4, MATCH+10, MATCH+11, MATCH+13, MATCH+14, PREVIOUS+3, ONLYONE+2, ONLYONE+3, ONLYONE+4, ONLYONE+6 , ONLYONE+7, MANY+10, MANY+11, LISTCHK+5, LISTCHK+7, LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14, STORE+2 , STORE+3, STORE+8
>> BARCHKN	BATCHECK+6, BATCHECK+7, ONLYONE+4, MANY+11*, UPDCHECK+3, UPDCHECK+9, ADD+5
>> BARCKIEN	CHECK+27, EXIST+4, EXIST+5, EXIST+6, EXIST+8, EXIST+10, EXIST+11, UPDCHECK+5, UPDCHECK+8, UPDCHECK+9 , UPDCHECK+10, UPDCHECK+13, ADD+8, ADD+9, UPD+4
BARCNT	CHECK+1~, CHECK+3, ERACHECK+3, ERACHECK+7, BTCHDATA+9, LISTCHK+4, LISTCHK+8*, LISTCHK+9, LISTCHK+15, ASK+5 , ASK+7
BARCNT2	CHECK+1~, BATCHECK+11, BATCHECK+12, BATCHECK+14, BATCHECK+15, BATCHECK+32*, BATCHECK+34, BATCHECK+35
>> BARDASH	DISPLAY+2*, HDB+6
BAREBTCH	MATCH+2~, MATCH+10*, PREVIOUS+3, PREVIOUS+4, PREVIOUS+5
BAREITM	MATCH+2~, MATCH+11*, PREVIOUS+3, PREVIOUS+5
>> BARI	ERACHECK+9, EXIST+2, EXIST+5, STORE+1, STORE+2, STORE+3, STORE+6, STORE+8, DISPLAY+5, DISPLAY+6* , DISPLAY+7, DISPLAY+14
BARIENS	BTCHDATA+2!, BTCHDATA+3*, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8
BARIIEN	SETHDR+2!
BARITEM	ERACHECK+2~, EXIST+11, EXIST+12, EXIST+14, BATCHECK+10, BATCHECK+30, BATCHECK+31, BTCHDATA+3, BTCHDATA+4, BTCHDATA+5 , BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+2~, NONE+6, ONLYONE+3, ONLYONE+6, ONLYONE+7, ONLYONE+9 , MANY+9, MANY+10, LISTCHK+6, LISTCHK+7*, LISTCHK+10, LISTCHK+11, LISTCHK+12, LISTCHK+13, LISTCHK+14, LISTCHK+15 , UPD+7
>> BARMAMT	CHECK+22, PREVIOUS+7, ONLYONE+12, MANY+16*, CONT+3, CONT+6
>> BARMCNT	PREVIOUS+6, ONLYONE+11, MANY+15*, CONT+2, CONT+3
>> BARMTCH	EXIST+3, EXIST+5, EXIST+7, EXIST+9, UPDCHECK+7, UPDCHECK+9, UPDCHECK+11, UPDCHECK+12
>> BARNAMT	CHECK+22, CHECK+23, NONE+5*, CONT+5, CONT+6
>> BARNCNT	NONE+4*, CONT+4, CONT+5
BARPC	SETHDR+2!
BARPCIEN	SETHDR+2!
>> BARPLB	CHECK+24, DISPLAY+10*
>> BARREC	DISPLAY+7*, DISPLAY+8, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15
>> BARST	DISPLAY+8*, DISPLAY+9
BARTMP	CHECK+1~, BATCHECK+14, BATCHECK+16, BATCHECK+24, BATCHECK+35, LISTCHK+3!
BARTMP(	MANY+8, MANY+9, LISTCHK+15*
BARTODAY	BATCHECK+2~, BATCHECK+4*, BATCHECK+23
BARXCHK	BATCHECK+2~, BATCHECK+7*, BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+28, BATCHECK+31
BATITEM	BATCHECK+2~
DA	CHECK+6!, CHECK+7, ADD+2!, UPD+2!, UPD+4, STORE+6*
DA(1	STORE+5*, STORE+7
DD	ADD+6!
DIC	CHECK+6!, ADD+2!, ADD+3*, UPD+2!
DIC(0	ADD+4*
DIE	CHECK+6!, CHECK+8, UPD+2!, UPD+3, STORE+7*
DIR	ASK+4!
DIR("?"	ASK+7*
DIR("??"	ASK+8*
DIR("A"	ASK+6*
DIR(0	ASK+5*
DO	ADD+6!
DR	CHECK+6!, CHECK+9, ADD+2!, UPD+2!, UPD+5, UPD+6, UPD+7, STORE+8*
DT	BATCHECK+3
DUZ(2	CHECK+21, ERACHECK+5, BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+31, MATCH+12, STORE+7, DISPLAY+6, DISPLAY+7 , SETHDR+6, BARXCHK+1, BARXCHK+2
>> I	ERACHECK+4, ERACHECK+5, ERACHECK+8, ERACHECK+9, ERACHECK+10, EXIST+8, EXIST+13, EXIST+14
>> IENS	ERACHECK+8, ERACHECK+9, MATCH+5, MATCH+6, MATCH+7, PREVIOUS+7, NONE+5, ONLYONE+12, MANY+16, DISPLAY+14* , DISPLAY+15
IMP	SETHDR+3!
IMP(	SETHDR+7
IMPDA	CHECK~, CHECK+4, CHECK+7, CHECK+21, ERACHECK+5, ERACHECK+8, EXIST+6, MATCH+5, MATCH+12, UPDCHECK+10 , STORE+5, DISPLAY+6, DISPLAY+7, DISPLAY+14, SETHDR+4
U	CHECK+21, ERACHECK+9, ERACHECK+10, EXIST+6, EXIST+8, EXIST+10, EXIST+11, EXIST+13, EXIST+14, BATCHECK+6 , BATCHECK+8, BATCHECK+9, BATCHECK+10, BATCHECK+12, BATCHECK+16, BATCHECK+24, BATCHECK+34, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6 , BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+10, MATCH+11, MATCH+12, MATCH+13, MATCH+14, PREVIOUS+3, ONLYONE+4 , ONLYONE+6, ONLYONE+7, MANY+8, MANY+9, MANY+10, MANY+11, LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14 , LISTCHK+15, UPDCHECK+10, STORE+3, STORE+8, DISPLAY+8, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15
X	BATCHECK+3, BATCHECK+19~, BATCHECK+20, ADD+5*, UPD+2!, BARXCHK~, BARXCHK+1, BARXCHK+2, BARXCHK+3
Y	CHECK+15, ASK+10, ADD+7, ADD+9, UPD+2!

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREDP09

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: