Routine: PSNPFN

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
National Drug File	1	(PKSIZE,PKTYPE)^PSNOUT
VA Fileman	1	^%DT

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

National Drug File

(PKSIZE,PKTYPE)^PSNOUT

VA Fileman

^%DT

Package	Total	Caller Graph
National Drug File	1	PSNPFN

Package

Total

Caller Graph

National Drug File

PSNPFN

Name	Field # of Occurrence
^%DT	TITLE+2
^%ZIS	DVC
^%ZISC	QUEUE, DONE+2
^%ZTLOAD	QUEUE
PKSIZE^PSNOUT	WRITE+8
PKTYPE^PSNOUT	WRITE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"This report can be run before and/or after the menu option ""Verify Matches"".",!,"It should be run before the menu option ""Merge National Drug File Data Into",!,"Local File"". This " Line Location: PSNPFN+2
Function Call: WRITE	Prompt: "report may also be run after the auto-match process to review",!,"what was matched. " Line Location: PSNPFN+3
Function Call: WRITE	Prompt: "It generates a hard copy of the matches selected in the menu",!,"option ""Automatic Match of Unmatched Drugs"" and the menu option ""Verify",!,"Matches"". This report requires 132 columns." Line Location: PSNPFN+4
Function Call: WRITE	Prompt: !,"You may queue the report to print, if you wish.",! Line Location: PSNPFN+5
Function Call: WRITE	Prompt: !,"No data has been generated.",!,"The ""Automatic Match of Unmatched Drugs"" should be run before selecting",!,"this option." Line Location: PSNPFN+6
Function Call: WRITE	Prompt: @IOF Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?33,"DRUG NAME FROM LOCAL DRUG FILE WITH MATCH FROM NATIONAL DRUG FILE" Line Location: TITLE+1
Function Call: WRITE	Prompt: !,?100,"Date printed: ",Y,!?100,"Page: ",PSNPGCT,! Line Location: TITLE+2
Function Call: WRITE	Prompt: !?4,"LOCAL DRUG NAME",?54,"VA PRODUCT NAME",! Line Location: TITLE+3
Function Call: WRITE	Prompt: "-" Line Location: TITLE+4
Function Call: WRITE	Prompt: !,?39,"Entered by: ",PSNNAME Line Location: TITLE+5
Function Call: WRITE	Prompt: !,?38,"Verified by: ",PSNVNAME Line Location: TITLE+6
Function Call: WRITE	Prompt: !!,?4,PSNOLD,?54,PSNNEW,!,?6,"ORDER UNIT: ",$S($D(PSNOUN):PSNOUN,1:""),?56,"PKG SIZE: ",PSNSZE Line Location: WRITE+8
Function Call: WRITE	Prompt: !,?38," NOT VERIFIED " Line Location: WRITE+11
Routine Call	%ZIS Line Location: DVC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TITLE+2
^DIC(51.5 - [#51.5]	WRITE+2
^PS(50.605 - [#50.605]	WRITE+10
^PSDRUG - [#50]	WRITE, WRITE+2
^PSNDF(50.68 - [#50.68]	WRITE+1
^PSNTRAN - [#50.612]	PSNPFN+6, LOOP, WRITE, WRITE+1, WRITE+3, WRITE+4, WRITE+10
^VA(200 - [#200]	WRITE+3, WRITE+4

Name	Line Occurrences
DONE	DVC
DVC	DVC
LOOP	ENQ+2
TITLE	ENQ+2, WRITE+5
WRITE	LOOP

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*, QUEUE!
%ZIS("A"	DVC*
%ZIS("B"	DVC*
IO	ENQ+1
IO("Q"	DVC!, QUEUE!, DONE+1!
IOF	DONE+1, TITLE
IOP	DVC!, QUEUE!, DONE+1!
IOSL	ENQ+2
IOST	DVC
MJLT	PSNPFN+6*!, QUEUE!, DONE+1!
MJT	QUEUE!, DONE+1!, TITLE+4*
POP	DVC!, QUEUE!, DONE+1!
PSNB	DONE+1!, LOOP*, WRITE, WRITE+1, WRITE+2, WRITE+3, WRITE+4, WRITE+10
PSNDUZ	DONE+1!, WRITE+3*
PSNNAME	DONE+1!, TITLE+5, WRITE+3*, WRITE+6
PSNNEW	DONE+1!, WRITE+1*, WRITE+8
PSNNMHLD	ENQ+2, DONE+1!, TITLE+5, WRITE+6
PSNODE	DONE+2!, WRITE+2*, WRITE+9, WRITE+10
PSNOLD	DONE+1!, WRITE*, WRITE+8
PSNOU	DONE+2!, WRITE+2*
PSNOUN	DONE+2!, WRITE+2*, WRITE+8
PSNPC1	DONE+1!, WRITE*
PSNPC2	DONE+1!, WRITE*, WRITE+1
PSNPGCT	ENQ+2, DONE+1!, TITLE, TITLE+2, TITLE+5, TITLE+6
PSNPGLNG	ENQ+2*, DONE+1!, WRITE+5
PSNPRT	ENQ+2, DONE, DONE+2!, WRITE+8
PSNSIZE	DONE+2!, WRITE+1*
PSNSZ	DONE+1!
PSNSZE	DONE+2!, WRITE+8
PSNTPE	DONE+2!, WRITE+9
PSNTYP	DONE+1!
PSNTYPE	DONE+2!, WRITE+1*
PSNVDUZ	DONE+1!, WRITE+4*, WRITE+7, WRITE+11
PSNVHLD	ENQ+2, DONE+1!, TITLE+6, WRITE+7
PSNVNAME	DONE+1!, TITLE+6, WRITE+4*, WRITE+7
>> X	TITLE+2*
Y	DONE+1!, TITLE+2
>> ZTDESC	QUEUE*
>> ZTDTH	QUEUE*
>> ZTQUEUED	DONE+1
>> ZTREQ	DONE+1*
>> ZTRTN	QUEUE*
ZTSK	QUEUE!

Customize PDF page

Package: National Drug File

Routine: PSNPFN

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:

Name	Comments	DBIA/ICR reference
WRITE
TITLE
DVC
QUEUE
ENQ	;ENTRY POINT WHEN QUEUED
DONE
LOOP