STANDARD DATA DICTIONARY #409.74 -- DELETED OUTPATIENT ENCOUNTER FILE 3/24/25 PAGE 1
STORED IN ^SD(409.74, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file will contain all encounters that have been deleted.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
IDENTIFIED BY: PATIENT (#.02)[R]
POINTED TO BY: DELETED OUTPATIENT ENCOUNTER field (#.03) of the TRANSMITTED OUTPATIENT ENCOUNTER File (#409.73)
CROSS
REFERENCED BY: DELETION DATE/TIME(ADEL), ENCOUNTER DATE/TIME(B), PATIENT(PAT)
409.74,.01 ENCOUNTER DATE/TIME 0;1 DATE (Required)
Encounter Date/Time
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 30, 1996
HELP-PROMPT: Enter the date/time of the encounter that was deleted
DESCRIPTION:
Date/time deleted encounter supposedly took place.
CROSS-REFERENCE: 409.74^B
1)= S ^SD(409.74,"B",$E(X,1,30),DA)=""
2)= K ^SD(409.74,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^409.74^.03
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 ^DD(409.74,.01,1,2,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
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 ^D
ICR:$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.
409.74,.02 PATIENT 0;2 POINTER TO PATIENT FILE (#2) (Required)
Patient
LAST EDITED: APR 30, 1996
HELP-PROMPT: Enter the patient associated with the deleted encounter
DESCRIPTION:
Patient deleted encounter referred to.
CROSS-REFERENCE: 409.74^PAT
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
409.74,.03 DELETION DATE/TIME 0;3 DATE (Required)
Deletion Date/Time
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 30, 1996
HELP-PROMPT: Enter the date/time the encounter was deleted
DESCRIPTION:
Date/time encounter was deleted.
NOTES: TRIGGERED by the ENCOUNTER DATE/TIME field of the DELETED OUTPATIENT ENCOUNTER File
CROSS-REFERENCE: 409.74^ADEL
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
409.74,11 OLD ENCOUNTER ZERO NODE 1;E1,245 FREE TEXT (Required)
Old Encounter Zero Node
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAY 03, 1996
HELP-PROMPT: Enter the zero node of the deleted Outpatient Encounter
DESCRIPTION:
This field will contain the zero node of the Outpatient Encounter that was deleted.
FILES POINTED TO FIELDS
PATIENT (#2) PATIENT (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):