Routine: PSDMAPU

Information

PSDMAPU ;BIR/JPW-Stock Missing CS Appl. Pkg. Use ; 22 Jun 93

Source file <PSDMAPU.m>

Package	Total	Caller Graph
Controlled Substances	1	PSD DRUG CHECK

Name	Comments	DBIA/ICR reference
MSG	;send mailman message with completed info
START	;queued entry point to check for non-CS entries in file 50
END
DEV	;sets queueing information

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	START+2, START+3, START+4, START+6, START+7
^PSDRUG - [#50]	START+5, START+7
^TMP("PSDAPU"	START+1!, START+7*, MSG+2, MSG+3, END!
^TMP("PSDMAPU"	MSG+1!, MSG+2, MSG+3, MSG+4*, MSG+6!

Name	Line Occurrences
END	DEV+1

Name	Field # of Occurrence
^("I"	START+2
^(0	START+2, START+7

Name	Field # of Occurrence
%	END!
%DT	END!
%H	END!
%I	END!
DA	START+6!*, END!
DA(1	START+6*
DIE	START+6!*, END!
DR	START+6!*, END!
DT	START+2
DUZ	PSDMAPU+3
JJ	MSG+3*, MSG+4, END!
MLN	MSG+1, MSG+2, MSG+3, MSG+4*, END!
NAOU	START+7*, END!
NN	MSG+3*, END!
OK	START+5*, END!
PSDA	START+2*, START+3, START+4, START+6, START+7, END!
PSDR	START+4*, START+5, START+6, START+7, END!
PSDRN	START+7*, END!
>> PSDSITE	PSDMAPU+2, START+3
PSDT	PSDMAPU+3*, START+6, END!
PSDUZ	PSDMAPU+3*, MSG+5, END!
X	PSDMAPU+3, END!
XMDUZ	MSG+5*, END!
XMSUB	MSG+5*, END!
XMTEXT	MSG+5*, END!
XMY	MSG+1!, MSG+5, MSG+6!, END!
XMY(	MSG+5*
Y	END!
ZTDESC	DEV+1*, END+1!
ZTIO	DEV+1*, END+1!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
ZTRTN	DEV+1*, END+1!
ZTSAVE	END+1!
ZTSAVE("PSDSITE"	DEV+1*
ZTSAVE("PSDT"	DEV+1*
ZTSAVE("PSDUZ"	DEV+1*
ZTSK	DEV+1!, END+1!