Routine: DICL

Information

DICL ;SEA/TOAD,SF/TKW-VA FileMan: Lookup: Lister ;12/14/98 13:55

Source file <DICL.m>

Package	Total	Call Graph
VA Fileman	6	BLD^DIALOG (KTMPIX,PREP)^DICL1 IDENTS^DICU1 (FILE,SCREEN,VPDATA)^DICUF INDEX^DICUIX (CALLOUT,INIZE)^DIEFU

Package	Total	Caller Graph
VA Fileman	6	DIC DICF DICF2 DICL1 DICQ1 DICUIX

Name	Comments	DBIA/ICR reference
IXNAME	; Set default index name if null.
BRANCH	; Continue on to actual search.
IN	; Entry point from LIST^DIC
ERROUT
LIST(DIFILE,DIFIEN,DIFIELDS,DIFLAGS,DINUMBER,DIFROM,DIPART,DINDEX,DISCREEN,DIWRITE,DILIST,DIMSGA,DIC)	; ; ENTRY POINT--return a list of entries from a file ; (Note: DIC parameter only passed if called from ^DICQ)
IXANDID	; Gather information about index and field data to be returned.
FILE	; Validate file number and IENS.
OUTPUT	; Establish output file name, starting output subscript no.
INPUT	; Validate input parameters
DINDEX(DIFILE,DIFLAGS)	; Set DINDEX to index name for KEY.
CHECKS	;
OUT

Name	Line Occurrences (* Changed, ! Killed)
^DD("IX" - [#.11]	DINDEX+4
^DD("KEY" - [#.31]	DINDEX+3, DINDEX+4

Name	Field # of Occurrence
DIC	LIST~
DICLERR	IN+3~*, OUT, OUT+1
DID	INPUT+6~*, INPUT+7
DIDENT	INPUT+1~, IXANDID+6
DIDENT(	INPUT+8*
DIERN	INPUT+1~, CHECKS+1, CHECKS+4, ERROUT
DIERR	IN+3!, OUTPUT+2, FILE+2, IXANDID+3, IXANDID+7, OUT, OUT+1*
DIFIELDS	LIST~, INPUT+4*, INPUT+5, INPUT+6, IXANDID+6
DIFIEN	LIST~, FILE+1
DIFILE	LIST~, FILE+1, FILE+3, IXNAME+1, IXANDID+2, IXANDID+6, DINDEX~, DINDEX+3
DIFLAGS	LIST~, INPUT+2, INPUT+3, INPUT+7, INPUT+17, OUTPUT+2, FILE+1, FILE+3, IXNAME+1, CHECKS+1 , CHECKS+2*, IXANDID+2, IXANDID+6, DINDEX~, DINDEX+2
DIFM	IN+2~*
DIFROM	LIST~, INPUT+11, FILE+2*, IXANDID+2
DIFROM(	INPUT+13, INPUT+14, IXANDID+5
DIFROM("IEN"	INPUT+16, FILE+2
DIFROM(1	INPUT+11*, INPUT+12
DILIST	LIST~, OUTPUT+1, OUTPUT+3, OUTPUT+5, OUTPUT+7, IXANDID+2
DILIST("ORDER"	OUTPUT+8, OUTPUT+11
DIMSGA	LIST~, OUT+2
DINDEX	LIST~, INPUT+18, IXNAME+1, IXANDID+2, IXANDID+4, IXANDID+5, IXANDID+6
DINDEX("#"	IXANDID+5
DINDEX("WAY"	INPUT+17, OUTPUT+8, OUTPUT+9, OUTPUT+10
DINUMBER	LIST~, INPUT+9*, OUTPUT+8, OUTPUT+9, CHECKS+3, IXANDID+2
DIOUT	IXANDID+1~*, IXANDID+2, IXANDID+3
DIPART	LIST~, INPUT+10, IXANDID+2
DIPART(	IXANDID+5
DIPART(1	INPUT+10*
DIPE	INPUT+1~, ERROUT
DIPE(1	CHECKS+1, CHECKS+4
DIQUIET	IN+1~*
DISCREEN	LIST~, INPUT+19, FILE+3, IXANDID+2, IXANDID+4
DISCREEN("S"	INPUT+19*
DISCREEN("V"	IXANDID+4
DIWRITE	LIST~, INPUT+20*, IXANDID+6
E	INPUT+13~*, INPUT+14
I	INPUT+14~, DINDEX+1~, DINDEX+3, DINDEX+4
U	DINDEX+4, OUT+1
X	DINDEX+1~, DINDEX+4, DINDEX+5