Routine: PSDWADD

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

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!

Customize PDF page

Package: Controlled Substances

Routine: PSDWADD

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: