Global: ^SD(409.74

Date/time deleted encounter supposedly took place.

1)= S ^SD(409.74,"B",$E(X,1,30),DA)=""

2)= K ^SD(409.74,"B",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SD(409.74,D0,0)):^(0),1:"") S X=$P(Y(1),U,3)="" I X S X=DIV S Y(1)=$S($D(^SD(409.74,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(409.74,.01,1,2,1.1) X ^D

D(409.74,.01,1,2,1.4)

1.1)= S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)

1.4)= S DIH=$S($D(^SD(409.74,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=409.74,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE CONDITION)= DELETION DATE/TIME=""

CREATE VALUE)= NOW

DELETE VALUE)= NO EFFECT

FIELD)= DELETION DATE/TIME

Current date/time ("NOW") is put into the DELETION DATE/TIME field (#.03).

This is screened so that an existing value is not overwritten.

Patient deleted encounter referred to.

1)= S ^SD(409.74,"PAT",$E(X,1,30),DA)=""

2)= K ^SD(409.74,"PAT",$E(X,1,30),DA)

Cross reference to allow look-up using the patient's name.

Resulting node:

^SD(409.74,"PAT",[.02],DA)

Where:

[.02] = Value contained in PATIENT field (#.02)

DA = Pointer to entry in file

Date/time encounter was deleted.

1)= S ^SD(409.74,"ADEL",$E(X,1,30),DA)=""

2)= K ^SD(409.74,"ADEL",$E(X,1,30),DA)

Cross reference to sort entries by their deletion date/time.

Resulting node:

^SD(409.74,"ADEL",[.03],DA)

Where:

[.03] = Value contained in DELETION DATE/TIME field (#.03)

DA = Pointer to entry in file

This field will contain the zero node of the Outpatient Encounter that was deleted.