Routine: BAR50P08

Information

BAR50P08 ; IHS/SD/LSL - POST HIPAA CLAIMS ; 12/01/2008

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
IHS Accounts Receivable	11	NEGBAL^BAR50EB NONPAYCH^BAR50EP1 UP^BAR50P0Z (ADJMULT,PAY,RMKCD)^BAR50P8A $$CKDATE^BARPST EN^BARROLL TR^BARTDO ($$NEW,MSG)^BARTR ($$IHS,$$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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR50P00 BAR50P8A

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+18
NONPAYCH^BAR50EP1	POSTEM+20
UP^BAR50P0Z	POSTEM+40, NEGBAL+16
ADJMULT^BAR50P8A	ADJMULT+1
PAY^BAR50P8A	PAY+1
RMKCD^BAR50P8A	RMKCD+1
$$CKDATE^BARPST	POST+20
EN^BARROLL	ROLLBACK+15, ROLLBACK+20
TR^BARTDO	POSTRAN+33
$$NEW^BARTR	POSTRAN+1
MSG^BARTR	POSTRAN+2
$$IHS^BARUFUT	POSTEM+18
$$IHSNEGB^BARUFUT	POSTEM+20, POSTEM+36, NEGBAL+12
EOP^BARUTL	POST+37, POST+43, NOBATCH+12, ROLLBACK+17, ROLLBACK+22
$$EN^BARVDF	POST+41, POST+46, POSTEM+37
^DIC	POSTRAN+23
^DIE	MRKCLMP+6, POSTRAN+9, POSTRAN+30
$$GET1^DIQ	POST+9, POST+10, POST+11, POSTEM+31, POSTEM+33, BASIC+2, BASIC+3, BASIC+4, BASIC+5, BASIC+9
GETS^DIQ	POST+19
^DIR	POST+17, ASKPOST+7, ROLLBACK+10
$$DIC^XBDIQ1	MRKCLMP+2
ENP^XBDIQ1	POSTEM+28, 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+32
Function Call: WRITE	Prompt: !!,"No matched bills to post",!! Line Location: POST+40
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+41
Function Call: WRITE	Prompt: !!,BARPSTED," Bills posted to AR.",! Line Location: POST+44
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+46
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: !!,"<<<Posting this bill will result in a negative balance on the bill >>>" Line Location: NEGBAL+14
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+30
Routine Call	DIC Line Location: POSTRAN+23
Routine Call	DIR Line Location: POST+17 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+27, POST+30, POST+31, GETBPR02+2, GETBPR02+4, GETBPR02+6, NOBATCH+3, NOBATCH+4, POSTEM+6, POSTEM+7 , POSTEM+13, POSTEM+14, POSTEM+21, POSTEM+22, NEGBAL+3, NEGBAL+6, NEGBAL+7
^DD(90050.03	POSTRAN+15
^XTMP("BAR-MBAMT"	POSTEM+5!, POSTEM+7*, POSTEM+9, POSTEM+11

Label References

Name	Line Occurrences
$$GETBPR02	POST+12
ADJMULT	POSTEM+44
ASKPOST	POST+34
BASIC	POSTEM+24
DR	NCPDP+7
MRKCLMP	POSTEM+48
NCPDP	POSTEM+47
NEGBAL	POSTEM+41
NOBATCH	POST+22, POST+23
PAY	POSTEM+45
POSTEM	POST+38
POSTRAN	NCPDP+18
RMKCD	POSTEM+46
ROLLBACK	POST+48

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P08

Information

Source Information

Call Graph

Call Graph Total: 17

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: