Routine: BARMPAS2

Package	Total	Call Graph
IHS Accounts Receivable	6	($$SDT,$$SHDT)^BARDUTL (PG,PGHDR,PRTASK)^BARMPAS3 REINDEX^BARMPAS5 POUT^BARRUTL ($$FIND3PB,EOP)^BARUTL $$VAL^BARVPM
IHS VA Utilities	1	ENP^XBDIQ1
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR PAS PRNT TSK PAT ACCT STMT BARMPAS3

Entry Points

Name	Comments	DBIA/ICR reference
VISLOC	;
SUM	; EP ; CALCULATE AND PRESENT SUMMARY
STMT
PRTASK	; EP - MOVED TO ^BARMPAS3
PRINT	; EP ; Print Patient Account Statements.
BILLED
BLDA3	; ; profile this bills transactions
BLDA4	;
BLDA2	; ; profile bills from the first bill
AGE2(BARBL)	;
ONEBILL	;
ACCT(BARACDA)	; ; For each patient account in XTMP do...
BLDA	;
AGE(BARACDA)	; EP ; AGE PAST BILLS
GETBIL	;
COMPUTE	; ; computed through tasked option
STMTP
BILEROR	; ; test to eliminate bills with billed in error
PREPAID	;
BILEROR3	;
BILEROR2	; ; test transactions for the bill
EXIT	; EP
CXL

External References

Name	Field # of Occurrence
$$SDT^BARDUTL	SUM+21
$$SHDT^BARDUTL	STMTP+19
PG^BARMPAS3	STMTP+16, SUM+2, SUM+27, SUM+36
PGHDR^BARMPAS3	ACCT+8
PRTASK^BARMPAS3	PRTASK+1
REINDEX^BARMPAS5	PRINT+6
POUT^BARRUTL	EXIT+2
$$FIND3PB^BARUTL	CXL+2
EOP^BARUTL	PRINT+8
$$VAL^BARVPM	BLDA2+12
$$GET1^DIQ	ONEBILL+1, BILEROR2+4, BLDA4+8, BLDA4+10, BLDA4+16
ENP^XBDIQ1	BILEROR3+2, BLDA2+6, BLDA4+2, AGE2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"THIS BATCH OF STATEMENTS IS NOT COMPATIBLE WITH THE NEW FILE STRUCTURE." Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"WILL RUN REIDEXING FIRST, THEN TRY AGAIN",!! Line Location: PRINT+5
Function Call: WRITE	Prompt: !!!!!?25,"* NO DATA TO PRINT *" Line Location: PRINT+11
Function Call: WRITE	Prompt: !!?5,"LOCATION: ",VISLOC Line Location: STMT+4
Function Call: WRITE	Prompt: !!,"SERVICE DATE: ",$$SHDT^BARDUTL(BAR(102,"I")) Line Location: STMTP+19
Function Call: WRITE	Prompt: ?30,"BILL #: ",BARBNUM Line Location: STMTP+20
Function Call: WRITE	Prompt: ?50,"PROVIDER: ",$E(BARPRV,1,20) Line Location: STMTP+21
Function Call: WRITE	Prompt: !?6,$J($FN(BARBILLD,"p",2),9) Line Location: STMTP+22
Function Call: WRITE	Prompt: ?18,$J($FN(BARITOT,"p",2),9),?30,$J($FN(BARPTOT,"p",2),9),?41,$J($FN(BARATOT,"p",2),9) Line Location: STMTP+23
Function Call: WRITE	Prompt: ?56,$J($FN(BARINSOW,"p",2),9) Line Location: STMTP+24
Function Call: WRITE	Prompt: ?69,$J($FN(BARPRSP,"p",2),9) Line Location: STMTP+26
Function Call: WRITE	Prompt: ?74,"**" Line Location: STMTP+27
Function Call: WRITE	Prompt: !! Line Location: SUM+5
Function Call: WRITE	Prompt: ?TAB,BARTOTL("DASH") Line Location: SUM+5
Function Call: WRITE	Prompt: !,?6,$J($FN(BARTOTL("B"),"p",2),9) Line Location: SUM+6
Function Call: WRITE	Prompt: ?18,$J($FN(BARTOTL("I"),"p",2),9) Line Location: SUM+7
Function Call: WRITE	Prompt: ?30,$J($FN(BARTOTL("P"),"p",2),9) Line Location: SUM+8
Function Call: WRITE	Prompt: ?41,$J($FN(BARTOTL("A"),"p",2),9) Line Location: SUM+9
Function Call: WRITE	Prompt: ?56,$J($FN(BARTOTL("IO"),"p",2),9) Line Location: SUM+10
Function Call: WRITE	Prompt: ?69,$J($FN(BARTOTL("PR"),"p",2),9) Line Location: SUM+11
Function Call: WRITE	Prompt: !! Line Location: SUM+13
Function Call: WRITE	Prompt: !,BARBAR Line Location: SUM+14
Function Call: WRITE	Prompt: !,"Pre-payments:" Line Location: SUM+15
Function Call: WRITE	Prompt: !," ",BARCNT1,". Receipt #",$G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"RECEIPT")) Line Location: SUM+19
Function Call: WRITE	Prompt: ?30,"$",$J($G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"CREDIT")),8)," FOR " Line Location: SUM+20
Function Call: WRITE	Prompt: ?43,$$SDT^BARDUTL($G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"TODOS"))) Line Location: SUM+21
Function Call: WRITE	Prompt: ?60,$G(^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"PAYTYPE")) Line Location: SUM+22
Function Call: WRITE	Prompt: !?40,"POSTED TO BILL# ",^XTMP("BAR",$J,"BARMPAS2",BARPPAY,"BILL") Line Location: SUM+23
Function Call: WRITE	Prompt: !,BARBAR Line Location: SUM+25
Function Call: WRITE	Prompt: !,BARPTMSG Line Location: SUM+26
Function Call: WRITE	Prompt: !,BARLINE,!," SUMMARY by days due",!,BARBAR Line Location: SUM+28
Function Call: WRITE	Prompt: !,?1,"0-29 Days",?17,"30-59 Days",?32,"60-89 Days",?47,"90-120+ Days",?66,"TOTAL DUE" Line Location: SUM+29
Function Call: WRITE	Prompt: !,?1,"$",$J(BARAGE(0),8,2) Line Location: SUM+30
Function Call: WRITE	Prompt: ?17,"$",$J(BARAGE(1),8,2) Line Location: SUM+31
Function Call: WRITE	Prompt: ?32,"$",$J(BARAGE(2),8,2) Line Location: SUM+32
Function Call: WRITE	Prompt: ?47,"$",$J(BARAGE(3),8,2) Line Location: SUM+33
Function Call: WRITE	Prompt: ?66,"$",$J(BARAGE,9,2) Line Location: SUM+34
Function Call: WRITE	Prompt: !,BARLINE,! Line Location: SUM+35
Function Call: WRITE	Prompt: !,?25,"+++PAYMENT DUE UPON RECEIPT+++",! Line Location: SUM+37
Function Call: WRITE	Prompt: !,"** Your Insurance has been billed. You may be responsible for all or " Line Location: SUM+38
Function Call: WRITE	Prompt: !,"a portion of the billed amount based on your scheduled benefits." Line Location: SUM+39
Function Call: WRITE	Prompt: !,"Statement reflects all transactions up to statement date." Line Location: SUM+40
Function Call: WRITE	Prompt: !!,"This statement is intended for the above named patient, if you have" Line Location: SUM+41
Function Call: WRITE	Prompt: !,"received this statement in error please notify us immediately.",! Line Location: SUM+42

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARAC(2906 - [#90050.02]	GET1^DIQ
90051.1101	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	BLDA2+19, BLDA2+20, CXL+6
^BARBL(	STMTP+6, STMTP+13, STMTP+14, STMTP+15, BILEROR+3, BILEROR2+2, BLDA+2, BLDA2+4, AGE2+4
^BARPPAY(	PREPAID+4, PREPAID+9, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+16, PREPAID+18, PREPAID+19, PREPAID+21
^BARTR(	BILEROR2+6, BLDA3+3
^VA(200 - [#200]	BLDA2+23
^XTMP("BAR"	SUM+18, SUM+19, SUM+20, SUM+21, SUM+22, PREPAID+1!, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+15 , PREPAID+17, PREPAID+19, PREPAID+21*
^XTMP("BARPAS"	PRINT+2, PRINT+10, PRINT+14, PRINT+15, PRINT+16, ACCT+2, ACCT+11, VISLOC+1, GETBIL+1, AGE+5

Label References

Name	Line Occurrences
ACCT	PRINT+16
AGE	ACCT+14
AGE2	AGE+5
BILEROR	STMT
BILEROR2	BILEROR+3
BILEROR3	BILEROR2+6
BLDA	STMTP+4
BLDA2	BLDA+2
BLDA3	BILLED+7
BLDA4	BLDA3+3
GETBIL	VISLOC+1
ONEBILL	GETBIL+1
PREPAID	SUM+12
STMT	ACCT+12
STMTP	STMT+5
SUM	ACCT+15
VISLOC	ACCT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAR	BLDA2+5!, CXL+2, AGE2+1!
BAR(	STMTP+13, BLDA2+7, BILLED+3, BILLED+4, BILLED+5, AGE2+3, AGE2+5
BAR("3P LOC"	CXL+2*, CXL+3, CXL+4, CXL+5
BAR(102	STMTP+19
BAR(113	BLDA2+16, BLDA2+22*, BLDA2+23, BLDA2+24, BLDA2+25
BAR(114	BLDA2+25
BAR(13	BILLED+4
BAR(15	BLDA2+13, BLDA2+14, AGE2+7, AGE2+8
BAR(17	BLDA2+18
BAR(22	BLDA2+18
BAR(3	BLDA2+10, BLDA2+11
>> BAR3PDUZ	CXL+4*, CXL+6
>> BAR3PIEN	CXL+5*, CXL+6
>> BARACBAL	ACCT+10*
BARACDA	PRINT+16*, ACCT~, ACCT+2, ACCT+11, ACCT+14, VISLOC+1, GETBIL+1, BLDA2+10, BLDA4+13, BLDA4+18 , BLDA4+19, AGE~, AGE+5, AGE2+4
BARAGE	AGE+2!, AGE+3, AGE2+8, SUM+34
BARAGE(	AGE+4, AGE2+7
BARAGE(0	SUM+30
BARAGE(1	SUM+31
BARAGE(2	SUM+32
BARAGE(3	SUM+33
BARATOT	STMTP+2~, STMTP+3, STMTP+9, STMTP+10, STMTP+23, STMTP+30, BLDA4+22
>> BARB3PB0	CXL+6*, CXL+7
>> BARBAR	SUM+4*, SUM+14, SUM+25, SUM+28
>> BARBATCH	BLDA4+6*, BLDA4+15
>> BARBIENS	BLDA4+15*, BLDA4+16
>> BARBILDT	BILEROR2+4*, BILEROR2+5
BARBILL	ACCT+9!
BARBILL(	ONEBILL+2*, STMT
BARBILL("X"	STMTP+7, BILEROR2+5*, BLDA2+3, AGE2+3
BARBILL("XTR"	BILEROR3+5*, BLDA4+22
BARBILLD	STMTP+2~, STMTP+3, STMTP+10, STMTP+11, STMTP+15, STMTP+22, STMTP+29, BILLED+5*
BARBILLS	ACCT+9!
BARBILLS(	ONEBILL+3*, STMT+3, STMT+5, STMTP+1
BARBL	GETBIL+1, ONEBILL+1, ONEBILL+2, ONEBILL+3, BILEROR2+2, BILEROR2+4, BILEROR2+6, BILEROR3+5, BLDA2+4, BLDA2+6 , BLDA3+3, BLDA4+22, AGE+2!, AGE+5, AGE2~, AGE2+2, AGE2+4
>> BARBNUM	ONEBILL+1, ONEBILL+2, ONEBILL+3, STMT, STMT+1, STMTP+1, STMTP+5, STMTP+20, BILEROR+2, BILEROR+3 , BLDA+1, BLDA+2
>> BARBSTAT	BLDA2+7, BLDA2+9, CXL+7
>> BARCHECK	BLDA4+16*, BLDA4+17
>> BARCLIN	BLDA4+8, BLDA4+9
BARCNT1	SUM+16~, SUM+17, SUM+19, SUM+24
>> BARCRD	BLDA4+23*
BARCTYPE	PREPAID+2~, PREPAID+3, PREPAID+14, PREPAID+15
BARCXL	STMTP+2~, STMTP+3, STMTP+9, STMTP+25, BLDA2+2, BLDA2+9*, BILLED+1
>> BARDBT	BLDA4+24*
>> BARDESC	BLDA4+13, BLDA4+17
>> BARDFN	PREPAID+4
>> BARDTE	BILEROR2+6, BLDA3+3
>> BARDUMMY	PRINT+15*, PRINT+16, ACCT+2, ACCT+11, VISLOC+1, GETBIL+1
BARF1	PRINT+12!, PRINT+14, PRINT+15, PRINT+16, ACCT+11, ACCT+13, VISLOC+1, GETBIL+1, STMT, STMT+3 , STMT+5, STMTP+1, STMTP+17, BLDA+2, BILLED+6, BLDA3+3, BLDA4+26
>> BARHOLD	PRINT+13*, PRINT+17
>> BARINSOW	STMTP+3, STMTP+24, STMTP+31, BLDA2+14
>> BARITM	BLDA4+7*, BLDA4+15
BARITOT	STMTP+2~, STMTP+3, STMTP+9, STMTP+10, STMTP+23, STMTP+29, BLDA4+18
>> BARITYP	BLDA4+10*, BLDA4+11, BLDA4+12
>> BARLINE	SUM+3*, SUM+28, SUM+35
>> BARLPDA	BILEROR2+3, BLDA3+2
BARNON	STMTP+2~, STMTP+25, BLDA2+11, BLDA2+13
>> BARORIG(	BILLED+3, BILLED+4*, BILLED+5
>> BARPBNUM	STMTP+5, STMTP+6, STMTP+7, BILEROR+2, BILEROR+3, BILEROR2+2, BILEROR2+5, BILEROR3+5, BLDA+1, BLDA+2 , BLDA2+3, BLDA2+4, BLDA4+22
>> BARPG	ACCT+7*
BARPPAY	SUM+18, SUM+19, SUM+20, SUM+21, SUM+22, PREPAID+2~, PREPAID+3, PREPAID+4*, PREPAID+9, PREPAID+10 , PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+15, PREPAID+16, PREPAID+17, PREPAID+18, PREPAID+19, PREPAID+21
BARPRSP	STMTP+2~, STMTP+3, STMTP+25, STMTP+26, BLDA2+13
BARPRV	STMTP+2~, STMTP+18, STMTP+21, BLDA2+18, BLDA2+19, BLDA2+23, BLDA2+24, BLDA2+25*
BARPTAC	STMTP+2~, STMTP+3, STMTP+25, BLDA2+10, BLDA2+13
>> BARPTMSG	SUM+26
BARPTOT	STMTP+2~, STMTP+3, STMTP+9, STMTP+10, STMTP+23, STMTP+30, BLDA4+19
BARRUNDT	PRINT+2, PRINT+6, PRINT+7!, PRINT+10, PRINT+14, PRINT+15, PRINT+16, ACCT+2, ACCT+11, VISLOC+1 , GETBIL+1, AGE+5
>> BARSRTBY	PRINT+2*, PRINT+3
BARTMP	PREPAID+2~
BARTOTL	ACCT+3!
BARTOTL("A"	ACCT+4, STMTP+30, SUM+9
BARTOTL("B"	ACCT+4, STMTP+29, SUM+6
BARTOTL("DASH"	ACCT+5*, SUM+5
BARTOTL("I"	ACCT+4, STMTP+29, SUM+7
BARTOTL("IO"	ACCT+4, STMTP+31, SUM+10
BARTOTL("P"	ACCT+4, STMTP+30, SUM+8
BARTOTL("PR"	ACCT+4, STMTP+26, SUM+11
BARTR	BILEROR3+1!, BLDA4+1!
BARTR(	BLDA4+18, BLDA4+19, BLDA4+22
BARTR(101	BILEROR3+3, BLDA4+4, BLDA4+13, BLDA4+14, BLDA4+22
BARTR(102	BLDA4+3
BARTR(103	BILEROR3+5
BARTR(14	BLDA4+6
BARTR(15	BLDA4+7
BARTR(2	BLDA4+23
BARTR(3	BLDA4+24
BARTR(4	BLDA4+8
BARTR(6	BLDA4+10, BLDA4+11, BLDA4+12, BLDA4+13, BLDA4+18, BLDA4+19
>> BARTRDT	BILEROR2+3, BILEROR2+6, BILEROR3+2, BILEROR3+5, BLDA3+2, BLDA3+3, BLDA4+2, BLDA4+22
>> BARTTYP	BILEROR3+3, BILEROR3+4, BLDA4+4, BLDA4+5
BARVAR	PREPAID+2~, PREPAID+9*, PREPAID+14
>> BARVDT	VISLOC+1, GETBIL+1, ONEBILL+3, STMT+5, STMTP+1
BLA	STMTP+12~, STMTP+13*, STMTP+14
BLIEN	STMTP+12~, STMTP+14*, STMTP+15
D0	BLDA2+11~*
DATA	BLDA2+17~, BLDA2+20*, BLDA2+21, BLDA2+22
DUZ(2	PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+17, ACCT+2, ACCT+11, VISLOC+1, GETBIL+1, STMTP+6 , STMTP+13, STMTP+14, STMTP+15, BILEROR+3, BILEROR2+2, BILEROR2+6, BLDA+2, BLDA2+4, CXL+2, BLDA3+3 , AGE+5, AGE2+4, PREPAID+4, PREPAID+9, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+16, PREPAID+18 , PREPAID+19, PREPAID+21
DUZ2	BLDA2+17~, BLDA2+18*, BLDA2+19, BLDA2+20
>> I	AGE+4*
>> II	BILEROR+3, BLDA+2, BLDA4+5*
IOM	SUM+3, SUM+4
PRV	BLDA2+17~, BLDA2+18, BLDA2+19, BLDA2+20
TAB	SUM+5~*
TPBIEN	BLDA2+17~
>> TPIEN	BLDA2+18*, BLDA2+19, BLDA2+20
U	STMTP+15, BLDA2+21, BLDA2+23, CXL+7, PREPAID+9, PREPAID+10, PREPAID+11, PREPAID+12, PREPAID+13, PREPAID+16 , PREPAID+18, PREPAID+19, PREPAID+21
>> VISLOC	ACCT+11, VISLOC+1, GETBIL+1, ONEBILL+3, STMT+3, STMT+4, STMT+5, STMTP+1
X	BLDA2+11~, BLDA2+12, BLDA2+13, AGE2+5, AGE2+6*, AGE2+7

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMPAS2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: