Routine: PSIVLBL1

Information

PSIVLBL1 ;BIR/RGY-PRINT LABEL FROM WARD LIST ;24 Aug 2001 3:59 PM

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

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME 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	Formatting: !! Prompt: "Number of labels to print: " Variable: X Timeout: DTIME 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