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

Package: IHS Accounts Receivable

Routine: BARCLU0


Information

BARCLU0 ; IHS/SD/LSL - COLLECTION BATCH ENTRY FOR EOBS ; 07/22/2010

Source Information

Source file <BARCLU0.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Accounts Receivable 6 BARCLIT^BARCLU  CACC^BARCLU01  (DISPLAY,DSPSUB)^BARCLU1  NEWITEM^BARCLU4  EOP^BARUTL  $$EN^BARVDF  
VA Fileman 5 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
IHS VA Utilities 2 ($$DIC,ENP,ENPM,PARSE)^XBDIQ1  ^XBNEW  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Accounts Receivable 3 BARCLU  BARCLU01  BARCLU3  

Entry Points

Name Comments DBIA/ICR reference
REFUND ; EP
; refund
EOB ; EP
; ask PAYOR (A/R Account with DISV(screen)
EITEMEOB ;
DELSUBS ; EP
; REMOVE EOBSUBS
EDITEM ; EP
; edit collection item
CHECKDUP(CHK,LIST) ;EP - CHECK FOR DUPLICATE CHEACKS IN A/R COLLECTION BATCH
KSUB ; EP
; kill eob sub
FILE ;
; file entry and check counter
RESEL ;
EOBEDIT ;
SHOLIST(LIST) ;EP - SHOW LIST OF DUPES
DSPSUB ;
SELPAYOR ; EP
; select A/R Account for Insurer only
CASH ; EP
; cash col
INSSUB ; EP
; insert single sub node
ASK ;
ENDEOB ;
AMT
END ;
ITEMEOB ;
CC ; EP
; credit card
DUPHDR(CNT) ;EP - CHKDUP HEADER
CACC ; EP
GL ; EP
; general ledger entry
SPAYOR ; EP
; from BARCLU3
SAME
CHECK ; EP
; for checks
KILLSUB ; EP
; kill eob sub when the entry is 0
EOBSUB ;EP
; enter data for sub EOB locations and amounts"
LOOP ;EP
; loop subs for entries and amounts

External References

Name Field # of Occurrence
BARCLIT^BARCLU ITEMEOB+10, AMT+17, LOOP+8, LOOP+15, LOOP+20
CACC^BARCLU01 CACC+1
DISPLAY^BARCLU1 AMT+18
DSPSUB^BARCLU1 DSPSUB+1
NEWITEM^BARCLU4 FILE+11
EOP^BARUTL EOB+7
$$EN^BARVDF ITEMEOB+12
^DIC LOOP+8, SELPAYOR+8, INSSUB+14
^DIE REFUND+6, RESEL+8, ITEMEOB+7, ITEMEOB+36, ITEMEOB+63, AMT+2, AMT+12, FILE+8, LOOP+13
^DIK ASK+11, KSUB+3
$$GET1^DIQ ITEMEOB+17, ITEMEOB+21, ITEMEOB+44, CHECKDUP+11, CHECKDUP+12, CHECKDUP+13
^DIR ITEMEOB+51, ASK+4
$$DIC^XBDIQ1 ASK+8, FILE+3, INSSUB+6, DELSUBS+3
ENP^XBDIQ1 INSSUB+11
ENPM^XBDIQ1 DELSUBS+4
PARSE^XBDIQ1 DELSUBS+8
^XBNEW SPAYOR+2, KILLSUB+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"A sequence error has been detected."
  • Line Location: EOB+3
Function Call: WRITE
  • Prompt: !,"Please notate exactly what you were doing"
  • Line Location: EOB+4
Function Call: WRITE
  • Prompt: !,"to provide assistance to the programmers"
  • Line Location: EOB+5
Function Call: WRITE
  • Prompt: !,BARLAST,?10,BARITDA
  • Line Location: EOB+6
Function Call: WRITE
  • Prompt: !,"FILEING ERROR .. SELECT PAYOR ",!
  • Line Location: RESEL+9
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: ITEMEOB+12
Function Call: WRITE
  • Prompt: !!,"ENTERING ",BARCL(.01)
  • Line Location: ITEMEOB+13
Function Call: WRITE
  • Prompt: ?30,"TYPE: ",BARCLID(2)
  • Line Location: ITEMEOB+14
Function Call: WRITE
  • Prompt: ?50,"BATCH TOTAL: ",$$GET1^DIQ(90051.01,BARCLDA,15)
  • Line Location: ITEMEOB+17
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMEOB+22
Function Call: WRITE
  • Prompt: "ITEM ",BARITDA
  • Line Location: ITEMEOB+24
Function Call: WRITE
  • Prompt: ?20,BARCLIT(7)
  • Line Location: ITEMEOB+25
Function Call: WRITE
  • Prompt: !," ^ at Check Number to ask Payor"
  • Line Location: ITEMEOB+26
Function Call: WRITE
  • Prompt: !," ^ at Payor to exit entry"
  • Line Location: ITEMEOB+27
Function Call: WRITE
  • Prompt: !,"TREASURY DEPOSIT/IPAC: "_BARTDN
  • Line Location: ITEMEOB+38
Function Call: WRITE
  • Prompt: !!
  • Line Location: ITEMEOB+54
Function Call: WRITE
  • Prompt: *7,?40,"BALANCE : ",BARCLIT(202.5)
  • Line Location: LOOP+17
Function Call: WRITE
  • Prompt: !,"NEGATIVE BALANCE .. ENTRY REMOVED",!
  • Line Location: LOOP+19
Function Call: WRITE
  • Prompt: !!,"Potential duplicate"_$S(CNT>1:"s",1:"")_" found in the following batch"_$S(CNT>1:"es",1:"")_":"
  • Line Location: DUPHDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOLIST+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHOLIST+10
Routine Call
  • DIE
  • Line Location:
    • REFUND+6
    • RESEL+8
    • ITEMEOB+7
    • ITEMEOB+36
    • ITEMEOB+63
    • AMT+2
    • AMT+12
    • FILE+8
    • LOOP+13
Routine Call
  • DIC
  • Line Location:
    • LOOP+8
    • SELPAYOR+8
    • INSSUB+14
Routine Call
  • DIR
  • Line Location:
    • ITEMEOB+51
    • ASK+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARCOL(2906 - [#90051.01] GET1^DIQ
90051.1101 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARCOL( CHECK+4, ITEMEOB+19, ITEMEOB+20, ITEMEOB+31, AMT+1, AMT+4, AMT+5, CHECKDUP+6, CHECKDUP+9
^DD(90051.1101 LOOP+7, INSSUB+8

Label References

Name Line Occurrences
AMT AMT+4
CACC CC+3, GL+2, CASH+3
CASH EDITEM+7
CC EDITEM+8
CHECK EDITEM+10
CHECKDUP ITEMEOB+44
DELSUBS INSSUB+2
DSPSUB LOOP+8
DUPHDR CHECKDUP+16
EOB EDITEM+6
EOBEDIT ITEMEOB+41, ASK+5
EOBSUB AMT+15
GL EDITEM+11
INSSUB AMT+16
ITEMEOB ITEMEOB+45
KILLSUB LOOP+18, DELSUBS+9
LOOP LOOP+21
REFUND EDITEM+9
RESEL RESEL+9
SAME FILE+12
SHOLIST CHECKDUP+17
SPAYOR RESEL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACCOUNT CHECKDUP+12*, CHECKDUP+14
AMOUNT CHECKDUP+2~, CHECKDUP+13*, CHECKDUP+14
>> BARAC RESEL+3*, RESEL+7, RESEL+9
BARBL EDITEM+2!
>> BARCL( ITEMEOB+13
>> BARCL(7 ASK+12*, FILE+4, FILE+6
>> BARCLDA EDITEM+4, EDITEM+5, CHECK+4, RESEL+4, RESEL+6, ITEMEOB+2, ITEMEOB+4, ITEMEOB+17, ITEMEOB+19, ITEMEOB+20
, ITEMEOB+21, ITEMEOB+31, ITEMEOB+35, ITEMEOB+44, AMT+1, AMT+4, AMT+5, ASK+10, FILE+5, LOOP+3
, LOOP+5, INSSUB+4, CHECKDUP+7
>> BARCLID(12 CHECK+5, ITEMEOB+57
>> BARCLID(13 AMT+6
>> BARCLID(2 ITEMEOB+14
>> BARCLID(22 CHECK+4, ITEMEOB+18, ITEMEOB+32, ITEMEOB+38, AMT+4
>> BARCLIT( LOOP+8, LOOP+16, LOOP+17, LOOP+21, LOOP+22
>> BARCLIT(101 LOOP+8
>> BARCLIT(2 ITEMEOB+11
>> BARCLIT(7 EOBEDIT+3, ITEMEOB+25
>> BARDIC EDITEM+5, RESEL+4, ITEMEOB+2
>> BARITDA EDITEM+3, EOB+2, EOB+6, RESEL+5, ITEMEOB+3, ITEMEOB+24, ITEMEOB+35, ITEMEOB+44, AMT+4, ASK+9
, LOOP+4, LOOP+5, INSSUB+5
>> BARITTYP ITEMEOB+11*
>> BARLAST EOB+2, EOB+6, FILE+6*
>> BARPAYOR EOBEDIT+3*, EOBEDIT+4*, SELPAYOR+7
BARQUIT EOBEDIT+1*, RESEL+2*, ITEMEOB+1!, ITEMEOB+40*, ITEMEOB+41, AMT+19!
>> BARSPAR(2 AMT+9, AMT+15
>> BARSPAR(3 REFUND+3
BART INSSUB+9*, INSSUB+10~, DELSUBS+2~, DELSUBS+5*, DELSUBS+6*, DELSUBS+7
BART( DELSUBS+6
BART(8 INSSUB+12
>> BARTDN ITEMEOB+31*, ITEMEOB+38
>> BARX EDITEM+6, EDITEM+7, EDITEM+8, EDITEM+9, EDITEM+10, EDITEM+11
CHECK CHECKDUP+2~
CHECNUM CHECKDUP+2~
CHK CHECKDUP~, CHECKDUP+1, CHECKDUP+6, CHECKDUP+9
CNT CHECKDUP+4*, CHECKDUP+10*, CHECKDUP+14, CHECKDUP+16, DUPHDR~, DUPHDR+1, SHOLIST+1~, SHOLIST+2*, SHOLIST+4*, SHOLIST+5
, SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
COLBAT CHECKDUP+2~, CHECKDUP+5*, CHECKDUP+6*, CHECKDUP+7, CHECKDUP+9, CHECKDUP+11, CHECKDUP+12, CHECKDUP+13
COLNAM CHECKDUP+2~, CHECKDUP+11*, CHECKDUP+14
>> D0 ITEMEOB+35*
>> D1 ITEMEOB+35*
DA EDITEM+3*, RESEL+5*, ITEMEOB+3*, ASK+7!, ASK+9*, FILE+2!, FILE+5*, LOOP+2!, LOOP+10*, INSSUB+3!
, DELSUBS+7*
DA(1 EDITEM+4*, RESEL+6*, ITEMEOB+4*, ASK+10*, LOOP+4*, INSSUB+5*
DA(2 LOOP+3*, INSSUB+4*
DIC LOOP+2!, LOOP+5*, LOOP+9, SELPAYOR+2!, SELPAYOR+3*, INSSUB+3!, INSSUB+6*, INSSUB+9
DIC("A" LOOP+8*, SELPAYOR+5*
DIC("B" SELPAYOR+7*
DIC("DR" INSSUB+13*
DIC("P" LOOP+7*, LOOP+14!, INSSUB+8*
DIC("S" SELPAYOR+6*
DIC(0 LOOP+6*, LOOP+8*, SELPAYOR+4*, INSSUB+7*
DIDEL REFUND+5*, REFUND+7!, ITEMEOB+6*, ITEMEOB+8!, ITEMEOB+34*, ITEMEOB+37!, ITEMEOB+62*, ITEMEOB+64!, AMT+10*, AMT+13!
, FILE+7*, FILE+9!, LOOP+12*, LOOP+14!
DIE EDITEM+2!, EDITEM+5*, RESEL+4*, ITEMEOB+2*, FILE+2!, FILE+3*, LOOP+2!, LOOP+9*, INSSUB+3!, KSUB+2
, DELSUBS+2~, DELSUBS+3*
>> DIK ASK+8*, KSUB+2*
DIR ITEMEOB+46!, ASK+1!
DIR("A" ITEMEOB+50*
DIR("B" ITEMEOB+48*, ASK+3*
DIR(0 ITEMEOB+47*, ASK+2*
DOCARE ITEMEOB+43~, ITEMEOB+45, ITEMEOB+52*, ITEMEOB+53!
DR CHECK+2*, CHECK+4*, CHECK+5*, CC+2*, GL+2*, REFUND+2*, REFUND+3*, REFUND+4*, CASH+2*, EOBEDIT+2!
, RESEL+7*, ITEMEOB+5*, ITEMEOB+28*, ITEMEOB+32*, ITEMEOB+56*, ITEMEOB+57*, AMT*, AMT+1*, AMT+3!, AMT+6*
, AMT+9*, AMT+12, FILE+2!, FILE+4*, LOOP+2!, LOOP+11*, INSSUB+3!
DUZ(2 CHECK+4, ITEMEOB+19, ITEMEOB+20, ITEMEOB+31, AMT+1, AMT+4, AMT+5, CHECKDUP+6, CHECKDUP+9
ITEM CHECKDUP+2~, CHECKDUP+8*, CHECKDUP+9*, CHECKDUP+12, CHECKDUP+13, CHECKDUP+14
LIST ITEMEOB+43~, ITEMEOB+44, ITEMEOB+45, ITEMEOB+53!, CHECKDUP~, CHECKDUP+3!, CHECKDUP+15, CHECKDUP+17, SHOLIST~
LIST( CHECKDUP+14*, SHOLIST+4, SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
U CHECK+4, ITEMEOB+19, ITEMEOB+20, ITEMEOB+31, AMT+1, AMT+4, AMT+5, LOOP+7, INSSUB+8, CHECKDUP+14
, SHOLIST+6, SHOLIST+7, SHOLIST+8, SHOLIST+9
>> X INSSUB+12*
>> Y RESEL+2, RESEL+3, ITEMEOB+40, ITEMEOB+52, ASK+5, ASK+6, LOOP+8, LOOP+10
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