STANDARD DATA DICTIONARY #390 -- ENROLLMENT RATED DISABILITY UPLOAD AUDIT FILE 9/29/25 PAGE 1
STORED IN ^DGRDUA(390, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file tracks new/modified Rated Disability changes received from the Health Eligibility Center via ORU/ORF Z11 messages. The
purpose of this file is for History only and can not be considered current. Data will be purged from this file after it is over
365 days old.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: DATE/TIME OF CHANGE(B)
INDEXED BY: DATE/TIME OF CHANGE & PATIENT (ADATEPT), PATIENT & DATE/TIME OF CHANGE (APTDATE)
390,.01 DATE/TIME OF CHANGE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 10, 2007
HELP-PROMPT: Enter Date/Time Rated Disability Changed
DESCRIPTION:
This is the DATE/TIME the Rated Disability changed.
CROSS-REFERENCE: 390^B
1)= S ^DGRDUA(390,"B",$E(X,1,30),DA)=""
2)= K ^DGRDUA(390,"B",$E(X,1,30),DA)
RECORD INDEXES: ADATEPT (#543), APTDATE (#544)
390,2 PATIENT 0;2 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: OCT 10, 2007
HELP-PROMPT: Enter the Patient the Rated Disability belongs to.
DESCRIPTION:
This is the PATIENT the Rated Disability belongs to.
RECORD INDEXES: ADATEPT (#543), APTDATE (#544)
390,3 RATED DISABILITIES (VA) 0;3 POINTER TO DISABILITY CONDITION FILE (#31) (Required)
LAST EDITED: OCT 10, 2007
HELP-PROMPT: Enter the Rated Disability that changed.
DESCRIPTION:
This is the Rated Disability that changed.
390,4 DISABILITY % 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 10, 2007
HELP-PROMPT: Enter the Disability % (0-100)
DESCRIPTION:
This is the Disability % for the Rated Disability that changed.
390,5 EXTREMITY AFFECTED 0;5 SET
'BL' FOR BOTH LOWER;
'BU' FOR BOTH UPPER;
'RL' FOR RIGHT LOWER;
'RU' FOR RIGHT UPPER;
'LL' FOR LEFT LOWER;
'LU' FOR LEFT UPPER;
LAST EDITED: OCT 16, 2007
HELP-PROMPT: Enter the Extremity Affected for this Rated Disability.
DESCRIPTION:
This is the Extremity Affected for the Rated Disability.
390,6 ORIGINAL EFFECTIVE DATE 0;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 2007
HELP-PROMPT: Enter the Original Effective Date for this Rated Disability.
DESCRIPTION:
This field is the first date that this Rated Disability was evaluated.
390,7 CURRENT EFFECTIVE DATE 0;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: OCT 16, 2007
HELP-PROMPT: Enter the Current Effective Date for this Rated Disability.
DESCRIPTION:
This field is the most recent date that this Rated Disability was evaluated.
FILES POINTED TO FIELDS
DISABILITY CONDITION (#31) RATED DISABILITIES (VA) (#3)
PATIENT (#2) PATIENT (#2)
File #390
Record Indexes:
ADATEPT (#543) RECORD REGULAR IR SORTING ONLY
Short Descr: Cross reference of DATE/TIME OF CHANGE and PATIENT
Set Logic: S ^DGRDUA(390,"ADATEPT",X(1),X(2),DA)=""
Kill Logic: K ^DGRDUA(390,"ADATEPT",X(1),X(2),DA)
Whole Kill: K ^DGRDUA(390,"ADATEPT")
X(1): DATE/TIME OF CHANGE (390,.01) (Subscr 1) (forwards)
X(2): PATIENT (390,2) (Subscr 2) (forwards)
APTDATE (#544) RECORD REGULAR IR SORTING ONLY
Short Descr: Cross reference of PATIENT and DATE/TIME OF CHANGE
Set Logic: S ^DGRDUA(390,"APTDATE",X(1),X(2),DA)=""
Kill Logic: K ^DGRDUA(390,"APTDATE",X(1),X(2),DA)
Whole Kill: K ^DGRDUA(390,"APTDATE")
X(1): PATIENT (390,2) (Subscr 1) (forwards)
X(2): DATE/TIME OF CHANGE (390,.01) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):