Routine: PSDNTR

Information

PSDNTR ;BIR/BJW-CS Transfer Between NAOUs Report ; 11 Feb 98

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Controlled Substances	1	PSD GS TRANSFER (NAOU) REPORT

Entry Points

Name	Comments	DBIA/ICR reference
SAVE
END	;
HDR	;header for log
PRINT	;print transfer between naous by date
DEV	;dev & queue info
START	;compile data
SET	;set data for printing
DONE
DATE	;ask date range
ASKN	;ask NAOU(s)

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
NOW^%DTC	ASKN+2, PRINT+2
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
^DIC	ASKN+3
D^DIQ	DATE+2, DATE+4
^DIR	DONE+1, HDR+1
^PSDSET	PSDNTR+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS reports. PSJ RPHARM security key required.",! Line Location: PSDNTR+4
Function Call: WRITE	Prompt: !!,"CS Transfer Green Sheets Between NAOUs Report",!! Line Location: PSDNTR+5
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DATE+3
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+2
Function Call: WRITE	Prompt: !!,?45,"** NO TRANSFER BETWEEN NAOUs DATA FOR THIS REPORT **" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,NUM,?12,$P(NODE,"^"),?38,$E($P(NODE,"^",4),1,30),?60,$J($P(NODE,"^",3),6),?80,$P(NODE,"^",2),?100,$E($P(NODE,"^",5),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: !,?35,"CS TRANSFER GREEN SHEETS BETWEEN NAOUs REPORT",?120,"Page: ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?35,"FOR PERIOD ",$P(PSDATE,"^")," TO ",$P(PSDATE,"^",2) Line Location: HDR+3
Function Call: WRITE	Prompt: !,?40,"PRINTED ",RPDT,!!,?5,"=> DRUG",! Line Location: HDR+4
Function Call: WRITE	Prompt: ?16,"DATE",?36,"NAOU",?86,"DATE",?104,"NAOU",! Line Location: HDR+5
Function Call: WRITE	Prompt: "DISP #",?11,"TRANSFERRED FROM",?32,"TRANSFERRED FROM",?62,"QUANTITY",?82,"TRANSFERRED IN",?100,"TRANSFERRED IN",!,LN,! Line Location: HDR+6
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: ASKN+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"	PRINT+2, SET+6, SET+7
^PSD(58.8 - [#58.8]	ASKN+5, SET+4, SET+8
^PSD(58.81 - [#58.81]	START+2, SET+1, SET+5
^PSDRUG - [#50]	SET+3
^TMP("PSDNTR"	START+1!, PRINT+3, PRINT+5, PRINT+7, END+3!, SET+10*
^XUSEC("PSJ RPHARM"	PSDNTR+4

Label References

Name	Line Occurrences
DATE	DATE+3
DONE	PRINT+3
END	DATE+1, DATE+2, ASKN+4, DEV+2, DEV+3
HDR	PRINT+3, PRINT+4, PRINT+6
SAVE	DEV+3
SET	START+2

Naked Globals

Name	Field # of Occurrence
^("I"	ASKN+5
^(0	ASKN+5, SET+3, SET+4, SET+8
^(7	START+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+2, END+1!
%DT	DATE+1!*, END+1!
%DT("A"	DATE+1, DATE+2
%H	END+1!
%I	END+1!
%ZIS	DEV+2!*, END+1!
%ZIS("B"	DEV+2*
DA	ASKN+2!, END+1!, HDR+1!
DIC	ASKN+2!, ASKN+3*!, END+1!
DIC("A"	ASKN+3*
DIC("S"	ASKN+3*
DIC(0	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	END+1!, SET+1*, SET+3
DRUGN	END+1!, SET+3*, SET+10
DTOUT	END+1!
DUOUT	END+1!
DUZ	PSDNTR+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+2!*, END+1!, HDR+6
NAOU	ASKN+4, END+1!, SAVE+1, SET+1*, SET+4
NAOU(	ASKN+3, ASKN+5, SET+1
NAOUN	END+1!, SET+4*, SET+10
NAOUT	END+1!, SET+8*
NAOUTN	END+1!, SET+8*, SET+10
NODE	PRINT+7, END+1!, SET+1, SET+2
NODE7	END+1!, SET+5*, SET+8, SET+9
NUM	PRINT+5*, PRINT+7, END+1!
OK	END+1!
PG	PRINT+1, END+2!, HDR+1, HDR+2
POP	DEV+2!, END+2!
PSD	ASKN+5, START+2, PRINT+5*, PRINT+7, END+2!
PSDA	START+2, PRINT+5, PRINT+7, END+2!, SET+1, SET+5, SET+10
PSDATE	DATE+2, DATE+4, END+2!, HDR+3
PSDDT	END+2!
PSDED	DATE+4*, START+2, END+2!
PSDOUT	DATE+1, DATE+2, START+1, PRINT+1, PRINT+5, PRINT+6, DONE+1, END+2!, HDR+1*
PSDPN	END+2!, SET+2*, SET+10
PSDSD	DATE+2, DATE+3, DATE+4, START+2, END+2!
>> PSDSITE	PSDNTR+3, ASKN+5
PSDT	ASKN+2*, ASKN+5, END+2!
QTY	END+2!, SET+9*, SET+10
RPDT	PRINT+2*, END+2!, HDR+4
TRFD	END+2!, SET+5, SET+6, SET+10
TRTD	END+2!, SET+5, SET+6, SET+7, SET+10
X	ASKN+2, ASKN+4, ASKN+5, END+2!
Y	DATE+1, DATE+2, DATE+3, DATE+4, ASKN+3, PRINT+2, END+2!, HDR+1, SET+6, SET+7*
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("NAOU("	SAVE+1*
ZTSAVE("PSDATE"	SAVE*
ZTSAVE("PSDED"	SAVE*
ZTSAVE("PSDSD"	SAVE*
ZTSAVE("PSDSITE"	SAVE*
ZTSK	DEV+3!, END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDNTR

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: