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

Package: Outpatient Pharmacy

Routine: PSORXCLE


Information

PSORXCLE ;BHAM ISC/SAB-routine to look for bad Rxs ;08/27/00

Source Information

Source file <PSORXCLE.m>

Entry Points

Name Comments DBIA/ICR reference
EN
QUE
PRI ;output
END ;
PRI1 ;outputs drug report
HDR ;header
ASK
DRG ;entry point to look for wrong drug
EN1
PAT
DRGS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Data Found",!
  • Line Location: PRI+2
Function Call: WRITE
  • Prompt: !,$P(^DPT($P(DAT,"^"),0),"^")_" ("_$P(DAT,"^",8)_")"
  • Line Location: PRI1+1
Function Call: WRITE
  • Prompt: !,$P(^PSRX(I,0),"^"),?15,$P(^PSDRUG($P(DAT,"^",2),0),"^"),?60,$P(^PS(50.7,$P(DAT,"^",3),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: PRI1+2
Function Call: WRITE
  • Prompt: !?34,"Drug File Orderable Item: "_$P(^PS(50.7,$P(^PSDRUG($P(DAT,"^",2),2),"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: PRI1+3
Function Call: WRITE
  • Prompt: !?5,"Rx Created: "_$P(DAT,"^",9)_" Remarks: "_$P(DAT,"^",5)
  • Line Location: PRI1+4
Function Call: WRITE
  • Prompt: !,$P(^PSRX($P(DAT,"^",4),0),"^"),?15,$P(^PSDRUG($P(DAT,"^",6),0),"^"),?60,$P(^PS(50.7,$P(DAT,"^",7),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: PRI1+5
Function Call: WRITE
  • Prompt: !?34,"Drug File Orderable Item: "_$P(^PS(50.7,$P(^PSDRUG($P(DAT,"^",6),2),"^"),0),"^")_" "_$P(^PS(50.606,$P(^(0),"^",2),0),"^")
  • Line Location: PRI1+6
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRI1+7
Function Call: WRITE
  • Prompt: @IOF,"Report of New Prescriptions Created by an Edited Prescription - "_$S($G(SER)=1:"Patient",1:"Drug")_" Search",?122,"Page: "_PG,!,"Search Date from "_INSTD,?35,"Run Date/Time: "_TD
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"New Rx",?35,"Patient",?76,"Drug",!,"Edited Rx",!,SEP
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Patient's Name",!,"New Rx",!,"Edited Rx",?15,"Drug",?60,"Rx Orderable Item",!,SEP
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"Version 7.0 of Outpatient Pharmacy was installed on "_INSTD_"."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Report Request Cancelled!",!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"This is a 132 column Report.",!
  • Line Location: ASK+5
Function Call: WRITE
  • Prompt: !,"Printout Queued to Print.",!
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,"This option will print a report of possible Prescriptions where the",!,"dispense drug name was changed incorrectly."
  • Line Location: DRG+2
Info |  Source |  Entry Points |  Interaction Calls