Routine: PSNGPN

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIR

Package	Total	Caller Graph
National Drug File	1	PSNVAPRINT

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	DVC
^%ZISC	DONE
^%ZTLOAD	QUEUE
^DIR	EN+1, EN+6, ASKA+3, DEV+3, TITLE, END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," This report shows a list of the active drugs in local DRUG file where the",!," GENERIC NAME does not match the VA PRINT NAME." Line Location: PSNGPN+5
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+1
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: EN+6
Function Call: WRITE	Prompt: !!,"To see drugs beginning with the letter 'A', enter 'A', or whichever letter you",!,"wish to see. To see drugs in a range, for example drugs starting with the",!,"letters 'G', 'H', 'I' and 'J', enter in the format 'G-J'.",! Line Location: ASKA+1
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: ASKA+3
Function Call: WRITE	Prompt: !!,"Invalid response , enter a letter, 'A', 'B', etc., or a range, 'C-F', 'M-R', etc.",! Line Location: ASKA+4
Function Call: WRITE	Prompt: !!,"Invalid response.",! Line Location: ASKA+5
Function Call: WRITE	Prompt: !!,"This report will include drugs starting with the letter "_$G(PSNBEG)_",",!,"and ending with drugs starting with the letter "_$G(PSNEND)_".",! Line Location: DEV+0
Function Call: WRITE	Prompt: !!,"This report will be for drugs with leading numerics.",! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"This report will be for all drugs.",! Line Location: DEV+2
Function Call: WRITE	Prompt: ! Line Location: DEV+3
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: DVC+0
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: QUEUE+0
Function Call: WRITE	Prompt: !!,$P(^PSDRUG(PSNB,0),"^"),?43,PSNVA Line Location: CHECK+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,?25,PSNAM,!,?(80-$L(PSNAM1)\2),PSNAM1,! Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?69,"Page: ",PSNPGCT,! Line Location: TITLE+4
Function Call: WRITE	Prompt: !,"Generic Name",?43,"VA Print Name",! Line Location: TITLE+5
Function Call: WRITE	Prompt: "-" Line Location: TITLE+6
Function Call: WRITE	Prompt: !!,"End of Report.",! Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Routine Call	DIR Line Location: EN+1 EN+6 ASKA+3 DEV+3 TITLE END
Routine Call	%ZIS Line Location: DVC

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+4
^PSDRUG - [#50]	CHECK, CHECK+1
^PSDRUG("B"	EN+5, LOOP, LOOP+1
^PSNDF(50.68 - [#50.68]	CHECK+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*
%ZSI	QUEUE!
DEA	DONE!
DIR	EN+1!, EN+6!, ASKA+3!, DEV+3!, TITLE!, END!, DONE!
DIR("?"	EN+2, EN+8, ASKA+2*
DIR("A"	EN+1, EN+6, ASKA+3, DEV+3, END*
DIR("B"	EN+1, EN+6, DEV+3*
DIR(0	EN+1, EN+6, ASKA+3, DEV+3, TITLE, END
DT	CHECK, TITLE+4
>> DTOUT	EN+1, EN+6, ASKA+3
>> DUOUT	EN+1, EN+6, ASKA+3
INDT	DONE!
IO	START+1
IO("Q"	QUEUE, DONE!
IOF	TITLE+3, END+2, DONE
IOP	DVC!, DONE!
IOSL	START+3
IOST	START+2
MJT	TITLE+6*, DONE!
POP	DVC!, DONE!
PSNAM	TITLE+1*, TITLE+3, DONE!
PSNAM1	TITLE+2*, TITLE+3, DONE!
PSNB	LOOP+1*, CHECK, CHECK+1, DONE!
PSNBEG	EN!, EN+3, ASKA!, ASKA+5, ASKA+6*, DEV, START+4, TITLE+2
PSND3	CHECK+1*, DONE!
PSNDV	START+2*, TITLE, END, END+1, DONE!
PSNEND	EN!, EN+3, ASKA!, ASKA+5, ASKA+6, DEV, START+5, LOOP, TITLE+2
PSNFLAG	DONE!
PSNHOW	EN!, EN+3*
PSNLCL	START+4, START+5, LOOP*, LOOP+1, DONE!
PSNMC	CHECK*, CHECK+1, DONE!
PSNOP	DONE!
PSNOUT	START+2, LOOP, CHECK+1, TITLE, END, DONE!
PSNPGCT	START+3, TITLE, TITLE+4, TITLE+7, DONE!
PSNPGLNG	START+3*, CHECK+1, DONE!
PSNPRT	DONE!
PSNSRT	EN!, EN+3, EN+9, ASKA+7*, DEV, DEV+1, DEV+2, START+4, START+5, LOOP , TITLE+2
PSNUMB	EN+5*, EN+10!
PSNUMBX	EN!, EN+5*, EN+6, EN+9, EN+10!
PSNUSE	DONE!
PSNVA	CHECK+1*, DONE!
PSNVCL	DONE!
PSNX	START+4*, DONE!
X	ASKA+4*, ASKA+5, ASKA+6, DONE!
Y	EN+1, EN+3, EN+6, EN+9, ASKA+3, ASKA+4, DEV+3, TITLE, TITLE+4*, DONE!
>> ZTDESC	QUEUE*
>> ZTQUEUED	DONE
>> ZTREQ	DONE*
>> ZTRTN	QUEUE*
>> ZTSAVE("PSNBEG"	QUEUE*
>> ZTSAVE("PSNEND"	QUEUE*
>> ZTSAVE("PSNHOW"	QUEUE*
>> ZTSAVE("PSNSRT"	QUEUE*

Customize PDF page

Package: National Drug File

Routine: PSNGPN

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
ASKA	ASKA+4, ASKA+5
CHECK	LOOP+1
DEV	EN+3, EN+9
DONE	EN+1, EN+6, ASKA+3, DVC, QUEUE
EN	DEV+3
END	LOOP+2
TITLE	START+3, CHECK+1