Routine: PSDPLOG

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

Package

Total

Call Graph

VA Fileman

^%DT NOW^%DTC ^DIC ^DIR

Kernel

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

Controlled Substances

START^PSDPLOG1 ^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD PRINT INSPECTOR LOG

Package

Total

Caller Graph

Controlled Substances

PSD PRINT INSPECTOR LOG

Name	Comments	DBIA/ICR reference
SORT	;asks sort
SORT2	;asks second sort
END
DEV	;ask device and queue info
RDATE	;ask return date
RET	;ask to include returns
MSG
GROUP	;select group of naous
ASKN	;ask naou or group
SAVE

Name	Field # of Occurrence
^%DT	RDATE+1
NOW^%DTC	ASKN+4
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
^DIC	ASKN+6, GROUP+1
^DIR	RET+3, ASKN+4, SORT+3, SORT2+3
START^PSDPLOG1	DEV+4
^PSDSET	PSDPLOG+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print the CS Inspector's Log.",! Line Location: PSDPLOG+4
Function Call: WRITE	Prompt: !,?5,"Inspector's Log for Active Green Sheets",! Line Location: PSDPLOG+5
Function Call: WRITE	Prompt: ! Line Location: RDATE+1
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: ! Line Location: SORT+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+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: DEV+2
Function Call: WRITE	Prompt: !!,"No action taken.",!! Line Location: MSG+0
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKN+6 GROUP+1
Routine Call	DIR Line Location: RET+3 ASKN+4 SORT+3 SORT2+3
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSDLOG"	END+3!

Name	Line Occurrences
ASKN	RET+4
END	RET+3, RDATE+1, ASKN+4, ASKN+5, ASKN+8, SORT+3, SORT2+3, DEV+2, DEV+3
GROUP	ASKN+5
MSG	RET+3, RDATE+1
SAVE	DEV+3
SORT	ASKN+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	RDATE+1!*, END!
%DT("A"	RDATE+1*
%H	END!
%I	END!
%ZIS	DEV+2!*, END!
%ZIS("B"	DEV+2*
ALL	ASKN+9*, END!, SAVE+1
ASK	SORT2+3*, END!
ASKN	SORT+3*, END!
CNT	ASKN+4, ASKN+7, END!
DA	RET+1!, ASKN+2!, ASKN+4!, SORT+1!, SORT2+1!, END!, GROUP+1!
DIC	ASKN+4!, ASKN+6!, END!, GROUP+1!
DIC("A"	ASKN+6, GROUP+1
DIC("S"	ASKN+6, GROUP+1
DIC(0	ASKN+6, GROUP+1
DIE	END!
DIR	RET+1!, RET+3!, ASKN+2!, ASKN+4!, SORT+1!, SORT+3!, SORT2+1!, SORT2+3!, END!
DIR("?"	RET+2, ASKN+3, SORT+2, SORT2+2
DIR("A"	RET+1, ASKN+2, SORT+1, SORT2+2
DIR("B"	RET+1, SORT+1
DIR(0	RET+1, ASKN+2, SORT+1, SORT2+1
DIROUT	END!
DIRUT	RET+1!, RET+3, ASKN+2!, ASKN+4, SORT+1!, SORT+3, SORT2+1!, SORT2+3, END!
DR	END!
DTOUT	END!
DUOUT	END!
EXP	END!
EXPD	END!
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOM	DEV+3
ION	DEV+3
IOP	DEV+2!
IOSL	DEV+3
IOST	DEV+3
JJ	END!
NAOU	ASKN+8, END!, SAVE+1
NAOU(	ASKN+7*
NODE	END!
NODE3	END!
NUM	END!
OK	END+1!
POP	DEV+2!
PSD	END+1!
PSDA	END+1!
PSDDT	END+1!
PSDG	ASKN+5, END+1!, SAVE+1
PSDG(	GROUP+1*
PSDIO	DEV+3*, END+1!
PSDN	END+1!
PSDNA	END+1!
PSDOK	END+1!
PSDOUT	RDATE+1*, END+1!
PSDPT	END+1!
PSDR	END+1!
PSDRD	END+1!
PSDRDT	END+1!
PSDRET	RET+4*, END+1!
PSDRN	END+1!
PSDSD	RDATE+2*, END+1!, SAVE+2
>> PSDSITE	PSDPLOG+3
PSDST	END+1!
PSDT	ASKN+4*, END+1!
PSDTR	END+1!
QTY	END+2!
SEL	ASKN+4*, ASKN+5, END+2!
STAT	END+2!
STATN	END+2!
TYP	END+2!
TYPN	END+2!
X	ASKN+4, ASKN+8, ASKN+9, END+2!
Y	RET+4, RDATE+1, RDATE+2, ASKN+4, ASKN+6, ASKN+7, SORT+3, SORT2+3, END+2!, GROUP+1
ZTDESC	DEV+3*, END+2!
ZTDTH	DEV+3!, END+2!
ZTIO	DEV+3*, END+2!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	DEV+3*, END+2!
ZTSAVE	DEV+3!, END+2!
ZTSAVE("ALL"	SAVE+1*
ZTSAVE("ASK"	SAVE*
ZTSAVE("ASKN"	SAVE*
ZTSAVE("CNT"	SAVE*
ZTSAVE("NAOU("	SAVE+1*
ZTSAVE("PSDG("	SAVE+1*
ZTSAVE("PSDIO"	SAVE*
ZTSAVE("PSDRET"	SAVE+2*
ZTSAVE("PSDSD"	SAVE+2*
ZTSAVE("PSDSITE"	SAVE*
ZTSAVE("PSDT"	SAVE*
ZTSK	DEV+3!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDPLOG

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: