Routine: PSIVSUS1

Package	Total	Call Graph
Inpatient Medications	9	ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP1 REPRT^PSIVLBL1 ^PSIVLTR ENS^PSIVMAN ENT^PSIVMAN1 ^PSIVXU ENIV^PSJAC
Kernel	1	^%ZTLOAD

Package

Total

Call Graph

ENIVKV^PSGSETU ENQ^PSIV ^PSIVHLP1 REPRT^PSIVLBL1 ^PSIVLTR ENS^PSIVMAN ENT^PSIVMAN1 ^PSIVXU
ENIV^PSJAC

Package	Total	Caller Graph
Inpatient Medications	2	PSJI SUSMAN PSJI SUSREP

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,I,") Labels printed on: " Line Location: BEG+0
Function Call: WRITE	Prompt: $P(Y,"@")," ",$P(Y,"@",2) Line Location: BEG+0
Function Call: WRITE	Prompt: !!,"* There are no labels to reprint ! *" Line Location: BEG+1
Function Call: WRITE	Prompt: $C(7)," ???" Line Location: ASK+2
Function Call: WRITE	Prompt: " Labels printed on ",$P(Y,"@")," ",$P(Y,"@",2) Line Location: OV+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG, OV
^PS(55 - [#55]	BEG, ASK+1, DQLBL, LA, LA+2, LA+6, LA+11!, LA+13*, DQENT!, DQENT+1 , QENT!, RGY, SETP

Name	Field # of Occurrence
^(	RGY

Name	Field # of Occurrence
>> ACTION	LA+2*
BAT	BEG*, Q!
D	QENT!
DA	QENT!
DFN	DQLBL, LA, LA+2, LA+6, LA+11, LA+13, DQENT+1, QENT!, RGY, SETP
>> HELP	ASK*
I	BEG*, ASK, QENT!
IOF	QENT
ION	OV+1, ENT+2
JJ	QENT!
JJ1	QENT!
ON	DQLBL, LA, LA+2, LA+6, LA+11, LA+13, QENT!, RGY, SETP
P	QENT!
P(	SETP*
P(17	RGY
P(4	LA+2*
>> P16	LA+2*
PSIVCD	DQENT!
>> PSIVCT	LA+2*
PSIVDOSE	Q!, LA+2*
PSIVDT	ASK+1, OV, DQLBL, Q!, LA+2, LA+6, LA+11, LA+13
PSIVGL1	DQENT*, QENT!
PSIVGL2	DQENT*, QENT!
PSIVID	LA+5~, LA+14!
PSIVID(	LA+12
PSIVMT	DQENT!
PSIVNOL	Q!, LA+2*
PSIVOD	DQENT!
PSIVOID	LA+5~, LA+14!
PSIVOID(	LA+10
>> PSIVPL	OV+1
>> PSIVPR	ENT+2, QENT
PSIVRPNT	BEG*, Q!
>> PSIVSN	BEG, ASK+1, DQLBL, LA+2, LA+6, LA+11, LA+13, DQENT, DQENT+1, QENT , RGY
PSIVTTM	QENT!, RGY*
PSIVWMFL	LA+4*, LA+14!
PSIVXU	ENT+1!
PSJID	LA+5~, LA+6*
SDT	DQLBL, Q!, LA+2, LA+6, LA+11, LA+13, QENT!, RGY
TOTAL	QENT!
>> TRACK	LA+2*
VAERR	QENT!
X	ASK, ASK+1, ASK+2, OV, LA+5~, LA+10, LA+11, LA+12, LA+13, QENT! , SETP, QSET+1
XQUIT	PSIVSUS1+5!
XX	LA+5~
Y	BEG, BEG+1, ASK+1, OV, QENT!, SETP
Z	Q!, QENT!
Z1	QENT!
Z2	QENT!
>> ZTDESC	OV+1, ENT+2
ZTDTH	ENT+2!
>> ZTIO	OV+1, ENT+2
>> ZTQUEUED	Q1
>> ZTREQ	Q1*
>> ZTRTN	OV+1, ENT+2
>> ZTSAVE(	QSET+1*
>> ZTSK	QSET+2

Information

Name	Comments	DBIA/ICR reference
Q1
DQLBL
LA
RGY
BEG
QENT
Q
ENT	;Will print man. list for suspense
SETP
DQENT
ASK
OV
QSET	; Set up for queueing.