Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^%DT  NOW^%DTC  
Registration 1 PID^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Outpatient Pharmacy 2 PSO RX DRUG SEARCH  PSO RX SEARCH  

Entry Points

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

External References

Name Field # of Occurrence
^%DT ASK+3
NOW^%DTC PRI+1
^%ZIS ASK+6
^%ZISC END+1
^%ZTLOAD ASK+8
PID^VADPT PAT+5, DRGS+9

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
Routine Call
  • %ZIS
  • Line Location:
    • ASK+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRI+1, ASK, ASK+4, PAT+6, DRGS+10
^DPT - [#2] PRI+6, PRI+8, PRI1+1
^PS(50.606 - [#50.606] PRI1+2, PRI1+3, PRI1+5, PRI1+6
^PS(50.7 - [#50.7] PRI1+2, PRI1+3, PRI1+5, PRI1+6
^PS(59.7 - [#59.7] ASK
^PSDRUG - [#50] PRI+6, PRI+8, PRI1+2, PRI1+3, PRI1+5, PRI1+6, DRGS+7
^PSRX - [#52] QUE+2, PRI+6, PRI+8, PRI1+2, PRI1+5, PAT, PAT+2, PAT+4, PAT+6, DRGS
, DRGS+1, DRGS+2, DRGS+3, DRGS+4, DRGS+10
^PSRX("AD" QUE
^PSRX("B" PAT+1, DRGS+1
^TMP("PSOTMP" PSORXCLE+6!, PRI+2, PRI+3, END+1!, DRG+1!, PAT+4*, PAT+5*, PAT+6*, DRGS+8*, DRGS+9*
, DRGS+10*
^TMP($J PSORXCLE+6!, QUE+1*, END+1!, DRG+1!

Label References

Name Line Occurrences
ASK PSORXCLE+7, ASK+4, DRG+3
DRGS QUE+2
END PSORXCLE+7, EN, PRI+2, ASK+3, ASK+6, DRG+3, EN1
HDR PRI+2, PRI+4
PAT QUE+2
PRI EN, EN1
PRI1 PRI+5
QUE EN, EN1

Naked Globals

Name Field # of Occurrence
^(0 PRI1+2, PRI1+3, PRI1+5, PRI1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRI+1!
%DT END+1!, ASK+2!, ASK+3*, ASK+4!
%DT("A" ASK+2*
%DT("B" ASK+2*
%DT(0 ASK+3*
%T END+1!
%ZIS ASK+5!, ASK+6*!
%ZIS("A" ASK+6*
%ZIS("B" ASK+6*
DAT PRI+3*, PRI+6, PRI+7, PRI+8, END+1!, PRI1+1, PRI1+2, PRI1+3, PRI1+4, PRI1+5
, PRI1+6
DFN PAT+5*, PAT+7!, DRGS+9*, DRGS+11!
DRG QUE+2, PRI+5, END+1!, DRG+3*
DRG1 END+1!, DRGS+3*, DRGS+5!, DRGS+6!, DRGS+7!, DRGS+8, DRGS+11!
DRG2 END+1!, DRGS+3*, DRGS+5!, DRGS+6!, DRGS+7!, DRGS+8, DRGS+11!
END END+1!
I PRI+3*, PRI+6, END+1!, PRI1+2
INST END+1!, ASK*, ASK+3
INSTD END+1!, HDR+2, ASK*, ASK+1, ASK+2, ASK+4*
IO HDR+2
IO("Q" ASK+7
IOF HDR+2
ION ASK+6
IOP ASK+5!, ASK+6*!
IOSL PRI+4
LINE PRI+2*, PRI+8, END+1!, PRI1+7
NODE END+1!
OR1 END+1!, DRGS+4*, DRGS+5!, DRGS+6!, DRGS+7!, DRGS+8, DRGS+11!
OR2 END+1!, DRGS+4*, DRGS+5!, DRGS+6!, DRGS+7!, DRGS+8, DRGS+11!
PAT1 END+1!, PAT*, PAT+3!, PAT+4, PAT+5, PAT+7!, DRGS+1*, DRGS+5!, DRGS+6!, DRGS+7!
, DRGS+8, DRGS+9, DRGS+11!
PAT2 END+1!, PAT+2*, PAT+3!, PAT+4, PAT+5, PAT+7!, DRGS+3*, DRGS+5!, DRGS+6!, DRGS+7!
, DRGS+11!
PG END+1!, HDR+1*, HDR+2
>> POP ASK+6
PSOION ASK+6*!, ASK+7!
PSTOP PSORXCLE+7!, ASK+6*, DRG+3!
QUE PSORXCLE+7, END+1!, ASK+3*, ASK+7!*, DRG+3
RMK PAT*, PAT+1, PAT+3!, PAT+4, PAT+7!, DRGS+1*, DRGS+5!, DRGS+6!, DRGS+7!, DRGS+8
, DRGS+11!
RX END+1!
RXN1 QUE*, QUE+1, QUE+2, END+1!, PAT, PAT+4, PAT+5, PAT+6, DRGS, DRGS+1
, DRGS+3, DRGS+4, DRGS+8, DRGS+9, DRGS+10
RXN2 END+1!, PAT+1*, PAT+2, PAT+3!, PAT+4, PAT+7!, DRGS+1*, DRGS+2, DRGS+3, DRGS+4
, DRGS+5!, DRGS+6!, DRGS+7!, DRGS+8, DRGS+11!
SDT QUE*, END+1!, ASK+4*
SEP PRI+2*, END+1!, HDR+3, HDR+4
SER PSORXCLE+7*, QUE+2, END+1!, HDR+2, HDR+3, ASK+8
TD PRI+1*, END+1!, HDR+2
VA END+1!, PAT+7!, DRGS+11!
VA("BID" PAT+5, DRGS+9
X END+1!, ASK+3
Y PRI+1*, END+1!, ASK*, ASK+4, PAT+6*, DRGS+10*
>> ZTDESC ASK+8*
ZTQUEUED ASK+5!
>> ZTRTN ASK+8*
>> ZTSAVE("DRG" ASK+8*
>> ZTSAVE("INSTD" ASK+8*
>> ZTSAVE("SDT" ASK+8*
>> ZTSAVE("SER" ASK+8*
>> ZTSAVE("ZTREQ" ASK+8*
ZTSK ASK+5!, ASK+9!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All