- 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 ---[H[J[2J[HONCLPC4 1110 printed Feb 18, 2025@23:49:57 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
