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

Package: IHS Accounts Receivable

Routine: BAR50P0Z


Information

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

Source Information

Source file <BAR50P0Z.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 BAR50P04  BAR50P05  BAR50P08  

Entry Points

Name Comments DBIA/ICR reference
PLBFIND ; EP
REVFIND ;EP
ISREV(IMPDA,CLMDA) ;P.OTT 1/10/2014 HEAT148388
BUILDLST ;EP
EN(IMPDA) ; EP ; Scan SEGMENTS for PLB, REVERSALS AND NEGATIVE AMOUNTS
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 EN+3
^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+1
Function Call: WRITE
  • Prompt: "No Payment Reversals found"
  • Line Location: REV+27
Function Call: WRITE
  • Prompt: !!,"Looking for Negative Payments... "
  • Line Location: NEGP+2
Function Call: WRITE
  • Prompt: "NEGATIVE PAYMENT AMOUNT FOUND",!?2,"Bills will be marked Not To Post to accommodate"
  • Line Location: NEGP+19
Function Call: WRITE
  • Prompt: !,?6,"E-Bill#",?27,"E-Pymt",?39,"E-Claim Status Code"
  • Line Location: NEGP+20
Function Call: WRITE
  • Prompt: "No Negative Payments found "
  • Line Location: NEGP+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PLBFIND+34
Function Call: WRITE
  • Prompt: !
  • Line Location: REVFIND+47
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+9, REV+13, REV+19, REV+20, REV+21, REV+25, NEGP+7, NEGP+9, NEGP+10
, NEGP+15, NEGP+27, NEGP+28, NEGP+30, NEGP+32, LOOP+4, LOOP+5, PLBFIND+4, PLBFIND+5, PLBFIND+6
, PLBFIND+8, PLBFIND+12, PLBFIND+13, PLBFIND+15, PLBFIND+24, PLBFIND+33, REVFIND+11, REVFIND+13, REVFIND+18, REVFIND+23
, REVFIND+31, REVFIND+36, REVFIND+43, REVFIND+46, BUILDLST+3, BUILDLST+4, BUILDLST+5, BUILDLST+11, BUILDLST+12, BUILDLST+14
, BUILDLST+15, 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+15, REVFIND+17, REVFIND+20, REVFIND+24!, BUILDLST+2!, BUILDLST+15*
^XTMP("BAR-BMAMT" EN+16!
^XTMP("BAR-MBAMT" PLBFIND+3!, PLBFIND+15*, PLBFIND+18, PLBFIND+20, PLBFIND+27, PLBFIND+29, REVFIND+27, REVFIND+29, REVFIND+39, REVFIND+41
, BUILDLST+2!, BUILDLST+14*
^XTMP("BAR-REV" REV+8!, REV+22*, NEGP+29*, REVFIND+9, REVFIND+10, BUILDLST+6

Label References

Name Line Occurrences
$$ISREV REV+12
$$NEGP EN+10
$$PLB EN+6
$$RCHK PLBFIND+9, BUILDLST+7
$$REV EN+8
BUILDLST REVFIND+4
PLBFIND PLB+9
REVFIND REV+26, NEGP+33
UP REV+24, NEGP+31, LOOP+7, PLBFIND+22, PLBFIND+30, REVFIND+21, REVFIND+34, REVFIND+44

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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