Routine: BARMAWO

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIC $$GET1^DIQ ^DIR
IHS Accounts Receivable	2	LOOPDUZ^BARMAWO1 ^BARVKL0
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR AUTOMATIC WRITE-OFF

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP - IHS/DIT/CPC 1.8*28 CR 8349 START
ASKDOS	; ; Ask date of Service
PAZ	;EP to pause report
ASKLOC	; ; Ask list of visit locations
CONTINUE	; ; Display choices to user and ask if they wish to continue. ; Tell them bills written off will scroll on the screen if they wish to ; capture.
XIT	; ; Clean up
ASKACCT	; ; Ask for list of A/R Accounts

External References

Name	Field # of Occurrence
DD^%DT	EN+40, ASKDOS+12
LOOPDUZ^BARMAWO1	EN+57
^BARVKL0	XIT+3
^DIC	ASKLOC+9, ASKACCT+10
$$GET1^DIQ	EN+11, ASKACCT+12
^DIR	ASKDOS+19, CONTINUE+25, PAZ+3
$$VAL^XBDIQ1	CONTINUE+17

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: !!?5,"1. The DOS on the bill is prior to 10/1/2005" Line Location: EN+28
Function Call: WRITE	Prompt: !!?5,"1. The DOS on the bill is prior to 10/1/2005" Line Location: EN+29
Function Call: WRITE	Prompt: !!?5,"1. The DOS on the bill is at least three (3) years old." Line Location: EN+30
Function Call: WRITE	Prompt: !?5,"2. The amount billed is less than 20,000.00" Line Location: EN+32
Function Call: WRITE	Prompt: !?5,"3. The A/R Account tied to the bill is in the list specified" Line Location: EN+33
Function Call: WRITE	Prompt: !?5," and not NON-BENEFICIARY." Line Location: EN+34
Function Call: WRITE	Prompt: !?5,"4. There is a positive balance left on the bill" Line Location: EN+35
Function Call: WRITE	Prompt: !?5,"5. The Visit Location tied to the bill is in the list specified" Line Location: EN+36
Function Call: WRITE	Prompt: !!,"This menu option expires on ",BAREXPDT,"." Line Location: EN+42
Function Call: WRITE	Prompt: !!!?20,"* This option expired on ",BAREXPDT," ***" Line Location: EN+45
Function Call: WRITE	Prompt: !! Line Location: EN+48
Function Call: WRITE	Prompt: !!!,BARCNT," Bills written off to Auto Write-off 2001." Line Location: EN+62
Function Call: WRITE	Prompt: "ALL" Line Location: ASKLOC+14
Function Call: WRITE	Prompt: ! Line Location: ASKLOC+16
Function Call: WRITE	Prompt: ! Line Location: ASKACCT+3
Function Call: WRITE	Prompt: !,"Cannot use this option on Non-Beneficiaries",! Line Location: ASKACCT+14
Function Call: WRITE	Prompt: "ALL" Line Location: ASKACCT+18
Function Call: WRITE	Prompt: !!! Line Location: ASKACCT+20
Function Call: WRITE	Prompt: "You have chosen to write off bills meeting the above criteria" Line Location: CONTINUE+4
Function Call: WRITE	Prompt: !,"for dates of service up to and including ",BARDOS("E") Line Location: CONTINUE+5
Function Call: WRITE	Prompt: !!,"for the following Locations: " Line Location: CONTINUE+6
Function Call: WRITE	Prompt: ?40,"ALL" Line Location: CONTINUE+7
Function Call: WRITE	Prompt: ?40,$P(^DIC(4,BARTMP,0),U),! Line Location: CONTINUE+11
Function Call: WRITE	Prompt: !,"for the following A/R accounts: " Line Location: CONTINUE+12
Function Call: WRITE	Prompt: ?40,"ALL" Line Location: CONTINUE+13
Function Call: WRITE	Prompt: ?40,$$VAL^XBDIQ1(90050.02,BARTMP,.01),! Line Location: CONTINUE+17
Function Call: WRITE	Prompt: !!,"The bill number and amount written off will scroll by on the screen" Line Location: CONTINUE+18
Function Call: WRITE	Prompt: !,"if you wish to capture this information.",! Line Location: CONTINUE+19
Function Call: WRITE	Prompt: ! Line Location: PAZ+2
Routine Call	DIC Line Location: ASKLOC+9 ASKACCT+10
Routine Call	DIR Line Location: ASKDOS+19 CONTINUE+25 PAZ+3

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

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	EN+13, EN+37
^DIC(4 - [#4]	CONTINUE+11

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR("ACCT"	ASKACCT+9, ASKACCT+15*, ASKACCT+16, CONTINUE+13, CONTINUE+14, CONTINUE+16
>> BAR("ACCTTYPE"	ASKACCT+12*, ASKACCT+13
>> BAR("LOC"	ASKLOC+8, ASKLOC+11*, ASKLOC+12, CONTINUE+7, CONTINUE+8, CONTINUE+10
>> BARACCT	EN+54, ASKACCT+4, ASKACCT+17
>> BARCNT	EN+10*, EN+61, EN+62
>> BARCONT	EN+10, EN+56, CONTINUE+27
>> BARDOS	EN+52, ASKDOS+7, ASKDOS+21
>> BARDOS("E"	ASKDOS+8, ASKDOS+22, CONTINUE+5
>> BARDOS2	ASKDOS+10*, ASKDOS+11, ASKDOS+18
>> BARDOSE	ASKDOS+13*, ASKDOS+16
>> BAREXP	EN+13, EN+15, EN+29, EN+37, EN+38*, EN+39, EN+44, EN+60, ASKDOS+6
>> BAREXPDT	EN+41*, EN+42, EN+45
>> BARHOLD	EN+9*, XIT+2
>> BARLOC	EN+50, ASKLOC+3, ASKLOC+13
>> BARSECT	EN+11*
>> BARTMP	CONTINUE+9, CONTINUE+10, CONTINUE+11, CONTINUE+15, CONTINUE+16, CONTINUE+17
DIC	ASKLOC+2!, ASKLOC+4, ASKLOC+15!, ASKACCT+2!, ASKACCT+5, ASKACCT+19!
DIC("A"	ASKLOC+6, ASKLOC+8, ASKACCT+7, ASKACCT+9
DIC(0	ASKLOC+5, ASKACCT+6
DIR	ASKDOS+14!, CONTINUE+21!, CONTINUE+26!, PAZ+3!
DIR("?"	ASKDOS+16, ASKDOS+17
DIR("A"	ASKDOS+15, CONTINUE+23
DIR("B"	CONTINUE+24*
DIR(0	ASKDOS+18, CONTINUE+22, PAZ+3*
DT	EN+44, ASKDOS+10
>> DUOUT	ASKLOC+13, ASKACCT+17
DUZ	EN+11
DUZ(2	EN+9, EN+13, EN+37, XIT+2*
IO("Q"	PAZ+1
IO("S"	PAZ+1
IOSL	PAZ+2
IOST	PAZ+1
U	EN+13, EN+37, ASKLOC+11, ASKACCT+15, CONTINUE+11
X	ASKLOC+2!, ASKACCT+2!
Y	EN+39, EN+41, ASKLOC+2!, ASKLOC+7, ASKLOC+10, ASKLOC+11, ASKDOS+11, ASKDOS+13, ASKDOS+20, ASKDOS+21 , ASKACCT+2!, ASKACCT+8, ASKACCT+11, ASKACCT+12, ASKACCT+15, CONTINUE+27
Y(0	ASKDOS+22

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMAWO

Information

Source Information

Call Graph

Call Graph Total: 7

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
ASKACCT	EN+53
ASKDOS	EN+51
ASKLOC	EN+49
CONTINUE	EN+55
PAZ	EN+46
XIT	EN+47, EN+50, EN+54, EN+56, EN+63