Routine: DGYPPOST

Information

DGYPPOST ;ALB/MLI - Clean-up cross-reference on Annual Means Test file ; 20 JUNE 95

Source file <DGYPPOST.m>

Package	Total	Call Graph
Kernel	2	^%ZTLOAD $$NOW^XLFDT
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
ADCLN
EN	; entry point
TEXT	; text to display
LINE(TEXT)	; add text to mail message
MAIL	; generate an e-mail bulletin when done
DQ	; call to begin processing

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EN+2
Function Call: WRITE	Prompt: !,X Line Location: EN+2
Function Call: WRITE	Prompt: !,"Task queued: ",ZTSK Line Location: EN+5
Function Call: WRITE	Prompt: "...RUNNING IMMEDIATELY" Line Location: EN+6
Function Call: WRITE	Prompt: !,"Done!" Line Location: EN+6
Function Call: WRITE	Prompt: !,">>Checking AD cross-reference and killing erroneous entries..." Line Location: ADCLN+2
Function Call: WRITE	Prompt: "." Line Location: ADCLN+7

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	ADCLN+3, ADCLN+4, ADCLN+5, ADCLN+6, ADCLN+8!

Name	Field # of Occurrence
^(	ADCLN+5

Name	Field # of Occurrence
COUNT	DQ+1~, ADCLN+1, ADCLN+7
COUNT(1	ADCLN+1, ADCLN+8, ADCLN+9, MAIL+4
>> DA	ADCLN+5*, ADCLN+6, ADCLN+8
DGCOUNT	MAIL+2, MAIL+12!, LINE+1
DGSTART	DQ+1~, DQ+2*, MAIL+5
DGTEXT	MAIL+12!
DGTEXT(	LINE+1*
DIFROM	MAIL+1~
DUZ	MAIL+10
I	EN+1~, EN+2, ADCLN~, ADCLN+3, ADCLN+4, ADCLN+5, ADCLN+8
J	ADCLN~, ADCLN+4*, ADCLN+5, ADCLN+8
K	ADCLN~, ADCLN+5*, ADCLN+8
TEXT	LINE~, LINE+1
X	EN+1~, EN+2, ADCLN~, ADCLN+6, ADCLN+8
XMDUZ	MAIL+10*, MAIL+12!
XMN	MAIL+8*, MAIL+12!
XMSUB	MAIL+8*, MAIL+12!
XMTEXT	MAIL+9*, MAIL+12!
XMY	MAIL+12!
XMY(	MAIL+10*
ZTDESC	EN+3*, EN+7!
ZTIO	EN+3*, EN+7!
>> ZTQUEUED	ADCLN+2, ADCLN+7, ADCLN+9
ZTRTN	EN+3*, EN+7!
ZTSK	EN+5, EN+7!

Name	Field # of Occurrence
$T(TEXT+I	EN+2