Routine: BZSMAWO2

Information

BZSMAWO2 ; IHS/TAO/EDE - WRITE OFF OLD BILLS [ 05/23/2003 7:42 PM ]

Source Information

Source file <BZSMAWO2.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IHS Accounts Receivable	3	(SETBLRL,SETVAR)^BARROLL TR^BARTDO $$NEW^BARTR
IHS VA Utilities	2	$$DIC^XBDIQ1 EN^XBVK
VA Fileman	2	^DIE $$GET1^DIQ
Third Party Billing	1	(FILE,LKUP)^ABMAROLL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Tucson	2	BZSMAWO BZSMAWO3

Entry Points

Name	Comments	DBIA/ICR reference
ROLLTPB	; FILE A/R DATA IN PAYMENT MULTIPLE OF 3PB
LOOPBIL	; LOOP THRU A/R BILLS FOR SINGLE DATE OF SERVICE
ROLLBILL	; UPDATE PAYMENT MULTIPLE IN 3P, MARK COMPLETE AND ROLLED ; For bills written off, update Payment multiple in 3P and mark bill ; complete in 3PB. Also mark bill as rolled in A/R
WRITEOFF	; WRITE OFF BILLS THAT MEET CRITERIA
START	; WRITE OFF BILLS
LOOPDT	; LOOP THRU A/R BILLS BY DATE OF SERVICE
LOOPDUZ	; LOOP THRU A/R BILLS BY DUZ(2)
ROLL	; ROLL A/R VARS TO 3PB

External References

Name	Field # of Occurrence
FILE^ABMAROLL	ROLLTPB+8
LKUP^ABMAROLL	ROLLTPB+5
SETBLRL^BARROLL	ROLLBILL+7
SETVAR^BARROLL	ROLLBILL+5
TR^BARTDO	WRITEOFF+39
$$NEW^BARTR	WRITEOFF+20
^DIE	WRITEOFF+37
$$GET1^DIQ	WRITEOFF+14
$$DIC^XBDIQ1	ROLL+7
EN^XBVK	START+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(BZS(0),U),?25," for ",$J($FN(BZSBAL,",",2),10)," written off." Line Location: WRITEOFF+42
Routine Call	DIE Line Location: WRITEOFF+37

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARAC(2906 - [#90050.02]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	ROLL+10, ROLLTPB+4
^BARBL(	LOOPDUZ+2, LOOPDT+2, LOOPBIL+2, WRITEOFF+1, WRITEOFF+2, WRITEOFF+3, ROLL+9, ROLL+10
^BZSTMP("BZSAWO"	WRITEOFF+16, WRITEOFF+18, WRITEOFF+43*
^DD(9002274.4	START+1, START+2, START+4

Label References

Name	Line Occurrences
LOOPBIL	LOOPDT+5
LOOPDT	LOOPDUZ+2
LOOPDUZ	START+3
ROLL	ROLLBILL+6
ROLLBILL	WRITEOFF+44
ROLLTPB	ROLL+13
WRITEOFF	LOOPBIL+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABM	ROLLTPB+1*
>> ABMP("BDFN"	ROLLTPB+3*, ROLLTPB+4, ROLLTPB+6
>> ABMP("BILL"	ROLLTPB+4*, ROLLTPB+5
BARBL	ROLLBILL+4!
BARBL(	ROLL+2
BARBL(17	ROLL+4
>> BARBLDA	ROLLBILL+3*, ROLL+9, ROLL+10
>> BARSUM	ROLLTPB+1
>> BZS("ACCT"	WRITEOFF+12
>> BZS(0	WRITEOFF+2*, WRITEOFF+4, WRITEOFF+5, WRITEOFF+8, WRITEOFF+12, WRITEOFF+13, WRITEOFF+42, WRITEOFF+43
>> BZS(1	WRITEOFF+3*, WRITEOFF+6
>> BZS3PDA	ROLL+4*, ROLL+5, ROLL+6
>> BZS3PNM	ROLL+2, ROLL+3, ROLL+10, ROLLTPB+5
>> BZSACT	WRITEOFF+13*, WRITEOFF+14
>> BZSAMT	WRITEOFF+5*, WRITEOFF+17
>> BZSBAL	WRITEOFF+4*, WRITEOFF+15, WRITEOFF+42, WRITEOFF+43
>> BZSBDOS	LOOPDT+4
BZSBL	WRITEOFF+40!
>> BZSBL2	LOOPBIL+1, LOOPBIL+2, WRITEOFF+1, WRITEOFF+2, WRITEOFF+3, WRITEOFF+16, WRITEOFF+18, WRITEOFF+43, ROLLBILL+3
>> BZSCNT	WRITEOFF+41*
>> BZSDDSV	START+1*, START+4
>> BZSDUZ	LOOPDUZ+1, LOOPDUZ+2, LOOPDT+2, LOOPBIL+2, WRITEOFF+1, WRITEOFF+2, WRITEOFF+3, WRITEOFF+16, WRITEOFF+18, WRITEOFF+19
>> BZSEDOS	LOOPDT+3
>> BZSGBL	ROLL+12*, ROLL+13
>> BZSITYP	WRITEOFF+14*
>> BZSTRIEN	WRITEOFF+20*, WRITEOFF+21, WRITEOFF+39
>> BZSVISIT	LOOPDT+1, LOOPDT+2, LOOPDT+3, LOOPDT+4, LOOPBIL+2
>> BZSVSTL	WRITEOFF+6*
DA	WRITEOFF+21*, WRITEOFF+38!, ROLL+1!
>> DIC	ROLL+7*, ROLL+9, ROLL+12
DIDEL	WRITEOFF+36*, WRITEOFF+38!
DIE	WRITEOFF+22*, WRITEOFF+38!, ROLL+1!
DR	WRITEOFF+23, WRITEOFF+24, WRITEOFF+25, WRITEOFF+26, WRITEOFF+27, WRITEOFF+28, WRITEOFF+29, WRITEOFF+30, WRITEOFF+31, WRITEOFF+32 , WRITEOFF+33, WRITEOFF+34, WRITEOFF+35*, WRITEOFF+38!, ROLL+1!
DT	WRITEOFF+16, WRITEOFF+18, WRITEOFF+43
DUZ	WRITEOFF+16, WRITEOFF+18, WRITEOFF+43
DUZ(2	WRITEOFF+19, ROLL+8, ROLL+9, ROLL+10, ROLL+11, ROLL+14, ROLLTPB+4
>> DUZO2	ROLL+8*, ROLL+9, ROLL+10, ROLL+14
U	WRITEOFF+4, WRITEOFF+5, WRITEOFF+6, WRITEOFF+8, WRITEOFF+12, WRITEOFF+13, WRITEOFF+42, WRITEOFF+43, ROLL+9, ROLL+10
>> X	ROLLTPB+2*, ROLLTPB+3
>> Y	ROLL+6, ROLL+11, ROLL+12, ROLLTPB+2

Customize PDF page

Package: Tucson

Routine: BZSMAWO2

Call Graph Total: 8

Caller Graph Total: 2