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

Package: Outpatient Pharmacy

Routine: PSODRDU1


Information

PSODRDU1 ;BIR/SAB - dup drug class checker for pending orders ;08/23/17 19:51

Source Information

Source file <PSODRDU1.m>

Entry Points

Name Comments DBIA/ICR reference
DUP
DATA
ASKCAN
CLS
INST ;displays instruction and/or comments
ULPN ;
NVA ;displays duplicate drugs and classes for non-va meds
DSP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PSONULN,!,$C(7),"DUPLICATE DRUG "_$P(DNM,"^")_" in a Pending Order"
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !,"Orderable Item: "_$P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: !,"Drug: "_$S($P(DUPRX0,"^",9):$P(^PSDRUG($P(DUPRX0,"^",9),0),"^"),1:"No Dispense Drug Selected")
  • Line Location: DATA+3
Function Call: WRITE
  • Prompt: !,$S($$ERXIEN^PSOERXUT(RXREC_"P"):"eRx ",1:"")_"Instructions: "
  • Line Location: DATA+4
Function Call: WRITE
  • Prompt: FSIG(I),!?5
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !,"Routing: "_$S($P(DUPRX0,"^",17)="W":"WINDOW",$P(DUPRX0,"^",17)="P":"PARK",1:"MAIL"),?30,"Quantity: "_$P(DUPRX0,"^",10),!,"# of Refills: "_$P(DUPRX0,"^",11)
  • Line Location: DATA+7
Function Call: WRITE
  • Prompt: ?30,"Patient Status: SC",!,"Patient Location: "_$S($P(DUPRX0,"^",13):$P($G(^SC($P(DUPRX0,"^",13),0)),"^"),1:""),!,"Med Route: "_$P($G(^PS(51.2,+$P(DUPRX0,"^",15),0)),"^"),?30,"Provider: "_$P(^VA(200,$P(DUPRX0,"^",5),0),"^")
  • Line Location: DATA+8
Function Call: WRITE
  • Prompt: !,"Issue Date: "_Y
  • Line Location: DATA+9
Function Call: WRITE
  • Prompt: !,"Provider Comments: "
  • Line Location: DATA+10
Function Call: WRITE
  • Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!"
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: !!,$P(PSOMSG,"^",2),!
  • Line Location: ASKCAN+1
Function Call: WRITE
  • Prompt: $C(7)," -Pending Order was not discontinued..."
  • Line Location: ASKCAN+5
Function Call: WRITE
  • Prompt: !!,"Duplicate "_$S($G(CLS):"Class",1:"Drug")_" will be discontinued after the acceptance of the new order.",!
  • Line Location: ASKCAN+7
Function Call: WRITE
  • Prompt: !,PSONULN
  • Line Location: CLS+2
Function Call: WRITE
  • Prompt: !,$C(7),"*** SAME CLASS *** of drug in a Pending Order for "_$P(DNM,"^"),!,"Class: "_$G(PSODRUG("VA CLASS"))
  • Line Location: CLS+3
Function Call: WRITE
  • Prompt: @$S(TY=3:"!?14",1:"!?19")
  • Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM
  • Line Location: INST+2
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: INST+2
Function Call: WRITE
  • Prompt: !,PSONULN,!,$C(7),"Duplicate Drug "_$S($G(PSODRUG("NAME"))=$P(DNM,"^"):$P(DNM,"^"),1:"Class "_$G(PSODRUG("VA CLASS")))_" in a Non-VA Med Order.",!
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: !,"Orderable Item: "_$P(^PS(50.7,$P(DUPRX0,"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: DSP+3
Function Call: WRITE
  • Prompt: !,"Drug: "_$S($P(DUPRX0,"^",2):$P(^PSDRUG($P(DUPRX0,"^",2),0),"^"),1:"No Dispense Drug Selected")
  • Line Location: DSP+4
Function Call: WRITE
  • Prompt: !,"Drug Class: "_$G(PSODRUG("VA CLASS"))
  • Line Location: DSP+5
Function Call: WRITE
  • Prompt: !,"Dosage: "_$P(DUPRX0,"^",3)
  • Line Location: DSP+6
Function Call: WRITE
  • Prompt: !,"Schedule: "_$P(DUPRX0,"^",5),?40,"Medication Route: "_$P(DUPRX0,"^",4)
  • Line Location: DSP+7
Function Call: WRITE
  • Prompt: !,"Start Date: "_$$FMTE^XLFDT($P(DUPRX0,"^",9)),?40,"CPRS Order #: "_$P(DUPRX0,"^",8)
  • Line Location: DSP+8
Function Call: WRITE
  • Prompt: !,"Documented By: "_$P(^VA(200,$P(DUPRX0,"^",11),0),"^")_" on "_$$FMTE^XLFDT($P(DUPRX0,"^",10))
  • Line Location: DSP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DSP+10
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: DSP+15
Function Call: WRITE
  • Prompt: OCK(II)
  • Line Location: DSP+21
Function Call: WRITE
  • Prompt: !?5
  • Line Location: DSP+21
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: DSP+25
Function Call: WRITE
  • Prompt: !,PSONULN,!
  • Line Location: DSP+26
Info |  Source |  Entry Points |  Interaction Calls