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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSDORNV

Package: Controlled Substances

Routine: PSDORNV


Information

PSDORNV ;BIR/JPW,LTL-Nurse CS Infusion Order Request Entry ;12/14/99 16:36

Source Information

Source file <PSDORNV.m>

Entry Points

Name Comments DBIA/ICR reference
NAOU ;select NAOU to order supplies for
PAT
PCA
DRUG ;select drug
CHEC
QTY
END
MSG ;display error message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to order",!,?12,"narcotic supplies.",!!,"PSJ RNURSE, PSJ RPHARM, or PSJ PHARM TECH security key required.",!
  • Line Location: PSDORNV+19
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+3
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+12
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: NAOU+13
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: NAOU+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PCA+0
Function Call: WRITE
  • Prompt: !!,"Checking for active Controlled Substance IV orders."
  • Line Location: PCA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: IOBON,!!,?20,"ZERO BALANCE IN PHARMACY",IOBOFF
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !,"Checking for the last order for ",$P($G(^DPT(PAT,0)),U),".",!
  • Line Location: CHEC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+15
Function Call: WRITE
  • Prompt: PSDR(1)
  • Line Location: QTY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+21
Function Call: WRITE
  • Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,!
  • Line Location: QTY+23
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request."
  • Line Location: QTY+24
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+25
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: QTY+27
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",!
  • Line Location: QTY+28
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: QTY+29
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls
^PS(52.7 - [#52.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call