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

Package: IHS Accounts Receivable

Routine: BARCLRG


Information

BARCLRG ; IHS/SD/LSL - COLLECTION REGISTERS RPTS MAY 30,1996 ; 04/11/2008

Source Information

Source file <BARCLRG.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Accounts Receivable 5 ^BARBAN  EN^BARCBTR  $$MDT2^BARDUTL  EOP^BARUTL  $$EN^BARVDF  
VA Fileman 5 ^DIC  ^DIE  EN1^DIP  $$GET1^DIQ  ^DIR  
Kernel 2 HOME^%ZIS  ^%ZISC  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS Accounts Receivable 5 BAR COL RPT FINAL REPRINT  BAR COLLECTION RPT DETAIL  BAR COLLECTION RPT EXCEPTIONS  BAR COLLECTION RPT FINAL  BARCLU  

Entry Points

Name Comments DBIA/ICR reference
STATUS ;
END
D ;**Detail
F ;**Final
D2 ;EP ;IHS/SD/SDR bar*1.8*4 DD item 4.1.5.1 added line tag
REP ;EP - REPRINT FINAL REPORT
START ;**EP-Collections report using FM print
FLEND ;**End of Final Report -- Summary Page and Postable Batch Status
R ;**Reprint Final
LOOKUP ;
; **Collection Register name lookup
EX ;EP - EXCEPTIONS
PRINT ;EP **Print
E ;**Exceptions
DT ;EP - DETAIL REPORT
FL ;EP - FINAL REPORT
DTEND ;

External References

Name Field # of Occurrence
HOME^%ZIS PRINT+10
^%ZISC PRINT+10
^BARBAN DT+2
EN^BARCBTR FLEND+25
$$MDT2^BARDUTL FLEND+7
EOP^BARUTL DT+8, EX+5, FL+6, REP+6, FLEND+1
$$EN^BARVDF DT+1, FLEND+2
^DIC LOOKUP+5
^DIE FLEND+23, STATUS+12
EN1^DIP PRINT+9
$$GET1^DIQ FLEND+10
^DIR F+18, F+25, STATUS+5
$$VAL^XBDIQ1 FLEND+9, FLEND+13, DTEND+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DT+3
Function Call: WRITE
  • Prompt: !!,"The batch total and the items total balance at $",$FN(BARITTOT,",",2)," for TDN ",$P($G(^BARCOL(DUZ(2),BARBATCH,0)),U,28),".",!
  • Line Location: F+19
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: FLEND+2
Function Call: WRITE
  • Prompt: !!,"DATE:"
  • Line Location: FLEND+3
Function Call: WRITE
  • Prompt: ?25,"COLLECTIONS REPORT -- FINAL (REPRINT)"
  • Line Location: FLEND+4
Function Call: WRITE
  • Prompt: ?25,"COLLECTIONS REPORT -- FINAL"
  • Line Location: FLEND+5
Function Call: WRITE
  • Prompt: ?70,"SUMMARY"
  • Line Location: FLEND+6
Function Call: WRITE
  • Prompt: !,$$MDT2^BARDUTL(DT)
  • Line Location: FLEND+7
Function Call: WRITE
  • Prompt: !!!,"Collections listed above for Batch: "
  • Line Location: FLEND+8
Function Call: WRITE
  • Prompt: $$VAL^XBDIQ1(90051.01,BARBATCH,.01),!,"totaling: "
  • Line Location: FLEND+9
Function Call: WRITE
  • Prompt: $J($FN($$GET1^DIQ(90051.01,BARBATCH,15),",",2),10)
  • Line Location: FLEND+10
Function Call: WRITE
  • Prompt: " are transmitted herewith for appropriate action."
  • Line Location: FLEND+11
Function Call: WRITE
  • Prompt: !!,?50,$P(^VA(200,DUZ,0),U)
  • Line Location: FLEND+12
Function Call: WRITE
  • Prompt: !,?50,$$VAL^XBDIQ1(200,DUZ,29)
  • Line Location: FLEND+13
Function Call: WRITE
  • Prompt: !,?50,$P(^DIC(4,DUZ(2),0),U)
  • Line Location: FLEND+14
Function Call: WRITE
  • Prompt: !!!,"RECEIPT FOR $ ________________ IS HEREBY ACKNOWLEDGED."
  • Line Location: FLEND+15
Function Call: WRITE
  • Prompt: !!!,?55,"___________________",!,?55,"FINANCIAL MANAGEMENT"
  • Line Location: FLEND+16
Function Call: WRITE
  • Prompt: !,"This Batch already in Postable Status!"
  • Line Location: DTEND+3
Function Call: WRITE
  • Prompt: !,"This Batch already in Review Status!"
  • Line Location: DTEND+4
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+10
Routine Call
  • DIE
  • Line Location:
    • FLEND+23
    • STATUS+12
Routine Call
  • DIC
  • Line Location:
    • LOOKUP+5
Routine Call
  • DIR
  • Line Location:
    • F+18
    • F+25
    • STATUS+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAR(90051.02 F+12
^BARCOL( F+7, F+9, F+10, F+11, F+12, F+13, F+14, F+19
^DIC(4 - [#4] FLEND+14
^VA(200 - [#200] FLEND+12

Label References

Name Line Occurrences
D DT+5
DTEND D2+1
E EX+2
END DT+6, EX+3, FL+4, REP+4
F FL+3
LOOKUP D+2, F+2, R+2, E+1
PRINT DT+7, EX+4, FL+5, REP+5
R REP+3
STATUS DTEND+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BARATDN F+12*, F+13, F+19
>> BARBATCH LOOKUP+12*, F+7, F+9, F+10, F+11, F+12, F+13, F+14, F+19, FLEND+9
, FLEND+10, FLEND+19, FLEND+25, DTEND+2, STATUS+9
>> BARBEX LOOKUP+13*, PRINT+4, PRINT+5, PRINT+6
BAREFLG DT+6, EX+3, FL+4, REP+4, LOOKUP+2!, LOOKUP+7*, LOOKUP+8*, LOOKUP+9*, LOOKUP+10, D+3
, F+3, F+17*, F+27*, F+28, R+3, E+2
>> BARFINS EX+1*
>> BARITDA F+6*, F+7*, F+9, F+10, F+11
>> BARITTOT F+6*, F+11*, F+13, F+14, F+19
>> BARREPRT FL+1*, REP+2*, F+1, F+21, F+30, FLEND+4, FLEND+17, FLEND+25
>> BARSEL DT+4*, FL+2*, REP+1*
>> BARSTAT DTEND+2*, DTEND+3, DTEND+4, DTEND+5
>> BY D2+4*, F+31*, R+5*, E+4*
>> DA FLEND+19*, STATUS+9*
>> DHD D2+2*, F+29*, F+30*, R+4*, E+3*
DIC LOOKUP+3*, LOOKUP+6!, PRINT+2*
DIC("S" D+1*, F+1*, R+1*
DIC(0 LOOKUP+4*
DIDEL FLEND+22*, FLEND+24!, STATUS+11*, STATUS+13!
>> DIE FLEND+18*, STATUS+8*
>> DIOEND D2+5*, F+33*, R+7*
DIR F+18!, F+22!, F+26!, STATUS+1!, STATUS+6!
DIR("A" F+18*, F+23*, STATUS+3*
DIR("B" F+24*, STATUS+4*
DIR(0 F+18*, F+22*, STATUS+2*
>> DR FLEND+21*, STATUS+10*
DT FLEND+7
DTOUT LOOKUP+2!, LOOKUP+9
DUOUT LOOKUP+2!, LOOKUP+8
DUZ FLEND+12, FLEND+13
DUZ(2 F+7, F+9, F+10, F+11, F+12, F+13, F+14, F+19, FLEND+14
>> FLDS D2+3*, F+32*, R+6*, E+5*
>> FR PRINT+5*, PRINT+7*
IOSL FLEND+2
>> L PRINT+3*
>> TO PRINT+6*, PRINT+8*
U LOOKUP+13, F+9, F+10, F+11, F+12, F+13, F+14, F+19, FLEND+12, FLEND+14
>> Y LOOKUP+7, LOOKUP+11, LOOKUP+12, F+27, STATUS+7
>> Y(0 LOOKUP+13
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