Print Page as PDF
PSNNGR ICR (151)

PSNNGR    ICR (151)

Name Value
NUMBER 151
IA # 151
DATE CREATED 1992/03/26
CUSTODIAL PACKAGE NATIONAL DRUG FILE
CUSTODIAL ISC Birmingham
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSNNGR
NAME PSNNGR
ORIGINAL NUMBER 151
GENERAL DESCRIPTION 
The Adverse Reaction Tracking (ART) package can use the
PSNNGR utility from the National Drug File package.  This utility will return
all of the primary ingredients to an entry in the National Drug (50.6) file.
The ART package will use the DISPDRG entry point, if it exists, otherwise ART
will call the routine from the top (i.e., D ^PSNNGR).
STATUS Active
DURATION Till Otherwise Agreed
ID PSNNGR
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT VARIABLES
PSNNGR
VARIABLES TYPE VARIABLES DESCRIPTION
PSNDA Both 
Input/Output = Internal entry number in File 50.6.
PSNID Output 
VA generic name pointer_"A"_VA product name pointer
TMP("PSN",$J,IFN) Output 
^TMP("PSN",$J,IFN)=PI

where:
IFN = internal entry number in File 50.416 of primary ingredient.
PI = Primary ingredient name.
DISPDRG
VARIABLES TYPE VARIABLES DESCRIPTION
PSNDA Input 
Internal entry number to File 50.6.
PSNVPN Input 
Internal entry number of the VA PRODUCT NAMES (#7)
multiple in File 50.6.
TMP("PSNDD",$J,K) Output 
^TMP("PSNDD",$J,K)=DI

where:
K = internal entry number to the Drug Ingredients (#50.416) file
DI = the NAME of the File 50.416 entry
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
ADVERSE REACTION TRACKING Hines