Routine: PSDUP2

Package	Total	Caller Graph
Controlled Substances	2	PSD IRL INV DATA PSD IRL VAULT INV

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"upload this data to the trakker.",!!,?12,"The PSJ RPHARM security key is required.",! Line Location: VAULT+3
Function Call: WRITE	Prompt: ! Line Location: ASKD+3
Function Call: WRITE	Prompt: $C(7),!!,"No action taken!",!! Line Location: ASKD+5
Function Call: WRITE	Prompt: !!,"Compiling inventory data...",! Line Location: LOOP+3
Function Call: WRITE	Prompt: !,"/$",!,".$1",!,"$$",!,"I",! Line Location: START+2
Function Call: WRITE	Prompt: X,! Line Location: 1+2
Function Call: READ	Timeout: DTIME Variable: XX Line Location: 2+0
Function Call: WRITE	Prompt: "*"_+PSDS,! Line Location: 2+2
Function Call: WRITE	Prompt: DATA,!,$P(DATA(1),U),!,$P(DATA(1),U,2),! Line Location: DATA+0
Function Call: WRITE	Prompt: !,"END" Line Location: QQ+0
Function Call: WRITE	Prompt: !,"You can now disconnect the TRAKKER.",!! Line Location: QQ+1
Function Call: WRITE	Prompt: !,"No vault identified." Line Location: UPLOAD+3
Function Call: WRITE	Prompt: !!,"Use the Send Data to DHCP option on the TRAKKER at this time.",! Line Location: UPLOAD+4
Function Call: READ	Prompt: ! Timeout: DTIME Variable: X Line Location: UP1+0
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"No signal received from the TRAKKER",! Line Location: NOSIGN+0
Routine Call	DIC Line Location: ASKD+4
Routine Call	%ZIS Line Location: START+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	START+1, 2, 2+1, QQ
^PSD(58.8 - [#58.8]	LOOP+4
^PSD(58.88 - [#58.88]	1
^PSDRUG - [#50]	LOOP+5
^TMP("PSDUP2"	LOOP+2!, LOOP+6*, DATA, Q+1!
^TMP("PSDWN2"	UPLOAD+5!, UP1, UP1+1, FIL
^XUSEC("PSJ RPHARM"	VAULT+2

Name	Field # of Occurrence
CNT	UPLOAD+1!, UPLOAD+5!, UP1*, UP1+1, Q!
DA	ASKD+3!, UPLOAD+1!, Q!
DATA	2+3!, DATA*, UPLOAD+1!, Q!
DATA(1	DATA*
DIC	ASKD+3!*, ASKD+4!, UPLOAD+1!, Q!
DIC("A"	ASKD+3*
DIC("B"	ASKD+3*
DIC("S"	ASKD+3*
DIC(0	ASKD+3*
DIR	UPLOAD+1!
DIROUT	UPLOAD+1!
DIRUT	UPLOAD+1!
DTIME	2, UP1
DTOUT	UPLOAD+1!, Q!
DUOUT	UPLOAD+1!, Q!
DUZ	VAULT+2
IO	START+1
IOST(0	START+1, 2
OK	VAULT+2*, VAULT+3!, Q!
POP	START+1, Q!
PROG	Q!
PSD	LOOP+4*, LOOP+5, LOOP+6, Q!
PSDCON	UPLOAD+5*, UP1, UP1+1, Q!
PSDIO	START+1*, 2+1, Q!
PSDIO(0	START+1*, 2+1, QQ
PSDN	LOOP+5*, LOOP+6, Q!
PSDS	ASKD+1, ASKD+6, LOOP+4, 2+2, UPLOAD+1!, UPLOAD+3, Q!
>> PSDSITE	VAULT+1, ASKD+1, ASKD+2, ASKD+3, ASKD+6*
PSDSN	ASKD+1, ASKD+6, UPLOAD+1!, Q!
PSDTRAKU	LOOP+1, UPLOAD+2*!
QTY	LOOP+4*, LOOP+6, Q!
U	ASKD+1, ASKD+2, ASKD+3, ASKD+6, DATA
X	START+3!, 1, 1+1, 1+2, 2, UPLOAD+1!, UPLOAD+5!, UP1, UP1+1, Q!
X1	START+3!, 1*, UPLOAD+1!, Q!
XX	2*, 2+2, Q!
Y	ASKD+5, ASKD+6, 1+1*, UPLOAD+1!, Q!