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

Package: Controlled Substances

Routine: PSDORP


Information

PSDORP ;BIR/JPW - Pharm CS Order Request Entry ;8 Aug 94

Source Information

Source file <PSDORP.m>

Entry Points

Name Comments DBIA/ICR reference
NAOU ;select NAOU to order supplies for
DRUG ;select drug
QTY
END
DIE ;create the order request
DIE2
MSG ;display error message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Controlled Substances Order Entry",!!
  • Line Location: PSDORP+2
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+13
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests,"
  • Line Location: QTY+11
Function Call: WRITE
  • Prompt: !!,(PSDQTY\NPKG)," order"
  • Line Location: QTY+13
Function Call: WRITE
  • Prompt: " for ",NPKG," ",NBKU,"."
  • Line Location: QTY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+16
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: QTY+18
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",!
  • Line Location: QTY+19
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: QTY+20
Function Call: WRITE
  • Prompt: ?10,!!,"processing now..."
  • Line Location: DIE2+2
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"PSDR")_" is missing "
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",!
  • Line Location: MSG+2
Info |  Source |  Entry Points |  Interaction Calls