source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCPPC0.m@ 1731

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1ONCPPC0 ;HIRMFO/GWB - PCE Studies of Prostate Cancer ;3/18/96
2 ;;2.11;ONCOLOGY;**6,15**;Mar 07, 1995
3CHECK ;Check PCE eligibility
4MENU ;Prostate PCE menu
5 S $P(^ONCO(165.5,ONCONUM,7),U,15)="PRO"
6 S ^ONCO(165.5,"APCE","PRO",ONCONUM)=""
7 K DIR D HEAD
8 S DIR(0)="SO^1:General Information;2:Initial Diagnosis;3:Stage of Disease;4:First Course of Treatment;5:First Recurrence;6:Subsequent Treatment;7:Status at Last Contact;8:All;9:Print Prostate PCE"
9 S DIR("A")="Select Table" D ^DIR
10 G:$D(DIRUT)!($D(DIROUT)) EXIT
11 I Y=8 S OUT="" D G MENU
12 .D ^ONCPPC1 Q:$G(OUT)="Y"
13 .D ^ONCPPC2 Q:$G(OUT)="Y"
14 .D ^ONCPPC3 Q:$G(OUT)="Y"
15 .D ^ONCPPC4 Q:$G(OUT)="Y"
16 .D ^ONCPPC5 Q:$G(OUT)="Y"
17 .D ^ONCPPC6 Q:$G(OUT)="Y"
18 .D ^ONCPPC7 Q:$G(OUT)="Y"
19 S SUB="^ONCPPC"_Y D @SUB G MENU
20HEAD ;PCE HEADER
21 W @IOF,!,?1,PATNAM,?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES
22 S HDL=$L("Patient Care Evaluation Studies of Cancer of the Prostate"),TAB=(80-HDL)\2,TAB=TAB-1
23 W !,?TAB,"Patient Care Evaluation Studies of Cancer of the Prostate",!,DASHES
24 Q
25EXIT ;Kill Variables and Exit.
26 K HDL,ONCONUM,ONCOPA,OUT,SUB,TAB
27 K DIC,DIR,DIROUT,DIRUT,DLAYGO,DTOUT,DUOUT,X,Y
28 Q
Note: See TracBrowser for help on using the repository browser.