Global: ^DIC(220.2

Information

FileMan FileNo	FileMan Filename	Package
220.2	DENTAL CLASSIFICATION	Dental

This file is a table of Dental treatment classifications (inpatient and outpatient) used to classify each Dental patient.

Package	Total	Routines
Dental	2	DENTPKG ^DIC(220.2

Package	Total	Routines
Dental	1	DENTSCR

Package	Total	FileMan Files
Dental	2	DENTAL PATIENT(#220)[70.01] DENTAL TREATMENT (AMIS)(#221)[4.5]
DSS Extracts	1	DENTAL EXTRACT(#727.806)[21]
Registration	1	PATIENT(#2)[220]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>22)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 22`
.01	CLASSIFICATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>50!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `JUL 17, 2014` HELP-PROMPT: `Answer must be 3-50 characters in length.` DESCRIPTION: `A VA Dental Eligibility including Inpatient/Outpatient and classification.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` FIELD INDEX: `B (#1222) REGULAR IR LOOKUP & SORTING` `Short Descr: "B" Regular Cross-Reference of .01 field` `Description: The "B" cross-reference has been updated to allow for a full 50-characters.` `Set Logic: S ^DIC(220.2,"B",$E(X,1,50),DA)=""` `Kill Logic: K ^DIC(220.2,"B",$E(X,1,50),DA)` `Whole Kill: K ^DIC(220.2,"B")` `X(1): CLASSIFICATION (220.2,.01) (Subscr 1) (Len 50) (forwards)`

NUMBER

CLASSIFICATION

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: JUL 17, 2014
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
A VA Dental Eligibility including Inpatient/Outpatient and classification.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FIELD INDEX: B (#1222) REGULAR IR LOOKUP & SORTING
Short Descr: "B" Regular Cross-Reference of .01 field
Description: The "B" cross-reference has been updated to allow for a full 50-characters.
Set Logic: S ^DIC(220.2,"B",$E(X,1,50),DA)=""
Kill Logic: K ^DIC(220.2,"B",$E(X,1,50),DA)
Whole Kill: K ^DIC(220.2,"B")
X(1): CLASSIFICATION (220.2,.01) (Subscr 1) (Len 50) (forwards)

CLASSIFICATION: INP, Emergency	CLASSIFICATION: INP, Compelling Medical Need	CLASSIFICATION: INP, Extended Care	CLASSIFICATION: Community Living Center	CLASSIFICATION: Domiciliary or Residential Rehabilitation	CLASSIFICATION: INP, Special Provision	CLASSIFICATION: INP, Non-Compelling Medical Need	CLASSIFICATION: INP, Other
CLASSIFICATION: OPC, Class I	CLASSIFICATION: OPC, Class II	CLASSIFICATION: OPC, Class IIA	CLASSIFICATION: OPC, Class IIB	CLASSIFICATION: OPC, Class IIC	CLASSIFICATION: OPC, Class III	CLASSIFICATION: OPC, Class IV	CLASSIFICATION: OPC, Class V
CLASSIFICATION: OPC, Class VI	CLASSIFICATION: OPC, Emergency	CLASSIFICATION: OPC, After INP Care, Compelling Medical Need	CLASSIFICATION: OPC, Special Provision	CLASSIFICATION: OPC, After INP Care, No Compelling Medical Need	CLASSIFICATION: OPC, After INP Care, Other

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1862	DSS - DECISION SUPPORT SYSTEM EXTRACTS	CLASSIFICATION (.01). Access: Direct Global Read & w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^DIC(220.2 - [#220.2]	IXBSL+1*, IXBKL+1!, IXBKEIC+1!

Name	Field # of Occurrence
>> DA	IXBSL+1, IXBKL+1
X	IXBSL+1, IXBKL+1, .001+1!, .01+1!