Sub-Field: 757.334

Parent File	Name	Number	Package
CHARACTER POSITIONS(#757.033)	EXPLANATION	757.334	Lexicon Utility

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	EXPLANATION EFFECTIVE DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3101001>X X` LAST EDITED: `MAR 18, 2012` HELP-PROMPT: `Enter a date, not earlier than Oct 1, 2010.` DESCRIPTION: `This is the effective date of the explanation.` CROSS-REFERENCE: `757.334^B` `1)= S ^LEX(757.033,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^LEX(757.033,DA(1),4,"B",$E(X,1,30),DA)` `^LEX(757.033,IEN1,4,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the explanation, and IEN2 is the EXPLANATION sub-file internal entry number where the explanation is` `stored.`
.02	EXPLANATION	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `MAR 20, 2012` HELP-PROMPT: `Enter an explanation, 1-245 characters in length.` DESCRIPTION: `This is the explanation of the character identified by the code fragment. The explanation, if present, provides further elaboration to the description or definition.` FIELD INDEX: `C (#1144) REGULAR IR LOOKUP & SORTING` `Short Descr: Explanation` `Description: ^LEX(757.033,IEN1,4,"C",EXPL,IEN2) - Where IEN1 is the file level internal entry number, EXPL is a 63 character, uppercase Explanation for the character position, and IEN2 is the EXPLANATION sub-file internal entry` `number where the Explanation is stored.` `Set Logic: S ^LEX(757.033,DA(1),4,"C",$E(X,1,63),DA)=""` `Kill Logic: K ^LEX(757.033,DA(1),4,"C",$E(X,1,63),DA)` `Whole Kill: K ^LEX(757.033,DA(1),4,"C")` `X(1): EXPLANATION (757.334,.02) (Subscr 1) (Len 63) (forwards)` `Transform (Storage): S X=$$UP^XLFSTR(X)`

.01

EXPLANATION EFFECTIVE DATE

0;1

DATE

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

.02

EXPLANATION

1;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 20, 2012
HELP-PROMPT: Enter an explanation, 1-245 characters in length.
DESCRIPTION:
This is the explanation of the character identified by the code fragment. The explanation, if present, provides further elaboration to the description or definition.
FIELD INDEX: C (#1144) REGULAR IR LOOKUP & SORTING
Short Descr: Explanation
Description: ^LEX(757.033,IEN1,4,"C",EXPL,IEN2) - Where IEN1 is the file level internal entry number, EXPL is a 63 character, uppercase Explanation for the character position, and IEN2 is the EXPLANATION sub-file internal entry
number where the Explanation is stored.
Set Logic: S ^LEX(757.033,DA(1),4,"C",$E(X,1,63),DA)=""
Kill Logic: K ^LEX(757.033,DA(1),4,"C",$E(X,1,63),DA)
Whole Kill: K ^LEX(757.033,DA(1),4,"C")
X(1): EXPLANATION (757.334,.02) (Subscr 1) (Len 63) (forwards)
Transform (Storage): S X=$$UP^XLFSTR(X)

Customize PDF page

Package: Lexicon Utility

CHARACTER POSITIONS(#757.033)-->757.334

Sub-Field: 757.334

Information

Details