Routine: BARMAWO3

Information

BARMAWO3 ; IHS/SD/LSL - Automatic Write-Off UFMS NON-BEN IN ERROR 2007 - Reversal ;

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Accounts Receivable	6	TR^BARTDO $$NEW^BARTR ($$FIND3PB,EOP)^BARUTL $$EN^BARVDF ^BARVKL0 $$VALI^BARVPM
VA Fileman	5	DD^%DT NOW^%DTC ^DIE $$GET1^DIQ ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR AWO NON-BEN REV (2007)

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 AUTO WRITE-OFF 2007
ARBILL	;
NOTE	;
XIT	;
BILLED	;
TRANS	; ; Loop transactions after APR 12,2007 @ 7:00 for each DUZ(2) ; APR 12,2007 @ 7:00 used because this is just before the release (4/13) ; of UFMS AWO coding. Code 916 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
TR^BARTDO	REVERSE+20
$$NEW^BARTR	REVERSE+1
$$FIND3PB^BARUTL	BILLED+2
EOP^BARUTL	CHECK+13
$$EN^BARVDF	NOTE+2, NOTE+9
^BARVKL0	XIT+1
$$VALI^BARVPM	ISITAWO+21
^DIE	ARBILL+5, REVERSE+18, BILLED+7
$$GET1^DIQ	ISITAWO+9, ISITAWO+10, ISITAWO+13, ISITAWO+14, REVERSE+23
^DIR	NOTE+21

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 2007 (916) 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 916 (AUTO WRITE-OFF 2007)" 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. Only the Non-Ben entries mistakenly written" Line Location: NOTE+7
Function Call: WRITE	Prompt: !?7,"off during the UFMS AUTO WRITE-OFF of 2007 in Patch 1 will be reversed" Line Location: NOTE+8
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+9
Function Call: WRITE	Prompt: !!,"The bill number and amount written off will scroll by on the screen" Line Location: NOTE+14
Function Call: WRITE	Prompt: !,"if you wish to capture this information.",! Line Location: NOTE+15
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+24
Routine Call	DIE Line Location: ARBILL+5 REVERSE+18 BILLED+7
Routine Call	DIR Line Location: NOTE+21

FileNo	Call Tags
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ

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

Name	Line Occurrences
ARBILL	ISITAWO+33
BILLED	ISITAWO+32
CHECK	NOTE+11
ISITAWO	TRANS+5
LOOP	EN+12
NOTE	EN+8
REVERSE	ISITAWO+31
TRANS	LOOP+6
XIT	EN+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+11
>> ABMBIL	BILLED+2*, BILLED+5
>> BARACT	ISITAWO+18*, ISITAWO+19, ISITAWO+20
>> BARBILL	REVERSE+23*, REVERSE+24
BARBL	ISITAWO+5*, ISITAWO+6, ISITAWO+7, ISITAWO+11, REVERSE+21!
>> BARBLDA	BILLED+1*, BILLED+2
>> BARCNT	EN+13, LOOP+3, REVERSE+22
>> BARCONT	EN+9, NOTE+1, NOTE+23
>> BARDASH	CHECK+8*, CHECK+9, CHECK+12
>> BARDONDT	CHECK+6*, CHECK+10
>> BARDONE	NOTE+12, CHECK+2, CHECK+7
>> BARDTTR	TRANS+4, TRANS+5, ISITAWO+2, ISITAWO+3, ISITAWO+7, ISITAWO+11
>> BARHOLD	LOOP+4*, LOOP+7
>> BARITYP	ISITAWO+21*, ISITAWO+22
>> BARNOW	EN+11*, TRANS+5
>> BARTR(0	ISITAWO+2*, ISITAWO+5, ISITAWO+18, ARBILL+2, REVERSE+23, REVERSE+24, BILLED+1
>> BARTR(1	ISITAWO+3*, ISITAWO+26
>> BARTRIEN	REVERSE+1*, REVERSE+2, REVERSE+20
D0	ISITAWO+20*, ISITAWO+23!
DA	ARBILL+1!, ARBILL+2, REVERSE+2, REVERSE+19!, BILLED+5*
DIC	ARBILL+1!
DIDEL	REVERSE+17*, REVERSE+19!
DIE	ARBILL+1!, ARBILL+3, REVERSE+3, REVERSE+19!, BILLED+4*
DIR	NOTE+17!, NOTE+22!, ARBILL+1!
DIR("A"	NOTE+19*
DIR("B"	NOTE+20*
DIR(0	NOTE+18*
DR	ARBILL+1!, ARBILL+4, 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+6, BILLED+8!
DT	LOOP+2
DUZ(2	LOOP+4, LOOP+5, LOOP+6, LOOP+7*, TRANS+5, ISITAWO+2, ISITAWO+3, ISITAWO+7, ISITAWO+11, BILLED+2
>> POSTAWO	ISITAWO+9*, ISITAWO+29
>> POSTDEB	ISITAWO+10*
>> POSTTRAN	ISITAWO+7*, ISITAWO+8, ISITAWO+9, ISITAWO+10, ISITAWO+29
>> PREAWO	ISITAWO+13*, ISITAWO+30
>> PRECRED	ISITAWO+14*
>> PRETRAN	ISITAWO+11*, ISITAWO+12, ISITAWO+13, ISITAWO+14, ISITAWO+30
U	ISITAWO+5, ISITAWO+18, ISITAWO+26, ARBILL+2, REVERSE+23, REVERSE+24, BILLED+1
>> Y	NOTE+23, CHECK+4*, CHECK+6

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMAWO3

Information

Source Information

Call Graph

Call Graph Total: 11

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: