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

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

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

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARRAOI

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: