Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ONCO(160.1

Package: Oncology

Global: ^ONCO(160.1


Information

FileMan FileNo FileMan Filename Package
160.1 ONCOLOGY SITE PARAMETERS Oncology

Description

Directly Accessed By Routines, Total: 38

Package Total Routines
Oncology 36 ABSTRACTOR/REGISTRAR    AFFILIATED DIVISION    AUTHORIZED QA USER    CLINICAL INDICATOR    GOVERNMENT AGENCY    MAIL SERVER USER    ONC2PS01    ONCACD0
ONCACDU2    ONCFUNC    ONCGENED    ONCO FOLLOWUP    ONCO NEG-REPORT    ONCOAIP    ONCOAIP2    ONCOANC3
ONCOANCQ    ONCOCFL    ONCOCFL1    ONCOCFP    ONCOCOF    ^ONCO(160    ^ONCO(169.99    ONCOCFR
ONCOCOM    ONCODSP    ONCOGEN    ONCOLRU    ONCOPMB    ONCOPRT    ONCOU    ONCPCDX
ONCRPC    ONCSAPIU    ONCSRV    ^ONCO(160.1    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
Oncology 9 ONC2PS01    ONCACD0    ONCFUNC    ONCOCFR    ONCOCOF    ONCODSP    ONCOUK    ONCSAPIU
ONCSRV    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Kernel 4 INSTITUTION(#4)[6, #160.22(.01)]    STATE(#5)[67]    NEW PERSON(#200)[#160.18(.01), #160.25(.01)]    ZIP CODE(#5.11)[.03]    
Oncology 2 FACILITY(#160.19)[27]    ONCOLOGY CONTACT(#165)[#160.13(.01)]    

Fields, Total: 78

Field # Name Loc Type Details
.01 HOSPITAL NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
.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.
.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.
.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.
.03 ZIPCODE 0;3 POINTER TO ZIP CODE FILE (#5.11) ZIP CODE(#5.11)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    POINTER TO A FILE CONTAINING THE ZIP CODE AND CITY COMBINATION.
.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.
.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.
.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.
.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.
1 TUMOR REGISTRAR 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
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.
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.
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(DIWL)=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.
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.
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.
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.
3 GOVERNMENT AGENCY 3;0 POINTER Multiple #160.13 160.13

  • LAST EDITED:  FEB 29, 1992
  • DESCRIPTION:  
    Records the name of the government institution that may provide follow up information.
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.
5 AUTHORIZED QA USER QAU;0 POINTER Multiple #160.18 160.18

  • DESCRIPTION:  The users authorized to produce QA reports.
6 DIVISION 1;8 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • 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.
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.
8 AFFILIATED DIVISION 6;0 POINTER Multiple #160.22 160.22

  • LAST EDITED:  DEC 20, 1999
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 D0=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(160.1,9,1),U,8) S:'$D(^DIC(4,+D0,0)) D0=-1
  • ALGORITHM:  DIVISION:STATION NUMBER
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.
11 START DATE QA;1 DATE
************************REQUIRED FIELD************************

  • 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.
12 END DATE QA;2 DATE
************************REQUIRED FIELD************************

  • 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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
27 FACILITY ID # 1;4 POINTER TO FACILITY FILE (#160.19) FACILITY(#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
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.
30 CLINICAL INDICATOR 4;0 Multiple #160.11 160.11

  • LAST EDITED:  SEP 03, 1993
  • DESCRIPTION:  
    These are the clinical indicators used by this site.
31 YEAR START AJCC 4TH EDITION 5;1 SET
************************REQUIRED FIELD************************
  • '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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
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
67 STATE 0;13 POINTER TO STATE FILE (#5) STATE(#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
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.
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.
70 COC ACCREDITATION TEXT 8;0 WORD-PROCESSING #160.26

  • 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
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
100 MAIL SERVER USER SEU;0 Multiple #160.24 160.24

  • DESCRIPTION:  
    This multiple contains the mail server users and recipients.
  • TECHNICAL DESCR:  
    Enter a mail server users and recipients.
105 ABSTRACTOR/REGISTRAR REG;0 POINTER Multiple #160.25 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.

External References

Name Field # of Occurrence
^%DT .04+1, 4+1, 10+1, 11+1, 12+1, 18+1, 61+1, 62+1, 63+1, 64+1
, 71+1
ZIP1^ONCOCOF .031+1
DIVID^ONCODSP ID6+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(160.1 .011+1, .021+1, .032+1, .041+1, 1.01+1, 1.0111+1, 9+1
^DIC(4 - [#4] 9+1, 9OF9.2+1
^ONCO(160.1 - [#160.1] .01(XREF 1S), .01(XREF 1K), .011OF9.2+1, .021OF9.2+1, .041OF9.2+1, 1.01OF9.2+1, 1.011+1, 1.03(XREF 1S), 1.03(XREF 1K), 2(XREF 1S)
, 2(XREF 1K), 6+1, 6(XREF 1S), 6(XREF 1K), 9OF9.2+1, 31(XREF 1S), 31(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .011OF9.2+1, .021OF9.2+1, .041OF9.2+1
^(1 1.01OF9.2+1, 1.011+1, 9OF9.2+1
^(99 9+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .04+1*, 4+1*, 10+1*, 11+1*, 12+1*, 18+1*, 61+1*, 62+1*, 63+1*, 64+1*
, 71+1*
>> %DT(0 71+1*
>> D0 .011OF9.2+1, .021OF9.2+1, .041OF9.2+1, 1.01OF9.2+1, 1.011+1, 9+1*, 9OF9.2+1*
>> DA .01(XREF 1S), 6+1, 6(XREF 1S), 6(XREF 1K)
>> DIWL .011+1, .021+1, .032+1, 1.01+1, 1.0111+1
>> DIWR .011+1, .021+1, .032+1, 1.01+1, 1.0111+1
DT .041+1
IOM .011+1, .021+1, .032+1, 1.01+1, 1.0111+1
OSP 6+1~*
OSPIEN 6+1~*
U .011OF9.2+1, .021OF9.2+1, .032+1, .041OF9.2+1, 1.01+1, 1.01OF9.2+1, 1.011+1, 1.0111+1, 6+1, 9+1
, 9OF9.2+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .011+1*, .011OF9.2+1*, .02+1!, .021+1*, .021OF9.2+1*, .031+1*, .032+1*
, .04+1*!, .041+1*, .041OF9.2+1*, 1+1!, 1.01+1*, 1.01OF9.2+1*, 1.011+1*, 1.0111+1*, 1.02+1!, 1.03+1!
, 1.03(XREF 1S), 2(XREF 1S), 4+1*!, 6+1!, 6(XREF 1S), 6(XREF 1K), 7+1!, 9+1*, 10+1*!, 11+1*!
, 12+1*!, 13+1!, 14+1!, 15+1!, 16+1!, 17+1!, 18+1*!, 19+1!, 20+1!, 21+1!
, 22+1!, 23+1!, 24+1!, 25+1!, 26+1!, 28+1!, 31(XREF 1S), 40+1!, 40OT+1*, 41+1!
, 41OT+1*, 42+1!, 42OT+1*, 43+1!, 43OT+1*, 44+1!, 44OT+1*, 45+1!, 45OT+1*, 46+1!
, 46OT+1*, 47+1!, 47OT+1*, 48+1!, 48OT+1*, 49+1!, 49OT+1*, 50+1!, 50OT+1*, 51+1!
, 51OT+1*, 52+1!, 52OT+1*, 53+1!, 53OT+1*, 54+1!, 54OT+1*, 55+1!, 55OT+1*, 56+1!
, 56OT+1*, 57+1!, 57OT+1*, 58+1!, 58OT+1*, 60+1!, 60OT+1*, 61+1*!, 62+1*!, 63+1*!
, 64+1*!, 66+1!, 69+1!, 69OT+1*, 71+1*!
>> Y .04+1, .041+1*, 4+1, 10+1, 11+1, 12+1, 18+1, 40OT+1*, 41OT+1*, 42OT+1*
, 43OT+1*, 44OT+1*, 45OT+1*, 46OT+1*, 47OT+1*, 48OT+1*, 49OT+1*, 50OT+1*, 51OT+1*, 52OT+1*
, 53OT+1*, 54OT+1*, 55OT+1*, 56OT+1*, 57OT+1*, 58OT+1*, 60OT+1*, 61+1, 62+1, 63+1
, 64+1, 69OT+1*, 71+1
>> Y( .011OF9.2+1*, .021OF9.2+1*, .032+1*, .041+1*, .041OF9.2+1*, 1.01+1*, 1.01OF9.2+1*, 1.011+1*, 1.0111+1*, 9+1*
, 9OF9.2+1*
>> Y(0 40OT+1*, 41OT+1*, 42OT+1*, 43OT+1*, 44OT+1*, 45OT+1*, 46OT+1*, 47OT+1*, 48OT+1*, 49OT+1*
, 50OT+1*, 51OT+1*, 52OT+1*, 53OT+1*, 54OT+1*, 55OT+1*, 56OT+1*, 57OT+1*, 58OT+1*, 60OT+1*
, 69OT+1*
>> Y(1 40OT+1*, 41OT+1*, 42OT+1*, 43OT+1*, 44OT+1*, 45OT+1*, 46OT+1*, 47OT+1*, 48OT+1*, 49OT+1*
, 50OT+1*, 51OT+1*, 52OT+1*, 53OT+1*, 54OT+1*, 55OT+1*, 56OT+1*, 57OT+1*, 58OT+1*, 60OT+1*
, 69OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All