Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 33.02

Package: Registration

OTH ELIGIBILITY PATIENT(#33)-->33.02

Sub-Field: 33.02

Information

Parent File	Name	Number	Package
OTH ELIGIBILITY PATIENT(#33)	ELIGIBILITY CHANGES	33.02	Registration

Details

Field #	Name	Loc	Type	Details
.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)`
.02	ELIGIBILITY CODE	0;2	POINTER TO ELIGIBILITY CODE FILE (#8)	ELIGIBILITY CODE(#8) LAST EDITED: `JUN 27, 2019` HELP-PROMPT: `Select eligibility code.` DESCRIPTION: `New eligibility code for this patient.`
.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)`
.04	ELIG CHANGE REASON	0;4	SET	**********************REQUIRED FIELD********************** '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.`
.05	FACILITY	0;5	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) 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.`
.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.`
.07	FACILITY	0;7	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#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.`