Global: ^IBT(356.022

FileMan FileNo	FileMan Filename	Package
356.022	X12 278 DENTAL NUMBERING SYSTEM	Integrated Billing

FileMan FileNo

FileMan Filename

Package

356.022

X12 278 DENTAL NUMBERING SYSTEM

Package	Total	Routines
Integrated Billing	6	IBCEF12 IBCU72 IBTRH3B IBTRH5F IBTRH8A IBTRHLO1

Package	Total	FileMan Files
Integrated Billing	2	BILL/CLAIMS(#399)[#399.30491(.01)] HCS REVIEW TRANSMISSION(#356.22)[#356.22164(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	CODE	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X` LAST EDITED: `NOV 06, 2014` HELP-PROMPT: `Enter a number from 1-32 or a letter from 'A' to 'T'` DESCRIPTION: `A designated code for a specified tooth.` CROSS-REFERENCE: `356.022^B` `1)= S ^IBT(356.022,"B",$E(X,1,30),DA)=""` `2)= K ^IBT(356.022,"B",$E(X,1,30),DA)`
.02	DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAR 30, 2015` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `The physical location in either the Permanent Dentition or the Primary Dentition of the tooth.` FIELD INDEX: `C (#455) REGULAR IR LOOKUP & SORTING` `Short Descr: Convert to Upper Case for lookups` `Set Logic: S ^IBT(356.022,"C",$E(X,1,30),DA)=""` `Kill Logic: K ^IBT(356.022,"C",$E(X,1,30),DA)` `Whole Kill: K ^IBT(356.022,"C")` `X(1): DESCRIPTION (356.022,.02) (Subscr 1) (Len 30) (forwards)` `Transform (Storage): S X=$$UP^XLFSTR($E(X,1,30))`
.03	INACTIVE?	0;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 02, 2015` HELP-PROMPT: `Set this to YES in order to deactivate the code.` DESCRIPTION: `This field will be marked inactive if a code is determined to be longer used by X12.`

CODE

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X
LAST EDITED: NOV 06, 2014
HELP-PROMPT: Enter a number from 1-32 or a letter from 'A' to 'T'
DESCRIPTION:
A designated code for a specified tooth.
CROSS-REFERENCE: 356.022^B
1)= S ^IBT(356.022,"B",$E(X,1,30),DA)=""
2)= K ^IBT(356.022,"B",$E(X,1,30),DA)

DESCRIPTION

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: MAR 30, 2015
HELP-PROMPT: Answer must be 1-40 characters in length.
DESCRIPTION:
The physical location in either the Permanent Dentition or the Primary Dentition of the tooth.
FIELD INDEX: C (#455) REGULAR IR LOOKUP & SORTING
Short Descr: Convert to Upper Case for lookups
Set Logic: S ^IBT(356.022,"C",$E(X,1,30),DA)=""
Kill Logic: K ^IBT(356.022,"C",$E(X,1,30),DA)
Whole Kill: K ^IBT(356.022,"C")
X(1): DESCRIPTION (356.022,.02) (Subscr 1) (Len 30) (forwards)
Transform (Storage): S X=$$UP^XLFSTR($E(X,1,30))

INACTIVE?

0;3

SET

LAST EDITED: JAN 02, 2015
HELP-PROMPT: Set this to YES in order to deactivate the code.
DESCRIPTION:
This field will be marked inactive if a code is determined to be longer used by X12.

Information