Routine: PSIVLBL1

Package	Total	Call Graph
Inpatient Medications	12	TXT^PSGMUTL ^PSIVHLP ^PSIVHLP1 ^PSIVHYPL ^PSIVLABL REPRT^PSIVLBRP ^PSIVLTR ENNH^PSIVORV2 $$CODES^PSIVUTL ^PSIVWL1 ENIV^PSJAC $$ONE^PSJBCMA
VA Fileman	3	^%DT YN^DICN ^DIR
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Registration	2	EN^VALM (FULL,PAUSE)^VALM1

Package

Total

Call Graph

TXT^PSGMUTL ^PSIVHLP ^PSIVHLP1 ^PSIVHYPL ^PSIVLABL REPRT^PSIVLBRP ^PSIVLTR ENNH^PSIVORV2
$$CODES^PSIVUTL ^PSIVWL1 ENIV^PSJAC $$ONE^PSJBCMA

VA Fileman

^%DT YN^DICN ^DIR

Kernel

(,HOME)^%ZIS ^%ZTLOAD

Registration

EN^VALM (FULL,PAUSE)^VALM1

Package	Total	Caller Graph
Inpatient Medications	4	PSIVMAN1 PSIVRP1 PSIVSUS1 PSJI LBLS

Package

Total

Caller Graph

Inpatient Medications

PSIVMAN1 PSIVRP1 PSIVSUS1 PSJI LBLS

Entry Points

Name	Comments	DBIA/ICR reference
QUIT
MEOWRPT	;Reprint from man/ward list
LBLBEG
LBLM1	;
MEOW	; Print labels
DEQ	;
REPRT	; Reprint labels using existing bcma ID
Q	;K %,IONOFF,ON,ORNS,ORPV,ORSTOP,ORSTRT,ORSTS,ORVP,P,PSIVC,PSIVREA,J,N,N2,ORIFN,P17,SCHED,PSIVDOSE,PSIVNOL,PSIVNOW,VAERR
ENLBLI	;Print individual labels.
DESC(X)	;Expand the IV type.
A1	;
START
LBLM	;
QUE
DEQIA	;
LBLW	; loop through ward lists
ASK
USAGE	;

External References

Name	Field # of Occurrence
^%DT	START, START+2
^%ZIS	USAGE+3
HOME^%ZIS	USAGE+3, USAGE+4
^%ZTLOAD	QUE+3, USAGE+6
YN^DICN	A1+1, USAGE+1
^DIR	ENLBLI+3
TXT^PSGMUTL	DESC+3
^PSIVHLP	START+2
^PSIVHLP1	LBLBEG, USAGE+1
^PSIVHYPL	MEOW+11, DEQIA+4
^PSIVLABL	MEOW+11, DEQIA+4
REPRT^PSIVLBRP	REPRT+6
^PSIVLTR	MEOW+11, DEQIA+2
ENNH^PSIVORV2	ENLBLI+2
$$CODES^PSIVUTL	DESC+1
^PSIVWL1	ASK
ENIV^PSJAC	LBLM1+3, LBLW+4
$$ONE^PSJBCMA	MEOW+4
EN^VALM	A1+3
FULL^VALM1	ENLBLI+1
PAUSE^VALM1	A1+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+0
Function Call: WRITE	Prompt: !!,"Schedule labels for DATE: TODAY//" Line Location: START+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: DEQ+1
Function Call: WRITE	Prompt: !!,"**** WARNING --- LABELS NOT",!," RUN, WARD LIST IN PROGRESS" Line Location: DEQ+1
Function Call: WRITE	Prompt: !!,"* NOTE *" Line Location: DEQ+4
Function Call: WRITE	Prompt: !!,"Schedule labels had already printed for the selected manufacturing time." Line Location: DEQ+5
Function Call: WRITE	Prompt: !,"Please use the Reprint Scheduled Labels option instead.",! Line Location: DEQ+6
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"You may not print labels for a pending order." Line Location: ENLBLI+3
Function Call: WRITE	Prompt: ! Line Location: ENLBLI+3
Function Call: WRITE	Prompt: !,$C(7),$C(7),"WARNING, this order is not active.",!,"Continue" Line Location: A1+1
Function Call: READ	Prompt: "Number of labels to print: " Formatting: !! Timeout: DTIME Variable: X Line Location: LBLBEG+0
Function Call: WRITE	Prompt: !,"Count as daily usage" Line Location: USAGE+1
Function Call: WRITE	Prompt: !!! Line Location: USAGE+3
Function Call: WRITE	Prompt: ! Line Location: USAGE+5
Function Call: WRITE	Prompt: $G(MARX(XX-2)) Condition for execution: XX>2 Line Location: DESC+4
Function Call: WRITE	Prompt: ! Line Location: DESC+4
Routine Call	VALM Line Location: A1+3
Routine Call	%ZIS Line Location: USAGE+3 USAGE+4
Routine Call	DIR Line Location: ENLBLI+3
Routine Call	%ZIS Line Location: USAGE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(55 - [#55]	DEQ+1, DEQ+2, QUIT, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLW+2, LBLW+3, LBLW+4 , MEOWRPT+1, MEOWRPT+4, MEOWRPT+9!, MEOWRPT+11, REPRT+2, REPRT+5, MEOW+1, MEOW+4, MEOW+5, MEOW+7 , MEOW+8, MEOW+11, MEOW+13, A1+1, USAGE+2, DEQIA+1

Label References

Name	Line Occurrences
@(	DEQ+2
A1	A1+1
DEQIA	USAGE+3
DESC	LBLM+1, LBLM1+6, LBLW+5
LBLBEG	LBLBEG
LBLM1	LBLM+2
MEOW	LBLM1+4, LBLW+4, MEOWRPT+1
Q	ENLBLI+3, A1+1, A1+3, USAGE+1, USAGE+3
QUE	ASK+1
QUIT	ASK, ASK+1, DEQ+1
REPRT	MEOWRPT+4
START	START+1, START+2
USAGE	USAGE+1

Name	Field # of Occurrence
^(	LBLM1+4, MEOW+1*, MEOW+5
^(0	USAGE+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUIT!, A1+1, USAGE+1, Q+1!
%DT	START*, QUIT!
%T	QUIT!
>> %ZIS	USAGE+3*
A	MEOW+3~, MEOW+5*
>> ACTION	MEOW+11, DEQIA+2
D	QUIT!
DESC	DESC+1~
DFN	QUIT!, LBLM1+3, LBLW+4, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, REPRT+2, REPRT+5, REPRT+6 , MEOW+1, MEOW+4, MEOW+5, MEOW+7, MEOW+8, MEOW+11, MEOW+13, A1+1, USAGE+2, DEQIA+1
DFNX	LBLM1+1~, LBLM1+2, LBLM1+3, LBLW+1~, LBLW+3, LBLW+4
DIR	ENLBLI+3!
DIR(0	ENLBLI+3*
DTIME	START, LBLBEG
>> HELP	START+2, LBLBEG, USAGE+1*
I	QUIT!, QUE+1*
IO	USAGE+3
IO(0	USAGE+3
IOF	DEQ+1
ION	ASK+1
IONOFF	MEOW+11, USAGE+3, Q+1!
>> IOP	USAGE+3*
IOST	USAGE+3
J	Q+1!
JJ	QUIT!
JX	LBLM+3!
MARX	DESC+3~
MARX(	DESC+4
N	Q+1!
N2	Q+1!
NOFLG	QUIT!, LBLM1+1, LBLM1+6, LBLW+2, LBLW+5, MEOW+9, MEOW+14
OIX1	QUIT!, LBLM+1~, LBLM+2*, LBLM1+2, LBLM1+3, LBLM1+4
OIX2	QUIT!, LBLM+1~, LBLM+2*, LBLM1+2, LBLM1+3, LBLM1+4
ON	QUIT!, LBLM1+4, LBLW+4, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, REPRT+5, MEOW+1, MEOW+4 , MEOW+5, MEOW+7, MEOW+8, MEOW+11, MEOW+13, ENLBLI+2, ENLBLI+3, A1+1, USAGE+2, DEQIA+1
ONX	LBLM1+1~, LBLM1+3, LBLM1+4, LBLW+1~, LBLW+4
ORIFN	Q+1!
ORNS	Q+1!
ORPV	Q+1!
ORSTOP	Q+1!
ORSTRT	Q+1!
ORSTS	Q+1!
ORVP	Q+1!
P	QUIT!
P(4	REPRT+5, MEOW+11, DEQIA+1*, DEQIA+4
>> P16	MEOW+1, USAGE+2
P17	Q+1!
>> POP	USAGE+3
PSCT	QUIT!
PSIV	QUIT!
PSIVC	Q+1!
PSIVCD	ASK, QUIT!
PSIVCT	REPRT+5, MEOW+1!, MEOW+2!, MEOW+15!, LBLBEG*, USAGE+1!, USAGE+2, USAGE+6
>> PSIVCTD	REPRT+5*
PSIVDOSE	QUIT!, MEOW+1*, MEOW+2!, MEOW+15!, Q+1!, DEQIA+1!
PSIVDT	ASK*, QUIT!
PSIVID	MEOWRPT+3~, MEOWRPT+12!, MEOW+2!, MEOW+12, MEOW+15!
PSIVID(	MEOWRPT+10, MEOW+12
>> PSIVLBL1	DEQ+2*
>> PSIVLBTP	A1+3*
PSIVMT	QUIT!
PSIVMT(	QUE+1
PSIVNOL	QUIT!, REPRT+5, MEOW+1, MEOW+2, LBLBEG*, Q+1!
PSIVNOW	Q+1!
PSIVOD	ASK, QUIT!
PSIVOD(	DEQ+2, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLW+3, LBLW+4, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9 , MEOWRPT+11, MEOW+1, MEOW+8, MEOW+13
PSIVOID	MEOWRPT+3~, MEOWRPT+12!
PSIVOID(	MEOWRPT+8, REPRT+1*
>> PSIVPL	ASK+1, QUE, USAGE+3, USAGE+5
PSIVREA	Q+1!
>> PSIVSITE	DESC+3, DESC+4
>> PSIVSN	DEQ+1, DEQ+2, QUIT, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLW+2, LBLW+3, LBLW+4 , MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, MEOW+1, MEOW+8, MEOW+13
PSIVT	DEQ+2, QUIT!, LBLM+1, LBLM+2, LBLM1+2, LBLM1+3, LBLM1+6, LBLW+3, LBLW+4, LBLW+5 , MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, MEOW+1, MEOW+8, MEOW+13, QUE, QUE+1*
PSIVWMFL	MEOWRPT+2, MEOWRPT+12!, MEOW+2!, MEOW+10, MEOW+15!
PSJID	MEOWRPT+3~, MEOWRPT+4*, REPRT+1, REPRT+2, REPRT+6
PSJLB	REPRT+2~
PSJLB(	REPRT+3*
PSJLB(4	REPRT+4
PSJLB(7	REPRT+4
>> PSJMORE	A1+3*
PSJOK	MEOW+3~, MEOW+5*, MEOW+6
>> PSJORD	ENLBLI+2*
PSJRPFLG	DEQ+3, DEQ+7!, MEOW+9*
PSJSCH	MEOW+3~, MEOW+4*
PSJST	MEOW+3~, MEOW+4*, MEOW+5
SCHED	Q+1!
>> TRACK	MEOW+11, DEQIA+2
U	REPRT+3, A1+1, DESC+3, DESC+4
VAERR	QUIT!, Q+1!
WRD	DEQ+2, QUIT!, LBLM1+4, LBLW+3*, LBLW+4, MEOWRPT+1, MEOWRPT+4, MEOWRPT+9, MEOWRPT+11, MEOW+1 , MEOW+8, MEOW+13
WRDX	LBLW+1~, LBLW+2*, LBLW+3
X	START, START+2, QUIT!, MEOWRPT+3~, MEOWRPT+8, MEOWRPT+9, MEOWRPT+10, MEOWRPT+11, REPRT+3, MEOW+12 , MEOW+13, QUE+2, LBLBEG!, USAGE+2, USAGE+5*, DESC~, DESC+1
X1	QUIT!, LBLM1+4*, DESC+1~
X2	QUIT!, LBLM1+4*, DESC+1~
XX	MEOWRPT+3~, REPRT+2, REPRT+3, DESC+1~, DESC+2, DESC+3, DESC+4*
Y	START, START+1, ASK, QUIT!, DESC+1~, DESC+2
Z	QUIT!
>> ZTDESC	QUE, USAGE+5
>> ZTDTH	USAGE+5*
>> ZTIO	QUE, USAGE+5
>> ZTQUEUED	QUIT, DEQIA+4
>> ZTREQ	QUIT, DEQIA+4
>> ZTRTN	QUE, USAGE+5
>> ZTSAVE(	QUE+2, USAGE+5
>> ZTSAVE("PSIVCD("""	QUE+1*
>> ZTSAVE("PSIVCT"	USAGE+6*
>> ZTSAVE("PSIVMT("""	QUE+1*
>> ZTSAVE("PSIVOD("""	QUE+1*
>> ZTSAVE("PSJSYSP0"	QUE*
ZTSK	QUIT!, QUE+3, USAGE+6

Customize PDF page

Package: Inpatient Medications

Routine: PSIVLBL1

Information

Source Information