Routine: PSNONDF

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	DD^%DT ^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

DD^%DT ^DIR

Package	Total	Caller Graph
National Drug File	1	PSNONDF

Package

Total

Caller Graph

National Drug File

PSNONDF

Name	Field # of Occurrence
DD^%DT	REPRT
^%ZIS	DVC
^%ZISC	QUEUE, DONE+1
^%ZTLOAD	QUEUE
^DIR	ASK

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report should be run after executing the menu option ""Merge National Drug",!,"File Data Into Local File""." Line Location: PSNONDF+5
Function Call: WRITE	Prompt: " It gives you a hard copy of the drugs from your",!,"local DRUG file which are ""active"" and have" Line Location: PSNONDF+6
Function Call: WRITE	Prompt: " no match to NDF. You have the choice",!,"to print ALL drugs or only drugs marked for Outpatient use. If you answer ""yes"" to the question, you will print all. If you answer ""no"", you will print only",!,"Outpatient use drugs." Line Location: PSNONDF+7
Function Call: WRITE	Prompt: !,"You may queue the report to print, if you wish.",! Line Location: PSNONDF+8
Function Call: WRITE	Prompt: !!,"Do you wish to print ALL drugs from your local file? " Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?23,"LOCAL DRUGS WITH NO MATCH TO NDF",! Line Location: TITLE+1
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?55,"Page: ",PSNPGCT,! Line Location: TITLE+2
Function Call: WRITE	Prompt: !?54,"DEA,",!?46,"MANUAL",?54,"SPCL",?61,"INACTIVE" Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"LOCAL DRUG GENERIC NAME",?46,"CLASS",?54,"HDLG",?61,"DATE",! Line Location: TITLE+4
Function Call: WRITE	Prompt: "-" Line Location: TITLE+5
Function Call: WRITE	Prompt: !!,PSNLCL,?46,PSNVCL,?54,DEA Line Location: REPRT+0
Function Call: WRITE	Prompt: ?61,Y Line Location: REPRT+0
Routine Call	DIR Line Location: ASK
Routine Call	%ZIS Line Location: DVC

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+2
^PSDRUG - [#50]	OUTPAT, NOTHG, MCLS
^PSDRUG("B"	LOOP

Name	Line Occurrences
CHECK	LOOP
DONE	DVC
DVC	DVC
LOOP	ENQ+2
MCLS	CHECK, OUTPAT
NOTHG	CHECK, OUTPAT
OUT	ASK
OUTPAT	CHECK+1
REPRT	NOTHG, MCLS
TITLE	ENQ+2, REPRT

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*
%ZIS("A"	DVC*
%ZIS("B"	DVC*
DEA	DONE+1!, NOTHG, MCLS, REPRT
DIR	ASK!, DONE+1!
DIR(0	ASK*
DT	TITLE+2
>> DTOUT	OUT
INDT	DONE+1!, NOTHG, MCLS, REPRT
IO	ENQ+1
IO("Q"	DVC!, QUEUE!, DONE+1!
IOF	DONE+1, TITLE
IOP	DVC!, DONE+1!
IOSL	ENQ+2
IOST	DVC
MJT	DONE+1!, TITLE+5*
POP	DVC!, DONE+1!
PSNB	DONE+1!, LOOP*, OUTPAT, NOTHG, MCLS
PSNFLAG	ASK!, DONE+1!, OUT, OUT+1*
PSNLCL	DONE+1!, LOOP*, REPRT
PSNMC	DONE+1!, MCLS*
PSNOP	ASK!, ASK+1, DONE+1!, CHECK, CHECK+1
PSNPGCT	ENQ+2, DONE+1!, TITLE, TITLE+2
PSNPGLNG	ENQ+2*, DONE+1!, REPRT
PSNPRT	ENQ+2, DONE, DONE+1!, REPRT+1
PSNUSE	DONE+1!, OUTPAT*
PSNVCL	DONE+1!, NOTHG, MCLS, REPRT
X	ASK!, ASK+1, DONE+1!, OUT+1
Y	DONE+1!, TITLE+2, REPRT
>> ZTDESC	QUEUE*
>> ZTQUEUED	DONE+1
>> ZTREQ	DONE+1*
>> ZTRTN	QUEUE*
>> ZTSAVE("PSNOP"	QUEUE*
ZTSK	QUEUE!

Customize PDF page

Package: National Drug File

Routine: PSNONDF

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: