Routine: PSSP198

Entry Points

Name	Comments	DBIA/ICR reference
POST	;Check DRUG (#50) file and also DOSE UNITS (#51.24) file
DOSE	;Change needed to the DOSE UNITS (#51.24) file ; (1) FIRST DATABANK DOSE UNIT (#1) field: ; (a) APPLICATORFUL/S changed to APPLICATORFUL ; (b) SUPPOSITORY/IES changed to SUPPOSITORY ; (2) Add SUPPOSITORY/IES as a synonym
DRUG	;Loop through the DRUG (#50) file and search for drugs that are
EXIT	; CLEAN UP
TXT(PSSVAL,PSSCAL)
MAIL
HDR	;SET REPORT HEADER

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PS(51.24 - [#51.24]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PS(51.24 - [#51.24]	DOSE+17, DOSE+25, DOSE+28, DOSE+36
^PSDRUG - [#50]	DRUG+13, DRUG+14, DRUG+15, DRUG+16
^TMP($J	DOSE+8, DOSE+9, DOSE+10, DOSE+11, DOSE+12, DOSE+13, DOSE+14, DOSE+15, DOSE+16, DOSE+19 , DOSE+20, DOSE+21, DOSE+22, DOSE+23, DOSE+26, DOSE+30, DOSE+31, DOSE+32, DOSE+33, DOSE+34 , DOSE+37, DOSE+38, DOSE+39, DOSE+40, DOSE+41, DOSE+45, DRUG+18, DRUG+20, DRUG+22, DRUG+23 , DRUG+24, DRUG+25, DRUG+26, DRUG+28, DRUG+29, DRUG+30, DRUG+31, DRUG+32, DRUG+33, DRUG+34* , DRUG+35, DRUG+36, DRUG+39, DRUG+40, DRUG+41, DRUG+42, DRUG+43, EXIT+1!, MAIL+2, HDR+1 , HDR+2, HDR+5
^XUSEC("PSNMGR"	MAIL+4

Name	Field # of Occurrence
DA	DOSE+6~, DOSE+17, DOSE+18, DOSE+24, DOSE+25, DOSE+27!, DOSE+28, DOSE+29, DOSE+35, DOSE+36 , DOSE+44!, DRUG+12~, DRUG+17*!
DIE	DOSE+6~, DOSE+7, DOSE+46!, DRUG+12~, DRUG+17!
DIFROM	MAIL~
DR	DOSE+6~, DOSE+27!, DOSE+42, DOSE+43, DOSE+44!, DRUG+12~, DRUG+17!
DUZ	MAIL+3, MAIL+4
PSSCAL	TXT~
PSSCNT	POST+1~, DOSE+8, DOSE+9, DOSE+10, DOSE+11, DOSE+12, DOSE+13, DOSE+14, DOSE+15, DOSE+16* , DOSE+19, DOSE+20, DOSE+21, DOSE+22, DOSE+23, DOSE+26, DOSE+30, DOSE+31, DOSE+32, DOSE+33 , DOSE+34, DOSE+37, DOSE+38, DOSE+39, DOSE+40, DOSE+41, DOSE+45, DRUG+20, DRUG+22, DRUG+23 , DRUG+24, DRUG+25, DRUG+26, DRUG+28, DRUG+30, DRUG+31, DRUG+32, DRUG+33, DRUG+34, DRUG+35 , DRUG+36, DRUG+42, DRUG+43, EXIT+1!, MAIL+2, HDR+1, HDR+2, HDR+5*
PSSCTR	DRUG+12~, DRUG+21, DRUG+27, EXIT+1!, HDR+4*
PSSDOSE	DOSE+6~, DOSE+25, DOSE+26, DOSE+36, DOSE+37
PSSDU	DRUG+12~, DRUG+16*, EXIT+1!
PSSFLG	DOSE+6~, DOSE+7*
PSSIEN	DRUG+12~, DRUG+13, DRUG+14, DRUG+15, DRUG+16, DRUG+17, DRUG+18, DRUG+19, DRUG+39*, DRUG+40 , DRUG+41, EXIT+1!
PSSINS	EXIT+1!
PSSNAM	DRUG+12~, DRUG+16*, DRUG+18, EXIT+1!
PSSNCP	DRUG+12~, DRUG+14*, DRUG+15, EXIT+1!
PSSTXT	DRUG+12~, DRUG+20, DRUG+21, DRUG+22, DRUG+26, DRUG+27, DRUG+28, DRUG+40, DRUG+42, EXIT+1! , TXT, HDR+1, HDR+2, HDR+3, HDR+4, HDR+5
PSSUNIT	DRUG+12~, DRUG+17*, DRUG+18, EXIT+1!
PSSUSER	EXIT+1!, MAIL+4*
PSSVAL	TXT~
XMDUZ	EXIT+1!, MAIL+3*
XMSUB	DRUG+12~, EXIT+1!, MAIL+1*
XMTEXT	EXIT+1!, MAIL+3*
XMY	EXIT+1!
XMY(	MAIL+3, MAIL+4