Routine: PSDTRA

Information

PSDTRA ;BIR/JPW-Transfer Stock Entries from AOU to NAOU ; 18 July 94

Package	Total	Caller Graph
Controlled Substances	1	PSD TRANSFER AOU

Name	Comments	DBIA/ICR reference
FROM	;select AR/WS AOU to transfer stock from
CHK	;checks for valid NAOUs
TO	;select NAOU(s) to transfer stock to
NUM	;ask how many NAOUs
QUE
END
METHOD	;asks method of stock transfer

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will copy the stock entries from one AR/WS AOU into NAOUs you ",!,"select. No more than 10 transfers are allowed at a time.",!,"Inactive drugs will not be transferred.",! Line Location: PSDTRA+4
Function Call: WRITE	Prompt: ! Line Location: NUM+1
Function Call: WRITE	Prompt: !!!,"=> Methods of transferring stock drug data." Line Location: METHOD+1
Function Call: WRITE	Prompt: ! Line Location: METHOD+2
Function Call: WRITE	Prompt: ! Line Location: FROM+1
Function Call: WRITE	Prompt: ! Line Location: TO+1
Function Call: WRITE	Prompt: !!,"You may not transfer TO additional NAOUs at this time.",!,"Enter the option again to transfer to more NAOUs.",! Line Location: TO+3
Function Call: WRITE	Prompt: !,?5,$P(^PSD(58.8,TR,0),"^") Line Location: CHK+2
Function Call: WRITE	Prompt: !!,?5,"I will transfer ",$S(MTR=3:"drug name, stock level, location code and types.",MTR=2:"drug name, stock level and location code.",1:"drug name only.") Line Location: CHK+3
Function Call: WRITE	Prompt: !! Line Location: CHK+4
Function Call: WRITE	Prompt: !!,"This job will automatically be queued to run in the background.",!,"You'll be notified by a MailMan message when the transfer is completed.",! Line Location: QUE+0
Function Call: WRITE	Prompt: !!,"Transfer AR/WS Stock Drugs to NAOU has been queued.",! Line Location: QUE+3
Routine Call	DIC Line Location: FROM+1 TO+2
Routine Call	DIR Line Location: NUM+3 METHOD+5 CHK+6

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	CHK+2
^PSI(58.1 - [#58.1]	CHK+2

Name	Field # of Occurrence
ANS	NUM+3*, TO+2, TO+4, END!
AOU	FROM+1*, CHK+2, END!
CNT	PSDTRA+3, TO+2, TO+3, TO+4, END!
DA	NUM+1!, METHOD+2!, FROM+1!, TO+1!, CHK+4!, END!
DIC	FROM+1!, TO+1!, TO+2!, END!
DIC("A"	FROM+1, TO+1
DIC("S"	TO+1*
DIC(0	FROM+1, TO+1
DIR	NUM+1!, NUM+3!, METHOD+2!, METHOD+5!, CHK+4!, CHK+6!, END!
DIR("?"	NUM+2, METHOD+3, METHOD+4, CHK+5
DIR("A"	NUM+1, METHOD+2, CHK+4*
DIR("B"	CHK+4*
DIR(0	NUM+1, METHOD+2, CHK+4*
DIROUT	END!
DIRUT	NUM+1!, NUM+3, METHOD+2!, METHOD+5, CHK+4!, CHK+6, END!
DTOUT	END!
DUOUT	END!
DUZ	PSDTRA+3
LOC	END!
LOC("TR"	PSDTRA+3!, TO+2*, CHK+1, CHK+2, QUE+1
MTR	METHOD+5*, CHK+3, END!
NAOUT	QUE+1*, END!
>> PSDSITE	PSDTRA+2
PSDUZ	PSDTRA+3*, END!
TR	CHK+2, QUE+1, END!
X	END!
Y	NUM+3, METHOD+5, FROM+1, TO+2, CHK+6, END!
ZTDESC	QUE+2*, END!
ZTDTH	QUE+2*, END!
ZTIO	QUE+2*, END!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*
ZTRTN	QUE+2*, END!
ZTSAVE	END!
ZTSAVE("AOU"	QUE+2*
ZTSAVE("MTR"	QUE+2*
ZTSAVE("NAOUT"	QUE+2*
ZTSAVE("PSDUZ"	QUE+2*
ZTSK	END!