Sub-Field: 790.24

Parent File	Name	Number	Package
WV PROCEDURE(#790.1)	PREVIOUS DIAGNOSIS	790.24	Womens Health

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DIAGNOSIS	0;1	POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)	WV RESULTS/DIAGNOSIS(#790.31) LAST EDITED: `FEB 22, 2021` HELP-PROMPT: `Select a diagnosis (DO NOT EDIT)` DESCRIPTION: `This field store the previous diagnosis if a diagnosis was change from the radiology package.` CROSS-REFERENCE: `790.24^B` `1)= S ^WV(790.1,DA(1),11,"B",$E(X,1,30),DA)=""` `2)= K ^WV(790.1,DA(1),11,"B",$E(X,1,30),DA)`
1	DIAGNOSIS DATE TIME CHANGED	0;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2021` HELP-PROMPT: `Select Date/Time a diagnosis was change (DO NOT EDIT)` DESCRIPTION: `This stores the date/time a diagnosis was changed from the radiology package.` CROSS-REFERENCE: `790.24^D` `1)= S ^WV(790.1,DA(1),11,"D",$E(X,1,30),DA)=""` `2)= K ^WV(790.1,DA(1),11,"D",$E(X,1,30),DA)` `This cross-reference is used to sort by date time accession primary diagnosis changed in the radiology package.`

DIAGNOSIS

0;1

POINTER TO WV RESULTS/DIAGNOSIS FILE (#790.31)

LAST EDITED: FEB 22, 2021
HELP-PROMPT: Select a diagnosis (DO NOT EDIT)
DESCRIPTION:
This field store the previous diagnosis if a diagnosis was change from the radiology package.
CROSS-REFERENCE: 790.24^B
1)= S ^WV(790.1,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^WV(790.1,DA(1),11,"B",$E(X,1,30),DA)

DIAGNOSIS DATE TIME CHANGED

0;2

DATE

INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: FEB 23, 2021
HELP-PROMPT: Select Date/Time a diagnosis was change (DO NOT EDIT)
DESCRIPTION:
This stores the date/time a diagnosis was changed from the radiology package.
CROSS-REFERENCE: 790.24^D
1)= S ^WV(790.1,DA(1),11,"D",$E(X,1,30),DA)=""
2)= K ^WV(790.1,DA(1),11,"D",$E(X,1,30),DA)
This cross-reference is used to sort by date time accession primary diagnosis changed in the radiology package.