Routine: PSDTRV1

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC FILE^DICN ^DIE
MailMan	1	^XMD

Package	Total	Caller Graph
Controlled Substances	1	PSDTRV

Entry Points

Name	Comments	DBIA/ICR reference
END
DIE	;update transaction data
CHK	;check for valid bal
UPDATE	;update vault balances
ADD	;find entry number
MSG	;send mailman message with transfer info
CALC	;sub/add qty from dsp sites
FIND

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Updating vault on-hand balances now..." Line Location: UPDATE+2
Function Call: WRITE	Prompt: "done!",!! Line Location: UPDATE+3
Function Call: WRITE	Prompt: $S(CNT=2:VAULTN,1:PSDSN)_"..." Line Location: CALC+1
Function Call: WRITE	Prompt: !,"Still updating..." Line Location: DIE+3
Routine Call	DIE Line Location: DIE+3 DIE+5
Routine Call	DIC Line Location: FIND+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MSG+1
^PSD(58.8 - [#58.8]	CALC+3, CALC+5, CALC+6, DIE+6*, DIE+7, CHK+1, CHK+2
^PSD(58.81 - [#58.81]	ADD+1, FIND*, FIND+2
^TMP("PSDTRV"	MSG+1!, MSG+2, MSG+3, MSG+4, MSG+5*, MSG+7!
^XUSEC("PSDMGR"	MSG+6

Name	Field # of Occurrence
^(0	CALC+5*

Name	Field # of Occurrence
%	END!, CALC+4
%H	END!
%I	END!
>> ADD	UPDATE+3, UPDATE+4*
BAL	END!
BAL(	CALC+5*, DIE+2
CNT	UPDATE+2*, END!, CALC+1, CALC+2, CALC+5, DIE+2, DIE+5
DA	END!, DIE+1!, DIE+3!, DIE+5!, DIE+7!
DA(1	DIE+5, DIE+7
DA(2	DIE+7*
DD	END!, DIE+7!
DIC	END!, FIND+1!, DIE+7!
DIC(0	FIND+1, DIE+7
DIE	END!, DIE+1!, DIE+3!, DIE+5!
>> DILOCKTM	CALC+3, ADD+1
DINUM	END!, FIND+1, DIE+7
DIR	END!
DIROUT	END!
DIRUT	END!
DLAYGO	END!, FIND+1!*
DO	END!, DIE+7!
DR	END!, DIE+1!, DIE+2, DIE+3!, DIE+5!
DTOUT	END!
DUOUT	END!
EXP	END!, DIE+5
JJ	END!, MSG+6*
LOT	END!, DIE+5
MFG	END!, DIE+5
NBKU	END!, DIE+5, MSG+5
NPKG	END!, DIE+5
PSDLES	UPDATE+1, END!, CHK+1, CHK+2
>> PSDOUT	UPDATE+4*
PSDR	END!, CALC+3, CALC+5, CALC+6, DIE+2, DIE+5, DIE+6, DIE+7, CHK+1, CHK+2
PSDREC	END!, FIND*, FIND+1, DIE+1, DIE+7
PSDRN	END!, MSG+3
>> PSDS	CALC+2, CHK+1, CHK+2
>> PSDSN	CALC+1, MSG+4
PSDT	END!, CALC+4*, DIE+2
>> PSDUZ	DIE+2
>> PSDUZN	MSG+5
QTY	END+1!
RDT	END+1!, MSG+1*, MSG+2
TEMP	END+1!, CALC+2*, CALC+3, CALC+5, CALC+6, DIE+2, DIE+5, DIE+6, DIE+7
TQTY	END+1!, CALC+2*, CALC+5, DIE+2, CHK+1, CHK+2, MSG+5
VAULT	END+1!, CALC+2
VAULTN	END+1!, CALC+1, MSG+4
X	END+1!, FIND+1, DIE+7, MSG+1
XMDUZ	END+1!, MSG+6*
XMSUB	END+1!, MSG+6*
XMTEXT	END+1!, MSG+6*
XMY	END+1!, MSG+1!, MSG+7!
XMY(	MSG+6, MSG+7
Y	END+1!, MSG+1*