STANDARD DATA DICTIONARY #160 -- ONCOLOGY PATIENT FILE 3/24/25 PAGE 1 STORED IN ^ONCO(160, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.2) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- Demographic and followup data concerning Oncology patients is stored in this file. (Tumor-related data is stored in the Primary File). Data is NOT exported with this file, but it is populated on site. APPLICATION GROUP(S): ONCO POINTED TO BY: PATIENT NAME field (#.02) of the ONCOLOGY PRIMARY File (#165.5) CROSS REFERENCED BY: CONTACT NAME(AACP), CONTACT NAME(AAPC), LAST FOLLOW-UP CONTACT(AC), CONTACT NAME(ACP), DUE FOLLOW-UP(AD), SUSPENSE DATE(ADX), THE CONTACT(AE), FOLLOW-UP STATUS(AFS), CONTACT NAME(APC), STATUS(AS), NAME(B), CENTRAL NO.(CN), SOURCE(D) LAST MODIFIED: NOV 21,2024@17:13:11 160,.01 NAME 0;1 VARIABLE POINTER (Required) Patient's full name FILE ORDER PREFIX LAYGO MESSAGE 2 1 P n VA Patient 67 2 N y Non-VA or Ambiguous Patient 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. 160,.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. 160,.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 160,.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'. 160,.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. 160,.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. 160,.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. 160,.112 STREET ADDRESS 2 ; COMPUTED MUMPS CODE: D SA2^ONCOES ALGORITHM: D SA2^ONCOES DESCRIPTION: RECORD 2ND LINE OF PATIENT'S ADDRESS. 160,.113 STREET ADDRESS 3 ; COMPUTED MUMPS CODE: D SA3^ONCOES ALGORITHM: D SA3^ONCOES DESCRIPTION: RECORD 3RD LINE OF PATIENT'S ADDRESS. 160,.115 STATE ; COMPUTED MUMPS CODE: D ST^ONCOES ALGORITHM: D ST^ONCOES DESCRIPTION: RECORD THE PATIENT'S STATE OF RESIDENCE. 160,.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. 160,.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). 160,.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. 160,.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. 160,.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. 160,.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. 160,.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. 160,.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. 160,.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. 160,.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. 160,.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. 160,.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. 160,.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). 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,6 CENTRAL NO. 0;4 FREE TEXT SEER Case Number 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.. 160,7 PLACE OF BIRTH 0;5 POINTER TO GEOCODES FILE (#165.2) (Required) LAST EDITED: NOV 04, 2002 DESCRIPTION: Records the patient's place of birth. For further information see FORDS page 56. GROUP: ACOS 160,8 RACE 1 0;6 POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46) (Required) 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 160,8.1 RACE 2 0;15 POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46) LAST EDITED: DEC 07, 2000 DESCRIPTION: Identifies the patient's race. For further information see FORDS page 61. 160,8.2 RACE 3 0;16 POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46) LAST EDITED: DEC 07, 2000 DESCRIPTION: Identifies the patient's race. For further information see FORDS page 62. 160,8.3 RACE 4 0;17 POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46) LAST EDITED: DEC 07, 2000 DESCRIPTION: Identifies the patient's race. For further information see FORDS page 63. 160,8.4 RACE 5 0;18 POINTER TO RACE CODE FOR ONCOLOGY FILE (#164.46) LAST EDITED: DEC 07, 2000 DESCRIPTION: Identifies the patient's race. For further information see FORDS page 64. 160,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 160,10 SEX 0;8 SET (Required) '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. 160,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. 160,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. 160,13 RELIGION ; COMPUTED MUMPS CODE: D REL^ONCOES ALGORITHM: D REL^ONCOES LAST EDITED: OCT 15, 1987 DESCRIPTION: THE PATIENT'S RELIGION. 160,14 MARITAL STATUS ; COMPUTED MUMPS CODE: D MS^ONCOES ALGORITHM: D MS^ONCOES DESCRIPTION: COMPUTED FIELD LISTING THE PATIENT'S MARTIAL STATUS. 160,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. 160,15.1 LAST FOLLOW-UP CONTACT 1;6 POINTER TO ONCOLOGY CONTACT FILE (#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. 160,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. 160,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. 160,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. 160,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. 160,19 CAUSE OF DEATH 1;3 POINTER TO ICD DIAGNOSIS FILE (#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. 160,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 160,20 ICD REVISION 1;4 SET ICD Revision for Death Code '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 160,21 PLACE OF DEATH 1;5 POINTER TO GEOCODES FILE (#165.2) LAST EDITED: JUL 14, 1998 DESCRIPTION: Enter the place of death. TECHNICAL DESCR: This field is referenced directly by UVSALIVE^ONCOCRFA. 160,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. 160,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 160,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. 160,24.5 CARE CENTER AT DEATH 1;11 POINTER TO FACILITY FILE (#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. 160,25 COMORBIDITY/COMPLICATION #1 0;19 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.1 COMORBIDITY/COMPLICATION #2 0;20 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.2 COMORBIDITY/COMPLICATION #3 0;21 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.3 COMORBIDITY/COMPLICATION #4 0;22 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.4 COMORBIDITY/COMPLICATION #5 0;23 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.5 COMORBIDITY/COMPLICATION #6 0;24 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.6 COMORBIDITY/COMPLICATION #7 0;28 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.7 COMORBIDITY/COMPLICATION #8 0;29 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.8 COMORBIDITY/COMPLICATION #9 0;30 POINTER TO ICD DIAGNOSIS FILE (#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 como rbid conditions or complications were documented, leave this item blank. 160,25.9 COMORBIDITY/COMPLICATION #10 0;31 POINTER TO ICD DIAGNOSIS FILE (#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 com orbid conditions or complications were documented, leave this item blank. 160,25.91 SECONDARY DIAGNOSIS #1 3;1 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.92 SECONDARY DIAGNOSIS #2 3;2 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.93 SECONDARY DIAGNOSIS #3 3;3 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.94 SECONDARY DIAGNOSIS #4 3;4 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.95 SECONDARY DIAGNOSIS #5 3;5 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.96 SECONDARY DIAGNOSIS #6 3;6 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.97 SECONDARY DIAGNOSIS #7 3;7 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.98 SECONDARY DIAGNOSIS #8 3;8 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.99 SECONDARY DIAGNOSIS #9 3;9 POINTER TO ICD DIAGNOSIS FILE (#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. 160,25.9901 SECONDARY DIAGNOSIS #10 3;10 POINTER TO ICD DIAGNOSIS FILE (#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. 160,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. 160,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 160,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. 160,31 PATH/AUTOPSY (GROSS & MICRO) 4;0 WORD-PROCESSING #160.031 (NOWRAP) 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. 160,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 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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 160,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. 160,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 p rior to 1999. 160,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 p rior to 1999. 160,40 TOBACCO USAGE 5;0 SET Multiple #160.02 (Add New Entry without Asking) DESCRIPTION: DESCRIBES PATIENT TOBACCO USE. 160.02,.01 TYPE OF TOBACCO USER 0;1 SET (Multiply asked) '1' FOR CIGARETTE; '2' FOR CIGARS; '3' FOR PIPE; '4' FOR CHEWING TOBACCO; '5' FOR SNUFF; '6' FOR MARIJUANA; '7' FOR MORE THAN 1 TYPE; '8' FOR UNKNOWN; LAST EDITED: JUN 20, 1990 DESCRIPTION: This is the code that describes the patient's tobacco use. 160.02,1 PACK-YEARS 0;2 NUMBER INPUT TRANSFORM: S:X["U" X="U" Q:X="U" K:+X'=X!(X>400)!(X<0)!(X?.E1"."1N.N) X OUTPUT TRANSFORM: S:Y="U" Y="Unknown" LAST EDITED: AUG 27, 1993 HELP-PROMPT: Enter the # of packs smoked per day times # of years, 0 to 400; or U for Unknown DESCRIPTION: Enter the number of packs smoked per day times the number of years. Example: 2 packs per day for 10 years equals 20 pack-years. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160.02,2 YR QUIT TOBACCO USE 0;3 DATE INPUT TRANSFORM: S:X["U" X="U" Q:X="U" S %DT="E",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) OUTPUT TRANSFORM: S Y=$S(Y'="U":Y,1:"Unknown") D:Y?1.N DD^%DT LAST EDITED: DEC 19, 1996 DESCRIPTION: This is the year in which the patient quit using tobacco. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160,41 ALCOHOL USAGE 6;0 SET Multiple #160.041 (Add New Entry without Asking) DESCRIPTION: DESCRIBES PATIENT ALCOHOL USE. 160.041,.01 TYPE OF ALCOHOL USER 0;1 SET (Multiply asked) 'B' FOR BEER; 'W' FOR WINE; 'H' FOR HARD LIQUOR; 'M' FOR MODERATE/SOCIAL; 'S' FOR SERIOUS/HEAVY; 'U' FOR UNKNOWN; LAST EDITED: JAN 06, 1992 DESCRIPTION: This is a code indicating the kind or frequency of patient's alcohol consumption. 160.041,1 YRS OF ALCOHOL USE 0;2 NUMBER INPUT TRANSFORM: S:X["U" X="U" Q:X="U" K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X OUTPUT TRANSFORM: S:Y="U" Y="Unknown" LAST EDITED: FEB 12, 1992 HELP-PROMPT: Type a Number between 0 and 99, or "U","Unk" for Unknown DESCRIPTION: This is the number of years that patient consumed alcohol. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160.041,2 DRINKS PER DAY 0;3 NUMBER INPUT TRANSFORM: S:X["U" X="U" Q:X="U" K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X OUTPUT TRANSFORM: S:Y="U" Y="Unknown" LAST EDITED: AUG 27, 1993 HELP-PROMPT: Enter amount of alcohol consumed per day in whiskey equivalents. DESCRIPTION: Number of whiskey equivalents consumed per day. TECHNICAL DESCR: This field allows for the entry of alcohol consumption in terms of whiskey equivalents. EXECUTABLE HELP: I X="??" D ^ONCOHELP ;S XQH="ONCO DRINKS/DAY" D EN^XQH NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160.041,3 YR QUIT DRINKING 0;4 DATE INPUT TRANSFORM: S:X["U" S="U" Q:X="U" S %DT="E",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) OUTPUT TRANSFORM: S Y=$S(Y="U":"Unknown",1:Y) D:Y?1.N DD^%DT LAST EDITED: DEC 19, 1996 DESCRIPTION: This is the year in which patient stopped consuming alcohol, if applicable. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160,42 OCCUPATION 7;0 Multiple #160.042 (Add New Entry without Asking) DESCRIPTION: Information about the patient's usual occupation, also known as usual type of job or work. 160.042,.01 USUAL OCCUPATION 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM: K:$L(X)>100!($L(X)<1) X LAST EDITED: JUL 23, 2010 HELP-PROMPT: Answer must be 1-100 characters in length. DESCRIPTION: Record the patient's usual occupation (that is, the kind of work performed during most of the patient's working life before diagnosis of this tumor). Do NOT record "retired". If usual occupation is not available or is unknown, record the patient's current or most recent occupation or any known occupation. CROSS-REFERENCE: 160.042^B 1)= S ^ONCO(160,DA(1),7,"B",$E(X,1,30),DA)="" 2)= K ^ONCO(160,DA(1),7,"B",$E(X,1,30),DA) 160.042,1 YEARS IN OCCUPATION 0;2 NUMBER INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X LAST EDITED: SEP 18, 1987 HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits DESCRIPTION: Duration of employment in a given occupation in years. 160.042,2 LAST DATE IN OCCUPATION 0;3 DATE INPUT TRANSFORM: S %DT="E",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) LAST EDITED: DEC 19, 1996 DESCRIPTION: Last date of employment in a given occupation. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160.042,3 USUAL INDUSTRY 0;4 FREE TEXT INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X LAST EDITED: JUN 28, 2000 HELP-PROMPT: Answer must be 3-40 characters in length. DESCRIPTION: Record the primary type of activity carried on by the business/industry where the patient was employed for the most number of years before diagnosis of this tumor. If the primary activity carried on at the location where the patient worked is unknown, it may be sufficient to record the name of the company (with city and town) for which the patient performed his/her usual occupation. If current or most recent occupation, rather than usual occupation was recorded, record the patient's current or most recent business/industry. 160,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. 160,44 FAMILY MEMBER WITH CANCER 9;0 SET Multiple #160.044 (Add New Entry without Asking) DESCRIPTION: Multiple for family members with cancer. 160.044,.01 FAMILY MEMBER WITH CANCER 0;1 SET (Multiply asked) 'F' FOR FATHER; 'M' FOR MOTHER; 'B' FOR BROTHER; 'S' FOR SISTER; 'U' FOR UNCLE; 'A' FOR AUNT; 'NI' FOR NIECE; 'NE' FOR NEPHEW; 'D' FOR DISTANT RELATION; 'I' FOR IN-LAWS; 'H' FOR HUSBAND; 'W' FOR WIFE; 'C' FOR CHILD; 'N' FOR NOT KNOWN; 'GM' FOR GRANDMOTHER; 'GF' FOR GRANDFATHER; LAST EDITED: JAN 31, 1990 DESCRIPTION: Family member with cancer. 160.044,1 CANCER 0;2 POINTER TO COMMON CANCERS FILE (#164.4) LAST EDITED: MAR 18, 2002 DESCRIPTION: This is the location of the family member's cancer, from the COMMON CANCERS File. 160,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. 160,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. 160,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. 160,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. 160,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). 160,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. 160,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. 160,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. 160,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. 160,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). 160,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. 160,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. 160,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. 160,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 160,60 PID# ; COMPUTED MUMPS CODE: S X="" D PID0^ONCOCOM ALGORITHM: S X="" D PID0^ONCOCOM DESCRIPTION: COMPUTED FIELD FOR PATIENT IDENTIFICATION NUMBER. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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]. 160,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). 160,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. 160,75 SUSPENSE SUS;0 DATE Multiple #160.075 (Add New Entry without Asking) LAST EDITED: MAY 23, 2000 DESCRIPTION: This multiple field stores the SUSPENSE data for each division where the patient is on SUSPENSE. 160.075,.01 SUSPENSE DATE 0;1 DATE INPUT TRANSFORM: S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) OUTPUT TRANSFORM: N XD S XD=Y D DD^ONCOCON S Y=XD LAST EDITED: AUG 27, 2009 HELP-PROMPT: Enter the date the patient was entered into the SUSPENSE sub-file. DESCRIPTION: Identifies the date the patient was entered as a potential 'case' to be registered in the Tumor Registry. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 160.075^B 1)= S ^ONCO(160,DA(1),"SUS","B",$E(X,1,30),DA)="" 2)= K ^ONCO(160,DA(1),"SUS","B",$E(X,1,30),DA) CROSS-REFERENCE: 160^ADX 1)= S ^ONCO(160,"ADX",$E(X,1,30),DA(1),DA)="" 2)= K ^ONCO(160,"ADX",$E(X,1,30),DA(1),DA) 3)= DO NOT DELETE This is a REGULAR cross-reference by SUSPENSE DATE multiple on the WHOLE FILE. CROSS-REFERENCE: ^^TRIGGER^160.075^12 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ONCO(160,D0,"SUS",D1,0)):^(0),1: "") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X,1,5)_0_0 S:'X X="" X ^DD(160.075,.01,1 ,3,1.4) 1.4)= S DIH=$G(^ONCO(160,DIV(0),"SUS",DIV(1),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=160.075,DIG=12 D ^DI CR 2)= Q CREATE VALUE)= MONTH(SUSPENSE DATE) DELETE VALUE)= NO EFFECT FIELD)= SUSPENSE MONTH 160.075,1 DATE ENTERED 0;2 DATE INPUT TRANSFORM:S %DT="ETX",%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: MAY 18, 2000 DESCRIPTION: All cases other than in-situs of the cervix uteri must be followed annually. If information on persons with an in-situ of the cervix uteri is received, the follow-up information should be updated. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160.075,2 SOURCE 0;3 SET 'LS' FOR SURGICAL PATHOLOGY; 'LC' FOR CYTOPATHOLOGY; 'LE' FOR ELECTRON MICROSCOPY; 'LA' FOR AUTOPSY; 'PT' FOR PTF FILE; 'RA' FOR RADIOLOGY; 'SE' FOR MANUAL ENTRY; 'DI' FOR DISEASE INDEX; LAST EDITED: APR 07, 2010 HELP-PROMPT: Enter the source from which the suspense entry has been derived. DESCRIPTION: Records the source or origin of the suspense entry. CROSS-REFERENCE:160^D 1)= S ^ONCO(160,"D",$E(X,1,30),DA(1),DA)="" 2)= K ^ONCO(160,"D",$E(X,1,30),DA(1),DA) This is a REGULAR cross reference by SOURCE multiple on the WHOLE FILE. 160.075,3 DIVISION 0;4 POINTER TO INSTITUTION FILE (#4) INPUT TRANSFORM:S DIC("S")="I $D(^ONCO(160.1,""C"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^ONCO(160,DA (1),"SUS","C",X)) W !!,"This patient is already on suspense for ",$P(^DIC(4,X,0),U,1),! K X LAST EDITED: JUL 18, 2000 DESCRIPTION: When a patient is in 'suspense', DIVISION identifies the facility which is responsible for analyzing this case for entry into the registry. When a patient is not in 'suspense', DIVISION is blank. NOTE: This field is for 'suspense' purposes only. It does NOT indicate the overall ownership of the patient's record by a particular facility. SCREEN: S DIC("S")="I $D(^ONCO(160.1,""C"",Y))" EXPLANATION: NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:160.075^C 1)= S ^ONCO(160,DA(1),"SUS","C",$E(X,1,30),DA)="" 2)= K ^ONCO(160,DA(1),"SUS","C",$E(X,1,30),DA) 160.075,4 LAB MORPHOLOGY 0;5 POINTER TO MORPHOLOGY FIELD FILE (#61.1) LAST EDITED: MAY 10, 2000 DESCRIPTION: Pointer to the file containing the MORPHOLOGY codes for pathology. 160.075,5 ORGAN/TISSUE 0;6 POINTER TO TOPOGRAPHY FIELD FILE (#61) LAST EDITED: MAY 10, 2000 DESCRIPTION: Pointer to describe the type of tissue or organic material being diagnosed. 160.075,6 RADIOLOGICAL PROCEDURE 0;7 POINTER TO RAD/NUC MED PROCEDURES FILE (#71) LAST EDITED: MAY 10, 2000 DESCRIPTION: Points to the RAD/NUC MED PROCEDURES file (#71) to record the radiology procedures codes. 160.075,7 PTF DISCHARGE 0;8 DATE INPUT TRANSFORM:S %DT="ETX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) LAST EDITED: MAY 18, 2000 DESCRIPTION: Records the date/time a (PTF) patient is discharged. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER 160.075,8 ICD9 0;9 POINTER TO ICD DIAGNOSIS FILE (#80) LAST EDITED: MAY 10, 2000 DESCRIPTION: This field is a pointer to the ICD DIAGNOSIS file (#80) which contains a listing of the International Classification of Diseases (ICD) codes, clinical modification, 9th revision. 160.075,9 PTF CODE 0;10 SET '1' FOR 1; LAST EDITED: MAY 10, 2000 DESCRIPTION: Diagnosis codes for patient discharged from active hospitalization. 160.075,10 ICDO MORPHOLOGY CODE 0;11 POINTER TO ICD-O-2 MORPHOLOGY FILE (#164.1) LAST EDITED: MAY 10, 2000 DESCRIPTION: Pointer to the ICDO MORPHOLOGY file (#164.1) which contains the morphology/histology codes in the International Calssification of Diseases (ICD) for Oncology, 2nd edition, 1990. 160.075,11 TEST TIME 0;12 NUMBER INPUT TRANSFORM:K:+X'=X!(X>9999999.999999)!(X<.999999)!(X?.E1"."7N.N) X LAST EDITED: MAY 10, 2000 HELP-PROMPT: Type a Number between .999999 and 9999999.999999, 6 Decimal Digits DESCRIPTION: Records the time a test was performed. 160.075,12 SUSPENSE MONTH 0;13 DATE INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: AUG 10, 2000 DESCRIPTION: SUSPENSE MONTH is the month and year of the SUSPENSE DATE. NOTES: TRIGGERED by the SUSPENSE DATE field of the SUSPENSE sub-field of the ONCOLOGY PATIENT File 160.075,13 DISEASE CODE 0;14 POINTER TO DISEASE FIELD FILE (#61.4) LAST EDITED: MAR 29, 2002 DESCRIPTION: Some LAB casefinding cases will be found not in the LAB Morphology (61.1) file but in the LAB Disease Field (61.4) file. 160,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. 160,300 DOCUMENT D;0 SET Multiple #160.05 (Add New Entry without Asking) DESCRIPTION: RECORDS SOURCE DOCUMENT. 160.05,.01 DOCUMENT 0;1 SET (Multiply asked) '0' FOR Operative report; '1' FOR Chemotherapy record; '2' FOR Radiotherapy summary; '3' FOR Pathology report; '4' FOR Hospital summary; '5' FOR Death certificate; '6' FOR Autopsy report; '7' FOR Medical record; '8' FOR Special; LAST EDITED: OCT 28, 1987 DESCRIPTION: This is the code indicating the kind of source document. 160.05,1 HOSPITAL 0;2 POINTER TO INSTITUTION FILE (#4) LAST EDITED: JUL 12, 1988 DESCRIPTION: This is the institution providing the source document. 160.05,2 STATUS 0;3 SET '0' FOR Not obtained; '1' FOR Request; '2' FOR Pending; '3' FOR Obtained; LAST EDITED: OCT 28, 1987 DESCRIPTION: This indicates whether the document has been requested and/or obtained. 160.05,3 TEXT 0;4 FREE TEXT INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X LAST EDITED: OCT 28, 1987 HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH DESCRIPTION: This is a free text comment. 160,400 FOLLOW-UP F;0 DATE Multiple #160.04 (Add New Entry without Asking) 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 160.04,.01 DATE OF LAST CONTACT OR DEATH 0;1 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X OUTPUT TRANSFORM: S X=Y D DATEOT^ONCOES LAST EDITED: MAR 27, 2023 HELP-PROMPT: Record the last date on which the patient was known to be alive or the date of death. DESCRIPTION: Records the date of last contact with the patient or the date of death. For further information see FORDS page 199. GROUP: ACOS-REQUIRED NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 160.04^AA^MUMPS 1)= D SLF^ONCOCRF ;TRIGGER DATE LAST CONTACT #16 2)= D KLF^ONCOCRF ;RESET DATE LAST CONTACT #16, STATUS #15, DATE OF DEATH #29 Maintains the DATE OF LAST CONTACT, STATUS, and DATE OF DEATH fields. CROSS-REFERENCE: 160.04^B 1)= S ^ONCO(160,DA(1),"F","B",$E(X,1,30),DA)="" 2)= K ^ONCO(160,DA(1),"F","B",$E(X,1,30),DA) Regular B cross-reference. CROSS-REFERENCE: 160.04^AE^MUMPS 1)= Q 2)= D KTSM^ONCOFTS:$D(ONCOSTAT) This cross-reference will kill the TUMOR STATUS entries on the ONCOLOGY PRIMARY File that correspond to this follow-up. (Setting of these entries is done directly by a call to SETTS^ONCOU55 in routine ONCOAIS.) 160.04,1 VITAL STATUS 0;2 SET (Required) '0' FOR Dead; '1' FOR Alive; LAST EDITED: FEB 11, 2003 DESCRIPTION: Records the vital status of the patient as of the date entered in DATE OF LAST CONTACT OR DEATH. For further information see FORDS page 200. GROUP: ACOS-REQUIRED CROSS-REFERENCE: 160.04^AC^MUMPS 1)= D SVS^ONCOCRF ;TRIGGER STATUS #15, DATE OF DEATH #29 2)= D KVS^ONCOCRF ;RESET STATUS #15, DATE OF DEATH #29 Maintains the STATUS and DATE OF DEATH Fields. 160.04,3 FOLLOW-UP SOURCE 0;4 SET (Required) '0' FOR Reported hospitalization; '1' FOR Readmission; '2' FOR Physician; '3' FOR Patient; '4' FOR Department of Motor Vehicles; '5' FOR Medicare/Medicaid file; '7' FOR Death certificate; '8' FOR Other; '9' FOR Unknown; LAST EDITED: FEB 11, 2003 DESCRIPTION: Records the source from which the latest follow-up information was obtained. For further information see FORDS page 203. EXECUTABLE HELP: I X="??" S XQH="ONCO FOLLOW-UP METHOD" D EN^XQH 160.04,4 QUALITY OF SURVIVAL 0;5 SET (Required) Quality of Survival '0' FOR Normal; '1' FOR Symptomatic & Ambulatory; '2' FOR More than 50% Ambulatory; '3' FOR Less than 50% Ambulatory; '4' FOR Bedridden; '8' FOR Not applicable, dead; '9' FOR Unknown or unspecified; LAST EDITED: SEP 07, 1989 DESCRIPTION: This is the code describing the patient's quality of survival. GROUP: ACOS-RECOMMENDED 160.04,5 COMMENTS 1;0 WORD-PROCESSING #160.45 DESCRIPTION: This is a comment on the follow-up. LAST EDITED: SEP 18, 1987 DESCRIPTION: This is the word-processing text of the comment. 160.04,6 NEXT FOLLOW-UP SOURCE 0;6 SET (Required) '0' FOR Chart requisition; '1' FOR Physician letter; '2' FOR Contact letter; '3' FOR Phone call; '4' FOR Other hospital contact; '5' FOR Other, NOS; '8' FOR Foreign residents (not followed); '9' FOR Not followed; LAST EDITED: FEB 11, 2003 DESCRIPTION: Identifies the method planned for the next follow-up, For further information see FORDS page 204. CROSS-REFERENCE: 160.04^AD^MUMPS 1)= D SDF^ONCOCRF 2)= D KDF^ONCOCRF Maintains the DUE FOLLOW-UP Field. 160.04,7 UNUSUAL FOLLOW-UP METHOD 0;7 SET '0' FOR 1st unusual method; '1' FOR 1st unusual method; '2' FOR 2nd unusual method; LAST EDITED: MAR 22, 1990 HELP-PROMPT: Enter specially defined unusual method code. DESCRIPTION: This describes any follow-up method not in ordinary use. 160.04,8 ENTRY STATUS 0;8 SET '1' FOR COMPLETE; LAST EDITED: MAR 24, 1990 DESCRIPTION: This indicates whether entry is complete. 160.04,9 MULTIPLE PRIMARY STATUS ; COMPUTED MUMPS CODE: Q:$G(HSFLAG) S X="",FDAT=$P(^(0),U,1) D MTS^ONCOCOF K FDAT ALGORITHM: Q:$G(HSFLAG) S X="",FDAT=$P(^(0),U,1) D MTS^ONCOCOF K FDAT LAST EDITED: APR 29, 1993 DESCRIPTION: This indicates whether there are multiple primaries for the patient. 160.04,10 FOLLOWING REGISTRY 0;9 POINTER TO FACILITY FILE (#160.19) OUTPUT TRANSFORM: I Y'="" S Y=$P($G(^ONCO(160.19,Y,0)),U,2) LAST EDITED: DEC 09, 1999 DESCRIPTION: Records the facility identification number of the registry responsible for following the patient. For further information see FORDS page 202. 160.04,11 REGISTRAR 0;10 POINTER TO NEW PERSON FILE (#200) LAST EDITED: MAR 07, 2000 DESCRIPTION: This field contains the name of the REGISTRAR who intially created this FOLLOW-UP record. 160.04,12 DATE ENTERED 0;11 DATE INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X OUTPUT TRANSFORM: S X=Y D DATEOT^ONCOES LAST EDITED: OCT 26, 2005 DESCRIPTION: This field contains the date on which this FOLLOW-UP record was initially entered. 160,410 FOLLOW-UP ATTEMPTS A;0 DATE Multiple #160.06 (Add New Entry without Asking) DESCRIPTION: RECORDS THE DATE AND TIME A FOLLOW UP ATTEMPT IS MADE. 160.06,.01 FOLLOW-UP ATTEMPT DATE 0;1 DATE INPUT TRANSFORM: S %DT="E",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) LAST EDITED: DEC 19, 1996 DESCRIPTION: This is the date and time on which a follow-up was attempted. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE: 160.06^AC^MUMPS 1)= S X=9999999-X,^ONCO(160,DA(1),"A","AC",X,DA)="" 2)= S X=9999999-X K ^ONCO(160,DA(1),"A","AC",X,DA) Indexes file by FOLLOW-UP ATTEMPT DATE. 160.06,1 TYPE 0;2 SET '1' FOR Chart Review; '2' FOR Phone Contact; '3' FOR Letter Contact; '8' FOR Other; LAST EDITED: MAR 07, 1988 HELP-PROMPT: How will you be obtaining follow-up information? DESCRIPTION: This is the code indicating how follow-up information will be obtained. 160.06,2 THE CONTACT 0;3 POINTER TO ONCOLOGY CONTACT FILE (#165) (Required) LAST EDITED: MAY 07, 1999 HELP-PROMPT: The contacts on file for this patient are: DESCRIPTION: This is the person or institution with whom follow-up will be attempted. EXECUTABLE HELP: D HP^ONCOFLF CROSS-REFERENCE: 160^AE^MUMPS 1)= S ^ONCO(160,"AE",X,DA(1))="" 2)= K ^ONCO(160,"AE",X,DA(1)) Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them. 160.06,3 RESULT 0;4 SET '1' FOR Successful; '2' FOR Unsuccessful; '8' FOR Pending; '9' FOR Unknown; LAST EDITED: FEB 22, 1992 DESCRIPTION: This indicates whether the follow-up attempt was successful. CROSS-REFERENCE: 160.06^ALF^MUMPS 1)= D SLC^ONCOCRA 2)= D KLC^ONCOCRA Maintains last followup contact. 160.06,4 REMARKS 0;5 FREE TEXT INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X LAST EDITED: DEC 23, 1987 HELP-PROMPT: ANSWER MUST BE 1-50 CHARACTERS IN LENGTH DESCRIPTION: This is a free text comment. 160.06,5 ENTRY STATUS 0;6 SET '1' FOR COMPLETE; LAST EDITED: JAN 06, 1992 DESCRIPTION: This indicates whether the follow-up attempt was completed. 160.06,6 LETTER TYPE 0;7 POINTER TO FOLLOW-UP FORM LETTER FILE (#165.1) LAST EDITED: FEB 05, 2009 HELP-PROMPT: Enter the appropriate LETTER TYPE for this contact. DESCRIPTION: Records the type of follow-up letter to be generated. 160,420 FOLLOW-UP CONTACT C;0 SET Multiple #160.03 DESCRIPTION: RECORDS THE CONTACT TYPE FOR A FOLLOW UP ATTEMPT. 160.03,.01 TYPE OF FOLLOW-UP CONTACT 0;1 SET 'PT' FOR Patient; 'MD' FOR Physician; 'NOK' FOR Next of Kin; 'KIN' FOR Other Kin; 'GR' FOR Guardian; 'SO' FOR Significant Other; 'FR' FOR Friend; 'HOSP' FOR Hospital; 'NH' FOR Nursing Home; 'HP' FOR Hospice; 'TR' FOR Tumor Registrar; 'INST' FOR Institution; 'OTH' FOR Other; LAST EDITED: JUL 19, 1992 HELP-PROMPT: Enter the type of contact (use quotes to enter a second of one type, e.g. "MD") DESCRIPTION: This is the type of follow-up contact. EXECUTABLE HELP: D TYP^ONCOFUM CROSS-REFERENCE: 160.03^B 1)= S ^ONCO(160,DA(1),"C","B",$E(X,1,30),DA)="" 2)= K ^ONCO(160,DA(1),"C","B",$E(X,1,30),DA) 160.03,1 CONTACT NAME 0;2 POINTER TO ONCOLOGY CONTACT FILE (#165) (Required) LAST EDITED: AUG 06, 1992 HELP-PROMPT: Enter the name of the follow-up contact DESCRIPTION: This is the name of the person or institution. EXECUTABLE HELP: D NAM^ONCOFUM CROSS-REFERENCE: 160^ACP^MUMPS 1)= S ^ONCO(165,"ACP",X,DA(1))="" 2)= K ^ONCO(165,"ACP",X,DA(1)) Creates a list under Contact file of contact, patient relationship originating from the Oncology patient contact multiple pointing to the contact file. CROSS-REFERENCE: 160^APC^MUMPS 1)= S ^ONCO(165,"APC",DA(1),X)="" 2)= K ^ONCO(165,"APC",DA(1),X) This creates a list under the Contact file of patients, and associated contacts as created under the contact multiple of Oncology patient file. CROSS-REFERENCE: 160^AACP^MUMPS 1)= S ^ONCO(160,"ACP",X,DA(1))="" 2)= K ^ONCO(160,"ACP",X,DA(1)) 3)= DO NOT DELETE Creates follow-up list of contacts and patients followed. CROSS-REFERENCE: 160^AAPC^MUMPS 1)= S ^ONCO(160,"APC",DA(1),X)="" 2)= K ^ONCO(160,"APC",DA(1),X) 3)= DO NOT DELETE Creates a list of follow-up contacts for a particular patient. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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. 160,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.). 160,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). 160,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. 160,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. FILES POINTED TO FIELDS COMMON CANCERS (#164.4) FAMILY MEMBER WITH CANCER:CANCER (#1) DISEASE FIELD (#61.4) SUSPENSE:DISEASE CODE (#13) FACILITY (#160.19) CARE CENTER AT DEATH (#24.5) FOLLOW-UP:FOLLOWING REGISTRY (#10) FOLLOW-UP FORM LETTER (#165.1) FOLLOW-UP ATTEMPTS:LETTER TYPE (#6) GEOCODES (#165.2) PLACE OF BIRTH (#7) PLACE OF DEATH (#21) ICD DIAGNOSIS (#80) CAUSE OF DEATH (#19) COMORBIDITY/COMPLICATION #1 (#25) COMORBIDITY/COMPLICATION #2 (#25.1) COMORBIDITY/COMPLICATION #3 (#25.2) COMORBIDITY/COMPLICATION #4 (#25.3) COMORBIDITY/COMPLICATION #5 (#25.4) COMORBIDITY/COMPLICATION #6 (#25.5) COMORBIDITY/COMPLICATION #7 (#25.6) COMORBIDITY/COMPLICATION #8 (#25.7) COMORBIDITY/COMPLICATION #9 (#25.8) COMORBIDITY/COMPLICATION #10 (#25.9) SECONDARY DIAGNOSIS #1 (#25.91) SECONDARY DIAGNOSIS #2 (#25.92) SECONDARY DIAGNOSIS #3 (#25.93) SECONDARY DIAGNOSIS #4 (#25.94) SECONDARY DIAGNOSIS #5 (#25.95) SECONDARY DIAGNOSIS #6 (#25.96) SECONDARY DIAGNOSIS #7 (#25.97) SECONDARY DIAGNOSIS #8 (#25.98) SECONDARY DIAGNOSIS #9 (#25.99) SECONDARY DIAGNOSIS #10 (#25.9901) SUSPENSE:ICD9 (#8) ICD-O-2 MORPHOLOGY (#164.1) SUSPENSE:ICDO MORPHOLOGY CODE (#10) INSTITUTION (#4) DOCUMENT:HOSPITAL (#1) SUSPENSE:DIVISION (#3) MORPHOLOGY FIELD (#61.1) SUSPENSE:LAB MORPHOLOGY (#4) NEW PERSON (#200) FOLLOW-UP:REGISTRAR (#11) ONCOLOGY CONTACT (#165) LAST FOLLOW-UP CONTACT (#15.1) FOLLOW-UP CONTACT:CONTACT NAME (#1) FOLLOW-UP ATTEMPTS:THE CONTACT (#2) PATIENT (#2) NAME (#.01) RACE CODE FOR ONCOLOGY (#164.46) RACE 1 (#8) RACE 2 (#8.1) RACE 3 (#8.2) RACE 4 (#8.3) RACE 5 (#8.4) RAD/NUC MED PROCEDURES (#71) SUSPENSE:RADIOLOGICAL PROCEDURE (#6) REFERRAL PATIENT (#67) NAME (#.01) TOPOGRAPHY FIELD (#61) SUSPENSE:ORGAN/TISSUE (#5) INPUT TEMPLATE(S): ONCO DEATH MAR 11, 2011@08:39 USER #0 Template specific to death information only; input when date of death of patient has been ascertained - final follow-up for patient. ONCO FOLL ATTEMPT FEB 26, 1992@14:45 USER #0 Attempt a follow-up allows user to keep track of follow-up attempts and generate the printing of a letter, or post a follow-up. ONCO FOLL-ADD CONTACT MAR 07, 2006@12:10 USER #0 Allows for the addition a contact for a patient creating a relationship between the patient and the contact file. Contacts are deleted at time of death by separate option. ONCO FOLLOWUP JUL 23, 2010@09:32 USER #0 Template used to post a follow-up for a patient and record status. DEVELOPERS NOTE: For consistent functionality, line FOLDR^ONCOFUL must be identical to the 160.04 node(s) in this template. PRINT TEMPLATE(S): ONCO CASEFINDING REPORT MAY 24, 1992@22:42 USER #0 [ONCO CASEFINDING-HDR] ONCO CASEFINDING-HDR DEC 22, 1999@15:51 USER #0 @ ONCO DELINQUENT(LTF) LIST AUG 23, 2021@12:16 USER #0 [ONCO DELINQUENT(LTF) LIST HDR] ONCO DELINQUENT(LTF) LIST HDR OCT 05, 2011@09:32 USER #0 @ ONCO DELINQUENT(LTF) LIST2 MAY 02, 2011@09:16 USER #0 [ONCO DELINQUENT(LTF) LIST2 HDR] ONCO DELINQUENT(LTF) LIST2 HDRMAY 02, 2011@09:10 USER #0 @ ONCO DUE FOLLOWUP AUG 24, 2021@11:35 USER #0 [ONCO DUE FOLLOWUP-HDR] ONCO DUE FOLLOWUP-HDR OCT 05, 2011@08:48 USER #0 @ ONCO DUE FOLLOWUP2 APR 29, 2011@13:06 USER #0 [ONCO DUE FOLLOWUP2-HDR] ONCO DUE FOLLOWUP2-HDR APR 29, 2011@13:25 USER #0 @ ONCO F/U HISTORY (NEW) OCT 27, 1993@13:59 USER #0 [ONCO FOLLOWUP HISTORY-HDR] ONCO FOLLOW-UP STATUS LIST MAR 17, 1998@10:07 USER #0 ONCOLOGY FOLLOW-UP STATUS LIST ONCO FOLLOWUP HISTORY FEB 03, 2000@15:55 USER #0 [ONCO FOLLOWUP HISTORY-HDR] ONCO FOLLOWUP HISTORY-HDR MAR 04, 1997@09:42 USER #0 @ ONCO FOLLOWUP PATIENT RPT FEB 26, 1992@15:04 USER #0 [ONCO FOLLOWUP PATIENT RPT-HDR] ONCO FOLLOWUP PATIENT RPT-HDR MAR 04, 1997@10:01 USER #0 @ ONCO FOLLOWUP STATUS RPT SEP 09, 1999@11:33 USER #0 ONCOLOGY FOLLOW-UP STATUS LIST ONCO LAB-CASEFINDING REPORT SEP 17, 1991@12:36 USER #0 [ONCO LAB-CASEFINDING-HDR] ONCO LAB-CASEFINDING-HDR JUN 20, 2005@15:53 USER #0 @ ONCO PATIENT INDX-ACOS APR 11, 2001@10:20 USER #0 [ONCO PATIENT INDX-ACOS-HDR] ONCO PATIENT INDX-ACOS-HDR JUN 21, 2005@11:58 USER #0 @ HEADER TEMPLATE for ACOS Patient Index in 132 column format. ONCO PATIENT INDX-EOVA132 APR 17, 2000@09:37 USER #0 ONCOLOGY PATIENT LIST ONCO PATIENT INDX80 SEP 09, 1999@11:19 USER #0 ONCOLOGY PATIENT LIST ONCO PATIENT ONLY FEB 18, 2010@09:54 USER #0 [ONCO PATIENT ONLY-HDR] Oncology Patient listing with Last Admit and Discharge dates. ONCO PATIENT ONLY-HDR NOV 01, 1999@09:30 USER #0 @ HEADER FOR Oncology patient list with Last Admit and Last Discharge date. ONCO PTF-CASEFINDING RPT FEB 03, 1992 USER #0 [ONCO PTF-CASEFINDING-HDR] ONCO PTF-CASEFINDING-HDR JUN 17, 2005@14:55 USER #0 @ ONCO RAD-CASEFINDING RPT FEB 04, 1992@21:02 USER #0 [ONCO RAD-CASEFINDING-HDR] ONCO RAD-CASEFINDING-HDR OCT 11, 2006@11:16 USER #0 @ Header for Radiology Casefinding Search. ONCO SUSPENSE MAY 07, 2009@12:29 USER #0 [ONCO SUSPENSE-HDR] ONCO SUSPENSE-HDR MAY 02, 2012@09:19 USER #0 @ ONCO XCONTACT LIST AUG 31, 2010@10:11 USER #0 ^ONCOXCL @ ONCO XDEATH INFO MAR 11, 2011@08:43 USER #0 ^ONCOXDI @ ONCO XPATIENT CONTACTS MAY 06, 1992@17:11 USER #0 ^ONCOXPC ONCOLOGY PATIENT LIST ONCO XPATIENT DATA JUL 01, 1998@13:22 USER #0 ^ONCOXP1 @ ONCO XPATIENT INFO NOV 08, 2000@14:23 USER #0 ^ONCOXPI ONCOLOGY PATIENT LIST ONCO XPATIENT STATUS JAN 05, 2000@10:04 USER #0 ^ONCOXPU PATIENT STATUS LIST SORT TEMPLATE(S): ONCO CASEFINDING REPORT AUG 04, 1992@14:00 USER #0 'ONCO CASEFINDING REPORT' Print Template always used SORT BY: +SOURCE// From 'L' To 'LZ' WITHIN SOURCE, SORT BY: @SUSPENSE DATE// (User is asked range) WITHIN SUSPENSE DATE, SORT BY: @NAME// ONCO DELINQUENT(LTF) LIST OCT 08, 2014@09:40 USER #0 '' Print Template always used SORT BY: @'ANALYTIC REQUIRING FOLLOWUP// (ANALYTIC REQUIRING FOLLOWUP equals 1) WITHIN ANALYTIC REQUIRING FOLLOWUP, SORT BY: ONCOLOGY PRIMARY:// ONCOLOGY PRIMARY FIELD: ANALYTIC PRIMARY REQ FOLLOWUP// (ANALYTIC PRIMARY REQ FOLLOWUP equals 1) WITHIN ANALYTIC PRIMARY REQ FOLLOWUP, SORT BY: @'BLOST TO FOLLOWUP;L1// (LOST TO FOLLOWUP) WITHIN LOST TO FOLLOWUP, SORT BY: DUE FOLLOW-UP;C35;S1// (DUE FOLLOW-UP not null) ONCO DUE FOLLOWUP OCT 08, 2014@15:24 USER #0 '' Print Template always used SORT BY: DUE FOLLOW-UP;C30;S1// (User is asked range) WITHIN DUE FOLLOW-UP, SORT BY: @NAME// (NAME not null) WITHIN NAME, SORT BY: ONCOLOGY PRIMARY:// ONCOLOGY PRIMARY FIELD: ANALYTIC PRIMARY REQ FOLLOWUP// (ANALYTIC PRIMARY REQ FOLLOWUP equals 1) ONCO FOLLOWUP HISTORY AUG 11, 1990@19:05 USER #0 'ONCO FOLLOWUP HISTORY' Print Template always used ONCO FOLLOWUP PATIENT RPT APR 11, 1991 USER #0 'ONCO FOLLOWUP PATIENT RPT' Print Template always used Use to select entry for corresponding tied Print template. ONCO FOLLOWUP STATUS RPT JUL 15, 1997@13:42 USER #0 'ONCO FOLLOWUP STATUS RPT' Print Template always used SORT BY: STATUS="Alive";L1// (STATUS=""Alive"") WITHIN STATUS="Alive", SORT BY: +#FOLLOW-UP STATUS// (User is asked range) WITHIN FOLLOW-UP STATUS, SORT BY: NAME// (NAME not null) ONCO LAB-CASEFINDING REPORT FEB 10, 1992@15:50 USER #0 'ONCO LAB-CASEFINDING REPORT' Print Template always used SORT BY: +SOURCE// From 'L' To 'LA' WITHIN SOURCE, SORT BY: @SUSPENSE DATE// From 'JAN 1990@99:00' To 'SEP 22,1992@99:00' WITHIN SUSPENSE DATE, SORT BY: @NAME// ONCO LOSTTOFOLLOWUP JAN 09, 1992@12:52 USER #0 FOLLOW-UP STATUS EQUALS 8^(LTF) ONCO PATIENT ONLY JAN 05, 2000@15:37 USER #0 '' Print Template always used SORT BY: @INTERNAL(#30)// (User is asked range) WITHIN INTERNAL(#30), SORT BY: @NO PRIMARY;L1// (NO PRIMARY not null) WITHIN NO PRIMARY, SORT BY: NAME// (NAME not null) ONCO PTF-CASEFINDING RPT FEB 03, 1992@09:28 USER #0 'ONCO PTF-CASEFINDING RPT' Print Template always used SORT BY: @SOURCE// From 'PA' To 'PZ^PZ' WITHIN SOURCE, SORT BY: @SUSPENSE DATE// From 'JAN 1900@88:88:88' To 'SEP 22,1992' ONCO RAD-CASEFINDING RPT FEB 04, 1992@21:00 USER #0 'ONCO RAD-CASEFINDING RPT' Print Template always used SORT BY: @SOURCE// From 'RA' To 'RZ^RZ' WITHIN SOURCE, SORT BY: @SUSPENSE DATE// From 'JAN 1900@88:88:88' To 'SEP 22,1992' ONCOS BLACK-FEMALES JUL 27, 1992@02:52 USER #0 SEX EQUALS 2^Female and RACE EQUALS "02"^Black ONCOS BLACK-MALES JUL 27, 1992@02:51 USER #0 SEX EQUALS 1^Male and RACE EQUALS "02"^Black ONCOS RACE=BLACK JUL 27, 1992@02:49 USER #0 RACE EQUALS "02"^Black ONCOS RACE=WHITE JUL 27, 1992@02:48 USER #0 RACE EQUALS "01"^White NOS ONCOS SEX=FEMALE JUL 27, 1992@02:48 USER #0 SEX EQUALS 2^Female ONCOS SEX=MALE MAR 09, 1994@11:55 USER #0 SEX EQUALS 1^Male ONCOS WHITE-FEMALES JUL 27, 1992@02:52 USER #0 SEX EQUALS 2^Female and RACE EQUALS "01"^White NOS ONCOS WHITE-MALES JUL 27, 1992@02:50 USER #0 SEX EQUALS 1^Male and RACE EQUALS "01"^White NOS FORM(S)/BLOCK(S):