ONCLPC4.m

ONCLPC4 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01

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

 ;Pathology 

 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""

 W @IOF D HEAD^ONCLPC0

 W !," PATHOLOGY"

 W !," ---------"

 S DR(1,165.5,1)="1402 11. DATE OF FIRST TISSUE DIAGNOSIS"

 S DR(1,165.5,2)="W !"

 S DR(1,165.5,3)="W !,"" 12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"""

 S DR(1,165.5,4)="1429      PROXIMAL MARGIN.............."

 S DR(1,165.5,5)="1429.1      DISTAL MARGIN................"

 S DR(1,165.5,6)="W !"

 S DR(1,165.5,7)="1417 13. FROZEN SECTION................"

 S DR(1,165.5,8)="W !"

 S DR(1,165.5,9)="W !,"" 14. INVASION:"""

 S DR(1,165.5,10)="1418      VASCULAR....................."

 S DR(1,165.5,11)="1418.1      LYMPHATICS..................."

 S DR(1,165.5,12)="1418.2      PLEURA......................."

 S DR(1,165.5,13)="1418.3      CHEST WALL..................."

 S DR(1,165.5,14)="1418.4      OTHER........................"

 D ^DIE

 W !

 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"

EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCLPC4   1110     printed  Apr 09, 2024@21:30:42                                                                                                                                                                                                     Page 2

ONCLPC4   ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01

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

 +2       ;Pathology 

 +3        KILL DR

           SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

           SET DR=""

 +4        WRITE @IOF

           DO HEAD^ONCLPC0

 +5        WRITE !," PATHOLOGY"

 +6        WRITE !," ---------"

 +7        SET DR(1,165.5,1)="1402 11. DATE OF FIRST TISSUE DIAGNOSIS"

 +8        SET DR(1,165.5,2)="W !"

 +9        SET DR(1,165.5,3)="W !,"" 12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"""

 +10       SET DR(1,165.5,4)="1429      PROXIMAL MARGIN.............."

 +11       SET DR(1,165.5,5)="1429.1      DISTAL MARGIN................"

 +12       SET DR(1,165.5,6)="W !"

 +13       SET DR(1,165.5,7)="1417 13. FROZEN SECTION................"

 +14       SET DR(1,165.5,8)="W !"

 +15       SET DR(1,165.5,9)="W !,"" 14. INVASION:"""

 +16       SET DR(1,165.5,10)="1418      VASCULAR....................."

 +17       SET DR(1,165.5,11)="1418.1      LYMPHATICS..................."

 +18       SET DR(1,165.5,12)="1418.2      PLEURA......................."

 +19       SET DR(1,165.5,13)="1418.3      CHEST WALL..................."

 +20       SET DR(1,165.5,14)="1418.4      OTHER........................"

 +21       DO ^DIE

 +22       WRITE !

 +23       KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DIRUT)

               SET OUT="Y"

EXIT       KILL DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 +1        QUIT