Sub-Field: 130.17

Parent File	Name	Number	Package
SURGERY(#130)	OTHER PREOP DIAGNOSIS	130.17	Surgery

Details

Field #	Name	Loc	Type	Details
.01	OTHER PREOP DIAGNOSIS	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL` LAST EDITED: `MAY 04, 2000` HELP-PROMPT: `Your answer must be 1 to 40 characters in length.` DESCRIPTION: `This is the name of an additional preoperative diagnosis, not provided in the principal preoperative diagnosis.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	*PAIRED ORGAN	0;2	SET	'L' FOR LEFT; 'R' FOR RIGHT; 'B' FOR BILATERAL; 'N' FOR NOT APPLICABLE; 'U' FOR UNKNOWN; LAST EDITED: `SEP 17, 1985` DESCRIPTION: `This is the code corresponding to the side of the body related to this preoperative diagnosis, if applicable.`
2	DIAGNOSIS COMMENTS	1;0	WORD-PROCESSING #130.2	DESCRIPTION: `These are comments related to the additional preoperative diagnosis.`
3	ICD DIAGNOSIS CODE	0;3	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""),+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 11, 2003` HELP-PROMPT: `Enter the ICD Diagnosis code which corresponds with this diagnosis.` DESCRIPTION: `This is the ICD Diagnosis Code which corresponds with this diagnosis. Entering this field is optional, but may be valuable in documentation of this case.` SCREEN: `S DIC("S")="I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""),+Y)"` EXPLANATION: `Screen prevents selection of inactive diagnosis.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`