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

Package: Controlled Substances

Routine: PSDEXGS


Information

PSDEXGS ;BIR/BJW-Enter Existing Green Sheets at Startup ; 10 Feb 98

Source Information

Source file <PSDEXGS.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp site
CHKD
NAOU ;select NAOU
DRUG ;ask drug
GS
QTY
PHARM
RDATE
NURSE
MFG
LOT
EXP
PNT10
OK
END
MSG
MSG1
MSG2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"The Order Status of all Green Sheets entered as existing before",!,?5,"the Controlled Substances package initialization will be",!,?10," *** DELIVERED - ACTIVELY ON NAOU ***",!!
  • Line Location: PSDEXGS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+3
Function Call: WRITE
  • Prompt: !!,"The ",PSDSN," vault is missing data.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"This NAOU is missing data.",!!
  • Line Location: NAOU+4
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this NAOU.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !!,?15,"=> NAOU: ",NAOUN,!
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !!,PSDRGN," is missing",!,"data in ",NAOUN
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !!,PSDRGN," is not stocked",!,"in ",PSDSN,!!
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRGN," is missing breakdown unit or",!,"package size in ",PSDSN,".",!
  • Line Location: DRUG+9
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GS+0
Function Call: WRITE
  • Prompt: !!,"** No action taken. **"
  • Line Location: GS+0
Function Call: WRITE
  • Prompt: !!,"This number has already been used.",!!
  • Line Location: GS+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: QTY+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"No action taken. The Green Sheet # ",PSDPN," has not been added to your CS files.",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"You must enter a whole number between 1 and 999999999",!
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: !!,"You must enter a whole number between 1 and 999999",!
  • Line Location: MSG2+0
Info |  Source |  Entry Points |  Interaction Calls