Routine: PSIVPR

Package	Total	Call Graph
Inpatient Medications	13	(ENCV,ENIVKV)^PSGSETU ENGETP^PSIV ENNA^PSIVACT ^PSIVHLP ^PSIVHLP1 ^PSIVHLP2 DATA^PSIVLTR1 ENNH^PSIVORV2 ^PSIVPRO ENLOG^PSIVVW1 ^PSIVXU ENIV^PSJAC ENTRY^PSJHEAD
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	NOW^%DTC YN^DICN ^DIR

Package

Total

Call Graph

(ENCV,ENIVKV)^PSGSETU ENGETP^PSIV ENNA^PSIVACT ^PSIVHLP ^PSIVHLP1 ^PSIVHLP2 DATA^PSIVLTR1 ENNH^PSIVORV2
^PSIVPRO ENLOG^PSIVVW1 ^PSIVXU ENIV^PSJAC ENTRY^PSJHEAD

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

NOW^%DTC YN^DICN ^DIR

Package	Total	Caller Graph
Inpatient Medications	3	PSJI OR PAT PR PSJI OR PR PSJI PROFILE REPORT

Package

Total

Caller Graph

Inpatient Medications

PSJI OR PAT PR PSJI OR PR PSJI PROFILE REPORT

Entry Points

Name	Comments	DBIA/ICR reference
Q
EN	; Entry from option.
PAT	;Get patient
DEQ	;
DEQ1	;
BEG	;Ask for order view.
QUEUE	;Queue logic.
EN1	; Start here if from OE/RR.
ENOR
WD
ENLM	;* S PSIVOEDF=1 D ENCV^PSGSETU,EN1 K PSIVOEDF,J,N2,ORIFN,P17 D READ^PSJUTL
BEG2	;
DISPLAY	;Display the patient's profile.
PAUSE	;
BEG1	;Ask for activity log.

External References

Name	Field # of Occurrence
NOW^%DTC	DEQ+12
^%ZIS	PAT+2
^%ZISC	Q
^%ZTLOAD	QUEUE+3
YN^DICN	BEG+1, BEG1+1, BEG2+1
^DIR	DISPLAY+5, PAUSE+1
ENCV^PSGSETU	ENLM+1
ENIVKV^PSGSETU	Q
ENGETP^PSIV	PAT+1
ENNA^PSIVACT	DEQ+8
^PSIVHLP	BEG+1
^PSIVHLP1	BEG1+1
^PSIVHLP2	BEG2+1
DATA^PSIVLTR1	DEQ1+5
ENNH^PSIVORV2	DEQ1+2
^PSIVPRO	DEQ+8
ENLOG^PSIVVW1	DEQ1+3
^PSIVXU	EN+1
ENIV^PSJAC	DEQ+8
ENTRY^PSJHEAD	DISPLAY+2, DISPLAY+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"View each order in the profile" Line Location: BEG+1
Function Call: WRITE	Prompt: !,"View each activity log in the profile" Line Location: BEG1+1
Function Call: WRITE	Prompt: !,"View the label log in the profile" Line Location: BEG2+1
Function Call: WRITE	Prompt: ! Line Location: PAT+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED" Line Location: PAT+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: DEQ+12
Function Call: WRITE	Prompt: !!,"PATIENT PROFILE REPORT on " Line Location: DEQ+12
Function Call: WRITE	Prompt: @IOF Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,!,^TMP("PSJPRO",$J,1,0),! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,^TMP("PSJPRO",$J,PSIVX,0) Line Location: DISPLAY+7
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: WD+0
Routine Call	DIR Line Location: DISPLAY+5 PAUSE+1
Routine Call	%ZIS Line Location: PAT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	WD
^TMP("PSIV"	PSIVPR+2!, DEQ+3, DEQ+13, Q+2!, Q+4*
^TMP("PSIVSV"	DEQ+3*, Q+4, Q+9!
^TMP("PSJI"	DEQ+6, DEQ+7, Q+2!, Q+7, Q+8
^TMP("PSJISV"	DEQ+6, DEQ+7, Q+7, Q+8, Q+9!
^TMP("PSJPRO"	DEQ+4, DEQ+5, Q+2!, Q+5, Q+6, DISPLAY+3, DISPLAY+4, DISPLAY+6, DISPLAY+7
^TMP("PSJPROSV"	DEQ+4, DEQ+5, Q+5, Q+6, Q+9!

Name	Line Occurrences
@(	PAT+1, DEQ1+2
DEQ	PAT+3
DEQ1	DEQ+13
DISPLAY	DEQ+9
EN1	ENLM+1
PAT	BEG+2
PAUSE	DEQ1+1, DEQ1+3, DEQ1+5
Q	BEG+2, BEG1+2, BEG2+2, QUEUE+3, DEQ+8
WD	DEQ+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BEG+1, BEG+2, BEG1+1, BEG1+2, BEG2+1*, BEG2+2, DEQ+12, Q+1!
%I	Q+1!
%ZIS	PAT+2!*
%ZIS("A"	PAT+2*
A	Q+1!
COU	Q+1!
D	Q+1!
DA	Q+1!
DFN	PAT+1, Q+1!, DEQ1+2, DEQ1+5, DISPLAY+2, DISPLAY+6, ENOR*
DIC	Q+1!
DIR	DISPLAY+5~, PAUSE+1!
DIR(0	DISPLAY+5, PAUSE+1
>> DTOUT	DISPLAY+3, PAUSE+1
>> DUOUT	DISPLAY+3, PAUSE+1
>> HELP	BEG+1, BEG1+1, BEG2+1*
I	Q+1!
IO("Q"	PAT+2!, PAT+3
IOF	DEQ+12, Q, DISPLAY+1, DISPLAY+5
ION	PAT+1, QUEUE+1
IOP	PAT+2!
IOSL	DISPLAY+4
IOST	DEQ+10, DISPLAY+1, DISPLAY+5
J	Q+1!, ENLM+1!
JJ	Q+1!
KEY	Q+1!, DEQ1+2*
L	Q+1!
N	Q+1!
N2	Q+1!, ENLM+1!
NOLOG	BEG+2*, DEQ+12, Q+1!
OG	Q+1!
ON	DEQ+13*, Q+1!, DEQ1+2, DEQ1+5
>> ON1	DEQ+13*
>> ON55	DEQ+13*
ORIFN	ENLM+1!
>> ORVP	ENOR
P	Q+1!
P("PON"	DEQ+13*
P1	Q+1!
P17	Q+1!, ENLM+1!
>> POP	PAT+2
PPAGE	PSIVPR+2~
PRX	DEQ+13*, Q+1!
PRY	Q+1!
PS	Q+1!
>> PSGP(0	DEQ+8*
PSGPTMP	PSIVPR+2~
PSIV	Q+1!
PSIVAC	DEQ1+2~*
PSIVLAB	EN1+1, BEG2+2, Q+1!, DEQ1+5
PSIVLOG	EN1+1, BEG1+2, Q+1!, DEQ1+3
PSIVOEDF	PAT+1, QUEUE+1, ENLM+1*!
PSIVPPR	EN1+1*, Q+1!
PSIVPR	PAT+1, QUEUE+1, Q+1!
PSIVPR1	EN1+1, BEG+3, DEQ+13, Q+1!
PSIVREA	Q+1!
PSIVSCR	DEQ+10*, DEQ+12, Q, Q+1!, DEQ1+1, DEQ1+3, DEQ1+5
PSIVX	DISPLAY+3~*, DISPLAY+4, DISPLAY+7
PSJDNE	DEQ+8!, DEQ+13, Q+1!, DEQ1+1, DEQ1+3, PAUSE+1*
PSJNEW	PSIVPR+2~*
>> PSJOL	EN1+1*
PSJOPC	Q+1!
>> PSJORD	DEQ1+2*
PSQ	Q+1!
>> Q	BEG+1, BEG1+1, BEG2+1*
SUB3	DEQ+2~, DEQ+3, DEQ+5, DEQ+7, Q+3~, Q+4, Q+6, Q+8
SUB4	DEQ+2~, DEQ+3, Q+3~, Q+4
USER	Q+1!
>> VADM(1	DEQ+8
VAERR	Q+1!
>> VAIN	DEQ+8
X	QUEUE+1, QUEUE+2, DEQ+2~, DEQ+4, DEQ+6, DEQ+8, Q+2!, Q+3~, Q+5, Q+7 , DISPLAY+5~
X1	Q+2!
X2	Q+2!
XQUIT	EN+1~
Y	DEQ+12*, Q+1!, Q+2!, DISPLAY+5~, WD
Z	Q+2!
Z1	Q+2!
Z2	Q+2!
>> ZTDESC	QUEUE+1*
>> ZTIO	QUEUE+1*
>> ZTQUEUED	Q
>> ZTREQ	Q*
>> ZTRTN	QUEUE+1*
>> ZTSAVE(	QUEUE+1, QUEUE+2
ZTSK	QUEUE+3, Q+2!
ZZ	Q+2!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVPR

Information

Source Information