Routine: BARMAWO2

Information

BARMAWO2 ; IHS/SD/LSL - Automatic Write-Off 2000 - Reversal ;

Source Information

Source file <BARMAWO2.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA Fileman	5	DD^%DT NOW^%DTC ^DIE $$GET1^DIQ ^DIR
IHS Accounts Receivable	3	EOP^BARUTL $$EN^BARVDF ^BARVKL0

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR AWO REVERSAL (2000)

Entry Points

Name	Comments	DBIA/ICR reference
EN	; EP - IHS/DIT/CPC 1.8*28 CR 8349 START
REVERSE	;
ISITAWO	; ; Check to see if trans is AWO 2000
ROLLBILL	;
NOTE	;
XIT	;
BILLED	; ; Mark bill in 3PB Bill file as BILLED
TRANS	; ; Loop transactions after 12/18/2000 @ 7:00 for each DUZ(2) ; 12/18/2000 @ 7:00 used because this is when first AWO coding was ; completed. Code 501 did not exist before then.
CHECK	; ; Check to see if this option has already been run
LOOP	; ; Loop all DUZ(2) in transaction file.

External References

Name	Field # of Occurrence
DD^%DT	CHECK+5
NOW^%DTC	EN+10
EOP^BARUTL	CHECK+13
$$EN^BARVDF	NOTE+2, NOTE+8
^BARVKL0	XIT+1
^DIE	BILLED+5
$$GET1^DIQ	REVERSE+19
^DIR	NOTE+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "*********************************************************************",! Line Location: EN+1
Function Call: WRITE	Prompt: " STOP!!! STOP!!!! STOP!!!!",! Line Location: EN+2
Function Call: WRITE	Prompt: "This is an old, outdated routine and shouldn't be used. Please ",! Line Location: EN+3
Function Call: WRITE	Prompt: "request assistance from OIT before starting the write-off process.",! Line Location: EN+4
Function Call: WRITE	Prompt: "*********************************************************************",! Line Location: EN+5
Function Call: WRITE	Prompt: !!!,BARCNT," Bills with Auto Write off 2000 (501) reversed." Line Location: EN+13
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 501 (Auto Write-off 2000)" 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,BARDASH Line Location: CHECK+9
Function Call: WRITE	Prompt: !?14,"* This option was already executed on ",BARDONDT,". *" 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,BARDASH Line Location: CHECK+12
Function Call: WRITE	Prompt: !,BARBILL,?25," for ",$J($FN(-$P(BARTR(0),U,2),",",2),10)," written off (reversed)." Line Location: REVERSE+20
Routine Call	DIE Line Location: BILLED+5
Routine Call	DIR Line Location: NOTE+20

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

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+11
>> ABMP("BDFN"	BILLED+3
>> BARBILL	REVERSE+19*, REVERSE+20
BARBL	REVERSE+17!
>> BARCNT	EN+13, LOOP+3, REVERSE+18
>> BARCONT	EN+9, NOTE+1, NOTE+22
>> BARDASH	CHECK+8*, CHECK+9, CHECK+12
>> BARDONDT	CHECK+6*, CHECK+10
>> BARDONE	NOTE+11, CHECK+2, CHECK+7
>> BARDTTR	TRANS+4, TRANS+5, ISITAWO+2, ISITAWO+3
>> BARHOLD	LOOP+4*, LOOP+7
>> BARNOW	EN+11*, TRANS+5
>> BARTR(0	ISITAWO+2*, REVERSE+19, REVERSE+20
>> BARTR(1	ISITAWO+3*, ISITAWO+4
DA	REVERSE+16!, BILLED+3*
DIDEL	REVERSE+15*, REVERSE+16!
DIE	REVERSE+1, REVERSE+16!, BILLED+2
DIR	NOTE+16!, NOTE+21!
DIR("A"	NOTE+18*
DIR("B"	NOTE+19*
DIR(0	NOTE+17*
DR	REVERSE+2, REVERSE+3, REVERSE+4, REVERSE+5, REVERSE+6, REVERSE+7, REVERSE+8, REVERSE+9, REVERSE+10, REVERSE+11 , REVERSE+12, REVERSE+13, REVERSE+14, REVERSE+16!, BILLED+4, BILLED+6!
DT	LOOP+2
DUZ(2	LOOP+4, LOOP+5, LOOP+6, LOOP+7*, TRANS+5, ISITAWO+2, ISITAWO+3
U	ISITAWO+4, REVERSE+19, REVERSE+20
>> Y	NOTE+22, CHECK+4*, CHECK+6

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMAWO2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CHECK	NOTE+10
ISITAWO	TRANS+5
LOOP	EN+12
NOTE	EN+8
REVERSE	ISITAWO+5
ROLLBILL	ISITAWO+6
TRANS	LOOP+6
XIT	EN+14