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

Package: IHS Accounts Receivable

Routine: BAREDP0Z


Information

BAREDP0Z ; IHS/SD/LSL - MATCH REASONS AND CLAIMS ; 01/30/2009

Source Information

Source file <BAREDP0Z.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
IHS Accounts Receivable 1 $$IHSNEGB^BARUFUT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Accounts Receivable 3 BAREDP04  BAREDP05  BAREDP08  

Entry Points

Name Comments DBIA/ICR reference
PLBFIND ; EP
REVFIND ;EP
ISREV(IMPDA,CLMDA) ;P.OTT 1/10/2014 HEAT148388- BAR*1.8*.24
BUILDLST ;EP
EN(IMPDA)
LOOP(IMPDA,REASON,VCHK) ;EP; LOOP THROUGH BAREDI("I",IMPDA AND FLAG NOT TO POST
RCHK(CHKREASN) ;
NEGP(IMPDA) ;EP ;D159-1
UP(IMPDA,XCLM,REASON) ;EP; UPDATE STATUS
REV(IMPDA) ;EP ;D159-1
PLB(IMPDA) ; EP ;D159-2

External References

Name Field # of Occurrence
$$IHSNEGB^BARUFUT NEGP+2
^DIC UP+9
$$GET1^DIQ PLB+7, ISREV+1
^DIR EN+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Now will look for PLBs, Payment Reversals, and Negative Payments..."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Looking for PLB Segment... "
  • Line Location: PLB+1
Function Call: WRITE
  • Prompt: "No PLB Segments found"
  • Line Location: PLB+3
Function Call: WRITE
  • Prompt: "PLB SEGMENT FOUND"
  • Line Location: PLB+4
Function Call: WRITE
  • Prompt: !?2,"The PLB amount increases the check amount - no further action will be taken"
  • Line Location: PLB+5
Function Call: WRITE
  • Prompt: !?2,"Bills will be marked Not To Post to accommodate amount ",$FN($$GET1^DIQ(90056.02011,IENS,.09),",",2)
  • Line Location: PLB+7
Function Call: WRITE
  • Prompt: !!,"Looking for Payment Reversals... "
  • Line Location: REV+2
Function Call: WRITE
  • Prompt: "No Payment Reversals found"
  • Line Location: REV+28
Function Call: WRITE
  • Prompt: !!,"Looking for Negative Payments... "
  • Line Location: NEGP+3
Function Call: WRITE
  • Prompt: "NEGATIVE PAYMENT AMOUNT FOUND",!?2,"Bills will be marked Not To Post to accommodate"
  • Line Location: NEGP+20
Function Call: WRITE
  • Prompt: !,?6,"E-Bill#",?27,"E-Pymt",?39,"E-Claim Status Code"
  • Line Location: NEGP+21
Function Call: WRITE
  • Prompt: "No Negative Payments found "
  • Line Location: NEGP+32
Function Call: WRITE
  • Prompt: !
  • Line Location: PLBFIND+32
Function Call: WRITE
  • Prompt: !
  • Line Location: REVFIND+44
Routine Call
  • DIC
  • Line Location:
    • UP+9
Routine Call
  • DIR
  • Line Location:
    • EN+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
90056.02011 GET1^DIQ
90056.0205 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAREDI("I" PLB+2, REV+10, REV+14, REV+20, REV+21, REV+22, REV+26, NEGP+8, NEGP+10, NEGP+11
, NEGP+16, NEGP+25, NEGP+26, NEGP+28, NEGP+30, LOOP+4, LOOP+5, PLBFIND+4, PLBFIND+5, PLBFIND+6
, PLBFIND+7, PLBFIND+11, PLBFIND+12, PLBFIND+13, PLBFIND+22, PLBFIND+31, REVFIND+11, REVFIND+12, REVFIND+17, REVFIND+22
, REVFIND+29, REVFIND+34, REVFIND+40, REVFIND+43, BUILDLST+3, BUILDLST+4, BUILDLST+5, BUILDLST+10, BUILDLST+11, BUILDLST+12
, BUILDLST+13, RCHK+2, RCHK+4, RCHK+5, RCHK+7
^BARERR - [#90056.21] RCHK+5, RCHK+7
^DD(90056.0205 UP+3
^XTMP("BAR-BILLS" EN+16!, REVFIND+14, REVFIND+16, REVFIND+19, REVFIND+23!, BUILDLST+2!, BUILDLST+13*
^XTMP("BAR-BMAMT" EN+16!
^XTMP("BAR-MBAMT" PLBFIND+3!, PLBFIND+13*, PLBFIND+16, PLBFIND+18, PLBFIND+25, PLBFIND+27, REVFIND+26, REVFIND+28, REVFIND+37, REVFIND+39
, BUILDLST+2!, BUILDLST+12*
^XTMP("BAR-REV" REV+9!, REV+23*, NEGP+27*, REVFIND+9, REVFIND+10, BUILDLST+6

Label References

Name Line Occurrences
$$ISREV REV+13
$$NEGP EN+10
$$PLB EN+6
$$RCHK PLBFIND+8, BUILDLST+7
$$REV EN+8
BUILDLST REVFIND+4
PLBFIND PLB+9
REVFIND REV+27, NEGP+31
UP REV+25, NEGP+29, LOOP+7, PLBFIND+20, PLBFIND+28, REVFIND+20, REVFIND+32, REVFIND+41

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BAMT PLBFIND+14*, PLBFIND+16*, PLBFIND+17, PLBFIND+18, PLBFIND+24*, PLBFIND+25*, PLBFIND+27, PLBFIND+29
>> BAR REV+6*, NEGP+31*, REVFIND+20, REVFIND+32, REVFIND+41, BUILDLST+9
BAR15 REV+3~
BAR300 NEGP+4~, NEGP+10*, NEGP+13, NEGP+17
BAR302 NEGP+4~, NEGP+11*, NEGP+12, NEGP+14
BARAMT REV+3~, NEGP+4~, NEGP+17*, NEGP+18
BARCDA REV+3~, REV+4*, REV+10*, REV+13, REV+14, REV+20, REV+21, REV+22, REV+23, REV+25
, REV+26, NEGP+4~, NEGP+5*, NEGP+8*, NEGP+10, NEGP+11, NEGP+16, NEGP+25, NEGP+26, NEGP+27
, NEGP+28, NEGP+29, NEGP+30, LOOP+2~, LOOP+3*, LOOP+4*, LOOP+5, LOOP+7
>> BARCKIEN PLB+2, PLB+6, REV+14, NEGP+16, PLBFIND+5, BUILDLST+4
>> BARCNT REV+8*, REV+19*, REV+24, NEGP+7*, NEGP+24*, NEGP+28
>> BARDONE PLBFIND+14*, PLBFIND+16, PLBFIND+21*, PLBFIND+23, PLBFIND+25, PLBFIND+27, PLBFIND+30*, REVFIND+7*
BARFLG EN+1~, EN+5*, EN+6*, EN+7*, EN+8*, EN+9*, EN+10*, EN+18, PLB+3, PLB+5
, PLB+8*, PLB+11, REV+15, REV+18*, REV+27, REV+28, REV+30, NEGP+20, NEGP+21, NEGP+22*
, NEGP+31, NEGP+32, NEGP+33
>> BARNTPR RCHK+3*, RCHK+4*, RCHK+5, RCHK+7
>> BARRCHK PLBFIND+10, BUILDLST+9, RCHK+1*, RCHK+6*
BARSCK REV+3~, REV+5*, NEGP+4~, NEGP+6*, NEGP+23*
BARSTA NEGP+4~, NEGP+13*, NEGP+14*, NEGP+15
BARVCK REV+3~, REV+5*, NEGP+4~, NEGP+12*, NEGP+23
CHKREASN PLBFIND+8*, PLBFIND+10, BUILDLST+7*, BUILDLST+9, RCHK~, RCHK+1*, RCHK+2, RCHK+4, RCHK+7*, RCHK+8
CLMDA PLBFIND+2*, PLBFIND+4*, PLBFIND+5, PLBFIND+6, PLBFIND+7, PLBFIND+11, PLBFIND+12, PLBFIND+13, PLBFIND+18*, PLBFIND+20
, PLBFIND+22, PLBFIND+26*, PLBFIND+27*, PLBFIND+28, PLBFIND+31, BUILDLST+1*, BUILDLST+3*, BUILDLST+4, BUILDLST+5, BUILDLST+6
, BUILDLST+10, BUILDLST+11, BUILDLST+12, BUILDLST+13, RCHK+2, RCHK+4, RCHK+5, RCHK+7, ISREV~, ISREV+1
CNT REV+3~, REV+10*, NEGP+4~, NEGP+8*
DA UP+1!, UP+2!
DA(1 UP+5*, UP+7
DA(2 UP+4*, UP+7
DIC UP+1!, UP+2!, UP+7*
DIC("P" UP+3*
DIC(0 UP+6*
DIE UP+1!, UP+2!
DIR EN+12!, UP+1!, UP+2!
DIR("A" EN+14*
DIR(0 EN+13*
DR UP+1!, UP+2!
DUZ(2 EN+16, PLB+2, REV+10, REV+14, REV+20, REV+21, REV+22, REV+23, REV+26, NEGP+2
, NEGP+8, NEGP+10, NEGP+11, NEGP+16, NEGP+25, NEGP+26, NEGP+27, NEGP+28, NEGP+30, LOOP+4
, LOOP+5, PLBFIND+3, PLBFIND+4, PLBFIND+5, PLBFIND+6, PLBFIND+7, PLBFIND+11, PLBFIND+12, PLBFIND+13, PLBFIND+16
, PLBFIND+18, PLBFIND+22, PLBFIND+25, PLBFIND+27, PLBFIND+31, REVFIND+9, REVFIND+10, REVFIND+11, REVFIND+12, REVFIND+14
, REVFIND+16, REVFIND+17, REVFIND+19, REVFIND+22, REVFIND+23, REVFIND+26, REVFIND+28, REVFIND+29, REVFIND+34, REVFIND+37
, REVFIND+39, REVFIND+40, REVFIND+43, BUILDLST+2, BUILDLST+3, BUILDLST+4, BUILDLST+5, BUILDLST+6, BUILDLST+10, BUILDLST+11
, BUILDLST+12, BUILDLST+13, RCHK+2, RCHK+4, RCHK+5, RCHK+7
>> EAMT REV+20*, REV+24, NEGP+25*, NEGP+28, REVFIND+11*, REVFIND+13*, REVFIND+18
>> EBILL REV+21*, REV+23, REV+24, NEGP+26*, NEGP+27, NEGP+28, REVFIND+10*, REVFIND+14, REVFIND+16, REVFIND+19
, REVFIND+22, REVFIND+23
>> EDA REVFIND+8*, REVFIND+9*, REVFIND+10, REVFIND+11, REVFIND+12, REVFIND+17
>> ESTAT REV+22*, REV+24
>> IENS PLB+6*, PLB+7
IMPDA EN~, EN+6, EN+8, EN+10, PLB~, PLB+2, PLB+6, REV~, REV+10, REV+13
, REV+14, REV+20, REV+21, REV+22, REV+25, REV+26, NEGP~, NEGP+8, NEGP+10, NEGP+11
, NEGP+16, NEGP+25, NEGP+26, NEGP+28, NEGP+29, NEGP+30, LOOP~, LOOP+4, LOOP+5, LOOP+7
, UP~, UP+4, PLBFIND+4, PLBFIND+5, PLBFIND+6, PLBFIND+7, PLBFIND+11, PLBFIND+12, PLBFIND+13, PLBFIND+20
, PLBFIND+22, PLBFIND+28, PLBFIND+31, REVFIND+11, REVFIND+12, REVFIND+17, REVFIND+20, REVFIND+22, REVFIND+29, REVFIND+32
, REVFIND+34, REVFIND+40, REVFIND+41, REVFIND+43, BUILDLST+3, BUILDLST+4, BUILDLST+5, BUILDLST+10, BUILDLST+11, BUILDLST+12
, BUILDLST+13, RCHK+2, RCHK+4, RCHK+5, RCHK+7, ISREV~, ISREV+1
>> MAMT REVFIND+17*, REVFIND+18, REVFIND+21, REVFIND+22, REVFIND+25*, REVFIND+26*, REVFIND+28, REVFIND+30, REVFIND+33, REVFIND+34
, REVFIND+36*, REVFIND+37*, REVFIND+39, REVFIND+42, REVFIND+43
>> MDA REVFIND+15*, REVFIND+16*, REVFIND+19, REVFIND+22, REVFIND+23, REVFIND+27*, REVFIND+28*, REVFIND+29, REVFIND+32, REVFIND+34
, REVFIND+38*, REVFIND+39*, REVFIND+40, REVFIND+41, REVFIND+43
>> MTCHAMT REVFIND+3*, REVFIND+5, REVFIND+21*, REVFIND+24, REVFIND+30, REVFIND+33*, REVFIND+35, REVFIND+37, REVFIND+39, REVFIND+42*
, BUILDLST+10*
>> PLBAMT PLB+2*, PLB+3, PLB+5, PLBFIND+11*, PLBFIND+15, PLBFIND+17, PLBFIND+29*, PLBFIND+30
>> RCLMDA REVFIND+19*, REVFIND+20
REASON LOOP~, LOOP+7, UP~, UP+8
>> REVAMT REV+7*, REV+26*, NEGP+7*, NEGP+30*, REVFIND+3
>> REVDA REVFIND+7*
TCHK LOOP+2~, LOOP+5*, LOOP+6
U PLB+2, REV+14, REV+20, REV+21, REV+22, REV+26, NEGP+12, NEGP+13, NEGP+14, NEGP+15
, NEGP+16, NEGP+17, NEGP+25, NEGP+26, NEGP+28, NEGP+30, LOOP+5, UP+3, PLBFIND+5, PLBFIND+6
, PLBFIND+7, PLBFIND+11, PLBFIND+12, PLBFIND+13, PLBFIND+22, PLBFIND+31, REVFIND+11, REVFIND+17, REVFIND+22, REVFIND+34
, REVFIND+43, BUILDLST+4, BUILDLST+5, BUILDLST+10, BUILDLST+11, BUILDLST+12, BUILDLST+13, RCHK+5, RCHK+7
VCHK LOOP~, LOOP+6
X UP+1!, UP+8*
XCLM UP~, UP+5
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