Sub-Field: 9009012.51

Parent File	Name	Number	Package
DS INCOMPLETE CHART(#9009012.5)	SURGERY DATE	9009012.51	IHS Changes To ADT

Details

Field #	Name	Loc	Type	Details
.01	SURGERY DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 15, 1996` HELP-PROMPT: `Enter the date of the surgery for this patient.` CROSS-REFERENCE: `9009012.5^AB` 1)= S ^ADGDSI("AB",$E(X,1,30),DA(1),DA)="" 2)= K ^ADGDSI("AB",$E(X,1,30),DA(1),DA)
1	DATE OP REPORT DICTATED	0;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter date provider dictated operative report.`
2	DATE OP REPORT RVCD	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date operative report was received from transcription.`
3	PROVIDER	P;0	POINTER Multiple #9009012.513	9009012.513
4	COMMENTS	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH`
5	SERVICE	0;5	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7)