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

Package: IHS Accounts Receivable

Routine: BAREDP09


Information

BAREDP09 ; IHS/SD/LSL - FIND ERA CHECKS AND MATCH TO RPMS ;07/08/2008

Source Information

Source file <BAREDP09.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 5 H^%DTC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
IHS Accounts Receivable 4 $$BARXCHK^BAREDP09  WHD^BARRHD  EOP^BARUTL  $$EN^BARVDF  
IHS VA Utilities 2 ENP^XBDIQ1  ^XBFMK  

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
IHS Accounts Receivable 9 BAR50EB  BAR50EP1  BAR50P09  BAREDBPR  BAREDEB  BAREDEP1  BAREDP00  BAREDP09  
BAREDPA1  

Entry Points

Name Comments DBIA/ICR reference
CHECK(IMPDA) ; EP
SETHDR ;
PREVIOUS ;
; This ERA chk previously matched to coll. batch
CONT ;
LISTCHK ;
; List possible batches for ERA chk so user can choose
MANY ;
UPD ;
UPDCHECK ; EP
NONE ;
; No coll. batch/item for this chk#
ERACHECK ;
HDB ;EP
ADD ;
EXIST ;
STORE ;
ASK ;
ONLYONE ;
; This ERA chk only matches 1 coll. batch/item
BARXCHK(X) ;
BATCHECK ;
DISPLAY ;
MATCH ;
; Loop chks & tell user matched status
BTCHDATA ;

External References

Name Field # of Occurrence
H^%DTC BATCHECK+3, BATCHECK+21
$$BARXCHK^BAREDP09 BATCHECK+7
WHD^BARRHD HDB+4
EOP^BARUTL CHECK+11, CHECK+25, BATCHECK+29, CONT+7
$$EN^BARVDF CHECK+18, LISTCHK+2
FILE^DICN ADD+6
^DIE CHECK+10, UPD+8, STORE+9
$$GET1^DIQ ERACHECK+9, BATCHECK+20, BATCHECK+28, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, MATCH+6, MATCH+7
, PREVIOUS+4, PREVIOUS+5, PREVIOUS+7, NONE+5, ONLYONE+8, ONLYONE+9, ONLYONE+12, MANY+16, DISPLAY+15, SETHDR+6
^DIR ASK+9
ENP^XBDIQ1 SETHDR+4
^XBFMK STORE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"I'm sorry, it seems ERA file ",IMPDA," does not contain "
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,"a Check/EFT Trace Number. The file cannot be posted."
  • Line Location: CHECK+5
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !!?1,"IMPORT FILE SUMMARY:"
  • Line Location: CHECK+20
Function Call: WRITE
  • Prompt: !?7,"TOTAL SEGMENTS PROCESSED........:",$J($P($G(^BAREDI("I",DUZ(2),IMPDA,15,0)),U,3),12)
  • Line Location: CHECK+21
Function Call: WRITE
  • Prompt: !?7,"TOTAL AMOUNT PROCESSED..........$",$J($FN((+$G(BARMAMT)+$G(BARNAMT)),",",2),12)
  • Line Location: CHECK+22
Function Call: WRITE
  • Prompt: !!?1,"PLEASE REVIEW THE BPR 'NOT FOUND' REPORT AND CREATE A BATCH FOR THE BPR SEGMENT 'NOT FOUND'."
  • Line Location: CHECK+23
Function Call: WRITE
  • Prompt: !!?1,"* - Indicates a PLB segment has been located.",!?5,"Collection item balance may not match check balance!"
  • Line Location: CHECK+24
Function Call: WRITE
  • Prompt: !!,"A/R Collection batch found is older than 365 days. Checks will NOT be"
  • Line Location: BATCHECK+25
Function Call: WRITE
  • Prompt: !,"matched in the ERA file AND will not be posted to the Collection Batch"
  • Line Location: BATCHECK+26
Function Call: WRITE
  • Prompt: !," CHK:",BARXCHK," BATCH: ",BARBATCH," BATCH DATE: ",BARCBDT
  • Line Location: BATCHECK+27
Function Call: WRITE
  • Prompt: !," CHK:",BARXCHK," BATCH: ",$$GET1^DIQ(90051.01,BARBATCH,.01)," BATCH DATE: ",$P($$GET1^DIQ(90051.01,BARBATCH_",",4,"I"),"@",1)
  • Line Location: BATCHECK+28
Function Call: WRITE
  • Prompt: !!,"#"_BARCHECK_" BPR02: ",$FN($$GET1^DIQ(90056.02011,IENS,.03),",",2)
  • Line Location: MATCH+6
Function Call: WRITE
  • Prompt: !?4,"TRN02: ",$$GET1^DIQ(90056.02011,IENS,.01)
  • Line Location: MATCH+7
Function Call: WRITE
  • Prompt: ?40,"Matching... "
  • Line Location: MATCH+8
Function Call: WRITE
  • Prompt: " Previously matched"
  • Line Location: PREVIOUS+2
Function Call: WRITE
  • Prompt: !,"Matched to batch ",$P(BARCHK(BARCHECK,BAREBTCH,BAREITM),U),?50," ITEM: ",BAREITM
  • Line Location: PREVIOUS+3
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.01,BAREBTCH_",",28)
  • Line Location: PREVIOUS+4
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.1101,BAREITM_","_BAREBTCH_",",20)
  • Line Location: PREVIOUS+5
Function Call: WRITE
  • Prompt: "not done!"
  • Line Location: NONE+2
Function Call: WRITE
  • Prompt: !,"Match to: COLLECTION BATCH/ITEM NOT FOUND. PLACING ON NOT FOUND REPORT!"
  • Line Location: NONE+3
Function Call: WRITE
  • Prompt: "done!"
  • Line Location: ONLYONE+5
Function Call: WRITE
  • Prompt: !,"Match to: ",$P(BARCHK(BARCHECK,BARBATCH,BARITEM),U),?50," ITEM: ",BARITEM
  • Line Location: ONLYONE+6
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.01,BARBATCH_",",28)
  • Line Location: ONLYONE+8
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.1101,BARITEM_","_BARBATCH_",",20)
  • Line Location: ONLYONE+9
Function Call: WRITE
  • Prompt: !!,"Chk/EFT # ",BARCHECK," matches more than one collection batch and item."
  • Line Location: MANY+2
Function Call: WRITE
  • Prompt: !,"Please select one:"
  • Line Location: MANY+3
Function Call: WRITE
  • Prompt: !!,"A collection batch/item has NOT been selected for this ERA Chk/EFT #"
  • Line Location: MANY+7
Function Call: WRITE
  • Prompt: !!,"Updating A/R EDI CHECKS file with Collection Batch Data..."
  • Line Location: MANY+12
Function Call: WRITE
  • Prompt: " ... Done!"
  • Line Location: MANY+14
Function Call: WRITE
  • Prompt: !!,$$EN^BARVDF("ULN"),"LINE",?11,"BATCH",?35,"ITEM",?42,"A/R ACCOUNT",?57,"$ BATCHED",?70,"BALANCE",$$EN^BARVDF("ULF")
  • Line Location: LISTCHK+2
Function Call: WRITE
  • Prompt: !,$J(BARCNT,3)
  • Line Location: LISTCHK+9
Function Call: WRITE
  • Prompt: ?5,$E($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U),1,31)
  • Line Location: LISTCHK+10
Function Call: WRITE
  • Prompt: ?36,$J(BARITEM,3)
  • Line Location: LISTCHK+11
Function Call: WRITE
  • Prompt: ?40,$E($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U,2),1,15)
  • Line Location: LISTCHK+12
Function Call: WRITE
  • Prompt: ?56,$J($FN($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U,3),",",2),10)
  • Line Location: LISTCHK+13
Function Call: WRITE
  • Prompt: ?67,$J($FN($P(BARCHK(BARCHECK,BARBATCH,BARITEM),U,4),",",2),10)
  • Line Location: LISTCHK+14
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CONT+1
Function Call: WRITE
  • Prompt: !?2,BARMCNT_" "_$S(+$G(BARMCNT)=1:"ENTRY HAS ",1:"ENTRIES HAVE ")_"BEEN MATCHED.....................$",?50,$J($FN(BARMAMT,",",2),12)
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !?2,BARNCNT_" "_$S(+$G(BARNCNT)=1:"ENTRY HAS ",1:"ENTRIES HAVE ")_"NOT BEEN MATCHED.................$",?50,$J($FN(BARNAMT,",",2),12)
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: !,?40,"TOTAL.....$",$J($FN((+$G(BARMAMT)+$G(BARNAMT)),",",2),12)
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !?1,$E(BARST,($L(BARST)-3),$L(BARST))
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: "*"
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: ?10,$J($FN($P(BARREC,U,3),",",2),12),?24,$P(BARREC,U)
  • Line Location: DISPLAY+11
Function Call: WRITE
  • Prompt: ?47,"NOT FOUND"
  • Line Location: DISPLAY+12
Function Call: WRITE
  • Prompt: ?47,$$GET1^DIQ(90056.02011,IENS,.07)_" "_$P(BARREC,U,8)
  • Line Location: DISPLAY+15
Function Call: WRITE
  • Prompt: !,BARDASH,!
  • Line Location: HDB+6
Routine Call
  • DIE
  • Line Location:
    • CHECK+10
    • UPD+8
    • STORE+9
Routine Call
  • DIR
  • Line Location:
    • ASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^BARCOL(2906 - [#90051.01] GET1^DIQ
90051.1101 GET1^DIQ
90056.02011 GET1^DIQ
^BARECHK - [#90056.22] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARCOL( BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+31, BARXCHK+1, BARXCHK+2
^BARECHK - [#90056.22] EXIST+6, EXIST+10, EXIST+11, UPDCHECK+10
^BARECHK("B" EXIST+2, EXIST+5, UPDCHECK+3, UPDCHECK+9
^BAREDI("I" CHECK+21, ERACHECK+5, MATCH+12, DISPLAY+6, DISPLAY+7

Label References

Name Line Occurrences
ADD UPDCHECK+4, UPDCHECK+12
ASK MANY+5
BATCHECK CHECK+12
BTCHDATA BATCHECK+13, BATCHECK+33
CONT CHECK+14
DISPLAY CHECK+19
ERACHECK CHECK+2
EXIST ERACHECK+11
HDB DISPLAY+4
LISTCHK MANY+4
MANY MATCH+15
MATCH CHECK+13
NONE MATCH+13
ONLYONE MATCH+14
PREVIOUS MATCH+12
SETHDR DISPLAY+3
STORE CHECK+17
UPD UPDCHECK+6, UPDCHECK+14
UPDCHECK NONE+7, ONLYONE+10, MANY+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H BATCHECK+2~, BATCHECK+4, BATCHECK+22
>> BAR("COL" HDB+1*, HDB+5
>> BAR("HD" SETHDR+5*, SETHDR+6*, SETHDR+7*
>> BAR("LVL" HDB+3*
>> BAR("PG" DISPLAY+1*, HDB+2*, HDB+3
BARAIEN SETHDR+2!
>> BARANS MANY+6, MANY+8, MANY+9, ASK+3*, ASK+10*
BARBATCH ERACHECK+2~, EXIST+10*, EXIST+12, EXIST+13, BATCHECK+2~, BATCHECK+9*, BATCHECK+18*, BATCHECK+20, BATCHECK+28, BATCHECK+31
, BTCHDATA+3, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+2~, NONE+6*, ONLYONE+2*
, ONLYONE+3, ONLYONE+6, ONLYONE+7, ONLYONE+8, ONLYONE+9, MANY+8*, MANY+10, LISTCHK+4*, LISTCHK+5*, LISTCHK+7
, LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14, LISTCHK+15, UPD+6
BARCBDT BATCHECK+19~, BATCHECK+22*, BATCHECK+23
BARCHECK ERACHECK+2~, BATCHECK+2~, BATCHECK+5*, BATCHECK+6, BATCHECK+8, BATCHECK+9, BATCHECK+10, BATCHECK+12, BATCHECK+16, BATCHECK+24
, BATCHECK+34, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+2~, MATCH+3*, MATCH+4*
, MATCH+5, MATCH+6, MATCH+10, MATCH+11, MATCH+12, MATCH+13, MATCH+14, PREVIOUS+3, ONLYONE+2, ONLYONE+3
, ONLYONE+4, ONLYONE+6, ONLYONE+7, MANY+2, MANY+10, MANY+11, LISTCHK+5, LISTCHK+7, LISTCHK+10, LISTCHK+12
, LISTCHK+13, LISTCHK+14
BARCHK CHECK+1~
BARCHK( ERACHECK+9*, ERACHECK+10*, EXIST+8*, EXIST+13*, EXIST+14*, BATCHECK+5, BATCHECK+6, BATCHECK+8, BATCHECK+9, BATCHECK+10
, BATCHECK+12*, BATCHECK+16*, BATCHECK+24*, BATCHECK+34*, BTCHDATA+4*, BTCHDATA+5*, BTCHDATA+6*, BTCHDATA+7*, BTCHDATA+8*, BTCHDATA+9!
, MATCH+4, MATCH+10, MATCH+11, MATCH+13, MATCH+14, PREVIOUS+3, ONLYONE+2, ONLYONE+3, ONLYONE+4, ONLYONE+6
, ONLYONE+7*, MANY+10*, MANY+11, LISTCHK+5, LISTCHK+7, LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14, STORE+2
, STORE+3, STORE+8
>> BARCHKN BATCHECK+6*, BATCHECK+7, ONLYONE+4*, MANY+11*, UPDCHECK+3, UPDCHECK+9, ADD+5
>> BARCKIEN CHECK+27, EXIST+4*, EXIST+5*, EXIST+6, EXIST+8, EXIST+10, EXIST+11, UPDCHECK+5, UPDCHECK+8*, UPDCHECK+9*
, UPDCHECK+10, UPDCHECK+13, ADD+8*, ADD+9*, UPD+4
BARCNT CHECK+1~, CHECK+3, ERACHECK+3*, ERACHECK+7*, BTCHDATA+9*, LISTCHK+4*, LISTCHK+8*, LISTCHK+9, LISTCHK+15, ASK+5
, ASK+7
BARCNT2 CHECK+1~, BATCHECK+11*, BATCHECK+12, BATCHECK+14, BATCHECK+15*, BATCHECK+32*, BATCHECK+34, BATCHECK+35
>> BARDASH DISPLAY+2*, HDB+6
BAREBTCH MATCH+2~, MATCH+10*, PREVIOUS+3, PREVIOUS+4, PREVIOUS+5
BAREITM MATCH+2~, MATCH+11*, PREVIOUS+3, PREVIOUS+5
>> BARI ERACHECK+9*, EXIST+2, EXIST+5, STORE+1*, STORE+2*, STORE+3, STORE+6, STORE+8, DISPLAY+5*, DISPLAY+6*
, DISPLAY+7, DISPLAY+14
BARIENS BTCHDATA+2!, BTCHDATA+3*, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8
BARIIEN SETHDR+2!
BARITEM ERACHECK+2~, EXIST+11*, EXIST+12, EXIST+14, BATCHECK+10*, BATCHECK+30*, BATCHECK+31*, BTCHDATA+3, BTCHDATA+4, BTCHDATA+5
, BTCHDATA+6, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+2~, NONE+6*, ONLYONE+3*, ONLYONE+6, ONLYONE+7, ONLYONE+9
, MANY+9*, MANY+10, LISTCHK+6*, LISTCHK+7*, LISTCHK+10, LISTCHK+11, LISTCHK+12, LISTCHK+13, LISTCHK+14, LISTCHK+15
, UPD+7
>> BARMAMT CHECK+22, PREVIOUS+7*, ONLYONE+12*, MANY+16*, CONT+3, CONT+6
>> BARMCNT PREVIOUS+6*, ONLYONE+11*, MANY+15*, CONT+2, CONT+3
>> BARMTCH EXIST+3*, EXIST+5, EXIST+7*, EXIST+9, UPDCHECK+7*, UPDCHECK+9, UPDCHECK+11*, UPDCHECK+12
>> BARNAMT CHECK+22, CHECK+23, NONE+5*, CONT+5, CONT+6
>> BARNCNT NONE+4*, CONT+4, CONT+5
BARPC SETHDR+2!
BARPCIEN SETHDR+2!
>> BARPLB CHECK+24, DISPLAY+10*
>> BARREC DISPLAY+7*, DISPLAY+8, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15
>> BARST DISPLAY+8*, DISPLAY+9
BARTMP CHECK+1~, BATCHECK+14*, BATCHECK+16*, BATCHECK+24*, BATCHECK+35*, LISTCHK+3!
BARTMP( MANY+8, MANY+9, LISTCHK+15*
BARTODAY BATCHECK+2~, BATCHECK+4*, BATCHECK+23
BARXCHK BATCHECK+2~, BATCHECK+7*, BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+28, BATCHECK+31
BATITEM BATCHECK+2~
DA CHECK+6!, CHECK+7*, ADD+2!, UPD+2!, UPD+4*, STORE+6*
DA(1 STORE+5*, STORE+7
DD ADD+6!
DIC CHECK+6!, ADD+2!, ADD+3*, UPD+2!
DIC(0 ADD+4*
DIE CHECK+6!, CHECK+8*, UPD+2!, UPD+3*, STORE+7*
DIR ASK+4!
DIR("?" ASK+7*
DIR("??" ASK+8*
DIR("A" ASK+6*
DIR(0 ASK+5*
DO ADD+6!
DR CHECK+6!, CHECK+9*, ADD+2!, UPD+2!, UPD+5*, UPD+6*, UPD+7*, STORE+8*
DT BATCHECK+3
DUZ(2 CHECK+21, ERACHECK+5, BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+31, MATCH+12, STORE+7, DISPLAY+6, DISPLAY+7
, SETHDR+6, BARXCHK+1, BARXCHK+2
>> I ERACHECK+4*, ERACHECK+5*, ERACHECK+8, ERACHECK+9, ERACHECK+10, EXIST+8, EXIST+13, EXIST+14
>> IENS ERACHECK+8*, ERACHECK+9, MATCH+5*, MATCH+6, MATCH+7, PREVIOUS+7, NONE+5, ONLYONE+12, MANY+16, DISPLAY+14*
, DISPLAY+15
IMP SETHDR+3!
IMP( SETHDR+7
IMPDA CHECK~, CHECK+4, CHECK+7, CHECK+21, ERACHECK+5, ERACHECK+8, EXIST+6, MATCH+5, MATCH+12, UPDCHECK+10
, STORE+5, DISPLAY+6, DISPLAY+7, DISPLAY+14, SETHDR+4
U CHECK+21, ERACHECK+9, ERACHECK+10, EXIST+6, EXIST+8, EXIST+10, EXIST+11, EXIST+13, EXIST+14, BATCHECK+6
, BATCHECK+8, BATCHECK+9, BATCHECK+10, BATCHECK+12, BATCHECK+16, BATCHECK+24, BATCHECK+34, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6
, BTCHDATA+7, BTCHDATA+8, BTCHDATA+9, MATCH+10, MATCH+11, MATCH+12, MATCH+13, MATCH+14, PREVIOUS+3, ONLYONE+4
, ONLYONE+6, ONLYONE+7, MANY+8, MANY+9, MANY+10, MANY+11, LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14
, LISTCHK+15, UPDCHECK+10, STORE+3, STORE+8, DISPLAY+8, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15
X BATCHECK+3*, BATCHECK+19~, BATCHECK+20*, ADD+5*, UPD+2!, BARXCHK~, BARXCHK+1, BARXCHK+2, BARXCHK+3
Y CHECK+15, ASK+10, ADD+7, ADD+9, UPD+2!
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