Routine: BAREDP08

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
IHS Accounts Receivable	12	NEGBAL^BAR50EB NONPAYCH^BAR50EP1 CLMFLG^BAREDP04 UP^BAREDP0Z (ADJMULT,PAY,RMKCD)^BAREDP8A $$CKDATE^BARPST EN^BARROLL TR^BARTDO ($$NEW,MSG)^BARTR $$IHSNEGB^BARUFUT EOP^BARUTL $$EN^BARVDF
VA Fileman	4	^DIC ^DIE ($$GET1,GETS)^DIQ ^DIR
IHS VA Utilities	1	($$DIC,ENP,ENPM)^XBDIQ1
Kernel	1	$$CJ^XLFSTR

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAREDP00 BAREDP8A

Package

Total

Caller Graph

IHS Accounts Receivable

BAREDP00 BAREDP8A

Entry Points

Name	Comments	DBIA/ICR reference
POSTRAN	;EP ; SET TRANSACTION & POST FILES
ROLLBACK	; Rollback bills that just posted if Roll as you go set to yes ; Otherwise just mark for rollback later
POSTEM	; LOOP Claims with this chk ; Quit if status is not matched
RMKCD	; POST REMARK CODES
PAY	;EP ;PULL CLAIM INFO AND POST PYMT (IF ANY)
POST(BARCKDA)	; EP bar1.820 REQ6 changed BARCKIEN to BARCKDA
DR	; Gather data needed for transaction
MRKCLMP	;EP ; MARK CLAIM AS POSTED
NCPDP	; POST NCPDP CODES
NEGBAL	;
ASKPOST	;Ask user if really want to post clms
BASIC	;
GETBPR02(BARCHECK)	;EP -GET BPR02 MONETARY AMT FROM ERACHECK
NOBATCH	;
ADJMULT	;EP ;POST ADJUSTMENTS

External References

Name	Field # of Occurrence
NEGBAL^BAR50EB	POSTEM+15
NONPAYCH^BAR50EP1	POSTEM+17
CLMFLG^BAREDP04	POSTEM+13
UP^BAREDP0Z	POSTEM+32, NEGBAL+15
ADJMULT^BAREDP8A	ADJMULT+1
PAY^BAREDP8A	PAY+1
RMKCD^BAREDP8A	RMKCD+1
$$CKDATE^BARPST	POST+19
EN^BARROLL	ROLLBACK+15, ROLLBACK+20
TR^BARTDO	POSTRAN+32
$$NEW^BARTR	POSTRAN+1
MSG^BARTR	POSTRAN+2
$$IHSNEGB^BARUFUT	POSTEM+17, POSTEM+29, NEGBAL+12
EOP^BARUTL	POST+36, POST+42, NOBATCH+12, ROLLBACK+17, ROLLBACK+22
$$EN^BARVDF	POST+40, POST+44, POSTEM+30
^DIC	POSTRAN+22
^DIE	MRKCLMP+6, POSTRAN+9, POSTRAN+29
$$GET1^DIQ	POST+9, POST+10, POST+11, POSTEM+25, POSTEM+27, BASIC+2, BASIC+3, BASIC+4, BASIC+5, BASIC+9
GETS^DIQ	POST+18
^DIR	POST+16, ASKPOST+7, ROLLBACK+10
$$DIC^XBDIQ1	MRKCLMP+2
ENP^XBDIQ1	POSTEM+22, NCPDP+20
ENPM^XBDIQ1	NCPDP+3
$$CJ^XLFSTR	NOBATCH+7, NOBATCH+8, NOBATCH+9, NOBATCH+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"EDI Claims are still in a BUILT status for this check!",!,"Run BLMT or REV auto-review for matching." Line Location: POST+31
Function Call: WRITE	Prompt: !!,"No matched bills to post",!! Line Location: POST+39
Function Call: WRITE	Prompt: !,$$EN^BARVDF("HIN")," BILLS HAVE BEEN MARKED AS 'ITEM BALANCE EXCEEDED'. PLEASE REVIEW AND POST",!?4,"MANUALLY",$$EN^BARVDF("HIF") Line Location: POST+40
Function Call: WRITE	Prompt: !!,BARPSTED," Bills posted to AR.",! Line Location: POST+43
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("HIN")," BILLS HAVE BEEN MARKED AS 'ITEM BALANCE EXCEEDED'. PLEASE REVIEW AND POST",!?4,"MANUALLY",$$EN^BARVDF("HIF") Line Location: POST+44
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Check "_BARCHECK_" does not match an RPMS Collection Batch and Item.",IOM) Line Location: NOBATCH+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("There is at least one bill for this check containing a payment amount.",IOM) Line Location: NOBATCH+8
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("The system will not allow posting bills to this check at this time.",IOM) Line Location: NOBATCH+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Please go back and create an RPMS Collection Batch and Item",IOM),! Line Location: NOBATCH+10
Function Call: WRITE	Prompt: ! Line Location: ASKPOST+1
Function Call: WRITE	Prompt: !!,"<<Posting this bill will result in a negative balance on the bill>>" Line Location: NEGBAL+13
Function Call: WRITE	Prompt: !!,"OK, marking for rollback the bills that just posted for chk/EFT ",BARCHECK Line Location: ROLLBACK+18
Function Call: WRITE	Prompt: !,"Please use the ROL option when you're ready to roll them back to 3P" Line Location: ROLLBACK+19
Routine Call	DIE Line Location: MRKCLMP+6 POSTRAN+9 POSTRAN+29
Routine Call	DIC Line Location: POSTRAN+22
Routine Call	DIR Line Location: POST+16 ASKPOST+7 ROLLBACK+10

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
90051.1101	GET1^DIQ
90056.0205	GET1^DIQ
^BARECHK - [#90056.22]	GET1^DIQ, GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	ROLLBACK+3
^BARECHK - [#90056.22]	POST+6, POST+7, POST+8
^BAREDI("I"	POST+26, POST+29, POST+30, GETBPR02+2, GETBPR02+4, GETBPR02+6, NOBATCH+3, NOBATCH+4, POSTEM+5, POSTEM+6 , POSTEM+11, POSTEM+12, POSTEM+18, POSTEM+19, NEGBAL+3, NEGBAL+6, NEGBAL+7
^DD(90050.03	POSTRAN+14
^XTMP("BAR-MBAMT"	POSTEM+4!, POSTEM+6*, POSTEM+8, POSTEM+10

Name	Line Occurrences
$$GETBPR02	POST+12
ADJMULT	POSTEM+35
ASKPOST	POST+33
BASIC	POSTEM+21
DR	NCPDP+7
MRKCLMP	POSTEM+40
NCPDP	POSTEM+39
NEGBAL	POSTEM+33
NOBATCH	POST+21, POST+22
PAY	POSTEM+36
POSTEM	POST+37
POSTRAN	NCPDP+18
RMKCD	POSTEM+38
ROLLBACK	POST+45

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADJDA	NEGBAL+5, NEGBAL+6, NEGBAL+7
BARADD	POST+17!, POSTRAN+11, POSTRAN+15, POSTRAN+16, POSTRAN+17
BARADD(	POSTRAN+15, POSTRAN+16, POSTRAN+17
>> BARADJ	NEGBAL+5, NEGBAL+8, NEGBAL+9
>> BARAMT	NEGBAL+7*, NEGBAL+8
>> BARANS	POST+34, ASKPOST+2, ASKPOST+8, POSTEM+34, NEGBAL+1, NEGBAL+16
>> BARBAL	BASIC+5*, NEGBAL+10, NEGBAL+11
>> BARBATCH	POST+7, POST+19, POST+20, POST+22, BASIC+6
>> BARBL	POSTEM+12*
>> BARBLAC	BASIC+4*
>> BARBLIEN	BASIC+2*, BASIC+3, BASIC+4, BASIC+5, BASIC+9, POSTRAN+2, POSTRAN+3
>> BARBLPAT	BASIC+3*
>> BARCAT	DR+22, DR+28, POSTRAN+31
BARCHECK	POST+6*, POST+12, POST+30, GETBPR02~, GETBPR02+2, GETBPR02+4, NOBATCH+3, NOBATCH+7, ASKPOST+5, POSTEM+5 , POSTEM+11, POSTEM+15, ROLLBACK+14, ROLLBACK+18
>> BARCHK	POSTEM+15*
BARCKDA	POST~, POST+6, POST+7, POST+8, POST+9, POST+10, POST+11, POST+18
>> BARCKIEN	POSTEM+11*
>> BARCLM	NOBATCH+2, NOBATCH+3, NOBATCH+4
>> BARCOL	POSTEM+24, BASIC+6*, NCPDP+9
>> BARCR	POSTEM+27*, POSTEM+28
>> BARDONE	POSTEM+2*, POSTEM+5, POSTEM+10
BARDR	NCPDP+2!, NCPDP+12*, POSTRAN+5
>> BAREIENS	BASIC+1*, BASIC+2
BARERR	POST+17!
>> BARFND	POST+4, POST+23, NOBATCH+2, NOBATCH+3, NOBATCH+5*, NOBATCH+6
BARFROM	NCPDP+1!
>> BARICQ	POST+9*
BARIQ	POSTRAN+13~, POSTRAN+16*, POSTRAN+18
>> BARITM	POSTEM+24, BASIC+8*, NCPDP+10
>> BARNCPDP	NCPDP+16*, NCPDP+17
>> BARNPI	POST+10*
BAROLD	POST+3!, POST+20*, POST+24!
>> BARPARAM	ROLLBACK+3*, ROLLBACK+4
>> BARPAY	NEGBAL+3*, NEGBAL+4
>> BARPITEM	POST+8*, POST+22, BASIC+8
>> BARPSTED	POST+38, POST+43, POSTEM+2, MRKCLMP+8
>> BARRAYGO	ROLLBACK+2, ROLLBACK+11, ROLLBACK+13
>> BARREAS	DR+23, DR+29
BARREF	POSTRAN+13~, POSTRAN+17*
BARROLL	ROLLBACK+16!
BARROLL(	POSTRAN+3*
>> BARSECT	POST+5*
BARSTOP	POST+28!, POST+30*, POST+31, POST+32
>> BARTIN	POST+11*
BARTO	NCPDP+1!
>> BARTOT	NEGBAL+2, NEGBAL+4, NEGBAL+9*, NEGBAL+10, NEGBAL+11
>> BARTRAN	NCPDP+5, DR+20, DR+21, DR+26, DR+27*, POSTRAN+31
>> BARTRIEN	POSTRAN+1*, POSTRAN+2, POSTRAN+6, POSTRAN+19, POSTRAN+25, POSTRAN+32
>> BARUSR(29	POST+5
>> BARVLOC	BASIC+9*
BPR02	POST+2~, POST+12, POST+13, POST+22, GETBPR02+1~, GETBPR02+6, GETBPR02+7, GETBPR02+8
>> CLM(	POSTEM+23
>> CLMAMT	POSTEM+7, POSTEM+8, POSTEM+10
>> CLMCNT	POSTEM+3, POSTEM+20
CLMDA	POST+27, POST+29, POST+30, GETBPR02+1~, GETBPR02+4, GETBPR02+5, GETBPR02+6, POSTEM+2, POSTEM+5, POSTEM+6 , POSTEM+9, POSTEM+10*, POSTEM+12, POSTEM+13, POSTEM+18, POSTEM+19, POSTEM+26, POSTEM+32, BASIC+1, NEGBAL+3 , NEGBAL+6, NEGBAL+7, NEGBAL+15, MRKCLMP+4
DA	MRKCLMP+1!, MRKCLMP+4, MRKCLMP+7!, POSTRAN+6, POSTRAN+10!, POSTRAN+24!, POSTRAN+26*
DA(1	MRKCLMP+3, POSTRAN+19, POSTRAN+20, POSTRAN+25*, POSTRAN+27
DIC	MRKCLMP+1!, MRKCLMP+7!, POSTRAN+20*, POSTRAN+24!
DIC("P"	POSTRAN+14*
DIC(0	POSTRAN+21*
DIDEL	POSTRAN+8*, POSTRAN+10!
DIE	MRKCLMP+2, POSTRAN+7, POSTRAN+10!, POSTRAN+24!, POSTRAN+27*
DIR	POST+15!, POST+35!, POST+41!, NOBATCH+11!, ASKPOST+3!, POSTRAN+24!, ROLLBACK+5!, ROLLBACK+12!, ROLLBACK+16!, ROLLBACK+21!
DIR("?"	ROLLBACK+9*
DIR("A"	ASKPOST+5, ROLLBACK+6
DIR("B"	ASKPOST+6, ROLLBACK+7
DIR(0	POST+15, ASKPOST+4, ROLLBACK+8*
DR	NCPDP+2!, NCPDP+6, NCPDP+8, NCPDP+9, NCPDP+10, NCPDP+11, NCPDP+12, NCPDP+13!, DR+1, DR+2* , DR+3, DR+4, DR+5, DR+6, DR+7, DR+8, DR+9, DR+10, DR+11, DR+13 , DR+14, DR+15, DR+18, DR+19, DR+24, DR+25, DR+30, DR+31, MRKCLMP+1!, MRKCLMP+5* , MRKCLMP+7!, POSTRAN+5, POSTRAN+10!, POSTRAN+24!, POSTRAN+28
DUZ(2	POST+26, POST+29, POST+30, GETBPR02+2, GETBPR02+4, GETBPR02+6, NOBATCH+3, NOBATCH+4, POSTEM+4, POSTEM+5 , POSTEM+6, POSTEM+8, POSTEM+10, POSTEM+11, POSTEM+12, POSTEM+17, POSTEM+18, POSTEM+19, POSTEM+29, NEGBAL+3 , NEGBAL+6, NEGBAL+7, NEGBAL+12, POSTRAN+20, POSTRAN+27, ROLLBACK+3
>> ERRORS	POSTEM+13
>> IENS	POSTEM+24, POSTEM+25, POSTEM+26, POSTEM+27
IMPDA	POST+26, POST+29, POST+30, GETBPR02+1~, GETBPR02+2*, GETBPR02+3, GETBPR02+4, GETBPR02+6, NOBATCH+3, NOBATCH+4 , POSTEM+5, POSTEM+6, POSTEM+11, POSTEM+12, POSTEM+15, POSTEM+17, POSTEM+18, POSTEM+19, POSTEM+26, POSTEM+32 , BASIC+1, NEGBAL+3, NEGBAL+6, NEGBAL+7, NEGBAL+15, MRKCLMP+3
IOM	NOBATCH+7, NOBATCH+8, NOBATCH+9, NOBATCH+10
>> ITEMAMT	POSTEM+25*, POSTEM+28
NCPDP	NCPDP+2!, NCPDP+4, NCPDP+22!
NCPDP(	NCPDP+15, NCPDP+16
>> NCPDPDA	NCPDP+14, NCPDP+15, NCPDP+16
NCPDPP	NCPDP+19!, NCPDP+22!
NCPDPP(	NCPDP+21
>> PSTQFLG	POST+40, POST+44, POSTEM+3, POSTEM+31, POSTEM+32
U	POST+6, POST+7, POST+8, POST+30, GETBPR02+6, NOBATCH+4, POSTEM+6, POSTEM+12, POSTEM+18, POSTEM+19 , NEGBAL+3, NEGBAL+7, POSTRAN+14, ROLLBACK+3
>> X	POSTRAN+18*
>> Y	ASKPOST+8, POSTRAN+23, POSTRAN+26, ROLLBACK+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAREDP08

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: