Routine: BARMAWO7

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
IHS Accounts Receivable	6	(SETBLRL,SETVAR)^BARROLL TR^BARTDO ($$NEW,MSG)^BARTR $$CURSTAT^BARUFUT $$FIND3PB^BARUTL $$VALI^BARVPM
VA Fileman	2	^DIE ^DIR
IHS VA Utilities	1	($$DIC,$$VAL)^XBDIQ1
Third Party Billing	1	FILE^ABMAROLL

Package

Total

Call Graph

IHS Accounts Receivable

(SETBLRL,SETVAR)^BARROLL TR^BARTDO ($$NEW,MSG)^BARTR $$CURSTAT^BARUFUT $$FIND3PB^BARUTL $$VALI^BARVPM

VA Fileman

^DIE ^DIR

IHS VA Utilities

($$DIC,$$VAL)^XBDIQ1

Third Party Billing

FILE^ABMAROLL

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARMAWO6

Package

Total

Caller Graph

IHS Accounts Receivable

BARMAWO6

Entry Points

Name	Comments	DBIA/ICR reference
ROLLTPB	; ; File A/R data in payment mult of 3PB
BEN
WRITEOFF
ROLLBILL	; ; For bills written off, update Payment multiple in 3P and mark bill ; complete in 3PB. Also mark bill as rolled in A/R
LOOPDT	; ; Loop A/R Bill File by date of service
LOOPBIL	; ; Loop bills for date of service
CONTINUE	;
LOOPDUZ	; EP ; Loop A/R Bill File by DUZ(2)
ROLL	;EP ; Changed code NHA-0601-180049 V1.6 Patch 4 ; Roll A/R vars to 3PB

External References

Name	Field # of Occurrence
FILE^ABMAROLL	ROLLTPB+9
SETBLRL^BARROLL	ROLLBILL+8
SETVAR^BARROLL	ROLLBILL+4
TR^BARTDO	BEN+30
$$NEW^BARTR	BEN+8
MSG^BARTR	BEN+9
$$CURSTAT^BARUFUT	CONTINUE+38
$$FIND3PB^BARUTL	ROLL+4
$$VALI^BARVPM	WRITEOFF+21
^DIE	BEN+28
^DIR	CONTINUE+48
$$DIC^XBDIQ1	ROLL+13
$$VAL^XBDIQ1	CONTINUE+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(BAR(0),U),?25," for ",$J($FN(BARBAL,",",2),10)," with trans ",BARTRIEN Line Location: BEN+34
Function Call: WRITE	Prompt: !!!!! Line Location: CONTINUE+4
Function Call: WRITE	Prompt: !,"Quitting - no date entered" Line Location: CONTINUE+5
Function Call: WRITE	Prompt: "You have chosen to write off bills meeting the following criteria:",! Line Location: CONTINUE+7
Function Call: WRITE	Prompt: !,"for "_$S(BAR("DTYP")="AG":"Approval Dates",1:"Dates of Service")_": ",?25,BARDOS1("E")," to ",BARDOS2("E") Line Location: CONTINUE+9
Function Call: WRITE	Prompt: !,"for Locations: " Line Location: CONTINUE+11
Function Call: WRITE	Prompt: ?40,"ALL" Line Location: CONTINUE+12
Function Call: WRITE	Prompt: ?25,"ALL" Line Location: CONTINUE+13
Function Call: WRITE	Prompt: !,"for A/R accounts: " Line Location: CONTINUE+20
Function Call: WRITE	Prompt: " BENEFICIARY" Line Location: CONTINUE+21
Function Call: WRITE	Prompt: " BENEFICIARY" Line Location: CONTINUE+22
Function Call: WRITE	Prompt: ! Line Location: CONTINUE+28
Function Call: WRITE	Prompt: !?3,"Transaction Type: Adjustment (43)" Line Location: CONTINUE+34
Function Call: WRITE	Prompt: !,"Adjustment Category: ",BARY("ADJ CAT",BARCAT)," (",(BARCAT),")" Line Location: CONTINUE+35
Function Call: WRITE	Prompt: !?4,"Adjustment Type: ",BARY("ADJ TYP",ADJTYPE)," (",(ADJTYPE),")" Line Location: CONTINUE+36
Function Call: WRITE	Prompt: !!,"The bill number and amount written off will scroll by on the screen." Line Location: CONTINUE+41
Function Call: WRITE	Prompt: !,"If you wish to capture this information, please turn on Screen Capture.",! Line Location: CONTINUE+42
Routine Call	DIE Line Location: BEN+28
Routine Call	DIR Line Location: CONTINUE+48

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	ROLLTPB+6
^BARBL(	LOOPDUZ+3, LOOPDT+4, LOOPBIL+4, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4
^BARTMP("BARAWO"	WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3, BEN+35
^DIC(4 - [#4]	CONTINUE+18

Name	Line Occurrences
LOOPBIL	LOOPDT+4
LOOPDT	LOOPDUZ+3
ROLL	ROLLBILL+6
ROLLBILL	BEN+37
ROLLTPB	ROLL+15
WRITEOFF	LOOPBIL+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM	ROLLTPB+2*
>> ABMP("BDFN"	ROLLTPB+5*, ROLLTPB+6, ROLLTPB+7
>> ABMP("BILL"	ROLLTPB+6*
>> ADJTYPE	CONTINUE+36
>> BAR("3P BILL	LOC" , ROLL+4*, ROLL+6, ROLL+7
>> BAR("ACCT"	WRITEOFF+18, CONTINUE+22, CONTINUE+23, CONTINUE+25
>> BAR("DTYP"	LOOPDT+4, LOOPBIL+4, CONTINUE+9
>> BAR("LOC"	WRITEOFF+15, CONTINUE+13, CONTINUE+14, CONTINUE+16
>> BAR(0	WRITEOFF+3*, WRITEOFF+5, WRITEOFF+6, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+19, WRITEOFF+25, BEN+3, BEN+34 , BEN+35
>> BAR(1	WRITEOFF+4*, WRITEOFF+7, WRITEOFF+8
>> BARACT	WRITEOFF+19*, WRITEOFF+20
>> BARAMT	WRITEOFF+6*
>> BARBAL	WRITEOFF+5*, BEN+1, BEN+34
BARBL	BEN+31!
>> BARBL2	LOOPBIL+2, LOOPBIL+4, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3 , BEN+9, BEN+35, ROLLBILL+3
>> BARBLDA	ROLLBILL+3*, ROLL+4
>> BARCAT	CONTINUE+35
>> BARCNT	BEN+32*
>> BARCONT	CONTINUE+50*
>> BARDOS("E"	CONTINUE+5
>> BARDOS1	LOOPDT+2
>> BARDOS1("E"	CONTINUE+9
>> BARDOS2	LOOPDT+4
>> BARDOS2("E"	CONTINUE+9
>> BARDOSE	WRITEOFF+8*
>> BARDUZ	LOOPDUZ+2, LOOPDUZ+3, LOOPDT+4, LOOPBIL+4, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18 , WRITEOFF+25, BEN+3, BEN+7, BEN+35
>> BARGBL	ROLL+14*, ROLL+15
>> BARITYP	WRITEOFF+21*, WRITEOFF+25
>> BARRBACK	BEN+37, CONTINUE+37
>> BARSUM	ROLLTPB+2
>> BARTMP	CONTINUE+15, CONTINUE+16, CONTINUE+18, CONTINUE+24, CONTINUE+25, CONTINUE+27
>> BARTRIEN	BEN+8*, BEN+9, BEN+10, BEN+30, BEN+34
>> BARUXMIT	BEN+26, CONTINUE+39
>> BARVISIT	LOOPDT+2, LOOPDT+4, LOOPBIL+4
>> BARVSTL	WRITEOFF+7*, WRITEOFF+15
>> BARY("ADJ CAT	" , CONTINUE+35
>> BARY("ADJ TYP	" , CONTINUE+36
>> BENPLUS	WRITEOFF+25, CONTINUE+22
>> D0	WRITEOFF+20*
DA	BEN+10*, BEN+29!, ROLL+3!
>> DIC	ROLL+13*, ROLL+14
DIDEL	BEN+27*, BEN+29!
DIE	BEN+11*, BEN+29!, ROLL+3!
DIR	CONTINUE+44!, CONTINUE+49!
DIR("A"	CONTINUE+46*
DIR("B"	CONTINUE+47*
DIR(0	CONTINUE+45*
DR	BEN+12, BEN+13, BEN+14, BEN+15, BEN+16, BEN+18, BEN+19, BEN+20, BEN+21, BEN+22 , BEN+24, BEN+25, BEN+26*, BEN+29!, ROLL+3!
DT	WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3, BEN+35
DUZ	WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+25, BEN+3, BEN+35
DUZ(2	BEN+7, ROLL+4, ROLL+5, ROLL+6, ROLL+9, ROLL+12, ROLL+16, ROLLTPB+6
>> DUZO2	ROLL+5*, ROLL+9, ROLL+16
>> NEWDUZ	CONTINUE+38
>> NEWSESS	CONTINUE+38
>> NEWUSRNM	CONTINUE+38
>> ROLL	ROLLBILL+5, ROLLBILL+7, ROLL+9, ROLL+10*
U	WRITEOFF+5, WRITEOFF+6, WRITEOFF+7, WRITEOFF+8, WRITEOFF+12, WRITEOFF+15, WRITEOFF+18, WRITEOFF+19, WRITEOFF+25, BEN+3 , BEN+34, BEN+35, CONTINUE+18
>> UFMSESID	CONTINUE+38
>> X	ROLLTPB+3*, ROLLTPB+5
>> Y	ROLL+7, ROLL+9, ROLL+12, ROLL+14, ROLLTPB+3, CONTINUE+50

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMAWO7

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: