Routine: PSORXCLE

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

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

Entry Points

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!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXCLE

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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