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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BARAST

Package: IHS Accounts Receivable

Routine: BARAST


Information

BARAST ; IHS/SD/LSL - ACCOUNT STATEMENT ;

Source Information

Source file <BARAST.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 4 ^DIC  ^DIE  EN^DIQ1  ^DIR  
IHS Accounts Receivable 3 $$CDT^BARDUTL  ($$BAL,EOP)^BARUTL  $$EN^BARVDF  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR PAS PAT ACCT HEADER  

Entry Points

Name Comments DBIA/ICR reference
RPR ; EP
; re-print one statement
HDR ;STATEMENT HEADER
OFL ;set one
FLAG ;EP - flag accounts for statements
DEV ;
; ask for printer device
ONE ;
; ONE ACCOUNT
TPRT ;LIST ONE TRANSACTION
FTR ;
; STATEMENT FOOTER
KILL ;
; clean up
FDT ;file date in statement sub-file
ALTR ;EP - add the statement header text
LOOP ;EP
; loop though ac x-ref

External References

Name Field # of Occurrence
^%ZIS DEV+4, DEV+14
^%ZISC KILL+3
^%ZTLOAD DEV+9
$$CDT^BARDUTL HDR+17
$$BAL^BARUTL ONE+10
EOP^BARUTL FLAG+34
$$EN^BARVDF HDR+3, ALTR+7
^DIC RPR+6, RPR+12, FDT+5, ALTR+4, FLAG+12, FLAG+25, OFL+6
^DIE ALTR+14, OFL+11
EN^DIQ1 ONE+8, TPRT+5
^DIR FLAG+5
$$FMADD^XLFDT LOOP+2, LOOP+3, RPR+17, FLAG+15, FLAG+29
$$FMTE^XLFDT HDR+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BARAST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RPR+2
Function Call: WRITE
  • Prompt: !,$P(BART(90050.03,DA,.01),"@",1)
  • Line Location: TPRT+8
Function Call: WRITE
  • Prompt: ?15,$P(BART(90050.03,DA,4),"-",1,2)
  • Line Location: TPRT+9
Function Call: WRITE
  • Prompt: ?27,$E(BART(90050.03,DA,101),1,30)
  • Line Location: TPRT+10
Function Call: WRITE
  • Prompt: ?65,$J($FN(BART(90050.03,DA,3.5),"P,",2),12)
  • Line Location: TPRT+12
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,$$FMTE^XLFDT(DT),?20,"S T A T E M E N T O F A C C O U N T",?70,"Page: ",BARPG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!,"FOR ACCOUNT: ",BARC(90050.02,BARAC,.01)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?13
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ", "
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: " "
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !!,"Statement Covers Period From: ",$$CDT^BARDUTL(BARLDT)," To: ",$$CDT^BARDUTL(BAREDT)
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !!,?40,"BEGINNING BALANCE: ",?65,$J($FN(BARSBAL,",P",2),12)
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !!,BARDASH
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,?26,"T R A N S A C T I O N S "
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: !,"Trans Date",?15,"Bill#",?27,"Description",?70,"Amount",!
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !!,?18,"TOTAL:"
  • Line Location: FTR+2
Function Call: WRITE
  • Prompt: ?65,$J($FN(BARTOT,",P",2),12)
  • Line Location: FTR+3
Function Call: WRITE
  • Prompt: !,BARDASH
  • Line Location: FTR+4
Function Call: WRITE
  • Prompt: !!,?46,"BALANCE DUE: ",?65,$J($FN(BAREBAL,",P",2),12)
  • Line Location: FTR+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: FTR+6
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: ALTR+7
Function Call: WRITE
  • Prompt: !!,"You may enter text that will appear at the top of the account"
  • Line Location: ALTR+8
Function Call: WRITE
  • Prompt: !,"statements. Typically this will be facility name and address,"
  • Line Location: ALTR+9
Function Call: WRITE
  • Prompt: !,"business office phone number, point of contact, and special"
  • Line Location: ALTR+10
Function Call: WRITE
  • Prompt: !,"messages. The statements will print up to 10 lines of text.",!
  • Line Location: ALTR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FLAG+33
Routine Call
  • DIE
  • Line Location:
    • ALTR+14
    • OFL+11
Routine Call
  • DIC
  • Line Location:
    • RPR+6
    • RPR+12
    • FDT+5
    • ALTR+4
    • FLAG+12
    • FLAG+25
    • OFL+6
Routine Call
  • DIR
  • Line Location:
    • FLAG+5
Routine Call
  • %ZIS
  • Line Location:
    • DEV+4
    • DEV+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARTBL - [#90052.02] Classic Fileman Calls
^BAR(90052.03 - [#90052.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BAR(90052.03 - [#90052.03] BARAST+3, HDR+6, HDR+8
^BARAC( BARAST+4, LOOP+5, LOOP+7, ONE+9, FDT+8!, FLAG+31, OFL+1, OFL+2*
^BARTR( ONE+15, ONE+19

Label References

Name Line Occurrences
ALTR BARAST+3
DEV RPR+22
FDT LOOP+9
FTR ONE+25
HDR ONE+13, ONE+18
KILL RPR+25
OFL FLAG+17, FLAG+31
ONE LOOP+8, RPR+24
TPRT ONE+23

Naked Globals

Name Field # of Occurrence
^(0 HDR+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+2*
>> %ZIS("A" DEV+3*
BARAC LOOP+6*, LOOP+7*, KILL+2!, RPR+9*, ONE+5, ONE+9, ONE+10, ONE+15, FDT+1, FDT+8
, HDR+9, HDR+12, HDR+16, FLAG+14*, FLAG+30*, FLAG+31*, FLAG+35!, OFL+1, OFL+2, OFL+3
BARANS FLAG+7*, FLAG+8, FLAG+19, FLAG+35!
BARBDT LOOP+3*, LOOP+5, FLAG+15*, FLAG+29*, FLAG+35!, OFL+5
BARC KILL+2!, ONE+2!
BARC( HDR+9, HDR+12, HDR+16
BARCNT FLAG+16*, FLAG+18, FLAG+30*, FLAG+32, FLAG+35!, OFL+12*
>> BARDASH HDR+1*, HDR+19, FTR+4
>> BARDAY ONE+20*, ONE+21, ONE+22
>> BAREBAL ONE+11*, ONE+24*, FTR+5
BAREDT LOOP+2*, KILL+2!, RPR+17*, ONE+9, ONE+22, HDR+17
BARFL1 DEV+15, KILL+2!, RPR+18*
BARLDT LOOP+4*, LOOP+5*, LOOP+7, KILL+2!, ONE+9*, ONE+10, ONE+21, FDT+8, HDR+17
>> BARPG ONE+12*, HDR+4*, HDR+5
>> BARSBAL ONE+10*, ONE+11, ONE+24, HDR+18
>> BART( TPRT+6*, TPRT+7, TPRT+8, TPRT+9, TPRT+10, TPRT+11, TPRT+12
>> BARTDT ONE+19*, ONE+20
>> BARTOT ONE+14*, ONE+24, TPRT+7*, FTR+3
BARTYP FLAG+28*, FLAG+31, FLAG+35!
DA RPR+15*, ONE+5*, ONE+14*, ONE+15*, ONE+19, FDT+7*, TPRT+6, TPRT+7, TPRT+8, TPRT+9
, TPRT+10, TPRT+11, TPRT+12, HDR+2~, HDR+6*, HDR+7, HDR+8, ALTR+6*, OFL+8*
DA(1 RPR+8*, FDT+1*, OFL+3*
DIC RPR+3!, RPR+4*, RPR+10*, RPR+13!, ONE+4*, FDT+3*, TPRT+2*, ALTR+1*, FLAG+9!, FLAG+10*
, FLAG+20*, FLAG+26!, OFL+4*, OFL+9
DIC("A" FLAG+23*
DIC("B" FLAG+24*
DIC("S" RPR+11*, FLAG+22*
DIC(0 RPR+5*, FDT+4*, ALTR+2*, FLAG+11*, FLAG+21*, OFL+5*
>> DIE ALTR+12*, OFL+9*
DIQ ONE+3!, ONE+6*, TPRT+1!, TPRT+3*
DIR FLAG+1!, FLAG+6!
DIR("A" FLAG+2*
DIR("B" FLAG+3*
DIR(0 FLAG+4*
>> DR ONE+7*, TPRT+4*, ALTR+13*, OFL+10*
DT LOOP+2, LOOP+3, FDT+2, HDR+5, FLAG+15, FLAG+29
DUZ(2 BARAST+4, LOOP+5, LOOP+7, ONE+9, ONE+15, ONE+19, FDT+8, FLAG+31, OFL+1, OFL+2
I RPR+19~, RPR+20*, HDR+7*, HDR+8, HDR+10~, HDR+11*, HDR+12, HDR+13, HDR+14, HDR+15
, HDR+16
IO DEV+6
IO("S" DEV+12, KILL+3
IO(0 DEV+6
ION DEV+13
>> IOP DEV+13*
IOSL ONE+16, FLAG+33
>> POP DEV+5
>> X FDT+2*, ALTR+3*, OFL+5*
>> Y RPR+7, RPR+8, RPR+9, RPR+14, RPR+15, RPR+17, FDT+6, FDT+7, ALTR+5, ALTR+6
, FLAG+7, FLAG+8, FLAG+13, FLAG+14, FLAG+27, FLAG+28, OFL+7, OFL+8
>> ZTDESC DEV+7*
>> ZTRTN BARAST+7*, RPR+16*
>> ZTSAVE( RPR+20*
ZTSK DEV+8!, DEV+10, DEV+11, RPR+21!, RPR+23
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 |  Naked Globals |  Local Variables |  All