Routine: RTT2

Information

RTT2 ;MJK/TROY ISC;Record Transaction Option; ; 5/26/87 4:24 PM ;

Source Information

Source file <RTT2.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Record Tracking	8	(BOR,NAME)^RTB MISS1^RTQ1 FILL^RTQ4 SET^RTRD (CHG,TYPE)^RTT ^RTT21 DEMOS^RTUTL1 RT^RTUTL4
VA FileMan	4	NOW^%DTC ^DIC ^DIE (D,Y)^DIQ
Kernel	1	^%ZIS
MailMan	1	^XMB

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

Package	Total	Caller Graph
Record Tracking	3	RTDEL RTT1 RTT3

Entry Points

Name	Comments	DBIA/ICR reference
PND
PND1
SEL
MES
FND
RTB
FND1
FNDQ
BULL
SEND
XMB

External References

Name	Field # of Occurrence
NOW^%DTC	BULL+1
^%ZIS	BULL+3
^DIC	RTB
^DIE	FND1
D^DIQ	FND1+1, BULL+1
Y^DIQ	FND1+2
BOR^RTB	FND1+2
NAME^RTB	MES
MISS1^RTQ1	PND
FILL^RTQ4	SEL+3
SET^RTRD	SEL, FND+1
CHG^RTT	RTB+1
TYPE^RTT	RTB+1
^RTT21	PND+1
DEMOS^RTUTL1	FND1+1, BULL+1
RT^RTUTL4	SEL+2
^XMB	XMB

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"...request filled" Line Location: SEL+3
Function Call: WRITE	Prompt: !!,*7,"This borrower has a pending request for " Line Location: MES+1
Function Call: WRITE	Prompt: ! Condition for execution: ($X+$L(Y))>80 Line Location: MES+1
Function Call: WRITE	Prompt: Y Line Location: MES+1
Function Call: WRITE	Prompt: !!,*7,"There is at least one request pending for " Line Location: MES+2
Function Call: WRITE	Prompt: ! Condition for execution: ($X+$L(Y))>80 Line Location: MES+2
Function Call: WRITE	Prompt: Y Line Location: MES+2
Function Call: WRITE	Prompt: ! Line Location: RTB+0
Function Call: WRITE	Prompt: !!?3,"...record has been designated as 'found pending file room supervisor review'",!?6,"...thank you for finding the record",! Line Location: FND1+4
Function Call: WRITE	Prompt: !!?3,"...missing flag has been removed",! Line Location: FND1+5
Routine Call	DIC Line Location: RTB
Routine Call	DIE Line Location: FND1
Routine Call	%ZIS Line Location: BULL+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RTV(190.2 - [#190.2]	Classic Fileman Calls
^RTV(195.9 - [#195.9]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	BULL+3
^%ZOSF("UCI"	BULL+3
^DD(190.2	FND1+2
^DIC(195.2 - [#195.2]	MES
^RT - [#190]	PND, FND, RTB+1
^RTV(190.1 - [#190.1]	PND+2, PND1
^RTV(190.2 - [#190.2]	FND, FND1+1, FND1+4
^RTV(195.9 - [#195.9]	RTB+1, FND1+3
^VA(200 - [#200]	FND1+2, BULL+3
^XMB(3.8 - [#3.8]	SEND
^XUSEC(	BULL, BULL+4

Label References

Name	Line Occurrences
BULL	FNDQ
FNDQ	FND, FND+1, RTB, RTB+1, FND1, FND1+4
MES	PND1
PND1	PND+2
SEL	PND+2
SEND	FND1+3
XMB	BULL+5

Naked Globals

Name	Field # of Occurrence
^(	FND
^("CL"	FND*
^(0	PND1, MES, RTB+1, FND1+2, FND1+3, BULL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BULL+1
>> C	FND1+2*
>> DA	FND1*
DE	FND1!
DIC	RTB*!, XMB~
DIC("A"	RTB*
DIC("DR"	RTB*
DIC("S"	RTB*
DIC("V"	RTB*
DIC(0	RTB*
DIE	FND1*!
DIE("NO^"	FND1*
DQ	FND1!
>> DR	FND1*
DUZ	BULL, BULL+3, XMB
>> I	PND1, SEL+1, SEL+4, BULL+4
IOP	BULL+3*!
>> IOS	BULL+3
RT	PND, PND+2, PND1, SEL+3!, FND, RTB+1, FND1+4
>> RTAPL	RTB, BULL, BULL+4, SEND
RTB	PND1, SEL+1, SEL+4, RTB+1, FNDQ!
RTBX	SEL+1*, SEL+4, SEL+5!
RTCHKDT	PND+2*, PND+3!, PND1
RTD	FND1+1!, BULL+1!
RTD("N"	FND1+1, BULL+1
RTD("SSN"	FND1+1, BULL+1
RTD("T"	FND1+1, BULL+1
RTDT	PND+2, PND+3!
RTESC	FNDQ!
RTFL	PND+2, PND+3!, PND1, MES+3*
RTIX	SEL+5!
RTMIS	FND*, FND1, FND1+1, FNDQ!
RTMIS0	FND1+1*, FND1+2, FND1+3, FNDQ!
RTMV	SEL+1, SEL+4*, RTB+1!, FNDQ!
RTMV0	PND1, SEL+1, SEL+4*, MES+1, MES+2, RTB+1!, FND1+3, FNDQ!, BULL+2
RTMV0X	SEL+1*, SEL+4, SEL+5!
RTMVX	SEL+1*, SEL+4, SEL+5!
RTQ	SEL+3*, SEL+5!, FNDQ!
RTQDC	SEL+5!
RTQDC("S"	SEL+2*
RTRD	SEL!, FND+1!
RTRD("A"	SEL, FND+1
RTRD("B"	SEL, FND+1
RTRD(0	SEL, FND+1
RTRD(1	SEL, FND+1
RTRD(2	SEL, FND+1
>> RTSAVE	SEL+1, SEL+4
RTSEL	SEL+2*!
>> RTWND(	PND
RTY	SEL+1, SEL+3, SEL+4!*
RTY(	SEL+1, SEL+4*
RTY(1	SEL+3
RTYX	SEL+1*, SEL+4, SEL+5!
RTYX(	SEL+1*, SEL+4
>> RTZ("RTMV0"	FND1+3, BULL+2
RTZ0	PND*, PND+3!, MES!
U	FND1+2
>> X	SEL, FND+1, RTB+1, BULL+4, SEND*
XMB	FND!, FND1+1, FNDQ!, BULL+1, BULL+5!
XMB(1	FND1+1, BULL+1
XMB(10	FND1+1*
XMB(2	FND1+1, BULL+1
XMB(3	FND1+1, BULL+1
XMB(4	FND1+2, BULL+2
XMB(5	FND1+2, BULL+3
XMB(6	FND1+2, BULL+3
XMB(7	FND1+3, BULL+1
XMB(8	FND1+3, BULL+3
XMB(9	FND1+1*
XMDUZ	XMB*!
XMY	FND!, BULL+1!, SEND!, XMB!
XMY(	BULL+4, XMB
XMY("G."	SEND*
Y	PND, SEL+3, MES, MES+1, MES+2, RTB, RTB+1, FND1, FND1+1, FND1+2 , FNDQ!, BULL+1*, BULL+3

Customize PDF page

Package: Record Tracking