STANDARD DATA DICTIONARY #50.612 -- NATIONAL DRUG TRANSLATION FILE 9/29/25 PAGE 1
STORED IN ^PSNTRAN( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains information on drugs that have been matched, or for which a match was attempted to the National Drug File.
CROSS
REFERENCED BY: PSNDF DA(B), END(C), LAST UNMATCHED DRUG CLASSED(D), LAST SUPPLY ITEM RE-CLASSED(E)
50.612,.001 PSDRUG DA NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 21, 1986
HELP-PROMPT: Type a whole number between 1 and 999999999.
DESCRIPTION:
Pointer to ^PSDRUG file (#50).
50.612,.01 PSNDF DA 0;1 POINTER TO VA GENERIC FILE (#50.6) (Required)
LAST EDITED: SEP 20, 1998
DESCRIPTION:
Pointer to ^PSNDF file (#50.6).
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.612^B
1)= S ^PSTRAN("B",$E(X,1,30),DA)=""
2)= K ^PSTRAN("B",$E(X,1,30),DA)
50.612,1 VA PRODUCT NAME DA 0;2 POINTER TO VA PRODUCT FILE (#50.68)
LAST EDITED: SEP 20, 1998
DESCRIPTION:
Pointer to VA PRODUCT file (#50.68).
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,2 VA CLASS 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 21, 1986
HELP-PROMPT: Type a whole number between 1 and 999.
DESCRIPTION:
Pointer to VA Drug Class file (#50.605).
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,4 PACKAGE SIZE PTR 0;5 POINTER TO PACKAGE SIZE FILE (#50.609)
LAST EDITED: DEC 08, 1987
DESCRIPTION:
Pointer to Package Size file (#50.609).
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,6 PACKAGE TYPE PTR 0;7 POINTER TO PACKAGE TYPE FILE (#50.608)
LAST EDITED: DEC 08, 1987
DESCRIPTION:
Pointer to Package Type file (#50.608).
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,7 DUZ # 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 25, 1992
DESCRIPTION:
User number of person entering (matching) data.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,8 VERIFY FLAG 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: OCT 06, 1986
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
Flag to indicate that the data has been verified.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,9 DUZ OF VERIFIER 0;10 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAR 25, 1992
DESCRIPTION:
User number of person doing the verifying.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
50.612,10 END END;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 23, 1987
HELP-PROMPT: Type a whole number between 0 and 999999.
DESCRIPTION: Stores internal number of file #50 in which the matching process concluded previously. This allows
the user to start up where they left off in the matching process using option - (Match Local Drug
File With National File).
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 50.612^C^MUMPS
1)= S $P(^PSNTRAN("END"),"^",1)=X
2)= S $P(^PSNTRAN("END"),"^",1)=""
This cross-reference stores the last entry matched in option "Match Local Drug File With National
File". In the form of: ^PSNTRAN("END")=PSDRUG DA
50.612,11 LAST UNMATCHED DRUG CLASSED END;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
LAST EDITED: NOV 23, 1987
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION: Stores the name of the last unmatched drug classed by option - (Allow Unmatched Drugs To Be
Classed). This allows the user to start up where they left off.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.612^D^MUMPS
1)= S $P(^PSNTRAN("END"),"^",3)=X
2)= S $P(^PSNTRAN("END"),"^",3)=""
This cross-reference stores the name of the last entry classed by option "Allow Unmatched Drugs To
Be Classed". In the form of: ^PSNTRAN("END")=^^PSDRUG DA
50.612,12 LAST SUPPLY ITEM RE-CLASSED END;5 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
LAST EDITED: JUL 12, 1989
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION: Stores the name of the last supply item re-classed by option - (Re-Class Supply Items). This allows
the user to start up where they left off.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
CROSS-REFERENCE: 50.612^E^MUMPS
1)= S $P(^PSNTRAN("END"),"^",5)=X
2)= S $P(^PSNTRAN("END"),"^",5)=""
This cross-reference stores the name of the last entry classed by option "Re-Class Supply Items".
In the form of: ^PSNTRAN("END")=^^^^PSDRUG DA
FILES POINTED TO FIELDS
NEW PERSON (#200) DUZ # (#7)
DUZ OF VERIFIER (#9)
PACKAGE SIZE (#50.609) PACKAGE SIZE PTR (#4)
PACKAGE TYPE (#50.608) PACKAGE TYPE PTR (#6)
VA GENERIC (#50.6) PSNDF DA (#.01)
VA PRODUCT (#50.68) VA PRODUCT NAME DA (#1)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):