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

Package: Controlled Substances

Routine: PSDSITE


Information

PSDSITE ;BIR/JPW,LTL-Site Parameters for CS ; 3 May 95

Source Information

Source file <PSDSITE.m>

Entry Points

Name Comments DBIA/ICR reference
SITE ;entry for selecting inpatient sites in file 59.4
END
LOW ;if auto generate, check low range for numbers
HIGH ;validates high range for dispensing numbers
MSG ;prints message if range already in use
LAST ;checks range for 'last dispensed'
MSG1 ;prints message if not in dispensing range
LAST1 ;checks LOW/HIGH range and LAST dispensed
MSG2 ;prints msg if not in dispensing range

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SITE+3
Function Call: WRITE
  • Prompt: !!,"High dispensing # must be larger than your low dispensing # "_PSDL_".",!!
  • Line Location: HIGH+5
Function Call: WRITE
  • Prompt: $C(7),!!,?12," => Dispensing Site "_$S($P(^PSD(58.8,PSD,0),"^")]"":$P(^(0),"^"),1:"NAME MISSING")_" <=",!,"has set aside the range "_$P($G(^PSD(58.8,PSD,2)),"^",2)_" through "_$P($G(^(2)),"^",3)_"."
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Last number dispensed must be within the range "_$P($G(^PSD(58.8,DA,2)),"^",2)_" to "_$S($P($G(^(2)),"^",3):$P($G(^(2)),"^",3),1:999999999)_".",!
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Last number dispensed must be within the range ",LOW," to ",HIGH,".",!
  • Line Location: MSG2+2

FileMan Files Accessed Via FileMan Db Call

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