Routine: BAR50EP

Package	Total	Call Graph
IHS Accounts Receivable	4	$$GETIEN^BAR50EB $$OVERIDE^BAR50EP1 ADDREAS^BAR50P04 $$IHSNEGB^BARUFUT
VA Fileman	2	^DIE $$GET1^DIQ
IHS VA Utilities	1	$$DIC^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
ISREV(CLMDA,IMPDA)	;P.OTT 1/10/2014 HEAT148388 BAR 1.8*24
SETMATCH(MATCH)	;EP - SET TO MATCHING AND SET TRANSACTION TYPE
REGERRS(MATCHES,NOMATCH,PAYMENTS,WHERE)	; EP
INRPMS(IMPDA,REVDA,MATCHES,NOMATCH)	;EP - LOOK FOR MATCHING PAYMENT IN A/R BILL
INBILL(IMPDA,REVDA,MATCHES,NOMATCH)	;EP - SEARCH FOR MATCHES WITHIN BILL
MCRERRS(MATCHES,NOMATCH,PAYMENTS,WHERE)	;EP - MCR ERRORS
REVCHECK(IMPDA,REVDA)	;EP - REVERSAL AND PAYMENT CHECKS
REVLOOP(IMPDA)	;EP - REVERSAL LOOP
INERA(IMPDA,REVDA,MATCHES,NOMATCH)	;EP - FIND PAYMENTS AND REVERSAL W/IN ERA FILE

External References

Name	Field # of Occurrence
$$GETIEN^BAR50EB	INRPMS+14
$$OVERIDE^BAR50EP1	REVLOOP+7
ADDREAS^BAR50P04	REVCHECK+18, INRPMS+19, INRPMS+23, INRPMS+47, MCRERRS+6, MCRERRS+10, MCRERRS+13, MCRERRS+17, MCRERRS+20, REGERRS+6 , REGERRS+10, REGERRS+13, REGERRS+17, REGERRS+20
$$IHSNEGB^BARUFUT	REVLOOP+15
^DIE	INRPMS+64, SETMATCH+32
$$GET1^DIQ	REVLOOP+12, INBILL+3, INBILL+4, INBILL+5, INBILL+7, INBILL+18, INBILL+24, INBILL+26, INBILL+28, INERA+3 , INERA+4, INERA+5, INERA+6, INERA+7, INERA+16, INERA+21, INERA+25, INERA+29, INERA+32, INERA+33 , INRPMS+5, INRPMS+6, INRPMS+7, INRPMS+8, INRPMS+30, INRPMS+32, INRPMS+33, INRPMS+35, INRPMS+36, INRPMS+41 , INRPMS+42, INRPMS+43, INRPMS+51, SETMATCH+12, SETMATCH+13, SETMATCH+14, SETMATCH+15, ISREV+1
$$DIC^XBDIQ1	INRPMS+54, SETMATCH+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"BEGIN REVERSAL/PAYMENT MATCHING PROCESS" Line Location: REVLOOP+3
Function Call: WRITE	Prompt: !,"SHOULD WE CHECK FOR A MATCHING PAYMENT? ",$$GET1^DIQ(90056.0205,CLMDA_","_IMPDA_",",.01) Line Location: REVLOOP+12
Function Call: WRITE	Prompt: !,"ONLY IF E-PAYMENT IS < 0 ",$P($G(^BAREDI("I",DUZ(2),IMPDA,30,CLMDA,0)),U,4) Line Location: REVLOOP+13
Function Call: WRITE	Prompt: !!,"LOOKING FOR MATCHING PAYMENT FOR REVERSAL ",$P($G(^BAREDI("I",DUZ(2),IMPDA,30,REVDA,0)),U) Line Location: REVCHECK+1
Function Call: WRITE	Prompt: !!,"MATCHING PAYMENT NOT FOUND FOR REVERSAL!" Line Location: REVCHECK+16
Function Call: WRITE	Prompt: !!,"LOOKING FOR MATCHING PAYMENT FOR ",-REVAMT," WITHIN BILL ",REVBILL Line Location: INBILL+9
Function Call: WRITE	Prompt: !!,"LOOKING FOR MATCHING PAYMENT FOR ",-REVAMT," IN ERA FILE ",ERAFILE Line Location: INERA+9
Function Call: WRITE	Prompt: !?15,"SEARCHING FOR PAYMENT TO MATCH REV OF ",REVAMT Line Location: INERA+28
Function Call: WRITE	Prompt: !?20,"REV BILL ",REVBILL,!?20,"CL BILL ",CLBILL Line Location: INERA+31
Function Call: WRITE	Prompt: !!,"LOOKING FOR MATCHING PAYMENT IN RPMS" Line Location: INRPMS+4
Function Call: WRITE	Prompt: !!,"PAYMENT REVERSAL: ",$$GET1^DIQ(90056.0205,CLIENS,.01,"E") Line Location: SETMATCH+12
Function Call: WRITE	Prompt: !,"MATCHED TO REVERSAL: ",$$GET1^DIQ(90056.0205,REVIENS,.01,"E") Line Location: SETMATCH+13
Function Call: WRITE	Prompt: !,"PAYMENT CREDIT APPLIED FROM: ",BARFROM Line Location: SETMATCH+17
Function Call: WRITE	Prompt: !,"PAYMENT CREDIT APPLIED TO: ",BARTO Line Location: SETMATCH+18
Routine Call	DIE Line Location: INRPMS+64 SETMATCH+32

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BARCOL(2906 - [#90051.01]	GET1^DIQ
90051.1101	GET1^DIQ
^BAREDI("I",7819,0) - [#90056.02]	GET1^DIQ
90056.0205	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARCOL(	INRPMS+38
^BAREDI("I"	REVLOOP+4, REVLOOP+5, REVLOOP+13, REVLOOP+15, REVCHECK+1, REVCHECK+2, REVCHECK+3, REVCHECK+4, REVCHECK+5, INBILL+12 , INBILL+14, INBILL+19, INERA+13, INERA+15, INERA+20, INERA+22, INRPMS+11, INRPMS+12, INRPMS+16, INRPMS+17 , INRPMS+66, INRPMS+67, SETMATCH+10, SETMATCH+11
^BARTR(	INRPMS+29

Label References

Name	Line Occurrences
$$ISREV	REVLOOP+9, INBILL+21
INBILL	REVCHECK+8
INERA	REVCHECK+11
INRPMS	REVCHECK+14
MCRERRS	INBILL+39, INERA+47
REGERRS	INBILL+40, INERA+48
REVCHECK	REVLOOP+15
SETMATCH	MCRERRS+2, REGERRS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARBILL	INRPMS+11, INRPMS+14, INRPMS+16
BARBLIEN	INRPMS+1~, INRPMS+13, INRPMS+14, INRPMS+15, INRPMS+21, INRPMS+25, INRPMS+29, INRPMS+52
>> BARDBG	REVLOOP+3, REVLOOP+12, REVLOOP+13, REVCHECK+1, REVCHECK+2, REVCHECK+3, REVCHECK+4, REVCHECK+5, REVCHECK+16, INBILL+9 , INERA+9, INERA+28, INERA+31, INRPMS+4, SETMATCH+12, SETMATCH+13, SETMATCH+17, SETMATCH+18
BARFROM	INRPMS+2~, INRPMS+51, INRPMS+53, SETMATCH+1~, SETMATCH+14, SETMATCH+16, SETMATCH+17
BARTO	INRPMS+2~, INRPMS+52, SETMATCH+1~, SETMATCH+15, SETMATCH+16, SETMATCH+18
BARTYPE	INRPMS+2~, INRPMS+55*
>> BILLCHOS	INRPMS+10, INRPMS+11, INRPMS+12, INRPMS+13
CLBILL	INBILL+1~, INERA+1~, INERA+29*, INERA+30, INERA+31
CLCHECK	INBILL+1~, INERA+1~, INERA+16*, INERA+17
CLIENS	INBILL+1~, INBILL+16, INBILL+18, INBILL+24, INBILL+26, INBILL+28, INERA+1~, INERA+19, INERA+21, INERA+25 , INERA+29, INERA+32, INERA+33, SETMATCH+1~, SETMATCH+8*, SETMATCH+12, SETMATCH+15
CLMDA	REVLOOP+1~, REVLOOP+2, REVLOOP+4, REVLOOP+5, REVLOOP+7, REVLOOP+9, REVLOOP+12, REVLOOP+13, REVLOOP+15, INBILL+2~ , INBILL+11, INBILL+12, INBILL+14, INBILL+15, INBILL+16, INBILL+19, INBILL+21, INBILL+32, INBILL+33, INBILL+36 , INBILL+37, INERA+2~, INERA+12, INERA+13, INERA+15, INERA+16, INERA+18, INERA+19, INERA+20, INERA+22 , INERA+39, INERA+40, INERA+44, INERA+45, INRPMS+3~, INRPMS+10, INRPMS+11, INRPMS+12, INRPMS+16, INRPMS+17 , MCRERRS+1~, MCRERRS+11, MCRERRS+12, MCRERRS+13, MCRERRS+18, MCRERRS+19, MCRERRS+20, REGERRS+1~, REGERRS+11, REGERRS+12* , REGERRS+13, REGERRS+18, REGERRS+19, REGERRS+20, SETMATCH+1~, SETMATCH+4*, SETMATCH+5, SETMATCH+6, SETMATCH+8, SETMATCH+10 , SETMATCH+20, ISREV~, ISREV+1
CLMICN	INBILL+1~, INBILL+26, INERA+1~, INERA+32, INERA+37
CLPAYMNT	INBILL+1~, INBILL+28, INBILL+30, INBILL+34, INERA+1~, INERA+33, INERA+42
CLSTATUS	INBILL+1~, INBILL+18, INBILL+19, INBILL+22, INERA+1~, INERA+21, INERA+22, INERA+23, INERA+24
CNT	INBILL+1~, INBILL+12, INBILL+13, INERA+1~, INERA+13, INERA+14, SETMATCH+1~, SETMATCH+19, SETMATCH+21, SETMATCH+24 , SETMATCH+29
COLDA	INRPMS+1~, INRPMS+35*, INRPMS+38, INRPMS+42, INRPMS+43
DA	INRPMS+50!, INRPMS+63, INRPMS+66, INRPMS+67, SETMATCH+19!, SETMATCH+20
DA(1	INRPMS+62, INRPMS+66, INRPMS+67, SETMATCH+31
DIC	INRPMS+50!, INRPMS+68!, SETMATCH+22!, SETMATCH+33!
DIE	INRPMS+50!, INRPMS+54, INRPMS+68!, SETMATCH+22!, SETMATCH+23, SETMATCH+33!
DIR	INRPMS+50!, INRPMS+68!, SETMATCH+22!, SETMATCH+33!
DR	INRPMS+50!, INRPMS+57, INRPMS+58, INRPMS+59, INRPMS+60, INRPMS+61, INRPMS+68!, SETMATCH+22!, SETMATCH+27, SETMATCH+28* , SETMATCH+29, SETMATCH+30, SETMATCH+33!
DUZ(2	REVLOOP+4, REVLOOP+5, REVLOOP+13, REVLOOP+15, REVCHECK+1, REVCHECK+2, REVCHECK+3, REVCHECK+4, REVCHECK+5, INBILL+12 , INBILL+14, INBILL+19, INERA+13, INERA+15, INERA+20, INERA+22, INRPMS+11, INRPMS+12, INRPMS+16, INRPMS+17 , INRPMS+29, INRPMS+38, INRPMS+66, INRPMS+67, SETMATCH+10, SETMATCH+11
ERACHECK	INRPMS+1~
>> ERAFILE	INERA+7*, INERA+9
ERRORS	REVLOOP+1~, REVCHECK+18, REVCHECK+19!, INBILL+41!, INERA+49!, INRPMS+19, INRPMS+20!, INRPMS+23, INRPMS+24!, INRPMS+47 , INRPMS+48!, INRPMS+69!, MCRERRS+1~, MCRERRS+6, MCRERRS+10, MCRERRS+13, MCRERRS+17, MCRERRS+20, MCRERRS+21!, REGERRS+1~ , REGERRS+6, REGERRS+10, REGERRS+13, REGERRS+17, REGERRS+20, REGERRS+21!
ERRORS("BL NF	" , INRPMS+18*
ERRORS("DUPB"	INRPMS+22*
ERRORS("MP MC	R B" , MCRERRS+8, R E" , MCRERRS+9
ERRORS("MPB"	REGERRS+8*
ERRORS("MPE"	REGERRS+9*
ERRORS("NM MC	R B" , MCRERRS+15, R E" , MCRERRS+16
ERRORS("PR NM	B" , REGERRS+15, E" , REGERRS+16, R" , INRPMS+46*
ERRORS("PT NF	B" , MCRERRS+4, REGERRS+4, E" , REVCHECK+17, MCRERRS+5, REGERRS+5*
FOUND	INRPMS+1~, INRPMS+26, INRPMS+29, INRPMS+40, INRPMS+45
IMPDA	REVLOOP~, REVLOOP+4, REVLOOP+5, REVLOOP+9, REVLOOP+12, REVLOOP+13, REVLOOP+15, REVCHECK~, REVCHECK+1, REVCHECK+2 , REVCHECK+3, REVCHECK+4, REVCHECK+5, REVCHECK+8, REVCHECK+11, REVCHECK+14, REVCHECK+18, INBILL~, INBILL+3, INBILL+4 , INBILL+5, INBILL+7, INBILL+12, INBILL+14, INBILL+16, INBILL+19, INBILL+21, INBILL+32, INBILL+33, INBILL+36 , INBILL+37, INERA~, INERA+3, INERA+4, INERA+5, INERA+6, INERA+7, INERA+13, INERA+15, INERA+16 , INERA+19, INERA+20, INERA+22, INERA+39, INERA+40, INERA+44, INERA+45, INRPMS~, INRPMS+5, INRPMS+6 , INRPMS+7, INRPMS+8, INRPMS+11, INRPMS+12, INRPMS+16, INRPMS+17, INRPMS+19, INRPMS+23, INRPMS+47, INRPMS+51 , INRPMS+62, MCRERRS+6, MCRERRS+10, MCRERRS+12, MCRERRS+13, MCRERRS+17, MCRERRS+19, MCRERRS+20, REGERRS+6, REGERRS+10 , REGERRS+12, REGERRS+13, REGERRS+17, REGERRS+19, REGERRS+20, SETMATCH+1~, SETMATCH+2*, SETMATCH+3, SETMATCH+4, SETMATCH+6 , SETMATCH+8, SETMATCH+9, SETMATCH+10, SETMATCH+11, SETMATCH+31, ISREV~, ISREV+1
ITEMDA	INRPMS+1~, INRPMS+36*, INRPMS+38, INRPMS+43
MATCH	SETMATCH~
MATCH(	SETMATCH+4, SETMATCH+6
MATCH(""	SETMATCH+2
MATCHES	REVLOOP+1~, REVCHECK+7, REVCHECK+8, REVCHECK+9, REVCHECK+10, REVCHECK+11, REVCHECK+12, REVCHECK+13, REVCHECK+14, REVCHECK+15 , INBILL~, INBILL+31, INBILL+35, INBILL+38, INBILL+39, INBILL+40, INERA~, INERA+13, INERA+38, INERA+43* , INERA+46, INERA+48, INRPMS~, MCRERRS~, MCRERRS+2, MCRERRS+7, REGERRS~, REGERRS+2, REGERRS+7
MATCHES(	INBILL+32, INBILL+36, INERA+39, INERA+44, MCRERRS+12, REGERRS+12
>> MCRMATCH	INERA+47
>> MCRNOMAT	INERA+47
NOMATCH	REVCHECK+7, REVCHECK+8, REVCHECK+10, REVCHECK+11, REVCHECK+13, REVCHECK+14, INBILL~, INBILL+33, INBILL+37, INBILL+39 , INBILL+40, INERA~, INERA+11, INERA+40, INERA+45, INERA+48, INRPMS~, MCRERRS~, MCRERRS+14, REGERRS~ , REGERRS+14
NOMATCH(	INBILL+33, INBILL+37, INERA+40, INERA+45, MCRERRS+19, REGERRS+19
PAYMENTS	INBILL+1~, INBILL+10, INBILL+27, INBILL+38, INBILL+39, INBILL+40, INERA+1~, INERA+10, INERA+27, INERA+46 , INERA+47, INERA+48, MCRERRS~, MCRERRS+3, REGERRS~, REGERRS+3
>> POSTAS	INBILL+24, INBILL+25, INERA+25, INERA+26, INRPMS+8*, INRPMS+9
REVAMT	INBILL+5, INBILL+9, INBILL+30, INBILL+34, INERA+5, INERA+9, INERA+28, INERA+42, INRPMS+1~, INRPMS+5* , INRPMS+33, INRPMS+34
REVBILL	INBILL+4, INBILL+9, INBILL+12, INERA+4, INERA+30, INERA+31, INRPMS+1~, INRPMS+6*
>> REVCHECK	INBILL+3, INERA+3, INERA+17, INRPMS+7*, INRPMS+38
REVDA	REVCHECK~, REVCHECK+1, REVCHECK+2, REVCHECK+3, REVCHECK+4, REVCHECK+5, REVCHECK+8, REVCHECK+11, REVCHECK+14, REVCHECK+18 , INBILL~, INBILL+3, INBILL+4, INBILL+5, INBILL+7, INBILL+15, INBILL+32, INBILL+33, INBILL+36, INBILL+37 , INERA~, INERA+3, INERA+4, INERA+5, INERA+6, INERA+18, INERA+39, INERA+40, INERA+44, INERA+45 , INRPMS~, INRPMS+5, INRPMS+6, INRPMS+7, INRPMS+8, INRPMS+19, INRPMS+23, INRPMS+47, INRPMS+51, INRPMS+63 , MCRERRS+6, MCRERRS+10, MCRERRS+17, REGERRS+6, REGERRS+10, REGERRS+17, SETMATCH+1~, SETMATCH+6*, SETMATCH+7, SETMATCH+9 , SETMATCH+11, SETMATCH+20
REVDATE	INRPMS+1~, INRPMS+41*, INRPMS+66
REVERSAL	REVLOOP+9, REVLOOP+11, REVLOOP+15, INRPMS+1~, INRPMS+27, INRPMS+33, INRPMS+39
REVICN	INBILL+1~, INBILL+7, INBILL+29, INBILL+39, INERA+1~, INERA+6, INERA+36, INERA+37, INERA+47
REVIENS	SETMATCH+1~, SETMATCH+9*, SETMATCH+13, SETMATCH+14
REVSCHED	INRPMS+1~, INRPMS+42, INRPMS+43, INRPMS+44*, INRPMS+67
>> STAT	SETMATCH+26*
TAMOUNT	INRPMS+1~, INRPMS+32*, INRPMS+33, INRPMS+34
TRANS	INRPMS+2~, INRPMS+28, INRPMS+29, INRPMS+30, INRPMS+32, INRPMS+33, INRPMS+35, INRPMS+36, INRPMS+41
>> TRANTYPE	INRPMS+30*, INRPMS+31
>> TYPE	SETMATCH+24, SETMATCH+25
U	REVLOOP+5, REVLOOP+13, REVLOOP+15, REVCHECK+1, REVCHECK+2, REVCHECK+3, REVCHECK+4, REVCHECK+5, INBILL+14, INBILL+19 , INBILL+22, INERA+15, INERA+20, INERA+22, INERA+24, INRPMS+12, INRPMS+66, INRPMS+67
WHERE	MCRERRS~, MCRERRS+4, MCRERRS+8, MCRERRS+15, REGERRS~, REGERRS+4, REGERRS+8, REGERRS+15

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50EP

Information

Source Information

Call Graph

Call 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: