Routine: PSGWCHG

Information

PSGWCHG ;BHAM ISC/CML-AR/WS Mass Ward Conversion ; 06 Aug 93 / 2:18 PM

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC YN^DICN ^DIE ^DIK
Kernel	2	HOME^%ZIS ^%ZTLOAD
Auto Replenishment Ward Stock	1	SEL^PSGWUTL1
MailMan	1	^XMD

Package	Total	Caller Graph
Auto Replenishment Ward Stock	1	PSGW WARD CONVERSION

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will allow you to do a mass conversion of all active items in",!,"an active AOU from an old Ward designation to a new Ward designation." Line Location: PSGWCHG+2
Function Call: READ	Prompt: "Select OLD WARD: " Formatting: !! Timeout: DTIME Variable: X Line Location: OLD+0
Function Call: READ	Prompt: "Select NEW WARD: " Formatting: !! Timeout: DTIME Variable: X Line Location: NEW+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,!!,"Total Stock Items converted: ",ITEMCNT,!,"Total AOU(s) converted: ",MEDRCNT,! Line Location: START+4
Function Call: WRITE	Prompt: "." Line Location: CHK+2
Routine Call	%ZIS Line Location: QUE+3
Routine Call	DIE Line Location: CHK+2
Routine Call	DIC Line Location: PSGWCHG+5 OLD NEW+1

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
^DIC(42 - [#42]	NEW, MAIL+2
^PSI(58.1 - [#58.1]	PSGWCHG+3, PSGWCHG+7, START+2, CHK+2, CHK+3, CHK+4*
^TMP("PSGWMSG"	MAIL+1, MAIL+2, MAIL+3*, QUIT!
^TMP("PSGWOLD"	START+1!, START+2*, START+3, QUIT!

Name	Line Occurrences
ASK	PSGWCHG+4
CHK	START+3
NEW	NEW+1
OLD	OLD
QUIT	PSGWCHG+3, PSGWCHG+6, ASK, OLD, NEW, QUE+1, QUE+3, START+4

Name	Field # of Occurrence
^("I"	PSGWCHG+3, PSGWCHG+7

Name	Field # of Occurrence
%	QUE*, QUE+1, QUE+2, QUIT!
%H	QUIT!
%I	QUIT!
AOU	PSGWCHG+7*, QUIT!
AOULP	PSGWCHG+6, ASK, QUE+2, QUIT!
AOULP(	PSGWCHG+3!, PSGWCHG+5, PSGWCHG+7, START+2
CNT	QUIT!, CHK+3*, CHK+4
DA	QUIT!, CHK+1!, CHK+2!
DA(1	CHK+1, CHK+2
DA(2	CHK+1, CHK+2
DIC	PSGWCHG+5!, OLD!, NEW+1*!
DIC("S"	PSGWCHG+5, NEW+1
DIC(0	PSGWCHG+5, OLD, NEW+1*
DIE	CHK+2*!
DIK	CHK+1*!
DR	QUIT!, CHK+2*
DRUG	START+2*, QUIT!
DT	PSGWCHG+3, PSGWCHG+7
DTIME	OLD, NEW
DUZ	MAIL+4
G	QUE+2*, QUIT!
I	QUIT!, CHK+3*
IGDA	QUIT!
ITEM	START+2, START+3, QUIT!, CHK+1, CHK+2, CHK+3, CHK+4
ITEMCNT	START+1, START+3, START+4, MAIL+3, QUIT!
J	QUIT!
JJ	PSGWCHG+3*, QUIT!
K	QUIT!
MEDR	START+2, START+3, QUIT!, CHK+1, CHK+2, CHK+3, CHK+4
MEDRCNT	START+1, START+3, START+4, MAIL+2, QUIT!
NEW	NEW+1*, MAIL+2, QUIT!, CHK+2, CHK+4
OLD	OLD*, NEW, START+2, MAIL+2, QUIT!, CHK+1
QQ	PSGWCHG+5, QUE, QUIT!
QUE	QUE+1*, START+4, QUIT!, CHK+2
RDT	MAIL+1*, QUIT!
SEL	PSGWCHG+3, PSGWCHG+4, QUIT!
X	PSGWCHG+6, PSGWCHG+7, OLD, NEW, MAIL+1, QUIT!
XCNP	QUIT!
XMDUZ	MAIL+4*, QUIT!
XMKK	QUIT!
XMLOCK	QUIT!
XMR	QUIT!
XMSUB	MAIL+4*, QUIT!
XMT	QUIT!
XMTEXT	MAIL+4*, QUIT!
XMY	MAIL+1!, MAIL+4!
XMY(	MAIL+4*
XMZ	QUIT!
Y	PSGWCHG+5, OLD, NEW+1, MAIL+1*, QUIT!
>> 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!