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

Package: Controlled Substances

Routine: PSDNACT


Information

PSDNACT ;BIR/JPW-Inactivate NAOUs ; 6 July 94

Source Information

Source file <PSDNACT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  ^DIE  ^DIR  
Controlled Substances 1 ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD INACTIVATE NAOU  

Entry Points

Name Comments DBIA/ICR reference
MSG
NAOU ;
END
LOOP ;asks for inactivating drugs and loops to complete

External References

Name Field # of Occurrence
NOW^%DTC PSDNACT+3
^DIC NAOU+1
^DIE NAOU+1, LOOP+7
^DIR LOOP+4
^PSDSET PSDNACT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?10,"Inactivate NAOUs"
  • Line Location: PSDNACT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !!,"This NAOU is now ACTIVE. Use the Inactivate NAOU Stock Drug option",!,"to reactivate stocked drugs within "_PSDN_"."
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+2
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this NAOU!!",!!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !!,"Inactivating all stocked drugs within "_PSDN_"..."
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !!,PSDN," has been inactivated.",!
  • Line Location: MSG+0
Routine Call
  • DIE
  • Line Location:
    • NAOU+1
    • LOOP+7
Routine Call
  • DIC
  • Line Location:
    • NAOU+1
Routine Call
  • DIR
  • Line Location:
    • LOOP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] LOOP+1, LOOP+5, LOOP+7

Label References

Name Line Occurrences
LOOP NAOU+1
MSG LOOP+4

Naked Globals

Name Field # of Occurrence
^("I" LOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
DA NAOU+1!*, END!, LOOP+2!, LOOP+7!*
DA(1 LOOP+7*
DIC NAOU+1!*, END!
DIC("A" NAOU+1*
DIC("S" NAOU+1*
DIC(0 NAOU+1*
DIE NAOU+1!*, END!, LOOP+7!*
DIR END!, LOOP+2!, LOOP+4!
DIR("?" LOOP+3*
DIR("A" LOOP+2*
DIR("B" LOOP+2*
DIR(0 LOOP+2*
DIROUT END!
DIRUT END!, LOOP+4
DR NAOU+1!*, END!, LOOP+7!*
DT LOOP+1
DTOUT END!
DUOUT END!
PSDA NAOU+1*, END!, LOOP+1, LOOP+5, LOOP+7
PSDN NAOU+1*, END!, LOOP+1, LOOP+6, MSG
PSDR END!, LOOP+7*
>> PSDSITE PSDNACT+2
PSDT PSDNACT+3*, END!, LOOP+7
X PSDNACT+3, END!
Y NAOU+1, END!, LOOP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All