Sub-Field: 757.043

Parent File	Name	Number	Package
CHARACTER POSITIONS(#757.033)	DESCRIPTION	757.043	Lexicon Utility

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DESCRIPTION EFFECTIVE DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3101001>X X` LAST EDITED: `MAY 08, 2012` HELP-PROMPT: `Enter a date, not earlier than Oct 1, 2010.` DESCRIPTION: `This is the date the description became effective.` CROSS-REFERENCE: `757.043^B` `1)= S ^LEX(757.033,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^LEX(757.033,DA(1),3,"B",$E(X,1,30),DA)` `^LEX(757.033,IEN1,3,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the Description, and IEN2 is the DESCRIPTION sub-file internal entry number where the Description is` `stored.`
.02	DESCRIPTION	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `MAR 28, 2012` HELP-PROMPT: `Enter a description, 1-245 characters in length.` DESCRIPTION: `This is the description or definition of the character position identified by the code fragment.` `Note: ICD diagnosis (disease, syndrome, finding, injury or symptom) characters come with descriptions. ICD procedure (laboratory, diagnostic or therapeutic activities) characters come with definitions.` FIELD INDEX: `C (#1142) REGULAR IR LOOKUP & SORTING` `Short Descr: Description` `Description: ^LEX(757.033,IEN1,3,"C",DESC,IEN2) - Where IEN1 is the file level internal entry number, DESC is a 63 character, uppercase Description for the character position, and IEN2 is the DESCRIPTION sub-file internal entry` `number where the Description is stored.` `Set Logic: S ^LEX(757.033,DA(1),3,"C",$E(X,1,63),DA)=""` `Kill Logic: K ^LEX(757.033,DA(1),3,"C",$E(X,1,63),DA)` `Whole Kill: K ^LEX(757.033,DA(1),3,"C")` `X(1): DESCRIPTION (757.043,.02) (Subscr 1) (Len 63) (forwards)` `Transform (Storage): S X=$$UP^XLFSTR(X)`

.01

DESCRIPTION EFFECTIVE DATE

0;1

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3101001>X X
LAST EDITED: MAY 08, 2012
HELP-PROMPT: Enter a date, not earlier than Oct 1, 2010.
DESCRIPTION:
This is the date the description became effective.
CROSS-REFERENCE: 757.043^B
1)= S ^LEX(757.033,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.033,DA(1),3,"B",$E(X,1,30),DA)
^LEX(757.033,IEN1,3,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the Description, and IEN2 is the DESCRIPTION sub-file internal entry number where the Description is
stored.

.02

DESCRIPTION

1;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 28, 2012
HELP-PROMPT: Enter a description, 1-245 characters in length.
DESCRIPTION: This is the description or definition of the character position identified by the code fragment.
Note: ICD diagnosis (disease, syndrome, finding, injury or symptom) characters come with descriptions. ICD procedure (laboratory, diagnostic or therapeutic activities) characters come with definitions.
FIELD INDEX: C (#1142) REGULAR IR LOOKUP & SORTING
Short Descr: Description
Description: ^LEX(757.033,IEN1,3,"C",DESC,IEN2) - Where IEN1 is the file level internal entry number, DESC is a 63 character, uppercase Description for the character position, and IEN2 is the DESCRIPTION sub-file internal entry
number where the Description is stored.
Set Logic: S ^LEX(757.033,DA(1),3,"C",$E(X,1,63),DA)=""
Kill Logic: K ^LEX(757.033,DA(1),3,"C",$E(X,1,63),DA)
Whole Kill: K ^LEX(757.033,DA(1),3,"C")
X(1): DESCRIPTION (757.043,.02) (Subscr 1) (Len 63) (forwards)
Transform (Storage): S X=$$UP^XLFSTR(X)

Customize PDF page

Package: Lexicon Utility

CHARACTER POSITIONS(#757.033)-->757.043

Sub-Field: 757.043

Information

Details