Sub-Field: 757.331

Parent File	Name	Number	Package
CHARACTER POSITIONS(#757.033)	STATUS	757.331	Lexicon Utility

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	STATUS EFFECTIVE DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3101001>X X` LAST EDITED: `MAR 28, 2012` HELP-PROMPT: `Enter a date, not earlier than Oct 1, 2010.` DESCRIPTION: `This the date that the status became effective.` CROSS-REFERENCE: `757.331^B` `1)= S ^LEX(757.033,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LEX(757.033,DA(1),1,"B",$E(X,1,30),DA)` `^LEX(757.033,IEN1,1,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the status, and IEN2 is the STATUS sub-file internal entry number where the status is stored.` FIELD INDEX: `AFRAG (#1140) MUMPS IR SORTING ONLY WHOLE FILE (#757.033)` `Short Descr: Fragment` `Description: ^LEX(757.033,"AFRAG",SRC,FRAG,EFF,IEN) = Where SRC is a pointer to the CODING SYSTEMS file #757.03 for the source of the fragment, FRAG is a code fragment, EFF is the active effective date of the fragment, IEN is where` `the fragment is stored. This cross-reference is only set when the status is active. A reverse $ORDER will find the last active code fragment for a source.` `Set Logic: S ^LEX(757.033,"AFRAG",X(1),X(2),X(3),DA(1),DA)=""` `Set Cond: S X=$P(^LEX(757.033,DA(1),1,DA,0),"^",2)` `Kill Logic: K ^LEX(757.033,"AFRAG",X(1),X(2),X(3),DA(1),DA)` `Whole Kill: K ^LEX(757.033,"AFRAG")` `X(1): Computed Code: S X=+($P(^LEX(757.033,DA(1),0),"^",4))` `(Subscr 1) (Len 5) (forwards)` `X(2): Computed Code: S X=($P(^LEX(757.033,DA(1),0),"^",2)_" ")` `(Subscr 2) (Len 10)` `X(3): STATUS EFFECTIVE DATE (757.331,.01) (Subscr 3) (Len 10) (forwards)`
.02	STATUS	0;2	SET	'1' FOR ACTIVE; '0' FOR INACTIVE; LAST EDITED: `MAR 17, 2012` HELP-PROMPT: `Enter the status of the code fragment.` DESCRIPTION: `This field indicates the status (active or inactive) of the code fragment (.02).`

.01

STATUS EFFECTIVE DATE

0;1

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3101001>X X
LAST EDITED: MAR 28, 2012
HELP-PROMPT: Enter a date, not earlier than Oct 1, 2010.
DESCRIPTION:
This the date that the status became effective.
CROSS-REFERENCE: 757.331^B
1)= S ^LEX(757.033,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LEX(757.033,DA(1),1,"B",$E(X,1,30),DA)
^LEX(757.033,IEN1,1,"B",DATE,IEN2) - Where IEN1 is the file level internal entry number, DATE is the effective date of the status, and IEN2 is the STATUS sub-file internal entry number where the status is stored.
FIELD INDEX: AFRAG (#1140) MUMPS IR SORTING ONLY WHOLE FILE (#757.033)
Short Descr: Fragment
Description: ^LEX(757.033,"AFRAG",SRC,FRAG,EFF,IEN) = Where SRC is a pointer to the CODING SYSTEMS file #757.03 for the source of the fragment, FRAG is a code fragment, EFF is the active effective date of the fragment, IEN is where
the fragment is stored. This cross-reference is only set when the status is active. A reverse $ORDER will find the last active code fragment for a source.
Set Logic: S ^LEX(757.033,"AFRAG",X(1),X(2),X(3),DA(1),DA)=""
Set Cond: S X=$P(^LEX(757.033,DA(1),1,DA,0),"^",2)
Kill Logic: K ^LEX(757.033,"AFRAG",X(1),X(2),X(3),DA(1),DA)
Whole Kill: K ^LEX(757.033,"AFRAG")
X(1): Computed Code: S X=+($P(^LEX(757.033,DA(1),0),"^",4))
(Subscr 1) (Len 5) (forwards)
X(2): Computed Code: S X=($P(^LEX(757.033,DA(1),0),"^",2)_" ")
(Subscr 2) (Len 10)
X(3): STATUS EFFECTIVE DATE (757.331,.01) (Subscr 3) (Len 10) (forwards)

.02

STATUS

0;2

SET

'1' FOR ACTIVE;
'0' FOR INACTIVE;

LAST EDITED: MAR 17, 2012
HELP-PROMPT: Enter the status of the code fragment.
DESCRIPTION:
This field indicates the status (active or inactive) of the code fragment (.02).

Customize PDF page

Package: Lexicon Utility

CHARACTER POSITIONS(#757.033)-->757.331

Sub-Field: 757.331

Information

Details