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

Package: Outpatient Pharmacy

Routine: PSODDPRE


Information

PSODDPRE ; BIR/SAB - Enhanced OP order checks ;09/20/06 3:38pm

Source Information

Source file <PSODDPRE.m>

Entry Points

Name Comments DBIA/ICR reference
OBX
EXIT ;
DUP
DATA
ASKCAN
FDB ;build drug check input
ID
ID1
DUPTHER(RXREC) ;screen out discontinued/duplicate therapy Rx's greater than business rule calculation (cancel date + days supply +7 days)
OIX
ULRX ;
PRSTAT(DA) ;Displays the prescription's status
DATACK ;check FDB returned data to determine whether to continue processing.
NVATST(PSONVTOI,PSONVTAP) ; Look for any active Non-VA Dispense Drugs not marked as a supply item

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSODDPRE+13
Function Call: WRITE
  • Prompt: !,"Now Processing Enhanced Order Checks! Please wait...",!
  • Line Location: OBX+5
Function Call: WRITE
  • Prompt: !,PSONULN,!,$C(7),"Duplicate Drug in Local Rx:",!
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !,$J("Rx: ",24)_$P(^PSRX(+PSOSD(STA,DNM),0),"^")
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: !,$J("Drug: ",24)_$P(DNM,"^")
  • Line Location: DATA+5
Function Call: WRITE
  • Prompt: !,$J("SIG: ",24)
  • Line Location: DATA+8
Function Call: WRITE
  • Prompt: $G(BSIG(1))
  • Line Location: DATA+8
Function Call: WRITE
  • Prompt: !?24,$G(BSIG(PSREV))
  • Line Location: DATA+9
Function Call: WRITE
  • Prompt: !,$J("QTY: ",24)_$P(DUPRX0,"^",7),?42,$J("Refills remaining: ",24),RFLS-$S($D(^PSRX(RXREC,1,0)):$P(^(0),"^",4),1:0)
  • Line Location: DATA+12
Function Call: WRITE
  • Prompt: !,$J("Provider: ",24)_PHYS,?42,$J("Issued: ",24),$E(ISSD,4,5)_"/"_$E(ISSD,6,7)_"/"_$E(ISSD,2,3)
  • Line Location: DATA+14
Function Call: WRITE
  • Prompt: !,$J("Status: ",24)
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: ST
  • Line Location: DATA+15
Function Call: WRITE
  • Prompt: ?42,$J("Last filled: ",24)_$E(LSTFL,4,5)_"/"_$E(LSTFL,6,7)_"/"_$E(LSTFL,2,3)
  • Line Location: DATA+16
Function Call: WRITE
  • Prompt: !?42,$J("Days Supply: ",24)_$P(DUPRX0,"^",8)
  • Line Location: DATA+18
Function Call: WRITE
  • Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!"
  • Line Location: DATA+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASKCAN+2
Function Call: WRITE
  • Prompt: !!,$P(PSOMSG,"^",2),!
  • Line Location: ASKCAN+12
Function Call: WRITE
  • Prompt: !,"A CMOP Rx cannot be discontinued during transmission!",!
  • Line Location: ASKCAN+18
Function Call: WRITE
  • Prompt: !,$C(7)," -Prescription was not "_$S($P(PSOSD(STA,DNM),"^",2)=12:"reinstated",1:"discontinued")_"..."
  • Line Location: ASKCAN+19
Function Call: WRITE
  • Prompt: !!,"Prescription "_$P($G(^PSRX(+$G(RXRECLOC),0)),"^")_" is on Provider Hold, it cannot be discontinued.",!
  • Line Location: ASKCAN+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKCAN+24
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",1,ZX,0)
  • Line Location: ASKCAN+26
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCAN+27
Function Call: WRITE
  • Prompt: !
  • Line Location: DATACK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DATACK+4
Info |  Source |  Entry Points |  Interaction Calls