Routine: PSORRPA1

Information

PSORRPA1 ;AITC/BWF,RBD - remote partial prescriptions ;18 Feb 2025 8:56 AM

Name	Comments	DBIA/ICR reference
PAR(VALMSG,RXNUM,PFDATE,MW,QTY,DSUPP,REMARKS,PHARM,PHONE,SITE,RX0,RX2,RXSTA,RPROV,RSIG,RPAR0,ROR1,RX3,RREF0)	;
CLC
CLCX
KILL
KL
ACT	;adds activity info for partial rx
EX
ULK	;
PARFAIL(PSOMSG,PSOIEN,RPHARM,RPHONE,RSITE)	;
VALIDDRUG(DRUGIEN)	;
UPDPAR(PSOMSG,PSOIEN,RPHARM,RPHONE,RSITE,PASSLOC)	;
VALDRGINT(DRUGIEN,FILLTYP,RXNUM)	; Interactive check for drug restrictions
UNPARK	; Unpark it if it is PARK'ed - RBD *774

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Matched Drug "_$$GET1^DIQ(50,DRUGIEN,.01,"E")_" is inactive.",!,"Cannot refill." Line Location: VALDRGINT+5
Function Call: WRITE	Prompt: !!,"This is a controlled substance. Cannot refill Rx#",RXNUM,"." Line Location: VALDRGINT+11
Function Call: WRITE	Prompt: !!,"This is a Clozapine prescription.",!,"Cannot refill Rx # ",RXNUM,"." Line Location: VALDRGINT+17
Function Call: WRITE	Prompt: !!,"Local Drug is restricted from OneVA Pharmacy processing.",!,"Cannot refill Rx # ",RXNUM,"." Line Location: VALDRGINT+24
Function Call: WRITE	Prompt: !!,"Local Drug is restricted from OneVA Pharmacy processing.",!,"Cannot "_$S(FILLTYP="R":"refill",1:"process a partial fill for")_" Rx # ",RXNUM,"." Line Location: VALDRGINT+25