Routine: PSAP56

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
VSN	;
DRDA	;process drug:VSN
MORE	;
DUPS	;compare synonyms of the identical VSN/drug found
DELETE	;
LOGDUP	;
MAILMSG	; generate mail message of duplicates deleted.
DRIEN	;work the specific drug
SYNDR	; work synonyms under a drug
SYN	;report the individual synonym that had duplicates deleted
MMLN
TXT(VAL,COL)
NOMSG	; report no duplicates found to remove.
EXIT	;

FileNo	Call Tags
50.1	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	MORE+3, LOGDUP+1, SYN+3
^PSDRUG("AVSN"	EN+2, VSN+1, DRDA+3, DRDA+5, MORE+2
^TMP($J	LOGDUP+2, MAILMSG+1!, MAILMSG+3, MAILMSG+8, DRIEN+1, SYNDR+1, MMLN, EXIT+2!

Name	Line Occurrences
DELETE	DUPS+6
DRDA	VSN+1
DRIEN	MAILMSG+8
EXIT	EN+1, EN+3
LOGDUP	DUPS+7
MAILMSG	EN+3
MMLN	MAILMSG+5, MAILMSG+6, MAILMSG+7, SYN+6, SYN+7, NOMSG+1, NOMSG+2, NOMSG+3
MORE	DRDA+5
NOMSG	MAILMSG+4
SYN	SYNDR+1
SYNDR	DRIEN+1
TXT	MAILMSG+7, SYN+6, SYN+7
VSN	EN+2

Name	Field # of Occurrence
COL	TXT~, EXIT+1!
>> DA	DELETE+4, SYN+3
>> DA(1	DELETE+4, SYN+3, SYN+5*
DDOU	EXIT+1!
DIFROM	MAILMSG+2~
DIK	DELETE+4!*, EXIT+1!
DRDA	VSN+1, DRDA+3, DRDA+5, MORE+2, MORE+3, DELETE+4, LOGDUP+1, LOGDUP+2, DRIEN+1, SYNDR+1 , SYN+3, SYN+5, SYN+6, EXIT+1!
DRGNM	LOGDUP+1, LOGDUP+2, MAILMSG+8, DRIEN+1, SYNDR+1, SYN+6, EXIT+1!
DUOU	SYN+4*, SYN+7, EXIT+1!
DUZ	MAILMSG+11, NOMSG+6
IENS	SYN+3*, SYN+5, EXIT+1!
MMLC	MMLN*, EXIT+1!
N1	DUPS+4, DELETE+2, DELETE+3, EXIT+1!
N2	DUPS+4, DELETE+3, DELETE+4, DELETE+5, DELETE+6, EXIT+1!
NDC	SYN+4*, SYN+6, EXIT+1!
OU	SYN+5*, SYN+7, EXIT+1!
PPDU	SYN+4*, SYN+7, EXIT+1!
PPOU	SYN+4*, SYN+7, EXIT+2!
RXCNT	VSN+1*, EXIT+1!
SYCNT	DRDA+2!, MORE+1!, MORE+3*, DUPS+4, EXIT+1!
SYDA	DRDA+3, DRDA+5, MORE+4, EXIT+1!
SYDAL	LOGDUP+2*, EXIT+2!
SYN0	DRDA+2!, MORE+1!, SYN+3*, EXIT+1!, EXIT+2!
SYN0(	MORE+3*, DUPS+4
SYNDA	SYNDR+1*, SYN+3, SYN+6, EXIT+2!
SYNDC	DRDA+2!, MORE+1!, EXIT+2!
SYNDC(	DELETE+5!
SYNDUP	DRDA+2!, MORE+1!, DUPS+1!, DUPS+5, DELETE+1, EXIT+2!
SYNDUP(	DUPS+4*, DELETE+2, DELETE+3, DELETE+6!, LOGDUP+2
SYNFLD	SYN+1!, EXIT+2!
SYNIEN	DRDA+2!, MORE+1!, MORE+2*, MORE+3, MORE+4, EXIT+2!
SYNIEN(	MORE+3*, DELETE+4, LOGDUP+2
U	LOGDUP+1, SYN+4
VAL	TXT~, EXIT+2!
VSN	EN+2, VSN+1, DRDA+3, DRDA+5, MORE+2, SYN+4, SYN+6, EXIT+2!
>> X	MAILMSG+5, MAILMSG+6, MAILMSG+7, SYN+3, SYN+4, SYN+6, SYN+7, MMLN, TXT, NOMSG+1 , NOMSG+2, NOMSG+3
>> XMDUZ	MAILMSG+10, NOMSG+5
>> XMSUB	MAILMSG+9, NOMSG+4
>> XMTEXT	MAILMSG+10, NOMSG+5
>> XMY(	MAILMSG+11, NOMSG+6