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: PSODRDUP

Package: Outpatient Pharmacy

Routine: PSODRDUP


Information

PSODRDUP ;BIR/SAB - Dup drug class checker ;4/30/09 12:32pm

Source Information

Source file <PSODRDUP.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
DUP
DATA
ASKCAN
CLS
ULRX ;
PRSTAT(DA) ;Displays the prescription's status

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSONULN,!,$C(7),"Duplicate Drug "_$P(DNM,"^")_" in Prescription: ",$P(^PSRX(+PSOSD(STA,DNM),0),"^")
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !!,$J("Status: ",24)
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: ST
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: ST
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: !,$J("SIG: ",24)
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: $G(BSIG(1))
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !?24,$G(BSIG(PSREV))
  • Line Location: DATA+7
Function Call: WRITE
  • Prompt: !,$J("QTY: ",24)_$P(DUPRX0,"^",7),?40,$J("# of refills: ",24)_RFLS
  • Line Location: DATA+9
Function Call: WRITE
  • Prompt: !,$J("Provider: ",24)_PHYS,?40,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0)
  • Line Location: DATA+10
Function Call: WRITE
  • Prompt: !?40,$J("Last filled on: ",24)_$E(LSTFL,4,5)_"/"_$E(LSTFL,6,7)_"/"_$E(LSTFL,2,3),!?40,$J("Days Supply: ",24)_$P(DUPRX0,"^",8)
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!"
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: !!,"Prescription "_$P($G(^PSRX(+$G(RXRECLOC),0)),"^")_" is on Provider Hold, it cannot be discontinued.",!
  • Line Location: ASKCAN+3
Function Call: WRITE
  • Prompt: !!,$P(PSOMSG,"^",2),!
  • Line Location: ASKCAN+5
Function Call: WRITE
  • Prompt: !,"A CMOP Rx cannot be discontinued during transmission!",!
  • Line Location: ASKCAN+9
Function Call: WRITE
  • Prompt: $C(7)," -Prescription was not "_$S($P(PSOSD(STA,DNM),"^",2)=12:"reinstated",1:"discontinued")_"..."
  • Line Location: ASKCAN+10
Function Call: WRITE
  • Prompt: !!,"Prescription "_$P($G(^PSRX(+$G(RXRECLOC),0)),"^")_" is on Provider Hold, it cannot be discontinued.",!
  • Line Location: ASKCAN+13
Function Call: WRITE
  • Prompt: !!,"Duplicate "_$S($G(CLS):"Class",1:"Drug")_" will be discontinued after the acceptance of the new order.",!
  • Line Location: ASKCAN+15
Function Call: WRITE
  • Prompt: !,PSONULN
  • Line Location: CLS+2
Function Call: WRITE
  • Prompt: !?5,$C(7),"*** SAME CLASS *** OF DRUG IN RX #"_$P(^PSRX(+PSOSD(STA,DNM),0),"^")_" FOR "_$P(DNM,"^"),!,"CLASS: "_PSODRUG("VA CLASS")
  • Line Location: CLS+3
Function Call: WRITE
  • Prompt: !,PSONULN
  • Line Location: CLS+5
Function Call: WRITE
  • Prompt: "Returned to stock on "_$$FMTE^XLFDT(PSORTS,2)
  • Line Location: PRSTAT+19
Info |  Source |  Entry Points |  Interaction Calls