STANDARD DATA DICTIONARY #160.1 -- ONCOLOGY SITE PARAMETERS FILE 9/29/25 PAGE 1
STORED IN ^ONCO(160.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains fields unique to the Facility, and that are necessary for the followup system to work, and that will enable ACOS
reporting. Data is input from the facility by the user and should be the first file that is populated before any other data is
collected.
APPLICATION GROUP(S): ONCO
IDENTIFIED BY: DIVISION (#6)[R]
CROSS
REFERENCED BY: BASAL CELL INDICATOR(AB), QA USER(AD), YEAR START AJCC 4TH EDITION(AJ), STATE HOSPITAL NUMBER(AS),
HOSPITAL NAME(B), DIVISION(C), ABSTRACTOR/REGISTRAR(D), 3-DIGIT STATE NUMBER(E)
LAST MODIFIED: JUL 13,2023@20:27:07
160.1,.01 HOSPITAL NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: FEB 21, 1992
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION: This field describes the name of this set of ONCOLOGY SITE PARAMETERS.
CROSS-REFERENCE: 160.1^B
1)= S ^ONCO(160.1,"B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,"B",X)
160.1,.011 C. HOSPITAL NAME ; COMPUTED
MUMPS CODE: X ^DD(160.1,.011,9.2) S X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X
9.2 = S Y(160.1,.011,1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"") S X=$P(Y(160.1,.011,1),U,1)
ALGORITHM: CENTER(#.01)
DESCRIPTION:
THE HOSPITAL NAME CENTERED FOR PRINTING ON THE FORM FOLLOW UP LETTERS.
160.1,.02 STREET ADDRESS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUN 30, 1991
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
This is the street address of the site.
160.1,.021 C. STREET ADDRESS ; COMPUTED
MUMPS CODE: X ^DD(160.1,.021,9.2) S X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X
9.2 = S Y(160.1,.021,1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"") S X=$P(Y(160.1,.021,1),U,2)
ALGORITHM: CENTER(#.02)
DESCRIPTION:
This is the street address of the site, centered for display.
160.1,.03 ZIPCODE 0;3 POINTER TO ZIP CODE FILE (#5.11)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
POINTER TO A FILE CONTAINING THE ZIP CODE AND CITY COMBINATION.
160.1,.031 CITY,ST ZIP ; COMPUTED
MUMPS CODE: S X="" D ZIP1^ONCOCOF
ALGORITHM: S X="" D ZIP1^ONCOCOF
LAST EDITED: NOV 19, 2009
DESCRIPTION:
Computes the CITY, STATE and POSTAL CODE for this site parameter entry.
160.1,.032 C. CITY,ST ZIP ; COMPUTED
MUMPS CODE: X $P(^DD(160.1,.031,0),U,5,99) S Y(160.1,.032,1)=X S X=Y(160.1,.032,1),X=$J("",$S($D(DIWR)+$D(DIWL)
=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X
ALGORITHM: CENTER(#.031)
DESCRIPTION:
This is the city, state, and ZIP Code of the site, centered for display.
160.1,.04 TR REFERENCE DATE 0;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 30, 1991
DESCRIPTION: RECORDS THE REFERENCE DATE FOR THE REGISTRY. THIS DATE IS LISTED AS THE FIRST DAY OF THE FIRST
MONTH OF THE YEAR THE REGISTRY FIRST STARTS KEEPING DATA.
160.1,.041 YEARS OF REGISTRY ; COMPUTED
MUMPS CODE: X ^DD(160.1,.041,9.2) S Y(160.1,.041,3)=X,X=DT S X=X S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) S
Y=X,X=Y(160.1,.041,2),X=X S X=X_Y
9.2 = S Y(160.1,.041,1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"") S X=$P(Y(160.1,.041,1),U,4) S:X X=$E(X,
4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) S X=X_" - ",Y(160.1,.041,2)=X
ALGORITHM: NUMDATE(#.04)_" - "_NUMDATE(TODAY)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
RECORDS THE YEARS IN A RANGE FROM THE DATE THE REGISTRY WAS STARTED TO THE CURRENT DATE.
160.1,1 TUMOR REGISTRAR 1;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
RECORDS THE NAME OF THE TUMOR REGISTRAR.
160.1,1.01 C. TUMOR REGISTRAR ; COMPUTED
MUMPS CODE: X $P(^DD(160.1,1.011,0),U,5,99) S Y(160.1,1.01,1)=X S X=Y(160.1,1.01,1),X=$J("",$S($D(DIWR)+$D(DIWL
)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X
9.2 = S Y(160.1,1.01,1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"") S X="Tumor Registrar: "_$P(Y(160.1,1.01
,1),U,1)
ALGORITHM: CENTER(#1.011)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the name of the tumor registrar, centered for display.
160.1,1.011 TITLE-TR ; COMPUTED
MUMPS CODE: S Y(160.1,1.011,1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"") S X="Tumor Registrar: "_$P(Y(160.1,1.011,1),
U,1)
ALGORITHM: "Tumor Registrar: "_#1
LAST EDITED: JUN 30, 1991
DESCRIPTION:
RECORDS ANY TITLE OR CERTIFICATION THAT THE REGISTRAR MAY POSSESS.
160.1,1.0111 C. TITLE TR ; COMPUTED
MUMPS CODE: X $P(^DD(160.1,1.01,0),U,5,99) S Y(160.1,1.0111,1)=X S X=Y(160.1,1.0111,1),X=$J("",$S($D(DIWR)+$D(D
IWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X
ALGORITHM: CENTER(#1.01)
DESCRIPTION:
This is the title of the tumor registrar, centered for display.
160.1,1.02 PHONE NUMBER 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<8) X
LAST EDITED: AUG 29, 1991
HELP-PROMPT: Answer must be 8-20 characters in length.
DESCRIPTION:
RECORDS THE TUMOR REGISTRAR'S TELEPHONE NUMBER.
160.1,1.03 STATE HOSPITAL NUMBER 1;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X
LAST EDITED: NOV 03, 1999
HELP-PROMPT: Answer must be 3-10 characters in length.
DESCRIPTION: STATE HOSPITAL NUMBER is the number assigned by the state to the reporting institution.
CROSS-REFERENCE: 160.1^AS^MUMPS
1)= S ^ONCO(160.1,"AS")=X
2)= K ^ONCO(160.1,"AS")
3)= DO NOT DELETE
State Hospital number used in state reporting.
160.1,2 BASAL CELL INDICATOR 2;1 SET
'Y' FOR Yes - Eliminate Basal Cells;
'N' FOR No - DO NOT Eliminate Basal Cells;
LAST EDITED: NOV 02, 1999
HELP-PROMPT: Do you want Basal Cells eliminated from laboratory casefinding?
DESCRIPTION: This field indicates whether the registry will eliminate basal cell carcinoma cases from the
laboratory pathology searches.
CROSS-REFERENCE: 160.1^AB^MUMPS
1)= S ^ONCO(160.1,"AB")=X
2)= K ^ONCO(160.1,"AB")
3)= DO NOT DELETE
Cross reference for Basal Cell indicator for lab search.
160.1,3 GOVERNMENT AGENCY 3;0 POINTER Multiple #160.13
LAST EDITED: FEB 29, 1992
DESCRIPTION:
Records the name of the government institution that may provide follow up information.
160.13,.01 GOVERNMENT AGENCY 0;1 POINTER TO ONCOLOGY CONTACT FILE (#165) (Multiply asked)
Government Contact
LAST EDITED: FEB 29, 1992
HELP-PROMPT: Enter Name of Bureau of Vital Statistics
DESCRIPTION:
Records the name of the government institution that may providefollow up information.
CROSS-REFERENCE: 160.13^B
1)= S ^ONCO(160.1,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,DA(1),3,"B",$E(X,1,30),DA)
160.1,4 LABORATORY CASEFINDING DATE 0;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 19, 2002
DESCRIPTION: LABORATORY CASEFINDIND DATE is the "Start Date" value from the previous "Automatic Casefinding-Lab
Search" to be used as a "Start Date" default for the next search.
160.1,5 AUTHORIZED QA USER QAU;0 POINTER Multiple #160.18
DESCRIPTION: The users authorized to produce QA reports.
160.18,.01 QA USER 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
LAST EDITED: JUL 26, 1999
DESCRIPTION: Select a user who is authorized to produce QA reports.
CROSS-REFERENCE: 160.18^B
1)= S ^ONCO(160.1,DA(1),"QAU","B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,DA(1),"QAU","B",$E(X,1,30),DA)
CROSS-REFERENCE: 160.1^AD
1)= S ^ONCO(160.1,"AD",$E(X,1,30),DA(1),DA)=""
2)= K ^ONCO(160.1,"AD",$E(X,1,30),DA(1),DA)
This is a cross-reference of AUTHORIZED QA USERS.
160.1,6 DIVISION 1;8 POINTER TO INSTITUTION FILE (#4) (Required)
INPUT TRANSFORM: N OSP,OSPIEN I $D(^ONCO(160.1,"C",X)) S OSPIEN=$O(^ONCO(160.1,"C",X,0)) Q:OSPIEN=DA S OSP=$P(^ONCO
(160.1,OSPIEN,0),U,1) W !!?2,"Already used by ",OSP,! K X
LAST EDITED: NOV 01, 1999
DESCRIPTION: Select the INSTITUTION that is associated with this set of site parameters.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 160.1^C
1)= S ^ONCO(160.1,"C",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,"C",$E(X,1,30),DA)
This cross-reference allows lookup by DIVISION.
160.1,7 VISN 1;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>23)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 06, 2003
HELP-PROMPT: Type a Number between 1 and 23, 0 Decimal Digits
DESCRIPTION: VISN is the VISN number for this tumor registry.
160.1,8 AFFILIATED DIVISION 6;0 POINTER Multiple #160.22
LAST EDITED: DEC 20, 1999
160.22,.01 AFFILIATED DIVISION 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
LAST EDITED: DEC 20, 1999
DESCRIPTION:
AFFILIATED DIVISION is a division that is affiliated with the primary division for purposes of
Tumor Registry.
e.g. CANANDAIGUA, NY is an AFFILIATED DIVISION of BUFFALO, NY.
CROSS-REFERENCE: 160.22^B
1)= S ^ONCO(160.1,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,DA(1),6,"B",$E(X,1,30),DA)
160.1,9 STATION NUMBER ; COMPUTED
MUMPS CODE: X ^DD(160.1,9,9.2) S Y(160.1,9,101)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(160.1,9,101),U,1) S D
0=Y(160.1,9,80)
9.2 = S Y(160.1,9,80)=$S($D(D0):D0,1:""),Y(160.1,9,1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:""),D0=$P(Y(1
60.1,9,1),U,8) S:'$D(^DIC(4,+D0,0)) D0=-1
ALGORITHM: DIVISION:STATION NUMBER
160.1,10 RADIOLOGY CASEFINDING DATE 0;6 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 19, 2002
DESCRIPTION: RADIOLOGY CASEFINDIND DATE is the "Start Date" value from the previous "Automatic
Casefinding-Radiology Search" to be used as a "Start Date" default for the next search.
160.1,11 START DATE QA;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Entered by program
DESCRIPTION:
FREE TEXT FOR IDENTIFYING ADDITIONAL CONTACTS.
160.1,12 END DATE QA;2 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Set by program
DESCRIPTION:
FREE TEXT FOR IDENTIFYING ADDITIONAL CONTACTS.
160.1,13 TOTAL CASES QA;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Type a Number between 1 and 500, 0 Decimal Digits
DESCRIPTION:
FREE TEXT FOR IDENTIFYING ADDITIONAL CONTACTS.
160.1,14 ID1 QA;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
FREE TEXT FIELD FOR IDENTIFYING ADDITIONAL CONTACTS.
160.1,15 ID2 QA;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
FREE TEXT FIELD FOR IDENTIFYING ADDITIONAL CONTACTS.
160.1,16 ID3 QA;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
FREE TEXT FIELD FOR IDENTIFYING ADDITIONAL CONTACTS.
160.1,17 ID4 QA;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
REPORTS THE SUM OF ALL CASES IN THE REGISTRY.
160.1,18 PTF CASEFINDING DATE 0;7 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 19, 2002
DESCRIPTION: PTF CASEFINDING DATE is the "Start Date" value from the previous "Automatic Casefinding-PTF Search"
to be used as a "Start Date" default for the next search.
160.1,19 COLLABORATIVE STAGING URL CS;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>160!($L(X)<1) X
LAST EDITED: APR 01, 2004
HELP-PROMPT: Answer must be 1-160 characters in length.
DESCRIPTION:
This field contains the URL address for the Collaborative Staging computer algorithms.
160.1,20 NEG-REPORT 10;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAY 24, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION: REPORTS NEGATIVE CASEFINDING REPORT WHEN NO CASES ARE FOUND OR ADDED TO THE REGISTRY SUSPENSE LIST
FROM AUTOMATIC CASEFINDING.
160.1,21 ID5 QA;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 11, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,22 ID6 QA;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,23 ID7 QA;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,24 ID8 QA;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,25 ID9 QA;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,26 ID10 QA;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: JUL 09, 1992
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,27 FACILITY ID # 1;4 POINTER TO FACILITY FILE (#160.19)
LAST EDITED: FEB 20, 2007
HELP-PROMPT: Enter the Facility Identification Number (FIN).
DESCRIPTION: Identifies the facility reporting the case.
For further information see ROADS page 208.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
160.1,28 CENTRAL REGISTRY # 1;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 08, 1992
HELP-PROMPT: Type a Number between 1 and 1000, 0 Decimal Digits
DESCRIPTION:
This is a code number assigned by a central registry.
160.1,30 CLINICAL INDICATOR 4;0 Multiple #160.11
LAST EDITED: SEP 03, 1993
DESCRIPTION:
These are the clinical indicators used by this site.
160.11,.01 CLINICAL INDICATOR 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: SEP 03, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
These are the clinical indicators used by this site.
CROSS-REFERENCE: 160.11^B
1)= S ^ONCO(160.1,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,DA(1),4,"B",$E(X,1,30),DA)
160.1,31 YEAR START AJCC 4TH EDITION 5;1 SET (Required)
'92' FOR 1992;
'93' FOR 1993;
LAST EDITED: OCT 08, 1999
HELP-PROMPT: Enter the year in which the institution began using the AJCC Manual for Staging of Cancer (Fourth
Edition).
DESCRIPTION: YEAR START AJCC 4TH EDITION is the year in which the institution began using the AJCC Manual for
Staging of Cancer (Fourth Edition).
CROSS-REFERENCE: 160.1^AJ^MUMPS
1)= S ^ONCO(160.1,"AJ")=X
2)= K ^ONCO(160.1,"AJ")
3)= DO NOT DELETE
Sets Staging Edition Switch for change over from 3rd tot 4th edition. This cross-reference is
referenced directly by DXDT^ONCOCKI.
160.1,40 TOTAL# FR;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>15000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(TOTAL#,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 15000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,41 BENIGN FR;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(BENIGN,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 1000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,42 CERVIX FR;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(CERVIX,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 1000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,43 LOCAL BASAL FR;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(LOCAL BASAL,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 1000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,44 FOREIGN FR;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(FOREIGN,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 1000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,45 NONANALYTIC FR;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>15000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(NONANALYTIC,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 15000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,46 ANALYTIC FR;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(ANALYTIC,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 10000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,47 DEAD FR;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(DEAD,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,48 LIVING FR;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(LIVING,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 10000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,49 %LIVING FR;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(%LIVING,3)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,50 %DEAD FR;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(%DEAD,3)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,51 CURRENT FR;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(CURRENT,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 10000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,52 %CURRENT-TOTAL FR;13 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(%CURRENT-TOTAL,3)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,53 LTF FR;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>10000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(LTF,5)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 10000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,54 %LTF-TOTAL FR;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(%LTF-TOTAL,3)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,55 %CURRENT-ALIVE FR;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(%CURRENT-ALIVE,3)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,56 %LTF-ALIVE FR;17 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."3N.N) X
OUTPUT TRANSFORM: $J(%LTF-ALIVE,3)
LAST EDITED: DEC 22, 1992
HELP-PROMPT: Type a Number between 0 and 100, 2 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,57 SFC FR;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100000)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(SFC,5)
LAST EDITED: SEP 23, 2004
HELP-PROMPT: Type a Number between 0 and 100000, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,58 %SFC FR;19 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(%SFC,3)
LAST EDITED: SEP 23, 2004
HELP-PROMPT: Type a Number between 0 and 100, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,59 EXTENDED VA DATASET 2;2 SET
'Y' FOR Yes;
'N' FOR No;
LAST EDITED: OCT 21, 2005
DESCRIPTION: This field indicates whether the extended VA dataset will be utilized or screened from input and
display. The extended VA dataset includes fields which collect symptom and initial diagnostic data
for all CLASS OF CASE 1 (Dx here, 1st tx here) cases and LUNG (C34.0 - C34.9) or COLON and RECTUM
(C18.0 - C18.9, C19.9, C20.9) cases.
160.1,60 CC FR;20 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: $J(CC,5)
LAST EDITED: JAN 18, 2006
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION:
This field is used as an accumulator for report generation.
160.1,61 VACCR CASE COMPL END DATE 0;8 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 15, 2008
HELP-PROMPT: Enter the "End, Date Case Completed" default date.
DESCRIPTION: VACCR CASE COMPL END DATE is the previous "End, Date Case Completed" value from the "Create
State/VACCR Data Download" option. This date will be used as the "End, Date Case Completed"
default for the next VACCR extract.
160.1,62 STATE CASE COMPL END DATE 0;9 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 15, 2008
HELP-PROMPT: Enter the "End, Date Case Completed" default date.
DESCRIPTION: STATE CASE COMPL END DATE is the previous "End, Date Case Completed" value from the "Create
State/VACCR Data Download" option. This date will be used as the "End, Date Case Completed"
default for the next STATE extract.
160.1,63 VACCR LAST CHANGED END DATE 0;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 15, 2008
HELP-PROMPT: Enter the "End, Date Case Last Changed" default date.
DESCRIPTION: VACCR LAST CHANGED END DATE is the previous "End, Date Case Last Changed" value from the "Create
State/VACCR Data Download" option. This date will be used as the "End, Date Case Last Changed"
default for the next VACCR extract.
160.1,64 STATE LAST CHANGED END DATE 0;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 15, 2008
HELP-PROMPT: Enter the "End, Date Case Last Changed" default date.
DESCRIPTION: STATE LAST CHANGED END DATE is the previous "End, Date Case Last Changed" value from the "Create
State/VACCR Data Download" option. This date will be used as the "End, Date Case Last Changed"
default for the next STATE extract.
160.1,65 POSTAL CODE CONVERSION FLAG 7;1 SET
'1' FOR Converted;
LAST EDITED: NOV 19, 2009
HELP-PROMPT: Enter 1 (Converted) if POSTAL CODE has been converted.
DESCRIPTION: Indicates that POSTAL CODE (.03) values have been converted from pointers to ZIP CODE (5.11) to
free-text postal code values.
160.1,66 CITY 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: AUG 14, 2009
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Identifies the city associated with this site parameter entry.
NOTES: TRIGGERED by the ZIPCODE field of the ONCOLOGY SITE PARAMETERS File
160.1,67 STATE 0;13 POINTER TO STATE FILE (#5)
LAST EDITED: AUG 14, 2009
HELP-PROMPT: Enter the state associated with this site parameter entry.
DESCRIPTION:
Identifies the state associated with this site parameter entry.
NOTES: TRIGGERED by the ZIPCODE field of the ONCOLOGY SITE PARAMETERS File
160.1,68 COC ACCREDITATION 7;2 SET
'00' FOR Not accredited;
'01' FOR CoC accredited;
LAST EDITED: JUN 09, 2011
HELP-PROMPT: Record whether your facility has CoC Accreditation.
DESCRIPTION: This field records whether your facility has a Commission on Cancer (CoC) accredited cancer
program.
The Commission on Cancer (CoC) Accreditation Program encourages hospitals, treatment centers, and
other facilities to improve their quality of patient care through various cancer-related programs.
These programs focus on prevention, early diagnosis, pretreatment evaluation, staging, optimal
treatment, rehabilitation, surveillance for recurrent disease, support services, and end-of-life
care.
160.1,69 P100 FR;21 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1.N) X
OUTPUT TRANSFORM: $J(P100,5)
LAST EDITED: DEC 06, 2012
HELP-PROMPT: Type a number between 0 and 9999, 0 decimal digits.
DESCRIPTION: This field is used as accumulator for report generation for patient whose age is over 100 years
old.
160.1,70 COC ACCREDITATION TEXT 8;0 WORD-PROCESSING #160.26 (IGNORE "|")
LAST EDITED: AUG 06, 2019
HELP-PROMPT: Please use this field to document that dates of accreditation changes
DESCRIPTION: This field is used to document:
1-date of accreditation change: indicate if accreditation was gained/lost
2-indicate the beginning date of affected abstracts For instance, hospital becomes accredited on
8/1/2020 and are abstracting 6 months out, the cases considered "accredited" begin with dx date
2/1/2020
160.1,71 COC ACCREDITATION DATE 7;3 DATE
INPUT TRANSFORM: S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 17, 2023
HELP-PROMPT: Enter the date the facility received accreditation. Future dates not allowed.
DESCRIPTION: This field records the facility's Commission on Cancer (COC) Accreditation Date, if the facility
has been accredited.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
160.1,100 MAIL SERVER USER SEU;0 Multiple #160.24 (Add New Entry without Asking)
DESCRIPTION:
This multiple contains the mail server users and recipients.
TECHNICAL DESCR:
Enter a mail server users and recipients.
160.24,.01 MAIL SERVER USER 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: JAN 14, 2014
HELP-PROMPT: Answer must be 2-50 characters in length.
DESCRIPTION: This field contains a valid user who can create a mail server message. Only users entered in
this field can activate a mail server process. A user LAST name is enough for this field to
satisfy the requirement.
CROSS-REFERENCE: 160.24^B
1)= S ^ONCO(160.1,DA(1),"SEU","B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,DA(1),"SEU","B",$E(X,1,30),DA)
160.24,2 SERVER RECIPIENT 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: JAN 14, 2014
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION: This field is a valid mail address of a recipient who is going to receive Oncology mail server
messages.
TECHNICAL DESCR:
Enter a valid mail address of a user that will receive messages from Oncology mail server.
160.1,105 ABSTRACTOR/REGISTRAR REG;0 POINTER Multiple #160.25
DESCRIPTION:
This multiple contains registrars with a valid entry in New Person file (#200).
TECHNICAL DESCR:
Only entry that has a valid entry in New Person file (#200) is allowed in this multiple.
160.25,.01 ABSTRACTOR/REGISTRAR 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
LAST EDITED: SEP 24, 2013
DESCRIPTION: This field contains a valid registrar with the privilge to process the State abstract. Only user
that has an entry in New Person file (#200) can be entered in this field.
TECHNICAL DESCR:
Enter a registrar that has a valid entry in the New Persion file (#200).
CROSS-REFERENCE: 160.25^B
1)= S ^ONCO(160.1,DA(1),"REG","B",$E(X,1,30),DA)=""
2)= K ^ONCO(160.1,DA(1),"REG","B",$E(X,1,30),DA)
CROSS-REFERENCE: 160.1^D
1)= S ^ONCO(160.1,"D",$E(X,1,30),DA(1),DA)=""
2)= K ^ONCO(160.1,"D",$E(X,1,30),DA(1),DA)
160.25,2 3-DIGIT STATE NUMBER 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>998)!(X<0)!(X?.E1"."1.N)!($$TDSNIT^ONCODSP()) X
LAST EDITED: SEP 26, 2013
HELP-PROMPT: Type a number between 0 and 998, 0 decimal digits.
DESCRIPTION:
This field is a 3-digit number assigned by state to a particular registrar.
TECHNICAL DESCR:
Enter a 3-digit number assigned by state to the registrar.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 160.1^E
1)= S ^ONCO(160.1,"E",$E(X,1,30),DA(1),DA)=""
2)= K ^ONCO(160.1,"E",$E(X,1,30),DA(1),DA)
This cross reference will be used to ensure uniqueness of the field.
FILES POINTED TO FIELDS
FACILITY (#160.19) FACILITY ID # (#27)
INSTITUTION (#4) DIVISION (#6)
AFFILIATED DIVISION:AFFILIATED DIVISION (#.01)
NEW PERSON (#200) AUTHORIZED QA USER:QA USER (#.01)
ABSTRACTOR/REGISTRAR:ABSTRACTOR/REGISTRAR (#.01)
ONCOLOGY CONTACT (#165) GOVERNMENT AGENCY:GOVERNMENT AGENCY (#.01)
STATE (#5) STATE (#67)
ZIP CODE (#5.11) ZIPCODE (#.03)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
ONCO NEG-REPORT MAY 24, 1992@21:38 USER #0 @
ONCO SITE HEADING JUL 09, 1991@12:16 USER #0 W !
ONCO SITE-QA REPORT APR 02, 1992@07:07 USER #0 W @IOF,!!!?15,"QA REPORT",!!
SORT TEMPLATE(S):
ONCO NEG-REPORT MAY 24, 1992@21:36 USER #0 'ONCO NEG-REPORT' Print Template always used
SORT BY: NEG-REPORT// (NEG-REPORT not null)
FORM(S)/BLOCK(S):