Routine: BZSMAWO3

Information

BZSMAWO3 ; IHS/TAO/EDE - WRITE OFF OLD BILLS REVERSAL [ 04/06/2003 9:29 AM ]

Source Information

Source file <BZSMAWO3.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS Accounts Receivable	6	^BARDIE SETVAR^BARROLL TR^BARTDO $$NEW^BARTR EOP^BARUTL $$EN^BARVDF
VA Fileman	5	DD^%DT NOW^%DTC ^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	EN^XBVK
Tucson	1	ROLL^BZSMAWO2

Name	Comments	DBIA/ICR reference
REVERSE	; REVERSE THE TAO 1003 WRITE OFF
ISITAWO	; CHECK TO SEE IF TRANS IS TAO AWO 1003
ROLLBILL	; UPDATE PAYMENT MULTIPLE IN 3PB, MARK AS BILLED IN 3PB ; For bills reversed, update the payment multiple in 3PB and mark the ; bill as BILLED in 3PB Bill File.
NOTE	; TELL USER WHAT IS GOING TO HAPPEN
START	;
EOJ	;
BILLED	; MARK BILL IN 3PB BILL FILE AS BILLED
TRANS	; LOOP TRANSACTIONS FOR EACH DUZ(2) ; Loop transactions after 03/01/2003 @ 7:00 for each DUZ(2). This ; date and time used because code 1003 did not exist before then.
CHECK	; ; Check to see if this option has already been run
LOOP	; LOOP ALL DUZ(2) IN TRANSACTION FILE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,BZSCNT," Bills with Auto Write off (1003) reversed." Line Location: START+6
Function Call: WRITE	Prompt: !!,$$EN^BARVDF("RVN"),"NOTE:",$$EN^BARVDF("RVF") Line Location: NOTE+2
Function Call: WRITE	Prompt: ?7,"All transactions (at all facilities) of transaction type 43 (Adjustment)" Line Location: NOTE+3
Function Call: WRITE	Prompt: !?7,"with Adjustment Category 3 (Write Off)" Line Location: NOTE+4
Function Call: WRITE	Prompt: !?7,"and Adjustment Type 1003 (Paid Denied Over Stat Limit)" Line Location: NOTE+5
Function Call: WRITE	Prompt: !?7,"will be reversed by creating a new transaction of the same type," Line Location: NOTE+6
Function Call: WRITE	Prompt: !?7,"but negative dollar amount." Line Location: NOTE+7
Function Call: WRITE	Prompt: !!?7,$$EN^BARVDF("RVN"),"ALSO,",$$EN^BARVDF("RVF")," the bill will be re-opened in 3PB with a balance due." Line Location: NOTE+8
Function Call: WRITE	Prompt: !!,"The bill number and amount written off will scroll by on the screen" Line Location: NOTE+13
Function Call: WRITE	Prompt: !,"if you wish to capture this information.",! Line Location: NOTE+14
Function Call: WRITE	Prompt: !!?14,BZSDASH Line Location: CHECK+9
Function Call: WRITE	Prompt: !?14,"* This routine was already executed on ",BZSDONDT,". *" Line Location: CHECK+10
Function Call: WRITE	Prompt: !?14,"",?24,"It may not be executed again.",?66,"" Line Location: CHECK+11
Function Call: WRITE	Prompt: !?14,BZSDASH Line Location: CHECK+12
Function Call: WRITE	Prompt: !,BZSBILL,?25," for ",$J($FN(-$P(BZSTR(0),U,2),",",2),10)," written off (reversed)." Line Location: REVERSE+24
Routine Call	DIE Line Location: BILLED+4
Routine Call	DIR Line Location: NOTE+20

Name	Line Occurrences (* Changed, ! Killed)
^BARTR(	LOOP+5, TRANS+4, ISITAWO+1, ISITAWO+2
^BZSTMP("AWO-REVERSE"	CHECK+3, CHECK+4, LOOP+2*

Name	Line Occurrences
BILLED	ROLLBILL+6
CHECK	NOTE+10
EOJ	START+7
ISITAWO	TRANS+4
LOOP	START+5
NOTE	START+3
REVERSE	ISITAWO+4
ROLLBILL	ISITAWO+5
TRANS	LOOP+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Customize PDF page

Package: Tucson

Routine: BZSMAWO3

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Field # of Occurrence
DD^%DT	CHECK+5
NOW^%DTC	START+1
^BARDIE	REVERSE+18
SETVAR^BARROLL	ROLLBILL+4
TR^BARTDO	REVERSE+20
$$NEW^BARTR	REVERSE+1
EOP^BARUTL	CHECK+13
$$EN^BARVDF	NOTE+2, NOTE+8
ROLL^BZSMAWO2	ROLLBILL+5
^DIE	BILLED+4
$$GET1^DIQ	REVERSE+23
^DIR	NOTE+20
EN^XBVK	EOJ+2

Name	Field # of Occurrence
>> %	START+2
>> ABMP("BDFN"	BILLED+2
BARBL	REVERSE+21!
>> BARBLDA	ROLLBILL+3*
>> BZSBILL	REVERSE+23*, REVERSE+24
>> BZSCNT	START+6, LOOP+1, REVERSE+22
>> BZSCONT	START+4, NOTE+1, NOTE+22
>> BZSDASH	CHECK+8*, CHECK+9, CHECK+12
>> BZSDONDT	CHECK+6*, CHECK+10
>> BZSDONE	NOTE+11, CHECK+2, CHECK+7
>> BZSDTTR	TRANS+3, TRANS+4, ISITAWO+1, ISITAWO+2
>> BZSHOLD	LOOP+3*, LOOP+6
>> BZSNOW	START+2*, TRANS+4
>> BZSTR(0	ISITAWO+1*, REVERSE+23, REVERSE+24, ROLLBILL+3
>> BZSTR(1	ISITAWO+2*, ISITAWO+3
>> BZSTRIEN	REVERSE+1*, REVERSE+2, REVERSE+20
DA	REVERSE+2, REVERSE+19!, BILLED+2
DIDEL	REVERSE+17*, REVERSE+19!
DIE	REVERSE+3, REVERSE+19!, BILLED+1
DIR	NOTE+16!, NOTE+21!
DIR("A"	NOTE+18*
DIR("B"	NOTE+19*
DIR(0	NOTE+17*
DR	REVERSE+4, REVERSE+5, REVERSE+6, REVERSE+7, REVERSE+8, REVERSE+9, REVERSE+10, REVERSE+11, REVERSE+12, REVERSE+13 , REVERSE+14, REVERSE+15, REVERSE+16, REVERSE+19!, BILLED+3, BILLED+5!
DT	LOOP+2
DUZ(2	LOOP+3, LOOP+4, LOOP+5, LOOP+6*, TRANS+4, ISITAWO+1, ISITAWO+2
U	ISITAWO+3, REVERSE+23, REVERSE+24, ROLLBILL+3
>> Y	NOTE+22, CHECK+4*, CHECK+6