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

Package: Outpatient Pharmacy

Routine: PSODDPR1


Information

PSODDPR1 ;BIR/SAB - enhanced dup drug checker for pending/nva orders ;09/30/06 11:33am

Source Information

Source file <PSODDPR1.m>

Entry Points

Name Comments DBIA/ICR reference
DUP
DATA
ASKCAN
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 in a Pending Order for",!
  • Line Location: DUP+0
Function Call: WRITE
  • Prompt: !,$J("Orderable Item: ",20)_$P(^PS(50.7,$P(DUPRX0,"^",8),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: DATA+2
Function Call: WRITE
  • Prompt: !,$J("Drug: ",20)_$S($P(DUPRX0,"^",9):$P(^PSDRUG($P(DUPRX0,"^",9),0),"^"),1:"No Dispense Drug Selected")
  • Line Location: DATA+3
Function Call: WRITE
  • Prompt: $J(FSIG(I),20)
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !?8
  • Line Location: DATA+6
Function Call: WRITE
  • Prompt: !,$J("Quantity: ",20)_$P(DUPRX0,"^",10),?35,$J("# of Refills: ",20)_$P(DUPRX0,"^",11)
  • Line Location: DATA+7
Function Call: WRITE
  • Prompt: !,$J("Provider: ",20)_$P(^VA(200,$P(DUPRX0,"^",5),0),"^")
  • Line Location: DATA+8
Function Call: WRITE
  • Prompt: ?30,$J("Issue Date: ",20)_Y
  • Line Location: DATA+9
Function Call: WRITE
  • Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!"
  • Line Location: DATA+11
Function Call: WRITE
  • Prompt: !!,$P(PSOMSG,"^",2),!
  • Line Location: ASKCAN+5
Function Call: WRITE
  • Prompt: !,$C(7)," Pending Order was not discontinued..."
  • Line Location: ASKCAN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCAN+12
Function Call: WRITE
  • Prompt: !,^UTILITY($J,"W",1,ZX,0)
  • Line Location: ASKCAN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCAN+14
Function Call: WRITE
  • Prompt: @$S(TY=3:"!?14",1:"!?19")
  • Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM
  • Line Location: INST+3
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: INST+3
Function Call: WRITE
  • Prompt: !,PSONULN,!,"Duplicate Drug in a Non-VA Med Order for",!
  • Line Location: DSP+1
Function Call: WRITE
  • Prompt: !,$J("Drug: ",20)_$S($P(DUPRX0,"^",2):$P(^PSDRUG($P(DUPRX0,"^",2),0),"^"),1:"No Dispense Drug Selected")
  • Line Location: DSP+4
Function Call: WRITE
  • Prompt: !,$J("Dosage: ",20)_$S($P(DUPRX0,"^",3):$P(DUPRX0,"^",3),1:"<NOT ENTERED>")
  • Line Location: DSP+6
Function Call: WRITE
  • Prompt: !,$J("Schedule: ",20)_$S($P(DUPRX0,"^",5)]"":$P(DUPRX0,"^",5),1:"<NOT ENTERED>"),!,$J("Medication Route: ",20)_$S($P(DUPRX0,"^",4)]"":$P(DUPRX0,"^",4),1:"<NOT ENTERED>")
  • Line Location: DSP+7
Function Call: WRITE
  • Prompt: !,$J("Start Date: ",20)_$S($P(DUPRX0,"^",9):$$FMTE^XLFDT($P(DUPRX0,"^",9)),1:"<NOT ENTERED>")
  • Line Location: DSP+8
Function Call: WRITE
  • Prompt: ?40,$J("CPRS Order #: ",20)_$P(DUPRX0,"^",8)
  • Line Location: DSP+9
Function Call: WRITE
  • Prompt: !,$J("Documented By: ",20)_$P(^VA(200,$P(DUPRX0,"^",11),0),"^")_" on "_$$FMTE^XLFDT($P(DUPRX0,"^",10))
  • Line Location: DSP+10
Function Call: WRITE
  • Prompt: !,PSONULN,!
  • Line Location: DSP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: DSP+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DSP+17
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: DSP+25
Function Call: WRITE
  • Prompt: " <NOT ENTERED>"
  • Line Location: DSP+29
Function Call: WRITE
  • Prompt: OCK(II)
  • Line Location: DSP+32
Function Call: WRITE
  • Prompt: !?5
  • Line Location: DSP+32
Function Call: WRITE
  • Prompt: !?5,OCK(II)
  • Line Location: DSP+36
Info |  Source |  Entry Points |  Interaction Calls