Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSNUPN

Package: National Drug File

Routine: PSNUPN


Information

PSNUPN ;BIR/WRT-Allows user to lookup one or more entries from NDC/UPN file ; 11/06/98 9:12

Source Information

Source file <PSNUPN.m>

Call Graph

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
National Drug File 1 PSNUPN  

Entry Points

Name Comments DBIA/ICR reference
DONE
EXPLN
START
NCODE
INFO
DSPLY
DSPRT
DSPREV
DSPREV1
UCODE
DISC

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
  • DIC
  • Line Location:
    • NCODE
    • UCODE
Routine Call
  • DIR
  • Line Location:
    • START

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSNDF(50.67 - [#50.67] Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All