ONCOTNMB.m

ONCOTNMB ;WISC/MLH - ONCOLOGY - HELPER for TNM codes ;8/21/93  11:55

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;

MMEYELID ;Check stage indicator for PATHOLOGIC or OTHER

 I (STGIND="P")!(STGIND="O")!(STGIND="R") S SC=37

 E  D

 .Q:$G(ONCOED)=5

 .W:$G(WFLG)="Y" !?5,"No CLINICAL T classification of MALIGNANT MELANOMA OF THE EYELID is",!?5,"recommended.",!

 .S ST="" K X

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCOTNMB   383     printed  Dec 13, 2024@02:25:59                                                                                                                                                                                                     Page 2

ONCOTNMB  ;WISC/MLH - ONCOLOGY - HELPER for TNM codes ;8/21/93  11:55

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;

MMEYELID  ;Check stage indicator for PATHOLOGIC or OTHER

 +1        IF (STGIND="P")!(STGIND="O")!(STGIND="R")

               SET SC=37

 +2       IF '$TEST

               Begin DoDot:1

 +3                if $GET(ONCOED)=5

                       QUIT 

 +4                if $GET(WFLG)="Y"

                       WRITE !?5,"No CLINICAL T classification of MALIGNANT MELANOMA OF THE EYELID is",!?5,"recommended.",!

 +5                SET ST=""

                   KILL X

               End DoDot:1

 +6        QUIT