Routine: PSIVSUS

Package	Total	Call Graph
Inpatient Medications	10	ENIVKV^PSGSETU ^PSIVHLP ^PSIVHLP1 ^PSIVHYPL ^PSIVLABL ^PSIVLTR C^PSIVORE2 ENP3^PSIVRNL ^PSIVXU ENIV^PSJAC
VA Fileman	4	^%DT NOW^%DTC YN^DICN ^DIR
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

Inpatient Medications

ENIVKV^PSGSETU ^PSIVHLP ^PSIVHLP1 ^PSIVHYPL ^PSIVLABL ^PSIVLTR C^PSIVORE2 ENP3^PSIVRNL
^PSIVXU ENIV^PSJAC

VA Fileman

^%DT NOW^%DTC YN^DICN ^DIR

Kernel

^%ZTLOAD

Package	Total	Caller Graph
Inpatient Medications	2	PSJI SUSLBLS PSJI SUSLIST

Package

Total

Caller Graph

Inpatient Medications

PSJI SUSLBLS PSJI SUSLIST

Entry Points

External References

Name	Field # of Occurrence
^%DT	ENT+2
NOW^%DTC	CHK+1, S1+2, DEQSUS, HDR1, EXPIR+1
^%ZTLOAD	ENT+3, EN3+4
YN^DICN	EN3+2
^DIR	HDR+1
ENIVKV^PSGSETU	Q1, EN3+5
^PSIVHLP	S1+1
^PSIVHLP1	EN3+2
^PSIVHYPL	E2+2
^PSIVLABL	E2+2
^PSIVLTR	S1+3, E2+2
C^PSIVORE2	ALSUS+1
ENP3^PSIVRNL	PRNT+2
^PSIVXU	ENT+1, EN3+1
ENIV^PSJAC	DEQSUS+1, DEQEN3+1, PRNT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are already ",SNM," ",$S(SNM>1:"LABELS",1:"LABEL")," suspended for this order." Line Location: ALSUS+1
Function Call: READ	Prompt: "Number of labels to suspend: " Formatting: !! Timeout: DTIME Variable: X Line Location: S1+1
Function Call: WRITE	Prompt: $C(7),!," ... NO labels suspended! Wait 15 seconds and try again." Line Location: S1+2
Function Call: WRITE	Prompt: " ..... ",+X," Label"_$S(+X>1:"s",1:"")_" suspended !" Line Location: S1+3
Function Call: READ	Prompt: !! Timeout: %=-1 Variable: "Send report to a printer" S %=2 D YN^DICN Q Line Location: EN3+2
Function Call: WRITE	Prompt: !,VADM(1)," (",$S(VAIN(4):$P(VAIN(4),U,2),1:"Outpatient IV"),")",$J(+NODE_" label"_$S(+NODE>1:"s",1:"")_" "_$P(NODE,U,2),IOM-1-$X) Line Location: PRNT+1
Function Call: WRITE	Prompt: !,VA("BID")," [",ON,"]" Line Location: PRNT+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR1+0
Function Call: WRITE	Prompt: !!,"Suspense list for: " Line Location: HDR1+0
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2),!,"Patient name",?30,"Order",?IOM-11,"Suspended",! Line Location: HDR1+0
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2),!,"Patient name",?30,"Order",?IOM-11,"Suspended",! Line Location: HDR1+0
Routine Call	DIR Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRNT, HDR1
^PS(55 - [#55]	CHK+1, ALSUS+1, S1+2, S1+3, DEQSUS!, DEQSUS+1, Q, E2, E2+2, E3! , E3+2*, DEQEN3+1, DEQEN3+2, PRNT, SETP, EXPIR+2!

Name	Line Occurrences
DEQEN3	EN3+3
E2	DEQSUS+1
E3	E2
EN3	EN3+2
EXPIR	ENT+2, EN3+2
HDR	PRNT
HDR1	DEQEN3
PRNT	DEQEN3+2
Q	DEQSUS
Q1	QEN3
S1	S1+1, S1+2
SETP	DEQEN3+2

Name	Field # of Occurrence
^(	E2+2
^(0	S1+3*, SETP, EXPIR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHK+1, S1+2, DEQSUS, EN3+2*, EN3+3, HDR1, EXPIR+2
>> %DT	ENT+2*
>> ACTION	S1+3, E2+2
D	QEN3!
DAT	ALSUS+1!
DFN	CHK+1, ALSUS+1, S1+2, S1+3, DEQSUS+1, E2, E2+2, E3, E3+2, DEQEN3+1 , DEQEN3+2, QEN3!, PRNT, SETP
DIR	HDR+1!
DIR(0	HDR+1*
DONE	DEQEN3!, DEQEN3+1, DEQEN3+2, QEN3!, PRNT, HDR+1*
DTIME	S1+1
>> DTOUT	HDR+1
>> DUOUT	HDR+1
>> HELP	S1+1, EN3+2
I	DEQSUS*, Q!, QEN3!
IOF	QEN3, HDR1
IOM	PRNT+1, HDR1
ION	ENT+3, EN3+2, EN3+3
IOSL	PRNT
IOST	HDR+1
JJ	CHK+1!*, ALSUS+1, Q!
NODE	Q!, QEN3!, PRNT*, PRNT+1
ON	CHK+1, ALSUS+1, S1+2, S1+3, DEQSUS+1, Q!, E2, E2+2, E3, E3+2 , EN3+5!, DEQEN3+1, DEQEN3+2, QEN3!, PRNT, PRNT+2, SETP, EXPIR+2*
P	QEN3!
P(	SETP*
P(17	DEQEN3+2
P(4	E2+2*
P16	Q!, E2+2*
PSCT	Q!
PSIV	QEN3!, PRNT+2*
PSIVDEL	ENT+2*, DEQSUS, Q!
PSIVDOSE	Q!, E2+2*
PSIVDT	Q!, DEQEN3+2*, QEN3!, PRNT
PSIVFND	DEQEN3!, QEN3!, PRNT*
PSIVID	E3+1, E3+3!
PSIVID(	E3+1
>> PSIVNOL	S1+3, E2+2
PSIVNOW	CHK+1, S1+2, S1+3, S1+4!
PSIVNW	DEQSUS*, Q!, E3, E3+2
>> PSIVPL	ENT+3
>> PSIVPR	EN3+2, EN3+3, EN3+4, QEN3
>> PSIVSN	ALSUS+1, S1+2, S1+3, DEQSUS, DEQSUS+1, Q, E2+2, E3, E3+2, DEQEN3+1 , DEQEN3+2, PRNT, EXPIR+2
PSIVTTM	Q!
PSIVWMFL	E2+1*, E3+3!
SDT	DEQSUS+1*, E2+2, E3, E3+2, QEN3!
SNM	ALSUS+1!
>> SSNF	PRNT+2*
TOTAL	Q!
>> TRACK	S1+3, E2+2
U	CHK+1, S1+3, E2, E2+2, PRNT+1, SETP, EXPIR+2
>> VA("BID"	PRNT+2
>> VADM(1	PRNT+1
VAERR	QEN3!
>> VAIN(4	PRNT+1
X	S1+1!, S1+3, ENT+2, DEQSUS, E3+1~, E3+2, HDR1, SETP, EXPIR+2*
XQUIT	ENT+1!, EN3+1!
>> Y	ENT+2, DEQSUS, PRNT, HDR1, SETP, EXPIR+2*
Z	QEN3!
>> ZTDESC	ENT+3, EN3+4
>> ZTIO	ENT+3, EN3+4
>> ZTQUEUED	Q1
>> ZTREQ	Q1*
>> ZTRTN	ENT+3, EN3+4
>> ZTSAVE("PSIVDEL"	ENT+3*
>> ZTSAVE("PSIVSITE"	ENT+3, EN3+4
>> ZTSAVE("PSIVSN"	ENT+3, EN3+4
>> ZTSAVE("PSJSYSP0"	ENT+3, EN3+4
>> ZTSAVE("PSJSYSU"	ENT+3, EN3+4
>> ZTSAVE("PSJSYSW0"	ENT+3, EN3+4
>> ZTSK	ENT+3

Customize PDF page

Package: Inpatient Medications

Routine: PSIVSUS

Information

Source Information

Call Graph

Call Graph Total: 15

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
Q1
DEQSUS
HDR	;
HDR1
DEQEN3
S1	;Suspend labels.
CHK	;Entry for individual label suspense, check if labels may be suspended.
Q
PRNT
EN3	;Will print a report of those labels on suspense
ENT	;Print labels from suspense
QEN3
EXPIR	;
SETP
ALSUS	;See if labels are already suspended.
E3
E2