source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCLPC7.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: 507 bytes
Line 
1ONCLPC7 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Case Registration
4 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
5 W @IOF D HEAD^ONCLPC0
6 W !," CASE REGISTRATION"
7 W !," -----------------"
8 S DR(1,165.5,1)="81 30. INITIALS OF CASE ABSTRACTOR..."
9 S DR(1,165.5,2)="W !"
10 S DR(1,165.5,3)="90 31. DATE CASE WAS ABSTRACTED......"
11 D ^DIE
12 W !
13 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
14EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
15 Q
Note: See TracBrowser for help on using the repository browser.