source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCLPC2.m@ 658

Last change on this file since 658 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1ONCLPC2 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Tumor Identification and Diagnosis
4 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
5 W @IOF D HEAD^ONCLPC0
6 W !," TUMOR IDENTIFICATION AND DIAGNOSIS"
7 W !," ----------------------------------"
8 S DR(1,165.5,1)="W !,"" 4. SYMPTOMS PRESENT AT INITIAL DIAGNOSIS:"""
9 S DR(1,165.5,2)="1404 COUGH........................"
10 S DR(1,165.5,3)="1404.1 SHORTNESS OF BREATH.........."
11 S DR(1,165.5,4)="1404.2 WEIGHT LOSS.................."
12 S DR(1,165.5,5)="1404.3 HEMOPTYSIS..................."
13 S DR(1,165.5,6)="1404.4 PALPABLE LYMPH NODES........."
14 S DR(1,165.5,7)="W !"
15 S DR(1,165.5,8)="W !,"" 5. SCREENING FOR HIGH RISK/ASYMPTOMATIC PRESENTATION:"""
16 S DR(1,165.5,9)="1405 CHEST X-RAY.................."
17 S DR(1,165.5,10)="1405.1 CT SCAN......................"
18 S DR(1,165.5,11)="1405.2 BRONCHOSCOPY................."
19 S DR(1,165.5,12)="W !"
20 S DR(1,165.5,13)="W !,"" 6. INITIAL DIAGNOSTIC STUDIES (PRE-THERAPY):"""
21 S DR(1,165.5,14)="1406 HISTORY AND PHYSICAL........."
22 S DR(1,165.5,15)="1406.1 BRONCHOSCOPY................."
23 S DR(1,165.5,16)="1406.2 FNAB........................."
24 S DR(1,165.5,17)="1406.3 MEDIASTINOSCOPY.............."
25 S DR(1,165.5,18)="1406.4 THOROCOTOMY/OPEN BIOPSY......"
26 S DR(1,165.5,19)="1406.5 VATS........................."
27 D ^DIE
28 W !
29 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
30EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
31 Q
Note: See TracBrowser for help on using the repository browser.