Routine: DGENLR

Information

DGENLR ;ALB/RMO - Patient Enrollment - Reader Utilities;26 JUN 1997 10:00 am

Source file <DGENLR.m>

Package	Total	Call Graph
Registration	3	PAUSE^VALM1 (SET,WRITE)^VALM10 $$PARSE^VALM2
VA Fileman	1	^DIR

Package	Total	Caller Graph
Registration	1	DGEN1

Name	Comments	DBIA/ICR reference
ASKQ
LAST(DGCNT)	;
EN(DGNOD0,DGSUB,DGSELY)	;select entities from secondary list ; Input -- DGNOD0 Selection in XQORNOD0 format ; DGSUB Secondary list subscript ; Output -- DGSELY Selection array
ENQ
SEL(DGNOD0,DGSUB,DGSELY)	;Process secondary list selection ; Input -- DGNOD0 Selection in XQORNOD0 format ; DGSUB Secondary list subscript ; Output -- DGSELY Selection array
SETTOP(TOP)	;
SELQ
ASK(DGCNT)	;Ask user to select from list ; Input -- DGCNT Number of entities ; Output -- Selection

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,">>> There are no items to select." Line Location: EN+13
Function Call: WRITE	Prompt: !,*7,">>> Selection '",X,"' is not a valid choice." Line Location: SEL+22
Routine Call	DIR Line Location: ASK+7

Name	Line Occurrences (* Changed, ! Killed)
^TMP("DGENIDX"	EN+8, EN+24, SEL+7, SEL+21, LAST+7, LAST+11

Name	Field # of Occurrence
^(	LAST+11

Name	Field # of Occurrence
DGBEG	SEL+4~, SEL+7*, SEL+10, SEL+21
DGCNT	EN+4~, EN+8*, EN+11, EN+18, EN+22, SEL+13, ASK~, ASK+4, ASK+6, LAST~ , LAST+7
DGEND	SEL+4~, SEL+7*, SEL+10, SEL+21
DGERR	SEL+4~, SEL+19, SEL+23, SEL+24
DGNOD0	EN~, EN+12, EN+18, EN+28, SEL~, SEL+10
DGSELY	EN~, EN+28, SEL~
DGSELY(	SEL+27*
DGSELY("ERR"	EN+14, SEL+24
DGSELY("^"	SEL+16*
DGSELY(1	EN+18*
DGSUB	EN~, EN+8, EN+28, SEL~, SEL+7, SEL+21
DIR	ASK+3~
DIR("A"	ASK+5*
DIR(0	ASK+6*
DIRUT	ASK+3~
DTOUT	ASK+3~, ASK+7
DUOUT	ASK+3~, ASK+7
I	SEL+4~, SEL+20, SEL+27
ITEM	LAST+4~, LAST+10, LAST+11, LAST+12
LAST	ASK+3~, ASK+4*, ASK+6
LINE	LAST+4~, LAST+11, SETTOP+3~, SETTOP+7, SETTOP+8, SETTOP+9
TOP	EN+23~, EN+24*, EN+25, SETTOP~, SETTOP+4, SETTOP+6
U	EN+18, ASK+6
>> VALMBG	SETTOP+4, SETTOP+6*, SETTOP+7
>> VALMCNT	SETTOP+5
>> VALMLST	EN+25, LAST+7, LAST+11, SETTOP+4, SETTOP+5, SETTOP+8, SETTOP+9
X	SEL+4~, SEL+20, SEL+21, SEL+22, SEL+27, ASK+3~
Y	SEL+4~, SEL+10, SEL+13, SEL+16, SEL+20, SEL+27, ASK+3~, ASK+7*, ASKQ