Routine: PSDORSN

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

Package

Total

Call Graph

Kernel

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

VA Fileman

(C,NOW)^%DTC ^DIC ^DIR

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD PEND NAOU ORDERS

Package

Total

Caller Graph

Controlled Substances

PSD PEND NAOU ORDERS

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;asks for all orders
SET	;sets data for printing
END
HDR	;header for log
DEV	;ask device and queue info
START	;loops thru pending orders and orders cancelled in the past 3 days
DONE
DRUG	;select drugs
PRINT	;prints the report
ORD	;order loop
ASKN	;ask naou
SAVE
LOOP	;starts drug loop for all orders

Name	Field # of Occurrence
C^%DTC	START+2
NOW^%DTC	START+2
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+2
^%ZTLOAD	DEV+3
^DIC	ASKN+2, DRUG+2
^DIR	ALL+3, DONE+1, HDR+1
^PSDSET	PSDORSN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to",!,?12,"print this report.",!!,"PSJ RPHARM, PSJ PHARM TECH, PSJ RNURSE, or PSD NURSE security key required.",! Line Location: PSDORSN+4
Function Call: WRITE	Prompt: ! Line Location: ALL+1
Function Call: WRITE	Prompt: ! Line Location: DRUG+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+2
Function Call: WRITE	Prompt: !!,?10,"** NO PENDING ORDERS TO REPORT **" Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,?2,"=> ",PSDR,! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,$P(NODE,"^",4),?11,$P(NODE,"^",3),?33,$J($P(NODE,"^",2),6),?42,$P(NODE,"^") Line Location: PRINT+5
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,"Status of Pending Narcotic Orders",?70,"Page: ",PG,!,?35,NAOUN,!,?35,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?2,"=> DRUG",!,?13,"DATE",?33,"QUANTITY",!,"DISP #",?12,"ORDERED",?33,"ORDERED",?48,"ORDER STATUS" Line Location: HDR+3
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKN+2 DRUG+2
Routine Call	DIR Line Location: ALL+3 DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1, SET+3
^PSD(58.8 - [#58.8]	START+3, START+4, START+5, START+6, LOOP+1, ORD+1, SET+1
^PSD(58.82 - [#58.82]	SET+3
^PSDRUG - [#50]	SET+1
^TMP("PSDNST"	START+1!, PRINT+2, PRINT+3, PRINT+4, PRINT+5, END+2!, SET+4*
^XUSEC("PSD NURSE"	PSDORSN+3
^XUSEC("PSJ PHARM TECH"	PSDORSN+3
^XUSEC("PSJ RNURSE"	PSDORSN+3
^XUSEC("PSJ RPHARM"	PSDORSN+3

Name	Line Occurrences
DEV	ALL+4
END	ASKN+2, ALL+3, DRUG+2, DEV+2, DEV+3, PRINT+2
HDR	PRINT+2, PRINT+4
LOOP	START+3, START+4
ORD	START+5, START+6, LOOP+1
PRINT	START+4
SAVE	DEV+3
SET	ORD+1

Name	Field # of Occurrence
^(0	SET+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
%ZIS	DEV+2!*, END!
%ZIS("B"	DEV+2*
ALL	ALL+3*, ALL+4, START+3, START+4, END!
DA	ASKN+1!, ALL+1!, DRUG+1!, END!, HDR+1!
DA(1	DRUG+2*
DIC	ASKN+1!, ASKN+2!, DRUG+1!, DRUG+2!, END!
DIC("A"	ASKN+1*
DIC("S"	ASKN+2*
DIC("W"	DRUG+1*
DIC(0	ASKN+1, DRUG+2
DIR	ALL+1!, ALL+3!, DONE+1!, END!, HDR+1!
DIR("?"	ALL+2*
DIR("A"	ALL+1, DONE+1
DIR("B"	ALL+1*
DIR(0	ALL+1, DONE+1, HDR+1*
DIROUT	END!
DIRUT	ALL+1!, ALL+3, DONE+1!, END!
DTOUT	END!
DUOUT	END!
DUZ	PSDORSN+3
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOF	DONE, HDR+2
IOP	DEV+2!
IOSL	PRINT+4
IOST	DONE, DONE+1, HDR+1
LN	PRINT+2!*, END!, HDR+4
NAOU	ASKN+3*, DRUG+2, START+6, END!, LOOP+1, ORD+1, SET+1
NAOUN	ASKN+3*, END!, HDR+2
NODE	PRINT+5, END!, SET+1, SET+2, SET+3
OK	PSDORSN+3*, PSDORSN+4!, END!
ORD	PRINT+4, PRINT+5, END!, ORD+1, SET+1, SET+4
PG	PRINT+1, END+1!, HDR+1, HDR+2
POP	DEV+2!, END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+4, DONE+1, END+1!, HDR+1
PSDPN	END+1!, SET+3*, SET+4
PSDR	DRUG+2, START+6, PRINT+3, PRINT+4, PRINT+5, END+1!, LOOP+1*, ORD+1, SET+1, SAVE
PSDRN	END+1!, SET+1*, SET+4
>> PSDSITE	PSDORSN+2
PSDST	START+2*, END+1!, SET+2
PSDT	START+2*, PRINT+1, END+1!
QTY	END+1!, SET+3*, SET+4
REQ	END+1!, SET+3*, SET+4
RPDT	PRINT+1*, END+1!, HDR+2
STAT	START+3, START+4, START+5, START+6, END+1!, LOOP+1, ORD+1, SET+2, SET+3
STATN	END+1!, SET+3*, SET+4
X	START+2, END+1!
X1	START+2*, END+1!
X2	START+2*, END+1!
Y	ASKN+2, ASKN+3, ALL+3, DRUG+2, PRINT+1, END+1!, SET+3, HDR+1
ZTDESC	DEV+3*, END+1!
ZTDTH	DEV+3!, END+1!
ZTIO	DEV+3!
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
ZTRTN	DEV+3*, END+1!
ZTSAVE	DEV+3!, END+1!
ZTSAVE("ALL"	SAVE*
ZTSAVE("NAOU"	SAVE*
ZTSAVE("NAOUN"	SAVE*
ZTSAVE("PSDR"	SAVE*
ZTSK	DEV+3!, END+1!

Customize PDF page

Package: Controlled Substances

Routine: PSDORSN

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: