Routine: PSIVRP

Package	Total	Call Graph
Inpatient Medications	7	GT55^PSIVORFB (ENPL,HDL)^PSIVPRO (DEQ,GTMES,QUIT)^PSIVRP1 P0^PSIVWL1 ^PSIVXU ENIV^PSJAC HDR^PSJLMHED
VA Fileman	2	^DIC ^DIR
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

Inpatient Medications

GT55^PSIVORFB (ENPL,HDL)^PSIVPRO (DEQ,GTMES,QUIT)^PSIVRP1 P0^PSIVWL1 ^PSIVXU ENIV^PSJAC HDR^PSJLMHED

VA Fileman

^DIC ^DIR

Kernel

^%ZTLOAD

Package	Total	Caller Graph
Inpatient Medications	1	PSJI LBLR

Package

Total

Caller Graph

Inpatient Medications

PSJI LBLR

Name	Comments	DBIA/ICR reference
SELMAN	;
GTORDR	;
SKIP	;
PRO	;
GTRANGE	;
BU	;
QUE	;
SETP	;
ORDER	;
FNDLBLS	;
ORDER1	;

External References

Name	Field # of Occurrence
^%ZTLOAD	QUE+2
^DIC	GTRANGE+3
^DIR	PSIVRP+9, PSIVRP+10
GT55^PSIVORFB	PRO+4
ENPL^PSIVPRO	PRO+4
HDL^PSIVPRO	PRO+4
DEQ^PSIVRP1	SKIP+1
GTMES^PSIVRP1	PSIVRP+9
QUIT^PSIVRP1	PSIVRP+8, PSIVRP+9, PSIVRP+10, SELMAN+2, FNDLBLS+1, FNDLBLS+2, SKIP+1, QUE+2, ORDER1+3
P0^PSIVWL1	SELMAN+2
^PSIVXU	PSIVRP+8
ENIV^PSJAC	GTRANGE+3
HDR^PSJLMHED	PRO+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"THIS OPTION MAY BE USED ONLY AFTER THE WARD LIST HAS BEEN RUN",!! Line Location: PSIVRP+8
Function Call: WRITE	Prompt: $C(7),!!,"The Ward list & Scheduled Labels options MUST be run for the chosen date",!,"before you may use this option!!",!! Line Location: PSIVRP+10
Function Call: WRITE	Prompt: $C(7),!!,"NEXT LABEL MUST FOLLOW LAST LABEL",!! Line Location: FNDLBLS+4
Function Call: WRITE	Prompt: $C(7),!!,VADM(1)," has no IV orders on the Ward List for the date &",!,"manufacturing times chosen",! Line Location: GTRANGE+2
Function Call: WRITE	Prompt: $C(7),!!,VADM(1)," has no IV orders on the Ward List for the date &",!,"manufacturing times chosen",! Line Location: GTRANGE+3
Function Call: WRITE	Prompt: !!,$E(P,1,44),$S(ON:" or RETURN to continue: ",1:": ") Line Location: ORDER+1
Function Call: WRITE	Prompt: " or ""^"" to exit",!! Line Location: ORDER+4
Function Call: WRITE	Prompt: !,^(XX,0) Line Location: PRO+5
Routine Call	DIC Line Location: GTRANGE+3
Routine Call	DIR Line Location: PSIVRP+9 PSIVRP+10

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	ORDER1+1
^PS("52."	BU+2
^PS(55 - [#55]	PSIVRP+8, ORDER1+1, ORDER1+2, BU+1, BU+2, GTORDR+1, SETP+1
^PS(59.5 - [#59.5]	SELMAN+1
^TMP("PSJPRO"	PRO+5, PRO+7!

Name	Line Occurrences
BU	ORDER1+3
FNDLBLS	FNDLBLS+4
GTORDR	GTRANGE+3
GTRANGE	FNDLBLS+1, FNDLBLS+2, GTRANGE+3, ORDER+2, ORDER+4
ORDER	ORDER+2, ORDER+3, ORDER+4
ORDER1	ORDER+2
PRO	ORDER+2, ORDER+3
SKIP	FNDLBLS+3

Name	Field # of Occurrence
^(	SELMAN+1, PRO+5
^(0	ORDER1+1, BU+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D1	BU+1*, BU+2
>> DFN	FNDLBLS+2, GTRANGE+1, GTRANGE+3, ORDER1+1, BU+1, BU+2, GTORDR+1, PRO+2, SETP+1
DIC	FNDLBLS+1!*, FNDLBLS+2!
DIC("A"	FNDLBLS+1, FNDLBLS+2
DIC(0	FNDLBLS+1*
DIR	PSIVRP+9!, PSIVRP+10!
DIR("??"	PSIVRP+9*
DIR("A"	PSIVRP+9*
DIR("B"	PSIVRP+9*
DIR(0	PSIVRP+9, PSIVRP+10
DTIME	ORDER+1
>> FILE	ORDER1+3*, BU+1, BU+2
>> I	SELMAN+1*
ION	SKIP+1
>> J	SELMAN+2, FNDLBLS+1, FNDLBLS+2*, ORDER+1
>> LAST(	FNDLBLS+1*, FNDLBLS+3, FNDLBLS+4
>> LAST("LIST"	FNDLBLS+2
>> LIST	FNDLBLS+1, FNDLBLS+2, GTRANGE+1, ORDER1+2*, ORDER1+3
NEXT	GTRANGE+1!
NEXT(	FNDLBLS+2*, FNDLBLS+3, FNDLBLS+4
NEXT("DFN"	FNDLBLS+3
>> NF	BU+2*
>> ON	GTRANGE+1, GTRANGE+3, ORDER+1, ORDER+2, ORDER1+1, BU+1, BU+2, GTORDR+1, PRO+4, PRO+6 , SETP+1
>> ON55	PRO+4*
>> P	ORDER+1*, ORDER+4
>> P(	SETP+1*
PG	PRO+3~*
>> PRO	GTRANGE+3, ORDER+1, ORDER+3, ORDER+4, PRO+3, PRO+6*
PS	PSIVRP+9!, PSIVRP+10, FNDLBLS+1!, GTRANGE+3, GTORDR+1!
PS(	SELMAN+1*, SELMAN+2
PS("A"	ORDER+2, GTORDR+1*, PRO+4
>> PSCT	SELMAN+1*
>> PSIVDRG	BU+2*
>> PSIVDT	SELMAN+1, GTRANGE+1, ORDER1+1, ORDER1+2, GTORDR+1
>> PSIVDTS	SELMAN+1*
>> PSIVPL	SKIP+1, QUE+1
>> PSIVSN	PSIVRP+8, SELMAN+1, ORDER1+2, GTORDR+1
>> PSIVST	PRO+3*
>> PSIVT	GTRANGE+1, ORDER1+1, ORDER1+3
>> PSIVX1	PRO+4*
PSIVX2	PRO+3~*
>> PSJLN	PRO+3*
PSM	SELMAN+1!
PSM(	SELMAN+1*
PSR	SELMAN+2!
PSR(	SELMAN+2*, ORDER1+1, GTORDR+1
>> STR	FNDLBLS+1, FNDLBLS+2, FNDLBLS+3, FNDLBLS+4, ORDER1+3*
>> VADM(1	GTRANGE+3, ORDER+4
>> WRD	GTRANGE+1, ORDER1+1, GTORDR+1*
>> X	SELMAN+2, FNDLBLS+1, FNDLBLS+2, FNDLBLS+3, FNDLBLS+4, QUE+1, ORDER+1, ORDER+2, ORDER+3, ORDER+4 , ORDER1+1, ORDER1+3, BU+2, GTORDR+1, SETP+1
>> X1	GTRANGE+1, ORDER1+3, PRO+4*
>> X2	GTRANGE+1, ORDER1+3
>> XQUIT	PSIVRP+8
>> XT	ORDER1+3*
XX	PRO+5~*
>> Y	PSIVRP+9, SELMAN+1, SELMAN+2, FNDLBLS+1, GTRANGE+3, ORDER1+1, SETP+1*
>> ZTDESC	QUE+1*
ZTDTH	QUE+1!
>> ZTIO	QUE+1*
>> ZTRTN	QUE+1*
ZTSAVE	QUE+1!
ZTSAVE(	QUE+1*
>> ZTSK	QUE+2

Customize PDF page

Package: Inpatient Medications

Routine: PSIVRP

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: