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

Package: Outpatient Pharmacy

Routine: PSODDPR2


Information

PSODDPR2 ;BIR/SAB - display enhanced order checks ;11 May 2010 9:06 AM

Source Information

Source file <PSODDPR2.m>

Entry Points

Name Comments DBIA/ICR reference
THER
THER2 ;
ERR
EXIT ;
RX
DUPCL ;
INT ;
HD(PSOLINES,OVRRID) ;
DGSORT ;
RTC ;Return to continue

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PSODDPR2+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PSODDPR2+26
Function Call: WRITE
  • Prompt: !,"Drug Interaction Error(s):",!
  • Line Location: PSODDPR2+29
Function Call: WRITE
  • Prompt: @IOF,PSONULN1,!
  • Line Location: THER+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: THER2+12
Function Call: WRITE
  • Prompt: !,"Drug Therapy Error(s):",!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: ?5,$S($P(ON,";")="P":"Pending Order: ",$P(ON,";")="N":"Non-VA Med Order: ",$P(ON,";")="R":"Remote Rx: ",$P(ON,";")="O":"Rx: ",1:"Prospective Rx: ")
  • Line Location: ERR+4
Function Call: WRITE
  • Prompt: " "_^TMP($J,LIST,"OUT","THERAPY","ERROR",ON,CT,"MSG"),!," "_^TMP($J,LIST,"OUT","THERAPY","ERROR",ON,CT,"TEXT"),!
  • Line Location: ERR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: RX+0
Function Call: WRITE
  • Prompt: !,"PATIENT ON AUTHORIZED ABSENCE!"
  • Line Location: RX+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RX+5
Function Call: WRITE
  • Prompt: !!,"Prescription "_$P($G(^PSRX(+$G(RXRECLOC),0)),"^")_" is on Provider Hold, it cannot be discontinued.",!
  • Line Location: RX+8
Function Call: WRITE
  • Prompt: !!,$P(PSOMSG,"^",2),!
  • Line Location: RX+10
Function Call: WRITE
  • Prompt: !,"A CMOP Rx cannot be discontinued during transmission!",!
  • Line Location: RX+15
Function Call: WRITE
  • Prompt: $C(7)," -Prescription was not "_$S(STATUS=12:"reinstated",1:"discontinued")_"..."
  • Line Location: RX+16
Function Call: WRITE
  • Prompt: !!,"THERAPEUTIC DUPLICATIONS will be discontinued after the acceptance of the new order.",!!
  • Line Location: RX+20
Function Call: WRITE
  • Prompt: "*** THERAPEUTIC DUPLICATION(S) *** "_PSODRUG("NAME")_" with"
  • Line Location: DUPCL+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DUPCL+43
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DUPCL+45
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RTC+1
Info |  Source |  Entry Points |  Interaction Calls