Routine: PSORRPA1

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

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

Name

Comments

DBIA/ICR reference

;

;adds activity info for partial rx

;

;

;

;

; Interactive check for drug restrictions

Interaction Calls

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