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: PSDGSPU

Package: Controlled Substances

Routine: PSDGSPU


Information

PSDGSPU ;BIR/JPW-Pickup Green Sheet ; 6 July 94

Source Information

Source file <PSDGSPU.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
GS ;select green sheet #
RET ;return gs
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to return",!,?12,"Green Sheets. PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDGSPU+4
Function Call: WRITE
  • Prompt: ?10,!!,"Return a Green Sheet to Pharmacy",!
  • Line Location: PSDGSPU+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",!
  • Line Location: GS+6
Function Call: WRITE
  • Prompt: !!,"This order has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please contact your Pharmacy Coordinator for assistance.",!
  • Line Location: GS+7
Function Call: WRITE
  • Prompt: !!,"Accessing ",PSDRN," information...",!
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: $C(7),!!,"** THIS GREEN SHEET HAS NOT BEEN PICKED UP **",!!,"The status remains "_STATN,!
  • Line Location: RET+5
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: RET+7
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: RET+9
Function Call: WRITE
  • Prompt: ?2,"*** Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: RET+10
Info |  Source |  Entry Points |  Interaction Calls