Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCMPC4A

ONCMPC4A.m

Go to the documentation of this file.
  1. ONCMPC4A ;HINES CIOFO/GWB - 1999 Melanoma Study - Table IV (continued); 1/22/99
  1. ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
  1. SN W !," SENTINEL NODES",!
  1. W " --------------"
  1. PL I $E(TOPCOD,1,3)="C69" D G SNDB
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,23)=8
  1. .W !," 57. PRE-OP LYMPHOSCINTIGRAPHY.....: NA, ocular site"
  1. S DR="1122 57. PRE-OP LYMPHOSCINTIGRAPHY....." D ^DIE G:$D(Y) JUMP
  1. SNDB S PL=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,23)
  1. I (PL=0)!(PL=8) D G SNP
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=8
  1. .W !," 58. SENTINEL NODES DETECTED BY....: NA, not done, ocular site"
  1. .W !," 59. SENTINEL NODE BIOPSY..........: NA, not done, ocular site"
  1. .W !," 60. SENTINEL NODES EXAMINED.......: NA, not done, ocular site"
  1. I PL=9 D G SNP
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,24)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,44)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,25)=9
  1. .W !," 58. SENTINEL NODES DETECTED BY....: Unknown"
  1. .W !," 59. SENTINEL NODE BIOPSY..........: Unknown"
  1. .W !," 60. SENTINEL NODES EXAMINED.......: Unknown"
  1. S DR="1123 58. SENTINEL NODES DETECTED BY...." D ^DIE G:$D(Y) JUMP
  1. SNB S DR="943 59. SENTINEL NODE BIOPSY.........." D ^DIE G:$D(Y) JUMP
  1. SNE S DR="1124 60. SENTINEL NODES EXAMINED......." D ^DIE G:$D(Y) JUMP
  1. SNP S SNE=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,25)
  1. I (SNE=0)!(SNE=8) D G ISNP
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=8
  1. .W !," 61. SENTINEL NODES POSITIVE.......: NA, not done, no exam, ocular site"
  1. .W !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
  1. I SNE=9 D G ISNP
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,26)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,27)=9
  1. .W !," 61. SENTINEL NODES POSITIVE.......: Unknown"
  1. .W !," 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED.......: NA, not done, ocular site"
  1. S DR="1125 61. SENTINEL NODES POSITIVE......." D ^DIE G:$D(Y) JUMP
  1. SNPE S DR="1126 62. HOW WAS SENTINEL NODE PATHOLOGICALLY EXAMINED......." D ^DIE G:$D(Y) JUMP
  1. ISNP W !!," 63. IF SENTINEL NODE(S) POSITIVE:",!
  1. S SNP=$P($G(^ONCO(165.5,ONCONUM,"MEL1")),U,26)
  1. I (SNP=0)!(SNP=8) D G RT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
  1. .W !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: NA, not done, no + nodes, ocular site"
  1. .W !," NUMBER OF BASINS DETECTED.....: NA, not done, no + nodes, ocular site"
  1. .W !," NUMBER OF BASINS POSITIVE.....: NA, not done, no basins dissected, ocular"
  1. I SNP=9 D G RT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,28)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
  1. .W !," WAS COMPLETE LYMPH NODE DISSECTION PERFORMED..........: Unknown"
  1. .W !," NUMBER OF BASINS DETECTED.....: Unknown"
  1. .W !," NUMBER OF BASINS POSITIVE.....: Unknown"
  1. WCLNDP S DR="1127 WAS COMPLETE LYMPH NODE DISSECTION PERFORMED.........." D ^DIE G:$D(Y) JUMP
  1. I (X=0)!(X=8) D G RT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
  1. .W !," NUMBER OF BASINS DETECTED....: NA, not done, no + nodes, ocular site"
  1. .W !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
  1. I X=9 D G RT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,29)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
  1. .W !," NUMBER OF BASINS DETECTED....: Unknown"
  1. .W !," NUMBER OF BASINS POSITIVE....: Unknown"
  1. NOBD S DR="1128 NUMBER OF BASINS DETECTED....." D ^DIE G:$D(Y) JUMP
  1. I (X=0)!(X=8) D G RT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=8
  1. .W !," NUMBER OF BASINS POSITIVE....: NA, not done, no basins dissected, ocular"
  1. I X=9 D G RT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,30)=9
  1. .W !," NUMBER OF BASINS POSITIVE....: Unknown"
  1. NOBP S DR="1129 NUMBER OF BASINS POSITIVE....." D ^DIE G:$D(Y) JUMP
  1. RT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
  1. W !," RADIATION THERAPY"
  1. W !," -----------------"
  1. DRS W !," 64. DATE RADIATION STARTED........: ",ONC(165.5,ONCONUM,51,"E")
  1. W !," 65. RADIATION THERAPY.............: ",ONC(165.5,ONCONUM,51.2,"E")
  1. RFNR W !," 66. REASON FOR NO RADIATION.......: ",ONC(165.5,ONCONUM,75,"E")
  1. W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
  1. C W !," CHEMOTHERAPY"
  1. W !," ------------"
  1. DCS W !," 67. DATE CHEMOTHERAPY STARTED.....: ",ONC(165.5,ONCONUM,53,"E")
  1. W !," 68. CHEMOTHERAPY..................: ",ONC(165.5,ONCONUM,53.2,"E")
  1. IT I ONC(165.5,ONCONUM,53.2,"I")=0 D G HT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=8
  1. .W !," 69. INTRAVENOUS THERAPY...........: NA, chemotherapy not administered"
  1. I (ONC(165.5,ONCONUM,53.2,"I")=8)!(ONC(165.5,ONCONUM,53.2,"I")=9) D G HT
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,31)=9
  1. .W !," 69. INTRAVENOUS THERAPY...........: Unknown if administered"
  1. S DR="1130 69. INTRAVENOUS THERAPY..........." D ^DIE G:$D(Y) JUMP
  1. HT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
  1. W !," HORMONE THERAPY"
  1. W !," ---------------"
  1. DHTS W !," 70. DATE HORMONE THERAPY STARTED..: ",ONC(165.5,ONCONUM,54,"E")
  1. W !," 71. HORMONE THERAPY...............: ",ONC(165.5,ONCONUM,54.2,"E")
  1. W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
  1. I W !," IMMUNOTHERAPY"
  1. W !," -------------"
  1. DIS W !," 72. DATE IMMUNOTHERAPY STARTED....: ",ONC(165.5,ONCONUM,55,"E")
  1. W !," 73. IMMUNOTHERAPY.................: ",ONC(165.5,ONCONUM,55.2,"E")
  1. IAA W !!," 74. IMMUNOTHERAPEUTIC AGENTS ADMINISTERED:",!
  1. S BRM=ONC(165.5,ONCONUM,55.2,"I")
  1. I (BRM=0)!(BRM=7) D G OT
  1. .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,30)=8
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=8
  1. .W !," VACCINE THERAPY...............: NA"
  1. .W !," GENE THERAPY..................: NA"
  1. .W !," INTERLEUKIN 2.................: NA"
  1. .W !," INTERFERON....................: NA"
  1. .W !," LEVAMISOLE....................: NA"
  1. .W !," COLONY STIMULATING FACTORS....: NA"
  1. .W !," OTHER GIVEN, TYPE UNKNOWN.....: NA"
  1. I (BRM=8)!(BRM=9) D G OT
  1. .S $P(^ONCO(165.5,ONCONUM,"NHL2"),U,39)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,32)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,39)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,38)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"COL2"),U,40)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"STS2"),U,30)=9
  1. .S $P(^ONCO(165.5,ONCONUM,"BLA2"),U,40)=9
  1. .W !," VACCINE THERAPY...............: Unknown"
  1. .W !," GENE THERAPY..................: Unknown"
  1. .W !," INTERLEUKIN 2.................: Unknown"
  1. .W !," INTERFERON....................: Unknown"
  1. .W !," LEVAMISOLE....................: Unknown"
  1. .W !," COLONY STIMULATING FACTORS....: Unknown"
  1. .W !," OTHER GIVEN, TYPE UNKNOWN.....: Unknown"
  1. S DR="884 VACCINE THERAPY..............." D ^DIE G:$D(Y) JUMP
  1. S DR="1131 GENE THERAPY.................." D ^DIE G:$D(Y) JUMP
  1. S DR="385 INTERLEUKIN 2................." D ^DIE G:$D(Y) JUMP
  1. S DR="384 INTERFERON...................." D ^DIE G:$D(Y) JUMP
  1. S DR="791 LEVAMISOLE...................." D ^DIE G:$D(Y) JUMP
  1. S DR="559 COLONY STIMULATING FACTORS...." D ^DIE G:$D(Y) JUMP
  1. S DR="386 OTHER GIVEN, TYPE UNKNOWN....." D ^DIE G:$D(Y) JUMP
  1. OT W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF D HEAD^ONCMPC0
  1. W !," OTHER THERAPY"
  1. W !," -------------"
  1. DOTS W !," 75. DATE OTHER TREATMENT STARTED..: ",ONC(165.5,ONCONUM,57,"E")
  1. W !," 76. OTHER TREATMENT...............: ",ONC(165.5,ONCONUM,57.2,"E")
  1. PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
  1. G EXIT
  1. JUMP ;Jump to prompts
  1. S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
  1. I X["?" D G JUMP
  1. .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
  1. I '$D(TABLE(X)) S:X?1.2N X=X_"." S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
  1. .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
  1. S X=TABLE(X)
  1. G @X
  1. EXIT S:$D(DIRUT) OUT="Y"
  1. K CHOICES,PIECE,HTABLE,TABLE
  1. K CDS,CDSOT,LOS,NCDS,NCDSOT,NOP,SURG,SURG1,SURG2,SURGDT,SA,SA1,SA2
  1. K SM,SM1,SM2,SOORS,SOORS1,SOORS2,PL,SNE
  1. K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
  1. Q