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

Package: IHS Accounts Receivable

Routine: BARRAOI


Information

BARRAOI ; IHS/SD/LSL - AGE OPEN ITEMS RPT JAN 16,1997 ;08/20/2008

Source Information

Source file <BARRAOI.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS Accounts Receivable 9 ^BARDBQUE  $$SDT^BARDUTL  BILL^BARRCHK  CHK^BARRHD  (HD,HDB)^BARRPSRB  MSG^BARRSEL  LOC^BARRSL1  (LOOP,PAZ)^BARRUTL  
(EOP,INIT)^BARUTL  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR RPT AGE AOI  

Entry Points

Name Comments DBIA/ICR reference
SETHDR ;
; Set Header array
LOC ;
; For each Location do
ACCOUNT ;
; For each AR Account w/in Visit location Do
EN ; EP
COMPUTE ; EP
ASKAP ;
; Ask user if want report by insurer or payer
AGE ;
; Ask user to select age group for bill
DETAIL ;
; Write detail line of report
LOCTOTAL ;
; Visit location total
TOTAL ;
; Report Total
ASKPAT ;
; Ask user for Patient Name
PRINT ; EP
ACCT ;
; Ask user for AR Account
ASKQUES ;
; Ask user questions
ACCTOTAL ;
; A/R Account total
DATA ; EP
PAT ;
; For each patient w/in AR Account w/in Visit location do

External References

Name Field # of Occurrence
^BARDBQUE EN+14
$$SDT^BARDUTL DETAIL+6
BILL^BARRCHK DATA+2
CHK^BARRHD SETHDR+6, SETHDR+11, SETHDR+20
HD^BARRPSRB DETAIL+2
HDB^BARRPSRB PRINT+4
MSG^BARRSEL ASKQUES+2
LOC^BARRSL1 ASKQUES+3
LOOP^BARRUTL COMPUTE+4, COMPUTE+7
PAZ^BARRUTL EN+15
EOP^BARUTL PRINT+7
INIT^BARUTL EN+4
^DIC ASKPAT+7, ACCT+9
$$GET1^DIQ EN+5, DATA+4
^DIR AGE+5, ASKAP+8
$$VAL^XBDIQ1 DATA+7, DATA+10, DATA+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ACCT+2
Function Call: WRITE
  • Prompt: !!!!!?25,"*** NO DATA TO PRINT ***"
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?5,"VISIT Location: ",BARLOC
  • Line Location: LOC+2
Function Call: WRITE
  • Prompt: !?10,"A/R Account: ",BARACCT,!
  • Line Location: ACCOUNT+2
Function Call: WRITE
  • Prompt: !?3,$E(BARPAT,1,25)
  • Line Location: DETAIL+4
Function Call: WRITE
  • Prompt: ?30,$E(BARBILL,1,20)
  • Line Location: DETAIL+5
Function Call: WRITE
  • Prompt: ?52,$$SDT^BARDUTL($P(BARTMP,U))
  • Line Location: DETAIL+6
Function Call: WRITE
  • Prompt: ?64,$J($FN($P(BARTMP,U,2),",",2),12)
  • Line Location: DETAIL+7
Function Call: WRITE
  • Prompt: !?64,"------------"
  • Line Location: ACCTOTAL+2
Function Call: WRITE
  • Prompt: !?5," * ",$E(BARACCT,1,45)," TOTAL"
  • Line Location: ACCTOTAL+3
Function Call: WRITE
  • Prompt: ?63,$J($FN(^TMP($J,"BAR-AOI",BARLOC,BARACCT),",",2),13),!
  • Line Location: ACCTOTAL+4
Function Call: WRITE
  • Prompt: ?64,"------------"
  • Line Location: LOCTOTAL+2
Function Call: WRITE
  • Prompt: !?5," ** ",$E(BARLOC,1,45)," TOTAL"
  • Line Location: LOCTOTAL+3
Function Call: WRITE
  • Prompt: ?63,$J($FN(^TMP($J,"BAR-AOI",BARLOC),",",2),13),!
  • Line Location: LOCTOTAL+4
Function Call: WRITE
  • Prompt: ?64,"============"
  • Line Location: TOTAL+2
Function Call: WRITE
  • Prompt: !?5,"*** REPORT TOTAL"
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: ?62,$J($FN(^TMP($J,"BAR-AOI"),",",2),14)
  • Line Location: TOTAL+4
Routine Call
  • DIC
  • Line Location:
    • ASKPAT+7
    • ACCT+9
Routine Call
  • DIR
  • Line Location:
    • AGE+5
    • ASKAP+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^BARBL(2906 - [#90050.01] GET1^DIQ
^BAR(90052.06,7819,0) - [#90052.06] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARBL( COMPUTE+7
^DIC(4 - [#4] SETHDR+13, SETHDR+16
^DPT - [#2] ASKPAT+12
^TMP($J COMPUTE+3!, DATA+17*, DATA+19, DATA+20*, DATA+22, DATA+23*, DATA+25, DATA+26*, PRINT+5, PRINT+9
, LOC+4, ACCOUNT+4, PAT+3, DETAIL+3, ACCTOTAL+4, LOCTOTAL+4, TOTAL+4

Label References

Name Line Occurrences
ACCOUNT LOC+4
ACCT ASKQUES+15
ACCTOTAL ACCOUNT+5
AGE ASKQUES+6
ASKAP ASKQUES+8
ASKPAT ASKQUES+11
ASKQUES EN+7
DETAIL PAT+3
LOC PRINT+9
LOCTOTAL LOC+5
PAT ACCOUNT+4
SETHDR EN+9
TOTAL PRINT+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAR EN+2!, DATA+4
BAR("COL" PRINT+3*
BAR("CONJ" SETHDR+5*, SETHDR+10*, SETHDR+19*
BAR("D" DATA+17, PRINT+1!
BAR("F1" PRINT+9, LOC+4, ACCOUNT+4, PAT+3, DETAIL+2
BAR("HD" SETHDR+2*, SETHDR+8*
BAR("I" DATA+10
BAR("L" DATA+7
BAR("LOC" EN+5*, EN+6*, SETHDR+14, COMPUTE+4
BAR("LVL" SETHDR+4*, SETHDR+7*, SETHDR+8
BAR("P" DATA+13
BAR("PG" PRINT+2*
BAR("PRIVACY" EN+3*
BAR("SELECTION" AGE+7*, AGE+8*, SETHDR+9
BAR("SUBR" COMPUTE+1*
BAR("TXT" SETHDR+3*, SETHDR+9*, SETHDR+12*, SETHDR+13*, SETHDR+15*, SETHDR+16*, SETHDR+17*, SETHDR+18*
BAR(0 DATA+15
BARACCT DATA+9*, DATA+10*, DATA+11*, DATA+17, DATA+19, DATA+20, PRINT+1!, LOC+3*, LOC+4*, ACCOUNT+2
, ACCOUNT+4, PAT+3, DETAIL+3, ACCTOTAL+3, ACCTOTAL+4
>> BARAGE AGE+9*, DATA+4
BARAMT DATA+4*, DATA+5, DATA+17, DATA+20, DATA+23, DATA+26, PRINT+1!
>> BARAP ASKQUES+10, ASKQUES+14, ASKAP+3*, ASKAP+10*
>> BARAP("NAME" ASKAP+11*
BARBILL DATA+15*, DATA+17, PRINT+1!, PAT+2*, PAT+3*, DETAIL+3, DETAIL+5
>> BARDUZ2 COMPUTE+5*, COMPUTE+8
BARHOLD DATA+19*, DATA+20, DATA+22*, DATA+23, DATA+25*, DATA+26, PRINT+1!
BARLOC DATA+6*, DATA+7*, DATA+8*, DATA+17, DATA+19, DATA+20, DATA+22, DATA+23, PRINT+1!, PRINT+8*
, PRINT+9*, LOC+2, LOC+4, ACCOUNT+4, PAT+3, DETAIL+3, ACCTOTAL+4, LOCTOTAL+3, LOCTOTAL+4
BARP EN+2!
BARP("HIT" DATA+1*, DATA+3
BARP("RTN" COMPUTE+2*
BARPAT DATA+12*, DATA+13*, DATA+14*, DATA+17, PRINT+1!, ACCOUNT+3*, ACCOUNT+4*, PAT+3, DETAIL+3, DETAIL+4
>> BARQ("NS" EN+12*
>> BARQ("RC" EN+10*
>> BARQ("RP" EN+11*
>> BARQ("RX" EN+13*
>> BARTMP DETAIL+3*, DETAIL+6, DETAIL+7
>> BARUSR EN+4
BARY EN+2!
BARY("ACCT" ASKQUES+17, ACCT+13*, ACCT+14*
BARY("LOC" ASKQUES+5, SETHDR+13
BARY("OBAL" ASKAP+2*, ASKPAT+10!, ACCT+12!
BARY("PAT" ASKQUES+13, ASKPAT+11*, ASKPAT+12*
BARY("STCR" ASKAP+2*, ASKPAT+10!, ACCT+12!
BARZ ASKPAT+2!
DA ASKQUES+18!
DD ACCT+8!
DIC ASKQUES+18!, ASKPAT+2!, ASKPAT+3*, ASKPAT+8!, ACCT+3!, ACCT+5*
DIC("A" ASKPAT+5*, ACCT+4*
DIC("S" ASKPAT+6*, ACCT+7*
DIC(0 ASKPAT+4*, ACCT+6*
DIR ASKQUES+18!, AGE+2!, ASKAP+4!
DIR("A" AGE+4*, ASKAP+7*
DIR("B" ASKAP+6*
DIR(0 AGE+3*, ASKAP+5*
DO ACCT+8!
>> DTOUT EN+8, ASKQUES+4, ASKQUES+7, ASKQUES+9, ASKQUES+10, ASKQUES+12, ASKQUES+14, ASKQUES+16, AGE+6, ASKAP+9
, ACCT+10
>> DUOUT EN+8, ASKQUES+4, ASKQUES+7, ASKQUES+9, ASKQUES+10, ASKQUES+12, ASKQUES+14, ASKQUES+16, AGE+6, ASKAP+9
, ACCT+10
DUZ(2 EN+5, SETHDR+16, COMPUTE+5, COMPUTE+6*, COMPUTE+7*, COMPUTE+8*
IOSL DETAIL+2
U ASKPAT+12, SETHDR+13, SETHDR+16, DATA+15, DATA+17, DETAIL+6, DETAIL+7
X ASKQUES+18!
Y ASKQUES+18!, AGE+6, AGE+8, AGE+9, ASKAP+9, ASKAP+10, ASKPAT+9, ASKPAT+11, ACCT+11, ACCT+13
Y(0 AGE+7, ASKAP+11, ACCT+14
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