Routine: PSDEVOR

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC (D,Y)^DIQ ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Controlled Substances	1	^PSDSET

Package

Total

Call Graph

VA Fileman

^%DT ^DIC (D,Y)^DIQ ^DIR

Kernel

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

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD EDIT/CANC VER ORD RPT

Package

Total

Caller Graph

Controlled Substances

PSD EDIT/CANC VER ORD RPT

Name	Comments	DBIA/ICR reference
DATE
END	;
HDR	;header
START	;entry for compile
PRINT	;prints data
DEV	;sel device
ASKD	;ask disp location
DONE
CHKD
SAVE

Name	Field # of Occurrence
^%DT	DATE, DATE+1
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+4
^%ZTLOAD	DEV+3
^DIC	ASKD+5
D^DIQ	DATE+1, DATE+3
Y^DIQ	DEV+1
^DIR	DONE+1, HDR+1
^PSDSET	PSDEVOR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Contact your Pharmacy Coordinator for access to print the Edit Verified",!,"Orders data. PSJ RPHARM security key required.",!! Line Location: PSDEVOR+4
Function Call: WRITE	Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!! Line Location: CHKD+0
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+2
Function Call: WRITE	Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",! Line Location: DEV+2
Function Call: WRITE	Prompt: !!,?15,"** NO VERIFIED ORDERS EDITED OR CANCELLED **",!! Line Location: PRINT+2
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: !,?20,"Edited or Verified Orders for ",PSDSN,?115,"Page: ",PG,!,?20,"Date: ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!! Line Location: HDR+2
Function Call: WRITE	Prompt: ?70,"ORIG",?78,"NEW",! Line Location: HDR+3
Function Call: WRITE	Prompt: "DISP #",?10,"DRUG",?52,"ACTION",?62,"DATE",?70,"QTY",?78,"QTY",?86,"MFG/LOT #/EXP.DATE",?110,"PHARMACIST",!,LN,!! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKD+5
Routine Call	DIR Line Location: DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	DEV+1
^PSD(58.8 - [#58.8]	CHKD, DEV+1
^PSD(58.81 - [#58.81]	START+2, START+3, START+4, START+6, START+7
^PSDRUG - [#50]	START+5
^TMP("PSDEVOR"	START+1!, START+8*, PRINT+2, PRINT+3, PRINT+4, END+3!
^VA(200 - [#200]	START+6, START+7
^XUSEC("PSJ RPHARM"	PSDEVOR+4

Name	Line Occurrences
CHKD	ASKD+2
DATE	DATE+2
DONE	PRINT+2
END	ASKD+5, CHKD, DATE, DATE+1, DEV+2, DEV+3
HDR	PRINT+1, PRINT+6
SAVE	DEV+3

Name	Field # of Occurrence
^(0	START+4, START+5
^(4	START+6
^(5	START+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	DATE!*, END+1!
%DT("A"	DATE, DATE+1
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
ACT	START+6, START+7, START+8, END+1!
C	DEV+1*, END+1!
DA	ASKD+3!, END+1!, HDR+1!
DATE	PRINT+4*, PRINT+7, END+1!
DIC	ASKD+3!*, ASKD+5!, END+1!
DIC("A"	ASKD+4*
DIC("B"	ASKD+4*
DIC("S"	ASKD+3*
DIC(0	ASKD+3*
DIR	DONE+1!, END+1!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDEVOR+4
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!
IOF	DONE, HDR+2
IOP	DEV+2!
IOSL	PRINT+6
IOST	DONE, DONE+1, HDR+1
LN	PRINT+1!*, END+1!, HDR+4
MFG	START+6, START+7, START+8, PRINT+5*, PRINT+7, END+1!
NODE	START+4, PRINT+4, PRINT+5, PRINT+7, END+1!
NQTY	START+6, START+7, START+8, END+1!
NUM	PRINT+3*, PRINT+4, PRINT+7, END+1!
PG	PRINT+1, END+2!, HDR+1, HDR+2
PHARM	START+6, START+7, START+8, END+2!
POP	DEV+2!, END+2!
PSD	START+2, START+3, START+8, PRINT+3, PRINT+4, END+2!
PSD1	START+1*, START+3, END+2!
PSD2	START+1*, START+3, END+2!
PSDA	START+3*, START+4, START+6, START+7, END+2!
PSDATE	DATE+1, DATE+3, END+2!, HDR+2
PSDED	DATE+3*, START+2, END+2!
PSDEV	DEV+1*, DEV+2, END+2!
PSDOUT	PRINT+1, PRINT+3, PRINT+6, DONE+1, END+2!, HDR+1
PSDPN	START+4*, START+8, END+2!
PSDR	START+2*, START+3, START+5, END+2!
PSDRN	START+5*, START+8, END+2!
PSDS	ASKD+1, ASKD+6, CHKD, DEV+1, START+2, START+3, END+2!
PSDSD	DATE+1, DATE+2, DATE+3, START+2, END+2!
>> PSDSITE	PSDEVOR+3, ASKD+1, ASKD+2, ASKD+6*
PSDSN	ASKD+1, ASKD+4, ASKD+6, END+2!, HDR+2
PSDTYP	START+3*, START+6, START+7, START+8, END+2!
QTY	START+4*, START+8, END+2!
TYPE	PRINT+3*, PRINT+4, END+2!
U	ASKD+1, ASKD+2, ASKD+6
X	END+2!
Y	ASKD+5, ASKD+6, DATE, DATE+1, DATE+2, DATE+3, DEV+1*, END+2!, HDR+1
ZTDESC	DEV+3*, END+3!
ZTDTH	DEV+3!, END+3!
ZTIO	DEV+3!, END+3!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	DEV+3*, END+3!
ZTSAVE	DEV+3!, END+3!
ZTSAVE("PSDATE"	SAVE+1*
ZTSAVE("PSDED"	SAVE+1*
ZTSAVE("PSDS"	SAVE*
ZTSAVE("PSDSD"	SAVE+1*
ZTSAVE("PSDSN"	SAVE*
ZTSK	DEV+3!, END+3!

Customize PDF page

Package: Controlled Substances

Routine: PSDEVOR

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: