Routine: PSSP138

Information

PSSP138 ;BIR/RJS-DOSAGE FORM NOUN & LOCAL POSSIBLE DOSAGE "&" CLEANUP

Name	Comments	DBIA/ICR reference
NOUN	;CONVERY & TO AND
DOS2	; Check and replace the "&" with "AND".
MAIL
EXIT	; CLEAN UP
TXT(VAL,COL)

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	NOUN+2, NOUN+3, NOUN+4, NOUN+21
^PSDRUG - [#50]	DOS2+2, DOS2+3, DOS2+4, DOS2+21
^TMP($J	NOUN+8, NOUN+10, NOUN+11, NOUN+12, NOUN+13, NOUN+15, NOUN+16, NOUN+17, NOUN+19, NOUN+22* , NOUN+23, DOS2+8, DOS2+10, DOS2+11, DOS2+12, DOS2+13, DOS2+15, DOS2+16, DOS2+17, DOS2+19 , DOS2+22, DOS2+23, MAIL+1, EXIT+1!

Name	Field # of Occurrence
COL	TXT~
DA	NOUN+18~, NOUN+19, DOS2+18~, DOS2+19
DA(1	NOUN+19, NOUN+20, DOS2+19, DOS2+20
DIE	NOUN+18~, NOUN+20, DOS2+18~, DOS2+20
DIFROM	MAIL~
DR	NOUN+18~, NOUN+20, DOS2+18~, DOS2+20
DUZ	MAIL+3
PSLOCV	NOUN+5, NOUN+7!, DOS2+5, DOS2+7
PSSCNT	NOUN+13, NOUN+15, NOUN+22, NOUN+23, DOS2+13, DOS2+15, DOS2+22, DOS2+23, MAIL+1*, EXIT+1!
PSSDOS	DOS2+3*, DOS2+4, DOS2+8, EXIT+1!
PSSDOS2	DOS2+4, DOS2+5, DOS2+7, DOS2+8, EXIT+1!
PSSDRG	DOS2+2, DOS2+3, DOS2+4, DOS2+8, DOS2+16, DOS2+17, DOS2+19, DOS2+21, EXIT+1!
PSSIEN	NOUN+2, NOUN+3, NOUN+4, NOUN+8, NOUN+16, NOUN+17, NOUN+19, NOUN+21, DOS2+17*, DOS2+19 , DOS2+21, EXIT+1!
PSSNM	NOUN+19, NOUN+21, DOS2+19, DOS2+21, EXIT+1!
PSSNN	NOUN+3, NOUN+4, NOUN+8, NOUN+17, NOUN+19, EXIT+1!
PSSNNN	NOUN+4, NOUN+5, NOUN+7, NOUN+8, EXIT+1!
PSSRPT	NOUN+9, NOUN+10, NOUN+11, NOUN+12, NOUN+13, NOUN+15, NOUN+22, NOUN+23, DOS2+9, DOS2+10 , DOS2+11, DOS2+12, DOS2+13, DOS2+15, DOS2+22, DOS2+23, MAIL+1, EXIT+1!
VAL	TXT~
X	NOUN+1~, NOUN+14, NOUN+15, NOUN+21, NOUN+22, DOS2+1~, DOS2+14, DOS2+15, DOS2+21, DOS2+22 , TXT*
XMDUZ	MAIL+2*, EXIT+1!
XMSUB	NOUN+9, DOS2+9, EXIT+1!
XMTEXT	MAIL+2*, EXIT+1!
XMY	EXIT+1!
XMY(	MAIL+3*