Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BAREDP08

Package: IHS Accounts Receivable

Routine: BAREDP08


Information

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

Source Information

Source file <BAREDP08.m>

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Accounts Receivable 2 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 bar*1.8*20 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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All