ONCGPC5 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/01
 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
 ;Case Registration 
 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
 W @IOF D HEAD^ONCGPC0
 W !," CASE REGISTRATION"
 W !," -----------------"
 S DR(1,165.5,1)="81 48. INITIALS OF CASE ABSTRACTOR..."
 S DR(1,165.5,2)="W !"
 S DR(1,165.5,3)="90 49. 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