Routine: FBAABDL

Customize PDF page

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

Information

FBAABDL ;AISC/DMK - DELETE A BATCH ;7/14/14 12:07

Source Information

Source file <FBAABDL.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	5	^DIC ^DIE ^DIK ($$GET1,EN)^DIQ ^DIR
Fee Basis	1	CNTTOT^FBAARB

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: 1

Package	Total	Caller Graph
Fee Basis	1	FBAA BATCH DELETE

Entry Points

Name	Comments	DBIA/ICR reference
BT	;select batch
END
NOGO	;reasons why batch cannot be deleted

External References

Name	Field # of Occurrence
^DIC	BT+3
^DIE	BT+8
^DIK	BT+29
$$GET1^DIQ	BT+5
EN^DIQ	BT+23
^DIR	BT+25
CNTTOT^FBAARB	BT+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BT+2
Function Call: WRITE	Prompt: !!,"Batch cannot be deleted because:",!?5,$P($T(NOGO+6),";;",2) Line Location: BT+5
Function Call: WRITE	Prompt: !!?5,$P($T(NOGO+(I-8)),";;",2) Line Location: BT+17
Function Call: WRITE	Prompt: !!?5,$P($T(NOGO+4),";;",2) Line Location: BT+21
Function Call: WRITE	Prompt: !! Line Location: BT+23
Function Call: WRITE	Prompt: !!?5,*7,"Batch Deleted.",! Line Location: BT+30
Routine Call	DIC Line Location: BT+3
Routine Call	DIE Line Location: BT+8
Routine Call	DIR Line Location: BT+25

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FBAA(161.7 - [#161.7]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^FBAA(161.7 - [#161.7]	BT+9, BT+10, BT+11, BT+19
^FBAA(162.1 - [#162.1]	BT+19
^FBAAC("AC"	BT+19
^FBAAC("AD"	BT+19
^FBAAI("AC"	BT+19
^XUSEC("FBAA LEVEL 2"	BT+2

Label References

Name	Line Occurrences
BT	BT+3, BT+5, BT+17, BT+19, BT+21, BT+26, BT+31
END	BT+3, BT+5, BT+17, BT+19, BT+21, BT+26, BT+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	BT+8!, BT+23!, BT+29*, END!
DIC	BT+2, BT+3!, BT+23!
DIC("S"	BT+2*
DIC(0	BT+2*
DIE	BT+8*!
DIK	BT+29*!
DIR	BT+25!
DIR("A"	BT+25*
DIR("B"	BT+25*
DIR(0	BT+25*
>> DIRUT	BT+26
DR	BT+8!, BT+23!
DUZ	BT+2
FBBAT	BT+3*, BT+5, BT+7, BT+8, BT+9, BT+10, BT+11, BT+19, BT+23, BT+29 , END!
FBBAT(0	BT+3, BT+11, BT+17, BT+21
FBLCNT	BT+7~, BT+10
FBNO	BT+1, BT+5, BT+17, BT+21, BT+25*, BT+29, END!
FBTOTAL	BT+7~, BT+9
FBTYPE	BT+19*, END!
I	BT+17*, END!
U	BT+9, BT+10, BT+17, BT+21
X	BT+3, END!
Y	BT+3, BT+25, BT+26, END!
Y(0	BT+3