Routine: PSNUPN

Package	Total	Call Graph
VA Fileman	3	DD^%DT IX^DIC ^DIR

Package	Total	Caller Graph
National Drug File	1	PSNUPN

Entry Points

External References

Name	Field # of Occurrence
DD^%DT	DSPLY+3
IX^DIC	NCODE, UCODE
^DIR	START

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option allows you to pick an NDC or UPN and the corresponding",!,"information from NDC/UPN file will be displayed to the screen. ",! Line Location: EXPLN+0
Function Call: WRITE	Prompt: !,"Do you want to Inquire on an NDC or UPN:" Line Location: START+0
Function Call: WRITE	Prompt: !!,?5,"When selecting by NDC, use a 12 character format for",!,?5,"the NDC. (i.e., 510000033058)",!! Line Location: NCODE+0
Function Call: WRITE	Prompt: !! Line Location: INFO+1
Function Call: WRITE	Prompt: @IOF Line Location: DSPLY+0
Function Call: WRITE	Prompt: ! Line Location: DSPLY+0
Function Call: WRITE	Prompt: ! Line Location: DSPLY+0
Function Call: WRITE	Prompt: ! Line Location: DSPLY+0
Function Call: WRITE	Prompt: "UPN: ",UPN1 Line Location: DSPLY+1
Function Call: WRITE	Prompt: ?45,"OTX/RX Indicator: ",IND Line Location: DSPLY+1
Function Call: WRITE	Prompt: !,"Manufacturer: ",MN Line Location: DSPLY+2
Function Call: WRITE	Prompt: ?45,"Inactivation Date: " Line Location: DSPLY+3
Function Call: WRITE	Prompt: Y Line Location: DSPLY+3
Function Call: WRITE	Prompt: !,"Trade Name: ",TRAD Line Location: DSPLY+4
Function Call: WRITE	Prompt: !,"VA Product Name: ",VAPN Line Location: DSPLY+5
Function Call: WRITE	Prompt: !,"Package Size: ",PS,?45,"Package Type: ",PT Line Location: DSPLY+6
Function Call: WRITE	Prompt: !,?27,RT Line Location: DSPRT+0
Function Call: WRITE	Prompt: !?5,$P(^PSNDF(50.67,ENT,2,XX,0),"^") Line Location: DSPREV+0
Function Call: WRITE	Prompt: !?5,$P(^PSNDF(50.67,ENT,3,QQ,0),"^") Line Location: DSPREV1+0
Function Call: WRITE	Prompt: !,"***DISCLAIMER: This option is designed to give the user information on a NDC",!,"or UPN entry. Unfortunately, at this time, the UPN field has not been populated" Line Location: DISC+0
Function Call: WRITE	Prompt: !,"with data. This disclaimer will be removed once the data is entered for this",!,"field.",!! Line Location: DISC+1
Routine Call	DIR Line Location: START
Routine Call	DIC Line Location: NCODE UCODE

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.608 - [#50.608]	INFO+1
^PS(50.609 - [#50.609]	INFO+1
^PS(55.95 - [#55.95]	INFO
^PSNDF(50.67 - [#50.67]	INFO, DSPRT, DSPREV, DSPREV1
^PSNDF(50.68 - [#50.68]	INFO

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	NCODE, UCODE
DIC	NCODE!, UCODE!
DIC(0	NCODE, UCODE
>> DIR("B"	START*
>> DIR(0	START*
>> DIRUT	PSNUPN+3, START
>> DUOUT	START
ENT	DONE!, NCODE+1, INFO, DSPRT, DSPREV, DSPREV1, UCODE+1
GOT	DONE!, INFO*, INFO+1
IND	DONE!, INFO+1*, DSPLY, DSPLY+1
INDTE	DONE!, INFO*, DSPLY+3
IOF	DSPLY
MN	DONE!, INFO*, DSPLY+2
MNP	DONE!, INFO*
NDC1	DONE!, INFO*, DSPLY
OTRX	DONE!, INFO+1*
PS	DONE!, INFO+1*, DSPLY+6
PSNFL	PSNUPN+3, DONE!, NCODE, UCODE*
PSNINQ	DONE!, START*
PSNMM	PSNUPN+3*, DONE!
PSP	DONE!, INFO*, INFO+1
PT	DONE!, INFO+1*, DSPLY+6
PTP	DONE!, INFO*, INFO+1
QQ	DONE!, DSPREV1*
RT	DONE!, DSPRT*
RTP	DONE!
TRAD	DONE!, INFO*, DSPLY+4
UPN1	DONE!, INFO*, DSPLY+1
VAP	DONE!, INFO*
VAPN	DONE!, INFO*, DSPLY+5
X	DONE!
XX	DONE!, DSPREV*
Y	DONE!, NCODE, NCODE+1, DSPLY+3*, UCODE, UCODE+1
Y(0	START
ZZ	DONE!, DSPRT*

Customize PDF page

Package: National Drug File

Routine: PSNUPN

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
DISC	PSNUPN+3
DSPLY	INFO+1
DSPREV	INFO+1
DSPREV1	INFO+1
DSPRT	INFO+1
EXPLN	PSNUPN+3
INFO	NCODE+1, UCODE+1
NCODE	START
START	PSNUPN+3
UCODE	START