Routine: PSDNSTK

Information

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

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!

Customize PDF page

Package: Controlled Substances

Routine: PSDNSTK

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: