| [628] | 1 | ONCOSSAT ;HInes OIFO/GWB - BEGIN SURVIVAL ANALYSIS ;9/30/93
|
|---|
| 2 | ;;2.11;ONCOLOGY;**13,15,45**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | IN ;CALL SURVIAL ROUTINES
|
|---|
| 5 | G ^ONCOSSA
|
|---|
| 6 | ;
|
|---|
| 7 | SEX ;for reference only - NOT an Option entry point
|
|---|
| 8 | K ONCOS
|
|---|
| 9 | S ONCOS("F")="PRIMARY",ONCOS("T")="ALL"
|
|---|
| 10 | S ONCOS("D")="SURVIVAL MONTHS^M^Y"
|
|---|
| 11 | S ONCOS("S")="STATUS=""Dead""",ONCOS("G")="2"
|
|---|
| 12 | S ONCOS("G",1)=".1^Males^VAL(.1)=""Male"""
|
|---|
| 13 | S ONCOS("T")="ONCO-ANALYTIC"
|
|---|
| 14 | S ONCOS("G",2)=".1^Females^VAL(.1)=""Female"""
|
|---|
| 15 | S ONCOS("L")="PY" G DEV
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | STG ;SURVIVAL BY STAGE GROUPS
|
|---|
| 19 | K ONSOS D OV G EX:Y<0 S ONCOS("G")=4,ONCOS("G",1)="38.5^Stage I^VAL(38.5)=""I""",ONCOS("G",2)="38.5^Stage II^VAL(38.5)=""II""",ONCOS("G",3)="38.5^Stage III^VAL(38.5)=""III""",ONCOS("G",4)="38.5^Stage IV^VAL(38.5)=""IV""" G DEV
|
|---|
| 20 | K ONCOS D OV S ONCOS("G")="1",ONCOS("G",1)=".01^Prostate^VAL(.01)=""PROSTATE""" G DEV
|
|---|
| 21 | ;
|
|---|
| 22 | TX ;SURVIVAL BY TREATMENT
|
|---|
| 23 | K ONCOS D OV G EX:Y<0
|
|---|
| 24 | S ONCOS("G")=9
|
|---|
| 25 | S ONCOS("G",1)="43^Surgery of primary site^VAL(43)=""SUR"""
|
|---|
| 26 | S ONCOS("G",2)="43^Radiation^VAL(43)=""XRT"""
|
|---|
| 27 | S ONCOS("G",3)="43^Chemotherapy^VAL(43)=""CMX"""
|
|---|
| 28 | S ONCOS("G",4)="43^Hormone therapy^VAL(43)=""HOR"""
|
|---|
| 29 | S ONCOS("G",5)="43^Immunotherapy^VAL(43)=""BRM"""
|
|---|
| 30 | S ONCOS("G",6)="43^Hema Trans/Endocrine Proc^VAL(43)=""HEM"""
|
|---|
| 31 | S ONCOS("G",7)="43^Other treatment^VAL(43)=""OTR"""
|
|---|
| 32 | S ONCOS("G",8)="43^Combination treatment^($L(VAL(43))>3)&(VAL(43)'=""NONE"")"
|
|---|
| 33 | S ONCOS("G",9)="43^No treatment^(VAL(43)=""NTX"")!(VAL(43)=""NONE"")"
|
|---|
| 34 | G DEV
|
|---|
| 35 | ;
|
|---|
| 36 | SP ;SURVIVAL BY SITE/(use Sex to get one curve)
|
|---|
| 37 | W !!!,"Enter a package template name (beginning with ONCO) or your own"
|
|---|
| 38 | W !,"template name below.",!
|
|---|
| 39 | W !,"Search template names begin with ONCOS. All other ONCO templates"
|
|---|
| 40 | W !,"are sort templates.",!
|
|---|
| 41 | W !,"If you select a sort template here, you will be prompted for a"
|
|---|
| 42 | W !,"search template later.",!
|
|---|
| 43 | K ONCOS D OV G EX:Y<0 S ONCOS("G")=1,ONCOS("G",1)=".1^VAL(.1)=""Male""",ONCOS("G",2)=".1^Females^VAL(.1)=""Female""" G DEV
|
|---|
| 44 | ;
|
|---|
| 45 | DEV ;DEVICE SELECTION & TASKING
|
|---|
| 46 | D ^ONCOSSA G EX
|
|---|
| 47 | ZIS K IO("Q") S %ZIS="Q" S:$D(ONCOS("I")) IOP=ONCOS("I") D ^%ZIS I POP S ONCOUT="" G EX
|
|---|
| 48 | NQ I '$D(IO("Q")) D ^ONCOSSA G EX
|
|---|
| 49 | S ZTRTN="PRINT^ONCOSSA",ZTDESC="ONCOLOGY SURVIVAL"
|
|---|
| 50 | S ZTSAVE("ONCOS*")="" D ^%ZTLOAD K ZTSK G EX
|
|---|
| 51 | ZT S ZTRTN="PRINT^ONCOSSA",ZTDESC="ONCOLOGY SURVIVAL",ZTSAVE("ONCOS*")="" D ^%ZTLOAD K ZTSK G EX
|
|---|
| 52 | ;
|
|---|
| 53 | OV S ONCOS("FI")="165.5^ONCOLOGY PRIMARY^ONCO(165.5,",ONCOS("D")="SURVIVAL MONTHS^M^Y",ONCOS("L")="PY",ONCOS("S")="STATUS=""Dead"""
|
|---|
| 54 | S DIC="^DIBT(",DIC("A")=" Select Template: ",DIC(0)="AEZ" D ^DIC Q:Y<0 S ONCOS("T")=$P(Y,U,2) W ONCOS("T")
|
|---|
| 55 | W !!,?5,"REMINDER: Run Define Search Criteria option",!
|
|---|
| 56 | W ?5,"to be sure selected entries are up-to-date!!",!!
|
|---|
| 57 | S DIR("A")="Continue ",DIR("B")="Y",DIR(0)="Y" D ^DIR G EX:Y'=1
|
|---|
| 58 | Q
|
|---|
| 59 | ;
|
|---|
| 60 | EX ;Exit routine
|
|---|
| 61 | K IOP,DIC,ONCOEX,ONCOS,%DT,%ZISOS,GIL,INT,%K,%T,FIL,T,TX D ^%ZISC Q
|
|---|
| 62 | K FNAM,GBL,HLAB,OT,W,ROWDEF
|
|---|
| 63 | Q
|
|---|
