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

Package: IHS Accounts Receivable

Routine: BARMPAS3


Information

BARMPAS3 ; IHS/SD/LSL - Patient Account Statement Print ;

Source Information

Source file <BARMPAS3.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS Accounts Receivable 9 ^BARDBQUE  $$SDT^BARDUTL  GETMSG^BARMPAS  PRINT^BARMPAS2  GETHDR^BARMPAS3  REINDEX^BARMPAS5  PAZ^BARRUTL  EOP^BARUTL  
$$EN^BARVDF  
VA Fileman 4 DD^%DT  ^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 ENP^XBDIQ1  
Kernel 1 $$CJ^XLFSTR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Accounts Receivable 4 BARMPAS  BARMPAS2  BARMPAS3  BARMPAS4  

Entry Points

Name Comments DBIA/ICR reference
HDR ; EP
; Write Billing Office Address
PAZ ; Add extra line feeds to force alignment
; IHS/SD/PKD copied from PAZ^BARRUTL but for printers
; BARRUTL quits if not terminal
GETHDR
PG(L) ; EP
PRTASK ; EP
; Called from Print Patient Accounts' Statements AR Menu Option
EXIT ; EP
SELECT ;
PRINT
RETAIN ;
PGHDR ; EP
; Print Patient Account header and demographics
; Write Billing Office Address

External References

Name Field # of Occurrence
DD^%DT SELECT+16
^BARDBQUE PRTASK+19
$$SDT^BARDUTL PGHDR+30, HDR+2
GETMSG^BARMPAS PRTASK+18
PRINT^BARMPAS2 PRINT+8
GETHDR^BARMPAS3 PRTASK+12
REINDEX^BARMPAS5 PRTASK+8
PAZ^BARRUTL PG+3, PRTASK+20
EOP^BARUTL GETHDR+12, PRTASK+9, SELECT+6, SELECT+28
$$EN^BARVDF PGHDR+7
^DIC GETHDR+6
$$GET1^DIQ PGHDR+14, PGHDR+15, PGHDR+16, PGHDR+17, PGHDR+18, PGHDR+19, PGHDR+20, PGHDR+21, PGHDR+23
^DIR SELECT+25, RETAIN+5
ENP^XBDIQ1 GETHDR+16
$$CJ^XLFSTR GETHDR+10, GETHDR+11, SELECT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ACCOUNT STATEMENT HEADER entry not found in A/R LETTERS & TEXT File",IOM)
  • Line Location: GETHDR+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Please create the entry before proceeding with this print.",IOM)
  • Line Location: GETHDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PGHDR+5
Function Call: WRITE
  • Prompt: #
  • Line Location: PGHDR+6
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF"),!
  • Line Location: PGHDR+7
Function Call: WRITE
  • Prompt: !,?5,"TO THE PARENTS OF"
  • Line Location: PGHDR+26
Function Call: WRITE
  • Prompt: !?5,BARPTNM
  • Line Location: PGHDR+27
Function Call: WRITE
  • Prompt: ?55,"STATEMENT PERIOD"
  • Line Location: PGHDR+28
Function Call: WRITE
  • Prompt: !?5,BARADDR
  • Line Location: PGHDR+29
Function Call: WRITE
  • Prompt: ?55,$$SDT^BARDUTL(BARDTB)," - ",$$SDT^BARDUTL(BARDTE)
  • Line Location: PGHDR+30
Function Call: WRITE
  • Prompt: !?5,BARCITY,", ",BARSTATE,", ",BARZIP
  • Line Location: PGHDR+31
Function Call: WRITE
  • Prompt: !!!,BAREQUAL
  • Line Location: PGHDR+32
Function Call: WRITE
  • Prompt: !,HL1
  • Line Location: PGHDR+33
Function Call: WRITE
  • Prompt: !,HL2
  • Line Location: PGHDR+34
Function Call: WRITE
  • Prompt: !,BAREQUAL
  • Line Location: PGHDR+35
Function Call: WRITE
  • Prompt: !,?2,"Statement Date: ",$$SDT^BARDUTL(DT),?70,"Page: ",BARPG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,^(I)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"THIS BATCH OF STATEMENTS IS NOT COMPATIBLE WITH THE NEW FILE STRUCTURE."
  • Line Location: PRTASK+6
Function Call: WRITE
  • Prompt: !,"WILL RUN REIDEXING FIRST, THEN TRY AGAIN",!!
  • Line Location: PRTASK+7
Function Call: WRITE
  • Prompt: !!!,$$CJ^XLFSTR("NO PATIENT ACCOUNT STATEMENT RUNS TO CHOOSE FROM",IOM)
  • Line Location: SELECT+5
Function Call: WRITE
  • Prompt: !,"Select Account Run time: ",!
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !,$J(BARCNT,2),?5,Y
  • Line Location: SELECT+17
Function Call: WRITE
  • Prompt: " not compatible"
  • Line Location: SELECT+18
Function Call: WRITE
  • Prompt: " sorted by ",$P("Billing location, Account Number;Billing location, Patient name",";",BARSRTBY)
  • Line Location: SELECT+20
Function Call: WRITE
  • Prompt: !,"NONE SELECTED",!
  • Line Location: SELECT+27
Function Call: WRITE
  • Prompt: !,"DO YOU WISH TO RETAIN THE RUN TO PRINT AGAIN ?"
  • Line Location: RETAIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAZ+5
Routine Call
  • DIC
  • Line Location:
    • GETHDR+6
Routine Call
  • DIR
  • Line Location:
    • SELECT+25
    • RETAIN+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
^AUPNPAT - [#9000001] GET1^DIQ
9000001.41 GET1^DIQ
^BARAC(2906 - [#90050.02] GET1^DIQ
^BAR(90052.03 - [#90052.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( SELECT+11
^XTMP("AZLKPS" EXIT+1!
^XTMP("BARPAS" GETHDR+18!, GETHDR+19*, HDR+3, PRTASK+4, SELECT+3, SELECT+18, SELECT+19, PRINT+2, PRINT+3

Label References

Name Line Occurrences
GETHDR PRINT+1
HDR PGHDR+11
PGHDR PG+1, PG+5
SELECT PRTASK+2

Naked Globals

Name Field # of Occurrence
^( HDR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AZJB EXIT+1, EXIT+2!
AZKILL EXIT+1, EXIT+2!
>> BAR1 SELECT+3*, SELECT+4, SELECT+11*, SELECT+13
>> BARACDA PGHDR+14
>> BARADDR PGHDR+17*, PGHDR+29
>> BARCITY PGHDR+18*, PGHDR+31
>> BARCNT SELECT+10*, SELECT+12*, SELECT+14, SELECT+17, SELECT+24
>> BARDASH PGHDR+10*
>> BARDFN PGHDR+14*, PGHDR+15, PGHDR+16, PGHDR+17, PGHDR+18, PGHDR+19, PGHDR+21, PGHDR+22
>> BARDT SELECT+13*, SELECT+14, SELECT+15, SELECT+18, SELECT+19
>> BARDTB PGHDR+30, PRINT+4*
>> BARDTE PGHDR+30, PRINT+5*
>> BAREQUAL PGHDR+9*, PGHDR+32, PGHDR+35
>> BARF1 PG+4*
BARHDR GETHDR+20!
BARHDR("ID" GETHDR+17!
BARHDR(100 GETHDR+19
>> BARHDRDA GETHDR+15*, GETHDR+16, PRTASK+13
BARHRN PGHDR+3!, PGHDR+23*
>> BARIENS PGHDR+22*, PGHDR+23
>> BARKILL RETAIN+6*
>> BARPG PGHDR+4*, HDR+2
BARPT PGHDR+3!
>> BARPTAGE PGHDR+16*, PGHDR+26
>> BARPTNM PGHDR+15*, PGHDR+27
>> BARQ("NS" PRTASK+16*
>> BARQ("RC" PRTASK+14*
>> BARQ("RP" PRTASK+15*
>> BARQ("RX" PRTASK+17*
BARRUN SELECT+30!
BARRUN( SELECT+14*, SELECT+29
BARRUNDT GETHDR+18, GETHDR+19, HDR+3, PRTASK+3, PRTASK+4, PRTASK+8, SELECT+1!, SELECT+29*, PRINT+2, PRINT+3
>> BARSRTBY PRTASK+4*, PRTASK+5, SELECT+19*, PRINT+3*
>> BARSTATE PGHDR+19*, PGHDR+20*, PGHDR+31
>> BARTMP PRINT+2*, PRINT+4, PRINT+5
>> BARZIP PGHDR+21*, PGHDR+31
DA GETHDR+2!
DIC GETHDR+2!, GETHDR+3*
DIC(0 GETHDR+4*
DIR SELECT+23!, RETAIN+2!
DIR("B" RETAIN+4*
DIR(0 SELECT+24*, RETAIN+3*
>> DIROUT PG+4
DR GETHDR+2!
DT HDR+2
>> DTOUT PG+4
>> DUOUT PG+4
DUZ(2 PGHDR+22
>> HL1 PGHDR+33, PRINT+6*
>> HL2 PGHDR+34, PRINT+7*
>> I HDR+3*
IO("Q" PAZ+4
IOM GETHDR+10, GETHDR+11, PGHDR+9, PGHDR+10, SELECT+5
IOSL PG+1, PG+2, PAZ+5
IOST PG+1
L PG~, PG+1
U PRINT+4, PRINT+5
>> X GETHDR+5*
>> Y GETHDR+9, GETHDR+15, SELECT+15*, SELECT+17, SELECT+26, SELECT+29, RETAIN+6
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