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

Package: Controlled Substances

Routine: PSDEN


Information

PSDEN ;BIR/JPW-Enter NAOUs ; 6 July 94

Source Information

Source file <PSDEN.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
Controlled Substances 2 ^PSDSET  EN^PSDSP  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD NAOU EDIT  

Entry Points

Name Comments DBIA/ICR reference
NAOU ;entry for NAOUs into file 58.8
END
TYPE ;selects location type
DIE ;edit
WARD

External References

Name Field # of Occurrence
^DIC NAOU+2, WARD+12
^DIE DIE+6
^DIK TYPE+6, WARD+7
^DIR TYPE+5, WARD+4, WARD+6
^PSDSET PSDEN+2
EN^PSDSP WARD+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to enter/edit",!,?12,"NAOUs. PSD PARAM security key required.",!
  • Line Location: PSDEN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !!,"CONTROLLED SUBSTANCES SITE : "_SITEN
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"No location type entered. Entry has been deleted!",!!
  • Line Location: TYPE+6
Function Call: WRITE
  • Prompt: ?20,$P($G(^DIC(42,+PSDA(1),0)),U),!
  • Line Location: WARD+0
Function Call: WRITE
  • Prompt: !!,PSDA(3)," removed.",!
  • Line Location: WARD+7
Function Call: WRITE
  • Prompt: !!,PSDA(3)," is already linked to ",PSDA(4),"."
  • Line Location: WARD+9
Routine Call
  • DIC
  • Line Location:
    • NAOU+2
    • WARD+12
Routine Call
  • DIE
  • Line Location:
    • DIE+6
Routine Call
  • DIR
  • Line Location:
    • TYPE+5
    • WARD+4
    • WARD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSD(58.8 - [#58.8] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(58.8 WARD+11
^DIC(42 - [#42] WARD
^HL(770 - [#770] DIE+8
^PS(59.4 - [#59.4] PSDEN+4
^PSD(58.8 - [#58.8] TYPE+2, TYPE+5, WARD, WARD+5, WARD+6, WARD+8, WARD+14
^XUSEC("PSD PARAM" PSDEN+3

Label References

Name Line Occurrences
DIE TYPE+2
END NAOU+2
NAOU NAOU+3
TYPE NAOU+2
WARD WARD+5, WARD+9, WARD+12

Naked Globals

Name Field # of Occurrence
^(0 TYPE+5, WARD+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS END!, TYPE+2*, TYPE+3!, TYPE+7*, DIE+3, DIE+4, DIE+5, DIE+8, WARD+14
DA END!, TYPE+6*, DIE+2!*, DIE+6!, WARD+7*!, WARD+11*, WARD+12!
DA(1 WARD+7*, WARD+10*
DIC NAOU+1!*, NAOU+2!, END!, WARD+10*, WARD+12!
DIC("A" NAOU+1*
DIC("DR" NAOU+1*
DIC("P" WARD+11*
DIC("S" NAOU+1*
DIC(0 NAOU+1*, WARD+10*
DIE END!, DIE+2!*, DIE+6!
DIK TYPE+6!*, WARD+7*!
>> DINUM WARD+11*
DIR END!, TYPE+3!, TYPE+5!, WARD+4!, WARD+6!
DIR("?" TYPE+4*, WARD+3*
DIR("A" TYPE+3*, WARD+2*, WARD+6*
DIR("B" TYPE+5*
DIR(0 TYPE+3*, WARD+1*, WARD+6*
DIROUT END!
DIRUT END!, TYPE+3!, TYPE+6, TYPE+7, WARD+5
DLAYGO NAOU+1!*, NAOU+2!, END!, WARD+10*, WARD+12!
DR END!, DIE+2!, DIE+3*, DIE+4*, DIE+5*, DIE+6!
DTOUT END!
DUOUT END!
DUZ PSDEN+3
MULTI PSDEN+4*, END!
NEW NAOU+2*, END!, TYPE+6
PSDA NAOU+2*, END!, TYPE+2, TYPE+5, TYPE+6, DIE+2, WARD, WARD+5, WARD+6, WARD+7
, WARD+8, WARD+10, WARD+14, WARD+15!
PSDA(1 WARD*, WARD+4*, WARD+8*
PSDA(2 WARD+4*, WARD+5, WARD+7, WARD+8, WARD+11
PSDA(3 WARD+4*, WARD+6, WARD+7, WARD+9, WARD+11
PSDA(4 WARD+8*, WARD+9!
PSDJLP DIE+1*, DIE+6!
PSDS WARD+14, WARD+15!
>> PSDSITE PSDEN+2, PSDEN+4, NAOU+1, WARD+14*
PSDSN WARD+15!
SITEN PSDEN+4*, END!, TYPE+1
U WARD, WARD+4, WARD+6, WARD+8, WARD+11, WARD+14
X END!, WARD+11*
Y NAOU+2, END!, TYPE+7, WARD+4, WARD+7
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