Routine: BARPUC

Package	Total	Call Graph
IHS Accounts Receivable	11	($$CKDATE,RAYGO)^BARPST $$EN^BARPST1 ($$EN,TOP)^BARPTR ($$EN,ITMSG,PRTQ)^BARPUC2 EN^BARPUC3 $$AMT^BARPUCU $$NEW^BARTR LETTER^BARUFLTR ($$IHS,$$NOTOPEN)^BARUFUT (EOP,INIT)^BARUTL ^BARVKL0
VA Fileman	5	NOW^%DTC ^DIC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	($$DIC,ENP)^XBDIQ1
Kernel	1	SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR POST UC

Entry Points

Name	Comments	DBIA/ICR reference
REFUND	;
ASKVER	;EP - VERIFY ENTRY
CHOOSE	;
V	;;VETERAN;;VETERANS MEDICAL BENEFITS
REFPST	;** post refund
FINISH	;
LOADTX	; ; ** get u/c transaction detail
ASKREF	;EP - VERIFY ENTRY
SEP	;;OTHER;;STATE EXCHANGE PLAN
PX	;
TSI	;;OTHER;;TRIBAL SELF INSURED
ASKTYP	;EP - ASK TYPE
FPL	;;MEDICAID;;FPL 133 PERCENT
CLOSE	;
ASKACCT	;EP - TRANSFER TO WHAT A/R ACCOUNT
TRANCONT	;EP - TRANSFER CONTINUED
C	;;OTHER;;CHAMPUS
EN	;EP - Unallocated Posting
GETBILL	;
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)
REFTO	;
R	;;MEDICARE;;MEDICARE FI
ASKVERT	;EP - VERIFY ENTRY
W	;;OTHER;;WORKMEN'S COMP
REIMCONT	;EP - REIMBURSEMENT CONTINUED
ENTRY	;
MD	;;MEDICARE;;MCR PART D
MC	;;MEDICARE;;MCR PART C
P	;;PRIVATE INSURANCE;;PRIVATE INSURANCE
TRANSFER	;EP - PROCESS TRANSFERS
MH	;;MEDICARE;;MEDICARE HMO
T	;;OTHER;;THIRD PARTY LIABILITY
AMT	;
EXIT	;
GETTX	;
MMC	;;MEDICARE;;MCR MANAGED CARE
REIMBURS	;EP - PROCESS REIMBURSEMENTS

External References

Name	Field # of Occurrence
NOW^%DTC	FINISH+9
$$CKDATE^BARPST	GETTX+9
RAYGO^BARPST	EN+5
$$EN^BARPST1	GETBILL+1
$$EN^BARPTR	GETTX+15
TOP^BARPTR	CHOOSE+1
$$EN^BARPUC2	GETBILL+3
ITMSG^BARPUC2	CHOOSE+21
PRTQ^BARPUC2	ASKREF+13, ASKVER+17, ASKVERT+17
EN^BARPUC3	GETBILL+5
$$AMT^BARPUCU	AMT+6
$$NEW^BARTR	PX+1
LETTER^BARUFLTR	ASKREF+14, ASKVER+18, ASKVERT+18
$$IHS^BARUFUT	CHOOSE+9
$$NOTOPEN^BARUFUT	GETTX+2
EOP^BARUTL	GETTX+13
INIT^BARUTL	ENTRY+5
^BARVKL0	ENTRY+3, EXIT+2
^DIC	REFTO+7, REFPST+15, FINISH+9, ASKTYP+6, ASKACCT+6
^DIE	PX+7, PX+19, PX+30, PX+51, FINISH+29, FINISH+37, FINISH+45
$$GET1^DIQ	GETTX+8, LOADTX+9, LOADTX+10, ASKREF+3, ASKREF+10, ASKREF+11, PX+12, PX+13, PX+24, PX+41 , ASKVER+13, ASKVER+14, ASKACCT+9, ASKVERT+14, ASKVERT+15
^DIR	CHOOSE+13, ASKREF+7, ASKREF+20, REIMBURS+6, REIMBURS+8, ASKVER+7, ASKVER+24, TRANSFER+10, TRANSFER+12, ASKVERT+8 , ASKVERT+24
$$DIC^XBDIQ1	PX+44
ENP^XBDIQ1	LOADTX+8, FINISH+3
SIG^XUSESIG	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ENTRY+6
Function Call: WRITE	Prompt: *7,"No open UNALLOCATED CASH transactions on file!" Line Location: GETTX+12
Function Call: WRITE	Prompt: ?3,$J(BARTX(2,"I"),8,2) Line Location: CHOOSE+2
Function Call: WRITE	Prompt: ?15,$E(BARTX(6),1,30) Line Location: CHOOSE+3
Function Call: WRITE	Prompt: ?47,BARTX(14),! Line Location: CHOOSE+4
Function Call: WRITE	Prompt: *7,!!,"No bills in this date range!",!! Line Location: GETBILL+4
Function Call: WRITE	Prompt: !!!,"Refund Amount: " Line Location: AMT+2
Function Call: WRITE	Prompt: $J(BARDEF,0,2)_"// " Line Location: AMT+3
Function Call: WRITE	Prompt: *7," Must be a valid number!" Line Location: AMT+8
Function Call: WRITE	Prompt: *7,!! Line Location: REFPST+19
Function Call: WRITE	Prompt: !! Line Location: ASKREF+15
Function Call: WRITE	Prompt: !!,"The system couldn't create a "_$S($G(REIMBURS):"REIMBURSEMENT",$G(TRANSFER):"TRANSFER",1:"REFUND")_" transaction. Please try again.",! Line Location: PX+3
Function Call: WRITE	Prompt: !,"Couldn't create a new UN-ALLOCATED transaction. The system is trying again.",! Line Location: FINISH+12
Function Call: WRITE	Prompt: !,"YOU CANNOT ENTER AN AMOUNT EXCEEDING THE UNALLOCATED AMOUNT!!" Line Location: REIMBURS+8
Function Call: WRITE	Prompt: !! Line Location: ASKVER+19
Function Call: WRITE	Prompt: !! Line Location: TRANSFER+9
Function Call: WRITE	Prompt: !,"YOU CANNOT ENTER AN AMOUNT EXCEEDING THE UNALLOCATED AMOUNT!!" Line Location: TRANSFER+12
Function Call: WRITE	Prompt: ! Line Location: ASKACCT+5
Function Call: WRITE	Prompt: ! Line Location: ASKVERT+7
Function Call: WRITE	Prompt: !! Line Location: ASKVERT+19
Function Call: WRITE	Prompt: --> Line Location: ASKVERT+30
Routine Call	DIE Line Location: PX+7 PX+19 PX+30 PX+51 FINISH+29 FINISH+37 FINISH+45
Routine Call	DIC Line Location: REFTO+7 REFPST+15 FINISH+9 ASKTYP+6 ASKACCT+6
Routine Call	DIR Line Location: CHOOSE+13 ASKREF+7 ASKREF+20 REIMBURS+6 REIMBURS+8 ASKVER+7 ASKVER+24 TRANSFER+10 TRANSFER+12 ASKVERT+8 ASKVERT+24

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARAC(2906 - [#90050.02]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ
^BARCOL(2906 - [#90051.01]	GET1^DIQ
90051.1101	GET1^DIQ
^BARTBL - [#90052.02]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARTBL("B"	GETTX+6
^BARTBL("D"	REFPST+6
^BARTMP($J	CLOSE+1!
^BARTR(	GETTX+7, GETTX+9, FINISH+8, FINISH+9
^TMP($J	ENTRY+4!, GETTX+10*, GETTX+11, EXIT+1!

Label References

Name	Line Occurrences
AMT	AMT+8, REFTO+9, REFPST+17
ASKREF	ASKREF+21
ASKVER	ASKVER+25
ASKVERT	ASKVERT+25
CLOSE	FINISH+2
EN	GETBILL+4
ENTRY	CHOOSE+16, CHOOSE+18, CHOOSE+19, CHOOSE+20, CHOOSE+21, GETBILL+6
EXIT	GETTX+11, GETTX+16, CHOOSE+22, GETBILL+2
FINISH	PX+33, PX+38, FINISH+11
GETBILL	CHOOSE+17
REFUND	CHOOSE+18, ASKREF+8, PX+2
REIMBURS	CHOOSE+19, REIMBURS+8, ASKTYP+7, ASKVER+8
REIMCONT	ASKVER+26, ASKVERT+26
TRANSFER	CHOOSE+20, TRANSFER+12, ASKACCT+7, ASKVERT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	FINISH+9
ASKREF	ASKREF+1~, ASKREF+9*, ASKREF+12, ASKREF+22!
ASKVER	ASKVER+1~, ASKVER+9*, ASKVER+16, ASKVER+27!
ASKVERT	ASKVERT+2~, ASKVERT+10*, ASKVERT+16
BARAC	REFUND+1~, REFTO+10, ASKREF+3, ASKVER+12, ASKVERT+13*
BARADJ	CLOSE+2!
BARAMT	REFUND+1~, AMT+9, REFPST+18!, ASKREF+3, ASKREF+14, PX+42, FINISH+2, FINISH+4, FINISH+40, ASKVER+10 , ASKVER+18, ASKVERT+11*, ASKVERT+18
BARATYP	REFPST+5, REFPST+9, REFPST+20, CLOSE+2!, ASKTYP+9, TRANSFER+2*
BARBLV	CLOSE+2!
BARBTOT	CLOSE+2!
BARCAT	REFPST+4, REFPST+6, CLOSE+2!, ASKTYP+10, TRANSFER+3*
>> BARCHK	ASKREF+10, ASKREF+14, ASKVER+13, ASKVER+18, ASKVERT+14*, ASKVERT+18
>> BARCLV(17	LOADTX+9*
>> BARCNT	GETTX+5, GETBILL+3, GETBILL+4
>> BARDEF	AMT+1*, AMT+3, AMT+5, AMT+6
>> BARESIG	EN+1, EN+4
>> BARITRF	PX+41, PX+42
>> BARITV(19	LOADTX+10*
>> BARJ	REFPST+5, REFPST+6, REFPST+7, REFPST+8
>> BARPASS	GETBILL+1*, GETBILL+2, GETBILL+3
BARPMT	CLOSE+2!
>> BARPRTQ	CHOOSE+5*
BARREM	FINISH+4*, CLOSE+2!
>> BARSCHED	ASKREF+11, ASKREF+14, ASKVER+14, ASKVER+18, ASKVERT+15*, ASKVERT+18
BARSIB	FINISH+10*, FINISH+11, FINISH+13, CLOSE+2!
BARSIB(101	ASKVER+11, ASKVERT+12
BARTR	GETTX+15*, GETTX+16, LOADTX+4, CLOSE+2!
BARTT	GETTX+6, GETTX+8, REFUND+1~, REFPST+2, ASKTYP+8, TRANSFER+1
BARTX	GETTX+4!, GETTX+5, GETTX+7, GETTX+8, GETTX+9, GETTX+10, LOADTX+2!, CLOSE+2!
BARTX("ID"	PX+12, FINISH+3, FINISH+35, FINISH+43
BARTX(14	LOADTX+9, LOADTX+10, CHOOSE+4, ASKREF+10, ASKREF+11, ASKREF+14, PX+38, PX+40, PX+46, ASKVER+13 , ASKVER+14, ASKVER+18, ASKVERT+14, ASKVERT+15, ASKVERT+18
BARTX(15	LOADTX+10, ASKREF+10, ASKREF+11, PX+39, PX+45, ASKVER+13, ASKVER+14, ASKVERT+14, ASKVERT+15
BARTX(2	CHOOSE+2, AMT+1, FINISH+2, FINISH+4, FINISH+40, REIMBURS+3, REIMBURS+5, REIMBURS+8, TRANSFER+6, TRANSFER+8 , TRANSFER+12
BARTX(304	PX+13*
BARTX(6	CHOOSE+3, REFTO+3, ASKREF+14, ASKVER+12, ASKVER+18, ASKVERT+13
BARUNAC	PX+11~, PX+12*, PX+13, PX+15
>> BARUSR	ENTRY+5
BARVL	GETTX+3!
>> BARX	REFPST+5, REFPST+6, REFPST+9
DA	LOADTX+4, LOADTX+8, REFPST+1~, PX+4, PX+15, PX+26, PX+39, PX+41, PX+43!, PX+45 , FINISH+13, FINISH+35, FINISH+43*, ASKTYP+1!, ASKACCT+1!
DA(1	PX+40, PX+46
DD	REFTO+6!, REFPST+14!
DIC	LOADTX+5, LOADTX+8, REFTO+1, REFTO+8!, REFPST+1~, REFPST+10, REFPST+16!, PX+43!, FINISH+1!, FINISH+5 , ASKTYP+1!, ASKTYP+2, ASKACCT+1!, ASKACCT+2
DIC("A"	REFTO+4, REFPST+12, ASKTYP+4*
DIC("B"	REFTO+3*
DIC("S"	REFTO+5, REFPST+13, ASKTYP+5, ASKACCT+4
DIC(0	REFTO+2, REFPST+11, FINISH+6, ASKTYP+3, ASKACCT+3*
DIDEL	PX+6, PX+8!, PX+18, PX+20!, PX+29, PX+31!, PX+50, PX+52!, FINISH+28, FINISH+30! , FINISH+36, FINISH+38!, FINISH+44*, FINISH+46!
DIE	PX+5, PX+14, PX+25, PX+43!, PX+44, FINISH+14, FINISH+31, FINISH+41*, ASKTYP+1!, ASKACCT+1!
>> DIQ	LOADTX+7*, LOADTX+8
>> DIQ(0	LOADTX+6*, LOADTX+8
DIR	CHOOSE+6!, ASKREF+2!, ASKREF+16!, REIMBURS+2!, REIMBURS+8!, ASKTYP+1!, ASKVER+2!, ASKVER+20!, TRANSFER+5!, TRANSFER+12! , ASKACCT+1!, ASKVERT+1!, ASKVERT+20!
DIR("A"	CHOOSE+8, CHOOSE+12, CHOOSE+15, ASKREF+3, ASKREF+4, ASKREF+19, REIMBURS+4, ASKVER+3, ASKVER+4, ASKVER+23* , TRANSFER+7, ASKVERT+3, ASKVERT+4, ASKVERT+23
DIR("B"	ASKREF+5, ASKREF+18, REIMBURS+5, ASKVER+5, ASKVER+22, TRANSFER+8, ASKVERT+5, ASKVERT+22
DIR(0	CHOOSE+7, CHOOSE+11, ASKREF+6, ASKREF+17, REIMBURS+3, REIMBURS+8, ASKVER+6, ASKVER+21, TRANSFER+6, TRANSFER+12 , ASKVERT+6, ASKVERT+21
>> DIRUT	CHOOSE+16, REIMBURS+7, TRANSFER+11
DLAYGO	FINISH+7*, FINISH+9!
DO	REFTO+6!, REFPST+14!
DR	LOADTX+3, LOADTX+8, REFPST+1~, TRANCONT+1, TRANCONT+2, TRANCONT+3, TRANCONT+4, TRANCONT+5, TRANCONT+6, TRANCONT+7 , TRANCONT+8, TRANCONT+9, TRANCONT+10, TRANCONT+11, PX+16, PX+17, PX+27, PX+28, PX+43!, PX+49* , FINISH+1!, FINISH+15, FINISH+16, FINISH+17, FINISH+18, FINISH+19, FINISH+20, FINISH+21, FINISH+22, FINISH+23* , FINISH+24, FINISH+25, FINISH+26, FINISH+27, FINISH+32, FINISH+33, FINISH+34, FINISH+42, ASKTYP+1!
DTIME	AMT+4
>> DTOUT	ASKREF+8, ASKREF+21, REIMBURS+7, ASKVER+8, ASKVER+25, TRANSFER+11, ASKVERT+9, ASKVERT+25
>> DUOUT	ASKREF+8, ASKREF+21, REIMBURS+7, ASKVER+8, ASKVER+25, TRANSFER+11, ASKVERT+9, ASKVERT+25
DUZ	GETTX+2
DUZ(2	GETTX+7, GETTX+9, CHOOSE+9, FINISH+8, FINISH+9
EXBARAC	ASKVERT+9!
EXNEWTYP	ASKTYP+12*, ASKVER+3, ASKVER+8!, ASKVER+18
>> NEWEXTYP	REFPST+21*, ASKREF+14
NEWTYP	REFPST+22, ASKREF+14, ASKTYP+11, ASKVER+8!, ASKVER+11, ASKVER+18
NEWVALUE	REIMBURS+9, ASKVER+3, ASKVER+8!, ASKVER+10, TRANSFER+13, ASKVERT+3, ASKVERT+9!, ASKVERT+11
>> REIMBURS	ENTRY+1, CHOOSE+19, TRANCONT+6, TRANCONT+7, PX+2, PX+3, PX+33, REIMBURS+1*
STR	CHOOSE+14~, CHOOSE+15*, CHOOSE+19, CHOOSE+20, CHOOSE+21
>> TBARAC	PX+24, PX+26, ASKACCT+8*, ASKACCT+9
>> TBARACAM	PX+24*
>> TEXBARAC	ASKACCT+9*, ASKVERT+3, ASKVERT+18
>> TRANSFER	ENTRY+2, TRANCONT+6, TRANCONT+7, PX+2, PX+3, PX+23, PX+33, TRANSFER+4
U	GETTX+9, REFPST+21, REFPST+22, ASKTYP+12, ASKACCT+8
>> UFMSESID	GETTX+2
X	AMT+4, AMT+5, AMT+6, AMT+7, AMT+8, AMT+9, PX+1, PX+2, PX+4, FINISH+9* , ASKTYP+1!, ASKACCT+1!
>> X1	EN+3
>> Y	CHOOSE+15, CHOOSE+17, CHOOSE+18, REFTO+9, REFTO+10, REFPST+17, REFPST+20, REFPST+21, REFPST+22, ASKREF+9 , ASKREF+21, FINISH+10, REIMBURS+8, REIMBURS+9, ASKTYP+7, ASKTYP+8, ASKTYP+11, ASKTYP+12, ASKVER+9, ASKVER+25 , TRANSFER+12, TRANSFER+13, ASKACCT+7, ASKACCT+8, ASKVERT+10, ASKVERT+25

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPUC

Information

Source Information

Call Graph

Call Graph Total: 18

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: