Routine: FBAADV

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

FBAADV ;AISC/GRR-FLAG VENDOR FOR DELETION IN CENTRAL FEE ; 8/28/09 12:35pm

Source Information

Source file <FBAADV.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	4	^DIC DT^DICRW ^DIE ^DIR
Fee Basis	1	LOCK^FBUCUTL

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Fee Basis	6	FBAA MRA DELETE VENDOR FBAAV01 FBAAVD FBAAVD2 FBFPDS FBVDISP

Entry Points

Name	Comments	DBIA/ICR reference
RD
ASK
END
CKVEN(FBVIEN)	;Checks to see if a change or add is pending in the Fee Basis Vendor Corrections file (#161.25)

External References

Name	Field # of Occurrence
^DIC	RD
DT^DICRW	FBAADV+3
^DIE	ASK+1
^DIR	ASK
LOCK^FBUCUTL	ASK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: RD+0
Function Call: WRITE	Prompt: !!?5,*7,"Unable to delete, vendor is Awaiting Austin Approval." Line Location: RD+0
Function Call: WRITE	Prompt: *7,"Not Deleted" Line Location: ASK+0
Function Call: WRITE	Prompt: !!,*7,"Vendor flagged for deletion!" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,*7,"Unable to delete vendor record at this time." Line Location: ASK+2
Routine Call	DIC Line Location: RD
Routine Call	DIE Line Location: ASK+1
Routine Call	DIR Line Location: ASK

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FBAAV - [#161.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.25 - [#161.25]	CKVEN+3
^FBAAV - [#161.2]	ASK+1

Label References

Name	Line Occurrences
$$CKVEN	RD
END	RD, ASK
RD	RD, ASK, ASK+1, ASK+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	RD*, ASK+1, END!
DIC	RD*, END!
DIC(0	RD*
DIE	ASK+1*!
DIR	ASK!
DIR("A"	ASK*
DIR("B"	ASK*
DIR(0	ASK*
DIRUT	ASK, END!
>> DR	ASK+1*
FBLOCK	ASK+1, END!
FBVC	CKVEN+3~*
FBVIEN	CKVEN~, CKVEN+3
FBZ	END!
U	CKVEN+3
X	RD, END!
Y	RD, ASK, END!