Routine: BARMAWO6

Package	Total	Call Graph
IHS Accounts Receivable	5	($$DATE,$$SDT)^BARDUTL (CONTINUE,LOOPDUZ)^BARMAWO7 DISPLAYT^BARUFLOG ($$CURSTAT,$$SETSESS)^BARUFUT ^BARVKL0
VA Fileman	5	DD^%DT NOW^%DTC ^DIC $$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ADJTYPE
NON
EN	;EP
ASKDOS	;
PAZ	;EP to pause report
ASKSESS	;EP
ASKLOC	;
ADJTYP
ADJCAT	;choices
XIT	;
DATE	; don't force dates 3 years into past
ASKRBACK	;EP
ASKBEN
ASKACCT	;
ASKDTYP	;EP

External References

Name	Field # of Occurrence
DD^%DT	DATE+7, DATE+20
NOW^%DTC	ASKSESS+26
$$DATE^BARDUTL	DATE+3, DATE+11
$$SDT^BARDUTL	EN+72
CONTINUE^BARMAWO7	EN+60
LOOPDUZ^BARMAWO7	EN+68
DISPLAYT^BARUFLOG	EN+77
$$CURSTAT^BARUFUT	ASKSESS+39
$$SETSESS^BARUFUT	EN+78, ASKSESS+35
^BARVKL0	XIT+3
^DIC	ASKLOC+9, ASKACCT+11, ADJTYPE+8, ADJCAT+8, ADJTYP+9, ASKSESS+22, ASKSESS+32
$$GET1^DIQ	EN+15, ASKACCT+13
^DIR	ASKDTYP+2, ASKBEN+10, PAZ+3, ASKRBACK+6, ASKSESS+9, ASKSESS+46

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option was updated in bar1.822 to remove the date check." Line Location: EN+1
Function Call: WRITE	Prompt: !,"It will now run for ANY date and should be used with EXTREME" Line Location: EN+2
Function Call: WRITE	Prompt: !,"caution and only by OIT." Line Location: EN+3
Function Call: WRITE	Prompt: !!,"You should use D ^%GO to backup globals ^BARBL, ^BARTR, and" Line Location: EN+5
Function Call: WRITE	Prompt: !,"^ABMDBILL prior to running as a precaution." Line Location: EN+6
Function Call: WRITE	Prompt: !!,"Users should be off the system when running. :)" Line Location: EN+7
Function Call: WRITE	Prompt: !! Line Location: EN+8
Function Call: WRITE	Prompt: !," This menu is meant to be used as a Write-off tool. " Line Location: EN+17
Function Call: WRITE	Prompt: !!," The user is asked for: " Line Location: EN+18
Function Call: WRITE	Prompt: !," *A locally added Adjustment Type code for Auto Write-off, IEN or Full Name of" Line Location: EN+19
Function Call: WRITE	Prompt: !," Write-off Code" Line Location: EN+20
Function Call: WRITE	Prompt: !," *Inclusion of Non-Beneficiaries or not, " Line Location: EN+21
Function Call: WRITE	Prompt: !," *A list of visit locations (or all)," Line Location: EN+22
Function Call: WRITE	Prompt: !," *An inclusive Date Range of Bills to be written off," Line Location: EN+23
Function Call: WRITE	Prompt: !," *A list of A/R Accounts (or all). " Line Location: EN+24
Function Call: WRITE	Prompt: !!," The account balance of each bill found within the specified date range will " Line Location: EN+30
Function Call: WRITE	Prompt: !," be written off to the Adjustment Code entered if the following conditions" Line Location: EN+31
Function Call: WRITE	Prompt: !," are met:" Line Location: EN+32
Function Call: WRITE	Prompt: !!?5,"1. The DOS or Approval ddate on the bill is within date range entered." Line Location: EN+36
Function Call: WRITE	Prompt: !?5,"2. The A/R Account tied to the bill is in the list specified, " Line Location: EN+37
Function Call: WRITE	Prompt: !?5,"3. The account is NON-BENEFICIARY or BENEFICARY, as selected." Line Location: EN+38
Function Call: WRITE	Prompt: !?5,"4. There is a positive balance left on the bill" Line Location: EN+39
Function Call: WRITE	Prompt: !?5,"5. The Visit Location tied to the bill is in the list specified" Line Location: EN+40
Function Call: WRITE	Prompt: ! Line Location: EN+43
Function Call: WRITE	Prompt: !!!,$G(BARCNT)," Bills written off to Auto Write-off ",$$SDT^BARDUTL(DT),!! Line Location: EN+72
Function Call: WRITE	Prompt: ! Line Location: ASKLOC+16
Function Call: WRITE	Prompt: ! Line Location: DATE+12
Function Call: WRITE	Prompt: *7," Date later than 12/31/2009 is not acceptable at this time" Line Location: DATE+19
Function Call: WRITE	Prompt: ! Line Location: ASKACCT+3
Function Call: WRITE	Prompt: !,"Selecting ALL A/R accounts will Write off Only BENEFICIARY accounts" Line Location: ASKACCT+4
Function Call: WRITE	Prompt: !," ********* ********** *********** ***********************" Line Location: ASKBEN+2
Function Call: WRITE	Prompt: !,"Generally, this Write-Off should apply to BENEFICIARY patients ONLY." Line Location: ASKBEN+3
Function Call: WRITE	Prompt: !,"However, you may specify whether to include Non-Beneficiary patients as well." Line Location: ASKBEN+4
Function Call: WRITE	Prompt: !," ********* ********** *********** ***********************",! Line Location: ASKBEN+5
Function Call: WRITE	Prompt: ! Line Location: PAZ+2
Function Call: WRITE	Prompt: ! Line Location: ADJTYPE+6
Function Call: WRITE	Prompt: !!," QUITTING" Line Location: ADJTYPE+9
Function Call: WRITE	Prompt: !,"Required Input" Line Location: ADJTYPE+10
Function Call: WRITE	Prompt: !,"Required Input" Line Location: ADJTYPE+12
Function Call: WRITE	Prompt: !,"Please enter a valid Write-Off code" Line Location: ADJTYPE+13
Function Call: WRITE	Prompt: ! Line Location: ADJTYPE+16
Function Call: WRITE	Prompt: !!," Select WRITE-OFF(3), NON-PAYMENT(4), or PAYMENT CREDIT(20) please" Line Location: ADJCAT+5
Function Call: WRITE	Prompt: !!," QUITTING" Line Location: ADJCAT+10
Function Call: WRITE	Prompt: !!,"Required field, Please select" Line Location: ADJCAT+12
Function Call: WRITE	Prompt: !!," Now select an Adjustment Type Code",! Line Location: ADJTYP+2
Function Call: WRITE	Prompt: !!," QUITTING" Line Location: ADJTYP+10
Function Call: WRITE	Prompt: !!,7,?10,"** Problem w/ dictionary, this is not an AdjCat ",BARY("ADJ CAT",BARCAT) Line Location: ADJTYP+11
Function Call: WRITE	Prompt: !!,"SESSION COULD NOT BE CREATED!!" Line Location: ASKSESS+33
Function Call: WRITE	Prompt: !!,"STATUS COULD NOT BE SET!!" Line Location: ASKSESS+36
Function Call: WRITE	Prompt: !!!,"A NEW SESSION HAS BEEN OPENED FOR "_NEWUSRNM_" TO BE USED FOR WRITEOFF TRANSACTIONS" Line Location: ASKSESS+38
Function Call: WRITE	Prompt: !!,"SESSION: ",NEWSESS,?30,"STATUS: ",$$CURSTAT^BARUFUT(NEWDUZ,NEWSESS,"E") Line Location: ASKSESS+39
Function Call: WRITE	Prompt: ! Line Location: ASKSESS+40
Routine Call	DIC Line Location: ASKLOC+9 ASKACCT+11 ADJTYPE+8 ADJCAT+8 ADJTYP+9 ASKSESS+22 ASKSESS+32
Routine Call	DIR Line Location: ASKDTYP+2 ASKBEN+10 PAZ+3 ASKRBACK+6 ASKSESS+9 ASKSESS+46

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARTBL - [#90052.02]	ADJTYPE+13, ADJTYP+16
^BARTBL("D"	ADJTYP+5
^DD(90057	ASKSESS+31
^VA(200 - [#200]	ASKSESS+37

Label References

Name	Line Occurrences
ADJCAT	EN+46, ADJCAT+12
ADJTYP	ADJTYP+11, ADJTYP+15
ADJTYPE	ADJTYPE+10, ADJTYPE+12, ADJTYPE+13
ASKACCT	EN+56
ASKBEN	EN+49
ASKDOS	EN+54
ASKDTYP	EN+53
ASKLOC	EN+51
ASKRBACK	EN+58
ASKSESS	EN+59, ASKSESS+33, ASKSESS+36
DATE	DATE+12, DATE+13
PAZ	EN+9
XIT	EN+47, EN+50, EN+52, EN+57, EN+61, EN+81

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKSESS+27
ADJTYP	EN+46, ADJTYP+4!, ADJTYP+5*, ADJTYP+7, ADJTYP+12!
>> ADJTYPE	ADJTYPE+14, ADJTYP+14, ADJTYP+16
>> BAR("ACCT"	ASKACCT+10, NON+2*, NON+3
>> BAR("ACCTTYPE"	ASKACCT+13*, NON
>> BAR("DTYP"	ASKDTYP+3, ASKDTYP+4
>> BAR("LOC"	ASKLOC+8, ASKLOC+11*, ASKLOC+12
>> BARACCT	EN+57, ASKACCT+5, NON+4
>> BARCAT	ADJCAT+9, ADJCAT+11, ADJTYP+5, ADJTYP+11
>> BARCNT	EN+14*, EN+72
>> BARCONT	EN+14*, EN+61
>> BARDOS	EN+55, DATE+3*, DATE+4, DATE+6, DATE+13
>> BARDOS("E"	EN+55, DATE+21*
>> BARDOS1	DATE+6*
>> BARDOS1("E"	DATE+8*
>> BARDOS2	DATE+11*, DATE+12, DATE+13, DATE+17
>> BARDOS2("E"	DATE+22*
>> BARHDUZ	EN+64*, EN+79
>> BARHOLD	EN+13*, XIT+2
>> BARLOC	EN+52, ASKLOC+3, ASKLOC+13
>> BARQUIT	EN+48, EN+50, ASKBEN+12, ASKBEN+14, ASKRBACK+8, ASKRBACK+10, ASKSESS+11, ASKSESS+13, ASKSESS+48, ASKSESS+50*
>> BARRBACK	ASKRBACK+8, ASKRBACK+9
>> BARSECT	EN+15*
>> BARUSESS	ASKSESS+4, ASKSESS+12, ASKSESS+14
>> BARUXMIT	ASKSESS+3, ASKSESS+48, ASKSESS+49*
>> BARY("ADJ CAT	" , ADJCAT+11*, ADJTYP+11
>> BARY("ADJ TYP	" , ADJTYPE+2!, ADJTYPE+11, ADJTYPE+12, ADJTYP+16
>> BENPLUS	EN+48, ASKACCT+4, NON, ASKBEN+12, ASKBEN+13*
>> CHOICE	EN+75*
DA	ADJCAT+1!, ADJTYP!, ASKSESS+18!, ASKSESS+25!
DA(1	ASKSESS+28*, ASKSESS+32
DIC	ASKLOC+2!, ASKLOC+4, ASKLOC+15!, ASKACCT+2!, ASKACCT+6, NON+6!, ADJTYPE+3!, ADJTYPE+4, ADJTYPE+15!, ADJCAT+1! , ADJCAT+3, ADJTYP!, ADJTYP+3, ADJTYP+13!, ASKSESS+18!, ASKSESS+20, ASKSESS+25!, ASKSESS+32*
DIC("A"	ASKLOC+6, ASKLOC+8, ASKACCT+8, ASKACCT+10, ADJTYPE+7, ASKSESS+19
DIC("P"	ASKSESS+31*
DIC("S"	ADJCAT+6, ADJTYP+7
DIC("W"	ADJCAT+7, ADJTYP+8
DIC(0	ASKLOC+5, ASKACCT+7, ADJTYPE+5, ADJCAT+2, ADJTYP+1, ASKSESS+21, ASKSESS+30*
DIE	ADJCAT+1!, ADJTYP!, ASKSESS+18!, ASKSESS+25!
DIR	ASKBEN+6!, ASKBEN+11!, PAZ+3!, ASKRBACK+2!, ASKRBACK+7!, ASKSESS+5!, ASKSESS+10!, ASKSESS+18!, ASKSESS+25!, ASKSESS+43! , ASKSESS+47!
DIR("A"	ASKBEN+8, ASKRBACK+4, ASKSESS+7, ASKSESS+45
DIR("B"	ASKBEN+9, ASKRBACK+5, ASKSESS+8*
DIR(0	ASKDTYP+1, ASKBEN+7, PAZ+3, ASKRBACK+3, ASKSESS+6, ASKSESS+44
>> DIROUT	EN+10
>> DIRUT	EN+10
DR	ADJCAT+1!, ADJTYP!, ASKSESS+18!, ASKSESS+25!
DT	EN+72
>> DTOUT	EN+10
>> DUOUT	EN+10, ASKLOC+13, NON+4, ADJTYPE+9, ADJCAT+10, ADJTYP+10
DUZ	EN+15, EN+64, EN+65, EN+76, EN+77, EN+78, EN+79
DUZ(2	EN+13, XIT+2*, ASKSESS+20
>> ERATSTA	EN+74*, EN+77
>> ESC	ASKSESS+23*
IO("Q"	PAZ+1
IO("S"	PAZ+1
IOSL	PAZ+2
IOST	PAZ+1
>> LIST(1	EN+76*
>> NEWDUZ	EN+63, EN+65, ASKSESS+16, ASKSESS+24, ASKSESS+28, ASKSESS+35, ASKSESS+37, ASKSESS+39
>> NEWSESS	ASKSESS+16, ASKSESS+34, ASKSESS+39, ASKSESS+41
>> NEWUSRNM	ASKSESS+16, ASKSESS+37, ASKSESS+38
Q	ADJTYP+6~*, ADJTYP+7
>> QUIT	EN+42, EN+47, ADJTYPE+9, ADJCAT+10, ADJTYP+10
>> REJECT	ASKSESS+17*
>> SESSID	ASKSESS+27*, ASKSESS+29
>> TYP	ADJTYP+5*
U	EN+76, ASKLOC+11, NON+2, ASKBEN+14, ADJTYPE+11, ADJTYPE+13, ADJTYP+11, ADJTYP+16, ASKRBACK+10, ASKSESS+13 , ASKSESS+31, ASKSESS+35, ASKSESS+37, ASKSESS+50
UFMSESID	EN+73, EN+76, EN+77, EN+78, ASKSESS+2!, ASKSESS+41*
X	EN+78, ASKLOC+2!, ASKACCT+2!, ASKSESS+23, ASKSESS+29, ASKSESS+35*, ASKSESS+36
Y	ASKLOC+2!, ASKLOC+7, ASKLOC+10, ASKLOC+11, ASKDTYP+3, ASKDTYP+4, DATE+6, DATE+8, DATE+17, DATE+21 , DATE+22, ASKACCT+2!, ASKACCT+9, ASKACCT+12, ASKACCT+13, NON+2, ASKBEN+13, ASKBEN+14, ADJTYPE+10, ADJTYPE+11 , ADJTYPE+13, ADJTYPE+14, ADJCAT+11, ADJTYP+14, ASKRBACK+9, ASKRBACK+10, ASKSESS+12, ASKSESS+13, ASKSESS+23, ASKSESS+24 , ASKSESS+33, ASKSESS+34, ASKSESS+35, ASKSESS+49, ASKSESS+50
Y(0	ADJCAT+11, ADJTYP+11

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARMAWO6

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: