Routine: ADGICAL2

Package	Total	Caller Graph
Registration	1	DG IHS IC DS ALPHA LIST

Name	Comments	DBIA/ICR reference
SORT	; -- ask user for sort choice
BDATE
END
NEXT
TERMD()	; -- returns terminal digit chart number
QUE
C3
C2
C1
CALC	;EP; -- Beginning of calculate
EDATE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!!?20,"DS INCOMPLETE CHARTS ALPHA LIST",!! Line Location: ADGICAL2+3
Function Call: WRITE	Prompt: !!,7,"** WARNING: Report uses wide paper or condensed print!",! Line Location: SORT+6
Routine Call	%ZIS Line Location: END
Routine Call	DIR Line Location: SORT+2
Routine Call	%ZIS Line Location: SORT+7

Name	Line Occurrences (* Changed, ! Killed)
^ADGDSI - [#9009012.5]	C3+2
^ADGDSI("AB"	C1, C2, C3
^AUPNPAT - [#9000001]	C3+4, TERMD+2
^DPT - [#2]	C3+3
^TMP("DGZICAL"	CALC+1!, C3+6, C3+7

Name	Field # of Occurrence
^(0	C3+2, C3+4

Name	Field # of Occurrence
>> %DT	BDATE, EDATE
>> %DT("A"	BDATE, EDATE
>> %ZIS	SORT+7*
>> DFN	C1+1, C2, C3, C3+2, C3+3, C3+4, C3+6, C3+7, TERMD+2
DGBDT	BDATE+1*, END!, CALC+5
>> DGCHT	C3+4*, C3+6, C3+7
>> DGCNT	CALC+2, C3+6, C3+7*
>> DGDFN1	C2+1, C3, C3+2, C3+6, C3+7
DGEDT	EDATE+1, END!, CALC+2, C1
>> DGNM	C3+3*, C3+6
>> DGSRT	SORT+3*, C3+6
>> DGSTR	C3+2*, C3+6, C3+7
>> DGZDT	CALC+5, C1, C2, C3
DIR	SORT+1!
DIR("A"	SORT+2*
DIR(0	SORT+1*
>> DIRUT	SORT+3
DUZ(2	C3+4, TERMD+2
>> I	QUE+1*
IO	SORT+7
IO("Q"	SORT+7, QUE!
IOF	ADGICAL2+3
>> POP	SORT+7
U	C3+3, C3+4, C3+6, C3+7, TERMD+2
X	BDATE, EDATE, TERMD+1~, TERMD+2, TERMD+3, TERMD+4
Y	BDATE+1, EDATE+1, SORT+3, END!
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*
ZTSK	QUE+2!

Information