STANDARD DATA DICTIONARY #50.67 -- NDC/UPN FILE 9/29/25 PAGE 1
STORED IN ^PSNDF(50.67, (293253 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of National Drug Codes (NDCs) and Universal Product Numbers (UPNs).
DD ACCESS: @
RD ACCESS: Pp
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
POINTED TO BY: SERVICE IDENTIFICATION CODE field (#.03) of the STC-SVC LINE STAT INFO SEQ [D] sub-field (#368.0121) of the HEALTH
CARE CLAIM RFAI (277) File (#368)
CROSS
REFERENCED BY: VA PRODUCT NAME(ANDC), NDC(NDC), TRADE NAME(T), UPN(UPN)
50.67,.01 SEQUENCE NUMBER 0;1 NUMBER (Required) (audited)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: JUN 04, 1998
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50.67,1 NDC 0;2 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>12!($L(X)<12) X
LAST EDITED: MAY 16, 1998
HELP-PROMPT: Answer must be 12 characters in length.
DESCRIPTION:
This is the 12 character NDC (National Drug Code) for this item.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.67^NDC
1)= S ^PSNDF(50.67,"NDC",$E(X,1,30),DA)=""
2)= K ^PSNDF(50.67,"NDC",$E(X,1,30),DA)
Regular cross reference for lookup.
50.67,2 UPN 0;3 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUN 04, 1998
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
This is the UPN (Universal Product Number) for this item.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.67^UPN
1)= S ^PSNDF(50.67,"UPN",$E(X,1,30),DA)=""
2)= K ^PSNDF(50.67,"UPN",$E(X,1,30),DA)
Regular cross reference for lookup.
50.67,3 MANUFACTURER 0;4 POINTER TO DRUG MANUFACTURER FILE (#55.95) (audited)
LAST EDITED: JUN 16, 1999
DESCRIPTION:
This is the manufacturer of this item.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.67,4 TRADE NAME 0;5 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAY 20, 1998
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
This is the trade name of this item.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.67^T
1)= S ^PSNDF(50.67,"T",X,DA)=""
2)= K ^PSNDF(50.67,"T",X,DA)
50.67,5 VA PRODUCT NAME 0;6 POINTER TO VA PRODUCT FILE (#50.68) (audited)
LAST EDITED: APR 28, 1998
DESCRIPTION:
This is the VA Product associated with this item.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.67^ANDC^MUMPS
1)= S ^PSNDF(50.68,"ANDC",X,DA)=""
2)= K ^PSNDF(50.68,"ANDC",X,DA)
This cross reference sets a cross reference in the VA PRODUCT file (#50.68). In the form of:
^PSNDF(50.68,"ANDC",VA PRODUCT file DA,NDC/UPN file DA)
50.67,6 ROUTE OF ADMINISTRATION 1;0 Multiple #50.676 (Add New Entry without Asking)
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.676,.01 ROUTE OF ADMINISTRATION 0;1 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X Q:'$D(X) S DIC="^PS(51.2,",DIC(0)="QEM" D ^DIC K:Y<0 X S:Y>0 X=$P(Y,"^",2
)
LAST EDITED: NOV 06, 1998
HELP-PROMPT: Answer must be 1-40 characters in length.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50.67,7 INACTIVATION DATE 0;7 DATE (audited)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 23, 1998
DESCRIPTION:
This is the date when this item was made inactive.
TECHNICAL DESCR:
This field will be triggered by an entry of an inactivation date for the corresponding VA product.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.67,8 PACKAGE SIZE 0;8 POINTER TO PACKAGE SIZE FILE (#50.609) (audited)
LAST EDITED: APR 23, 1998
DESCRIPTION:
This is the package size.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.67,9 PACKAGE TYPE 0;9 POINTER TO PACKAGE TYPE FILE (#50.608) (audited)
LAST EDITED: APR 23, 1998
DESCRIPTION:
This is the package type.
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.67,10 OTX/RX INDICATOR 0;10 SET (audited)
'O' FOR Over the counter;
'R' FOR Prescription;
LAST EDITED: APR 23, 1998
AUDIT: YES, ALWAYS
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.67,11 PREVIOUS NDC 2;0 Multiple #50.6711 (Add New Entry without Asking)
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.6711,.01 PREVIOUS NDC 0;1 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1) X
LAST EDITED: APR 23, 1998
HELP-PROMPT: Answer must be 1-12 characters in length.
AUDIT: YES, ALWAYS
CROSS-REFERENCE: 50.6711^B
1)= S ^PSNDF(50.67,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^PSNDF(50.67,DA(1),2,"B",$E(X,1,30),DA)
50.67,12 PREVIOUS UPN 3;0 Multiple #50.6712 (Add New Entry without Asking)
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.6712,.01 PREVIOUS UPN 0;1 FREE TEXT (audited)
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: APR 23, 1998
HELP-PROMPT: Answer must be 1-40 characters in length.
AUDIT: YES, ALWAYS
CROSS-REFERENCE: 50.6712^B
1)= S ^PSNDF(50.67,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PSNDF(50.67,DA(1),3,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
DRUG MANUFACTURER (#55.95) MANUFACTURER (#3)
PACKAGE SIZE (#50.609) PACKAGE SIZE (#8)
PACKAGE TYPE (#50.608) PACKAGE TYPE (#9)
VA PRODUCT (#50.68) VA PRODUCT NAME (#5)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):