STANDARD DATA DICTIONARY #33 -- OTH ELIGIBILITY PATIENT FILE 9/29/25 PAGE 1
STORED IN ^DGOTH(33, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains data required for tracking the status of the eligibility for emergency Mental Health care for patients with
Other Than Honorable Discharge type.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: OTH PATIENT(B)
INDEXED BY: PENDING AUTH REQUEST (Y/N) (C), START DATE (D), ELIGIBILITY FACTOR TYPE (E), ELIGIBILITY CHANGE DATE/TIME (F)
LAST MODIFIED: DEC 18,2020@15:24:46
33,.01 OTH PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Select the patient with OTH eligibility clock.
DESCRIPTION:
Patient with OTH 90 DAYS ELIGIBILITY that receives mental health care in the VA facility.
TECHNICAL DESCR:
Pointer to the PATIENT file (#2).
CROSS-REFERENCE: 33^B
1)= S ^DGOTH(33,"B",$E(X,1,30),DA)=""
2)= K ^DGOTH(33,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^33^.07
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGOTH(33,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S D
IU=X K Y S X=DIV S X=0 S DIH=$G(^DGOTH(33,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=33,DIG=.07 D ^DIC
R
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGOTH(33,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S D
IU=X K Y S X="" S DIH=$G(^DGOTH(33,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=33,DIG=.07 D ^DICR
CREATE VALUE)= S X=0
DELETE VALUE)= @
FIELD)= PENDING REQUEST?
This trigger sets field .07 (PENDING REQUEST?) to default value of "NO".
33,.02 OTH STATUS 0;2 SET
'0' FOR INACTIVE;
'1' FOR ACTIVE;
LAST EDITED: MAR 29, 2019
HELP-PROMPT: Enter status of the OTH patient.
DESCRIPTION:
The current status of the OTH patient.
33,.03 PENDING AUTH REQ DATE 0;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 27, 2019
HELP-PROMPT: Enter submission date for this pending authorization request.
DESCRIPTION:
Date of pending authorization request submission.
TECHNICAL DESCR:
This field should be populated only if "PENDING REQUEST?" field (.07) is set to "YES".
33,.04 PENDING REQUEST ENTERED BY 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<5) X
MAXIMUM LENGTH: 60
LAST EDITED: MAY 07, 2019
HELP-PROMPT: Answer must be 5-60 characters in length.
DESCRIPTION:
The user who entered pending request for this patient.
33,.05 PENDING AUTH SYS DATE/TIME 0;5 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 27, 2019
HELP-PROMPT: Enter date and time when pending request was entered or edited.
DESCRIPTION:
Date and time when pending request was entered or edited.
33,.06 PENDING AUTH REQUEST FACILITY 0;6 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Select the facility where this pending request was entered.
DESCRIPTION:
Facility where this pending request was entered.
33,.07 PENDING AUTH REQUEST (Y/N) 0;7 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Set this to 'YES' if there is a pending authorization request for this patient.
DESCRIPTION: Setting this field to 'YES' indicates that there's an existing pending authorization request for
this patient.
NOTES: TRIGGERED by the OTH PATIENT field of the OTH ELIGIBILITY PATIENT File
FIELD INDEX: C (#1564) REGULAR IR LOOKUP & SORTING
Short Descr: Index on field .07
Description: Index on 'PENDING REQUEST?' field.
Set Logic: S ^DGOTH(33,"C",X,DA)=""
Kill Logic: K ^DGOTH(33,"C",X,DA)
Whole Kill: K ^DGOTH(33,"C")
X(1): PENDING AUTH REQUEST (Y/N) (33,.07) (Subscr 1) (forwards)
33,.08 PEND AUTH CREATION DATE/TIME 0;8 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 04, 2019
HELP-PROMPT: Enter date/time when pending request was created
DESCRIPTION:
Date / time when pending request was created. Used as unique identifier by Enrollment System.
33,1 OTH 365 DAY CLOCK 1;0 Multiple #33.01
LAST EDITED: MAY 29, 2019
DESCRIPTION:
This multiple contains data for tracking 365 days clock status.
33.01,.01 365 DAY PERIOD NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Type a number between 1 and 100, 0 decimal digits.
DESCRIPTION:
This the sequential number of the OTH eligibility 365 days clock for the patient.
CROSS-REFERENCE: 33.01^B
1)= S ^DGOTH(33,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DGOTH(33,DA(1),1,"B",$E(X,1,30),DA)
33.01,.02 START DATE 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 06, 2018
HELP-PROMPT: Enter the date when the 365 days clock started.
DESCRIPTION:
Date when the 365 days clock started.
33.01,1 OTH 90 DAY CLOCK 1;0 Multiple #33.11
LAST EDITED: MAY 29, 2019
DESCRIPTION:
This multiple contains data for tracking 90 days clock status.
33.11,.01 90 DAY PERIOD NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Type a number between 1 and 99, 0 decimal digits.
DESCRIPTION:
This the sequential number of the OTH eligibility 90 days clock for the patient.
CROSS-REFERENCE: 33.11^B
1)= S ^DGOTH(33,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^DGOTH(33,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
33.11,.02 START DATE 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 04, 2019
HELP-PROMPT: Enter the date when the 90 days clock started.
DESCRIPTION: The date when the 90 days clock started. A future date cannot be entered and cannot be more
than 90 days in the past.
FIELD INDEX: D (#1565) REGULAR IR LOOKUP & SORTING WHOLE FILE (#33)
Short Descr: Index on field 33.11/.02
Description: Index on START DATE field (33.11/.02)
Set Logic: S ^DGOTH(33,"D",X,DA(2),DA(1),DA)=""
Kill Logic: K ^DGOTH(33,"D",X,DA(2),DA(1),DA)
Whole Kill: K ^DGOTH(33,"D")
X(1): START DATE (33.11,.02) (Subscr 1) (forwards)
33.11,.03 AUTH REQUEST SUBMITTED DATE 0;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 04, 2019
HELP-PROMPT: Enter the date of authorization request submission.
DESCRIPTION:
Date of authorization request submission for this 90 day period.
33.11,.04 APPROVED AUTH REC DATE 0;4 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 27, 2019
HELP-PROMPT: Enter a date when the authorization was signed.
DESCRIPTION:
The date when the additional 90 days period was authorized.
33.11,.05 AUTH ENTER/EDIT USER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<5) X
MAXIMUM LENGTH: 60
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Answer must be 5-60 characters in length.
DESCRIPTION:
The user who created or edited last time the 90 days clock.
33.11,.06 SYS AUTH ENTER/EDIT DATE/TIME 0;6 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Enter the date and time when the 90 days clock was entered or edited last time.
DESCRIPTION:
The date and time when the 90 days clock was entered or edited last time.
33.11,.07 AUTHORIZED BY CMO NAME 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<5) X
MAXIMUM LENGTH: 60
LAST EDITED: JUN 27, 2019
HELP-PROMPT: Answer with Chief Medical Officer Name or Designee (5 to 60 characters)
(ENTER FROM 1 TO 60 CHARACTERS OF FREE TEXT)
DESCRIPTION:
The person who approved and authorized the second day period.
33.11,.08 FACILITY 0;8 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAR 04, 2019
HELP-PROMPT: Select the facility where this period was started.
DESCRIPTION:
Facility where this 90-day period was started.
33.11,.09 SYS AUTH CREATION DATE/TIME 0;9 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 04, 2019
HELP-PROMPT: Enter the date and time when the 90 days clock was created.
DESCRIPTION:
Date / time when 90 days clock was created. Used as unique identifier by Enrollment System.
33.11,.1 DATE REQUEST SUBMITTED 0;10 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 27, 2019
HELP-PROMPT: Enter the date of authorization request submission.
DESCRIPTION:
Date of authorization request submission for this 90 day period.
33,2 ELIGIBILITY CHANGES 2;0 DATE Multiple #33.02 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains history of OTH eligibility changes.
33.02,.01 ELIGIBILITY CHANGE DATE/TIME 0;1 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
LAST EDITED: AUG 13, 2020
HELP-PROMPT: Enter the date of this eligibility change.
DESCRIPTION:
Date of the eligibility change.
CROSS-REFERENCE: 33.02^B
1)= S ^DGOTH(33,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^DGOTH(33,DA(1),2,"B",$E(X,1,30),DA)
FIELD INDEX: F (#209) REGULAR IR LOOKUP & SORTING WHOLE FILE (#33)
Short Descr: Eligibility Code modification
Description: This cross-reference will capture the date/time of the eligibility code changes for a patient.
Set Logic: S ^DGOTH(33,"F",X,DA(1),DA)=""
Kill Logic: K ^DGOTH(33,"F",X,DA(1),DA)
Whole Kill: K ^DGOTH(33,"F")
X(1): ELIGIBILITY CHANGE DATE/TIME (33.02,.01) (Subscr 1) (forwards)
33.02,.02 ELIGIBILITY CODE 0;2 POINTER TO ELIGIBILITY CODE FILE (#8)
LAST EDITED: JUN 27, 2019
HELP-PROMPT: Select eligibility code.
DESCRIPTION:
New eligibility code for this patient.
33.02,.03 ELIGIBILITY FACTOR TYPE 0;3 SET
'OTH-90' FOR EMERGENT MH OTH;
'OTH-EXT' FOR EXTENDED MH OTH;
LAST EDITED: SEP 04, 2019
HELP-PROMPT: Select eligibility factor type.
DESCRIPTION:
Eligibility factor type for OTH eligibilities.
TECHNICAL DESCR:
Same set of codes as field 2/.5501
FIELD INDEX: E (#1566) REGULAR IR LOOKUP & SORTING WHOLE FILE (#33)
Short Descr: Index on field 33.02/.03
Description: Index on ELIGIBILITY FACTOR TYPE field (33.02/.03)
Set Logic: S ^DGOTH(33,"E",X,DA(1),DA)=""
Kill Logic: K ^DGOTH(33,"E",X,DA(1),DA)
Whole Kill: K ^DGOTH(33,"E")
X(1): ELIGIBILITY FACTOR TYPE (33.02,.03) (Subscr 1) (forwards)
33.02,.04 ELIG CHANGE REASON 0;4 SET (Required)
'0' FOR INITIAL REGISTRATION;
'1' FOR UPDATE;
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Select reason for this eligibility change.
DESCRIPTION:
Reason for this eligibility change.
33.02,.05 FACILITY 0;5 POINTER TO INSTITUTION FILE (#4) (Required)
LAST EDITED: JUN 18, 2019
HELP-PROMPT: Select facility where this eligibility change was made.
DESCRIPTION: Facility where this eligibility change was made. This field being blank means that change
originated from Enrollment System.
33.02,.06 ENTERED BY 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<5) X
MAXIMUM LENGTH: 60
LAST EDITED: MAR 07, 2019
HELP-PROMPT: Answer must be 5-60 characters in length.
DESCRIPTION:
Name of the person who changed eligibility for this patient.
33.02,.07 FACILITY 0;7 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAR 07, 2019
HELP-PROMPT: Select facility where this eligibility change was made.
DESCRIPTION: Facility where this eligibility change was made. This field being blank means that change
originated from Enrollment System.
33,3 DENIED REQUEST 3;0 Multiple #33.03 (Add New Entry without Asking)
LAST EDITED: MAY 29, 2019
DESCRIPTION:
This multiple contains authorization requests that have been disapproved.
INDEXED BY: DATE REQUEST SUBMITTED (C)
33.03,.01 SEQUENCE 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X
LAST EDITED: MAR 29, 2019
HELP-PROMPT: Type a number between 1 and 99999, 0 decimal digits.
DESCRIPTION:
Sequential number of this entry.
CROSS-REFERENCE: 33.03^B
1)= S ^DGOTH(33,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^DGOTH(33,DA(1),3,"B",$E(X,1,30),DA)
33.03,.02 DATE REQUEST SUBMITTED 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 04, 2019
HELP-PROMPT: Enter submission date for this authorization request.
DESCRIPTION:
Date of submission for this authorization request.
FIELD INDEX: C (#1567) REGULAR IR LOOKUP & SORTING
Short Descr: Index on field .02
Description: Index on DATE REQUEST SUBMITTED field (33.03/.02)
Set Logic: S ^DGOTH(33,DA(1),3,"C",X,DA)=""
Kill Logic: K ^DGOTH(33,DA(1),3,"C",X,DA)
Whole Kill: K ^DGOTH(33,DA(1),3,"C")
X(1): DATE REQUEST SUBMITTED (33.03,.02) (Subscr 1) (forwards)
33.03,.03 DENIED AUTHORIZATION COMMENT 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
MAXIMUM LENGTH: 60
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Answer must be 1-60 characters in length.
DESCRIPTION:
Reason why authorization was not provided.
33.03,.04 DENIED AUTH ENTERED USER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<5) X
MAXIMUM LENGTH: 60
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Answer must be 5-60 characters in length.
DESCRIPTION:
User who entered this denied request.
33.03,.05 DATE/TIME ENTERED/EDITED 0;5 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 27, 2019
HELP-PROMPT: Enter date / time when this denied request was entered / edited.
DESCRIPTION:
Date and time when this denied request was entered / edited.
33.03,.06 DENIED AUTH FACILITY 0;6 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: MAY 29, 2019
HELP-PROMPT: Select the facility where this denied request was entered.
DESCRIPTION:
Facility where this denied request was entered.
33.03,.07 CREATION DATE/TIME 0;7 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 04, 2019
HELP-PROMPT: Enter date / time when this denied request was created.
DESCRIPTION:
Date / time when this denied request was created. Used as unique identifier by Enrollment System.
FILES POINTED TO FIELDS
ELIGIBILITY CODE (#8) ELIGIBILITY CHANGES:ELIGIBILITY CODE (#.02)
INSTITUTION (#4) PENDING AUTH REQUEST FACILITY (#.06)
ELIGIBILITY CHANGES:FACILITY (#.05)
FACILITY (#.07)
DENIED REQUEST:DENIED AUTH FACILITY (#.06)
OTH 90 DAY CLOCK:FACILITY (#.08)
PATIENT (#2) OTH PATIENT (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):