Routine: PSDPSI

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 PRT GS INSP HOLD

Package

Total

Caller Graph

Controlled Substances

PSD PRT GS INSP HOLD

Name	Comments	DBIA/ICR reference
SAVE
END
HDR	;header for log
START	;compile data
DEV	;ask device and queue info
ASKD	;ask disp location
DONE
PRINT	;print green sheets picked up 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	PSDPSI+2

Interaction Calls

Name	Line Occurrences
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 GREEN SHEETS ON INSPECTOR HOLD **" 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: !,?15,"Green Sheets Placed on Hold for Inspector Review",?70,"Page: ",PG,!,?26,"Run Date: ",RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,"DISP #",?12,"DRUG",?55,"PLACED ON HOLD BY",!,?15,"DATE PLACED ON HOLD",!,?15,"HOLD REMARKS" 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"	START+8, PRINT+1
^DD(58.8	DEV+2
^PSD(58.8 - [#58.8]	ASKD+2, DEV+2, START+2, START+3, START+5
^PSD(58.81 - [#58.81]	START+4, START+8, START+9
^PSDRUG - [#50]	START+6
^PSI(58.2 - [#58.2]	START+2
^TMP("PSDPSI"	START+1!, START+10*, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, END+2!
^VA(200 - [#200]	START+7

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+5, START+6

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+6, PRINT+4, PRINT+5, PRINT+6, END!
DRUGN	START+6*, START+10, END!
DTOUT	END!
DUOUT	END!
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, PRINT+5, PRINT+6, END!, SAVE
NAOU(	ASKN+7, START+2, START+3*, START+4
NODE	START+4*, START+6, START+7, START+10, END!
NUM	START+10, PRINT+4, PRINT+5, PRINT+6, END!
OK	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, END+1!
PSDA	START+4*, START+8, START+9, END+1!
PSDANS	START+9*, START+10, END+1!
PSDBY	START+7*, START+10, END+1!
PSDEV	DEV+2*, DEV+3, END+1!
PSDG	ASKN+5, START+2, END+1!, SAVE
PSDG(	START+2, GROUP+1*
PSDN	START+2*, END+1!
PSDNA	START+5*, START+10, 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	PSDPSI+2, ASKD+1, ASKD+2, ASKD+4, ASKD+7*
PSDSN	ASKD+1, ASKD+6, ASKD+7, END+1!
PSDT	ASKN+4*, END+1!
PSDTH	START+8*, START+10, END+1!
RPDT	PRINT+1*, END+1!, HDR+2
SEL	ASKN+4*, ASKN+5, END+1!
U	ASKD+1, ASKD+2, ASKD+4, ASKD+7
X	ASKN+4, ASKN+8, ASKN+9, END+1!
Y	ASKD+5, ASKD+6, ASKD+7, ASKN+4, ASKN+6, ASKN+7, DEV+2, START+8, 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: PSDPSI

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: