Routine: PSORESK1

Information

PSORESK1 ;BHAM ISC/SAB - return to stock continued ;06/03/97 10:12

Name	Comments	DBIA/ICR reference
HP
STAT
CP
ACT
CMOP	;original released by CMOP? Called by PSORESK
CMOP1	; REFILL released by CMOP? Called by PSORESK

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Wand the barcode number of the Rx or manually key in",!,"the number below the barcode or the Rx number." Line Location: HP+0
Function Call: WRITE	Prompt: !,"The barcode number format is - 'NNN-NNNNNNN'",!!,"Press 'ENTER' to process Rx or ""^"" to quit" Line Location: HP+1
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Rx status of "_ST_" and cannot be returned to stock.",! Line Location: STAT+1
Function Call: WRITE	Prompt: !!,"Attempting to remove copay charges",! Line Location: CP+1
Function Call: WRITE	Prompt: !!,"Reason must be entered. Rx "_$P(^PSRX(RXP,0),"^")_" not returned to stock.",! Line Location: CP+2
Function Call: WRITE	Prompt: !!,$C(7),"Rx # "_$P(^PSRX(RXP,0),"^")_":",?20," Was dispensed by the CMOP and may not be returned" Line Location: CMOP+2
Function Call: WRITE	Prompt: !,?20," to stock at this facility." Line Location: CMOP+3
Function Call: WRITE	Prompt: !!,"REFILL # "_TYPE_":",?20," Was dispensed by the CMOP and may not be returned" Line Location: CMOP1+2
Function Call: WRITE	Prompt: !,?20," to stock at this facility." Line Location: CMOP1+3