ONCGPC5.m

ONCGPC5 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/01

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCGPC5   521     printed  Apr 09, 2024@21:25:30                                                                                                                                                                                                      Page 2

ONCGPC5   ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/01

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;Case Registration 

 +3        KILL DR

           SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

           SET DR=""

 +4        WRITE @IOF

           DO HEAD^ONCGPC0

 +5        WRITE !," CASE REGISTRATION"

 +6        WRITE !," -----------------"

 +7        SET DR(1,165.5,1)="81 48. INITIALS OF CASE ABSTRACTOR..."

 +8        SET DR(1,165.5,2)="W !"

 +9        SET DR(1,165.5,3)="90 49. DATE CASE WAS ABSTRACTED......"

 +10       DO ^DIE

 +11       WRITE !

           KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DIRUT)

               SET OUT="Y"

EXIT       KILL DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 +1        QUIT