Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PSORESK1

Package: Outpatient Pharmacy

Routine: PSORESK1


Information

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

Source Information

Source file <PSORESK1.m>

Entry Points

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

Interaction Calls

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
Info |  Source |  Entry Points |  Interaction Calls