Routine: PSDPGS

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

Package	Total	Caller Graph
Controlled Substances	1	PSD PRINT 2638

Entry Points

Name	Comments	DBIA/ICR reference
GS1	;ask gs # range
SAVE	;saves queued variables
END
DEV	;ask device and queue info
ONE	;asks print type
ASKD	;ask dispensing location
CHKD
GROUP	;select group of naous
SEL	;sel naou or group

External References

Name	Field # of Occurrence
NOW^%DTC	SEL+4
^%ZIS	DEV+4
HOME^%ZIS	DEV+5
^%ZISC	END+4
^%ZTLOAD	DEV+5
^DIC	ASKD+4, SEL+6, GROUP+1
Y^DIQ	DEV+3
^DIR	ONE+3, GS1+4, SEL+4
START^PSDPGS1	DEV+6
^PSDSET	PSDPGS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access",!,?12,"to print Green Sheets.",!!,"PSJ PHARM or PSJ PHARM TECH security key required.",! Line Location: PSDPGS+4
Function Call: WRITE	Prompt: ! Line Location: ASKD+3
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,"You may enter a Green Sheet # list and/or a Green Sheet # range.",! Line Location: GS1+1
Function Call: WRITE	Prompt: "NOTE: This response must be a list or range, e.g. 1,3,5 or 2-4,8.",! Line Location: GS1+2
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: SEL+1
Function Call: WRITE	Prompt: $C(7),!!,"This report now prints on plain paper.",!,"Please check your printer before starting this report.",!!,"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+4
Routine Call	%ZIS Line Location: DEV+5
Routine Call	DIC Line Location: ASKD+4 SEL+6 GROUP+1
Routine Call	DIR Line Location: ONE+3 GS1+4 SEL+4
Routine Call	%ZIS Line Location: DEV+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+3
^PSD(58.8 - [#58.8]	ASKD+2, ASKD+5, CHKD, DEV+3
^TMP("PSDPGS"	END+3!
^XUSEC("PSJ PHARM TECH"	PSDPGS+3
^XUSEC("PSJ RPHARM"	PSDPGS+3

Label References

Name	Line Occurrences
CHKD	ASKD+2
DEV	ONE+4, GS1+6, SEL+5
END	ASKD+4, CHKD, ONE+3, GS1+4, SEL+4, SEL+5, SEL+8, DEV+4, DEV+5
GROUP	SEL+5
SAVE	DEV+5
SEL	ONE+4

Naked Globals

Name	Field # of Occurrence
^(2.5	ASKD+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+4!*, END!
%ZIS("B"	DEV+4*
ALL	SEL+9*, END!, SAVE+3
ANS	ONE+3*, ONE+4, END!
ASK	ASKD+2, ASKD+5, END!
C	DEV+3*, END!
CNT	SEL+4, SEL+7, END!, SAVE+4
D	END!
DA	ASKD+3!, ONE+1!, GS1+3!, SEL+2!, SEL+4!, END!, GROUP+1!
DIC	ASKD+3!, ASKD+4!, SEL+4!, SEL+6!, END!, GROUP+1!*
DIC("A"	ASKD+3, SEL+6, GROUP+1*
DIC("B"	ASKD+3*
DIC("S"	ASKD+3, SEL+6, GROUP+1*
DIC(0	ASKD+3, SEL+6, GROUP+1*
DIE	END!
DIR	ONE+1!, ONE+3!, GS1+3!, GS1+4!, SEL+2!, SEL+4!, END!
DIR("?"	ONE+2, SEL+3
DIR("A"	ONE+1, GS1+3, SEL+2*
DIR(0	ONE+1, GS1+3, SEL+2*
DIROUT	END!
DIRUT	ONE+1!, ONE+3, GS1+3!, GS1+4, SEL+2!, SEL+4, END!
DR	END!
DTOUT	END!
DUOUT	END!
DUZ	PSDPGS+3
EXP	END!
EXPD	END!
IO	DEV+6
IO("Q"	DEV+4!, DEV+5!
IOP	DEV+4!, END!
JJ	END!
LINE	END!
LOOP	END!
LOT	END!
NAOU	SEL+8, END!, SAVE+4
NAOU(	SEL+7*
NAOUN	END!
NODE	END!
NODE1	END!
OK	PSDPGS+3*, PSDPGS+4!, END+1!
ORD	END+1!
ORDN	END+1!
POP	DEV+4!, END+1!
PRT	ASKD+2, ASKD+5, END+1!, SAVE+1
PSD	END+1!
PSD1	GS1+5*, END+1!, SAVE+2
PSD1(	GS1+5*
PSDA	END+1!
PSDBY	END+1!
PSDBYN	END+1!
PSDCNT	END+1!
PSDCPI	DEV+2*, END+1!
PSDDT	END+1!
PSDEV	DEV+3*, DEV+4, END+1!
PSDG	SEL+5, END+1!, SAVE+2
PSDG(	GROUP+1*
PSDOUT	END+1!
PSDPN	END+1!
PSDR	END+1!
PSDRN	END+1!
PSDS	ASKD+1, ASKD+2, ASKD+5, CHKD, DEV+3, END+1!
>> PSDSITE	PSDPGS+2, ASKD+1, ASKD+2, ASKD+3, ASKD+5*
PSDSN	ASKD+1, ASKD+5, END+1!
PSDT	SEL+4*, END+1!
QTY	END+2!
SEL	SEL+4*, SEL+5, END+2!
SITE	END+2!
STAT	END+2!
U	ASKD+1, ASKD+2, ASKD+3, ASKD+5
X	SEL+4, SEL+8, SEL+9, END+2!
Y	ASKD+4, ASKD+5, ONE+3, SEL+4, SEL+6, SEL+7, DEV+3*, END+2!, GROUP+1
Y(	GS1+5!
ZTDESC	DEV+5*, END+2!
ZTDTH	DEV+5!, END+2!
ZTIO	DEV+5!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	DEV+5*, END+2!
ZTSAVE	DEV+5!, END+2!
ZTSAVE("ALL"	SAVE+3*
ZTSAVE("ANS"	SAVE+1*
ZTSAVE("ASK"	SAVE+1*
ZTSAVE("CNT"	SAVE+4*
ZTSAVE("NAOU("	SAVE+4*
ZTSAVE("PRT"	SAVE+1*
ZTSAVE("PSD1("	SAVE+2*
ZTSAVE("PSDCPI"	SAVE+1*
ZTSAVE("PSDG("	SAVE+2*
ZTSAVE("PSDS"	SAVE+1*
ZTSAVE("PSDSITE"	SAVE+1*
ZTSAVE("PSDSN"	SAVE+1*
ZTSK	DEV+5!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDPGS

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

Naked Globals

Local Variables

Legend: