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
Print Page as PDF
Routine: PSOREF0

Package: Outpatient Pharmacy

Routine: PSOREF0


Information

PSOREF0 ;IHS/JCM - REFILL CON'T ; July 31, 2023@17:05:28

Source Information

Source file <PSOREF0.m>

Entry Points

Name Comments DBIA/ICR reference
PROCESS ;
PROCESSX
DSPLY ;W !!,$P(PSOREF("RX0"),"^"),?12," ",$P(^PSDRUG($P(PSOREF("RX0"),"^",6),0),"^"),?45," SIG: "_PSOREF("SIG"),?60," QTY: ",$P(PSOREF("RX0"),"^",7)
DSPLYX
CHECK ;
CHECKX
CKQ ;
CHKDIV
CHKDIVX
NUMBER
DATES
EDATE
DATESX
DIR
NEWPT
NEWPTX
UNPARK ; 441 PAPI
EN(PSOREF)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now refilling Rx# ",$P(PSOREF("RX0"),"^")_" Drug: "_$P(^PSDRUG($P(PSOREF("RX0"),"^",6),0),"^")
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !!,"Qty: ",$P(PSOREF("RX0"),"^",7),?19,"Sig: ",$G(BSIG(1))
  • Line Location: DSPLY+3
Function Call: WRITE
  • Prompt: !?24,$G(BSIG(PSREV))
  • Line Location: DSPLY+4
Function Call: WRITE
  • Prompt: !!,?5,$C(7),"Can't refill Rx # "_$P(PSOREF("RX0"),"^")_", it is not for this patient."
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: !,$C(7),"Cannot refill, Rx is discontinued or expired. Later Rx may exist.",!
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !,$C(7),"Rx is in suspense and cannot be refilled"
  • Line Location: CHECK+21
Function Call: WRITE
  • Prompt: !,$C(7),"Rx is in "_PSOY_" status, cannot be refilled"
  • Line Location: CHECK+26
Function Call: WRITE
  • Prompt: !?5,"Can't refill, no refills remaining."
  • Line Location: CHECK+28
Function Call: WRITE
  • Prompt: $C(7),!!
  • Line Location: CHECK+35
Function Call: WRITE
  • Prompt: "Requested refill exceeds maximum allowable days supply for Rx.",!
  • Line Location: CHECK+36
Function Call: WRITE
  • Prompt: "Current drug DEA/SPECIAL HANDLING code does not allow refills.",!
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !?5,$C(7),"RX # ",$P(PSOREF("RX0"),"^")," is for (",$P(^PS(59,$P(PSOREF("RX2"),"^",9),0),"^"),") division."
  • Line Location: CHKDIV+1
Function Call: WRITE
  • Prompt: !,"********* Not Refilled *********"
  • Line Location: CHKDIV+2
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Can't refill, Refill Date ",$E(PSOREF("FILL DATE"),4,5),"/",$E(PSOREF("FILL DATE"),6,7),"/"
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: $E(PSOREF("FILL DATE"),2,3)," is past Expiration Date ",$E(PSOREF("STOP DATE"),4,5),"/",$E(PSOREF("STOP DATE"),6,7),"/"
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: $E(PSOREF("STOP DATE"),2,3)
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !?5,"Can't refill, Fill Date already exists for ",$E(PSOREF("FILL DATE"),4,5),"/",$E(PSOREF("FILL DATE"),6,7),"/",$E(PSOREF("FILL DATE"),2,3)
  • Line Location: EDATE+2
Function Call: WRITE
  • Prompt: !?5,"Can't refill, later Refill Date already exists for ",$E(PSOREF("LAST REFILL DATE"),4,5),"/",$E(PSOREF("LAST REFILL DATE"),6,7),"/",$E(PSOREF("LAST REFILL DATE"),2,3)
  • Line Location: EDATE+5
Function Call: WRITE
  • Prompt: !?5,$C(7),"LESS THAN ",PSOX1," DAYS FOR ",PSOREF("NUMBER")+1," FILLS",!
  • Line Location: EDATE+9
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot be refilled until "_Y_"."
  • Line Location: EDATE+11
Function Call: WRITE
  • Prompt: !,"Rx # "_$P(PSOREF("RX0"),"^")," Unparked."
  • Line Location: UNPARK+3
Function Call: WRITE
  • Prompt: $C(7)," ",ERRMSG(1)
  • Line Location: UNPARK+5
Info |  Source |  Entry Points |  Interaction Calls