Routine: PSDPUGS

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC Y^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	1	^PSDSET

Package

Total

Call Graph

VA Fileman

NOW^%DTC ^DIC Y^DIQ ^DIR

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD PRINT GS PICKUP

Package

Total

Caller Graph

Controlled Substances

PSD PRINT GS PICKUP

Entry Points

Name	Comments	DBIA/ICR reference
SAVE
END
HDR	;header for log
START	;compile data
DEV	;ask device and queue info
ASKD	;ask disp loccation
DONE
PRINT	;print green sheets ready for pickup by naou, green sheet #
GROUP	;select group of naous
ASKN	;ask naou or group

Name	Field # of Occurrence
NOW^%DTC	ASKN+4, PRINT+1
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+2
^%ZTLOAD	DEV+4
^DIC	ASKD+5, ASKN+6, GROUP+1
Y^DIQ	DEV+2
^DIR	ASKN+4, DONE+1, HDR+1
^PSDSET	PSDPUGS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print the Green Sheets Ready for Pickup Log.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDPUGS+4
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: !!,"You may queue this report to print at a later time.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+3
Function Call: WRITE	Prompt: !!,?10,"** NO PENDING GREEN SHEETS READY FOR PICKUP **" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?2,"=> NAOU: "_NAOU,! Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?25,"Green Sheets Ready for Pickup",?70,"Page: ",PG,!,?30,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?57,"PICKED",?70,"GIVEN",!,"DISP #",?12,"DRUG",?57,"UP BY",?70,"TO BY" Line Location: HDR+3
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+4
Routine Call	DIC Line Location: ASKD+5 ASKN+6 GROUP+1
Routine Call	DIR Line Location: ASKN+4 DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	ASKD+2, DEV+2, START+2, START+3, START+4, START+5, START+6
^PSD(58.81 - [#58.81]	START+6
^PSDRUG - [#50]	START+7
^PSI(58.2 - [#58.2]	START+2
^TMP("PSDPUGS"	START+1!, START+8*, PRINT+2, PRINT+3, PRINT+4, END+2!
^XUSEC("PSJ PHARM TECH"	PSDPUGS+3
^XUSEC("PSJ RPHARM"	PSDPUGS+3

Name	Line Occurrences
ASKN	ASKD+2
DEV	ASKN+5
END	ASKD+5, ASKN+4, ASKN+5, ASKN+8, DEV+3, DEV+4, PRINT+2
GROUP	ASKN+5
HDR	PRINT+2, PRINT+3, PRINT+4
SAVE	DEV+4

Name	Field # of Occurrence
^(0	START+2, START+3, START+6, START+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ASKN+4, PRINT+1, END!
%H	END!
%I	END!
%ZIS	DEV+3!*, END!
%ZIS("B"	DEV+3*
ALL	ASKN+9*, START+3, END!, SAVE
C	DEV+2*, END!
CNT	ASKN+4, ASKN+7, START+2*, END!
DA	ASKD+3!, ASKN+2!, ASKN+4!, END!, GROUP+1!, HDR+1!
DIC	ASKD+3!, ASKD+5!, ASKN+4!, ASKN+6!, END!, GROUP+1!*
DIC("A"	ASKD+4, ASKN+6, GROUP+1*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3, ASKN+6, GROUP+1*
DIC(0	ASKD+3, ASKN+6, GROUP+1*
DIR	ASKN+2!, ASKN+4!, DONE+1!, END!, HDR+1!
DIR("?"	ASKN+3*
DIR("A"	ASKN+2, DONE+1
DIR(0	ASKN+2, DONE+1, HDR+1*
DIROUT	END!
DIRUT	ASKN+2!, ASKN+4, DONE+1!, END!
DRUG	START+4, START+5, START+7, PRINT+4, PRINT+5, END!
DRUGN	START+7*, START+8, END!
DTOUT	END!
DUOUT	END!
DUZ	PSDPUGS+3
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOF	DONE, HDR+2
IOP	DEV+3!
IOSL	PRINT+4
IOST	DONE, DONE+1, HDR+1
LN	PRINT+2!*, END!, HDR+4
NAOU	ASKN+8, PRINT+1, PRINT+3, PRINT+4, END!, SAVE
NAOU(	ASKN+7, START+2, START+3*, START+6
NODE	START+5*, START+6, START+7, START+8, END!
NUM	START+8, PRINT+4, PRINT+5, END!
OK	PSDPUGS+3*, PSDPUGS+4!, END+1!
PG	PRINT+1, END+1!, HDR+1, HDR+2
POP	DEV+3!, END+1!
PSD	START+2, START+3, START+4*, START+5, START+6, END+1!
PSDA	START+5*, END+1!
PSDEV	DEV+2*, DEV+3, END+1!
PSDG	ASKN+5, START+2, END+1!, SAVE
PSDG(	START+2, GROUP+1*
PSDIO	END+1!
PSDN	START+2*, END+1!
PSDNA	START+6*, START+8, END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+4, DONE+1, END+1!, HDR+1
PSDPT	ASKN+4*, END+1!
PSDS	ASKD+1, ASKD+2, ASKD+6*, DEV+2, START+2, START+3, END+1!
>> PSDSITE	PSDPUGS+2, ASKD+1, ASKD+2, ASKD+4, ASKD+7*
PSDSN	ASKD+1, ASKD+6, ASKD+7, END+1!
PSDT	ASKN+4*, END+1!
RPDT	PRINT+1*, END+1!, HDR+2
SEL	ASKN+4*, ASKN+5, END+1!
STAT	START+7*, END+1!
U	ASKD+1, ASKD+2, ASKD+4, ASKD+7, START+6
X	ASKN+4, ASKN+8, ASKN+9, END+1!
Y	ASKD+5, ASKD+6, ASKD+7, ASKN+4, ASKN+6, ASKN+7, DEV+2, PRINT+1, END+1!, GROUP+1 , HDR+1
Y(0	ASKD+6
ZTDESC	DEV+4*, END+1!
ZTDTH	DEV+4!, END+1!
ZTIO	DEV+4!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+4*, END+1!
ZTSAVE	DEV+4!, END+1!
ZTSAVE("ALL"	SAVE*
ZTSAVE("CNT"	SAVE*
ZTSAVE("NAOU("	SAVE*
ZTSAVE("PSDG("	SAVE*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDT"	SAVE*
ZTSK	DEV+4!, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDPUGS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: