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

Package: IHS Accounts Receivable

Routine: BAREDEB


Information

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

Source Information

Source file <BAREDEB.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAREDEP  

Entry Points

Name Comments DBIA/ICR reference
CHECKTOT(CHECKTOT) ;CHECK ERA CHECK TOTALS AGAINST BATCH/ITEM TOTAL
GETIEN(BARX,BARBILL) ;EP - FIND AR BILL IEN
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 ;BAR*1.8*6 SCR119 IHS/SD/TPF
DONOTPR(IMPDA,CLMDA) ;CALLED FROM 3 DIFFERENT PLACES

External References

Name Field # of Occurrence
H^%DTC GETITMTO+2, GETITMTO+16
$$OVERIDE^BAR50EP1 DONOTPR+2
ADDREAS^BAREDP04 NEGBAL+85, CHECKTOT+27
$$BARXCHK^BAREDP09 GETITMTO+4
$$IHSNEGB^BARUFUT NEGBAL+74, GETITMTO+26
$$GET1^DIQ NEGBAL+38, NEGBAL+53, NEGBAL+59, NEGBAL+60, NEGBAL+61, 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+29
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+62
Function Call: WRITE
  • Prompt: ?23,"A/R RSN:",$E(BARREAS,1,27)
  • Line Location: NEGBAL+63
Function Call: WRITE
  • Prompt: ?60,"ADJ:",$J($FN(BARAMT,",",2),15)
  • Line Location: NEGBAL+64
Function Call: WRITE
  • Prompt: !,?28,"BILL BALANCE IF ERA CLAIM IS POSTED: ",$J($FN(BARBAL-BARTOT,",",2),14)
  • Line Location: NEGBAL+70
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECKTOT+5
Function Call: WRITE
  • Prompt: !?2," Matched Bills: ",$J(+$G(BARCNT("MATCHED")),5)," for $",$J($FN(+$G(BARAMT("MATCHED")),",",2),12)
  • Line Location: CHECKTOT+6
Function Call: WRITE
  • Prompt: !?2,"Unmatched Bills: ",$J(+$G(BARCNT("UNMATCHED")),5)," for $",$J($FN(+$G(BARAMT("UNMATCHED")),",",2),12)
  • Line Location: CHECKTOT+7
Function Call: WRITE
  • Prompt: !?2," Total Bills: ",$J(+$G(BARTOT("CNT")),5)," for $",$J($FN(+$G(BARTOT("AMT")),",",2),12)
  • Line Location: CHECKTOT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECKTOT+9
Function Call: WRITE
  • Prompt: !?2,"CHECKING ERA CHECK TOTALS FOR ",ERACHECK," TOTAL ",$J($FN(CHECKTOT(ERACHECK),",",2),15)
  • Line Location: CHECKTOT+15
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
Function Call: WRITE
  • Prompt: !,"ERA TOTAL PAYMENTS AND ADJUSTMENTS OF ",ERATOTAL
  • Line Location: GETITMTO+29
Function Call: WRITE
  • Prompt: !,"IS GREATER THAN BATCH POSTING BALANCE OF ",BPOSTBAL
  • Line Location: GETITMTO+30

FileMan Files Accessed Via FileMan Db Call

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
^BARCOL( GETITMTO+5, GETITMTO+12
^BAREDI("I" NEGBAL+12, NEGBAL+13, NEGBAL+20, NEGBAL+23, NEGBAL+24, NEGBAL+25, NEGBAL+26, NEGBAL+27, NEGBAL+34, NEGBAL+50
, NEGBAL+51, NEGBAL+57, NEGBAL+58, NEGBAL+78, CHECKTOT+13, CHECKTOT+14, CHECKTOT+20, DONOTPR+3, DONOTPR+4, DONOTPR+5
^XTMP("BAR-LIST" NEGBAL+11!, NEGBAL+14*, NEGBAL+16

Label References

Name Line Occurrences
$$DONOTPR NEGBAL+43, NEGBAL+79, CHECKTOT+21
$$GETIEN NEGBAL+31
CHECKTOT NEGBAL+89
GETITMTO CHECKTOT+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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