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	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

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

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: