- ONCOXA3 ; GENERATED FROM 'ONCOXA3' PRINT TEMPLATE (#829) ; 10/17/24 ; (FILE 165.5, MARGIN=80)
- G BEGIN
- N W !
- T W:$X ! I '$D(DIOT(2)),DN,$D(IOSL),$S('$D(DIWF):1,$P(DIWF,"B",2):$P(DIWF,"B",2),1:1)+$Y'<IOSL,$D(^UTILITY($J,1))#2,^(1)?1U1P1E.E X ^(1)
- S DISTP=DISTP+1,DILCT=DILCT+1 D:'(DISTP#100) CSTP^DIO2
- Q
- DT I $G(DUZ("LANG"))>1,Y W $$OUT^DIALOGU(Y,"DD") Q
- X ^DD("DD")
- W Y Q
- M D @DIXX
- Q
- BEGIN ;
- S:'$D(DN) DN=1 S DISTP=$G(DISTP),DILCT=$G(DILCT)
- S I(0)="^ONCO(165.5,",J(0)=165.5
- D N:$X>2 Q:'DN W ?2 W "Diagnostic confirmation: "
- S X=$G(^ONCO(165.5,D0,2)) S Y=$P(X,U,6) W:Y]"" $E($$SET^DIQ(165.5,26,Y),1,46)
- D N:$X>2 Q:'DN W ?2 W "Tumor size: "
- S X=$G(^ONCO(165.5,D0,0)) W ?16 S Y=$P(X,U,8) S Y(0)=Y S X=Y D DATEOT^ONCOES W $E(Y,1,30)
- D N:$X>2 Q:'DN W ?2 W "Extension: "
- S X=$G(^ONCO(165.5,D0,2)) S Y=$P(X,U,10) S Y(0)=Y S ONCOX="E",ONCFLD=30 D OT^ONCODEL W $J(Y,2)
- D N:$X>2 Q:'DN W ?2 W "Regional lymph nodes positive: "
- S X=$G(^ONCO(165.5,D0,2)) S Y=$P(X,U,12) S Y(0)=Y D RNP^ONCOOT W $E(Y,1,30)
- D N:$X>2 Q:'DN W ?2 W "Regional lymph nodes examined: "
- S X=$G(^ONCO(165.5,D0,2)) S Y=$P(X,U,13) S Y(0)=Y D RNE^ONCOOT W $E(Y,1,30)
- D N:$X>2 Q:'DN W ?2 W "Lymph nodes: "
- S X=$G(^ONCO(165.5,D0,2)) S Y=$P(X,U,11) S Y(0)=Y S ONCOX="L" D OT^ONCODEL W $J(Y,2)
- D N:$X>2 Q:'DN W ?2 W "SEER Summary Stage 2000: "
- S X=$G(^ONCO(165.5,D0,2)) S Y=$P(X,U,17) W:Y]"" $E($$SET^DIQ(165.5,35,Y),1,35)
- D N:$X>2 Q:'DN W ?2 W "Sites of metastases: "
- D N:$X>23 Q:'DN W ?23 S Y=$P(X,U,14) W:Y]"" $E($$SET^DIQ(165.5,34,Y),1,19)
- D N:$X>43 Q:'DN W ?43 S Y=$P(X,U,15) W:Y]"" $E($$SET^DIQ(165.5,34.1,Y),1,19)
- D N:$X>63 Q:'DN W ?63 S Y=$P(X,U,16) W:Y]"" $E($$SET^DIQ(165.5,34.2,Y),1,15)
- D N:$X>2 Q:'DN W ?2 W "Clinical TNM: "
- D N:$X>20 Q:'DN W ?20 S STGIND="C",X=$$TNMOUT^ONCOTNO(D0) W $E(X,1,12) K Y(165.5,37)
- D N:$X>39 Q:'DN W ?39 W "Pathologic TNM: "
- D N:$X>59 Q:'DN W ?59 S STGIND="P",X=$$TNMOUT^ONCOTNO(D0) W $E(X,1,12) K Y(165.5,89.1)
- D N:$X>2 Q:'DN W ?2 W "AJCC Stage (Clin): "
- S X=$G(^ONCO(165.5,D0,2)) D N:$X>23 Q:'DN W ?23 S Y=$P(X,U,20) S Y(0)=Y S X="" D OT^ONCOTNS W $E(Y,1,30)
- D N:$X>39 Q:'DN W ?39 W "AJCC Stage (Path): "
- S X=$G(^ONCO(165.5,D0,2.1)) D N:$X>59 Q:'DN W ?59 S Y=$P(X,U,4) S Y(0)=Y S X="" D OT^ONCOTNS W $E(Y,1,30)
- D N:$X>29 Q:'DN W ?29 W " " K DIP K:DN Y
- D N:$X>2 Q:'DN W ?2 W "FIRST COURSE OF TREATMENT SUMMARY:"
- D N:$X>2 Q:'DN W ?2 W "Dx/Staging/Palliative Proc: "
- S X=$G(^ONCO(165.5,D0,3)) D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,27) S Y(0)=Y D NCDSOT^ONCODSR W $E(Y,1,30)
- D N:$X>2 Q:'DN W ?2 W "Date First Surgical Procedure: "
- S X=$G(^ONCO(165.5,D0,3.1)) D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,38) S Y(0)=Y S X=Y D DATEOT^ONCOES W $E(Y,1,30)
- D N:$X>2 Q:'DN W ?2 W "RX Summ--Surg Primsite 03-2022: "
- S X=$G(^ONCO(165.5,D0,3.1)) D N:$X>34 Q:'DN W ?34 S Y=$P(X,U,29) S Y(0)=Y S FIELD=58.6 D SPSOT^ONCOSUR W $E(Y,1,30)
- D N:$X>2 Q:'DN W ?2 W "RX Summ--Surg Prim Site 2023: "
- S X=$G(^ONCO(165.5,D0,3.2)) D N:$X>33 Q:'DN W ?33,$E($P(X,U,9),1,4)
- D N:$X>2 Q:'DN W ?2 W "Surgical Margins: "
- S X=$G(^ONCO(165.5,D0,3)) D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,28) W:Y]"" $E($$SET^DIQ(165.5,59,Y),1,26)
- D N:$X>2 Q:'DN W ?2 W "Reason for no surgery: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,26) W:Y]"" $E($$SET^DIQ(165.5,58,Y),1,43)
- D N:$X>2 Q:'DN W ?2 W "Radiation: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,6) W:Y]"" $E($$SET^DIQ(165.5,51.2,Y),1,32)
- D N:$X>2 Q:'DN W ?2 W "Radiation Sequence: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,7) W:Y]"" $E($$SET^DIQ(165.5,51.3,Y),1,45)
- D N:$X>2 Q:'DN W ?2 W "Reason for no radiation: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,35) W:Y]"" $E($$SET^DIQ(165.5,75,Y),1,39)
- D N:$X>2 Q:'DN W ?2 W "Chemotherapy: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,13) W:Y]"" $E($$SET^DIQ(165.5,53.2,Y),1,39)
- D N:$X>2 Q:'DN W ?2 W "Hormone Therapy: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,16) W:Y]"" $E($$SET^DIQ(165.5,54.2,Y),1,39)
- D N:$X>2 Q:'DN W ?2 W "Immunotherapy: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,19) W:Y]"" $E($$SET^DIQ(165.5,55.2,Y),1,39)
- D N:$X>2 Q:'DN W ?2 W "Other treatment: "
- D N:$X>33 Q:'DN W ?33 S Y=$P(X,U,25) W:Y]"" $E($$SET^DIQ(165.5,57.2,Y),1,36)
- K Y
- Q
- HEAD ;
- W !,"--------------------------------------------------------------------------------",!!
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOXA3 4311 printed Apr 23, 2025@18:41 Page 2
- ONCOXA3 ; GENERATED FROM 'ONCOXA3' PRINT TEMPLATE (#829) ; 10/17/24 ; (FILE 165.5, MARGIN=80)
- +1 GOTO BEGIN
- N WRITE !
- T if $X
- WRITE !
- IF '$DATA(DIOT(2))
- IF DN
- IF $DATA(IOSL)
- IF $SELECT('$DATA(DIWF):1,$PIECE(DIWF,"B",2):$PIECE(DIWF,"B",2),1:1)+$Y'<IOSL
- IF $DATA(^UTILITY($JOB,1))#2
- IF ^(1)?1U1P1E.E
- XECUTE ^(1)
- +1 SET DISTP=DISTP+1
- SET DILCT=DILCT+1
- if '(DISTP#100)
- DO CSTP^DIO2
- +2 QUIT
- DT IF $GET(DUZ("LANG"))>1
- IF Y
- WRITE $$OUT^DIALOGU(Y,"DD")
- QUIT
- +1 XECUTE ^DD("DD")
- +2 WRITE Y
- QUIT
- M DO @DIXX
- +1 QUIT
- BEGIN ;
- +1 if '$DATA(DN)
- SET DN=1
- SET DISTP=$GET(DISTP)
- SET DILCT=$GET(DILCT)
- +2 SET I(0)="^ONCO(165.5,"
- SET J(0)=165.5
- +3 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Diagnostic confirmation: "
- +4 SET X=$GET(^ONCO(165.5,D0,2))
- SET Y=$PIECE(X,U,6)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,26,Y),1,46)
- +5 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Tumor size: "
- +6 SET X=$GET(^ONCO(165.5,D0,0))
- WRITE ?16
- SET Y=$PIECE(X,U,8)
- SET Y(0)=Y
- SET X=Y
- DO DATEOT^ONCOES
- WRITE $EXTRACT(Y,1,30)
- +7 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Extension: "
- +8 SET X=$GET(^ONCO(165.5,D0,2))
- SET Y=$PIECE(X,U,10)
- SET Y(0)=Y
- SET ONCOX="E"
- SET ONCFLD=30
- DO OT^ONCODEL
- WRITE $JUSTIFY(Y,2)
- +9 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Regional lymph nodes positive: "
- +10 SET X=$GET(^ONCO(165.5,D0,2))
- SET Y=$PIECE(X,U,12)
- SET Y(0)=Y
- DO RNP^ONCOOT
- WRITE $EXTRACT(Y,1,30)
- +11 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Regional lymph nodes examined: "
- +12 SET X=$GET(^ONCO(165.5,D0,2))
- SET Y=$PIECE(X,U,13)
- SET Y(0)=Y
- DO RNE^ONCOOT
- WRITE $EXTRACT(Y,1,30)
- +13 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Lymph nodes: "
- +14 SET X=$GET(^ONCO(165.5,D0,2))
- SET Y=$PIECE(X,U,11)
- SET Y(0)=Y
- SET ONCOX="L"
- DO OT^ONCODEL
- WRITE $JUSTIFY(Y,2)
- +15 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "SEER Summary Stage 2000: "
- +16 SET X=$GET(^ONCO(165.5,D0,2))
- SET Y=$PIECE(X,U,17)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,35,Y),1,35)
- +17 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Sites of metastases: "
- +18 if $X>23
- DO N
- if 'DN
- QUIT
- WRITE ?23
- SET Y=$PIECE(X,U,14)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,34,Y),1,19)
- +19 if $X>43
- DO N
- if 'DN
- QUIT
- WRITE ?43
- SET Y=$PIECE(X,U,15)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,34.1,Y),1,19)
- +20 if $X>63
- DO N
- if 'DN
- QUIT
- WRITE ?63
- SET Y=$PIECE(X,U,16)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,34.2,Y),1,15)
- +21 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Clinical TNM: "
- +22 if $X>20
- DO N
- if 'DN
- QUIT
- WRITE ?20
- SET STGIND="C"
- SET X=$$TNMOUT^ONCOTNO(D0)
- WRITE $EXTRACT(X,1,12)
- KILL Y(165.5,37)
- +23 if $X>39
- DO N
- if 'DN
- QUIT
- WRITE ?39
- WRITE "Pathologic TNM: "
- +24 if $X>59
- DO N
- if 'DN
- QUIT
- WRITE ?59
- SET STGIND="P"
- SET X=$$TNMOUT^ONCOTNO(D0)
- WRITE $EXTRACT(X,1,12)
- KILL Y(165.5,89.1)
- +25 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "AJCC Stage (Clin): "
- +26 SET X=$GET(^ONCO(165.5,D0,2))
- if $X>23
- DO N
- if 'DN
- QUIT
- WRITE ?23
- SET Y=$PIECE(X,U,20)
- SET Y(0)=Y
- SET X=""
- DO OT^ONCOTNS
- WRITE $EXTRACT(Y,1,30)
- +27 if $X>39
- DO N
- if 'DN
- QUIT
- WRITE ?39
- WRITE "AJCC Stage (Path): "
- +28 SET X=$GET(^ONCO(165.5,D0,2.1))
- if $X>59
- DO N
- if 'DN
- QUIT
- WRITE ?59
- SET Y=$PIECE(X,U,4)
- SET Y(0)=Y
- SET X=""
- DO OT^ONCOTNS
- WRITE $EXTRACT(Y,1,30)
- +29 if $X>29
- DO N
- if 'DN
- QUIT
- WRITE ?29
- WRITE " "
- KILL DIP
- if DN
- KILL Y
- +30 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "FIRST COURSE OF TREATMENT SUMMARY:"
- +31 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Dx/Staging/Palliative Proc: "
- +32 SET X=$GET(^ONCO(165.5,D0,3))
- if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,27)
- SET Y(0)=Y
- DO NCDSOT^ONCODSR
- WRITE $EXTRACT(Y,1,30)
- +33 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Date First Surgical Procedure: "
- +34 SET X=$GET(^ONCO(165.5,D0,3.1))
- if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,38)
- SET Y(0)=Y
- SET X=Y
- DO DATEOT^ONCOES
- WRITE $EXTRACT(Y,1,30)
- +35 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "RX Summ--Surg Primsite 03-2022: "
- +36 SET X=$GET(^ONCO(165.5,D0,3.1))
- if $X>34
- DO N
- if 'DN
- QUIT
- WRITE ?34
- SET Y=$PIECE(X,U,29)
- SET Y(0)=Y
- SET FIELD=58.6
- DO SPSOT^ONCOSUR
- WRITE $EXTRACT(Y,1,30)
- +37 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "RX Summ--Surg Prim Site 2023: "
- +38 SET X=$GET(^ONCO(165.5,D0,3.2))
- if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33,$EXTRACT($PIECE(X,U,9),1,4)
- +39 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Surgical Margins: "
- +40 SET X=$GET(^ONCO(165.5,D0,3))
- if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,28)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,59,Y),1,26)
- +41 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Reason for no surgery: "
- +42 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,26)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,58,Y),1,43)
- +43 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Radiation: "
- +44 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,6)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,51.2,Y),1,32)
- +45 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Radiation Sequence: "
- +46 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,7)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,51.3,Y),1,45)
- +47 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Reason for no radiation: "
- +48 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,35)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,75,Y),1,39)
- +49 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Chemotherapy: "
- +50 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,13)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,53.2,Y),1,39)
- +51 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Hormone Therapy: "
- +52 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,16)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,54.2,Y),1,39)
- +53 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Immunotherapy: "
- +54 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,19)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,55.2,Y),1,39)
- +55 if $X>2
- DO N
- if 'DN
- QUIT
- WRITE ?2
- WRITE "Other treatment: "
- +56 if $X>33
- DO N
- if 'DN
- QUIT
- WRITE ?33
- SET Y=$PIECE(X,U,25)
- if Y]""
- WRITE $EXTRACT($$SET^DIQ(165.5,57.2,Y),1,36)
- +57 KILL Y
- +58 QUIT
- HEAD ;
- +1 WRITE !,"--------------------------------------------------------------------------------",!!
