Routine: BARROLL

Package	Total	Call Graph
IHS Accounts Receivable	3	TOTAL^BARTR ($$FIND3PB,EOP)^BARUTL $$EN^BARVDF
IHS VA Utilities	2	($$DIC,$$VAL,ENP)^XBDIQ1 EN^XBNEW
VA Fileman	2	^DIE $$GET1^DIQ

Package

Total

Call Graph

IHS Accounts Receivable

TOTAL^BARTR ($$FIND3PB,EOP)^BARUTL $$EN^BARVDF

IHS VA Utilities

($$DIC,$$VAL,ENP)^XBDIQ1 EN^XBNEW

VA Fileman

^DIE $$GET1^DIQ

Package	Total	Caller Graph
IHS Accounts Receivable	14	BAR ROLLBACK BAR50P00 BAR50P08 BARBLSUM BAREDP00 BAREDP08 BARFPST5 BARMAWO1 BARMAWO7 BARPNP3 BARPRF3 BARPSAPI BARPST3 BARPUC3
Tucson	2	BZSMAWO2 BZSMAWO3
Pharmacy Point of Sale	1	ABSPOSRA

Package

Total

Caller Graph

IHS Accounts Receivable

BAR ROLLBACK BAR50P00 BAR50P08 BARBLSUM BAREDP00 BAREDP08 BARFPST5 BARMAWO1
BARMAWO7 BARPNP3 BARPRF3 BARPSAPI BARPST3 BARPUC3

Tucson

BZSMAWO2 BZSMAWO3

Pharmacy Point of Sale

ABSPOSRA

Entry Points

Name	Comments	DBIA/ICR reference
SETE	;
SUM(BARBLDA)
SET	;set rollback status
DSPE	;
MENU	;** EP FOR MENU ROLLOVER TO 3-PARTY
BILL	; ; needs BARBLDA builds tr amounts by category
DSP	;
ROLL	;** ROLL
EN	;EP - rollover posted bills
SETBLRL	; EP **set bill as rolled
SETVAR	; EP ; ** PAY = PAY - GROUPER + WRITE OFF - REFUND
LOOP	;

External References

Name	Field # of Occurrence
TOTAL^BARTR	LOOP+3
$$FIND3PB^BARUTL	SET+10
EOP^BARUTL	SET+14, BILL+5, BILL+18, DSP+25
$$EN^BARVDF	BILL+30
^DIE	SET+6, SET+22, BILL+28, SETBLRL+6
$$GET1^DIQ	SET+8, SET+15, LOOP+5
$$DIC^XBDIQ1	BILL+24, ROLL+5, SETBLRL+2
$$VAL^XBDIQ1	EN+4, DSP+1
ENP^XBDIQ1	BILL+8, LOOP+4
EN^XBNEW	ROLL+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," ",BAR3PNM," not found in the 3P System" Line Location: SET+13
Function Call: WRITE	Prompt: !!!!!?14,"* There are no bills to process for rollover. *",!!!!! Line Location: MENU+4
Function Call: WRITE	Prompt: !,"CHECKING A/R BILL ",BARBL(.01) Line Location: BILL+9
Function Call: WRITE	Prompt: !,"This bill was already rolled over by ",BARBL(214) Line Location: BILL+12
Function Call: WRITE	Prompt: !,BARBL(.01)," NOT 3P BILL" Line Location: BILL+17
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),!,"Reviewing Bill ",BARBL(.01),?70,BARBLDA Line Location: BILL+30
Function Call: WRITE	Prompt: !,"BILL",?10,$J(BAR3PNM,10) Line Location: DSP+2
Function Call: WRITE	Prompt: ?25,">PAYMENTS<",?50,">ADJUSTMENTS<" Line Location: DSP+3
Function Call: WRITE	Prompt: !,"BILLED",?10,$J(BARBILL,10,2) Line Location: DSP+4
Function Call: WRITE	Prompt: ?25,"3-P CRD",?35,$J(BAR3PCR,10,2),?50,"NON-PAY",?60,$J(BARNP,10,2) Line Location: DSP+5
Function Call: WRITE	Prompt: !,"PAY TOT",?10,$J(BARPCAL,10,2) Line Location: DSP+6
Function Call: WRITE	Prompt: ?25,"PAYMENTS",?35,$J(BARPAY,10,2),?50,"DED",?60,$J(BARDED,10,2) Line Location: DSP+7
Function Call: WRITE	Prompt: !,"ADJ TOT",?10,$J(BARADJ,10,2) Line Location: DSP+8
Function Call: WRITE	Prompt: ?25,"PAY CRD",?35,$J(BARPCR,10,2) Line Location: DSP+9
Function Call: WRITE	Prompt: ?50,"CO-PAY",?60,$J(BARCOP,10,2) Line Location: DSP+10
Function Call: WRITE	Prompt: !,?25,"WR OFFS",?35,$J(BARWO,10,2),?50,"PENALTY",?60,$J(BARPEN,10,2) Line Location: DSP+11
Function Call: WRITE	Prompt: !,?25,"GROUPER",?35,$J(BARGRP,10,2),?50,"STC",?60,$J(BARSTC,10,2) Line Location: DSP+15
Function Call: WRITE	Prompt: !,?25,"REFUND",?35,$J(BARRF,10,2),?50,"TOTAL ADJ*",?60,$J(BARADJ,10,2) Line Location: DSP+16
Function Call: WRITE	Prompt: !,"ROLLOVER",?10,$J(BARROLL,10,2) Line Location: DSP+18
Function Call: WRITE	Prompt: ?25,"TOTAL PAY*",?35,$J(BARPCAL,10,2),! Line Location: DSP+19
Function Call: WRITE	Prompt: !,"Pat:",?10,BARBL(101),?40,"Visit Type.: "_$G(BARBL(114)) Line Location: DSP+20
Function Call: WRITE	Prompt: !,?40,"Bill Status: "_$G(BARBL(17.2)) Line Location: DSP+21
Function Call: WRITE	Prompt: !!,?2,"Original bill approved with the following:" Line Location: DSP+22
Function Call: WRITE	Prompt: !!,?5,"P: ",BARBL(205),!,?5,"S: ",BARBL(206),!,?5,"T: ",BARBL(207) Line Location: DSP+23
Function Call: WRITE	Prompt: !!,"This bill was already rolled over by ",BARBL(214) Line Location: DSP+24
Function Call: WRITE	Prompt: !! Line Location: DSP+26
Routine Call	DIE Line Location: SET+6 SET+22 BILL+28 SETBLRL+6

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

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	ROLL+13, ROLL+14
^BARBL(	MENU+3, ROLL+7, ROLL+8, ROLL+11, ROLL+15, ROLL+17
^BARTR(	LOOP+3
^TMP($J	BILL+19!

Name	Line Occurrences
BILL	EN+8, MENU+3
DSP	BILL+33, SUM+1
ROLL	BILL+34
SET	EN+5
SETBLRL	SET+12, BILL+13, BILL+20, ROLL+21
SETVAR	BILL+32, SUM+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR("3P BILL	LOC" , SET+10*, SET+11, SET+16
>> BAR3PCR	LOOP+9*, LOOP+21, DSP+5
BAR3PDA	EN+6, EN+9!, SET+1!, SET+15, SET+16, BILL+15, BILL+16, ROLL+4
BAR3PNM	EN+9!, SET+8, SET+9, SET+13, DSP+1, DSP+2, ROLL+2, ROLL+3*, ROLL+16
>> BARADJ	LOOP+28*, LOOP+30, DSP+8, DSP+16
>> BARBIL	LOOP+7*
>> BARBILL	LOOP+5*, LOOP+29, LOOP+30, DSP+4
BARBL	BILL+7!, LOOP+4
BARBL(	BILL+9, BILL+17, BILL+30, DSP+21, ROLL+2
BARBL(101	DSP+20
BARBL(114	DSP+20
BARBL(15	BILL+22
BARBL(17	BILL+15
BARBL(205	DSP+23
BARBL(206	DSP+23
BARBL(207	DSP+23
BARBL(214	BILL+11, BILL+12, DSP+24
BARBLDA	EN+2, EN+3, EN+4, EN+9!, SET+3, SET+8, SET+10, SET+15, SET+18, MENU+1* , MENU+3*, BILL+8, BILL+19, BILL+25, BILL+30, LOOP+3, LOOP+4, LOOP+5, DSP+1, ROLL+7 , ROLL+8, ROLL+11, ROLL+15, ROLL+17, SETBLRL+3, SUM~
>> BARCBAL	LOOP+30*
BARCNT	EN+9!, MENU+2, MENU+4, MENU+5!, BILL+2, BILL+3, BILL+4
>> BARCOP	LOOP+13*, LOOP+28, DSP+10
>> BARDED	LOOP+12*, LOOP+28, DSP+7
>> BARDOS	ROLL+15*, ROLL+16
>> BARGBL	ROLL+10*, ROLL+11, ROLL+12, ROLL+18
>> BARGRP	LOOP+15*, LOOP+21, DSP+15
>> BARNP	LOOP+11*, LOOP+28, DSP+5
>> BARPAY	LOOP+8*, LOOP+21, DSP+7
>> BARPCAL	LOOP+21*, LOOP+22, LOOP+29, LOOP+30, DSP+6, DSP+19
>> BARPCR	LOOP+17*, LOOP+21, DSP+9
>> BARPEN	LOOP+14*, LOOP+28, DSP+11
>> BARQUIT	EN+1, MENU+2, MENU+3, BILL+3, BILL+6*, BILL+33
>> BARRAYGO	EN+7, DSP+25
>> BARRF	LOOP+16*, LOOP+21, DSP+16
BARROLL	EN+9!, LOOP+29*, DSP+18
BARROLL(	EN+3
>> BARSTC	LOOP+19*, LOOP+28, DSP+15
>> BARSUM	LOOP+22*
>> BARSUM("3P"	LOOP+9*
>> BARSUM("AMT"	LOOP+7*
>> BARSUM("COP"	LOOP+13*
>> BARSUM("DED"	LOOP+12*
>> BARSUM("GRP"	LOOP+15*
>> BARSUM("NP"	LOOP+11*
>> BARSUM("PAY"	LOOP+8*
>> BARSUM("PCR"	LOOP+17*
>> BARSUM("PEN"	LOOP+14*
>> BARSUM("RF"	LOOP+16*
>> BARSUM("STC"	LOOP+19*
>> BARSUM("WO"	LOOP+10*
BART	BILL+31!
BARTM	BILL+31!, LOOP+1!
>> BARTMP1	ROLL+13*, ROLL+16
>> BARTMP2	ROLL+14*, ROLL+16
BARTOT	BILL+31!, LOOP+1!
BARTOT("A13"	LOOP+12
BARTOT("A14"	LOOP+13
BARTOT("A15"	LOOP+14
BARTOT("A16"	LOOP+15
BARTOT("A19"	LOOP+16
BARTOT("A20"	LOOP+17
BARTOT("A25"	LOOP+19
BARTOT("A3"	LOOP+10
BARTOT("A4"	LOOP+11
BARTOT("T108"	LOOP+9
BARTOT("T40"	LOOP+8
BARTOT("T49"	LOOP+7
>> BARTRDA	LOOP+2, LOOP+3
>> BARWO	LOOP+10*, LOOP+21, DSP+11
DA	SET+3, SET+18, BILL+25, ROLL+1!, SETBLRL+1!, SETBLRL+3
DIC	ROLL+5*, ROLL+10, SETBLRL+1!
DIDEL	SET+5, SET+7!, SET+21, SET+23!, BILL+27, BILL+29!, SETBLRL+5, SETBLRL+7!
DIE	SET+2, SET+17, BILL+24, ROLL+1!, SETBLRL+2
DR	SET+4, SET+19, SET+20, BILL+26, ROLL+1!, SETBLRL+1!, SETBLRL+4*
DUZ(2	SET+10, MENU+3, LOOP+3, ROLL+6, ROLL+7, ROLL+8, ROLL+9, ROLL+11, ROLL+13, ROLL+14 , ROLL+17, ROLL+20*
>> DUZO2	ROLL+6*, ROLL+7, ROLL+8, ROLL+11, ROLL+15, ROLL+17, ROLL+20
U	SET+16, ROLL+7, ROLL+8, ROLL+11, ROLL+13, ROLL+14, ROLL+15, ROLL+17
X	EN+4~*
>> Y	BILL+6, ROLL+4, ROLL+9, ROLL+10, ROLL+13, ROLL+14

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARROLL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: