16 lines
507 B
Mathematica
16 lines
507 B
Mathematica
ONCLPC7 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/01
|
|
;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|
;Case Registration
|
|
K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
|
|
W @IOF D HEAD^ONCLPC0
|
|
W !," CASE REGISTRATION"
|
|
W !," -----------------"
|
|
S DR(1,165.5,1)="81 30. INITIALS OF CASE ABSTRACTOR..."
|
|
S DR(1,165.5,2)="W !"
|
|
S DR(1,165.5,3)="90 31. DATE CASE WAS ABSTRACTED......"
|
|
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
|