Routine: PSDNBT

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

Package

Total

Call Graph

Kernel

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

VA Fileman

NOW^%DTC ^DIR

Controlled Substances

^PSDSET

Package	Total	Caller Graph
Controlled Substances	1	PSD GS TRANS NOT RECD (NAOU)

Package

Total

Caller Graph

Controlled Substances

PSD GS TRANS NOT RECD (NAOU)

Name	Comments	DBIA/ICR reference
END	;
HDR	;header for log
DEV	;ask device and queue info
START	;compile data
DONE
PRINT	;print

Name	Field # of Occurrence
NOW^%DTC	PRINT+1
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
^DIR	DONE+1, HDR+1
^PSDSET	PSDNBT+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.",! Line Location: PSDNBT+3
Function Call: WRITE	Prompt: !!,"Green Sheets Transferred Between NAOUs Pending Receipt",!! Line Location: PSDNBT+4
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: !!,?30,"** NO GREEN SHEETS TRANSFERRED BETWEEN NAOUs PENDING RECEIPT **",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,?5,"= > ",DRUG,! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,?5,"=> ",DRUG,! Line Location: PRINT+6
Function Call: WRITE	Prompt: !,NUM,?12,$P(NODE,"^",4),?38,$E($P(NODE,"^",2),1,25),?60,$J($P(NODE,"^",3),6),?80,$P(NODE,"^",5),?100,$E($P(NODE,"^"),1,30) Line Location: PRINT+7
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,"GREEN SHEETS TRANSFERRED BETWEEN NAOUs PENDING RECEIPT",?115,"Page: ",PG,!,?40,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !!,?5,"=> DRUG",!,?16,"DATE",?38,"NAOU",?82,"NURSE",?104,"NAOU" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"DISP #",?11,"TRANSFERRED FROM",?32,"TRANSFERRED FROM",?62,"QUANTITY",?80,"TRANSFERRING",?100,"TRANSFERRED TO",!,LN Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+3
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("DD"	START+9, PRINT+1
^PSD(58.8 - [#58.8]	START+2, START+5, START+9
^PSD(58.81 - [#58.81]	START+3, START+4, START+8
^PSDRUG - [#50]	START+7
^TMP("PSDFNDT"	END+3!
^TMP("PSDNBT"	START+1!, START+11*, PRINT+3, PRINT+4, PRINT+5, PRINT+7, END+3!
^VA(200 - [#200]	START+10

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

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
DA	END+1!, HDR+1!
DIC	END+1!
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+7, PRINT+4, PRINT+5, PRINT+6, PRINT+7, END+1!
DRUGN	START+7*, START+11, END+1!
DTOUT	END+1!
DUOUT	END+1!
IO	DEV+4
IO("Q"	DEV+2!, DEV+3!, END+1!
IOF	DONE, HDR+2
IOP	DEV+2!
IOSL	PRINT+6
IOST	DONE, DONE+1, HDR+1
JJ	START+2*, END+1!
LN	PRINT+3!*, END+1!, HDR+4
NAOU	START+5*, START+6, END+1!
NAOU(	START+2*, START+5, START+6
NAOUN	START+5*, START+11, END+1!
NAOUT	START+8*, START+9, END+1!
NAOUTN	START+9*, START+11, END+1!
NODE	START+4, START+5, START+7, PRINT+7, END+1!
NODE7	START+8*, END+1!
NUM	PRINT+5*, PRINT+7, END+1!
NURSF	START+8, START+10, START+11, END+1!
OK	END+2!
PG	PRINT+2, END+2!, HDR+1, HDR+2
PHARM	END+2!
PHARMN	END+2!
POP	DEV+2!, END+2!
PSD	START+3, PRINT+5, PRINT+7, END+2!
PSDA	START+3*, START+4, START+8, START+11, END+2!
PSDDT	END+2!
PSDOUT	PRINT+2, PRINT+4, PRINT+5, PRINT+6, DONE+1, END+2!, HDR+1
PSDPN	START+4*, START+11, END+2!
PSDS	END+2!
>> PSDSITE	PSDNBT+2, START+2
PSDSN	END+2!
PSDST	END+2!
QTY	START+8*, START+11, END+2!
RPDT	PRINT+1*, END+2!, HDR+2
TRFD	START+8, START+9, START+11, END+2!
X	PRINT+1, END+2!
Y	START+9, PRINT+1, END+2!, HDR+1
ZTDESC	DEV+3*, END+2!
ZTDTH	DEV+3!, END+2!
ZTIO	DEV+3!
>> ZTQUEUED	END+3
>> ZTREQ	END+3*
ZTRTN	DEV+3*, END+2!
ZTSAVE	DEV+3!, END+2!
ZTSAVE("PSDSITE"	DEV+3*
ZTSK	DEV+3!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDNBT

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: