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

Package: Controlled Substances

Routine: PSDWADD


Information

PSDWADD ;BIR/JPW-Add/Delete Ward (for Drug) ; 6 July 94

Source Information

Source file <PSDWADD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 NOW^%DTC  ^DIC  ^DIK  ^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 WARD ADD/DEL  

Entry Points

Name Comments DBIA/ICR reference
END
START ;add or delete ward (for drug) data
ASKAD ;ask for 'Add' or 'Delete'
ADD ;add ward (for drug)
QUE ;asks queueing information
MSG ;send mailman message with completed info
DEL ;delete ward (for drug)
WARD ;ask ward
NAOU ;ask NAOU

External References

Name Field # of Occurrence
NOW^%DTC MSG+1
^%ZTLOAD QUE+6
^DIC NAOU+2, WARD+1, ADD+4
^DIK DEL+3
^DIR ASKAD+2, QUE+2
^PSDSET PSDWADD+2
^XMD MSG+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will allow you to add or delete a Ward (for Drug) assignment for",!,"all stock drugs in one or more ACTIVE NAOUs."
  • Line Location: PSDWADD+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs, or enter ^ALL to select all NAOUs.",!
  • Line Location: ASKAD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WARD+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+2
Function Call: WRITE
  • Prompt: !!,"Starting the WARD (for Drug) "_$S(ANS="A":"additions",ANS="D":"deletions")_"."
  • 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),!!,"WARD (for Drug) assignment of "_PSDWN_" has been ",$S(ANS="A":"added to",1:"deleted from"),":",!," => Total NAOU(s): "_CNTN_" => Total Stock Drugs: "_CNTD
  • Line Location: START+2
Routine Call
  • DIC
  • Line Location:
    • NAOU+2
    • WARD+1
    • ADD+4
Routine Call
  • DIR
  • Line Location:
    • ASKAD+2
    • QUE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" MSG+1
^PSD(58.8 - [#58.8] NAOU+4, ADD+1, ADD+2, ADD+3, DEL+1, DEL+2
^TMP("PSDWADD" START+1!
^TMP("PSDWAMSG" MSG+1!*, MSG+2*, MSG+3*, MSG+4*, MSG+6!

Label References

Name Line Occurrences
ADD START+1
DEL START+1
END ASKAD+2, NAOU+3, NAOU+5, WARD+1, QUE+2, QUE+6
MSG START+1
START QUE+3

Naked Globals

Name Field # of Occurrence
^("I" NAOU+4, ADD+1, DEL+1
^(0 NAOU+4, ADD+1, ADD+3*, DEL+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%H END!
%I END!
ANS ASKAD+2*, WARD+1, QUE+3, START+1, START+2, END!, MSG+1, MSG+3, MSG+5
CNTD START+1*, START+2, END!, ADD+4*, DEL+3*, MSG+4
CNTN START+1*, START+2, END!, ADD+1*, DEL+1*, MSG+4
DA ASKAD+1!, NAOU+1!, QUE+1!, END!, ADD+4!*, DEL+3!*
DA(1 ADD+4*, DEL+3*
DA(2 ADD+4*, DEL+3*
DIC NAOU+1!, NAOU+2*!, WARD+1*!, END!, ADD+4!*
DIC("A" NAOU+2*, WARD+1*
DIC("S" NAOU+2*
DIC(0 NAOU+2*, WARD+1*, ADD+4*
DIE END!
DIK END!, DEL+3!*
DINUM END!, ADD+4*
DIR ASKAD+1!, ASKAD+2!, QUE+1!, QUE+2!, END!
DIR("?" ASKAD+2*, QUE+1*, QUE+2*
DIR("A" ASKAD+1*, QUE+1*
DIR("B" QUE+1*
DIR(0 ASKAD+1*, QUE+1*
DIRUT ASKAD+1!, ASKAD+2, QUE+1!, QUE+2, END!
DLAYGO ADD+4*!
DR END!, DEL+3!*
DT NAOU+4, ADD+1, DEL+1
DTOUT END!
DUOUT END!
DUZ PSDWADD+3
NAOU NAOU+3, NAOU+5, QUE+6, END!
NAOU( NAOU+2*, NAOU+4*, ADD+1, DEL+1
OK START+1*, END!, ADD+1*, ADD+4*, DEL+1*, DEL+3*
PSD NAOU+4*, END!
PSDL END!, ADD+1*, ADD+2, ADD+3, ADD+4, DEL+1*, DEL+2, DEL+3
PSDRG END!, ADD+2*, ADD+3, ADD+4, DEL+2*, DEL+3
>> PSDSITE PSDWADD+2, NAOU+4
PSDUZ PSDWADD+3*, END!, MSG+5
PSDW WARD+1*, END!, ADD+2, ADD+4, DEL+2, DEL+3
PSDWN WARD+1*, START+2, END!, MSG+3
QUE QUE+1*, QUE+4*, START+1, START+2, END!, ADD+4, DEL+3
RDT END!, MSG+1*, MSG+2
X NAOU+3, NAOU+4, END+1!, ADD+4*, MSG+1
XMDUZ END+1!, MSG+5*
XMSUB END+1!, MSG+5*
XMTEXT END+1!, MSG+5*
XMY END+1!, MSG+1!, MSG+6!
XMY( MSG+5*, MSG+6*
Y ASKAD+2, NAOU+2, WARD+1, QUE+3, END+1!, MSG+1*
ZTDESC QUE+5*, END+1!
ZTIO QUE+5*, END+1!
>> ZTQUEUED END+1
>> ZTREQ END+1*
ZTRTN QUE+5*, END+1!
ZTSAVE END+1!
ZTSAVE("ANS" QUE+5*
ZTSAVE("NAOU(" QUE+6*
ZTSAVE("PSDUZ" QUE+5*
ZTSAVE("PSDW" QUE+5*
ZTSAVE("PSDWN" QUE+5*
ZTSAVE("QUE" QUE+5*
ZTSK QUE+6!, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All