Global: ^ONCO(160

FileMan FileNo	FileMan Filename	Package
160	ONCOLOGY PATIENT	Oncology

Package	Total	Routines
Oncology	70	ONC2PS05 ONCACD1 ONCACDU1 ONCACDU2 ONCBPC1 ONCBPC6 ONCBPC8 ONCBRP1 ONCBRP2 ONCBRP3 ONCBRP5A ONCBRP7 ONCBRP9 ONCCPC1 ONCCPC7 ONCCPC9 ONCEDIT2 ONCHPC1 ONCHPC6 ONCHPC8 ONCHPC8A ONCIPC1 ONCIPC6 ONCIPC8 ONCIPC8C ONCMPC1 ONCMPC6 ONCMPC9 ONCNPC1 ONCNPC6 ONCNPC8 ONCOAI ONCOAIF ONCOAIP ONCOAIQ ONCOAS ONCOCFL ONCOCFL1 ONCOCFP ONCOCFR ONCOCOS ONCOCRF ONCOEDC ONCOES ONCOFDP ONCOFUL ONCOFUP ONCOGEN ONCOPA1 ONCOPAR ONCOPMA ONCOPRT ONCOU ONCOUK ONCOUTC ONCP2P1 ONCP2P6 ONCP2P8 ONCPAT ONCPDI ONCPPC1 ONCPPC7 ONCPPC9 ONCPTHST ONCSPC1 ONCSPC6 ONCSPC8 ONCTPC1 ONCTPC6 ONCTPC8
Health Summary	1	GMTSONE

Package	Total	FileMan Files
Oncology	1	ONCOLOGY PRIMARY(#165.5)[.02]

Package	Total	FileMan Files
Oncology	7	FACILITY(#160.19)[24.5, #160.04(10)] ICD-O-2 MORPHOLOGY(#164.1)[#160.075(10)] COMMON CANCERS(#164.4)[#160.044(1)] RACE CODE FOR ONCOLOGY(#164.46)[8, 8.1, 8.2, 8.3, 8.4] ONCOLOGY CONTACT(#165)[15.1, #160.03(1), #160.06(2)] FOLLOW-UP FORM LETTER(#165.1)[#160.06(6)] GEOCODES(#165.2)[7, 21]
Lab Service	4	TOPOGRAPHY FIELD(#61)[#160.075(5)] MORPHOLOGY FIELD(#61.1)[#160.075(4)] DISEASE FIELD(#61.4)[#160.075(13)] REFERRAL PATIENT(#67)[.01]
Kernel	2	INSTITUTION(#4)[#160.05(1), #160.075(3)] NEW PERSON(#200)[#160.04(11)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[19, 25, 25.1, 25.2, 25.3, 25.4, 25.5, 25.6, 25.7, 25.8, 25.9, 25.91, 25.92, 25.93, 25.94, 25.95, 25.96, 25.97, 25.98, 25.99, 25.9901, #160.075(8)]
Radiology Nuclear Medicine	1	RAD/NUC MED PROCEDURES(#71)[#160.075(6)]
Registration	1	PATIENT(#2)[.01]

Fields, Total: 151

Field #	Name	Loc	Type	Details
.01	NAME	0;1	VARIABLE POINTER	**********************REQUIRED FIELD********************** PATIENT(#2) REFERRAL PATIENT(#67) LAST EDITED: `APR 22, 1992` DESCRIPTION: `This field identifies the patient by establishing a pointer to either the VA Patient File, or, for non-VA patients, to the Referral File. Enter the patient's name to see if it is already on file. If not, you will need to` `enter the name, along with other identifiers, into the appropriate file. Contact your MAS representative if you have difficulty entering a new patient into the VA Patient File.` GROUP: `ACOS-REQUIRED` CROSS-REFERENCE: `160^B` `1)= S ^ONCO(160,"B",$E(X,1,30),DA)=""` `2)= K ^ONCO(160,"B",$E(X,1,30),DA)` `Regular "B" cross-reference on .01 field - variable pointer.`
.011	LAST NAME		COMPUTED	MUMPS CODE: `X ^DD(160,.011,9.3) S X=$P(X,",",1)` `9.2 = S Y(160,.011,1)=$S($D(^ONCO(160,D0,0)):^(0),1:"")` `9.3 = X ^DD(160,.011,9.2) S X=$P(Y(160,.011,1),U,1),C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]"" Y^DIQ:C'["D"` `S X=Y,C=","` ALGORITHM: `ONCOLASTNAME(NAME)` DESCRIPTION: `Identifies the last name of the patient.` `For further information see FORDS page 39.`
.012	FIRST-LAST		COMPUTED	MUMPS CODE: `X ^DD(160,.012,9.3) S X=$$FLNAME^ONCFUNC(X)` `9.2 = S Y(160,.012,1)=$S($D(^ONCO(160,D0,0)):^(0),1:"")` `9.3 = X ^DD(160,.012,9.2) S X=$P(Y(160,.012,1),U,1),C=$S(X="":-1,'$D(@(U_$P(X,";",2)_"0)")):-1,1:$P(^(0),U,2)),X=$S(X="":X,'$D(^(+X,0)):"",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:"D") D:X]"" Y^DIQ:C'["D"` `S X=Y,C=","` ALGORITHM: `ONCOFIRSTNAME LASTNAME(NAME)` LAST EDITED: `MAY 24, 2001` DESCRIPTION: `RECORD THE PATIENT'S FIRST AND LAST NAME.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.013	C'LASTNAME		COMPUTED	MUMPS CODE: `S X=^ONCO(160,D0,0),Y="^"_$P($P(X,U,1),";",2)_+X_",0)",X=$S($D(@Y):$P(@Y,U,1),1:""),X=$P(X,",",1)` ALGORITHM: `S X=^ONCO(160,D0,0),Y="^"_$P($P(X,U,1),";",2)_+X_",0)",X=$S($D(@Y):$P(@Y,U,1),1:""),X=$P(X,",",1)` LAST EDITED: `MAR 08, 1996` DESCRIPTION: `RECORD PATIENT'S LAST NAME IF IT CONTAINS A C'.`
.014	SALUTATION		COMPUTED	MUMPS CODE: `S X=$S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:""),X=$S(X="2":"Ms",1:"Mr")` ALGORITHM: `S X=$S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:""),X=$S(X="2":"Ms",1:"Mr")` DESCRIPTION: `Looks at sex field, and determines how letter should be addressed.`
.015	MIDDLE NAME		COMPUTED	MUMPS CODE: `D MNI^ONCOES` ALGORITHM: `D MNI^ONCOES` LAST EDITED: `MAY 29, 2009` DESCRIPTION: `Identifies the middle name or middle initial of the patient.` `For further information see FORDS page 41.`
.111	STREET ADDRESS 1		COMPUTED	MUMPS CODE: `S X="" D SA1^ONCOES` ALGORITHM: `S X="" D SA1^ONCOES` LAST EDITED: `JUL 16, 1992` DESCRIPTION: `RECORD FIRST LINE OF PATIENT'S ADDRESS.`
.112	STREET ADDRESS 2		COMPUTED	MUMPS CODE: `D SA2^ONCOES` ALGORITHM: `D SA2^ONCOES` DESCRIPTION: `RECORD 2ND LINE OF PATIENT'S ADDRESS.`
.113	STREET ADDRESS 3		COMPUTED	MUMPS CODE: `D SA3^ONCOES` ALGORITHM: `D SA3^ONCOES` DESCRIPTION: `RECORD 3RD LINE OF PATIENT'S ADDRESS.`
.115	STATE		COMPUTED	MUMPS CODE: `D ST^ONCOES` ALGORITHM: `D ST^ONCOES` DESCRIPTION: `RECORD THE PATIENT'S STATE OF RESIDENCE.`
.116	ZIP CODE		COMPUTED	MUMPS CODE: `S X="" D ZIP^ONCOES` ALGORITHM: `S X="" D ZIP^ONCOES` LAST EDITED: `JUL 16, 1991` DESCRIPTION: `RECORD THE PATIENT'S RESIDENCE ZIP CODE.`
.117	COUNTY		COMPUTED	MUMPS CODE: `D CTY^ONCOES` ALGORITHM: `D CTY^ONCOES` LAST EDITED: `JUN 02, 2009` DESCRIPTION: `Computes the patient's current COUNTY of residence. COUNTY is derived from COUNTY (2,.117).`
.118	ZIP-COUNTY		COMPUTED	MUMPS CODE: `S X="" D ZIPCT^ONCOES` ALGORITHM: `D ZIPCT^ONCOES` DESCRIPTION: `THIS IS A COMPUTED FIELD THAT BRINGS UPS THE COUNTY OF RESIDENCE COMPUTED FROM ZIP CODE.`
.119	PATIENT ADDRESS - CURRENT		COMPUTED	MUMPS CODE: `S X="" D ADD^ONCOES` ALGORITHM: `S X="" D ADD^ONCOES` LAST EDITED: `NOV 04, 2002` DESCRIPTION: `Identifies the patient's current address (number and street).` `For further information see FORDS page 49.`
.1191	PATIENT ADDRESS - CURRENT SUPP		COMPUTED	MUMPS CODE: `D SA3^ONCOES` ALGORITHM: `D SA3^ONCOES` DESCRIPTION: `Provides the ability to store additional address information such as the name of a place or facility (ie, a nursing home or name of an apartment complex).` `For further information see FORDS page 50.`
.12	CTY		COMPUTED	MUMPS CODE: `S X="" D CTY^ONCOES` ALGORITHM: `S X="" D CTY^ONCOES` DESCRIPTION: `This is the patient's county, retrieved from the PATIENT file (#2). If the ONCOLOGY PATIENT file is pointing to the REFERRAL file (#67), the CTY value will be null.`
.131	TELEPHONE		COMPUTED	MUMPS CODE: `D PH^ONCOES` ALGORITHM: `D PH^ONCOES` LAST EDITED: `NOV 04, 2002` DESCRIPTION: `Records the current telphone number with area code for the patient.` `For further information see FORDS page 55.`
.2	CONTACTS		COMPUTED	MUMPS CODE: `S X="" D CON^ONCOCON` ALGORITHM: `S X="" D CON^ONCOCON` DESCRIPTION: `THIS IS A COMPUTED FIELD FOR THE PATIENT'S CONTACTS.`
.21	NOK-INFO		COMPUTED	MUMPS CODE: `S X="" D NOK^ONCOCON` ALGORITHM: `S X="" D NOK^ONCOCON` DESCRIPTION: `THIS FIELD CONTAINS INFORMATION FOR THE PATIENT'S NEXT OF KIN.`
.211	NOK2-INFO		COMPUTED	MUMPS CODE: `S X="" D NOK2^ONCOCON` ALGORITHM: `S X="" D NOK2^ONCOCON` DESCRIPTION: `THIS FIELD CONTAINS INFORMATION RELATED TO THE PATIENT'S 2ND NEXT OF KIN.`
.212	RELATIVE		COMPUTED	MUMPS CODE: `S X="" D REL^ONCOCON` ALGORITHM: `S X="" D REL^ONCOCON` LAST EDITED: `MAY 21, 1991` DESCRIPTION: `THIS FIELD CONTAINS INFORMATION REGARDING THE NEXT OF KIN RELATIONSHIP TO THE PATIENT.`
.213	RELATIVE-2		COMPUTED	MUMPS CODE: `S X="" D REL2^ONCOCON` ALGORITHM: `S X="" D REL2^ONCOCON` DESCRIPTION: `THIS FIELD CONTAINS INFORMATION REGARDING THE 2ND NEXT OF KIN RELATIONSHIP TO THE PATIENT.`
.214	NOK		COMPUTED	MUMPS CODE: `S X="" D NOKEO^ONCOCON` ALGORITHM: `S X="" D NOKEO^ONCOCON` DESCRIPTION: `This is the patient's next of kin, retrieved from either the PATIENT File (#2) or the REFERRAL File (#67).`
1	ALIAS		COMPUTED	MUMPS CODE: `S X="" D ALIAS^ONCOES` ALGORITHM: `S X="" D ALIAS^ONCOES` LAST EDITED: `FEB 28, 1992` DESCRIPTION: `COMPUTED FIELD BRINGING OVER ANY ALIAS LISTED IN THE MAS FILE FOR THE PATIENT.`
2	SSN		COMPUTED	MUMPS CODE: `D SSN^ONCOES` ALGORITHM: `D SSN^ONCOES` LAST EDITED: `MAY 12, 2003` DESCRIPTION: `Records the patient's Social Security number.` `For further information see FORDS page 37.`
2.1	CSSN		COMPUTED	MUMPS CODE: `S X=^ONCO(160,D0,0),Y="^"_$P($P(X,U,1),";",2)_+X_",0)",X=$S($D(@Y):$P(@Y,U,9),1:"")` ALGORITHM: `S X=^ONCO(160,D0,0),Y="^"_$P($P(X,U,1),";",2)_+X_",0)",X=$S($D(@Y):$P(@Y,U,9),1:"")` DESCRIPTION: `COMPUTED SOCIAL SECURITY NUMBER.`
3	DOB		COMPUTED	MUMPS CODE: `D DOB^ONCOES` ALGORITHM: `D DOB^ONCOES` LAST EDITED: `MAY 12, 2003` DESCRIPTION: `Identifies the date of birth of the patient.` `For further information see FORDS page 57.`
3.1	DATE OF BIRTH (FILEMAN FORMAT)		COMPUTED	MUMPS CODE: `D DOB1^ONCOES` ALGORITHM: `D DOB1^ONCOES` LAST EDITED: `NOV 04, 2002` DESCRIPTION: `Identifies the date of birth of the patient in internal FileMan format.`
4	MEDICAL RECORD NUMBER		COMPUTED	MUMPS CODE: `D SSN^ONCOES` ALGORITHM: `D SSN^ONCOES` LAST EDITED: `FEB 12, 2003` DESCRIPTION: `Records the medical record number usually assigned by the reporting facility's health information management (HIM) department.` `For further information see FORDS page 36.`
4.1	TERMINAL DIGIT		COMPUTED	MUMPS CODE: `S X="" D TRM^ONCOES` ALGORITHM: `S X="" D TRM^ONCOES` LAST EDITED: `OCT 31, 1990` DESCRIPTION: `COMPUTED FIELD TAKING THE LAST TWO DIGITS FROM THE PATIENT'S SOCIAL SECURITY NUMBER.`
5	REGIONAL NO.	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-8 CHARACTERS IN LENGTH` DESCRIPTION: `Regional data set - One number per patient - Can be left blank.`
6	CENTRAL NO.	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<8)!'(X?8N) X I $D(X) I $D(^ONCO(160,"CN",X)) W !,*7,"This has been used previously as a CENTRAL NUMBER" K X` LAST EDITED: `SEP 23, 1988` HELP-PROMPT: `ANSWER MUST BE A UNIQUE COMBINATION OF 8 NUMBERS IN LENGTH AND CAN HAVE LEADING ZEROS` DESCRIPTION: `The case number is issued by the SEER participant to identify the person. Each computer record pertaining to the same person must have an identical case number. It uses eight digits with leading zeros as necessary.` `SOURCE OF DATA: SEER I.02` GROUP: `SEER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `160^CN` `1)= S ^ONCO(160,"CN",$E(X,1,30),DA)=""` `2)= K ^ONCO(160,"CN",$E(X,1,30),DA)` `Indexes file by CENTRAL NO..`
7	PLACE OF BIRTH	0;5	POINTER TO GEOCODES FILE (#165.2)	**********************REQUIRED FIELD********************** GEOCODES(#165.2) LAST EDITED: `NOV 04, 2002` DESCRIPTION: `Records the patient's place of birth.` `For further information see FORDS page 56.` GROUP: `ACOS`
8	RACE 1	0;6	POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46)	**********************REQUIRED FIELD********************** RACE CODE FOR ONCOLOGY(#164.46) INPUT TRANSFORM: `S DIC("S")="I Y'=88" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 07, 2000` DESCRIPTION: `Identifies the primary race of the person.` `For further information see FORDS page 59.` SCREEN: `S DIC("S")="I Y'=88"` EXPLANATION: `Select an entry from the RACE CODE FOR ONCOLOGY list`
8.1	RACE 2	0;15	POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46)	RACE CODE FOR ONCOLOGY(#164.46) LAST EDITED: `DEC 07, 2000` DESCRIPTION: `Identifies the patient's race.` `For further information see FORDS page 61.`
8.2	RACE 3	0;16	POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46)	RACE CODE FOR ONCOLOGY(#164.46) LAST EDITED: `DEC 07, 2000` DESCRIPTION: `Identifies the patient's race.` `For further information see FORDS page 62.`
8.3	RACE 4	0;17	POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46)	RACE CODE FOR ONCOLOGY(#164.46) LAST EDITED: `DEC 07, 2000` DESCRIPTION: `Identifies the patient's race.` `For further information see FORDS page 63.`
8.4	RACE 5	0;18	POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46)	RACE CODE FOR ONCOLOGY(#164.46) LAST EDITED: `DEC 07, 2000` DESCRIPTION: `Identifies the patient's race.` `For further information see FORDS page 64.`
9	SPANISH ORIGIN	0;7	SET	'0' FOR Non-Spanish, non-Hispanic; '1' FOR Mexican; '2' FOR Puerto Rican; '3' FOR Cuban; '4' FOR South/Central American; '5' FOR Other specified Spanish/Hispanic; '6' FOR Spanish, Hispanic, Latino, NOS; '7' FOR Spanish surname only; '8' FOR Dominican Republic; '9' FOR Unknown/not stated; LAST EDITED: `OCT 08, 2004` DESCRIPTION: `Identifies persons of Spanish or Hispanic origin.` `NOTE: Code 8 (Dominican Republic) is for use with patients who` `were diagnosed with cancer on January 1, 2005, or later.` `For further information see FORDS page 65.` GROUP: `ACOS-RECOMMENDED`
10	SEX	0;8	SET	**********************REQUIRED FIELD********************** '1' FOR Male; '2' FOR Female; '3' FOR Other (intersex, disorders of sexual development/DSD); '4' FOR Transsexual, NOS; '5' FOR Transsexual, natal male; '6' FOR Transsexual, natal female; '9' FOR Not stated; LAST EDITED: `MAR 07, 2017` HELP-PROMPT: `Record the patient's sex as noted in the medical record.` DESCRIPTION: `Identifies the sex of the patient.` `For further information see FORDS page 66.`
11	LRDFN	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1991` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits` DESCRIPTION: `COMPUTED FIELD WITH THE LABORATORY DATA FILE NUMBER.`
12	CURRENT OCCUPATION		COMPUTED	MUMPS CODE: `S X="" D OCC^ONCOES` ALGORITHM: `S X="" D OCC^ONCOES` DESCRIPTION: `This is the current occupation of the patient.`
13	RELIGION		COMPUTED	MUMPS CODE: `D REL^ONCOES` ALGORITHM: `D REL^ONCOES` LAST EDITED: `OCT 15, 1987` DESCRIPTION: `THE PATIENT'S RELIGION.`
14	MARITAL STATUS		COMPUTED	MUMPS CODE: `D MS^ONCOES` ALGORITHM: `D MS^ONCOES` DESCRIPTION: `COMPUTED FIELD LISTING THE PATIENT'S MARTIAL STATUS.`
15	STATUS	1;1	SET	'0' FOR Dead; '1' FOR Alive; LAST EDITED: `SEP 24, 2003` DESCRIPTION: `Record whether the patient is alive or dead.` TECHNICAL DESCR: `This field is referenced directly by UVS^ONCOCRF. This field is referenced directly by TRS^ONCOCOS.` CROSS-REFERENCE: `160^AS` `1)= S ^ONCO(160,"AS",$E(X,1,30),DA)=""` `2)= K ^ONCO(160,"AS",$E(X,1,30),DA)` `Indexes file by STATUS.`
15.1	LAST FOLLOW-UP CONTACT	1;6	POINTER TO ONCOLOGY CONTACT FILE (#165)	ONCOLOGY CONTACT(#165) LAST EDITED: `MAY 07, 1999` DESCRIPTION: `RECORDS THE PATIENT'S LAST FOLLOW-UP CONTACT.` CROSS-REFERENCE: `160^AC` `1)= S ^ONCO(160,"AC",$E(X,1,30),DA)=""` `2)= K ^ONCO(160,"AC",$E(X,1,30),DA)` `Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them.`
15.2	FOLLOW-UP STATUS	1;7	SET	'0' FOR Inactive; '1' FOR Active; '8' FOR LTF; LAST EDITED: `JAN 05, 2000` DESCRIPTION: `RECORDS THE PATIENT'S FOLLOW UP STATUS.` CROSS-REFERENCE: `160^AFS` `1)= S ^ONCO(160,"AFS",$E(X,1,30),DA)=""` `2)= K ^ONCO(160,"AFS",$E(X,1,30),DA)` `Indexes file by FOLLOW-UP STATUS.`
16	DATE LAST CONTACT		COMPUTED	MUMPS CODE: `S X="" D DLC^ONCOCRF,DATEOT^ONCOES` ALGORITHM: `S X="" D DLC^ONCOCRF,DATEOT^ONCOES` LAST EDITED: `MAR 30, 2006` DESCRIPTION: `RECORDS THE PATIENT'S LAST DATE OF CONTACT.`
17	TOTAL PRIMARIES FOR PATIENT		COMPUTED	MUMPS CODE: `D PRICNT^ONCFUNC` ALGORITHM: `D PRICNT^ONCFUNC` LAST EDITED: `AUG 17, 2001` DESCRIPTION: `This field will display a division specific count of a patient's primaries.`
18.9	CAUSE OF DEATH/CANCER	1;12	SET	'D' FOR Directly related; 'I' FOR Indirectly related; 'N' FOR Not related; 'U' FOR Unknown; LAST EDITED: `APR 23, 1993` DESCRIPTION: `This field contains a code indicating whether the patient died as a result of cancer.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.` SCREEN: `S DIC("S")="I '$P($G(^ONCO(160,DA,1)),U)"` EXPLANATION: `This field only applies to expired patients.`
19	CAUSE OF DEATH	1;3	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 15, 2015` HELP-PROMPT: `Enter a valid ICD code.` DESCRIPTION: `Record the CAUSE OF DEATH listed on the death certificate. Central registries are the primary users of this data item. Use the underlying CAUSE OF DEATH (ICD code) identified by state health department.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.` GROUP: `SEER` CROSS-REFERENCE: `^^TRIGGER^160^19.1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^ONCO(160,DIV(0),1)),DIV=X S $P(^(1),U,14)=DIV,DIH=160,DIG=19.1 D ^DICR` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^ONCO(160,DIV(0),1)),DIV=X S $P(^(1),U,14)=DIV,DIH=160,DIG=19.1 D ^DICR` `CREATE VALUE)= @` `DELETE VALUE)= NO EFFECT` `FIELD)= STATE DEATH CERT` `When CAUSE OF DEATH field is stuffed, the STATE DEATH CERT field will be deleted.`
19.1	STATE DEATH CERT	1;14	SET	'7777' FOR State death certificate or listing not available; '7797' FOR State death cert available, cause of death not coded; LAST EDITED: `APR 09, 1998` HELP-PROMPT: `Enter the status of the state death certificate.` DESCRIPTION: `This field stores special CAUSE OF DEATH values which are not ICD codes.` NOTES: `TRIGGERED by the CAUSE OF DEATH field of the ONCOLOGY PATIENT File`
20	ICD REVISION	1;4	SET	'0' FOR Patient alive at last follow-up; '8' FOR ICDA-8; '9' FOR ICD-9; LAST EDITED: `SEP 23, 1987` DESCRIPTION: `This information will be provided by the central registry when backloading cases. It refers to which ICD coding scheme (see Field 19 'Cause of Death') used to code the cause of death.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA and by UVSDEAD^ONCOCRFA.` `SOURCE OF DATA: SEER VI.03` GROUP: `SEER`
21	PLACE OF DEATH	1;5	POINTER TO GEOCODES FILE (#165.2)	GEOCODES(#165.2) LAST EDITED: `JUL 14, 1998` DESCRIPTION: `Enter the place of death.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.`
22.9	AUTOPSY	1;13	SET	'0' FOR Patient alive; '1' FOR Autopsy performed; '2' FOR No autopsy performed; '9' FOR Patient expired, unknown if autopsy performed; LAST EDITED: `FEB 07, 2000` DESCRIPTION: `This field contains a code indicating (if known) whether a post-mortem examination was performed on the patient.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.` SCREEN: `S DIC("S")="I '$P($G(^ONCO(160,DA,1)),U)"` EXPLANATION: `This field only applies to expired patients.`
23	AUTOPSY DATE/TIME	1;9	DATE	INPUT TRANSFORM: `S %DT="EST",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` OUTPUT TRANSFORM: `S X=Y D DATEOT^ONCOES` LAST EDITED: `DEC 19, 1996` DESCRIPTION: `RECORD THE DATE AND TIME OF AUTOPSY.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
24	AUTOPSY #	1;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `AUG 02, 1990` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `RECORD THE AUTOPSY SEQUENCE NUMBER, USUALLY STATED AS A-90-XXXX.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.`
24.5	CARE CENTER AT DEATH	1;11	POINTER TO FACILITY FILE (#160.19)	FACILITY(#160.19) OUTPUT TRANSFORM: `S:Y'="" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)` LAST EDITED: `JUN 28, 1996` HELP-PROMPT: `Enter Facility where patient expired.` DESCRIPTION: `Facility caring for patient at the time of death.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.`
25	COMORBIDITY/COMPLICATION #1	0;19	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank. When this item is extracted for` `export a blank value will be converted to "00000" as per` `the NAACCR instructions.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS pages 69-70.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 1st pre-existing condition and/or complication using the ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank. Blank values will be converted to "00000" for` `NAACCR export.`
25.1	COMORBIDITY/COMPLICATION #2	0;20	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 71.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 2nd pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.2	COMORBIDITY/COMPLICATION #3	0;21	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 72.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 3rd pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.3	COMORBIDITY/COMPLICATION #4	0;22	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 73.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 4th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.4	COMORBIDITY/COMPLICATION #5	0;23	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 74.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 5th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.5	COMORBIDITY/COMPLICATION #6	0;24	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 75.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 6th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.6	COMORBIDITY/COMPLICATION #7	0;28	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 75A.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 7th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.7	COMORBIDITY/COMPLICATION #8	0;29	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 75B.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 8th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.8	COMORBIDITY/COMPLICATION #9	0;30	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 75C.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 9th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.9	COMORBIDITY/COMPLICATION #10	0;31	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D CC^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y'="" N ONCICD,CODE,SPACE S ONCICD=$$ICDDX^ICDCODE(Y) S:(ONCICD=-1) Y=-1 S:(Y'=-1) CODE=$P(ONCICD,U,2),SPACE=$S($L(CODE)=4:" ",$L(CODE)=5:" ",1:" "),Y=CODE_SPACE_$P(ONCICD,U,4)` LAST EDITED: `JUN 08, 2012` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer. Both are considered secondary diagnoses.` `DO NOT record any neoplasms (ICD-CM codes 140-239.9) listed as secondary diagnoses for this data item.` `DO NOT record causes of injury and poisoning unrelated to the patient's medical care (ICD-CM codes E800-E869.9, E880-E929.9, or E950-E999).` `DO NOT record the following factors influencing health status and contact with health services (ICD-CM codes V01-V07.1, V07.4-V09.91, V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89).` `For further information see FORDS page 75D.` SCREEN: `S DIC("S")="D CC^ONCFUNC"` EXPLANATION: `Record the patient's 10th pre-existing condition and/or complication using ICD-CM codes. If no comorbid conditions or complications were documented, leave this item blank.`
25.91	SECONDARY DIAGNOSIS #1	3;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank. When this item is extracted for` `export a blank value will be converted to "0000000" as per` `the NAACCR instructions.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's 1st pre-existing condition and/or complication using ICD-10-CM code.`
25.92	SECONDARY DIAGNOSIS #2	3;2	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's 2nd pre-existing condition and/or complication using ICD-10-CM code.`
25.93	SECONDARY DIAGNOSIS #3	3;3	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's 3rd pre-existing condition and/or complication using the ICD-10-CM code.`
25.94	SECONDARY DIAGNOSIS #4	3;4	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's 4th pre-existing condition and/or complication using the ICD-10-CM code.`
25.95	SECONDARY DIAGNOSIS #5	3;5	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's 5th pre-existing condition and/or complication using the ICD-10-CM code.`
25.96	SECONDARY DIAGNOSIS #6	3;6	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's pre-existing condition and/or complication using the ICD-10-CM code.`
25.97	SECONDARY DIAGNOSIS #7	3;7	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's pre-existing condition and/or complication using the ICD-10-CM code.`
25.98	SECONDARY DIAGNOSIS #8	3;8	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's pre-existing condition and/or complication using the ICD-10-CM code.`
25.99	SECONDARY DIAGNOSIS #9	3;9	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's pre-existing condition and/or complication using the ICD-10-CM code.`
25.9901	SECONDARY DIAGNOSIS #10	3;10	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `S DIC("S")="D SDIAG^ONCFUNC" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S X=Y D SDOT^ONCFUNC` LAST EDITED: `OCT 14, 2015` HELP-PROMPT: `Enter a valid ICD-10-CM code.` DESCRIPTION: `Records the patient's preexisting medical conditions, factors influencing health status, and/or complications during the patient's hospital stay for the treatment of this cancer using ICD-10-CM codes. All are considered` `secondary diagnoses.` `NOTE: If no comorbid conditions or complications were documented,` `leave this field blank.` SCREEN: `S DIC("S")="D SDIAG^ONCFUNC"` EXPLANATION: `Record the patient's pre-existing condition and/or complication using ICD-10-CM code.`
27	DUE FOLLOW-UP	1;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 25, 1990` HELP-PROMPT: `Date patient is DUE for follow-UP. FOR DF REPORT, ENTER THE DATE OF THE NEXT SCHEDULED FOLLOW UP IN MONTH YEAR FORMAT. EXAMPLE: SEPT 2014 (FOR CASES DUE FOR FOLLOW-UP SEPT 1 THROUGH SEPT 30, 2014)` DESCRIPTION: `RECORDS THE DATE OF THE NEXT SCHEDULED FOLLOW UP.` CROSS-REFERENCE: `160^AD` `1)= S ^ONCO(160,"AD",$E(X,1,30),DA)=""` `2)= K ^ONCO(160,"AD",$E(X,1,30),DA)` `Indexes file by DUE FOLLOW-UP.`
29	DATE@TIME OF DEATH	1;8	DATE	INPUT TRANSFORM: `S %DT="EST",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` OUTPUT TRANSFORM: `S X=Y D DATEOT^ONCOES` LAST EDITED: `FEB 05, 1996` HELP-PROMPT: `Enter the date of death or approximate date.` DESCRIPTION: `RECORD THE DATE AND TIME OF DEATH.` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA and by UVSDEAD^ONCOCRFA.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
29.1	DOD		COMPUTED DATE	MUMPS CODE: `S X="" D DOD^ONCOCRF` ALGORITHM: `S X="" D DOD^ONCOCRF` LAST EDITED: `NOV 02, 1990` DESCRIPTION: `COMPUTED FIELD FOR DATE OF DEATH.`
31	PATH/AUTOPSY (GROSS & MICRO)	4;0	WORD-PROCESSING #160.031	LAST EDITED: `APR 05, 1990` TECHNICAL DESCR: `This field is referenced directly by UVSALIVE^ONCOCRFA.` LAST EDITED: `SEP 17, 1990` DESCRIPTION: `Allows entry of Autopsy findings from Autopsy Report - both Gross and Micro.`
32	DESC		COMPUTED	MUMPS CODE: `S X=$S($P($G(^ONCO(160,D0,2)),U,3)="":0,1:1)` ALGORITHM: `CUSTOM CODED` LAST EDITED: `MAY 26, 1992` DESCRIPTION: `SUSPENSE COMPUTED FIELD.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
33.1	SUSPENSE ADMIT DATE		COMPUTED	MUMPS CODE: `D SAD^ONCOCON` ALGORITHM: `D SAD^ONCOCON` LAST EDITED: `AUG 26, 2009` DESCRIPTION: `This field displays the patient's admission date.`
33.2	SUSPENSE DISCHARGE DATE		COMPUTED	MUMPS CODE: `D SDD^ONCOCON` ALGORITHM: `D SDD^ONCOCON` LAST EDITED: `APR 17, 2009` DESCRIPTION: `This field displays the patient's discharge date.`
33.3	SUSPENSE EPISODE OF CARE		COMPUTED	MUMPS CODE: `S X="" D SEC^ONCOCON` ALGORITHM: `S X="" D SEC^ONCOCON` DESCRIPTION: `This field records the episode of care leading to this suspense entry.`
33.6	PRIORITY	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 27, 1992` HELP-PROMPT: `Type a Number between 1 and 10, 0 Decimal Digits` DESCRIPTION: `RECORDS PRECEDENCE STRUCTURE.`
34	LAST EPISODE of CARE		COMPUTED	MUMPS CODE: `S X="" D LEC^ONCOCON` ALGORITHM: `S X="" D LEC^ONCOCON` DESCRIPTION: `This field records the last episode of care.`
34.1	LAST ADMIT DATE		COMPUTED	MUMPS CODE: `D LAD^ONCOCON` ALGORITHM: `D LAD^ONCOCON` LAST EDITED: `FEB 26, 2010` DESCRIPTION: `Computes last admission date.`
34.2	LAST DISCHARGE DATE		COMPUTED	MUMPS CODE: `D LDD^ONCOCON` ALGORITHM: `D LDD^ONCOCON` LAST EDITED: `FEB 26, 2010` DESCRIPTION: `Computes last discharge date.`
36	LOST TO FOLLOWUP		BOOLEAN COMPUTED	MUMPS CODE: `S Y(160,36,1)=$S($D(^ONCO(160,D0,1)):^(1),1:""),X1=DT,X2=$P(Y(160,36,1),U,2) D:X2 ^%DTC:X1 S X=X>91.25 S:X $P(^ONCO(160,D0,1),U,7)=8` ALGORITHM: `(TODAY-#27)>91.25` LAST EDITED: `AUG 09, 1991` DESCRIPTION: `COMPUTED FOR FOR PATIENTS THAT ARE LOST TO FOLLOW UP, OCCURS WHEN THE PATIENTS LAST FOLLOW UP ATTEMPT/CONTACT IS OVER 15 MONTHS.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
37	MONTHS DELINQUENT		COMPUTED	MUMPS CODE: `S Y(160,37,1)=$S($D(^ONCO(160,D0,1)):^(1),1:""),X1=DT,X2=$P(Y(160,37,1),U,2) D:X2 ^%DTC:X1 S X=$S(X>91.25:(X/30.4167),1:""),X=$P(X,".")` ALGORITHM: `S X=""` DESCRIPTION: `COMPUTED FOR GIVEN TIME FRAME THE PATIENT FOLLOW UP IS DELINQUENT.`
38	TOBACCO HISTORY	8;2	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; '0' FOR Never used; '1' FOR Cigarette smoker, current; '2' FOR Cigar/Pipe smoker, current; '3' FOR Snuff/Chew/Smokeless, current; '4' FOR Combination use, current; '5' FOR Previous use; '9' FOR Unknown; LAST EDITED: `JUN 21, 1999` DESCRIPTION: `Code the patient's past or current use of tobacco.` SCREEN: `S DIC("S")="D TAHIST^ONCOOT I ((ACDT=1999)&(NUM=1))!((ACDT=0)&(NUM=0))"` EXPLANATION: `Use codes 0-9 for patients accessed in 1999 or later. Use codes Y, N and U for patients accessed prior to 1999.`
39	ALCOHOL HISTORY	8;3	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; '0' FOR No history of alcohol use; '1' FOR Current use of alcohol; '2' FOR Past history of alcohol use; '9' FOR Alcohol usage unknown; LAST EDITED: `JUN 21, 1999` DESCRIPTION: `Code the patient's past or current consumption of alcoholic beverages including wine or beer.` SCREEN: `S DIC("S")="D TAHIST^ONCOOT I ((ACDT=1999)&(NUM=1))!((ACDT=0)&(NUM=0))"` EXPLANATION: `Use codes 0-9 for patients accessed in 1999 or later. Use codes Y, N and U for patients accessed prior to 1999.`
40	TOBACCO USAGE	5;0	SET Multiple #160.02	160.02 DESCRIPTION: `DESCRIBES PATIENT TOBACCO USE.`
41	ALCOHOL USAGE	6;0	SET Multiple #160.041	160.041 DESCRIPTION: `DESCRIBES PATIENT ALCOHOL USE.`
42	OCCUPATION	7;0	Multiple #160.042	160.042 DESCRIPTION: `Information about the patient's usual occupation, also known as usual type of job or work.`
43	FAMILY HISTORY OF CANCER	8;1	SET	'0' FOR No; '1' FOR Yes; '9' FOR Unknown; LAST EDITED: `FEB 14, 2002` DESCRIPTION: `FAMILY HISTORY OF CANCER records whether the patient has a family history of any reportable malignancy.`
44	FAMILY MEMBER WITH CANCER	9;0	SET Multiple #160.044	160.044 DESCRIPTION: `Multiple for family members with cancer.`
45	TODAY'S DATE		COMPUTED DATE	MUMPS CODE: `D NOW^%DTC S Y=$P(%,".") D DD^%DT S X=Y K Y` ALGORITHM: `TODAY` LAST EDITED: `FEB 20, 1992` DESCRIPTION: `TODAY IS... TODAY'S DATE.`
46	HISTORY-FOLLOWUP		COMPUTED	MUMPS CODE: `S X="" D FHC^ONCODLF` ALGORITHM: `S X="" D FHC^ONCODLF` LAST EDITED: `AUG 11, 1990` DESCRIPTION: `COMPUTES A REPORT OF THE PATIENTS FOLLOW UP HISTORY.`
47	EMPLOYMENT STATUS		COMPUTED	MUMPS CODE: `S X="" D EMP^ONCOES` ALGORITHM: `S X="" D EMP^ONCOES` LAST EDITED: `JUL 16, 1992` DESCRIPTION: `This field indicates the patient's employment status.`
48	EXPOSURE AGENT ORANGE	0;10	SET	'Y' FOR Yes - during military service; 'N' FOR No exposure documented in medical record; 'U' FOR Unknown if exposure OR unknown if exposure was military or non-military; 'O' FOR Occupational exposure ONLY; LAST EDITED: `AUG 06, 2024` HELP-PROMPT: `Record if the patient was exposed to Agent Orange.` DESCRIPTION: `Record if the patient was exposed to Agent Orange.`
49	ICD-O TOPOGRAPHY LIST		COMPUTED	MUMPS CODE: `D ONCPRI^ONCOCOM` ALGORITHM: `D ONCPRI^ONCOCOM` LAST EDITED: `SEP 05, 2001` DESCRIPTION: `This field displays a list of the patient's ICD-O topographies. It was created for use by the PHYSICIAN DOT MATRIX and PHYSICIAN LASER PRINTER form letters in the FOLLOW-UP FORM LETTER file (165.1).`
50	EXPOSURE IONIZING RADIATION	0;11	SET	'Y' FOR Yes - during military service; 'N' FOR No exposure documented in medical record; 'U' FOR Unknown if exposure OR unknown if exposure was military vs non-military; 'O' FOR Occupational exposure ONLY; LAST EDITED: `AUG 06, 2024` HELP-PROMPT: `Record if the patient was exposed to Ionizing Radiation.` DESCRIPTION: `Record if the patient was exposed to Ionizing Radiation.`
51	PERSIAN GULF SERVICE	0;12	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `NOV 24, 2008` HELP-PROMPT: `Record if the patient served in the Persian Gulf.` DESCRIPTION: `Record if the patient served in the Persian Gulf.`
52	EXPOSURE CHEMICAL	0;13	SET	'Y' FOR Yes - during military service; 'N' FOR No exposure documented in medical record; 'U' FOR Unknown if exposure OR unknown if exposure was military vs non-military; 'O' FOR Occupational exposure ONLY; LAST EDITED: `AUG 06, 2024` DESCRIPTION: `Record if the patient was exposed to chemicals.`
53	LAB CASEFINDING REPORT		COMPUTED	MUMPS CODE: `S X="" D LAB^ONCOCOC` ALGORITHM: `S X="" D LAB^ONCOCOC` LAST EDITED: `JAN 31, 1992` DESCRIPTION: `PRINTS A REPORT OF CASES FOUND THRU THE AUTOMATIC CASEFINDING OPTION FOR LABORATORY.`
54	PTF CASEFINDING REPORT		COMPUTED	MUMPS CODE: `S X="" D PTF^ONCOCOC` ALGORITHM: `S X="" D PTF^ONCOCOC` DESCRIPTION: `PRINTS A REPORT OF CASES FOUND THRU THE AUTOMATIC CASEFINDING OPTION FOR THE MAS PATIENT TREATMENT FILE (PTF).`
55	LEBANON SERVICE	0;25	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `MAR 04, 2009` HELP-PROMPT: `Record if the patient served in Lebanon` DESCRIPTION: `Record if the patient served in Lebanon.`
56	SOMALIA SERVICE	0;26	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `JUL 18, 2002` DESCRIPTION: `Record if the patient served in Somalia.`
58	RADIOLOGY CASEFINDING REPORT		COMPUTED	MUMPS CODE: `S X="" D RAD^ONCOCOC` ALGORITHM: `S X="" D RAD^ONCOCOC` DESCRIPTION: `REPORTS THE FINDINGS OF OPTION: RADIOLOGY CASEFINDING.`
59	NO PRIMARY		COMPUTED	MUMPS CODE: `S X=$S($D(^ONCO(165.5,"C",D0)):"",1:1)` ALGORITHM: `S X=$S($D(^ONCO(165.5,"C",DA)):"",1:1)` LAST EDITED: `SEP 30, 1992` DESCRIPTION: `A COMPUTED FIELD STATING THAT THE PATIENT HAS NOT HAD A PRIMARY TUMOR ENTERED INTO THE FILE.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
60	PID#		COMPUTED	MUMPS CODE: `S X="" D PID0^ONCOCOM` ALGORITHM: `S X="" D PID0^ONCOCOM` DESCRIPTION: `COMPUTED FIELD FOR PATIENT IDENTIFICATION NUMBER.`
61	EXPOSURE ASBESTOS	0;14	SET	'Y' FOR Yes - during military service; 'N' FOR No exposure documented in medical record; 'U' FOR Unknown if exposure OR unknown if exposure was military vs non-military; 'O' FOR Occupational exposure ONLY; LAST EDITED: `AUG 06, 2024` DESCRIPTION: `Record if the patient was exposed to asbestos.`
62	VIETNAM SERVICE	0;32	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `NOV 24, 2008` HELP-PROMPT: `Record if the patient served in Vietnam.` DESCRIPTION: `Record if the patient served in Vietnam.`
63	GRENADA SERVICE	0;33	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `NOV 24, 2008` HELP-PROMPT: `Record if the patient served in Grenada.` DESCRIPTION: `Record if the patient served in Grenada.`
64	PANAMA SERVICE	0;34	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `NOV 24, 2008` HELP-PROMPT: `Record if the patient served in Panama.` DESCRIPTION: `Record if the patient served in Panama.`
65	YUGOSLAVIA SERVICE	0;35	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `NOV 24, 2008` HELP-PROMPT: `Record if the patient served in Yugoslavia.` DESCRIPTION: `Record if the patient served in Yugoslavia.`
66	IRAQ (OIF) SERVICE	0;36	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `APR 09, 2009` HELP-PROMPT: `Record if the patient served in Iraq (OIF).` DESCRIPTION: `Record if the patient served in Iraq (OIF).` TECHNICAL DESCR: `If the patient had OIF service, a default value of "Yes" will be provided.` `This default value is derived in the following way:` `1) A call is made to SVC^VADPT. 2) If VASV(11) is > 0, the variable OIF is set to "Yes". 3) The variable OIF is then used as a default in a ^DIE call from ^ONCPAT.`
67	AFGHANISTAN (OEF) SERVICE	0;37	SET	'Y' FOR Yes; 'N' FOR No; 'U' FOR Unknown; LAST EDITED: `APR 09, 2009` HELP-PROMPT: `Record if the patient served in Afghanistan (OEF).` DESCRIPTION: `Record if the patient served in Afghanistan (OEF).` TECHNICAL DESCR: `If the patient had OEF service, a default value of "Yes" will be provided.` `This default value is derived in the following way:` `1) A call is made to SVC^VADPT. 2) If VASV(12) is > 0, the variable OEF is set to "Yes". 3) The variable OEF is then used as a default in a ^DIE call from ^ONCPAT.`
68	BRANCH OF SERVICE		COMPUTED	MUMPS CODE: `D BS^ONCOES` ALGORITHM: `D BS^ONCOES` LAST EDITED: `MAY 15, 2009` DESCRIPTION: `Computes the SERVICE BRANCH [LAST] (#2,.325) value for this patient.`
69	CLASS CATEGORY		COMPUTED	MUMPS CODE: `D CC^ONCOCOM` ALGORITHM: `D CC^ONCOCOM` LAST EDITED: `JUN 28, 2011` DESCRIPTION: `This field will compute a value of either 0 or 1.` `0 = All ONCOLOGY PRIMARY (#165.5) records for this patient have a CLASS` `CATEGORY (#165.5,.042) value of 0 (NONANALYTIC).` `1 = At least one ONCOLOGY PRIMARY (#165.5) record for this patient has a` `CLASS CATEGORY (#165.5,.042) value of 1 (ANALYTIC).` `The default value is 0.`
69.1	ANALYTIC REQUIRING FOLLOWUP		COMPUTED	MUMPS CODE: `D ARF^ONCOCOM` ALGORITHM: `D ARF^ONCOCOM` LAST EDITED: `OCT 07, 2014` DESCRIPTION: `This field will compute a value of either 0 or 1.` `0 = All ONCOLOGY PRIMARY (#165.5) records for this patient have a` `CLASS OF CASE (#165.5,.04) value of "00" or greater than "22",` `meaning either Analytic ("30" and above) or NOT Requiring` `Follow-up ("00").` `1 = At least one ONCOLOGY PRIMARY (#165.5) record for this patient has` `a CLASS OF CASE (#165.5,.04) value in the range "10" thru "22",` `meaning Analytic cases Requiring Follow-Up.` `The default value is 0.`
70	MULTIPLE TUMOR STATUS (DEATH)		COMPUTED	MUMPS CODE: `S X="" D MTS^ONCOCOF` ALGORITHM: `S X="" D MTS^ONCOCOF` LAST EDITED: `JAN 03, 2000` DESCRIPTION: `This field allows for the display of all tumor statuses for expired patients having multiple primaries.`
71	BIRTH SURNAME	1;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X` `MAXIMUM LENGTH: 40` LAST EDITED: `MAY 28, 2021` HELP-PROMPT: `Answer must be 2-40 characters in length.` DESCRIPTION: `The last name (surname) of patients at birth, regardless of gender or marital status, this data item is introduced in 2021 as a gender-neutral replacement for the NAACCR data item Name-Maiden [2390].`
72	EXPOSURE BURN PIT	1;16	SET	'Y' FOR Yes - during military service; 'N' FOR No exposure documented in medical record; 'U' FOR Unknown if exposure OR unknown if exposure was military vs non-military; 'O' FOR Occupational exposure ONLY; LAST EDITED: `AUG 06, 2024` HELP-PROMPT: `Enter Yes, No, Unknown or Occupational exposure ONLY` DESCRIPTION: `This field records if the patient was exposed to burn pit(s).`
73	EXPOSURE OTHER TOXIC	1;17	SET	'Y' FOR Yes - during military service; 'N' FOR No exposure documented in medical record; 'U' FOR Unknown if exposure OR unknown if exposure was military vs non-military; 'O' FOR Occupational exposure ONLY; LAST EDITED: `AUG 06, 2024` HELP-PROMPT: `Yes, No, Unknown or Occupational exposure ONLY` DESCRIPTION: `This field records if the patient was exposed to any other toxic materials.`
75	SUSPENSE	SUS;0	DATE Multiple #160.075	160.075 LAST EDITED: `MAY 23, 2000` DESCRIPTION: `This multiple field stores the SUSPENSE data for each division where the patient is on SUSPENSE.`
100	SITE & DATE DX		COMPUTED	MUMPS CODE: `S X="" D SDD^ONCOCOM` ALGORITHM: `S X="" D SDD^ONCOCOM` LAST EDITED: `JUN 22, 1990` DESCRIPTION: `COMPUTED FIELD WITH VALUES OF SITE AND DATE OF DIAGNOSIS.`
300	DOCUMENT	D;0	SET Multiple #160.05	160.05 DESCRIPTION: `RECORDS SOURCE DOCUMENT.`
400	FOLLOW-UP	F;0	DATE Multiple #160.04	160.04 DESCRIPTION: `FOLLOW-UP of cancer patients provides the following data needed for survival analysis: the vital status of the patient, the date the vital status was determined, and the underlying cause of death, if the person has died.` `SEER requires that this information be updated annually for living patients.` GROUP: `ACOS-REQUIRED`
410	FOLLOW-UP ATTEMPTS	A;0	DATE Multiple #160.06	160.06 DESCRIPTION: `RECORDS THE DATE AND TIME A FOLLOW UP ATTEMPT IS MADE.`
420	FOLLOW-UP CONTACT	C;0	SET Multiple #160.03	160.03 DESCRIPTION: `RECORDS THE CONTACT TYPE FOR A FOLLOW UP ATTEMPT.`
1000	HOSPITAL NAME		COMPUTED	MUMPS CODE: `S X="" D NM^ONCOCOF` ALGORITHM: `S X="" D NM^ONCOCOF` LAST EDITED: `JUN 30, 1991` DESCRIPTION: `THE NAME OF THE INSTITUTION RENDERING CARE.`
1000.1	C. HOSPITAL NAME		COMPUTED	MUMPS CODE: `X $P(^DD(160,1000,0),U,5,99) S Y(160,1000.1,1)=X S X=Y(160,1000.1,1),X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X` ALGORITHM: `CENTER(#1000)` LAST EDITED: `JUN 30, 1991` DESCRIPTION: `COMPUTED FIELD CENTERING THE INSTITUTION NAME.`
1001	HOSPITAL STREET ADDRESS		COMPUTED	MUMPS CODE: `S X="" D ADD^ONCOCOF` ALGORITHM: `S X="" D ADD^ONCOCOF` LAST EDITED: `JUL 16, 1991` DESCRIPTION: `This is the street address of the hospital.`
1001.1	C. HOSPITAL STREET ADDRESS		COMPUTED	MUMPS CODE: `X $P(^DD(160,1001,0),U,5,99) S Y(160,1001.1,1)=X S X=Y(160,1001.1,1),X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X` ALGORITHM: `CENTER(#1001)` DESCRIPTION: `This is the hospital street address centered for display.`
1002	HOSPITAL CITY,ST ZIP		COMPUTED	MUMPS CODE: `S X="" D ZIP^ONCOCOF` ALGORITHM: `S X="" D ZIP^ONCOCOF` LAST EDITED: `JUL 16, 1991` DESCRIPTION: `COMPUTED FIELD LISTING THE INSTITUTIONS' NAME, CITY, STATE AND ZIP CODE.`
1002.1	C. HOSPITAL CITY,ST ZIP		COMPUTED	MUMPS CODE: `X $P(^DD(160,1002,0),U,5,99) S Y(160,1002.1,1)=X S X=Y(160,1002.1,1),X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X` ALGORITHM: `CENTER(#1002)` LAST EDITED: `JUN 30, 1991` DESCRIPTION: `This is the city, state, and ZIP Code of the hospital centered for display.`
1003	STATE HOSPITAL NUMBER		COMPUTED	MUMPS CODE: `S X=$P($G(^ONCO(160.1,^DD("SITE",1),1)),U,3)` ALGORITHM: `S X=X` LAST EDITED: `JUL 16, 1991` DESCRIPTION: `RECORDS THE IDENTIFICATION NUMBER ASSIGNED TO THE INSTITUTION BY THE STATE.`
1004	Tumor Registrar		COMPUTED	MUMPS CODE: `S X=$P($G(^ONCO(160.1,^DD("SITE",1),1)),U)` ALGORITHM: `S X=X` LAST EDITED: `AUG 29, 1991` DESCRIPTION: `COMPUTED FIELD FOR THE NAME OF THE TUMOR REGISTRAR ACCESSIONING CASES.`
1004.5	TR PHONE NUMBER		COMPUTED	MUMPS CODE: `S X=$P($G(^ONCO(160.1,^DD("SITE",1),1)),U,2)` ALGORITHM: `S X=X` DESCRIPTION: `THE TUMOR REGISTRARS TELEPHONE NUMBER.`
1005	CONVERTED	10;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `FEB 02, 1996` DESCRIPTION: `If this field is "YES" it means that this Record has had the pointer in field 24.5 converted from a pointer to the ONCOLOGY CONTACT File (165) to a pointer to the new ACOS NUMBER file (160.19) already, and should not be` `converted.`
1006	SOURCE COMORBIDITY	10;2	SET	'0' FOR NA; '1' FOR Facility face sheet; '2' FOR Linkage to facility/hosp discharge data set; '3' FOR Linkage to Medicare/Medicaid data set; '4' FOR Linkage with another claims data set; '5' FOR Combination of two or more sources above; '9' FOR Other source; LAST EDITED: `OCT 07, 2011` HELP-PROMPT: `Enter the data source from which comorbidities/complications were collected.` DESCRIPTION: `This data item is the record of the data source from which comorbidities/complications were collected. It refers back to standard NAACCR data item # 3110, 3120, 3130, 3140, 3150, 3160, 3161, 3162, 3163, and 3164.`
1007	TOBACCO USE CIGARETTE	8;9	SET	'0' FOR Never used; '1' FOR Current user; '2' FOR Former user, quit within 1 year of DATE DX; '3' FOR Former user, quit > 1 year prior to DATE DX; '4' FOR Former user, unknown when quit; '9' FOR Unknown/not stated/no smoking specifics; LAST EDITED: `OCT 07, 2011` HELP-PROMPT: `Enter the patient's past or current use of cigarettes.` DESCRIPTION: `Records the patient's past or current use of cigarettes.`
1008	TOBACCO USE OTHER SMOKE	8;10	SET	'0' FOR Never used; '1' FOR Current user; '2' FOR Former user, quit within 1 year of DATE DX; '3' FOR Former user, quit > 1 year prior to DATE DX; '4' FOR Former user, unknown when quit; '9' FOR Unknown/not stated/no smoking specifics; LAST EDITED: `OCT 07, 2011` HELP-PROMPT: `Enter the patient's past or current use of smoking tobacco products other than cigarettes.` DESCRIPTION: `Records the patient's past or current use of smoking tobacco products other than cigarettes (e.g. pipes, cigars, kreteks).` `NOTE: For recording smokeless tobacco product use, see` `TOBACCO USE SMOKELESS.`
1009	TOBACCO USE SMOKELESS	8;11	SET	'0' FOR Never used; '1' FOR Current user; '2' FOR Former user, quit within 1 year of DATE DX; '3' FOR Former user, quit > 1 year prior to DATE DX; '4' FOR Former user, unknown when quit; '9' FOR Unknown/not stated/no smoking specifics; LAST EDITED: `OCT 07, 2011` HELP-PROMPT: `Enter the patient's past or current use of smokeless tobacco products.` DESCRIPTION: `Records the patient's past or current use of smokeless tobacco products (e.g. chewing tobacco, snuff, etc.).`
1010	TOBACCO USE, NOS	8;12	SET	'0' FOR Never used; '1' FOR Current user; '2' FOR Former user, quit within 1 year of DATE DX; '3' FOR Former user, quit > 1 year prior to DATE DX; '4' FOR Former user, unknown when quit; '9' FOR Unknown/not stated/no smoking specifics; LAST EDITED: `OCT 07, 2011` HELP-PROMPT: `Enter the patient's past or current use of tobacco, NOS.` DESCRIPTION: `Records the patient's past or current use of tobacco, NOS (not otherwise specified).`
1011	HEIGHT		COMPUTED	MUMPS CODE: `D HEIGHT^ONCHTWT` ALGORITHM: `D HEIGHT^ONCHTWT` LAST EDITED: `OCT 12, 2011` DESCRIPTION: `Computes patient's height value from the GMRV VITAL MEASUREMENT (#120.5) file via the supported IA #1120 GMRVUTL.`
1012	WEIGHT		COMPUTED	MUMPS CODE: `D WEIGHT^ONCHTWT` ALGORITHM: `D WEIGHT^ONCHTWT` LAST EDITED: `OCT 20, 2011` DESCRIPTION: `Computes patient's weight value from the GMRV VITAL MEASUREMENT (#120.5) file via the supported IA #1120 GMRVUTL.`

Customize PDF page

Package: Oncology

Global: ^ONCO(160

Information

Description

Accessed By FileMan Db Calls, Total: 71

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 16

Fields, Total: 151

ICR, Total: 1