Routine: BARMAWO1

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

Package

Total

Call Graph

IHS Accounts Receivable

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

IHS VA Utilities

$$DIC^XBDIQ1

Third Party Billing

FILE^ABMAROLL

VA Fileman

^DIE

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARMAWO

Package

Total

Caller Graph

IHS Accounts Receivable

BARMAWO

Entry Points

Name	Comments	DBIA/ICR reference
ROLLTPB	; ; File A/R data in payment mult of 3PB
WRITEOFF
ROLLBILL
LOOPDT	; ; Loop A/R Bill File by date of service
LOOPBIL	; ; Loop bills for date of service
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

Name	Field # of Occurrence
FILE^ABMAROLL	ROLLTPB+17
SETBLRL^BARROLL	ROLLBILL+8
SETVAR^BARROLL	ROLLBILL+4
TR^BARTDO	WRITEOFF+56
$$NEW^BARTR	WRITEOFF+36
MSG^BARTR	WRITEOFF+37
$$FIND3PB^BARUTL	ROLL+4
$$VALI^BARVPM	WRITEOFF+20
^DIE	WRITEOFF+54
$$DIC^XBDIQ1	ROLL+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "*********************************************************************",! Line Location: BARMAWO1+20
Function Call: WRITE	Prompt: " STOP!!! STOP!!!! STOP!!!!",! Line Location: BARMAWO1+21
Function Call: WRITE	Prompt: "This is an old, outdated routine and shouldn't be used. Please ",! Line Location: BARMAWO1+22
Function Call: WRITE	Prompt: "request assistance from OIT before starting the write-off process.",! Line Location: BARMAWO1+23
Function Call: WRITE	Prompt: "*********************************************************************",! Line Location: BARMAWO1+24
Function Call: WRITE	Prompt: !,$P(BAR(0),U),?25," for ",$J($FN(BARBAL,",",2),10)," written off." Line Location: WRITEOFF+59
Routine Call	DIE Line Location: WRITEOFF+54

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	ROLLTPB+6
^BARBL(	LOOPDUZ+3, LOOPDT+3, LOOPBIL+3, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4
^BARTMP("BARAWO"	WRITEOFF+24, WRITEOFF+26
^BARTMP("BARAWO2"	WRITEOFF+34*

Name	Line Occurrences
LOOPBIL	LOOPDT+3
LOOPDT	LOOPDUZ+3
ROLL	ROLLBILL+6
ROLLBILL	WRITEOFF+60
ROLLTPB	ROLL+15
WRITEOFF	LOOPBIL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM	ROLLTPB+2*
>> ABMP("BDFN"	ROLLTPB+5*, ROLLTPB+6, ROLLTPB+15
>> ABMP("BILL"	ROLLTPB+6*
>> BAR("3P BILL	LOC" , ROLL+4*, ROLL+6, ROLL+7
>> BAR("ACCT"	WRITEOFF+13
>> BAR("LOC"	WRITEOFF+11
>> BAR(0	WRITEOFF+3*, WRITEOFF+5, WRITEOFF+6, WRITEOFF+9, WRITEOFF+13, WRITEOFF+14, WRITEOFF+59
>> BAR(1	WRITEOFF+4*, WRITEOFF+7, WRITEOFF+33
>> BARACT	WRITEOFF+14*, WRITEOFF+19
>> BARAMT	WRITEOFF+6*, WRITEOFF+25
>> BARBAL	WRITEOFF+5*, WRITEOFF+23, WRITEOFF+59
BARBL	WRITEOFF+57!
>> BARBL2	LOOPBIL+2, LOOPBIL+3, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+24, WRITEOFF+26, WRITEOFF+34, WRITEOFF+37, ROLLBILL+3
>> BARBLDA	ROLLBILL+3*, ROLL+4
>> BARCNT	WRITEOFF+58*
>> BARDOS	LOOPDT+3
>> BARDUZ	LOOPDUZ+2, LOOPDUZ+3, LOOPDT+3, LOOPBIL+3, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+24, WRITEOFF+26, WRITEOFF+34 , WRITEOFF+35
>> BAREXP	WRITEOFF+32
>> BARGBL	ROLL+14*, ROLL+15
>> BARITYP	WRITEOFF+20*, WRITEOFF+21
>> BARSUM	ROLLTPB+2
>> BARTRIEN	WRITEOFF+36*, WRITEOFF+37, WRITEOFF+38, WRITEOFF+56
>> BARVISIT	LOOPDT+2, LOOPDT+3, LOOPBIL+3
>> BARVSTL	WRITEOFF+7*, WRITEOFF+11
>> D0	WRITEOFF+19*
DA	WRITEOFF+38*, WRITEOFF+55!, ROLL+3!
>> DIC	ROLL+13*, ROLL+14
DIDEL	WRITEOFF+53*, WRITEOFF+55!
DIE	WRITEOFF+39*, WRITEOFF+55!, ROLL+3!
DR	WRITEOFF+40, WRITEOFF+41, WRITEOFF+42, WRITEOFF+43, WRITEOFF+44, WRITEOFF+45, WRITEOFF+46, WRITEOFF+47, WRITEOFF+48, WRITEOFF+49 , WRITEOFF+50, WRITEOFF+51, WRITEOFF+52*, WRITEOFF+55!, ROLL+3!
DT	WRITEOFF+24, WRITEOFF+26, WRITEOFF+33, WRITEOFF+34
DUZ	WRITEOFF+24, WRITEOFF+26, WRITEOFF+34
DUZ(2	WRITEOFF+35, ROLL+4, ROLL+5, ROLL+6, ROLL+9, ROLL+12, ROLL+16, ROLLTPB+6
>> DUZO2	ROLL+5*, ROLL+9, ROLL+16
>> ROLL	ROLLBILL+5, ROLLBILL+7, ROLL+9, ROLL+10*
U	WRITEOFF+5, WRITEOFF+6, WRITEOFF+7, WRITEOFF+9, WRITEOFF+13, WRITEOFF+14, WRITEOFF+33, WRITEOFF+59
>> X	ROLLTPB+3*, ROLLTPB+5
>> Y	ROLL+7, ROLL+9, ROLL+12, ROLL+14, ROLLTPB+3

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMAWO1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: