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

Package: IHS Accounts Receivable

Routine: BARBL


Information

BARBL ; IHS/SD/LSL - AGE DAY LETTER AND LIST ; 07/30/2008

Source Information

Source file <BARBL.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Accounts Receivable 3 ($$MDT2,$$SDT)^BARDUTL  EOP^BARUTL  $$EN^BARVDF  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ($$DIC,ENP)^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR AGE DAY LETTER & LIST  

Entry Points

Name Comments DBIA/ICR reference
CNT
BARPG ;EP PAGE CONTROLLER
; this utility uses variables BARPG("HDR"),BARPG("DT"),BARPG("LINE"),BARPG("PG")
; kill variables by D EBARPG
BARHDR ;EP
; write page header
BARHD ;EP
; Write column header / message
ONEAC ;ONE A/R ACCOUNT
AGE ; *
; * dequeing compute point
LIST ;** list bills
SELACC ;
; ** select accounts to print
SUMMARY ;
EBARPG ;
EOP ;end of page
QUE ;QUE
PG ;
LETTER ;
; ** print letter
PRINT ;
EXIT ;clean up and quit
FMDT(X) ;
; cvt fmdt to mm/dd/yyyy

External References

Name Field # of Occurrence
^%ZIS BARBL+34, BARBL+39
HOME^%ZIS BARBL+36
^%ZISC AGE+11
^%ZTLOAD QUE+6
$$MDT2^BARDUTL LETTER+8
$$SDT^BARDUTL FMDT+2, BARHDR+9
EOP^BARUTL EOP+3
$$EN^BARVDF LETTER+2, BARHDR+2, EXIT+3
^DIC SELACC+7
$$GET1^DIQ AGE+3, LETTER+16, LIST+10, SUMMARY+5
^DIR BARBL+12, BARBL+21, BARBL+29, SELACC+17
$$DIC^XBDIQ1 SELACC+4
ENP^XBDIQ1 ONEAC+5, PRINT+8, LETTER+3, LETTER+19, LIST+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Enter the minimum age (in days) of bills to be itemized."
  • Line Location: BARBL+9
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: LETTER+2
Function Call: WRITE
  • Prompt: !,BARLT(100,BARL)
  • Line Location: LETTER+6
Function Call: WRITE
  • Prompt: !,"DATE:",?10,$$MDT2^BARDUTL(DT)
  • Line Location: LETTER+8
Function Call: WRITE
  • Prompt: !!,"TO:",?10,$G(BARA(.01))
  • Line Location: LETTER+10
Function Call: WRITE
  • Prompt: !,?10,$G(BARA(1.01))
  • Line Location: LETTER+13
Function Call: WRITE
  • Prompt: !,?10,BARA(DR)
  • Line Location: LETTER+14
Function Call: WRITE
  • Prompt: !!,"FROM: ",$G(BARUSR(29))," address for payments"
  • Line Location: LETTER+20
Function Call: WRITE
  • Prompt: !,?5,BARF(.14)
  • Line Location: LETTER+21
Function Call: WRITE
  • Prompt: !,?5,BARF(.15)
  • Line Location: LETTER+22
Function Call: WRITE
  • Prompt: !,?5,BARF(.16)
  • Line Location: LETTER+23
Function Call: WRITE
  • Prompt: !,?5,BARF(.17)
  • Line Location: LETTER+24
Function Call: WRITE
  • Prompt: !,BARLT(100,BARL)
  • Line Location: CNT+0
Function Call: WRITE
  • Prompt: !,"Regarding Past due bills over ",BARAGE," days totaling $ ",$FN(BARTOT,",",2)
  • Line Location: CNT+2
Function Call: WRITE
  • Prompt: !,BARLT(100,BARL)
  • Line Location: CNT+4
Function Call: WRITE
  • Prompt: !,BARLT(100,BARL)
  • Line Location: CNT+5
Function Call: WRITE
  • Prompt: ?39,BARTMP2
  • Line Location: LIST+20
Function Call: WRITE
  • Prompt: "_"
  • Line Location: LIST+25
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",?67,$J("$"_$FN(BARTOT,",",2),12)
  • Line Location: LIST+31
Function Call: WRITE
  • Prompt: !!,"TOTAL ALL ACCOUNTS:",?50,$J($FN(BARTOT,",",2),12),!!
  • Line Location: SUMMARY+10
Function Call: WRITE
  • Prompt: !!,?15,"E N D O F R E P O R T",!!
  • Line Location: SUMMARY+11
Function Call: WRITE
  • Prompt: !,"Select individual A/R accounts or hit RETURN for ALL accounts."
  • Line Location: SELACC+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SELACC+10
Function Call: WRITE
  • Prompt: !,BARSAC(DA)
  • Line Location: SELACC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SELACC+12
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: BARHDR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: BARHDR+3
Function Call: WRITE
  • Prompt: ?(IOM-40-$L(BARPG("HDR"))/2),BARPG("HDR")
  • Line Location: BARHDR+8
Function Call: WRITE
  • Prompt: ?(IOM-24),$$SDT^BARDUTL(DT)
  • Line Location: BARHDR+9
Function Call: WRITE
  • Prompt: ?(IOM-10),"PAGE: ",BARPG("PG")
  • Line Location: BARHDR+10
Function Call: WRITE
  • Prompt: !,BARPG("LINE")
  • Line Location: BARHDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: BARHD+2
Function Call: WRITE
  • Prompt: "Policy Holder",?25,"Policy #",?39,"Claim #",?49,"DOS",?58,$J("Amt Bld",10),?69,$J("Balance",10)
  • Line Location: BARHD+4
Function Call: WRITE
  • Prompt: !,"PT. SS #",?49,"DOB"
  • Line Location: BARHD+5
Function Call: WRITE
  • Prompt: !,BARDASH,!
  • Line Location: BARHD+6
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF")
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EOP+2
Routine Call
  • %ZIS
  • Line Location:
    • BARBL+36
Routine Call
  • DIC
  • Line Location:
    • SELACC+7
Routine Call
  • DIR
  • Line Location:
    • BARBL+12
    • BARBL+21
    • BARBL+29
    • SELACC+17
Routine Call
  • %ZIS
  • Line Location:
    • BARBL+34
    • BARBL+39

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^ABMDPARM(1 - [#9002274.5] GET1^DIQ
^BARAC(2906 - [#90050.02] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARBL( AGE+6, ONEAC+2, ONEAC+3, ONEAC+8, ONEAC+10, ONEAC+11, LIST+9
^DPT - [#2] LIST+11
^TMP("BAR" AGE+2!, ONEAC+14*, ONEAC+15*, PRINT+6, LIST+5, LIST+6, SUMMARY+4

Label References

Name Line Occurrences
$$FMDT LIST+16
BARHDR LIST+4, SUMMARY+2
CNT LETTER+17
EOP CNT+6, LIST+29, LIST+32, SUMMARY+7, SUMMARY+12
EXIT BARBL+36, AGE+12
LETTER PRINT+9
LIST PRINT+11
ONEAC AGE+6, AGE+9
PG LIST+30, SUMMARY+8
PRINT AGE+10
QUE BARBL+36
SELACC BARBL+16, SELACC+20
SUMMARY PRINT+2

Naked Globals

Name Field # of Occurrence
^( PRINT+6, SUMMARY+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS BARBL+32*
>> %ZIS("A" BARBL+33*
BARA PRINT+7!, EXIT+1!
BARA( LETTER+10, LETTER+13, LETTER+14, LIST+3
BARAC SUMMARY+3*, SUMMARY+4*, SUMMARY+5, EXIT+1!
BARACDA AGE+5*, AGE+6*, AGE+8*, AGE+9*, ONEAC+2, ONEAC+14, ONEAC+15, PRINT+5*, PRINT+6*, PRINT+8
, LIST+5, LIST+6, EXIT+1!
BARAGE BARBL+15*, ONEAC+6, CNT+2, LIST+3, SUMMARY+1, EXIT+1!
BARB LIST+7!, EXIT+1!
BARB( LIST+14
BARB(101 LIST+19
BARB(102 LIST+16
BARB(13 LIST+17
BARB(15 LIST+18
BARB(701 LIST+12
BARB(702 LIST+13
>> BARBLDA LIST+2*, LIST+6*, LIST+8, LIST+9
BARBLDS EXIT+1!
BARCNT SUMMARY+3*, EXIT+2!
>> BARDASH BARHDR+6*, BARHD+6
>> BARDOB LIST+10*, LIST+21
BARF LETTER+18!, LETTER+25!
BARF( LETTER+21, LETTER+22, LETTER+23, LETTER+24
BARFDA LETTER+16*, LETTER+17, LETTER+19, EXIT+2!
BARJOB EXIT+2!
BARL LETTER+4*, LETTER+6*, CNT*, CNT+4*, CNT+5*, EXIT+2!
BARLT EXIT+2!
BARLT(100 LETTER+6, CNT, CNT+4, CNT+5
BARPG EXIT+1!
BARPG("DT" EBARPG+1!
BARPG("HDR" LIST+3*, SUMMARY+1*, BARHDR+4, BARHDR+8, BARHD+3, EBARPG+1!
BARPG("LINE" BARHDR+5*, BARHDR+11, EBARPG+1!
BARPG("PG" BARPG+4*, BARHDR+7*, BARHDR+10, EBARPG+1!
>> BARPIEN LIST+9*, LIST+10, LIST+11
BARQUIT BARBL+17, PRINT+3, PRINT+6, PRINT+10, LIST+6, SUMMARY+4, SUMMARY+9, EXIT+2!, EOP+4*
BARSAC AGE+4, AGE+7, SELACC+2!, SELACC+8, SELACC+19!, EXIT+1!
BARSAC( AGE+9, SELACC+7*, SELACC+11
BARSBY BARBL+24*, BARBL+31*, ONEAC+12, EXIT+1!
BARSSN LIST+1~, LIST+11*, LIST+22
>> BARSUM BARBL+23*, BARBL+25, PRINT+4
BARSVAL ONEAC+8*, ONEAC+9, ONEAC+10*, ONEAC+11*, ONEAC+12*, ONEAC+13*, ONEAC+14, LIST+2*, LIST+5*, LIST+6
, EXIT+2!
BARSVC AGE+3*, ONEAC+7, EXIT+2!
BART ONEAC+4!, EXIT+2!
BART( ONEAC+6
BART(10 ONEAC+7
BART(15 ONEAC+14, ONEAC+15
BARTMP1 LIST+1~, LIST+14*, LIST+15
BARTMP2 LIST+1~, LIST+14*, LIST+20
BARTOT PRINT+6*, CNT+2, LIST+31, SUMMARY+3*, SUMMARY+4*, SUMMARY+10, EXIT+2!
>> BARUSR(29 LETTER+20
>> DA ONEAC+1*, ONEAC+2*, ONEAC+3, ONEAC+5, ONEAC+8, ONEAC+10, ONEAC+11, ONEAC+14, SELACC+9*, SELACC+11*
DIC SELACC+4*, EXIT+1!
DIC("S" SELACC+6*
DIC(0 SELACC+5*
DIR BARBL+10!, BARBL+13!, BARBL+22!, BARBL+30!, SELACC+13!
DIR("A" BARBL+18*, BARBL+27*, SELACC+16*
DIR("B" BARBL+19*, BARBL+28*, SELACC+15*
DIR(0 BARBL+11*, BARBL+20*, BARBL+26*, SELACC+14*
>> DIROUT LIST+6
>> DR LETTER+11*, LETTER+14*
>> DROUT LIST+6
DT LETTER+8, BARHDR+9
>> DTOUT LIST+6
>> DUOUT LIST+6
DUZ AGE+3
DUZ(2 AGE+6, ONEAC+2, ONEAC+3, ONEAC+8, ONEAC+10, ONEAC+11, LIST+9
I QUE+1~, QUE+2*
IO BARBL+36, EOP+1
IO("S" BARBL+37, AGE+11, EOP+1
IO(0 BARBL+36, EOP+1
IOM LIST+25, BARHDR+5, BARHDR+6, BARHDR+8, BARHDR+9, BARHDR+10
ION BARBL+38
>> IOP BARBL+38*
IOSL LIST+28, SUMMARY+6, EOP+2
>> POP BARBL+35
U LIST+9, LIST+11
X SUMMARY+4*, SUMMARY+5, FMDT~, FMDT+2*, FMDT+3
>> Y BARBL+14, BARBL+15, BARBL+23, BARBL+31, SELACC+7, SELACC+18, EOP+4
>> Y(0 SELACC+7
>> ZTDESC QUE+4*
>> ZTQUEUED EOP+1
>> ZTRTN QUE+3*
>> ZTSAVE( QUE+2*
ZTSK QUE+5!, QUE+7
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