Routine: PSGWWRD

Information

PSGWWRD ;BHAM ISC/CML-Add/Delete Ward (for Item) assignments ; 06 Aug 93 / 2:17 PM [ 09/28/95 11:59 AM ]

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC (FILE,YN)^DICN ^DIK
Kernel	3	HOME^%ZIS ^%ZISC ^%ZTLOAD
Auto Replenishment Ward Stock	1	SEL^PSGWUTL1
MailMan	1	^XMD

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW ADD/DEL WARD

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will allow you to add or delete a WARD (for Item) assignment for",!,"all stock items in one or more ACTIVE AOUs." Line Location: PSGWWRD+2
Function Call: WRITE	Prompt: !!,"Do you wish to (A)dd or (D)elete? (Enter 'A', 'D', or ""^"" to Exit): " Line Location: ASK1+0
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: ASK1+1
Function Call: WRITE	Prompt: ! Line Location: ASK3+0
Function Call: WRITE	Prompt: !!,"Do you want to queue this job" Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"If you want to queue this job to run at a later time, 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,!!,"WARD (For Item) assignment of ",$P(^DIC(42,WRD,0),"^")," has been ",$S(ANS="A":"added to",1:"deleted from"),":",!,"Total AOU(s): ",MRCNT," Total Stock Items: ",ITMCNT Line Location: START+2
Function Call: WRITE	Prompt: *7," ??" Line Location: HELP+1
Function Call: WRITE	Prompt: !!?5,"Enter: 'A' to Add a Ward (for Item)",!?12,"'D' to Delete a Ward (for Item)",!?12,"""^"" to Exit." Line Location: HELP+2
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIC Line Location: ASK2 ASK3

FileNo	Call Tags
^DIC(42 - [#42]	Classic Fileman Calls
^PSI(58.1 - [#58.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MAIL+1
^DD(58.11	ADDWRD+1
^DIC(42 - [#42]	START+2, MAIL+2
^PSI(58.1 - [#58.1]	ASK1+3, ASK2+2, ADD+1, DEL+1
^TMP($J	START+1!, QUIT!, MAIL+1, MAIL+2, MAIL+3*

Name	Field # of Occurrence
^("I"	ASK1+3, ADD+1, DEL+1

Name	Field # of Occurrence
%	QUE*, QUE+1, QUE+2, QUIT!
%Y	QUIT!
%Z	QUIT!
ANS	ASK1+1*, ASK1+2, ASK3, START+1, START+2, QUIT!, MAIL+1, MAIL+2, MAIL+4, HELP+1
ANSW	ASK1+2*, ASK3, QUIT!
AOU	ASK2+2, QUIT!, ADD+1, ADDWRD+1, DEL+1*, DELWRD+1
AOULP	ASK2+1, ASK3, QUE+2, QUIT!
AOULP(	ASK1+3!, ASK2, ASK2+2, ADD+1, DEL+1
DA	QUIT!, DELWRD+1*
DA(1	ADDWRD+1, DELWRD+1
DA(2	ADDWRD+1, DELWRD+1
DD	ADDWRD+2!
DIC	ASK2!, ASK3!, QUIT!, ADDWRD+1*, ADDWRD+2!
DIC("A"	ASK3*
DIC("P"	ADDWRD+1*
DIC("S"	ASK2, ASK3
DIC(0	ASK2, ASK3, ADDWRD+1*
DIE	QUIT!
DIK	QUIT!, DELWRD+1*!
>> DINUM	ADDWRD+1*
DO	ADDWRD+2!
DR	QUIT!, DELWRD+1*
DT	ASK1+3, ADD+1, DEL+1
DTIME	ASK1+1
DUZ	MAIL+4
FLG	START+1, QUIT!, ADD+1, ADDWRD+2, DEL+1, DELWRD+1*
G	QUE+2*, QUIT!
IGDA	QUIT!
IO("Q"	QUIT!
ITM	QUIT!, ADD+1, ADDWRD+1, DEL+1, DELWRD+1
ITMCNT	START+1, START+2, QUIT!, ADDWRD+2, DELWRD+1*, MAIL+3
>> J	ASK1+3*
JJ	ASK1+3, ASK2, QUE*, QUIT!
MRCNT	START+1, START+2, QUIT!, ADD+1, DEL+1*, MAIL+3
QUE	QUE+1*, START+1, START+2, QUIT!, ADDWRD+2, DELWRD+1
RDT	QUIT!, MAIL+1*, MAIL+2
SEL	ASK1+3, ASK1+4, QUIT!
WED	QUIT!
WRD	ASK3*, START+2, QUIT!, ADD+1, ADDWRD+1, DEL+1, DELWRD+1, MAIL+2
X	ASK2+1, ASK2+2, QUIT!, ADDWRD+1*, MAIL+1
XMDUZ	QUIT!, MAIL+4*
XMSUB	QUIT!, MAIL+4*
XMTEXT	QUIT!, MAIL+4*
XMY	QUIT!, MAIL+1!, MAIL+4!
XMY(	MAIL+4*
Y	ASK2, ASK3, QUIT!, MAIL+1*
>> ZTDESC	QUE+2*
>> ZTIO	QUE+2*
>> ZTQUEUED	QUIT+1
>> ZTREQ	QUIT+1*
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+2*
>> ZTSAVE("AOULP("	QUE+2*
ZTSK	QUE+3!, QUIT!