Sub-Field: 757.331

This the date that the status became effective.

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.

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)

This field indicates the status (active or inactive) of the code fragment (.02).