Routine: PSODDPR3

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	$$GET1^DIQ ^DIR ^DIWP
Outpatient Pharmacy	2	HD^PSODDPR2 $$ERXIEN^PSOERXUT
National Drug File	1	ZERO^PSN50P6

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSODDPR2 PSODDPR5 PSODDPR7 PSODDPR8

Name	Comments	DBIA/ICR reference
NVA
MON	;print monograph
QUE
PAUSE1()	;Allow "^"
RDI	;RDI orders
FSIG(FSIG)	;Format sig from remote site ;returned in the FSIG array
FSTART
FQUIT	;
DCOR	;dc duplicate therapy
FPMON	;displays instruction and/or comments
VAGEN(PSODD)	;Return the VA GENERIC name
INST	;displays instruction and/or comments
CLASSES	;display therapeutic duplications classes (called from PSODDPR5 too)

Name	Field # of Occurrence
^%ZIS	MON+5
^%ZISC	MON+12, MON+14
^%ZTLOAD	MON+12
$$GET1^DIQ	QUE+14
^DIR	MON+2, MON+15, PAUSE1+6, DCOR+8, DCOR+16, DCOR+21
^DIWP	DCOR+13, DCOR+28, CLASSES+6, CLASSES+10
ZERO^PSN50P6	VAGEN+3
HD^PSODDPR2	INST+3, CLASSES+2, CLASSES+3
$$ERXIEN^PSOERXUT	INST+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NOTHING PRINTED" Line Location: MON+6
Function Call: WRITE	Prompt: ! Line Location: MON+7
Function Call: WRITE	Prompt: !,"Monograph Queued to Print!",! Line Location: MON+12
Function Call: WRITE	Prompt: @IOF Line Location: MON+15
Function Call: WRITE	Prompt: @IOF Line Location: QUE+24
Function Call: WRITE	Prompt: !,^TMP($J,LIST,"PMON",FDBSEV,QXX,QX,0) Line Location: QUE+28
Function Call: WRITE	Prompt: @IOF Line Location: QUE+30
Function Call: WRITE	Prompt: ! Line Location: PAUSE1+3
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",1,ZX,0) Line Location: DCOR+14
Function Call: WRITE	Prompt: ! Line Location: DCOR+15
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",1,ZX,0) Line Location: DCOR+29
Function Call: WRITE	Prompt: ! Line Location: DCOR+31
Function Call: WRITE	Prompt: @$S(TY=3:"!?14",1:"!?19") Condition for execution: $X+$L($P(MIG," ",SG)_" ")>IOM Line Location: INST+3
Function Call: WRITE	Prompt: $P(MIG," ",SG)_" " Line Location: INST+3
Routine Call	%ZIS Line Location: MON+5
Routine Call	DIR Line Location: MON+2 MON+15 PAUSE1+6 DCOR+8 DCOR+16 DCOR+21

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.606 - [#50.606]	NVA+1
^PS(50.7 - [#50.7]	NVA+1
^PS(52.41 - [#52.41]	INST+1
^PS(55 - [#55]	NVA
^PSDRUG - [#50]	NVA+2, VAGEN+3
^PSRX - [#52]	DCOR+7, DCOR+13, DCOR+20, DCOR+28
^TMP("PSORXDC"	DCOR+9, DCOR+10, DCOR+11, DCOR+24, DCOR+25, DCOR+26
^TMP($J	MON+16!, QUE!, QUE+3, QUE+4, QUE+6, QUE+12, QUE+13, QUE+15, QUE+17, QUE+19 , QUE+20, QUE+21, QUE+22, QUE+23, QUE+25, QUE+27, QUE+28, RDI+1, RDI+2, RDI+9* , FSIG+2, DCOR+4, DCOR+6, DCOR+20, DCOR+23, FPMON+1, FPMON+2, FPMON+3, FPMON+4*, VAGEN+4! , CLASSES+7, CLASSES+8, CLASSES+9
^UTILITY($J	NVA+6!, NVA+7!, MON+16!, DCOR+12!, DCOR+14, DCOR+15!, DCOR+27!, DCOR+29, DCOR+30!, CLASSES+5! , CLASSES+11, CLASSES+12!
^XUSEC("PSORPH"	DCOR+1

Name	Line Occurrences
$$PAUSE1	QUE+29
FPMON	QUE+22
FSIG	RDI+5
QUE	MON+14

Name	Field # of Occurrence
^(	FSIG+2
^(0	NVA+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	MON+5!*
ACT	NVA+5!, DCOR+3*, DCOR+10, DCOR+25, DCOR+31!
BSIG	NVA+6!
CAN	NVA+5!
CLASS	CLASSES+12!
CNT	FSIG+1~, FSTART+1*, FSTART+2
>> CT	QUE, QUE+3, QUE+4, QUE+6, QUE+12*, QUE+13, QUE+15, QUE+17, QUE+22, FPMON+1
DA	NVA+5!
DCN	DCOR+4~, DCOR+23*, DCOR+24, DCOR+25, DCOR+26, DCOR+28
DCRD	DCOR+4~, DCOR+22*, DCOR+23
DGI	NVA+6!
DIR	NVA+5!, MON+2!, MON+3!, MON+15!, MON+16!, QUE+24!, PAUSE1+2~, PAUSE1+3!, DCOR+6!, DCOR+8! , DCOR+16!, DCOR+18!, DCOR+19!, DCOR+21!, DCOR+31!
DIR("?"	MON+15, PAUSE1+4
DIR("A"	MON+2, MON+15, PAUSE1+3, DCOR+7, DCOR+16, DCOR+20, DCOR+21*
DIR("B"	MON+2, DCOR+16
DIR(0	MON+2, MON+15, PAUSE1+5, DCOR+6, DCOR+16, DCOR+19
DIRUT	MON+3!, MON+15!, PAUSE1+2~, DCOR+8!, DCOR+17, DCOR+21!
DIWF	NVA+7!, MON+16!, DCOR+12, DCOR+15!, DCOR+27, DCOR+30!, CLASSES+5*, CLASSES+12!
DIWL	NVA+7!, MON+16!, DCOR+12, DCOR+15!, DCOR+27, DCOR+30!, CLASSES+5*, CLASSES+12!
DIWR	NVA+7!, MON+16!, DCOR+12, DCOR+15!, DCOR+27, DCOR+30!, CLASSES+5*, CLASSES+12!
DNM	NVA+5!
DRG	QUE+3, QUE+4, QUE+6, QUE+8, QUE+12, QUE+13, QUE+15, QUE+16, QUE+17, QUE+18 , QUE+22, FPMON+1, CLASSES+12!
DRGI	NVA+6!
>> DRGIEN	QUE+13*, QUE+14
DRGINFO	MON+2~, QUE+13*
DSC	NVA+5!
DSPL	NVA+5!
DTOUT	MON+3!, MON+15!, MON+16!, QUE+24!, DCOR+8, DCOR+17, DCOR+21
DUOUT	MON+3!, MON+15!, MON+16!, QUE+24!, PAUSE1+2~, DCOR+8, DCOR+17, DCOR+21
DUPRX0	NVA*, NVA+1, NVA+2, NVA+4, NVA+5!
DUZ	DCOR+1
FDBSEV	MON+2~, MON+16!, QUE+5, QUE+8, QUE+18, QUE+19, QUE+20, QUE+21, QUE+27*, QUE+28 , FPMON+2, FPMON+3, FPMON+4
FFF	FSIG+1~, FSTART+1*, FSTART+2
FLIM	FSIG+1~, FSTART+1, FSTART+3*
FSIG	RDI+5, RDI+10!, FSIG~, FSIG+1!
FSIG(	RDI+6, FSTART+1, FSTART+5
FSIG(1	FSTART+6*
FSIG(2	FSTART+6!
FVAR	FSIG+1~, FSTART, FSTART+1, FSTART+3, FSTART+4*, FSTART+5
FVAR1	FSIG+1~, FSTART, FSTART+1, FSTART+2, FSTART+4
HSIG	FSIG+1~
HSIG(	FSIG+2*, FSTART+1, FSTART+2
I	NVA+6!, RDI+6, RDI+10!, FSIG+1~, FSIG+2, DCOR+4, DCOR+20, DCOR+31!
II	FSIG+1~, FSTART, FSTART+1, FSTART+5
INST	INST+1*, INST+4!
IO	QUE+1, QUE+24
IO("Q"	MON+8
IOF	MON+15, QUE+24, QUE+30, QUE+32
IOM	INST+3
IOP	MON+5!
IOSL	QUE+28, QUE+29
IOST	MON+15, QUE+29
ISSD	NVA+5!
IZ	NVA+6!
J	NVA+5!
>> LIST	MON+16, QUE, QUE+3, QUE+4, QUE+6, QUE+12, QUE+13, QUE+15, QUE+17, QUE+19 , QUE+20, QUE+21, QUE+22, QUE+23, QUE+25, QUE+27, QUE+28, RDI+1, RDI+2, FSIG+2 , FPMON+1, FPMON+2, FPMON+3, FPMON+4, CLASSES+7, CLASSES+8, CLASSES+9
LST	NVA+6!, DCOR+4~, DCOR+22*, DCOR+23
LSTFL	NVA+5!
MDRGCNT	MON+2~, QUE, QUE+14, QUE+19, QUE+20, QUE+21, FPMON+2, FPMON+3, FPMON+4
MG	FPMON+1*, FPMON+2, FPMON+3, FPMON+4, FPMON+5!
MIG	INST+1*, INST+3, INST+4!
MONQ	MON+2~, MON+16!, QUE+24!, QUE+27, QUE+28, QUE+31*
MONSEV	MON+2~, QUE+4*, QUE+5
MONTITLE	MON+2~, MON+16!, QUE+6, QUE+7, QUE+8
MSG	NVA+5!, DCOR+2*, DCOR+9, DCOR+24, DCOR+31!
NNN	FSIG+1~, FSTART+1*
NODDERR	NVA+6!
NODTERR	NVA+6!
NVAQ	NVA~
>> ON	NVA, QUE+3, QUE+4, QUE+6, QUE+12, QUE+13, QUE+15, QUE+17, QUE+22, QUE+25 , RDI+1, RDI+2, FSIG+2, FPMON+1
PDRG	NVA+6!
>> PDRGIEN	QUE+13*, QUE+14
PHYS	NVA+5!
PMON	MON+16!, QUE, QUE+12, QUE+19, QUE+20, QUE+21, FPMON+1, FPMON+2, FPMON+3, FPMON+4*
POP	MON+5!, MON+6
PSOCD	NVA+5!
PSOCLC	NVA+5!
PSOCLOZ	NVA+5!
PSODD	VAGEN~, VAGEN+2, VAGEN+3
>> PSODFN	NVA
>> PSODLQT	MON+1, MON+3, MON+15, QUE+9, QUE+12, QUE+23, DCOR+1, DCOR+8, DCOR+17, DCOR+21* , DCOR+22, INST+3, CLASSES+4
>> PSODUPC(	NVA+1, NVA+2, NVA+4, RDI+3, RDI+4, RDI+6, RDI+7, RDI+8
>> PSODUPC("CLASS"	CLASSES+2, CLASSES+3, CLASSES+5, CLASSES+11, CLASSES+13*
>> PSODUPCT	CLASSES+2, CLASSES+3*
>> PSODUPF	NVA+1, NVA+2, NVA+4, RDI+3, RDI+4, RDI+6, RDI+7, RDI+8, CLASSES+1, CLASSES+5 , CLASSES+11, CLASSES+13
PSOIEN	VAGEN+2~, VAGEN+3*, VAGEN+4
PSOLDT	NVA+5!
PSOLR	NVA+5!
PSOMON1	MON+2~, MON+16!
PSOMON1(	QUE+8*, QUE+18
PSOMONQ	MON+15, MON+16!, QUE+27, QUE+28, QUE+29, QUE+30, QUE+31
>> PSONOOR	DCOR+10, DCOR+25
>> PSONULN	MON+3, QUE+19
>> PSONULN1	CLASSES+13
>> PSONV	DCOR+2, DCOR+3
>> PSORX("DFLG"	MON+3, MON+15, DCOR+8, DCOR+17, DCOR+21*
>> PSOVAG	VAGEN+4*, VAGEN+5
PVAGDRG	MON+2~, QUE+14, QUE+15, QUE+21
>> QTHER	RDI+7
QX	MON+16!, QUE+22, QUE+28, FPMON+1
>> QXX	QUE+27*, QUE+28
RDI	MON+16!
REA	NVA+5!
RFLS	NVA+5!
RMRX	MON+16!, QUE+25*
RX0	NVA+5!
RX2	NVA+5!
RXN	NVA+5!
RXREC	NVA+5!, RDI+2*, RDI+3, RDI+4, RDI+7, RDI+8, RDI+9, RDI+10!, INST+1, INST+2
SER	NVA+6!
SERS	NVA+6!
SEV	NVA+6!
SG	FPMON+3, FPMON+5!, INST+3, INST+4!
SIG	NVA+5!
SMONTI	MON+2~, MON+16!, QUE+17*, QUE+18
ST	NVA+5!
>> SV	QUE+3, QUE+4, QUE+6, QUE+12, QUE+13, QUE+15, QUE+17, QUE+22, FPMON+1
THER	NVA+6!, DCOR+8!, DCOR+21!, DCOR+31!
THER(	DCOR+23*, DCOR+24, DCOR+25, DCOR+26, DCOR+28
THER(1	DCOR+6*, DCOR+7, DCOR+9, DCOR+10, DCOR+11, DCOR+13
THERO	NVA+6!, DCOR+4*, DCOR+5, DCOR+8!, DCOR+19, DCOR+20, DCOR+21!, DCOR+31!
TY	INST+1, INST+2, INST+3, INST+4!
VAGDRG	MON+2~, QUE+14, QUE+16, QUE+21
X	NVA+7!, MON+16!, PAUSE1+2~, PAUSE1+7, PAUSE1+8, DCOR+8!, DCOR+13, DCOR+15!, DCOR+18!, DCOR+28 , DCOR+30!, DCOR+31!, CLASSES+6, CLASSES+8, CLASSES+9*, CLASSES+12!
Y	NVA+5!, MON+3, DCOR+8!, DCOR+18!, DCOR+21, DCOR+31!
Y(0	DCOR+22
ZCT	NVA+1, NVA+2, NVA+4, RDI+3, RDI+4, RDI+6, RDI+7, RDI+8, CLASSES+5, CLASSES+7 , CLASSES+8, CLASSES+9, CLASSES+12!
>> ZTDESC	MON+9*
>> ZTQUEUED	MON+13
>> ZTREQ	MON+13*
>> ZTRTN	MON+9*
>> ZTSAVE("CT"	MON+10*
>> ZTSAVE("DRG"	MON+10*
>> ZTSAVE("LIST"	MON+9*
>> ZTSAVE("ON"	MON+10*
>> ZTSAVE("PDRG"	MON+10*
>> ZTSAVE("PSONULN"	MON+9*
>> ZTSAVE("SEV"	MON+9*
>> ZTSAVE("SV"	MON+11*
>> ZTSAVE("^TMP($J,""OUT"",""REMOTE"","	MON+11*
>> ZTSAVE("^TMP($J,LIST,""OUT"",""DRUGDRUG"",SV,DRG,ON,"	MON+10*
ZX	NVA+7!, DCOR+14, DCOR+29, CLASSES+11*, CLASSES+12!
ZZ	NVA+5!
ZZCT	CLASSES+7*, CLASSES+8, CLASSES+9, CLASSES+12!
ZZZCT	CLASSES+7*, CLASSES+12!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODDPR3

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: