Routine: DIC5

Information

DIC5 ;SFISC/XAK,TKW,SEA/TOAD-VA FileMan: Lookup, Part 1 (utilities) ;24MAY2008

Source Information

Source file <DIC5.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	6	$$EZBLD^DIALOG (DO,Y)^DIC1 (G,GOT)^DIC2 (ADDKEY,S)^DIC3 1^DICM $$CONVQQ^DILIBF

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
VA FileMan	3	DIC DIC1 DIC3

Entry Points

Name	Comments	DBIA/ICR reference
NODE75	; Do after executing 7.5 node on DD, called from ^DIC
BYIEN1	; Lookup record by IEN when user enters `n for a number 'n', called from ^DIC
BYIEN2	; Lookup record by IEN when user enters a numeric lookup value, called from ^DIC
SPACEBAR	; Lookup last record selected by this user when user enters space bar return. Called from ^DIC
KEEPON	; If DIC(0)["T", display entries found so far, then check for internal value if index is date, set, pointer, VP. Called from ^DIC3.
PTRID(DO,DIC)	; Build code in DIC("W") to display Identifiers on pointed-to files
Q	; Build Identifier code for a single pointed-to file

Name	Field # of Occurrence
$$EZBLD^DIALOG	NODE75+4
DO^DIC1	BYIEN2+9
Y^DIC1	KEEPON+5
G^DIC2	KEEPON+4
GOT^DIC2	BYIEN1+4, BYIEN2+8, SPACEBAR+3
ADDKEY^DIC3	BYIEN1+4, BYIEN2+8, SPACEBAR+3
S^DIC3	BYIEN1+3, BYIEN2+7, SPACEBAR+2
1^DICM	KEEPON+12
$$CONVQQ^DILIBF	Q+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: NODE75+3
Function Call: WRITE	Prompt: !,$$EZBLD^DIALOG(120,$$EZBLD^DIALOG(8090)) Line Location: NODE75+4
Routine Call	DIALOG Line Location: NODE75+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	BYIEN2+4, PTRID+2
^DIC - [#1]	PTRID+2

Label References

Name	Line Occurrences
Q	PTRID+2

Naked Globals

Name	Field # of Occurrence
^("A["	BYIEN2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BYIEN1+2~, BYIEN2+6~, SPACEBAR+1~, Q+3~, Q+5~, Q+7, Q+8, Q+9, Q+10
D	BYIEN2+8, BYIEN2+9, BYIEN2+10, KEEPON+2~, KEEPON+11~*
DD	BYIEN1+4~, BYIEN2+4~, BYIEN2+5, KEEPON+6!, KEEPON+13!
>> DDS	NODE75+3
>> DF	BYIEN2+1
DIC	BYIEN2+3, BYIEN2+5, PTRID~, PTRID+1
DIC("W"	Q+3, Q+4, Q+8, Q+9, Q+10, Q+11, Q+12*
DIC(0	NODE75+2, BYIEN2+10, KEEPON+7, KEEPON+10
DIC5D	BYIEN2+8~*, BYIEN2+9
DIFILEI	BYIEN2+4, KEEPON+7, PTRID+1~, PTRID+2, Q+5
DIGBL	PTRID+1~, PTRID+2*, Q+1, Q+2, Q+5, Q+6
DIGBL1	Q+1~, Q+2, Q+5
DINDEX	BYIEN1+2~, BYIEN2+6~, SPACEBAR+1~*, KEEPON+10
DINDEX("#"	BYIEN1+2, BYIEN2+6, SPACEBAR+1*, KEEPON+10
DINDEX("START"	BYIEN1+2, BYIEN2+6, SPACEBAR+1*, KEEPON+10
DINDEX(1	BYIEN2+2
DIOGBL	PTRID+1~, Q+5, Q+6
>> DIROUT	KEEPON+1, KEEPON+5, KEEPON+8, KEEPON+14
>> DISKIPIX	BYIEN2+10*
>> DIVAL	NODE75+1*
>> DIVAL(1	NODE75+1*
DIX	BYIEN1+4, BYIEN2+8~, SPACEBAR+3~*, KEEPON+6!, KEEPON+13!
DIYX	KEEPON+6!, KEEPON+13!
DO	PTRID~
DO(2	BYIEN2+1, PTRID+1
DS	BYIEN1+4~, BYIEN2+8~, SPACEBAR+3~, KEEPON+1, KEEPON+3, KEEPON+5, KEEPON+6!, KEEPON+13!*
DS("DD"	KEEPON+4, KEEPON+5, KEEPON+6, KEEPON+13*
DS(0	KEEPON+7, KEEPON+8, KEEPON+14*
>> DTOUT	KEEPON+1, KEEPON+8, KEEPON+14
DUOUT	KEEPON+5!
DZ	BYIEN1+4~, BYIEN2+8~, SPACEBAR+3~
I	KEEPON+2~!, KEEPON+11~!
N	Q+3~, Q+4, Q+8, Q+9, Q+10, Q+11, Q+12
O	Q+3~, Q+4*, Q+7
T	BYIEN2+2~*, BYIEN2+5, BYIEN2+10
U	PTRID+2
X	NODE75+1, BYIEN1+1, BYIEN1+4, BYIEN2+7, BYIEN2+8, SPACEBAR+3, KEEPON+2~, KEEPON+11~
>> Y	NODE75+2, BYIEN1+1, BYIEN1+3, BYIEN1+4, BYIEN2+3, BYIEN2+7, BYIEN2+8, SPACEBAR+2*, KEEPON+1, KEEPON+8 , KEEPON+14

Customize PDF page

Package: VA FileMan