Routine: PSDWCHG

Name	Comments	DBIA/ICR reference
OLD	;asking for old (current) WARD (FOR DRUG)
CHG	;change wards
START	;loop to update ward conversion
QUE	;asks queueing information
MSG	;send mailman message with completed info
NEW	;asking new (replacement) WARD (FOR DRUG)
NAOU	;ask NAOU
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will allow you to do a mass conversion of all drugs in an ",!,"active NAOU from an old Ward designation to a new Ward designation." Line Location: PSDWCHG+4
Function Call: WRITE	Prompt: !!,"You may convert a single NAOU, several NAOUs, or enter ^ALL to convert",!,"all NAOUs.",!! Line Location: PSDWCHG+5
Function Call: WRITE	Prompt: !,"No Action Taken",! Line Location: NEW+1
Function Call: WRITE	Prompt: !! Line Location: QUE+1
Function Call: WRITE	Prompt: $C(7),!!,"The WARD change you selected will not be updated.",!! Line Location: QUE+2
Function Call: WRITE	Prompt: !!,"Converting WARD (for Drug) 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),!!,"Total Stock Drugs converted: ",CNTD,!,"Total NAOU(s) converted: ",CNTN,! Line Location: START+5
Routine Call	DIE Line Location: CHG+2
Routine Call	DIC Line Location: NAOU+2
Routine Call	DIR Line Location: OLD+1 NEW+1 QUE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MSG+1
^PSD(58.8 - [#58.8]	NAOU+4, START+2, CHG+2, CHG+3, CHG+4*
^TMP("PSDWCHG"	START+1!, START+2*, START+3, START+4!, END+1!
^TMP("PSDWCMSG"	MSG+1!, MSG+2, MSG+3*, MSG+4!

Name	Field # of Occurrence
^("I"	NAOU+4
^(0	NAOU+4

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
CNTD	START+1, START+3, START+5, END!, MSG+3
CNTN	START+1, START+3, START+5, END!, MSG+2
DA	NAOU+1!, OLD+1!, NEW+1!, QUE+1!, END!, CHG+1!, CHG+2!
DA(1	CHG+1, CHG+2
DA(2	CHG+1, CHG+2
DIC	NAOU+1!, NAOU+2*!, END!
DIC("A"	NAOU+2*
DIC("S"	NAOU+2*
DIC(0	NAOU+2*
DIE	END!, CHG+2*!
DIK	CHG+1!*
DIR	OLD+1!, NEW+1!, QUE+1!, QUE+2!, END!
DIR("?"	OLD+1, NEW+1, QUE+1, QUE+2
DIR("A"	OLD+1, NEW+1, QUE+1*
DIR("B"	QUE+1*
DIR(0	OLD+1, NEW+1, QUE+1*
DIRUT	OLD+1!, NEW+1!, QUE+1!, QUE+2, END!
DR	END!, CHG+2*
DT	NAOU+4
DTOUT	END!
DUOUT	END!
DUZ	PSDWCHG+3
JJ	END!, CHG+3*
LOC	START+2, START+3, END!, CHG+1, CHG+2, CHG+3, CHG+4
NAOU	NAOU+3, NAOU+5, QUE+5, END!
NAOU(	NAOU+2, NAOU+4, START+2
NEW	NEW+2*, END!, CHG+2, CHG+4
NEWN	NEW+2*, END!, MSG+2
OLD	OLD+2*, START+2, END!, CHG+1
OLDN	OLD+2*, NEW+1, END!, MSG+2
PSD	NAOU+4*, END+1!
PSDA	END+1!
PSDOUT	END+1!
PSDR	END+1!
PSDRG	START+2, START+3, END+1!, CHG+1, CHG+2, CHG+3, CHG+4
>> PSDSITE	PSDWCHG+2, NAOU+4
PSDUZ	PSDWCHG+3*, END+1!, MSG+4
QUE	QUE+1, QUE+4, START+4, START+5, END+1!, CHG+2
RDT	END+1!, MSG+1*
SUB	END+1!, CHG+3*, CHG+4
X	NAOU+3, NAOU+4, END+1!, MSG+1
XMDUZ	END+1!, MSG+4*
XMSUB	END+1!, MSG+4*
XMTEXT	END+1!, MSG+4*
XMY	END+1!, MSG+1!, MSG+4!
XMY(	MSG+4*
Y	NAOU+2, OLD+1, OLD+2, NEW+1, NEW+2, QUE+3, END+1!, MSG+1*
ZTDESC	QUE+5*, END+1!
ZTIO	QUE+5*, END+1!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	QUE+5*, END+1!
ZTSAVE	END+1!
ZTSAVE("NAOU("	QUE+5*
ZTSAVE("NEW"	QUE+5*
ZTSAVE("NEWN"	QUE+5*
ZTSAVE("OLD"	QUE+5*
ZTSAVE("OLDN"	QUE+5*
ZTSAVE("PSDUZ"	QUE+5*
ZTSAVE("QUE"	QUE+5*
ZTSK	QUE+5!, END+1!

Information