Routine: PSIVRD

Package	Total	Call Graph
Inpatient Medications	11	(,H2)^PSGON (ENCHS1,ENGETP)^PSIV ^PSIVHLP $$PROMPT^PSIVLBRP ^PSIVLTR EXPIR^PSIVOE GT55^PSIVORFB (ENNH,ENNONUM)^PSIVORV2 ^PSIVPRO ^PSIVSTAT ^PSIVXU
VA Fileman	4	NOW^%DTC IX^DIC ^DIE ^DIR
Registration	2	EN^VALM (FULL,PAUSE)^VALM1
Kernel	1	^%ZIS

Package	Total	Caller Graph
Inpatient Medications	2	PSIV PSJI RETURNS

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point to enter returns/destroyed items.
ORDNO	;
NRD1	;
READ	; Read order no.s, no profile.
WARD1	;
NRD	;Ask number of bottles/bags
Q
EN1	;
PROCESS	;
OV1	;
GTORDRS	;Needs PSIVBR (Branch point)
PROCESS1	;
EN1OLD	;
ASK
OV	;
WARD	;Get the ward to associate returns or destroyed with.
KILL	;

External References

Name	Field # of Occurrence
NOW^%DTC	READ+8, WARD1+8
^%ZIS	GTORDRS+1
IX^DIC	WARD+3
^DIE	WARD1+11
^DIR	PROCESS1+1
^PSGON	ASK+2
H2^PSGON	ASK+1
ENCHS1^PSIV	EN1+1
ENGETP^PSIV	EN+1
^PSIVHLP	ASK+1, NRD1+3
$$PROMPT^PSIVLBRP	WARD1+2
^PSIVLTR	WARD1+13, NRD1+6
EXPIR^PSIVOE	READ+9
GT55^PSIVORFB	OV1+1
ENNH^PSIVORV2	PROCESS+2
ENNONUM^PSIVORV2	OV1+1
^PSIVPRO	GTORDRS+2
^PSIVSTAT	WARD1+13, NRD1+6
^PSIVXU	EN+1
EN^VALM	PROCESS1+4
FULL^VALM1	PROCESS+1
PAUSE^VALM1	PROCESS1+3, WARD+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Enter the order number(s) to be processed: " Formatting: !! Timeout: DTIME Variable: PSIVNU Line Location: ORDNO+1
Function Call: WRITE	Prompt: !!,"Enter order number(s) separated by a comma e.g. 2,4,5,6.",! Line Location: READ+2
Function Call: WRITE	Prompt: $C(7),$C(7),"??",!! Line Location: READ+3
Function Call: WRITE	Prompt: $C(7),$C(7),"??",!! Line Location: READ+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Order ",ON," is invalid.",!! Line Location: READ+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Order number ",+ON," does not exist for this patient.",! Line Location: READ+7
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"No labels have been dispensed for this order." Line Location: PROCESS1+1
Function Call: WRITE	Prompt: !!,"WARNING ",$C(7),$C(7),$C(7),"This order is in a different IV room",!," from the one in which you are entering returned/destroyed!" Line Location: PROCESS1+2
Function Call: WRITE	Prompt: !,"No labels are available" Line Location: WARD+1
Function Call: WRITE	Prompt: $P("^OUTPATIENT",X,2) Line Location: WARD+3
Function Call: WRITE	Prompt: "...Done." Line Location: WARD1+13
Function Call: READ	Prompt: "Number of bottles: " Formatting: ! Timeout: DTIME Variable: X Line Location: NRD1+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: NRD1+4
Function Call: WRITE	Prompt: "...Done." Line Location: NRD1+6
Routine Call	VALM Line Location: PROCESS1+4
Routine Call	DIE Line Location: WARD1+11
Routine Call	DIR Line Location: PROCESS1+1
Routine Call	%ZIS Line Location: GTORDRS+1
Routine Call	DIC Line Location: WARD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WARD+2
^PS(55 - [#55]	READ+7, READ+9*, PROCESS1+1, PROCESS1+2, NRD+3
^TMP("PSIV"	OV+1

Label References

Name	Line Occurrences
ASK	ASK+1, ASK+2
EN1	EN+1
KILL	WARD+3, NRD1+3
NRD1	NRD1+3, NRD1+4
OV	GTORDRS+2
OV1	READ+8, OV+1
PROCESS1	OV1+2
READ	ORDNO+1
WARD	WARD+4
WARD1	WARD+3

Naked Globals

Name	Field # of Occurrence
^(	OV+1
^(2	PROCESS1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	READ+8, WARD1+11
%ZIS	GTORDRS+1!
ACTION	Q!, WARD1+13, NRD1+6
D	Q!, WARD+3*, KILL+3!
DA	WARD1+9!, WARD1+10*, WARD1+12!
DA(1	WARD1+10*
DFN	EN+1, Q!, READ+7, READ+9, OV1+1, PROCESS1+1, PROCESS1+2, WARD+2, WARD1+10, NRD+3
DIC	Q!, WARD+2!, WARD+3*, WARD1+9!, WARD1+12!, KILL+3!
DIC("A"	WARD+3*
DIC("B"	WARD+2*
DIC(0	WARD+3*
DIE	WARD1+9!, WARD1+10*, WARD1+12!
DIR	Q!, PROCESS1+1~
DIR(0	PROCESS1+1*
DONE	READ+1~, READ+5, READ+6, READ+7*, READ+8
DR	WARD1+9!, WARD1+11*, WARD1+12!
DRG	Q!
DRGI	Q!
DRGN	Q!
DTIME	ORDNO+1, ASK, NRD1+3
E	Q!, PROCESS1+2*
E1	Q!, PROCESS1+2*
HELP	Q!, ASK+1, NRD1+3, KILL+3!
I	Q!, READ+4, READ+7
I1	Q!
IOP	GTORDRS+1*!
JJ	Q!, READ+6*
LABELS	Q!, WARD1+13, NRD1+6, KILL+3!
MXMN	Q!, NRD+3*, NRD1+4, KILL+3!
ON	Q!, READ+4, READ+5, READ+6, READ+7, READ+8, READ+9, OV+1, OV1+1*, PROCESS+2 , PROCESS1+1, PROCESS1+2, NRD+3
ON55	Q!, OV1+1*
ONCNT	Q!, READ+8*
P	Q!
P("PON"	OV1+1*
P("PT"	GTORDRS+1
PS	Q!, ASK, ASK+2
PSGDT	Q!
PSGID	Q!
PSGLMT	Q!, ASK+2*
PSGODDD	Q!, OV+1
PSGODDD(	OV+1
PSGP	Q!
PSIVAC	Q!
>> PSIVBR	EN1+1*
PSIVC	Q!, WARD1+11, WARD1+13, NRD1+6, KILL+3!
PSIVCTD	WARD1+1~*
>> PSIVLBTP	PROCESS1+4*
PSIVNOL	Q!, WARD1+4, WARD1+5, WARD1+13, NRD1+6*, KILL+3!
PSIVNOW	Q!, READ+8*, READ+9
PSIVNU	Q+1!, ORDNO+1, READ+1, READ+2, READ+3, READ+4, READ+7, READ+8
PSIVNUM	OV1+1!
PSIVON	Q!
PSIVOV1	Q+1!, OV+1*
PSIVOV2	Q+1!, OV+1*
PSIVPL	Q+1!
PSIVPR	Q+1!
PSIVSITE	Q+1!
PSIVSN	Q+1!, PROCESS1+2
PSIVUP	Q+1!
PSIVX	Q+1!
PSJHT	Q+1!
>> PSJID	WARD1+7*, WARD1+8
>> PSJIDLST	WARD+1
>> PSJIDLST(	WARD1+7
>> PSJIDNO	WARD1+8*, WARD1+10
>> PSJMORE	PROCESS1+4*
>> PSJORD	PROCESS+2*
PSJORIFN	Q+1!
PSJORL	Q+1!
PSJPWT	Q+1!
>> PSJSEL	WARD1+5, WARD1+6
>> PSJSEL1	WARD1+5, WARD1+6, WARD1+7
PSJSYSL	Q+1!
PSJSYSU	Q+1!
PSJSYSW	Q+1!
PSJSYSW0	Q+1!
>> PSJY	WARD1+2*, WARD1+3, WARD1+5, WARD1+6
Q	Q+1!
RDFLAG	Q+1!, PROCESS1+4*, KILL+3!
RDWARD	Q+1!, WARD+3, WARD+4
U	READ+9, PROCESS1+2, NRD+3
UL80	Q+1!
VA	Q+1!
VADM	Q+1!
VAERR	Q+1!
VAIN	Q+1!
>> VALMBCK	KILL+4*
X	Q+1!, READ+9, GTORDRS+2, ASK, ASK+1, ASK+2, WARD+3, NRD1+3*, NRD1+4, NRD1+6 , KILL+3!
XQUIT	EN+1, Q+1!
Y	Q+1!, WARD+4, KILL+3!

Customize PDF page

Package: Inpatient Medications

Routine: PSIVRD

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: