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

Package: IHS Accounts Receivable

Routine: BAR50P09


Information

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

Source Information

Source file <BAR50P09.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: 3

Package Total Caller Graph
IHS Accounts Receivable 3 BAR50BPR  BAR50P00  BAR50PA1  

Entry Points

Name Comments DBIA/ICR reference
CHECK(IMPDA) ; EP
SETHDR ;
PREVIOUS ;
; This ERA chk previously matched to coll. batch
; W !!,BARCHECK," previously matched to batch ",$P(BARCHK(BARCHECK,BAREBTCH,BAREITM),U)," Item: ",BAREITM ;bar*1.*20 REQ3
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
BATCHECK ;
DISPLAY ;
MATCH ;
; Loop chks & tell user matched status
BTCHDATA ;

External References

Name Field # of Occurrence
H^%DTC BATCHECK+2, BATCHECK+21
$$BARXCHK^BAREDP09 BATCHECK+7
WHD^BARRHD HDB+4
EOP^BARUTL CHECK+11, CHECK+23, BATCHECK+29, CONT+11
$$EN^BARVDF LISTCHK+2
FILE^DICN ADD+6
^DIE CHECK+10, UPD+8, STORE+9
$$GET1^DIQ ERACHECK+8, BATCHECK+20, BATCHECK+28, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+9, MATCH+8, MATCH+9
, PREVIOUS+5, PREVIOUS+6, PREVIOUS+8, NONE+6, ONLYONE+11, ONLYONE+12, ONLYONE+15, MANY+17, 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: !!?1,"IMPORT FILE SUMMARY:"
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !?7,"TOTAL SEGMENTS PROCESSED........:",$J($P($G(^BAREDI("I",DUZ(2),IMPDA,15,0)),U,3),12)
  • Line Location: CHECK+19
Function Call: WRITE
  • Prompt: !?7,"TOTAL AMOUNT PROCESSED..........$",$J($FN((+$G(BARMAMT)+$G(BARNAMT)),",",2),12)
  • Line Location: CHECK+20
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+21
Function Call: WRITE
  • Prompt: !!?1,"* - Indicates a PLB segment has been located.",!?5,"Collection item balance may not match check balance!"
  • Line Location: CHECK+22
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,"E"),"@",1)
  • Line Location: BATCHECK+28
Function Call: WRITE
  • Prompt: !!,"#"_BARCHECK_" BPR02: ",$FN($$GET1^DIQ(90056.02011,IENS,.03),",",2)
  • Line Location: MATCH+8
Function Call: WRITE
  • Prompt: !?4,"TRN02: ",$$GET1^DIQ(90056.02011,IENS,.01)
  • Line Location: MATCH+9
Function Call: WRITE
  • Prompt: ?40,"Matching... "
  • Line Location: MATCH+10
Function Call: WRITE
  • Prompt: !!,BARCHECK," previously matched to batch ",$P(BARCHK(BARCHECK,BAREBTCH,BAREITM),U)," Item: ",BAREITM
  • Line Location: PREVIOUS+2
Function Call: WRITE
  • Prompt: " Previously matched"
  • Line Location: PREVIOUS+3
Function Call: WRITE
  • Prompt: !,"Matched to batch ",$P(BARCHK(BARCHECK,BAREBTCH,BAREITM),U),?50," ITEM: ",BAREITM
  • Line Location: PREVIOUS+4
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.01,BAREBTCH_",",28)
  • Line Location: PREVIOUS+5
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.1101,BAREITM_","_BAREBTCH_",",20)
  • Line Location: PREVIOUS+6
Function Call: WRITE
  • Prompt: "not done!"
  • Line Location: NONE+3
Function Call: WRITE
  • Prompt: !,"Match to: COLLECTION BATCH/ITEM NOT FOUND. PLACING ON NOT FOUND REPORT!"
  • Line Location: NONE+4
Function Call: WRITE
  • Prompt: "done!"
  • Line Location: ONLYONE+6
Function Call: WRITE
  • Prompt: !,"Match to: ",$P(BARCHK(BARCHECK,BARBATCH,BARITEM),U),?50," ITEM: ",BARITEM
  • Line Location: ONLYONE+7
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.01,BARBATCH_",",28)
  • Line Location: ONLYONE+11
Function Call: WRITE
  • Prompt: !?5,"TDN/IPAC: ",$$GET1^DIQ(90051.1101,BARITEM_","_BARBATCH_",",20)
  • Line Location: ONLYONE+12
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+4
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+6
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+8
Function Call: WRITE
  • Prompt: !,?40,"TOTAL.....$",$J($FN((+$G(BARMAMT)+$G(BARNAMT)),",",2),12)
  • Line Location: CONT+9
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
^BARECHK - [#90056.22] EXIST+5, EXIST+9, EXIST+10, UPDCHECK+11
^BARECHK("B" EXIST+1, EXIST+4, UPDCHECK+3, UPDCHECK+10
^BAREDI("I" CHECK+19, ERACHECK+5, MATCH+14, DISPLAY+6, DISPLAY+7

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H BATCHECK+1~, BATCHECK+3, 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+9*, EXIST+11, EXIST+12, BATCHECK+1~, BATCHECK+9*, BATCHECK+18*, BATCHECK+20, BATCHECK+28, BATCHECK+31
, BTCHDATA+3, BTCHDATA+4, BTCHDATA+5, BTCHDATA+6, BTCHDATA+7, BTCHDATA+9, BTCHDATA+10, MATCH+2~, NONE+7*, ONLYONE+2*
, ONLYONE+3, ONLYONE+7, ONLYONE+8, ONLYONE+11, ONLYONE+12, 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+1~, 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+9, BTCHDATA+10, MATCH+2~, MATCH+5*, MATCH+6*
, MATCH+7, MATCH+8, MATCH+12, MATCH+13, MATCH+14, MATCH+15, MATCH+16, PREVIOUS+4, ONLYONE+2, ONLYONE+3
, ONLYONE+4, ONLYONE+7, ONLYONE+8, MANY+2, MANY+10, MANY+11, LISTCHK+5, LISTCHK+7, LISTCHK+10, LISTCHK+12
, LISTCHK+13, LISTCHK+14
BARCHK CHECK+1~
BARCHK( ERACHECK+8*, ERACHECK+9*, EXIST+7*, EXIST+12*, EXIST+13*, 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+9*, BTCHDATA+10!
, MATCH+6, MATCH+12, MATCH+13, MATCH+15, MATCH+16, PREVIOUS+4, ONLYONE+2, ONLYONE+3, ONLYONE+4, ONLYONE+7
, ONLYONE+8*, 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+10, ADD+5
>> BARCKIEN CHECK+24, EXIST+3*, EXIST+4*, EXIST+5, EXIST+7, EXIST+9, EXIST+10, UPDCHECK+5, UPDCHECK+8*, UPDCHECK+10*
, UPDCHECK+11, UPDCHECK+14, ADD+8*, ADD+9*, UPD+4
BARCNT CHECK+1~, CHECK+3, ERACHECK+3*, ERACHECK+6*, BTCHDATA+10*, 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+12*, PREVIOUS+4, PREVIOUS+5, PREVIOUS+6
BAREITM MATCH+2~, MATCH+13*, PREVIOUS+4, PREVIOUS+6
>> BARI ERACHECK+8*, EXIST+1, EXIST+4, 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+9
BARIIEN SETHDR+2!
BARITEM ERACHECK+2~, EXIST+10*, EXIST+11, EXIST+13, BATCHECK+10*, BATCHECK+30*, BATCHECK+31*, BTCHDATA+3, BTCHDATA+4, BTCHDATA+5
, BTCHDATA+6, BTCHDATA+7, BTCHDATA+9, BTCHDATA+10, MATCH+2~, NONE+7*, ONLYONE+3*, ONLYONE+7, ONLYONE+8, ONLYONE+12
, MANY+9*, MANY+10, LISTCHK+6*, LISTCHK+7*, LISTCHK+10, LISTCHK+11, LISTCHK+12, LISTCHK+13, LISTCHK+14, LISTCHK+15
, UPD+7
>> BARMAMT CHECK+20, PREVIOUS+8*, ONLYONE+15*, MANY+17*, CONT+6, CONT+9
>> BARMCNT PREVIOUS+7*, ONLYONE+14*, MANY+16*, CONT+5, CONT+6
>> BARMTCH EXIST+2*, EXIST+4, EXIST+6*, EXIST+8, UPDCHECK+7*, UPDCHECK+10, UPDCHECK+12*, UPDCHECK+13
>> BARNAMT CHECK+20, CHECK+21, NONE+6*, CONT+8, CONT+9
>> BARNCNT NONE+5*, CONT+7, CONT+8
BARPC SETHDR+2!
BARPCIEN SETHDR+2!
>> BARPLB CHECK+22, 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+1~, BATCHECK+3*, BATCHECK+23
BARXCHK BATCHECK+1~, BATCHECK+7*, BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+28, BATCHECK+31
BATITEM BATCHECK+1~
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+2
DUZ(2 CHECK+19, ERACHECK+5, BATCHECK+16, BATCHECK+17, BATCHECK+18, BATCHECK+31, MATCH+14, STORE+7, DISPLAY+6, DISPLAY+7
, SETHDR+6
>> I ERACHECK+4*, ERACHECK+5*, ERACHECK+7, ERACHECK+8, ERACHECK+9, EXIST+7, EXIST+12, EXIST+13
>> IENS ERACHECK+7*, ERACHECK+8, MATCH+7*, MATCH+8, MATCH+9, PREVIOUS+8, NONE+6, ONLYONE+15, MANY+17, DISPLAY+14*
, DISPLAY+15
IMP SETHDR+3!
IMP( SETHDR+7
IMPDA CHECK~, CHECK+4, CHECK+7, CHECK+19, ERACHECK+5, ERACHECK+7, EXIST+5, MATCH+7, MATCH+14, UPDCHECK+11
, STORE+5, DISPLAY+6, DISPLAY+7, DISPLAY+14, SETHDR+4
U CHECK+19, ERACHECK+8, ERACHECK+9, EXIST+5, EXIST+7, EXIST+9, EXIST+10, EXIST+12, EXIST+13, 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+9, BTCHDATA+10, MATCH+12, MATCH+13, MATCH+14, MATCH+15, MATCH+16, PREVIOUS+4, ONLYONE+4
, ONLYONE+7, ONLYONE+8, MANY+8, MANY+9, MANY+10, MANY+11, LISTCHK+10, LISTCHK+12, LISTCHK+13, LISTCHK+14
, LISTCHK+15, UPDCHECK+11, STORE+3, STORE+8, DISPLAY+8, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+15
X BATCHECK+2*, BATCHECK+19~, BATCHECK+20*, ADD+5*, UPD+2!
Y CHECK+15, BATCHECK+1~, MATCH+2~, ASK+10, ADD+7, ADD+9, UPD+2!, CONT+3~
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