Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSORRPA1

Package: Outpatient Pharmacy

Routine: PSORRPA1


Information

PSORRPA1 ;AITC/BWF - remote partial prescriptions ;12/12/16 3:21pm

Source Information

Source file <PSORRPA1.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(59.7 - [#59.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call