Routine: PSGWBGIN

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC YN^DICN ^DIE
Kernel	2	HOME^%ZIS ^%ZTLOAD
MailMan	1	^XMD

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC YN^DICN ^DIE

Kernel

HOME^%ZIS ^%ZTLOAD

MailMan

^XMD

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW INACTIVATE AOU STOCK ITEM

Package

Total

Caller Graph

Auto Replenishment Ward Stock

PSGW INACTIVATE AOU STOCK ITEM

Name	Comments	DBIA/ICR reference
QUIT
INACT2	; Inactivate an Item for a single AOU
INACT1	; Inactivate an Item for ALL AOUs
START	;
QUE
ASK	;
MAIL	;
ASKR1
ASKR2

Name	Field # of Occurrence
NOW^%DTC	START+1
HOME^%ZIS	QUE+2
^%ZTLOAD	QUE+2
^DIC	PSGWBGIN+3, ASK+1
YN^DICN	QUE
^DIE	INACT1+1, INACT2+1
^XMD	MAIL+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You may inactivate a Stock Item for a single AOU,",!,"or enter ""^ALL"" to inactivate the Item in ALL AOUs.",! Line Location: PSGWBGIN+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Enter the ITEM you wish to inactivate in all AOUs.",! Condition for execution: X?1."?" Line Location: ASK+1
Function Call: WRITE	Prompt: !!,"Select INACTIVATION REASON:",!?5,"(N) - NOT USED",!?5,"(DF) - DELETED FROM FORMULARY",!?5,"(O) - OTHER" Line Location: ASK+2
Function Call: READ	Prompt: "=> " Formatting: ?34 Timeout: DTIME Variable: REA1 Line Location: ASKR1+0
Function Call: WRITE	Prompt: *7,!?37,"Enter 'N', 'DF', or 'O'",! Line Location: ASKR1+0
Function Call: READ	Prompt: "Enter INACTIVATION REASON (OTHER): " Formatting: !! Timeout: DTIME Variable: REA2 Line Location: ASKR2+0
Function Call: WRITE	Prompt: *7,!?5,"ANSWER MUST BE 3-40 CHARACTERS IN LENGTH" Line Location: ASKR2+0
Function Call: WRITE	Prompt: !!,"Do you want to queue this job" Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"To queue this job to run at a later time and free up your terminal now, accept",!,"the default, otherwise enter 'N' to run it immediately or '^' to Exit" Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"You will be notified by MailMan when the job is completed.",! Line Location: QUE+1
Function Call: WRITE	Prompt: *7,!!,$P(^PSDRUG(ITEM,0),"^")," has been inactivated in ",AOUCNT," AOU(s).",! Line Location: START+2
Routine Call	%ZIS Line Location: QUE+2
Routine Call	DIE Line Location: INACT1+1 INACT2+1
Routine Call	DIC Line Location: PSGWBGIN+3 ASK+1

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^PSI(58.1 - [#58.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MAIL+1
^PSDRUG - [#50]	START+2, MAIL+2
^PSI(58.1 - [#58.1]	START+1, INACT1+1
^TMP("PSGWMSG"	QUIT!, MAIL+1, MAIL+2

Name	Line Occurrences
ASK	PSGWBGIN+3, ASK+1
ASKR1	ASKR1
ASKR2	ASKR1, ASKR2
INACT1	START+1
INACT2	PSGWBGIN+3
QUE	ASKR1+1
QUIT	MAIL+3

Name	Field # of Occurrence
^(0	START+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUIT!, QUE*, QUE+1, QUE+2
ALL	PSGWBGIN+3, QUIT!, INACT2+1
AOU	QUIT!, START+1*, INACT1+1
AOUCNT	QUIT!, START+1*, START+2, MAIL+2
DA	QUIT!, INACT1+1!, INACT2+1!
DA(1	INACT1+1*
DIC	PSGWBGIN+3!, ASK+1!
DIC(0	PSGWBGIN+3, ASK+1
DIE	INACT1+1!, INACT2+1!
DR	QUIT!, INACT1+1, INACT2+1
DTIME	ASK+1, ASKR1, ASKR2
DUZ	MAIL+3
I	QUIT!
INDT	QUIT!, START+1*, MAIL+1, INACT1+1
ITEM	QUIT!, ASK+1*, START+1, START+2, MAIL+2
ITEMNUM	QUIT!, START+1*, INACT1+1
J	QUIT!
K	QUIT!
QFLG	PSGWBGIN+3!, QUIT!, ASK+1, ASKR1, ASKR2, INACT2+1
QQ	PSGWBGIN+3, QUIT!, QUE
QUE	QUIT!, QUE+1*, START+2
RDT	QUIT!, MAIL+1*, MAIL+2
REA1	QUIT!, ASKR1*, INACT1+1
REA2	QUIT!, ASK+1, ASKR2, INACT1+1
X	PSGWBGIN+3, QUIT!, ASK+1*, START+1
XMDUZ	QUIT!, MAIL+3*
XMKK	QUIT!
XMLOCK	QUIT!
XMR	QUIT!
XMSUB	QUIT!, MAIL+3*
XMT	QUIT!
XMTEXT	QUIT!, MAIL+3*
XMY	MAIL+1!, MAIL+3!
XMY(	MAIL+3*
XMZ	QUIT!
Y	PSGWBGIN+3, QUIT!, ASK+1, MAIL+1*, INACT2+1
>> ZTDESC	QUE+2*
>> ZTIO	QUE+2*
>> ZTQUEUED	QUIT+1
>> ZTREQ	QUIT+1*
>> ZTRTN	QUE+2*
>> ZTSAVE("ITEM"	QUE+2*
>> ZTSAVE("QUE"	QUE+2*
>> ZTSAVE("REA1"	QUE+2*
>> ZTSAVE("REA2"	QUE+2*
ZTSK	QUIT!, QUE+2!

Customize PDF page

Package: Auto Replenishment Ward Stock

Routine: PSGWBGIN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: