Sub-Field: 757.333

This is the date that the status was effective.

1)= S ^LEX(757.33,DA(1),2,"B",$E(X,1,30),DA)=""

2)= K ^LEX(757.33,DA(1),2,"B",$E(X,1,30),DA)

^LEX(757.33,IEN,2,"B",EFF,HIS) - Where IEN is the Internal Entry Number for the Mapping, EFF is the Effective Date of the Mapping and HIS is the Internal Entry Number where the Effective Date is stored in the Status

Histroy sub-file 757.333.

1)= D SAHD^LEXNDX9

2)= D KAHD^LEXNDX9

This is the status (active or inactive) of the mapping.

1)= D SAHD^LEXNDX9

2)= D KAHD^LEXNDX9

1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LEX(757.33,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(757.333,1,1,2,1.4)

1.4)= S DIH=$G(^LEX(757.33,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=757.333,DIG=2 D ^DICR

2)= Q

CREATE VALUE)= NOW

DELETE VALUE)= NO EFFECT

FIELD)= CHANGE DATE

The CHANGE DATE filed will be triggered whenever the STATUS field is entered or updated. The triggered value will be NOW.  This field cannot be edited.

Short Descr:  Change Date

Description:  The purpose of this action is to populate the CHANGE DATE field #2 of the STATUS HISTORY sub-file #757.333 with the current date and time whenever a status (active or inactive) is added or edited.

Set Logic:  S $P(^LEX(757.33,+($G(DA(1))),2,+($G(DA)),0),U,3)=$$NOW^XLFDT

Set Cond:  S X=X1(1)'=X2(1)

Kill Logic:  Q

X(1):  STATUS  (757.333,1)  (Len 8)  (forwards)

Lookup Prompt:  Enter Status

This field contains the timestamp for when the status is changed.  It is populated by the ACHGD Cross-Reference (Action) of the STATUS field #1 of the STATUS HISTORY sub-file 757.333.

WRITE AUTHORITY:  ^