Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 61.023

Package: Lab Service

TOPOGRAPHY FIELD(#61)-->61.023

Sub-Field: 61.023

Information

Parent File	Name	Number	Package
TOPOGRAPHY FIELD(#61)	SCT STATUS DATE	61.023	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	SCT STATUS DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X I $D(X),$G(DIUTIL)'="VERIFY FIELDS",'$G(LRFMERTS) K X` LAST EDITED: `JUN 08, 2009` HELP-PROMPT: `Enter the date the status was changed.` DESCRIPTION: `The date the status was changed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `61.023^B` `1)= S ^LAB(61,DA(1),"SCT1","B",$E(X,1,30),DA)=""` `2)= K ^LAB(61,DA(1),"SCT1","B",$E(X,1,30),DA)`
1	SCT STATUS CHANGE TO	0;2	SET	'P' FOR PREFERRED TERM; 'S' FOR SYNONYM; 'L' FOR LOCAL; 'R' FOR REFERRED; 'X' FOR NO APPLICABLE MAPPING; 'LN' FOR NEW TERM PENDING LEXICON UPDATE; 'RN' FOR STS REQUEST NEW CODE; 'E' FOR ERROR; LAST EDITED: `JUN 08, 2009` HELP-PROMPT: `Enter the status of this term's mapping to SNOMED CT.` DESCRIPTION: `This field track the status of terms referred to the ERT team to determine if this code is a valid VHA SNOMED SCT term.` SCREEN: `S DIC("S")="I ($G(DIUTIL)=""VERIFY FIELDS"")!$G(LRFMERTS)"` EXPLANATION: `Locks field to prevent editing other than by Lab software.`
2	SCT TRANSACTION NUMBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X I $D(X),$G(DIUTIL)'="VERIFY FIELDS",'$G(LRFMERTS) K X` LAST EDITED: `JUN 10, 2009` HELP-PROMPT: `Answer must be 1-45 characters in length` DESCRIPTION: `Transaction number generated by Laboratory software when referring a term for mediation by STS and mapping to SNOMED CT.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` FIELD INDEX: `AD (#891) REGULAR IR SORTING ONLY WHOLE FILE (#61)` `Short Descr: Whole file cross-reference on STS transaction numbers` `Description: Index to cross-reference the transaction numbers associated with submission and disposition of terms by STS.` `Set Logic: S ^LAB(61,"AD",$E(X,1,45),DA(1),DA)=""` `Kill Logic: K ^LAB(61,"AD",$E(X,1,45),DA(1),DA)` `Whole Kill: K ^LAB(61,"AD")` `X(1): SCT TRANSACTION NUMBER (61.023,2) (Subscr 1) (Len 45) (forwards)` FIELD INDEX: `AC (#893) REGULAR IR SORTING ONLY` `Short Descr: Regular cross-reference on STS transaction numbers` `Description: Index to cross-reference the transaction numbers associated with submission and disposition of terms by STS within this multiple.` `Set Logic: S ^LAB(61,DA(1),"SCT1","AC",$E(X,1,45),DA)=""` `Kill Logic: K ^LAB(61,DA(1),"SCT1","AC",$E(X,1,45),DA)` `Whole Kill: K ^LAB(61,DA(1),"SCT1","AC")` `X(1): SCT TRANSACTION NUMBER (61.023,2) (Subscr 1) (Len 45) (forwards)`
3	SCT STATUS USER	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 12, 2009` HELP-PROMPT: `Enter the user who performed the SCT code resolution.` DESCRIPTION: `Store the user who initiated the process to apply the STS SNOMED CT code resolution or the original mapping to this file entry.`
4	SCT COMMENT TEXT	1;0	WORD-PROCESSING #61.0231	LAST EDITED: `JUN 08, 2009` DESCRIPTION: `Contains text or comments related to the mapping of a term to SNOMED CT. The text can relate to information submitted to STS for the term to be mapped, the comments returned by STS related to the mapping and any` `comments when attempting to apply the disposition from STS.` LAST EDITED: `JUN 08, 2009` HELP-PROMPT: `Enter the comment that accompanies this disposition.` DESCRIPTION: `Contains text or comments related to the mapping of a term to SNOMED CT. The text can relate to information submitted to STS for the term to be mapped, the comments returned by STS related to the mapping and any` `comments when attempting to apply the disposition from STS.`