STANDARD DATA DICTIONARY #799.51 -- ROR GENERIC DRUG FILE 3/24/25 PAGE 1
STORED IN ^ROR(799.51, (68 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a list of registry specific generic medications. For example, the ARV (anti-retroviral) medications associated
with the Human Immunodeficiency Virus (HIV) registry are stored here.
DD ACCESS: @
RD ACCESS:
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
SECONDARY KEY: A (#42)
Uniqueness Index: KEY (#630)
File, Field: 1) REGISTRY (799.51,.02) 2) DRUG GROUP (799.51,.03) 3) VA GENERIC (799.51,.04)
CROSS
REFERENCED BY: REGISTRY(AR), NAME(B)
INDEXED BY: VA GENERIC & REGISTRY (AMCH), REGISTRY & VA GENERIC (ARDG), REGISTRY & DRUG GROUP & VA GENERIC (KEY)
LAST MODIFIED: APR 25,2018@17:27:47
799.51,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: Q:$$VAEDT^RORDD(799.51,$G(DA)) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: Name must be 3-30 characters, not numeric or starting with punctuation.
DESCRIPTION: YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF NATIONAL REGISTRY DEFINITION!
The NAME field stores a short name of the drug.
DELETE TEST: 1,0)= I $$VADEL^RORDD(799.51,$G(DA))
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 799.51^B
1)= S ^ROR(799.51,"B",$E(X,1,30),DA)=""
2)= K ^ROR(799.51,"B",$E(X,1,30),DA)
3)= Do not delete!
799.51,.02 REGISTRY 0;2 POINTER TO ROR REGISTRY PARAMETERS FILE (#798.1) (Required) (Key field)
INPUT TRANSFORM: Q:$$VAEDT^RORDD(799.51,$G(DA))
LAST EDITED: JAN 17, 2018
DESCRIPTION: YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF NATIONAL REGISTRY DEFINITION!
This field identifies the registry that the drug is associated with.
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 799.51^AR
1)= S ^ROR(799.51,"AR",$E(X,1,30),DA)=""
2)= K ^ROR(799.51,"AR",$E(X,1,30),DA)
3)= Do not delete!
This cross-reference groups all drugs associated with a particular registry together.
RECORD INDEXES: AMCH (#1509), ARDG (#375), KEY (#630)
799.51,.03 DRUG GROUP 0;3 POINTER TO ROR LIST ITEM FILE (#799.1) (Required) (Key field)
INPUT TRANSFORM: Q:$$VAEDT^RORDD(799.51,$G(DA)) S Y=$P($G(^ROR(799.51,DA,0)),U,2),DIC("S")="S D=$G(^(0)) I $P(D,U,2
)=4"_$S(Y>0:",$P(D,U,3)="_Y,1:"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 24, 2004
DESCRIPTION:
YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF NATIONAL REGISTRY DEFINITION!
TECHNICAL DESCR:
This field is not used currently. It is reserved for future use.
SCREEN: S DIC("S")="S D=$G(^(0)) I $P(D,U,2)=4"_$S(Y>0:",$P(D,U,3)="_Y,1:"")
EXPLANATION: Only Drug Groups can be selected.
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: KEY (#630)
799.51,.04 VA GENERIC 0;4 POINTER TO VA GENERIC FILE (#50.6) (Required) (Key field)
INPUT TRANSFORM: Q:$$VAEDT^RORDD(799.51,$G(DA))
LAST EDITED: JAN 17, 2018
DESCRIPTION:
YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF NATIONAL REGISTRY DEFINITION!
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AMCH (#1509), ARDG (#375), KEY (#630)
799.51,.09 NATIONAL 0;9 SET
'0' FOR NO;
'1' FOR YES;
INPUT TRANSFORM: Q:$$VAEDT^RORDD(799.51,,-1)
LAST EDITED: AUG 18, 2003
DESCRIPTION: ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN EDIT THIS FIELD!
Drugs associated with the national registries must have this field set to "YES". This prevents
local editing of other fields of the record.
DELETE TEST: 1,0)= I $$VADEL^RORDD(799.51,,-1)
DELETE AUTHORITY: @
WRITE AUTHORITY: @
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
ROR LIST ITEM (#799.1) DRUG GROUP (#.03)
ROR REGISTRY PARAMETERS (#798.1) REGISTRY (#.02)
VA GENERIC (#50.6) VA GENERIC (#.04)
File #799.51
Record Indexes:
AMCH (#1509) RECORD MUMPS IR SORTING ONLY
Short Descr: Registry & Drug Group & Local Drug
Description: This cross-reference creates the relation between ROR Registry, ROR Generic Drug entry, and Local Drug and will
be checked during collecting Patient Medication History report.
Set Logic: D EN^RORUTL22(X(3))
Kill Logic: K ^ROR(799.51,"AMCH",X(2),X(3))
Whole Kill: K ^ROR(799.51,"AMCH")
X(1): REGISTRY (799.51,.02) (forwards)
X(2): Computed Code: S X=$S(X(1)'="":X(1)_"#",1:"")
(Subscr 1)
X(3): VA GENERIC (799.51,.04) (Subscr 2) (forwards)
ARDG (#375) RECORD REGULAR IR SORTING ONLY
Short Descr: Registry & Drug Group
Description: This cross-reference creates the relation between ROR Registry and ROR Generic entry and it's checked during
Patient Medication History report.
Set Logic: S ^ROR(799.51,"ARDG",X(2),X(3),DA)=""
Kill Logic: K ^ROR(799.51,"ARDG",X(2),X(3),DA)
Whole Kill: K ^ROR(799.51,"ARDG")
X(1): REGISTRY (799.51,.02) (forwards)
X(2): Computed Code: S X=$S(X(1)'="":X(1)_"#",1:"")
(Subscr 1)
X(3): VA GENERIC (799.51,.04) (Subscr 2) (forwards)
KEY (#630) RECORD REGULAR IR LOOKUP & SORTING
Unique for: Key A (#42), File #799.51
Short Descr: Registry, Drug Group, Generic Drug
Set Logic: S ^ROR(799.51,"KEY",X(1),X(2),X(3),DA)=""
Kill Logic: K ^ROR(799.51,"KEY",X(1),X(2),X(3),DA)
Whole Kill: K ^ROR(799.51,"KEY")
X(1): REGISTRY (799.51,.02) (Subscr 1)
X(2): DRUG GROUP (799.51,.03) (Subscr 2)
X(3): VA GENERIC (799.51,.04) (Subscr 3)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):