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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDSTK

Package: Controlled Substances

Routine: PSDSTK


Information

PSDSTK ;BIR/JPW-Stock Drugs Enter/Edit ; 8 Aug 94

Source Information

Source file <PSDSTK.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIR  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD STOCK DRUG EDIT  

Entry Points

Name Comments DBIA/ICR reference
END
DIE
DRUG ;add drugs
CHKID ;check for current inactivation date
CHKNP ;check for non-CS entries in file 50
VAULT ;check for stock drugs in vault
STOCK ;entry for NAOU stocked drugs into file 58.8

External References

Name Field # of Occurrence
^DIC STOCK+1, DRUG+9, VAULT+4
FILE^DICN VAULT+12
^DIE DIE, CHKID+4, CHKNP+2
^DIR DRUG+4, VAULT+10
^PSDSET PSDSTK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: STOCK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+7
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"This Drug is currently defined for this NAOU with an INACTIVATION DATE.",!!,?5,"If you want to add this Drug as a new standard Stock Drug for this NAOU",!,?5,"you must delete the INACTIVATION DATE.",!
  • Line Location: CHKID+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKID+4
Function Call: WRITE
  • Prompt: $C(7),!!,?5,"This stocked drug is currently defined for this NAOU but appears to be",!,?5,"a non-CS drug. It has been inactivated as of "
  • Line Location: CHKNP+3
Function Call: WRITE
  • Prompt: Y,!
  • Line Location: CHKNP+3
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: VAULT+1
Function Call: WRITE
  • Prompt: !!,"You may select only CS drugs stocked in your dispensing vault.",!!
  • Line Location: VAULT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: VAULT+3
Routine Call
  • DIE
  • Line Location:
    • DIE
    • CHKID+4
    • CHKNP+2
Routine Call
  • DIC
  • Line Location:
    • STOCK+1
    • DRUG+9
    • VAULT+4
Routine Call
  • DIR
  • Line Location:
    • DRUG+4
    • VAULT+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CHKNP+3
^PSD(58.8 - [#58.8] DRUG+8, CHKID+1, CHKID+4, CHKNP+2, CHKNP+3, VAULT+1, VAULT+5, VAULT+7, VAULT+8
^PSDRUG - [#50] CHKNP+1, VAULT+6

Label References

Name Line Occurrences
CHKID DIE
CHKNP CHKID+1, CHKID+2
DIE DRUG+6
DRUG STOCK+2, DRUG+6, DIE+1
END STOCK+1
STOCK STOCK+3
VAULT DRUG+6

Naked Globals

Name Field # of Occurrence
^(0 DRUG+8*, VAULT+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD END!, DRUG+5*, DRUG+6, DRUG+8, DRUG+9
DA STOCK+1!, END!, DRUG+2!, DRUG+7!, DIE!*, CHKID+4!*, CHKNP+2!*, VAULT+3!, VAULT+9!, VAULT+12!
DA(1 DRUG+9*, DIE*, CHKID+4*, CHKNP+2*, VAULT+4*, VAULT+12*
DD VAULT+12!
DIC STOCK+1!*, END!, DRUG+7!, DRUG+9*!, VAULT+3!, VAULT+4*!, VAULT+12!*
DIC("A" STOCK+1*
DIC("S" STOCK+1*
DIC("W" DRUG+7*, VAULT+3*
DIC(0 STOCK+1*, DRUG+9*, VAULT+4*, VAULT+12*
DIE END!, DIE!*, CHKID+4!*, CHKNP+2!*
DINUM END!, VAULT+12*
DIR END!, DRUG+2!, DRUG+4!, VAULT+9!, VAULT+10!
DIR("?" DRUG+3*
DIR("A" DRUG+2*, VAULT+9*
DIR("B" DRUG+4*, VAULT+9*
DIR(0 DRUG+2*, VAULT+9*
DIROUT END!
DIRUT END!, DRUG+2!, DRUG+4, VAULT+9!, VAULT+10
DLAYGO END!, DRUG+9*!
DO VAULT+12!
DR END!, DIE!*, CHKID+4!*, CHKNP+2!*
DT CHKNP+2
DTOUT END!
DUOUT END!
FLAG END!, DRUG+1*, DRUG+6, VAULT+11*
FLAG1 STOCK+3, END!, DRUG+1*, DRUG+6, VAULT+4*
NAOU END!
NEW END!, VAULT+8*
OK END!, DIE, CHKID+2, CHKID+4*, CHKNP+1*
PSDA STOCK+2*, END!, DRUG+8, DRUG+9, DIE, CHKID+1, CHKID+4, CHKNP+2, CHKNP+3, VAULT+5
, VAULT+7, VAULT+8, VAULT+12
PSDOUT STOCK+3, END!, DRUG+1*, DRUG+4*, DRUG+6, VAULT+1*, VAULT+10*, VAULT+12*
PSDR END!, DRUG+9*, DIE, CHKID+1, CHKID+4, CHKNP+1, CHKNP+2, CHKNP+3, VAULT+5*, VAULT+6
, VAULT+12
PSDRG END!
PSDRN END!, VAULT+6*, VAULT+9
PSDS STOCK+2*, END!, VAULT+1, VAULT+4
>> PSDSITE PSDSTK+2
SITE END!
TYPE STOCK+2*, END!, DRUG+6, DRUG+8
X END!, VAULT+12*
Y STOCK+1, STOCK+2, END!, DRUG+5, DRUG+9, CHKNP+3*, VAULT+4, VAULT+5, VAULT+9!, VAULT+11
, VAULT+12
Y(0 STOCK+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All