ONCLPC7.m

ONCLPC7 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/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^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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ONCLPC7   528     printed  Mar 13, 2025@21:28:26                                                                                                                                                                                                      Page 2

ONCLPC7   ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/09/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^ONCLPC0

 +5        WRITE !," CASE REGISTRATION"

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

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

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

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

 +10       DO ^DIE

 +11       WRITE !

 +12       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