Routine: PSDCRP

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 GS DISCREPANCY REPORT

Package

Total

Caller Graph

Controlled Substances

PSD GS DISCREPANCY REPORT

Name	Comments	DBIA/ICR reference
END	;
HDR	;header for log
START	;compile data
DEV	;ask device and queue info
ASKD	;ask dispensing location
DONE
PRINT	;print comp stat discrep report
ASKN	;ask NAOU(s)

Name	Field # of Occurrence
NOW^%DTC	PRINT+1
^%ZIS	DEV+3
HOME^%ZIS	DEV+4
^%ZISC	END+3
^%ZTLOAD	DEV+4
^DIC	ASKD+6, ASKN+3
Y^DIQ	DEV+2
^DIR	DONE+1, HDR+1
^PSDSET	PSDCRP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"review this narcotics report.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",! Line Location: PSDCRP+4
Function Call: WRITE	Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!! Line Location: ASKN+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+3
Function Call: WRITE	Prompt: !!,?40,"** NO PENDING GREEN SHEET DISCREPANCIES **",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?2,"=> ",PSD,! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,?2,"=> ",PSD,! Line Location: PRINT+6
Function Call: WRITE	Prompt: !,NUM,?15,$P(NODE,"^"),?58,$P(NODE,"^",5),?80,$P(NODE,"^",2) Line Location: PRINT+7
Function Call: WRITE	Prompt: ?25,"**Reason Referred: ",$P(NODE,"^",6),! Line Location: PRINT+9
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?45,"Green Sheet Discrepancies Report",?115,"Page: ",PG,!,?48,"Date Printed: ",RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?2,"=> NAOU",!,"DISP #",?15,"DRUG",?58,"DATE POSTED",?80,"COMPLETION STATUS" 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+6 ASKN+3
Routine Call	DIR Line Location: DONE+1 HDR+1
Routine Call	%ZIS Line Location: DEV+3

Global Variables Directly Accessed

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

Name	Line Occurrences
ASKN	ASKD+2
DONE	PRINT+3
END	ASKD+6, ASKN+4, DEV+3, DEV+4
HDR	PRINT+3, PRINT+4, PRINT+6

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
%ZIS	DEV+3!*, END+1!
%ZIS("B"	DEV+3*
C	DEV+2*, END+1!
DA	ASKD+3!, ASKN+2!, END+1!, HDR+1!
DIC	ASKD+3!, ASKD+6!, ASKN+2!, ASKN+3!, END+1!
DIC("A"	ASKD+4, ASKN+3
DIC("B"	ASKD+5*
DIC("S"	ASKD+3, ASKN+3
DIC(0	ASKD+3, ASKN+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!
DRUG	START+5*, END+1!
DRUGN	START+5*, START+10, END+1!
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDCRP+3
IO	DEV+5
IO("Q"	DEV+3!, DEV+4!
IOF	DONE, HDR+2
IOP	DEV+3!
IOSL	PRINT+6
IOST	DONE, DONE+1, HDR+1
LN	PRINT+3!*, END+1!, HDR+4
NAOU	ASKN+4, DEV+4, END+1!
NAOU(	ASKN+3, ASKN+5, START+2
NAOUN	START+4*, START+10, END+1!
NODE	START+3, START+5, START+9, PRINT+7, PRINT+8, PRINT+9, END+1!
NUM	PRINT+4*, PRINT+5, PRINT+7, END+1!
NURS	START+7*, END+1!
NURSN	START+7*, START+10, END+1!
OK	PSDCRP+3*, PSDCRP+4!, END+2!
PG	PRINT+2, END+2!, HDR+1, HDR+2
PHARM	START+6*, END+2!
PHARMN	START+6*, START+10, END+2!
POP	DEV+3!, END+2!
PSD	ASKN+5, START+2, START+4, PRINT+4*, PRINT+5, PRINT+6, PRINT+7, END+2!
PSDA	START+2, START+3, START+6, START+7, START+8, START+10, PRINT+5, PRINT+7, END+2!
PSDEV	DEV+2*, DEV+3, END+2!
PSDOUT	PRINT+2, PRINT+4, PRINT+5, PRINT+6, DONE+1, END+2!, HDR+1
PSDPN	START+3*, START+10, END+2!
PSDS	ASKD+1, ASKD+7, ASKN+5, DEV+2, START+2, END+2!
>> PSDSITE	PSDCRP+2, ASKD+1, ASKD+2, ASKD+7*
PSDSN	ASKD+1, ASKD+5, ASKD+7, END+2!
PSDST	START+9*, START+10, END+2!
REAS	START+8*, START+10, END+2!
RPDT	PRINT+1*, END+2!, HDR+2
STAT	START+2*, START+3, END+2!
STATN	START+3*, START+10, END+2!
U	ASKD+1, ASKD+2, ASKD+7
X	ASKN+4, ASKN+5, PRINT+1, END+2!
Y	ASKD+6, ASKD+7, ASKN+3, DEV+2, START+9, PRINT+1*, END+2!, HDR+1
ZTDESC	DEV+4*, END+2!
ZTDTH	DEV+4!, END+2!
ZTIO	DEV+4!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+4*, END+2!
ZTSAVE	DEV+4!, END+2!
ZTSAVE("NAOU("	DEV+4*
ZTSAVE("PSDS"	DEV+4*
ZTSK	DEV+4!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDCRP

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: