Routine: DIR3

Information

DIR3 ;SFISC/DCM,RDS-READER-MAID (PROCESS RANGE/LIST) ;6/28/2009

Source file <DIR3.m>

Package	Total	Caller Graph
VA Fileman	1	DIR1

Name	Comments	DBIA/ICR reference
LC	; handle unscreened compressed lists (no DIR("S")) ; LC to LIST checks the user's list in X, building ^TMP($J,"DIR")
LC0	; check one list element, calls LC1 to put it in ^TMP($J,"DIR")
LC1	; modify ^TMP($J,"DIR") to incorporate a list element, handle overlap
LL	; handle uncompressed lists & screened compressed lists
LIST	; transfer output list from ^TMP($J,"DIR") to Y
L	; LIST OR RANGE
3	;;Response must be a positive number
1	;;Response should be no less than ; and no greater than
LCD	; determine increment size for ranges (handle decimals)
2	;;Response must be no more than ; decimal digit
4	;;Invalid number or range
L0
L1
LCK

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	L+2!, LC+4, LIST+2, LIST+5, LIST+9!, LC1+1, LC1+4, LC1+7, LC1+8, LC1+9

Name	Field # of Occurrence
^(	LIST+3, LIST+5, LC1+2, LC1+3, LC1+5, LC1+6, LC1+7!

Name	Field # of Occurrence
%	L+1~, L1+5, L1+6, LCK+1~, LCK+2, LCK+3, LCK+4, LCK+6, LCK+7, LCD+1 , LC+3*
%1	L+1~, L1+2, LCD+1, LCD+2, LC+3, LIST+1, LIST+2, LIST+3, LIST+5, LC0+1 , LC0+2, LC0+3, LC1+1, LC1+2, LC1+3, LC1+6*, LC1+7, LC1+8, LC1+9
%2	L+1~, L1+2, LC0+1, LC0+2, LC0+3, LC1+1, LC1+4, LC1+5, LC1+6, LC1+7 , LC1+8
%3	L+1~, LCK+3~, LC1+1, LC1+2, LC1+3, LC1+4, LC1+5, LC1+6, LC1+7
%4	L+1~, LC1+3, LC1+6
>> %A	L+9, LL+4, L1, LCK+2, LCK+3
>> %B1	L+13, LCK+4, LCK+5, LCK+8
>> %B2	L+13, LCK+4, LCK+6, LCK+8
>> %B3	L+8, L+14, LL+1, L0+3, LCK+7, LCK+9, LCD+1, LC+2, LC1+4
%BA	L+1~, L+3*, L1+1, L1+6
%C	L+1~, L+3, L+10, L1+4, L1+5, L1+6, LIST+1, LIST+3, LIST+4, LIST+5 , LIST+6, LIST+7, LIST+8
>> %E	L+4, L+5, L+6, L+7, L+8, L+9, L+10, L+11, L+13, L+14 , L+15, LL+2, LL+3, L0+2, LCK+1, LCK+2, LCK+4, LCK+5, LCK+6, LCK+7* , LCK+8, LCK+9, LC+3, LIST+6, LIST+7, LC0+1
%I	L+1~, L+4, LL+2
%I1	L+1~, L+3, L0+4, L0+5, LCD+2, LC1+2, LC1+4, LC1+5, LC1+6, LC1+7
%I2	L+1~, L+3, LCD+2, LC1+1
%J	L0~, L0+2, L0+4, L0+5, L0+6, L1+1, L1+2, L1+4, L1+5, L1+6
>> %N	L+11
>> %W	L+12, L+13, L+14*
%X	L+1~, L+4, L+5, L+6, L+7, L+8, LL+2, L0+2, L0+4, L0+5 , L0+6, LCK, LCK+1, LCK+2, LCK+3, LCK+4, LCK+5, LCK+7, LCK+8, LCK+9 , LC0+1*
>> DIR("S"	L+3, L+9
>> X	L+4, LL+2, LC+3
Y	L+15!, L+16, L1+1, L1+6
Y(	L+10, L1+4, L1+5, L1+6, LIST+1, LIST+3, LIST+4, LIST+5, LIST+6, LIST+8!
Y(0	L+3*, L+16

Name	Field # of Occurrence
$T(@(1)	L+12