Routine: BAR50EB

Information

BAR50EB ; IHS/SD/TPF - AR ERA BALANCE CHECKER ; 01/28/2009

Source Information

Source file <BAR50EB.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Accounts Receivable	4	$$OVERIDE^BAR50EP1 ADDREAS^BAR50P04 $$BARXCHK^BAREDP09 $$IHSNEGB^BARUFUT
VA Fileman	2	H^%DTC $$GET1^DIQ

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
IHS Accounts Receivable	7	BAR50EP BAR50P04 BAR50P05 BAR50P08 BAREDP04 BAREDP05 BAREDP08

Entry Points

Name	Comments	DBIA/ICR reference
GETIT()
CHECKTOT(CHECKTOT)	;CHECK ERA CHECK TOTALS AGAINST BATCH/ITEM TOTAL
NEGBAL(IMPDA,TYPE)	;EP - CHECK FOR NEGATIVE BALANCE W/IN ERA AND IF POSTED AGAINST RPMS
GETITMTO(ERACHECK,ERATOTAL,ERRORS,BRP02)	;EP - GIVEN ERACHECK GET BATCH ITEM TOTALS FOR ERA CHECK ;BAR1.86 SCR119 IHS/SD/TPF
DONOTPR(IMPDA,CLMDA)	;CALLED FROM 3 DIFFERENT PLACES
GETIEN(BARX,BARBILL)	;EP - FIND AR BILL IEN
XGETIEN(BARX,BARBILL)	;NEW CODEEP - FIND AR BILL IEN 12/10/2013

External References

Name	Field # of Occurrence
H^%DTC	GETITMTO+16
$$OVERIDE^BAR50EP1	DONOTPR+2
ADDREAS^BAR50P04	NEGBAL+78, CHECKTOT+24
$$BARXCHK^BAREDP09	GETITMTO+4
$$IHSNEGB^BARUFUT	NEGBAL+76, GETITMTO+26
$$GET1^DIQ	NEGBAL+38, NEGBAL+53, NEGBAL+60, NEGBAL+61, NEGBAL+62, GETITMTO+14, GETITMTO+15, GETITMTO+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"CHECKING FOR NEGATIVE BALANCE IF MATCHED ERA CLAIMS ARE POSTED..." Line Location: NEGBAL+2
Function Call: WRITE	Prompt: !!,CLMCNT,?4,"ERA BILL: ",BARBILL Line Location: NEGBAL+30
Function Call: WRITE	Prompt: ?41,"CURRENT BILL AMT(RPMS): ",$J($FN(BARBAL,",",2),14) Line Location: NEGBAL+40
Function Call: WRITE	Prompt: !?3,"A/R CAT:",$E(BARCAT,1,11) Line Location: NEGBAL+63
Function Call: WRITE	Prompt: ?23,"A/R RSN:",$E(BARREAS,1,27) Line Location: NEGBAL+64
Function Call: WRITE	Prompt: ?60,"ADJ:",$J($FN(BARAMT,",",2),15) Line Location: NEGBAL+65
Function Call: WRITE	Prompt: !,?28,"BILL BALANCE IF ERA CLAIM IS POSTED: ",$J($FN(BARBAL-BARTOT,",",2),14) Line Location: NEGBAL+71
Function Call: WRITE	Prompt: ! Line Location: CHECKTOT+3
Function Call: WRITE	Prompt: !?2," Matched Bills: ",$J(+$G(BARCNT("MATCHED")),5)," for $",$J($FN(+$G(BARAMT("MATCHED")),",",2),12) Line Location: CHECKTOT+4
Function Call: WRITE	Prompt: !?2,"Unmatched Bills: ",$J(+$G(BARCNT("UNMATCHED")),5)," for $",$J($FN(+$G(BARAMT("UNMATCHED")),",",2),12) Line Location: CHECKTOT+5
Function Call: WRITE	Prompt: !?2," Total Bills: ",$J(+$G(BARTOT("CNT")),5)," for $",$J($FN(+$G(BARTOT("AMT")),",",2),12) Line Location: CHECKTOT+6
Function Call: WRITE	Prompt: ! Line Location: CHECKTOT+7
Function Call: WRITE	Prompt: !?2,"CHECKING ERA CHECK TOTALS FOR ",ERACHECK," TOTAL ",$J($FN(CHECKTOT(ERACHECK),",",2),15) Line Location: CHECKTOT+12
Function Call: WRITE	Prompt: !,"NO BATCH FOUND FOR ERA CHECK" Line Location: GETITMTO+9
Function Call: WRITE	Prompt: ! Line Location: GETITMTO+10
Function Call: WRITE	Prompt: !,BARMSG Line Location: GETITMTO+20
Function Call: WRITE	Prompt: !,?2,"CHECKING BATCH: ",BARCB Line Location: GETITMTO+22
Function Call: WRITE	Prompt: " POSTING BALANCE: ",BPOSTBAL Line Location: GETITMTO+24

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	GETIEN+3, GETIEN+4, XGETIEN+4, XGETIEN+6, XGETIEN+8, XGETIEN+10, GETIT+2
^BARCOL(	GETITMTO+5, GETITMTO+12
^BAREDI("I"	NEGBAL+12, NEGBAL+13, NEGBAL+21, NEGBAL+24, NEGBAL+25, NEGBAL+26, NEGBAL+27, NEGBAL+28, NEGBAL+34, NEGBAL+50 , NEGBAL+51, NEGBAL+56, NEGBAL+58, NEGBAL+59, NEGBAL+73, CHECKTOT+10, CHECKTOT+11, CHECKTOT+17, DONOTPR+3, DONOTPR+4 , DONOTPR+5
^XTMP("BAR-LIST"	NEGBAL+11!, NEGBAL+14*, NEGBAL+16

Name	Line Occurrences
$$DONOTPR	NEGBAL+43, CHECKTOT+18
$$GETIEN	NEGBAL+32
$$GETIT	XGETIEN+4, XGETIEN+6, XGETIEN+8, XGETIEN+10
CHECKTOT	NEGBAL+90
GETITMTO	CHECKTOT+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	GETITMTO+1~, GETITMTO+17
ADJDA	NEGBAL+3~, NEGBAL+57, NEGBAL+58, NEGBAL+59, NEGBAL+60, NEGBAL+61, NEGBAL+62
ALLADJ	NEGBAL+3~, NEGBAL+5, NEGBAL+69
ALLPAY	CHECKTOT+1~
BARADJ	NEGBAL+3~, NEGBAL+23, NEGBAL+42, NEGBAL+68*, NEGBAL+70
BARAMT	NEGBAL+8!, NEGBAL+51, NEGBAL+52, NEGBAL+53, NEGBAL+56, NEGBAL+59, NEGBAL+65, NEGBAL+68, NEGBAL+69
BARAMT("MATCHED"	NEGBAL+27*, CHECKTOT+4
BARAMT("UNMATCHED"	NEGBAL+28*, CHECKTOT+5
BARANS	NEGBAL+3~
>> BARBAL	NEGBAL+5, NEGBAL+38, NEGBAL+39*, NEGBAL+40, NEGBAL+71, NEGBAL+74
BARBIEN	GETIEN+2, GETIEN+4, GETIEN+6, GETIEN+9, GETIEN+10, GETIT~, GETIT+2, GETIT+4, GETIT+7*, GETIT+8
BARBILL	NEGBAL+3~, NEGBAL+7, NEGBAL+13, NEGBAL+14, NEGBAL+15, NEGBAL+16, NEGBAL+21, NEGBAL+30, NEGBAL+32, NEGBAL+53 , GETIEN~, GETIEN+3, GETIEN+4, XGETIEN~, XGETIEN+3, XGETIEN+5, XGETIEN+7, XGETIEN+9
>> BARBLIEN	NEGBAL+31, NEGBAL+32, NEGBAL+33, NEGBAL+36, NEGBAL+38
>> BARCAT	NEGBAL+60*, NEGBAL+63
>> BARCATN	NEGBAL+61*, NEGBAL+66, NEGBAL+67
BARCB	GETITMTO+13~, GETITMTO+14*, GETITMTO+22
BARCBDT	GETITMTO+13~, GETITMTO+17*, GETITMTO+18
>> BARCHK	NEGBAL+12
BARCNT	NEGBAL+8!, GETIEN+2, GETIEN+5, GETIEN+7, GETIEN+8, GETIT+1, GETIT+3, GETIT+5, GETIT+6
BARCNT("MATCHED"	NEGBAL+27*, CHECKTOT+4
BARCNT("UNMATCHED"	NEGBAL+28*, CHECKTOT+5
BARCOLDA	GETITMTO+1~, GETITMTO+5, GETITMTO+6, GETITMTO+7, GETITMTO+12, GETITMTO+14, GETITMTO+15, GETITMTO+23
>> BARDBG	NEGBAL+2, NEGBAL+30, NEGBAL+40, NEGBAL+53, NEGBAL+63, NEGBAL+64, NEGBAL+65, NEGBAL+71, CHECKTOT+12, GETITMTO+9 , GETITMTO+22, GETITMTO+24, GETITMTO+28
BARITMDA	GETITMTO+1~
BARPAY	NEGBAL+3~, NEGBAL+18, NEGBAL+23, NEGBAL+52*, NEGBAL+70
BARREAS	NEGBAL+4~, NEGBAL+62*, NEGBAL+64
BARRET	XGETIEN+1~, XGETIEN+2, XGETIEN+4, XGETIEN+6, XGETIEN+8, XGETIEN+10*, XGETIEN+11
>> BARSTAT	NEGBAL+25*, NEGBAL+27, NEGBAL+28, NEGBAL+29, NEGBAL+56, NEGBAL+73, NEGBAL+75
BARTMP	GETIEN+1~, XGETIEN+1~
BARTMP(	GETIEN+6, GETIT+4
BARTMP(""	GETIEN+9, GETIT+7
BARTODAY	GETITMTO+1~, GETITMTO+3*, GETITMTO+18
BARTOT	NEGBAL+3~, NEGBAL+5, NEGBAL+8!, NEGBAL+23, NEGBAL+70*, NEGBAL+71, NEGBAL+74
BARTOT("AMT"	NEGBAL+26*, CHECKTOT+6
BARTOT("CNT"	NEGBAL+26*, CHECKTOT+6
BARTYPE	NEGBAL+4~
BARX	GETIEN~, GETIEN+3, GETIEN+4, XGETIEN~, XGETIEN+3, XGETIEN+4, XGETIEN+5, XGETIEN+6, XGETIEN+7, XGETIEN+8 , XGETIEN+9*, XGETIEN+10, GETIT+2
BARXBILL	XGETIEN+1~, XGETIEN+3, XGETIEN+4, XGETIEN+5, XGETIEN+6, XGETIEN+7, XGETIEN+8, XGETIEN+9, XGETIEN+10, GETIT+2
BARXCHK	GETITMTO+1~, GETITMTO+4*, GETITMTO+5, GETITMTO+12
BILLCHOS	NEGBAL+4~, NEGBAL+20, NEGBAL+24, NEGBAL+31, NEGBAL+53
>> BPOSTBAL	GETITMTO+11, GETITMTO+23, GETITMTO+24, GETITMTO+25, GETITMTO+30
BPR02	CHECKTOT+2~, CHECKTOT+11*, CHECKTOT+14, GETITMTO+6
BRP02	GETITMTO~
CHECKTOT	NEGBAL+3~, NEGBAL+6!, NEGBAL+90, CHECKTOT~
CHECKTOT(	NEGBAL+56*, CHECKTOT+8, CHECKTOT+12, CHECKTOT+14
CLM	NEGBAL+4~
>> CLMCNT	NEGBAL+9, NEGBAL+17, NEGBAL+22*, NEGBAL+30
CLMDA	NEGBAL+4~, NEGBAL+10, NEGBAL+12, NEGBAL+13, NEGBAL+14, NEGBAL+20, NEGBAL+21, NEGBAL+24, NEGBAL+25, NEGBAL+26 , NEGBAL+27, NEGBAL+28, NEGBAL+34, NEGBAL+43, NEGBAL+50, NEGBAL+51, NEGBAL+56, NEGBAL+58, NEGBAL+59, NEGBAL+60 , NEGBAL+61, NEGBAL+62, NEGBAL+73, NEGBAL+78, CHECKTOT+1~, CHECKTOT+9, CHECKTOT+10, CHECKTOT+11, CHECKTOT+16, CHECKTOT+17 , CHECKTOT+18, CHECKTOT+24, DONOTPR~, DONOTPR+2, DONOTPR+3, DONOTPR+4, DONOTPR+5
CLSTATUS	CHECKTOT+1~, DONOTPR+1~, DONOTPR+4, DONOTPR+5, DONOTPR+6
DUZ(2	NEGBAL+11, NEGBAL+12, NEGBAL+13, NEGBAL+14, NEGBAL+16, NEGBAL+21, NEGBAL+24, NEGBAL+25, NEGBAL+26, NEGBAL+27 , NEGBAL+28, NEGBAL+34, NEGBAL+50, NEGBAL+51, NEGBAL+56, NEGBAL+58, NEGBAL+59, NEGBAL+73, NEGBAL+76, CHECKTOT+10 , CHECKTOT+11, CHECKTOT+17, GETIEN+3, GETIEN+4, XGETIEN+4, XGETIEN+6, XGETIEN+8, XGETIEN+10, GETIT+2, GETITMTO+5 , GETITMTO+12, GETITMTO+26, DONOTPR+3, DONOTPR+4, DONOTPR+5
ERACHECK	NEGBAL+4~, NEGBAL+50, NEGBAL+56, CHECKTOT+1~, CHECKTOT+8, CHECKTOT+10, CHECKTOT+12, CHECKTOT+14, CHECKTOT+17, GETITMTO~ , GETITMTO+4
ERATOTAL	GETITMTO~, GETITMTO+25, GETITMTO+29
ERRORS	NEGBAL+3~, NEGBAL+4~, NEGBAL+78, NEGBAL+88!, CHECKTOT+1~, CHECKTOT+14, CHECKTOT+15, CHECKTOT+24, CHECKTOT+25!, GETITMTO~
ERRORS("BL NF	" , NEGBAL+35*
ERRORS("DUPB"	NEGBAL+37*, NEGBAL+75
ERRORS("ERA >	ITM" , GETITMTO+27*
ERRORS("NB"	GETITMTO+8*
ERRORS("NEGR"	NEGBAL+77*
IMPDA	NEGBAL~, NEGBAL+12, NEGBAL+13, NEGBAL+21, NEGBAL+24, NEGBAL+25, NEGBAL+26, NEGBAL+27, NEGBAL+28, NEGBAL+34 , NEGBAL+43, NEGBAL+50, NEGBAL+51, NEGBAL+56, NEGBAL+58, NEGBAL+59, NEGBAL+60, NEGBAL+61, NEGBAL+62, NEGBAL+73 , NEGBAL+78, CHECKTOT+10, CHECKTOT+11, CHECKTOT+17, CHECKTOT+18, CHECKTOT+24, DONOTPR~, DONOTPR+3, DONOTPR+4, DONOTPR+5
ITEMTOT	GETITMTO+1~
TCLMDA	NEGBAL+4~
TYPE	NEGBAL~, NEGBAL+1
U	NEGBAL+13, NEGBAL+24, NEGBAL+25, NEGBAL+26, NEGBAL+27, NEGBAL+28, NEGBAL+50, NEGBAL+51, NEGBAL+59, CHECKTOT+11 , DONOTPR+3, DONOTPR+4, DONOTPR+5, DONOTPR+6
X	GETITMTO+13~, GETITMTO+15*

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50EB

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: