ONCLPC2 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Tumor Identification and Diagnosis
K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
W @IOF D HEAD^ONCLPC0
W !," TUMOR IDENTIFICATION AND DIAGNOSIS"
W !," ----------------------------------"
S DR(1,165.5,1)="W !,"" 4. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"""
S DR(1,165.5,2)="1404 COUGH........................"
S DR(1,165.5,3)="1404.1 SHORTNESS OF BREATH.........."
S DR(1,165.5,4)="1404.2 WEIGHT LOSS.................."
S DR(1,165.5,5)="1404.3 HEMOPTYSIS..................."
S DR(1,165.5,6)="1404.4 PALPABLE LYMPH NODES........."
S DR(1,165.5,7)="W !"
S DR(1,165.5,8)="W !,"" 5. SCREENING FOR HIGH RISK/ASYMPTOMATIC PRESENTATION:"""
S DR(1,165.5,9)="1405 CHEST X-RAY.................."
S DR(1,165.5,10)="1405.1 CT SCAN......................"
S DR(1,165.5,11)="1405.2 BRONCHOSCOPY................."
S DR(1,165.5,12)="W !"
S DR(1,165.5,13)="W !,"" 6. INITIAL DIAGNOSTIC STUDIES (PRE-THERAPY):"""
S DR(1,165.5,14)="1406 HISTORY AND PHYSICAL........."
S DR(1,165.5,15)="1406.1 BRONCHOSCOPY................."
S DR(1,165.5,16)="1406.2 FNAB........................."
S DR(1,165.5,17)="1406.3 MEDIASTINOSCOPY.............."
S DR(1,165.5,18)="1406.4 THOROCOTOMY/OPEN BIOPSY......"
S DR(1,165.5,19)="1406.5 VATS........................."
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[HONCLPC2 1590 printed Dec 13, 2024@02:23:34 Page 2
ONCLPC2 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Tumor Identification and Diagnosis
+3 KILL DR
SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
SET DR=""
+4 WRITE @IOF
DO HEAD^ONCLPC0
+5 WRITE !," TUMOR IDENTIFICATION AND DIAGNOSIS"
+6 WRITE !," ----------------------------------"
+7 SET DR(1,165.5,1)="W !,"" 4. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"""
+8 SET DR(1,165.5,2)="1404 COUGH........................"
+9 SET DR(1,165.5,3)="1404.1 SHORTNESS OF BREATH.........."
+10 SET DR(1,165.5,4)="1404.2 WEIGHT LOSS.................."
+11 SET DR(1,165.5,5)="1404.3 HEMOPTYSIS..................."
+12 SET DR(1,165.5,6)="1404.4 PALPABLE LYMPH NODES........."
+13 SET DR(1,165.5,7)="W !"
+14 SET DR(1,165.5,8)="W !,"" 5. SCREENING FOR HIGH RISK/ASYMPTOMATIC PRESENTATION:"""
+15 SET DR(1,165.5,9)="1405 CHEST X-RAY.................."
+16 SET DR(1,165.5,10)="1405.1 CT SCAN......................"
+17 SET DR(1,165.5,11)="1405.2 BRONCHOSCOPY................."
+18 SET DR(1,165.5,12)="W !"
+19 SET DR(1,165.5,13)="W !,"" 6. INITIAL DIAGNOSTIC STUDIES (PRE-THERAPY):"""
+20 SET DR(1,165.5,14)="1406 HISTORY AND PHYSICAL........."
+21 SET DR(1,165.5,15)="1406.1 BRONCHOSCOPY................."
+22 SET DR(1,165.5,16)="1406.2 FNAB........................."
+23 SET DR(1,165.5,17)="1406.3 MEDIASTINOSCOPY.............."
+24 SET DR(1,165.5,18)="1406.4 THOROCOTOMY/OPEN BIOPSY......"
+25 SET DR(1,165.5,19)="1406.5 VATS........................."
+26 DO ^DIE
+27 WRITE !
+28 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
