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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSORXDL

Package: Outpatient Pharmacy

Routine: PSORXDL


Information

PSORXDL ;BIR/SAB - Deletes one prescription ;08/23/17 20:48

Source Information

Source file <PSORXDL.m>

Entry Points

Name Comments DBIA/ICR reference
PASS
ENQ
KILL
ACT ;adds activity info for deleted rx
EX
RESK ;
REF ;
INVT ;
INVINC ;
ULK ;
ULP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$C(7),"Requires Pharmacy Key (PSORPH) !"
  • Line Location: PSORXDL+6
Function Call: WRITE
  • Prompt: $C(7),!!,"SITE PARAMETERS MUST BE DEFINED!",!
  • Line Location: PSORXDL+7
Function Call: WRITE
  • Prompt: !!,$S($G(PSOGGFL):"Refill number "_$G(PSOGGFL),1:"The Original Fill")," has already been released for Rx # "_$P($G(^PSRX(DA,0)),"^")
  • Line Location: PSORXDL+18
Function Call: WRITE
  • Prompt: !,"Drug: ",$P($G(^PSDRUG(+$P($G(^PSRX(DA,0)),"^",6),0)),"^"),?49,$P($G(^DPT(+$P($G(^PSRX(DA,0)),"^",2),0)),"^")
  • Line Location: PSORXDL+19
Function Call: WRITE
  • Prompt: !
  • Line Location: PSORXDL+20
Function Call: WRITE
  • Prompt: !!?5,"No Action Taken.",!
  • Line Location: PSORXDL+20
Function Call: WRITE
  • Prompt: !!,"Please wait, Rx is Loading for CMOP Transmission.."
  • Line Location: PASS+0
Function Call: WRITE
  • Prompt: !!,"Sorry, still loading for CMOP transmission, try again later.",!
  • Line Location: PASS+2
Function Call: WRITE
  • Prompt: !!?5,"Deleting prescription..",!
  • Line Location: PASS+6
Function Call: WRITE
  • Prompt: " NO ACTION TAKEN!",!
  • Line Location: PASS+7
Function Call: WRITE
  • Prompt: !!?5,"NO ACTION TAKEN!",!
  • Line Location: PASS+8
Function Call: WRITE
  • Prompt: !,"...PRESCRIPTION #"_$P(RX,"^")_" MARKED DELETED!!"
  • Line Location: EX+0
Function Call: WRITE
  • Prompt: !!?5,"Returning Medication to Stock..",!
  • Line Location: RESK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RESK+5
Function Call: WRITE
  • Prompt: !!,"No Action Taken!",!
  • Line Location: RESK+5
Function Call: WRITE
  • Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Returned to Stock.",!
  • Line Location: RESK+27
Function Call: WRITE
  • Prompt: !
  • Line Location: REF+19
Function Call: WRITE
  • Prompt: !,"Rx # "_$P($G(^PSRX(RXP,0)),"^")_" Refill Returned to Stock.",!
  • Line Location: REF+25
Function Call: WRITE
  • Prompt: !
  • Line Location: INVT+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
^PS(52.4 - [#52.4] Classic Fileman Calls
^PS(52.41 - [#52.41] Classic Fileman Calls
^PS(52.5 - [#52.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call