Routine: SDCOUR

Information

SDCOUR ;ALB/RMO - Reader Utilities - Check Out;18 FEB 1993 11:30 am

Source file <SDCOUR.m>

Package	Total	Call Graph
List Manager	2	($$UPPER,PAUSE)^VALM1 $$PARSE^VALM2
VA FileMan	1	^DIR

Name	Comments	DBIA/ICR reference
EN(SDNOD0,SDSUB,SDPAR,SDSELDF,SDSELY)	;Select Entities from Secondary List ; Input -- SDNOD0 Selection in XQORNOD0 format ; SDSUB Secondary List Subscript ; SDPAR Selection Parameters (A=Add) ; SDSELDF Selection Default [Optional] ; Output -- SDSELY Selection Array
ENQ
SEL(SDNOD0,SDSUB,SDSELY)	;Process Secondary List Selection ; Input -- SDNOD0 Selection in XQORNOD0 format ; SDSUB Secondary List Subscript ; Output -- SDSELY Selection Array
SELQ
ASK(SDCNT,SDPAR,SDSELDF)	;Ask user to select from list ; Input -- SDCNT Number of Entities ; SDPAR Selection Parameters (A=Add) ; SDSELDF Selection Default [Optional] ; Output -- Selection
REASK
ASKQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,">>> There are no items to select." Line Location: EN+9
Function Call: WRITE	Prompt: !!?5,DIR("?"),".",! Line Location: REASK+8
Routine Call	DIR Line Location: REASK+3

Name	Line Occurrences (* Changed, ! Killed)
^TMP("SDCOIDX"	EN+7, SEL+5, SEL+10

Name	Field # of Occurrence
DIR	ASK+5~
DIR("?"	REASK*, REASK+8
DIR("A"	REASK+1*
DIR(0	REASK+2*
DIRUT	ASK+5~
DTOUT	ASK+5~, REASK+3
DUOUT	ASK+5~, REASK+3
I	SEL+4~, SEL+9, SEL+15
SDBEG	SEL+4~, SEL+5*, SEL+6, SEL+10
SDCNT	EN+6~, EN+7*, EN+8, EN+11, ASK~, REASK, REASK+1, REASK+5
SDEND	SEL+4~, SEL+5*, SEL+6, SEL+10
SDERR	SEL+4~, SEL+8, SEL+12, SEL+13
SDNOD0	EN~, EN+9, EN+10, SEL~, SEL+6
SDPAR	EN~, EN+11, ASK~, REASK, REASK+1, REASK+6
SDSELDF	EN~, EN+11, ASK~, REASK, REASK+1, REASK+7
SDSELY	EN~, EN+10, SEL~
SDSELY(	EN+11, SEL+15
SDSELY("ERR"	EN+9, SEL+13
SDSUB	EN~, EN+7, EN+10, SEL~, SEL+5, SEL+10
X	SEL+4~, SEL+9, SEL+10, SEL+11, SEL+15, ASK+5~
Y	SEL+4~, SEL+6, SEL+9, SEL+15, ASK+5~, REASK+3, REASK+4, REASK+5, REASK+6, REASK+7* , ASKQ