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

Package: Controlled Substances

Routine: PSDNSTK


Information

PSDNSTK ;BIR/JPW-Inactivate Stocked Drugs ; 8 Aug 94

Source Information

Source file <PSDNSTK.m>

Call Graph

Call Graph Total: 7

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD INACTIVATE NAOU STOCK DRUG  

Entry Points

Name Comments DBIA/ICR reference
END
DIE ;inactivate a Drug for NAOUs
INACT1 ;inactivate a drug for a single NAOU
START ;
MSG ;send mailman message with completed info
QUE ;asks queueing information
ASK ;ask inactivation date and reason
LOOP

External References

Name Field # of Occurrence
NOW^%DTC MSG+1
^%ZTLOAD QUE+5
^DIC PSDNSTK+4, LOOP+1, ASK+2
^DIE LOOP+2, DIE+1
^DIR ASK+3, ASK+4, ASK+5, QUE+2
^PSDSET PSDNSTK+2
^XMD MSG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may inactivate a Stocked Drug for a single NAOU,",!,?5,"or enter ^ALL to inactivate the Drug in ALL NAOUs.",!
  • Line Location: PSDNSTK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDNSTK+4
Function Call: WRITE
  • Prompt: !!,"There are no stocked drugs for this NAOU!!",!!
  • Line Location: INACT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!,PSDRN," is now INACTIVE.",!!
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!,"This "_PSDRN_" is ACTIVE on "_NAOUN_".",!!
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: $C(7),!!,"The DRUG you selected will not be inactivated.",!!
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Inactivating now..."
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,"You will be notified by MailMan when the job is completed. ",!!
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: $C(7),!!,PSDRN_" has been inactivated in "_CNT_" NAOU(s).",!
  • Line Location: START+2
Routine Call
  • DIE
  • Line Location:
    • LOOP+2
    • DIE+1
Routine Call
  • DIC
  • Line Location:
    • PSDNSTK+4
    • LOOP+1
    • ASK+2
Routine Call
  • DIR
  • Line Location:
    • ASK+3
    • ASK+4
    • ASK+5
    • QUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MSG+1
^PSD(58.8 - [#58.8] INACT1+2, LOOP+4, START+1
^PSDRUG - [#50] LOOP+3
^TMP("PSDMSG" END+1!, MSG+1!*, MSG+2*, MSG+3!

Label References

Name Line Occurrences
ASK PSDNSTK+4
DIE START+1
END MSG+4
INACT1 PSDNSTK+4
LOOP LOOP+4, LOOP+6
QUE ASK+5
START QUE+3

Naked Globals

Name Field # of Occurrence
^(0 START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
ALL PSDNSTK+4*, END!, INACT1+1*
ANS1 END!, ASK+2*, ASK+5*, DIE+1
ANS2 END!, ASK+2*, ASK+6*, DIE+1
CNT END!, START+1*, START+2, MSG+2
DA PSDNSTK+4!, END!, LOOP!, LOOP+2!*, ASK+2!, ASK+3!, ASK+4!, ASK+5!, QUE+1!, DIE+1!*
DA(1 LOOP+1*, LOOP+2*, DIE+1*
DIC PSDNSTK+4!*, END!, LOOP!, LOOP+1*!, ASK+2!*
DIC("A" PSDNSTK+4*, ASK+2*
DIC("S" PSDNSTK+4*, ASK+2*
DIC("W" LOOP*
DIC(0 PSDNSTK+4*, LOOP+1*, ASK+2*
DIE END!, LOOP+2!*, DIE+1!*
DIR END!, ASK+3!, ASK+4!, ASK+5!, QUE+1!, QUE+2!
DIR("?" QUE+1*, QUE+2*
DIR("A" QUE+1*
DIR("B" QUE+1*
DIR(0 ASK+3*, ASK+4*, ASK+5*, QUE+1*
DIROUT END!
DIRUT END!, ASK+3!, ASK+4!, ASK+5!, QUE+1!, QUE+2
DR END!, LOOP+2!*, DIE+1!*
DTOUT END!, LOOP+1, LOOP+2, ASK+4!, ASK+5!
DUOUT END!, LOOP+1, ASK+4!, ASK+5!
DUZ MSG+3
NAOU END!, INACT1+1*, INACT1+2, LOOP+1, LOOP+2, LOOP+4, START+1*, DIE+1
NAOUN END!, INACT1+1*, LOOP+5
PSDOUT PSDNSTK+4!, END!, LOOP+1*, LOOP+2*, ASK+2*, ASK+3*, ASK+4*, ASK+5*, QUE+2*
PSDR END!, LOOP+2*, LOOP+3, LOOP+4, ASK+2*, START+1, DIE+1
PSDRN END!, LOOP+3*, LOOP+4, LOOP+5, ASK+2*, START+2, MSG+2
>> PSDSITE PSDNSTK+2, START+1
PSDT END!, ASK+4*, DIE+1
QUE END!, QUE+1*, QUE+4*, START+2
RDT END!, MSG+1*, MSG+2
X PSDNSTK+4, END!, MSG+1
XMDUZ END!, MSG+3*
XMSUB END!, MSG+3*
XMTEXT END!, MSG+3*
XMY END!, MSG+1!, MSG+3!
XMY( MSG+3*
Y PSDNSTK+4, END!, INACT1+1, LOOP+2, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, QUE+3
, MSG+1*
ZTDESC END+1!, QUE+5*
ZTIO END+1!, QUE+5*
>> ZTQUEUED END+2
>> ZTREQ END+2*
ZTRTN END+1!, QUE+5*
ZTSAVE END+1!
ZTSAVE("ANS1" QUE+5*
ZTSAVE("ANS2" QUE+5*
ZTSAVE("PSDR" QUE+5*
ZTSAVE("PSDRN" QUE+5*
ZTSAVE("PSDSITE" QUE+5*
ZTSAVE("PSDT" QUE+5*
ZTSAVE("QUE" QUE+5*
ZTSK END+1!, QUE+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All