Routine: BZSMAWO

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 EN^XBVK
Kernel	2	ENDR^%ZISS $$FMADD^XLFDT
Tucson	1	^BZSMAWO2

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	; PAUSE FOR USER
ASKDOS	; ASK DATE OF SERVICE
BLDACCTL	; BUILD ACCOUNT LIST
CONFAT	; CONFIRM ACCOUNT TYPES
INITAC	; INITIALIZATION FOR ALLOWANCE CATEGORY
ASKACCTT	; ASK FOR LIST OF ACCOUNT TYPES
EOJ	; EOJ CLEAN UP
START	;
INIT	; INITIALIZATION
CONTINUE	; DISPLAY CHOICES AND ASK IF THEY WISH TO CONTINUE ; Tell them bills written off will scroll on the screen if they wish to ; capture.
INITSA	; INITIALIZATION FOR SELECTED ACCOUNTS ONLY
SACCT	; EP-TO WRITE OFF SELECTED ACCOUNTS
WRITEOFF	; WRITE OFF BILLS
ASKACAT	; ASK ALLOWANCE CATEGORY
ASKACCT	; ASK FOR LIST OF A/R ACCOUNTS

External References

Name	Field # of Occurrence
DD^%DT	ASKDOS+5
ENDR^%ZISS	INIT+3
^BZSMAWO2	WRITEOFF+2
^DIC	ASKACCT+9
$$GET1^DIQ	ASKACCT+11
^DIR	ASKACAT+2, CONFAT+6, ASKDOS+12, ASKDOS+19, ASKDOS+24, CONTINUE+25, PAUSE+3
$$VAL^XBDIQ1	ASKACCTT+6, CONTINUE+17
$$VALI^XBDIQ1	INIT+10
EN^XBVK	EOJ+2
$$FMADD^XLFDT	ASKDOS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"A/R tabe entry 1003 PAID DENIED OVER STAT LIMIT not defined.",! Line Location: INIT+6
Function Call: WRITE	Prompt: "Terminating run.",!! Line Location: INIT+7
Function Call: WRITE	Prompt: !!,"This routine allows the user to write off old bills for selected accounts",! Line Location: INIT+12
Function Call: WRITE	Prompt: "and date of service. You should capture this session to a file.",! Line Location: INIT+13
Function Call: WRITE	Prompt: !!,"This routine allows the user to write off old bills based on the allowance",! Line Location: INIT+16
Function Call: WRITE	Prompt: "category and date of service. You should capture this session to a file.",! Line Location: INIT+17
Function Call: WRITE	Prompt: "You need to run this routine using terminal software that allows you to",! Line Location: INIT+19
Function Call: WRITE	Prompt: "scroll back.",! Line Location: INIT+20
Function Call: WRITE	Prompt: ! Line Location: ASKACCT+3
Function Call: WRITE	Prompt: !! Line Location: ASKACCT+16
Function Call: WRITE	Prompt: !,"Allowance Category: ",BZSACATN,!! Line Location: CONFAT+2
Function Call: WRITE	Prompt: ?1,BZSSN,?5,$P(BZSATL(BZSSN),U,2),?10,BZSAT,! Line Location: CONFAT+4
Function Call: WRITE	Prompt: !!,"Enter a date, preferably less than or equal to "_BZSDOSE_".",! Line Location: ASKDOS+7
Function Call: WRITE	Prompt: "Dates up to and including the one entered will be written off.",! Line Location: ASKDOS+8
Function Call: WRITE	Prompt: !!,IORVON_"Ending date of time frame is after "_BZSDOSE_"."_IORVOFF,! Line Location: ASKDOS+17
Function Call: WRITE	Prompt: IORVON_"Are you absolutely certain you want this date?"_IORVOFF,! Line Location: ASKDOS+18
Function Call: WRITE	Prompt: ! Line Location: ASKDOS+23
Function Call: WRITE	Prompt: !!,"You have chosen to write off bills for dates of service ",! Line Location: CONTINUE+4
Function Call: WRITE	Prompt: BZSX,! Line Location: CONTINUE+5
Function Call: WRITE	Prompt: ?40,"ALL" Line Location: CONTINUE+7
Function Call: WRITE	Prompt: ?40,$P(^DIC(4,BZSTMP,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,BZSTMP,.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: !!,BZSCNT," Bills written off to Auto Write-off 1003." Line Location: WRITEOFF+3
Routine Call	DIC Line Location: ASKACCT+9
Routine Call	DIR Line Location: ASKACAT+2 CONFAT+6 ASKDOS+12 ASKDOS+19 ASKDOS+24 CONTINUE+25 PAUSE+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARAC(	ASKACCTT+4, ASKACCTT+5, ASKACCTT+9
^BARTBL(1003	INIT+5

Label References

Name	Line Occurrences
ASKACAT	INITAC+2
ASKACCT	INITSA+2
ASKACCTT	INITAC+4
ASKDOS	INIT+24
BLDACCTL	INITAC+6
CONFAT	ASKACCTT+16
CONTINUE	INIT+26
EOJ	START+2, START+4, SACCT+3, SACCT+5
INIT	START+1, SACCT+2
INITAC	INIT+22
INITSA	INIT+21
WRITEOFF	START+3, SACCT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BZS	BLDACCTL+1!
BZS("ACCT"	INITSA+3, ASKACCT+1!, ASKACCT+8, ASKACCT+13, BLDACCTL+6, CONTINUE+13, CONTINUE+14, CONTINUE+16
BZS("ACCTTYPE"	ASKACCT+12*
>> BZSACAT	INITAC+3, ASKACAT+1, ASKACAT+4, ASKACCTT+13, ASKDOS+1
>> BZSACATN	ASKACAT+5*, CONFAT+2
>> BZSACCT	ASKACCTT+3, ASKACCTT+4, ASKACCTT+5, ASKACCTT+6, ASKACCTT+9, BLDACCTL+4, BLDACCTL+5, BLDACCTL+6
>> BZSACCTT	INITAC+5, ASKACCTT+1, ASKACCTT+30, ASKACCTT+31*
>> BZSACT	ASKACCT+11*, ASKACCT+12
>> BZSAT	ASKACCTT+6, ASKACCTT+7, ASKACCTT+8, ASKACCTT+9, ASKACCTT+11, ASKACCTT+12, ASKACCTT+13, ASKACCTT+19, ASKACCTT+21, ASKACCTT+24* , ASKACCTT+25, ASKACCTT+26, ASKACCTT+27, ASKACCTT+29, ASKACCTT+30, CONFAT+3, CONFAT+4, BLDACCTL+2, BLDACCTL+3, BLDACCTL+5 , BLDACCTL+6
>> BZSATC	ASKACCTT+12, ASKACCTT+13, ASKACCTT+15, ASKACCTT+19, CONFAT+3, CONFAT+6
BZSATL	ASKACCTT+32!
BZSATL(	ASKACCTT+13, ASKACCTT+19, ASKACCTT+20, CONFAT+3, CONFAT+4, CONFAT+9, CONFAT+10
BZSATTBL	ASKACCTT+2!, BLDACCTL+9!
BZSATTBL(	ASKACCTT+8, ASKACCTT+9, ASKACCTT+12, ASKACCTT+13, ASKACCTT+25, ASKACCTT+27!, ASKACCTT+30, BLDACCTL+3, BLDACCTL+5, BLDACCTL+6
>> BZSBDOS	ASKDOS+22, ASKDOS+25
>> BZSCNT	INIT+9, WRITEOFF+1, WRITEOFF+3
>> BZSCONT	INIT+9, INIT+27, CONTINUE+27
BZSDOS	ASKDOS+20!
BZSDOS("B"	ASKDOS+26*, CONTINUE+3
BZSDOS("E"	ASKDOS+15*, CONTINUE+3
>> BZSDOS2	ASKDOS+3*, ASKDOS+4, ASKDOS+16
>> BZSDOSE	ASKDOS+6*, ASKDOS+7, ASKDOS+10, ASKDOS+17
>> BZSDYS	ASKDOS+1, ASKDOS+2, ASKDOS+3
BZSEDOS	INIT+25, ASKDOS+14*, ASKDOS+16, ASKDOS+20!, ASKDOS+24
>> BZSHOLD	INIT+2*, EOJ+1
>> BZSLQF	ASKACCTT+16, CONFAT+1, CONFAT+11
>> BZSQF	START+2, SACCT+3, INIT+1, INIT+28
>> BZSSAFLG	SACCT+1*, INIT+11, INIT+15, INIT+21
>> BZSSECT	INIT+10*
>> BZSSN	ASKACCTT+19, ASKACCTT+20, CONFAT+3, CONFAT+4
>> BZSSQF	INIT+23, INITSA+1, INITSA+4, INITAC+1, INITAC+7
BZSTMP	ASKACCTT+32!, CONTINUE+15, CONTINUE+16, CONTINUE+17
BZSTMP(	ASKACCTT+21*, ASKACCTT+26
>> BZSX	CONTINUE+3*, CONTINUE+5
DA	ASKACAT+2!, CONFAT+6!, ASKDOS+12!, ASKDOS+19!, ASKDOS+24!, PAUSE+2!
DIC	ASKACCT+2!, ASKACCT+4*, ASKACCT+15!
DIC("A"	ASKACCT+6, ASKACCT+8
DIC(0	ASKACCT+5*
DIR	ASKACAT+2!, CONFAT+6!, ASKDOS+9!, ASKDOS+12!, ASKDOS+19!, ASKDOS+24!, CONTINUE+21!, CONTINUE+26!, PAUSE+4!
DIR("?"	ASKDOS+10, ASKDOS+11
DIR("A"	ASKACAT+2, CONFAT+6, ASKDOS+12, ASKDOS+24, CONTINUE+23, PAUSE+1
DIR("B"	ASKDOS+19, CONTINUE+24
DIR(0	ASKACAT+2, CONFAT+6, ASKDOS+12, ASKDOS+19, ASKDOS+24, CONTINUE+22, PAUSE+1*
>> DIRUT	ASKACAT+3, CONFAT+7
DT	ASKDOS+3
>> DUOUT	ASKACCTT+17
DUZ	INIT+10
DUZ(2	INIT+2, ASKACCTT+4, ASKACCTT+5, ASKACCTT+9, EOJ+1*
>> IORVOFF	INIT+4*, ASKDOS+17, ASKDOS+18
>> IORVON	INIT+3, INIT+4*, ASKDOS+17, ASKDOS+18
U	ASKACCT+13, ASKACCTT+9, ASKACCTT+13, ASKACCTT+19, ASKACCTT+20, CONFAT+3, CONFAT+4, CONFAT+9, CONFAT+10
X	INIT+3, ASKACCT+2!, CONFAT+9~, CONFAT+10
Y	ASKACCT+2!, ASKACCT+7, ASKACCT+10, ASKACCT+11, ASKACCT+13, ASKACAT+4, ASKACAT+5, CONFAT+8, CONFAT+9, CONFAT+10 , ASKDOS+4*, ASKDOS+6, ASKDOS+13, ASKDOS+14, ASKDOS+20, ASKDOS+25, CONTINUE+27
Y(0	ASKDOS+15, ASKDOS+26

Customize PDF page

Package: Tucson

Routine: BZSMAWO

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: