Routine: PSSP176

Entry Points

Name	Comments	DBIA/ICR reference
PREINT	; PRE INSTALL ENTRY POINT.
CKDEA	;Check each drug in the Drug file for non E PAYABLE drugs.
CKNDC	;If a drug is non e-billable remove the NDC BY OUTPATIENT SITE multiple from the drug file
MAIL	;Set up mail message
TXT(PSSVAL,PSSCAL)
XTMP	; BUILD A BACKUP OF THE REMOVED DATA

FileNo	Call Tags
^PSDRUG - [#50]	DELIX^DDMOD, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PSDRUG - [#50]	PREINT+7, CKNDC+1, CKNDC+2!, CKNDC+9!, XTMP+2, XTMP+3
^TMP("PSSDRUG"	PREINT+5!, CKNDC+8*, MAIL+15, MAIL+20, MAIL+21, MAIL+25, MAIL+28!
^TMP("PSSTEXT"	PREINT+5!, MAIL+6, MAIL+7, MAIL+8, MAIL+9, MAIL+10, MAIL+11, MAIL+12, MAIL+13, MAIL+16* , MAIL+17, MAIL+18, MAIL+19, MAIL+22, MAIL+24, MAIL+25, MAIL+26*, MAIL+28!
^XTMP("PSSP176"	PREINT+4, XTMP+2, XTMP+3*
^XUSEC("PSNMGR"	MAIL+2

Name	Field # of Occurrence
DIFROM	MAIL+27~
DT	PREINT+4
DUZ	MAIL+3
PSS1	XTMP+1~, XTMP+3*
PSSCAL	TXT~
PSSCNT	PREINT+3~, PREINT+6, PREINT+9!, CKNDC+7, CKNDC+8, MAIL+12, MAIL+20*, MAIL+21
PSSCTR	MAIL+4, MAIL+5, MAIL+28!
PSSDATA	PREINT+9!, MAIL+21*, MAIL+22, MAIL+23
PSSDEA	PREINT+3~, PREINT+9!, CKDEA+1, CKDEA+2, CKDEA+3, CKDEA+4, CKDEA+5, CKDEA+6, CKNDC+6*, CKNDC+8
PSSDRG	PREINT+3~, PREINT+6, PREINT+7, PREINT+9!, CKDEA+2, CKNDC+1, CKNDC+2, CKNDC+3, CKNDC+4, CKNDC+8 , CKNDC+9, XTMP+2, XTMP+3
PSSDSH	PREINT+9!, MAIL+4, MAIL+5, MAIL+19, MAIL+25
PSSKEYN	PREINT+3~, PREINT+9!, MAIL+2*
PSSNAME	PREINT+3~, PREINT+9!, CKNDC+3*, CKNDC+8
PSSNDC	PREINT+3~, PREINT+9!, CKNDC+4, CKNDC+5, CKNDC+8
PSSSITE	PREINT+3~, PREINT+9!
PSSTMP	PREINT+3~, PREINT+9!
PSSTXLN	PREINT+9!, MAIL+14, MAIL+16, MAIL+17, MAIL+18, MAIL+19, MAIL+22, MAIL+24, MAIL+25, MAIL+26*
PSSTXT	MAIL+23, MAIL+24, MAIL+28!, TXT
PSSVAL	TXT~
X	PREINT+3~, PREINT+4
X1	PREINT+3~, PREINT+4*
X2	PREINT+3~, PREINT+4*
XMDUZ	MAIL+1*, MAIL+27!
XMSUB	MAIL+1*, MAIL+27!
XMTEST	MAIL+27!
XMTEXT	PREINT+9!, MAIL+27*
XMY	MAIL+27!
XMY(	MAIL+2, MAIL+3