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 ---[H[J[2J[HONCLPC7 528 printed Oct 16, 2024@18:24:19 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
