Routine: PSDPAT

Information

PSDPAT ;B'ham ISC/BJW - Prt Data from TRAKKER (Patient/Drug) ; 11 Feb 98

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	4	^%DT ^DIC D^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	2	START^PSDPAT1 ^PSDSET
Registration	1	KVAR^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSD NURSE DISP REPORT

Entry Points

Name	Comments	DBIA/ICR reference
SUM	;ask detail or summary
ASKN	;select NAOU for report
CHKD
DRUG	;ask drug
DATE
DEV	;sel device
END	;
SAVE	;sets variables for queueing

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+1
^%ZIS	DEV+1
^%ZISC	END+5
^%ZTLOAD	DEV+2
^DIC	ASKN+4, DRUG+3
D^DIQ	DATE+1, DATE+3
^DIR	SUM+4
START^PSDPAT1	DEV+3
^PSDSET	PSDPAT+3
KVAR^VADPT	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Contact your Nursing ADP Coordinator for access to display the Dispensing Report.",!! Line Location: PSDPAT+5
Function Call: WRITE	Prompt: !!,"This NAOU does not maintain a perpetual inventory balance to list",!,"Dispensing data.",!! Line Location: ASKN+5
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for the NAOU you selected.",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!! Line Location: DRUG+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+2
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+2
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: DATE+4
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",! Line Location: DEV+1
Routine Call	DIC Line Location: ASKN+4 DRUG+3
Routine Call	DIR Line Location: SUM+4
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	ASKN+5, CHKD
^TMP("PSDPAT"	END+4!
^TMP("PSDPATL"	END+4!
^XUSEC("PSD NURSE"	PSDPAT+4
^XUSEC("PSJ RNURSE"	PSDPAT+4

Label References

Name	Line Occurrences
ASKN	ASKN+5, CHKD
DATE	DATE+2
END	SUM+4, ASKN+4, DRUG+5, DATE, DATE+1, DEV+1, DEV+2
SAVE	DEV+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+2!
%DT	DATE!*, END+2!
%DT("A"	DATE, DATE+1
%H	END+2!
%I	END+2!
%ZIS	DEV+1!*, END+2!
ALL	DRUG+6*, END+2!, SAVE+2
CNT	END+2!
DA	SUM+1!, ASKN+1!, DRUG+2!, END+2!
DA(1	DRUG+3*
DATE	END+2!
DIC	ASKN+1!, ASKN+2, ASKN+4!, DRUG+2!, DRUG+3!, END+2!
DIC("A"	ASKN+2*
DIC("B"	ASKN+2*
DIC("S"	ASKN+3*
DIC("W"	DRUG+3*
DIC(0	ASKN+2, DRUG+3
DIR	SUM+1!, SUM+4!, END+2!
DIR("?"	SUM+3*
DIR("A"	SUM+2*
DIR(0	SUM+1*
DIROUT	END+2!
DIRUT	SUM+1!, SUM+4, END+2!
DTOUT	END+2!
DUOUT	END+2!
DUZ	PSDPAT+4
IO	DEV+3
IO("Q"	DEV+1!, DEV+2!
IOP	DEV+1!
LN	END+2!
LOOP	END+2!
NAOU	ASKN+4*, ASKN+5!, CHKD, DRUG+3, END+2!
NAOUN	ASKN+2, ASKN+4*, ASKN+5!, END+2!
NODE	END+2!
NODE9	END+2!
NUR1	END+2!
NUR2	END+2!
>> OK	PSDPAT+4*
PAT	END+3!
PG	END+3!
POP	DEV+1!, END+3!
PSD	END+3!
PSD1	END+3!
PSDA	END+3!
PSDATE	DATE+1, DATE+3, END+3!
PSDED	DATE+3*, END+3!
PSDOUT	END+3!
PSDPN	END+3!
PSDR	END+3!
PSDRG	DRUG+5, END+3!, SAVE+2
PSDRG(	DRUG+4*
PSDRGN	END+3!
PSDSD	DATE+1, DATE+2, DATE+3, END+3!
>> PSDSITE	PSDPAT+3
QTY	END+3!
SUM	SUM+4*, END+3!
TYP	END+3!
VA	END+1!
X	DRUG+5, DRUG+6, END+3!
Y	SUM+4, ASKN+4, DRUG+3, DRUG+4, DATE, DATE+1, DATE+2, DATE+3, END+3!
Y(0	DRUG+4
ZTDESC	DEV+2*, END+4!
ZTDTH	DEV+2!, END+4!
ZTIO	DEV+2!, END+4!
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
ZTRTN	DEV+2*, END+4!
ZTSAVE	DEV+2!, END+4!
ZTSAVE("ALL"	SAVE+2*
ZTSAVE("NAOU"	SAVE+1*
ZTSAVE("NAOUN"	SAVE+1*
ZTSAVE("PSDATE"	SAVE+1*
ZTSAVE("PSDED"	SAVE+1*
ZTSAVE("PSDIO"	SAVE+1*
ZTSAVE("PSDRG("	SAVE+2*
ZTSAVE("PSDSD"	SAVE+1*
ZTSAVE("SUM"	SAVE+1*
ZTSK	DEV+2!, END+4!

Customize PDF page

Package: Controlled Substances