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

Package: Controlled Substances

Routine: PSDNRGS


Information

PSDNRGS ;BIR/JPW-Receive Green Sheet for NAOU ; 17 Jan 2017 9:42 AM

Source Information

Source file <PSDNRGS.m>

Entry Points

Name Comments DBIA/ICR reference
ASKN ;ask naou
GS ;select green sheet #
ORD
REC ;receive at order level in 58.8
UPDATE ;update 58.8 and 58.81
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to complete",!,?12,"narcotic orders.",!!,"PSJ RNURSE, PSD NURSE, PSJ RPHARM, or PSJ PHARM TECH security key required.",!
  • Line Location: PSDNRGS+5
Function Call: WRITE
  • Prompt: !!,"Receive Controlled Substances Orders and Green Sheet"
  • Line Location: PSDNRGS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !,AKUNITS
  • Line Location: GS+16
Function Call: WRITE
  • Prompt: !,"The Green Sheet # ",PSDPN," is currently in use by another user",!,"Please select another Green Sheet.",!
  • Line Location: ORD+4
Function Call: WRITE
  • Prompt: $C(7),!!,"The Green Sheet # ",PSDPN," is assigned to ",NAOUN,".",!,"Please select another Green Sheet.",!
  • Line Location: ORD+6
Function Call: WRITE
  • Prompt: $C(7),!!,"There's no data on ",NAOUN," for Green Sheet # ",PSDPN,".",!,"Contact your Pharmacy Coordinator for assistance.",!
  • Line Location: ORD+7
Function Call: WRITE
  • Prompt: $C(7),!!,"This Green Sheet has a status of "_$S(STATN]"":STATN,1:"UNKNOWN")_".",!,"Please select another Green Sheet.",!
  • Line Location: ORD+8
Function Call: WRITE
  • Prompt: !!,"Accessing ",PSDRN," information...",!!
  • Line Location: REC+1
Function Call: WRITE
  • Prompt: !!,"Quantity not entered. No action taken.",!,"This order remains ",STATN,!!
  • Line Location: REC+2
Function Call: WRITE
  • Prompt: !!,"Quantity not entered. No action taken.",!,"This order remains ",STATN,!!
  • Line Location: REC+3
Function Call: WRITE
  • Prompt: $C(7),!!,"The quantity received does not match the quantity dispensed.",!,"This order must be returned to pharmacy for investigation.",!!
  • Line Location: REC+5
Function Call: WRITE
  • Prompt: $C(7),!!,"*** THIS ORDER HAS NOT BEEN RECEIVED ***",!,"Receiving nurses name must be entered.",!!,"The status remains "_STATN,!
  • Line Location: REC+9
Function Call: WRITE
  • Prompt: !!,"Updating your records now..."
  • Line Location: UPDATE+12
Function Call: WRITE
  • Prompt: "done.",!!
  • Line Location: UPDATE+15
Function Call: WRITE
  • Prompt: ?5,"*** Your Green Sheet #"_PSDPN_" is now "_$S($P($G(^PSD(58.82,STAT,0)),"^")]"":$P(^(0),"^"),1:"UNKNOWN")_" ***",!
  • Line Location: UPDATE+16
Info |  Source |  Entry Points |  Interaction Calls