Routine: PSIVRNL

Package	Total	Call Graph
Inpatient Medications	5	$$ENLU^PSGMI ENQ^PSIV ^PSIVHLP ^PSIVXU ENIV^PSJAC
VA Fileman	4	^%DT NOW^%DTC ^DIC ^DIR
Kernel	1	^%ZTLOAD
Registration	1	INP^VADPT

Package	Total	Caller Graph
Inpatient Medications	5	PSIVLBDL PSIVSUS PSIVWL1 PSJI ACTIVE PSJI RNL

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEGRNL, ENDRNL
NOW^%DTC	DEQRNL, ENTACT
^%ZTLOAD	QUERNL+1
^DIC	BEG+5, END+5
^DIR	BEG+2, END+2, WRD+1
$$ENLU^PSGMI	BEG+4, END+4
ENQ^PSIV	BEGRNL, ENDRNL
^PSIVHLP	BEGRNL, ENDRNL
^PSIVXU	ENRNL+1
ENIV^PSJAC	PRNT
INP^VADPT	DEQRNL1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"* Please enter time with date. *",! Line Location: BEGRNL+1
Function Call: WRITE	Prompt: $C(7),!!,"* Please enter time with date. *",! Line Location: ENDRNL+1
Function Call: WRITE	Prompt: $P("^OUTPATIENT IV",X,2) Line Location: BEG+4
Function Call: WRITE	Prompt: $P("^OUTPATIENT IV",X,2) Line Location: END+4
Function Call: WRITE	Prompt: ! Line Location: WRD+1
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: WD+0
Function Call: WRITE	Prompt: !,VAIN(5),?30 Line Location: PRNT+0
Function Call: WRITE	Prompt: ?80 Line Location: PRNT+0
Function Call: WRITE	Prompt: ?80 Line Location: PRNT+0
Function Call: WRITE	Prompt: !,VADM(1) Line Location: ENP1+0
Function Call: WRITE	Prompt: ! Line Location: ENP3+0
Function Call: WRITE	Prompt: ! Line Location: ENP3+1
Function Call: WRITE	Prompt: ?30,$S($D(^PS(52.7,$P(PSIV,"^",2),0)):$P(^(0),"^")_" "_$P(PSIV,"^",3)_" "_$P(^(0),"^",4),1:"*** Undefined Solution"),! Line Location: ENP3+4
Function Call: WRITE	Prompt: ?30,"* THIS ORDER HAS A STATUS OF '",X,"' *",! Line Location: ENP3+10
Function Call: WRITE	Prompt: ?30,$S($D(^PS(52.6,$P(PSIV,"^",2),0)):$P(^(0),"^")_" "_$P(PSIV,"^",3),1:"*** Undefined Additive") Line Location: ENP2+0
Function Call: WRITE	Prompt: " (",$P(PSIV,"^",4),")" Line Location: ENP2+0
Function Call: WRITE	Prompt: @IOF,!! Condition for execution: $Y Line Location: HDR+0
Function Call: WRITE	Prompt: "Active order list" Line Location: HDR+0
Function Call: WRITE	Prompt: "Renewal list from " Line Location: HDR+1
Function Call: WRITE	Prompt: " to " Line Location: HDR+1
Function Call: WRITE	Prompt: !,"Printed on: " Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"Patient name",?40,"Order",?80,"Stop date",?105,"Provider",! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"Patient name",?40,"Order",?80,"Stop date",?105,"Provider",! Line Location: HDR+2
Function Call: WRITE	Prompt: !?50,"** Ward: ",WRD," **" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: VA("BID")," [",ON,"]" Line Location: CHK2+0
Routine Call	DIC Line Location: BEG+5 END+5
Routine Call	DIR Line Location: BEG+2 END+2 WRD+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WD
^DD(55.01	ENP3+10
^DPT - [#2]	DEQRNL1+1
^PS(52.6 - [#52.6]	ENP2
^PS(52.7 - [#52.7]	ENP3+4
^PS(55 - [#55]	DEQRNL+1, SETP, DEQRNL1+1, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+7, ENP2, CHK
^UTILITY("PSIV"	DEQRNL!, DEQRNL+2, QRNL!, UT*
^VA(200 - [#200]	PRNT

Label References

Name	Line Occurrences
BEG	BEG+5, WRD+1
BEGRNL	ENRNL+2, BEGRNL, BEGRNL+1
CHK	DEQRNL+2
CHK2	ENP3, ENP3+1, ENP3+4, ENP3+5, ENP3+6, ENP3+7, ENP3+9, ENP3+11
DEQRNL1	DEQRNL+1
EN1	ENTACT
END	BEG+3, BEG+4, END+5
ENDRNL	ENDRNL, ENDRNL+1
ENP2	PRNT, ENP3, ENP3+1
HDR	PRNT
PRNT	CHK
QRNL	BEGRNL, ENDRNL, BEG+3, END+3, WRD+2, QUERNL+1
QUERNL	WRD+2
SETP	DEQRNL+2, DEQRNL1+1
UT	DEQRNL1+1
WD	PRNT, HDR+1, HDR+2
WRD	END+3, END+4

Naked Globals

Name	Field # of Occurrence
^(	ENP3+4
^($J	DEQRNL*
^(0	ENP3+4, ENP2
^(1	ENP3+9
^(2	CHK
^(3	ENP3+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEQRNL, ENTACT
>> %DT	BEGRNL*
DA	BEG+5!, END+5!
DFN	ENRNL+2!, DEQRNL+1, DEQRNL+2, SETP, DEQRNL1+1, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+7 , ENP2, UT, CHK
DIC	BEG+5!, END+5!
DIC(0	BEG+5, END+5
DIR	BEG!, END!, WRD+1!
DIR("?"	BEG+1, END+1
DIR("A"	BEG, END, WRD+1*
DIR("B"	BEG, END
DIR(0	BEG, END, WRD+1*
>> DTOUT	BEG+3, END+3
>> HELP	BEGRNL, ENDRNL
I	ENRNL+2!
IOF	QRNL, HDR
ION	WRD+2
IOSL	PRNT
ON	ENRNL+2!, DEQRNL+2, SETP, DEQRNL1+1, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+7, ENP2 , UT, CHK, CHK2
P	ENRNL+2!
P(	SETP*
P(11	ENP3+6
P(17	ENP3+10, CHK
P(3	PRNT
P(6	PRNT
P(8	ENP3+5
P(9	ENP3+6
PSIV	ENRNL+2!, PRNT, ENP3, ENP3+1, ENP3+2, ENP3+4, ENP3+7, ENP3+9, ENP2, ENP2+1*
PSIV("NME"	DEQRNL1+1*
PSIV1	ENRNL+2!, DEQRNL+2*
PSIVBEG	ENRNL+2!, BEGRNL+1, DEQRNL, DEQRNL+1, HDR+1, ENTACT*
PSIVDT	ENRNL+2!, DEQRNL+1*, DEQRNL1+1
PSIVEND	ENRNL+2!, EN1*, DEQRNL, DEQRNL+1, HDR, HDR+1, QUERNL, CHK
>> PSIVPR	WRD+2, QRNL, QUERNL
PSIVRUN	ENRNL+2!, DEQRNL*, HDR+2
>> PSIVSN	CHK
SSNF	ENP1+1, ENP3+11!, CHK2
U	DEQRNL1+1, UT, CHK
>> VA("BID"	CHK2
>> VADM(1	ENP1
VAERR	ENRNL+2!
>> VAIN(4	UT
>> VAIN(5	PRNT
WARD	ENRNL+2!, DEQRNL, PRNT, HDR+3
WRD	ENRNL+2!, EN1!, DEQRNL+2*, PRNT, HDR+3
WRDB	ENRNL+2!, BEG+3, BEG+4, BEG+6, WRD, WRD+1, DEQRNL+2
WRDE	ENRNL+2!, END+3, END+4, END+6, WRD, WRD+1, DEQRNL, DEQRNL+2
X	BEGRNL, ENDRNL, BEG+3, BEG+4, BEG+5, END+3, END+4, END+5, WRD!, WRD+1! , SETP, ENP3+10, QUERNL*
X(	WRD*, WRD+1
XQUIT	ENRNL+1!
>> Y	BEGRNL, BEGRNL+1, ENDRNL, ENDRNL+1, EN1, BEG+5, BEG+6, END+5, END+6, WD , SETP, PRNT, ENP3+10, HDR+1, HDR+2, ENTACT
Z	ENRNL+2!
>> ZTDESC	QUERNL*
>> ZTIO	QUERNL*
>> ZTQUEUED	QRNL
>> ZTREQ	QRNL*
>> ZTRTN	QUERNL*
>> ZTSAVE(	QUERNL*
>> ZTSK	QUERNL+1

Customize PDF page

Package: Inpatient Medications

Routine: PSIVRNL

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
WD
HDR
ENP1
BEG
ENP3
QRNL
ENDRNL
DEQRNL1	;
PRNT
EN1
DEQRNL
BEGRNL
SETP
WRD
QUERNL
END
CHK
ENP2
UT
CHK2
ENRNL	;
ENTACT