Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 3 ^DIC  DQ^DICQ  ^DIE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 1 PSD SITE  
Drug Accountability 1 ^PSD(58.8  

Entry Points

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

External References

Name Field # of Occurrence
^DIC SITE+2
DQ^DICQ SITE+2
^DIE SITE+3

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
Routine Call
  • DIE
  • Line Location:
    • SITE+3
Routine Call
  • DIC
  • Line Location:
    • SITE+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.4 - [#59.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] LOW+2, LOW+3, LOW+5, HIGH+2, HIGH+3, HIGH+4, MSG+1, LAST+3, LAST+4, MSG1+1

Label References

Name Line Occurrences
END SITE+2
LAST1 LAST+2
MSG LOW+5, HIGH+6
MSG1 LAST+3, LAST+4
MSG2 LAST1+1, LAST1+2

Naked Globals

Name Field # of Occurrence
^(0 MSG+1
^(2 LOW+2, LOW+3, LOW+5, HIGH+2, HIGH+3, MSG+1, MSG1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D SITE+1*, SITE+2!
DA SITE+3!*, END!, LOW+5, HIGH+4, LAST+3, LAST+4, MSG1+1
DIC SITE+1!*, SITE+2!, END!
DIC(0 SITE+1*
DIE SITE+3!*, END!
DLAYGO SITE+1!*, END!
DR SITE+3!*, END!
DTOUT END!
DUOUT END!
DZ SITE+1*, SITE+2!
HIGH LAST+2!, LAST1+2, MSG2+2
LOW LAST+2!, LAST1+1, MSG2+2
PSD LOW+2!*, LOW+3, LOW+4*, LOW+5, LOW+6!, HIGH+2!*, HIGH+3, HIGH+4*, HIGH+7!, MSG+1
PSDCHK LAST+2!, MSG2+1*
>> PSDEN LAST+2
PSDFLAG LOW+1*, LOW+2!, LOW+5*, LOW+6, HIGH+1*, HIGH+2!, HIGH+5*, HIGH+6*, HIGH+7, LAST+1*
, LAST+3*, LAST+4*, LAST1+1*, LAST1+2*
PSDH HIGH+2!, HIGH+4*, HIGH+6, HIGH+7!
PSDL LOW+2!, LOW+6!, HIGH+2!, HIGH+4*, HIGH+5, HIGH+7!
PSDL( LOW+3*, LOW+4, HIGH+3*, HIGH+4
PSDL(0 LOW+4
U SITE+3
X END!, LOW+1, LOW+5, HIGH+1, HIGH+5, HIGH+6, LAST+1, LAST+3, LAST+4, LAST1+1
, LAST1+2
Y SITE+2, SITE+3, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All