ONCBRP2 ;HINES CIOFO/GWB - 1998 Breast Cancer Study - Table II ;6/1/98
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
K TABLE,HTABLE
S TABLE("16. CLASS OF CASE")="COC"
S TABLE("17. DIAGNOSTIC EVALUATION")="DE"
S TABLE("18. (F) TYPE OF MAMMOGRAM")="TM"
S TABLE("19. (F) PRESENTATION OF MOST DEFINITIVE MAMMOGRAM")="PMDM"
S TABLE("20. DATE OF INITIAL DIAGNOSIS")="DID"
S TABLE("21. DATE OF PATHOLOGIC DIAGNOSIS")="DPD"
S TABLE("22. PRIMARY SITE (ICD-O-2)")="PS"
S TABLE("23. HISTOLOGY (ICD-O-2)")="HIST"
S TABLE("24. BEHAVIOR CODE(ICD-O-2)")="BC"
S TABLE("25. IF INVASIVE DUCTAL CARCINOMA REPORTED, IS DCIS ALSO PRESENT")="IDCR"
S TABLE("26. GRADE")="GRADE"
S TABLE("27. ARCHITECTURE PATTERN IF DCIS IS PRESENT")="APIDIP"
S TABLE("28. NUCLEAR GRADE IF DCIS IS PRESENT")="NGIDIP"
S TABLE("29. DIAGNOSTIC CONFIRMATION")="DC"
S TABLE("30. (M) LEVEL OF INVOLVEMENT")="LI"
S TABLE("31. BIOPSY PROCEDURE")="BP"
S TABLE("32. GUIDANCE")="G"
S TABLE("33. PALPABILITY OF PRIMARY")="PP"
S TABLE("34. FIRST DETECTED BY")="FDB"
S HTABLE(1)="16. CLASS OF CASE"
S HTABLE(2)="17. DIAGNOSTIC EVALUATION"
S HTABLE(3)="18. (F) TYPE OF MAMMOGRAM"
S HTABLE(4)="19. (F) PRESENTATION OF MOST DEFINITIVE MAMMOGRAM"
S HTABLE(5)="20. DATE OF INITIAL DIAGNOSIS"
S HTABLE(6)="21. DATE OF PATHOLOGIC DIAGNOSIS"
S HTABLE(7)="22. PRIMARY SITE (ICD-O-2)"
S HTABLE(8)="23. HISTOLOGY (ICD-O-2)"
S HTABLE(9)="24. BEHAVIOR CODE (ICD-O-2)"
S HTABLE(10)="25. IF INVASIVE DUCTAL CARCINOMA REPORTED, IS DCIS ALSO PRESENT"
S HTABLE(11)="26. GRADE"
S HTABLE(12)="27. ARCHITECTURE PATTERN IF DCIS IS PRESENT"
S HTABLE(13)="28. NUCLEAR GRADE IF DCIS IS PRESENT"
S HTABLE(14)="29. DIAGNOSTIC CONFIRMATION"
S HTABLE(15)="30. (M) LEVEL OF INVOLVEMENT"
S HTABLE(16)="31. BIOPSY PROCEDURE"
S HTABLE(17)="32. GUIDANCE"
S HTABLE(18)="33. PALPABILITY OF PRIMARY"
S HTABLE(19)="34. FIRST DETECTED BY"
S CHOICES=19
K DIQ S DIC="^ONCO(165.5,",DR=".04;20.1;22;26",DA=ONCONUM,DIQ="ONC"
S DIQ(0)="IE" D EN^DIQ1
S DIE="^ONCO(165.5,",DA=ONCONUM
W @IOF D HEAD^ONCBRP0
W !," TABLE II - INITIAL DIAGNOSIS"
W !," ----------------------------"
COC W !," 16. CLASS OF CASE.................: ",ONC(165.5,ONCONUM,.04,"E")
DE W !!," 17. DIAGNOSTIC EVALUATION:",!
I $$GET1^DIQ(160,ONCOPA,10,"I")=2 D G U
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,27)=""
.W !," MAMMOGRAM (M).................: (Data Item for Males Only)"
S DR="926 MAMMOGRAM (M)................." D ^DIE G:$D(Y) JUMP
U S DR="927 ULTRASOUND (M)(F)............." D ^DIE G:$D(Y) JUMP
W !
TM W !," 18. (F) TYPE OF MAMMOGRAM:",!
I $$GET1^DIQ(160,ONCOPA,10,"I")=1 D W ! G PMDM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,19)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,20)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,21)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,22)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,23)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,24)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,25)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,26)=""
.W !," A. MAMMOGRAM GIVEN, TYPE UNKNOWN.: (Data Item for Females Only)"
.W !," DATE..........................:"
.W !," B. SCREENING MAMMOGRAM...........: (Data Item for Females Only)"
.W !," DATE..........................:"
.W !," C. DIAGNOSTIC MAMMOGRAM..........: (Data Item for Females Only)"
.W !," DATE..........................:"
.W !," D. MAGNIFICATION MAMMOGRAM.......: (Data Item for Females Only)"
.W !," DATE..........................:"
S DR="918 A. MAMMOGRAM GIVEN, TYPE UNKNOWN." D ^DIE G:$D(Y) JUMP
I $G(X)="" D G SM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,20)=""
.W !," DATE..........................:"
I $G(X)=0 D G SM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,20)="0000000"
.W !," DATE..........................: 00/00/0000"
I $G(X)=9 D G SM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,20)=9999999
.W !," DATE..........................: 99/99/9999"
S DR="919 DATE.........................." D ^DIE G:$D(Y) JUMP
SM S DR="920 B. SCREENING MAMMOGRAM..........." D ^DIE G:$D(Y) JUMP
I $G(X)="" D G DM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,22)=""
.W !," DATE..........................:"
I $G(X)=0 D G DM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,22)="0000000"
.W !," DATE..........................: 00/00/0000"
I $G(X)=9 D G DM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,22)=9999999
.W !," DATE..........................: 99/99/9999"
S DR="921 DATE.........................." D ^DIE G:$D(Y) JUMP
DM S DR="922 C. DIAGNOSTIC MAMMOGRAM.........." D ^DIE G:$D(Y) JUMP
I $G(X)="" D G MM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,24)=""
.W !," DATE..........................:"
I $G(X)=0 D G MM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,24)="0000000"
.W !," DATE..........................: 00/00/0000"
I $G(X)=9 D G MM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,24)=9999999
.W !," DATE..........................: 99/99/9999"
S DR="923 DATE.........................." D ^DIE G:$D(Y) JUMP
MM S DR="924 D. MAGNIFICATION MAMMOGRAM......." D ^DIE G:$D(Y) JUMP
I $G(X)="" D W ! G PMDM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,26)=""
.W !," DATE..........................:"
I $G(X)=0 D W ! G PMDM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,26)="0000000"
.W !," DATE..........................: 00/00/0000"
I $G(X)=9 D W ! G PMDM
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,26)=9999999
.W !," DATE..........................: 99/99/9999"
S DR="925 DATE.........................." D ^DIE G:$D(Y) JUMP
W !
PMDM I $$GET1^DIQ(160,ONCOPA,10,"I")=1 D W ! G DID
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,29)=""
.W !," 19. (F) PRESENTATION OF MOST"
.W !," DEFINITIVE MAMMOGRAM..........: (Data Item for Females Only)"
S DR="928 19. (F) PRESENTATION OF MOST DEFINITIVE MAMMOGRAM.........." D ^DIE G:$D(Y) JUMP
DID S DID=$E(DATEDX,4,5)_"/"_$E(DATEDX,6,7)_"/"_(1700+$E(DATEDX,1,3))
W !," 20. DATE OF INITIAL DIAGNOSIS.....: ",DID
DPD S DR="929 21. DATE OF PATHOLOGIC DIAGNOSIS.." D ^DIE G:$D(Y) JUMP
PS W !," 22. PRIMARY SITE (ICD-O-2)........: ",ONC(165.5,ONCONUM,20.1,"E")
HIST W !," 23. HISTOLOGY (ICD-O-2)...........: ",$E(ONC(165.5,ONCONUM,22,"I"),1,4)
BC W !," 24. BEHAVIOR CODE (ICD-O-2).......: ",$E(ONC(165.5,ONCONUM,22,"I"),5)
IDCR I IDC=0 D G GRADE
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,31)=8
.W !," 25. IF INVASIVE DUCTAL CARCINOMA"
.W !," REPORTED, IS DCIS ALSO PRESENT: NA, reported tumor not invasive DC"
S DR="930 25. IF INVASIVE DUCTAL CARCINOMA REPORTED, IS DCIS ALSO PRESENT" D ^DIE G:$D(Y) JUMP
GRADE S DR="24 26. GRADE........................." D ^DIE G:$D(Y) JUMP
APIDIP S DR="931 27. ARCHITECTURE PATTERN IF DCIS IS PRESENT...................." D ^DIE G:$D(Y) JUMP
NGIDIP S DR="932 28. NUCLEAR GRADE IF DCIS IS PRESENT......................." D ^DIE G:$D(Y) JUMP
DC W !," 26. DIAGNOSTIC CONFIRMATION.......: ",ONC(165.5,ONCONUM,26,"E")
LI W !!," 30. (M) LEVEL OF INVOLVEMENT:",!
I $$GET1^DIQ(160,ONCOPA,10,"I")=2 D W ! G BP
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,34)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,35)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,36)=""
.S $P(^ONCO(165.5,ONCONUM,"BRE1"),U,37)=""
.W !," SKIN..........................: (Data Item for Males Only)"
.W !," CHEST WALL....................: (Data Item for Males Only)"
.W !," PECTORAL MUSCLES..............: (Data Item for Males Only)"
.W !," DERMAL/LYMPHATIC..............: (Data Item for Males Only)"
S DR="933 SKIN.........................." D ^DIE G:$D(Y) JUMP
S DR="934 CHEST WALL...................." D ^DIE G:$D(Y) JUMP
S DR="935 PECTORAL MUSCLES.............." D ^DIE G:$D(Y) JUMP
S DR="936 DERMAL/LYMPHATIC.............." D ^DIE G:$D(Y) JUMP
W !
BP W !," DIAGNOSTIC AND STAGING PROCEDURES",!
S DR="141 31. BIOSPY PROCEDURE.............." D ^DIE G:$D(Y) JUMP
I $G(X)=1 D G PP
.S $P(^ONCO(165.5,ONCONUM,2.1),U,15)=1
.W !," 32. GUIDANCE......................: Not guided, no biopsy"
I $G(X)=6 D G PP
.S $P(^ONCO(165.5,ONCONUM,2.1),U,15)=9
.W !," 32. GUIDANCE......................: Unknown/death cert only"
GOBTP S DR="142 32. GUIDANCE......................" D ^DIE G:$D(Y) JUMP
PP S DR="143 33. PALPABILITY OF PRIMARY........" D ^DIE G:$D(Y) JUMP
FDB S DR="144 34. FIRST DETECTED BY............." D ^DIE G:$D(Y) JUMP
PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
G EXIT
JUMP ;Jump to prompts
S XX="" R !!," GO TO ITEM NUMBER: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
I X["?" D G JUMP
.W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
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
.W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
S X=TABLE(X)
G @X
EXIT K CHOICES,HTABLE,TABLE
K DID,NCDS,CDS,PP,LP,GS,PIECE
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCBRP2 9124 printed Sep 23, 2025@19:58:24 Page 2
ONCBRP2 ;HINES CIOFO/GWB - 1998 Breast Cancer Study - Table II ;6/1/98
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL TABLE,HTABLE
+3 SET TABLE("16. CLASS OF CASE")="COC"
+4 SET TABLE("17. DIAGNOSTIC EVALUATION")="DE"
+5 SET TABLE("18. (F) TYPE OF MAMMOGRAM")="TM"
+6 SET TABLE("19. (F) PRESENTATION OF MOST DEFINITIVE MAMMOGRAM")="PMDM"
+7 SET TABLE("20. DATE OF INITIAL DIAGNOSIS")="DID"
+8 SET TABLE("21. DATE OF PATHOLOGIC DIAGNOSIS")="DPD"
+9 SET TABLE("22. PRIMARY SITE (ICD-O-2)")="PS"
+10 SET TABLE("23. HISTOLOGY (ICD-O-2)")="HIST"
+11 SET TABLE("24. BEHAVIOR CODE(ICD-O-2)")="BC"
+12 SET TABLE("25. IF INVASIVE DUCTAL CARCINOMA REPORTED, IS DCIS ALSO PRESENT")="IDCR"
+13 SET TABLE("26. GRADE")="GRADE"
+14 SET TABLE("27. ARCHITECTURE PATTERN IF DCIS IS PRESENT")="APIDIP"
+15 SET TABLE("28. NUCLEAR GRADE IF DCIS IS PRESENT")="NGIDIP"
+16 SET TABLE("29. DIAGNOSTIC CONFIRMATION")="DC"
+17 SET TABLE("30. (M) LEVEL OF INVOLVEMENT")="LI"
+18 SET TABLE("31. BIOPSY PROCEDURE")="BP"
+19 SET TABLE("32. GUIDANCE")="G"
+20 SET TABLE("33. PALPABILITY OF PRIMARY")="PP"
+21 SET TABLE("34. FIRST DETECTED BY")="FDB"
+22 SET HTABLE(1)="16. CLASS OF CASE"
+23 SET HTABLE(2)="17. DIAGNOSTIC EVALUATION"
+24 SET HTABLE(3)="18. (F) TYPE OF MAMMOGRAM"
+25 SET HTABLE(4)="19. (F) PRESENTATION OF MOST DEFINITIVE MAMMOGRAM"
+26 SET HTABLE(5)="20. DATE OF INITIAL DIAGNOSIS"
+27 SET HTABLE(6)="21. DATE OF PATHOLOGIC DIAGNOSIS"
+28 SET HTABLE(7)="22. PRIMARY SITE (ICD-O-2)"
+29 SET HTABLE(8)="23. HISTOLOGY (ICD-O-2)"
+30 SET HTABLE(9)="24. BEHAVIOR CODE (ICD-O-2)"
+31 SET HTABLE(10)="25. IF INVASIVE DUCTAL CARCINOMA REPORTED, IS DCIS ALSO PRESENT"
+32 SET HTABLE(11)="26. GRADE"
+33 SET HTABLE(12)="27. ARCHITECTURE PATTERN IF DCIS IS PRESENT"
+34 SET HTABLE(13)="28. NUCLEAR GRADE IF DCIS IS PRESENT"
+35 SET HTABLE(14)="29. DIAGNOSTIC CONFIRMATION"
+36 SET HTABLE(15)="30. (M) LEVEL OF INVOLVEMENT"
+37 SET HTABLE(16)="31. BIOPSY PROCEDURE"
+38 SET HTABLE(17)="32. GUIDANCE"
+39 SET HTABLE(18)="33. PALPABILITY OF PRIMARY"
+40 SET HTABLE(19)="34. FIRST DETECTED BY"
+41 SET CHOICES=19
+42 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR=".04;20.1;22;26"
SET DA=ONCONUM
SET DIQ="ONC"
+43 SET DIQ(0)="IE"
DO EN^DIQ1
+44 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
+45 WRITE @IOF
DO HEAD^ONCBRP0
+46 WRITE !," TABLE II - INITIAL DIAGNOSIS"
+47 WRITE !," ----------------------------"
COC WRITE !," 16. CLASS OF CASE.................: ",ONC(165.5,ONCONUM,.04,"E")
DE WRITE !!," 17. DIAGNOSTIC EVALUATION:",!
+1 IF $$GET1^DIQ(160,ONCOPA,10,"I")=2
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,27)=""
+3 WRITE !," MAMMOGRAM (M).................: (Data Item for Males Only)"
End DoDot:1
GOTO U
+4 SET DR="926 MAMMOGRAM (M)................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
U SET DR="927 ULTRASOUND (M)(F)............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 WRITE !
TM WRITE !," 18. (F) TYPE OF MAMMOGRAM:",!
+1 IF $$GET1^DIQ(160,ONCOPA,10,"I")=1
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,19)=""
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,20)=""
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,21)=""
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,22)=""
+6 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,23)=""
+7 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,24)=""
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,25)=""
+9 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,26)=""
+10 WRITE !," A. MAMMOGRAM GIVEN, TYPE UNKNOWN.: (Data Item for Females Only)"
+11 WRITE !," DATE..........................:"
+12 WRITE !," B. SCREENING MAMMOGRAM...........: (Data Item for Females Only)"
+13 WRITE !," DATE..........................:"
+14 WRITE !," C. DIAGNOSTIC MAMMOGRAM..........: (Data Item for Females Only)"
+15 WRITE !," DATE..........................:"
+16 WRITE !," D. MAGNIFICATION MAMMOGRAM.......: (Data Item for Females Only)"
+17 WRITE !," DATE..........................:"
End DoDot:1
WRITE !
GOTO PMDM
+18 SET DR="918 A. MAMMOGRAM GIVEN, TYPE UNKNOWN."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+19 IF $GET(X)=""
Begin DoDot:1
+20 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,20)=""
+21 WRITE !," DATE..........................:"
End DoDot:1
GOTO SM
+22 IF $GET(X)=0
Begin DoDot:1
+23 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,20)="0000000"
+24 WRITE !," DATE..........................: 00/00/0000"
End DoDot:1
GOTO SM
+25 IF $GET(X)=9
Begin DoDot:1
+26 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,20)=9999999
+27 WRITE !," DATE..........................: 99/99/9999"
End DoDot:1
GOTO SM
+28 SET DR="919 DATE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SM SET DR="920 B. SCREENING MAMMOGRAM..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF $GET(X)=""
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,22)=""
+3 WRITE !," DATE..........................:"
End DoDot:1
GOTO DM
+4 IF $GET(X)=0
Begin DoDot:1
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,22)="0000000"
+6 WRITE !," DATE..........................: 00/00/0000"
End DoDot:1
GOTO DM
+7 IF $GET(X)=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,22)=9999999
+9 WRITE !," DATE..........................: 99/99/9999"
End DoDot:1
GOTO DM
+10 SET DR="921 DATE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DM SET DR="922 C. DIAGNOSTIC MAMMOGRAM.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF $GET(X)=""
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,24)=""
+3 WRITE !," DATE..........................:"
End DoDot:1
GOTO MM
+4 IF $GET(X)=0
Begin DoDot:1
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,24)="0000000"
+6 WRITE !," DATE..........................: 00/00/0000"
End DoDot:1
GOTO MM
+7 IF $GET(X)=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,24)=9999999
+9 WRITE !," DATE..........................: 99/99/9999"
End DoDot:1
GOTO MM
+10 SET DR="923 DATE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
MM SET DR="924 D. MAGNIFICATION MAMMOGRAM......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF $GET(X)=""
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,26)=""
+3 WRITE !," DATE..........................:"
End DoDot:1
WRITE !
GOTO PMDM
+4 IF $GET(X)=0
Begin DoDot:1
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,26)="0000000"
+6 WRITE !," DATE..........................: 00/00/0000"
End DoDot:1
WRITE !
GOTO PMDM
+7 IF $GET(X)=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,26)=9999999
+9 WRITE !," DATE..........................: 99/99/9999"
End DoDot:1
WRITE !
GOTO PMDM
+10 SET DR="925 DATE.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 WRITE !
PMDM IF $$GET1^DIQ(160,ONCOPA,10,"I")=1
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,29)=""
+2 WRITE !," 19. (F) PRESENTATION OF MOST"
+3 WRITE !," DEFINITIVE MAMMOGRAM..........: (Data Item for Females Only)"
End DoDot:1
WRITE !
GOTO DID
+4 SET DR="928 19. (F) PRESENTATION OF MOST DEFINITIVE MAMMOGRAM.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DID SET DID=$EXTRACT(DATEDX,4,5)_"/"_$EXTRACT(DATEDX,6,7)_"/"_(1700+$EXTRACT(DATEDX,1,3))
+1 WRITE !," 20. DATE OF INITIAL DIAGNOSIS.....: ",DID
DPD SET DR="929 21. DATE OF PATHOLOGIC DIAGNOSIS.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PS WRITE !," 22. PRIMARY SITE (ICD-O-2)........: ",ONC(165.5,ONCONUM,20.1,"E")
HIST WRITE !," 23. HISTOLOGY (ICD-O-2)...........: ",$EXTRACT(ONC(165.5,ONCONUM,22,"I"),1,4)
BC WRITE !," 24. BEHAVIOR CODE (ICD-O-2).......: ",$EXTRACT(ONC(165.5,ONCONUM,22,"I"),5)
IDCR IF IDC=0
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,31)=8
+2 WRITE !," 25. IF INVASIVE DUCTAL CARCINOMA"
+3 WRITE !," REPORTED, IS DCIS ALSO PRESENT: NA, reported tumor not invasive DC"
End DoDot:1
GOTO GRADE
+4 SET DR="930 25. IF INVASIVE DUCTAL CARCINOMA REPORTED, IS DCIS ALSO PRESENT"
DO ^DIE
if $DATA(Y)
GOTO JUMP
GRADE SET DR="24 26. GRADE........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
APIDIP SET DR="931 27. ARCHITECTURE PATTERN IF DCIS IS PRESENT...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
NGIDIP SET DR="932 28. NUCLEAR GRADE IF DCIS IS PRESENT......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DC WRITE !," 26. DIAGNOSTIC CONFIRMATION.......: ",ONC(165.5,ONCONUM,26,"E")
LI WRITE !!," 30. (M) LEVEL OF INVOLVEMENT:",!
+1 IF $$GET1^DIQ(160,ONCOPA,10,"I")=2
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,34)=""
+3 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,35)=""
+4 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,36)=""
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"BRE1"),U,37)=""
+6 WRITE !," SKIN..........................: (Data Item for Males Only)"
+7 WRITE !," CHEST WALL....................: (Data Item for Males Only)"
+8 WRITE !," PECTORAL MUSCLES..............: (Data Item for Males Only)"
+9 WRITE !," DERMAL/LYMPHATIC..............: (Data Item for Males Only)"
End DoDot:1
WRITE !
GOTO BP
+10 SET DR="933 SKIN.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="934 CHEST WALL...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="935 PECTORAL MUSCLES.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="936 DERMAL/LYMPHATIC.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+14 WRITE !
BP WRITE !," DIAGNOSTIC AND STAGING PROCEDURES",!
+1 SET DR="141 31. BIOSPY PROCEDURE.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 IF $GET(X)=1
Begin DoDot:1
+3 SET $PIECE(^ONCO(165.5,ONCONUM,2.1),U,15)=1
+4 WRITE !," 32. GUIDANCE......................: Not guided, no biopsy"
End DoDot:1
GOTO PP
+5 IF $GET(X)=6
Begin DoDot:1
+6 SET $PIECE(^ONCO(165.5,ONCONUM,2.1),U,15)=9
+7 WRITE !," 32. GUIDANCE......................: Unknown/death cert only"
End DoDot:1
GOTO PP
GOBTP SET DR="142 32. GUIDANCE......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
PP SET DR="143 33. PALPABILITY OF PRIMARY........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
FDB SET DR="144 34. FIRST DETECTED BY............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PRTC WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM NUMBER: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
if X?1.2N
SET X=X_"."
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL CHOICES,HTABLE,TABLE
+1 KILL DID,NCDS,CDS,PP,LP,GS,PIECE
+2 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+3 QUIT
