Routine: BARPUC2

Package	Total	Call Graph
IHS Accounts Receivable	5	$$SDT^BARDUTL $$DUPLBILL^BARPNP2 EOP^BARUTL $$EN^BARVDF $$VALI^BARVPM
VA Fileman	5	DD^%DT C^%DTC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	EN^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	3	BARPUC BARPUC3 BARPUC3A

Entry Points

Name	Comments	DBIA/ICR reference
TSI	;;OTHER;;TRIBAL SELF INSURED
EN(BARPASS)
HIT(BARPASS)	; ; ** display a/r bills found
CHKLINE(BARHD)	; ; Q 0 = CONTINUE ; Q 1 = STOP
SEP	;;OTHER;;STATE EXCHANGE PLAN
HIT1(BARPASS)	; EP ; ** display a/r bills found
FPL	;;MEDICAID;;FPL 133 PERCENT
HEAD	;
PRTQ	; Ask whether to print comments on Letters to Finance 1.8.17 2/25/10 PKD
D	;;MEDICAID;;MEDICAID FI
G	;;OTHER;;GUARANTOR
F	;;PRIVATE INSURANCE;;FRATERNAL ORGANIZATION
I	;;OTHER;;INDIAN PATIENT
H	;;PRIVATE INSURANCE;;HMO
K	;;MEDICAID;;CHIP (KIDSCARE)
M	;;PRIVATE INSURANCE;;MEDICARE SUPPL.
N	;;OTHER;;NON-BENEFICIARY (NON-INDIAN)
P	;;PRIVATE INSURANCE;;PRIVATE INSURANCE
R	;;MEDICARE;;MEDICARE FI
T	;;OTHER;;THIRD PARTY LIABILITY
W	;;OTHER;;WORKMEN'S COMP
V	;;VETERAN;;VETERANS MEDICAL BENEFITS
ITMSG
MD	;;MEDICARE;;MCR PART D
MC	;;MEDICARE;;MCR PART C
HEAD1	;
C	;;OTHER;;CHAMPUS
MH	;;MEDICARE;;MEDICARE HMO
MMC	;;MEDICARE;;MCR MANAGED CARE

External References

Name	Field # of Occurrence
DD^%DT	ITMSG+20
C^%DTC	EN+9
$$SDT^BARDUTL	HIT+22, HEAD+6, HIT1+24, HEAD1+6
$$DUPLBILL^BARPNP2	HIT+11, HIT1+10
EOP^BARUTL	CHKLINE+6, ITMSG+15, ITMSG+19
$$EN^BARVDF	HEAD+1, HEAD1+1
$$VALI^BARVPM	ITMSG+16
^DIE	ITMSG+30
$$GET1^DIQ	ITMSG+23
^DIR	PRTQ+5
EN^XBDIQ1	EN+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,BARLIN Line Location: HIT+21
Function Call: WRITE	Prompt: ?6,$$SDT^BARDUTL($P(BARREC,U,1)) Line Location: HIT+22
Function Call: WRITE	Prompt: ?18,BARBLO Line Location: HIT+23
Function Call: WRITE	Prompt: ?32,$J($P(BARREC,U,3),8,2) Line Location: HIT+24
Function Call: WRITE	Prompt: ?44,$E($P(BARREC,U,4),1,23) Line Location: HIT+25
Function Call: WRITE	Prompt: ?70,$J($P(BARREC,U,5),8,2) Line Location: HIT+26
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: HEAD+1
Function Call: WRITE	Prompt: "Claims for "_BARPTNAM_" from "_$$SDT^BARDUTL($P(BARPASS,U,2))_" to "_$$SDT^BARDUTL($P(BARPASS,U,3)) Line Location: HEAD+6
Function Call: WRITE	Prompt: ?(IOM-15),"Page: "_BARPG Line Location: HEAD+7
Function Call: WRITE	Prompt: !!?32,"Billed",?70,"Current" Line Location: HEAD+8
Function Call: WRITE	Prompt: !,"Line #",?8,"DOS",?18,"Claim #",?32,"Amount",?44,"Billed To",?70,"Balance" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,BARDSH Line Location: HEAD+12
Function Call: WRITE	Prompt: !,BARLIN Line Location: HIT1+23
Function Call: WRITE	Prompt: ?6,$$SDT^BARDUTL($P(BARREC,U,1)) Line Location: HIT1+24
Function Call: WRITE	Prompt: ?18,BARBLO Line Location: HIT1+25
Function Call: WRITE	Prompt: ?32,$J($P(BARREC,U,3),8,2) Line Location: HIT1+26
Function Call: WRITE	Prompt: ?44,$J($P(BARREC,U,6),8,2) Line Location: HIT1+27
Function Call: WRITE	Prompt: ?56,$J($P(BARREC,U,7),8,2) Line Location: HIT1+28
Function Call: WRITE	Prompt: ?70,$J($P(BARREC,U,5),8,2) Line Location: HIT1+29
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: HEAD1+1
Function Call: WRITE	Prompt: "Claims for "_BARPTNAM_" from "_$$SDT^BARDUTL($P(BARPASS,U,2))_" to "_$$SDT^BARDUTL($P(BARPASS,U,3)) Line Location: HEAD1+6
Function Call: WRITE	Prompt: ?(IOM-15),"Page: "_BARPG Line Location: HEAD1+7
Function Call: WRITE	Prompt: !!?32,"Billed",?44,"Current",?56,"Current",?70,"Current" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,"Line #",?8,"DOS",?18,"Claim #",?32,"Amount",?44,"Payments",?56,"Adjust.",?70,"Balance" Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,BARDSH Line Location: HEAD1+12
Function Call: WRITE	Prompt: !?(IOM-15),"continued==>" Line Location: CHKLINE+5
Function Call: WRITE	Prompt: !!!,"Create a New Message for: " Line Location: ITMSG+2
Function Call: WRITE	Prompt: !!,"Credit",?10,"Account",?42,"Batch",?71,"Item" Line Location: ITMSG+3
Function Call: WRITE	Prompt: !?8,"TRANS DATE",?32,"ALLOW CAT",?46,"TDN",?68,"STATUS" Line Location: ITMSG+4
Function Call: WRITE	Prompt: ! Line Location: ITMSG+5
Function Call: WRITE	Prompt: BARDSH Line Location: ITMSG+7
Function Call: WRITE	Prompt: $J(BARTX(2),8,2) Line Location: ITMSG+9
Function Call: WRITE	Prompt: ?10,$E(BARTX(6),1,30),?42,BARTX(14) Line Location: ITMSG+10
Function Call: WRITE	Prompt: ?71,BARTX(15) Line Location: ITMSG+11
Function Call: WRITE	Prompt: !,"** ERROR--MISSING ALLOCATION INFO " Line Location: ITMSG+14
Function Call: WRITE	Prompt: !,"** ERROR--MISSING ALLOCATION INFO " Line Location: ITMSG+18
Function Call: WRITE	Prompt: !?8,Y,?32,$E($TR($P($T(@BARALLC),";;",3)," ",""),1,12) Line Location: ITMSG+21
Function Call: WRITE	Prompt: ?46 Line Location: ITMSG+22
Function Call: WRITE	Prompt: $S($G(BARTX(17))'="":BARTX(17),$$GET1^DIQ(90051.1101,BARTX(15,"I")_","_BARTX(14,"I")_",",20,"E")'="":$$GET1^DIQ(90051.1101,BARTX(15,"I")_","_BARTX(14,"I")_",",20,"E"),1:"<NO TDN>") Line Location: ITMSG+23
Function Call: WRITE	Prompt: !!,?31,"Messages Exist",! Line Location: PRTQ+3
Function Call: WRITE	Prompt: --> Line Location: PRTQ+10
Routine Call	DIE Line Location: ITMSG+30
Routine Call	DIR Line Location: PRTQ+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
90051.1101	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052 - [#90052]	ITMSG+24
^BARBL(	EN+15, EN+17
^BARCOL(	PRTQ+1
^BARTMP($J	EN+2!, EN+21, EN+22, HIT+5, HIT+6, HIT+7, HIT1+5, HIT1+6, HIT1+7
^BARTR(	HIT+9, HEAD+5, HIT1+9, HEAD1+5
^DPT - [#2]	HEAD+4, HEAD1+4

Label References

Name	Line Occurrences
$$CHKLINE	HIT+10, HIT1+22
HEAD	HIT+4, CHKLINE+8
HEAD1	HIT1+4, CHKLINE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BARALLC	ITMSG+16*, ITMSG+17
BARBDA	EN+16, EN+17, EN+18, EN+21, EN+22, HIT+2~, HIT+3, HIT+5, HIT+6, HIT+7 , HIT+16, HIT+17, HIT+18, HIT+19
BARBEG	EN+1~, EN+5*, EN+7
BARBLO	HIT+2~, HIT+8, HIT+9, HIT+15, HIT+16, HIT+17, HIT+18, HIT+19, HIT+23, HIT1+2~ , HIT1+8, HIT1+9, HIT1+14, HIT1+15, HIT1+16, HIT1+17, HIT1+18, HIT1+25
BARBLV	EN+1~, EN+23!
BARBLV(	EN+21
BARBLV(13	EN+21
BARBLV(15	EN+21
BARBLV(3	EN+21
BARCNT	EN+1~, EN+14, EN+20, EN+21, EN+22, EN+24
BARDPTR	HIT+2~, HIT+14, HIT+15, HIT+16, HIT+17, HIT1+2~, HIT1+13, HIT1+14, HIT1+15, HIT1+16
>> BARDSH	HEAD+10, HEAD+11, HEAD+12, HEAD1+10, HEAD1+11, HEAD1+12, ITMSG+6, ITMSG+7
BARDT	EN+1~, EN+10, EN+15, EN+17, EN+21
BAREIN1	HIT+2~, HIT+12, HIT+16, HIT+18, HIT1+2~, HIT1+11, HIT1+15, HIT1+17
BAREIN2	HIT+2~, HIT+13, HIT+17, HIT+19, HIT1+2~, HIT1+12, HIT1+16, HIT1+18
BAREND	EN+1~, EN+6*, EN+15
BARHD	CHKLINE~, CHKLINE+8, CHKLINE+9
BARHIT	EN+1~, HIT1+2~, HIT1+3, HIT1+5, HIT1+6, HIT1+7, HIT1+15, HIT1+16, HIT1+17, HIT1+18
BARLIN	HIT+2~, HIT+6, HIT+7, HIT+21, HIT1+2~, HIT1+6, HIT1+7, HIT1+23
BARPASS	EN~, EN+3, EN+4, EN+5, EN+6, HIT~, HEAD+4, HEAD+5, HEAD+6, HIT1~ , HEAD1+4, HEAD1+5, HEAD1+6
BARPAT	EN+1~, EN+4*, EN+15, EN+17
>> BARPG	HIT+3, HEAD+3, HEAD+7, HIT1+3, HEAD1+3, HEAD1+7
>> BARPRTQ	PRTQ+6*
BARPTNAM	HEAD+2~, HEAD+4, HEAD+5, HEAD+6, HEAD1+2~, HEAD1+4, HEAD1+5, HEAD1+6
BARREC	HIT+2~, HIT+7, HIT+8, HIT+11, HIT+22, HIT+24, HIT+25, HIT+26, HIT1+2~, HIT1+7 , HIT1+8, HIT1+10, HIT1+20, HIT1+21, HIT1+24, HIT1+26, HIT1+27, HIT1+28, HIT1+29
>> BARSTOP	HIT+3, HIT+5, HIT+10, HIT1+3, HIT1+5, HIT1+22
>> BARTADJ	HIT1+3, HIT1+21
>> BARTMP	HIT+11, HIT+12, HIT+13, HIT+14, HIT1+10, HIT1+11, HIT1+12, HIT1+13
>> BARTPAY	HIT1+3, HIT1+20
>> BARTX("ID"	ITMSG+20
>> BARTX(14	ITMSG+10, ITMSG+23, ITMSG+24, ITMSG+27, PRTQ+1
>> BARTX(15	ITMSG+11, ITMSG+23, ITMSG+27, PRTQ+1
>> BARTX(17	ITMSG+23
>> BARTX(2	ITMSG+9
>> BARTX(6	ITMSG+10, ITMSG+12
>> D0	ITMSG+12*, ITMSG+13
DA	EN+18, ITMSG+26!, ITMSG+27
DA(1	ITMSG+27*, ITMSG+29
DIC	EN+1~, EN+11*, ITMSG+26!
DIE	ITMSG+26!, ITMSG+29*
DIQ	EN+1~, EN+13*
DIR	ITMSG+26!, PRTQ+2!
DIR("A"	PRTQ+4*
DIR("B"	PRTQ+4*
DIR(0	PRTQ+4*
DR	EN+1~, EN+12, ITMSG+28
DUZ(2	EN+15, EN+17, HIT+9, HEAD+5, HIT1+9, HEAD1+5, ITMSG+29, PRTQ+1
IOM	HEAD+7, HEAD+11, HEAD1+7, HEAD1+11, CHKLINE+5
IOSL	CHKLINE+4
U	EN+5, EN+6, EN+21, HIT+8, HIT+11, HIT+22, HIT+24, HIT+25, HIT+26, HEAD+4 , HEAD+6, HIT1+8, HIT1+10, HIT1+20, HIT1+21, HIT1+24, HIT1+26, HIT1+27, HIT1+28, HIT1+29 , HEAD1+4, HEAD1+6
X	EN+10, CHKLINE+3~
>> X1	EN+7*
>> X2	EN+8*
>> Y	CHKLINE+7, ITMSG+20*, ITMSG+21, PRTQ+6

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPUC2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items