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

Package: IHS Accounts Receivable

Routine: BAR50EP


Information

BAR50EP ; IHS/SD/TPF - AR ERA PAYMENT CHECKER ; 01/30/2009

Source Information

Source file <BAR50EP.m>

Call Graph

Call Graph Total: 7

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