Routine: PSDPWK

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC Y^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	2	START^PSDPWK1 ^PSDSET

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC Y^DIQ ^DIR

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

Controlled Substances

START^PSDPWK1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD WORKSHEET PRINT

Package

Total

Caller Graph

Controlled Substances

PSD WORKSHEET PRINT

Name	Comments	DBIA/ICR reference
SORT	;asks sort
SAVE
END
SUM	;ask worksheet, summary or both
DEV	;ask device and queue info
ASKD	;ask disp location
CHKD
GROUP	;select group of naous
ASKN	;ask naou or group

Name	Field # of Occurrence
NOW^%DTC	ASKN+5, ASKN+7
^%ZIS	DEV+4
^%ZISC	END+2
^%ZTLOAD	DEV+5
^DIC	ASKD+4, ASKN+9, GROUP+1
Y^DIQ	DEV+3
^DIR	SUM+4, ASKN+4, SORT+5
START^PSDPWK1	DEV+6
^PSDSET	PSDPWK+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"process/dispense narcotic supplies.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDPWK+5
Function Call: WRITE	Prompt: !!,"=> This report lists all pending CS requests for a dispensing site.",!! Line Location: PSDPWK+6
Function Call: WRITE	Prompt: $C(7),!!,"There are no pending request orders.",!! Line Location: PSDPWK+7
Function Call: WRITE	Prompt: ! Line Location: ASKD+3
Function Call: WRITE	Prompt: !!,"There are no pending CS requests for "_PSDSN_".",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,?5,"Select one of the following:",!!,?10,"N",?20,"NAOU (One, Some, or ^ALL)",!,?10,"G",?20,"Group of NAOUs",! Line Location: ASKN+1
Function Call: WRITE	Prompt: !!,"This report is designed for a 132 column format.",!,"You may queue this report to print at a later time.",!! Line Location: DEV+2
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+4
Routine Call	DIC Line Location: ASKD+4 ASKN+9 GROUP+1
Routine Call	DIR Line Location: SUM+4 ASKN+4 SORT+5
Routine Call	%ZIS Line Location: DEV+4

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+3
^PSD(58.8 - [#58.8]	ASKD+2, SORT+1, DEV+3
^PSD(58.85 - [#58.85]	PSDPWK+7, CHKD
^TMP("PSDWK"	END+2!
^TMP("PSDWKT"	END+2!
^XUSEC("PSJ PHARM TECH"	PSDPWK+4
^XUSEC("PSJ RPHARM"	PSDPWK+4

Name	Line Occurrences
CHKD	ASKD+2
DEV	SORT+2
END	SUM+4, ASKD+4, CHKD, ASKN+6, ASKN+8, ASKN+11, SORT+5, DEV+4, DEV+5
GROUP	ASKN+8
SAVE	DEV+5
SORT	ASKN+5, ASKN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
%ZIS	DEV+4!*, END!
%ZIS("B"	DEV+4*
ALL	ASKN+5, ASKN+12, END!, SAVE+1
ANS	SORT+1, SORT+2, SORT+5, END!
C	DEV+3*, END!
CNT	ASKN+5, ASKN+7, ASKN+10*, END!
COMM	END!
DA	SUM+1!, ASKD+3!, ASKN+2!, ASKN+7!, SORT+3!, END!, GROUP+1!
DIC	ASKD+3!, ASKD+4!, ASKN+7!, ASKN+9!, END!, GROUP+1!*
DIC("A"	ASKD+3, ASKN+9, GROUP+1*
DIC("B"	ASKD+3*
DIC("S"	ASKD+3, ASKN+9, GROUP+1*
DIC(0	ASKD+3, ASKN+9, GROUP+1*
DIR	SUM+1!, SUM+4!, ASKN+2!, ASKN+4!, SORT+3!, SORT+5!, END!
DIR("?"	SUM+3, ASKN+3, SORT+4*
DIR("A"	SUM+2, ASKN+2, SORT+3, SORT+5
DIR(0	SUM+1, ASKN+2, SORT+3*
DIROUT	END!
DIRUT	SUM+1!, SUM+4, ASKN+2!, ASKN+5, ASKN+6, SORT+3!, SORT+5, END!
DTOUT	END!
DUOUT	END!
DUZ	PSDPWK+4
IO	DEV+6
IO("Q"	DEV+4!, DEV+5!, END!
ION	DEV+5
IOP	DEV+4!
IOST	DEV+5
JJ	END!
JJ1	END!
JJDA	END!
LOOP	END!
LOOP2	END!
NAOU	ASKN+11, END!, SAVE+1
NAOU(	ASKN+10*
NODE	END!
OK	PSDPWK+4*, PSDPWK+5!, PSDPWK+7!, END!
ORD	END!
ORDN	END!
POP	DEV+4!, END+1!
PRT	END+1!
PSD	END+1!
PSDCPY	END+1!
PSDEV	DEV+3*, DEV+4, END+1!
PSDG	ASKN+8, END+1!, SAVE+1
PSDG(	GROUP+1*
PSDIO	DEV+5*, END+1!
PSDN	END+1!
PSDNA	END+1!
PSDR	END+1!
PSDRN	END+1!
PSDS	ASKD+1, ASKD+2, ASKD+5*, CHKD, SORT+1, DEV+3, END+1!
>> PSDSITE	PSDPWK+3, ASKD+1, ASKD+2, ASKD+3, ASKD+6*
PSDSN	ASKD+1, ASKD+5, ASKD+6, CHKD, END+1!
PSDT	ASKN+5, ASKN+7, END+1!
QTY	END+2!
SEL	ASKN+5, ASKN+7, ASKN+8, END+2!
SUM	SUM+4*, END+2!
U	ASKD+1, ASKD+2, ASKD+3, ASKD+6
X	ASKN+5, ASKN+7, ASKN+11, ASKN+12, END+2!
Y	SUM+4, ASKD+4, ASKD+5, ASKD+6, ASKN+7, ASKN+9, ASKN+10, SORT+5, DEV+3*, END+2! , GROUP+1
Y(0	ASKD+5
ZTDESC	DEV+5*, END+2!
ZTDTH	DEV+5!, END+2!
ZTIO	DEV+5*, END+2!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+5*, END+2!
ZTSAVE	DEV+5!, END+2!
ZTSAVE("ALL"	SAVE+1*
ZTSAVE("ANS"	SAVE*
ZTSAVE("CNT"	SAVE*
ZTSAVE("NAOU("	SAVE+1*
ZTSAVE("PSDG("	SAVE+1*
ZTSAVE("PSDIO"	SAVE*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDSITE"	SAVE*
ZTSAVE("PSDSN"	SAVE*
ZTSAVE("PSDT"	SAVE*
ZTSAVE("SUM"	SAVE*
ZTSK	DEV+5!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDPWK

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: