ONCGPC7B ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;05/02/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print (continued)
III S TABLE="FIRST COURSE OF TREATMENT - SURGERY"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
K LINE S $P(LINE,"-",35)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM28 W !,"28. ADHERENCE OF RESECTED PRIMARY"
D P Q:EX=U
W !," SPECIMEN.....................: ",$$GET1^DIQ(165.5,IE,1556)
D P Q:EX=U
W !
D P Q:EX=U
ITEM29 W !,"29. MARGIN STATUS OF RESECTED"
W !," PRIMARY SPECIMAN.............: ",$$GET1^DIQ(165.5,IE,1557)
D P Q:EX=U
W !
D P Q:EX=U
ITEM30 W !,"30. EXTENT OF FREE MARGIN:"
D P Q:EX=U
W !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1558)
D P Q:EX=U
W !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1558.1)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM31
W !
D P Q:EX=U
ITEM31 W !,"31. RESECTION BEYOND STOMACH:"
D P Q:EX=U
W !," SPLEEN.......................: ",$$GET1^DIQ(165.5,IE,1559)
D P Q:EX=U
W !," TRANVERSE COLON..............: ",$$GET1^DIQ(165.5,IE,1559.1)
D P Q:EX=U
W !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1559.2)
D P Q:EX=U
W !," DIAPHRAGM....................: ",$$GET1^DIQ(165.5,IE,1559.3)
D P Q:EX=U
W !," PANCREAS.....................: ",$$GET1^DIQ(165.5,IE,1559.4)
D P Q:EX=U
W !," ABDOMINAL WALL...............: ",$$GET1^DIQ(165.5,IE,1559.5)
D P Q:EX=U
W !," ADRENAL GLAND................: ",$$GET1^DIQ(165.5,IE,1559.6)
D P Q:EX=U
W !," KIDNEY.......................: ",$$GET1^DIQ(165.5,IE,1559.7)
D P Q:EX=U
W !," SMALL INTESTINE..............: ",$$GET1^DIQ(165.5,IE,1559.8)
D P Q:EX=U
W !," RETROPERITONEUM..............: ",$$GET1^DIQ(165.5,IE,1559.9)
D P Q:EX=U
W !," PERIGASTRIC LYMPH NODES......: ",$$GET1^DIQ(165.5,IE,1560)
D P Q:EX=U
W !," COMMON HEPATIC LYMPH NODES...: ",$$GET1^DIQ(165.5,IE,1560.1)
D P Q:EX=U
W !," CELIAC LYMPH NODES...........: ",$$GET1^DIQ(165.5,IE,1560.2)
D P Q:EX=U
W !," SPLENIC LYMPH NODES..........: ",$$GET1^DIQ(165.5,IE,1560.3)
D P Q:EX=U
W !," OTHER INTRA-ABDOMINAL NODES..: ",$$GET1^DIQ(165.5,IE,1560.4)
D P Q:EX=U
W !
D P Q:EX=U
ITEM32 W !,"32. GROSSLY INVOLVED REGIONAL"
D P Q:EX=U
W !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1561)
D P Q:EX=U
W !
D P Q:EX=U
ITEM33 W !,"33. HCT (HEMATOCRIT) VALUES BEFORE"
D P Q:EX=U
W !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1562)
D P Q:EX=U
W !
D P Q:EX=U
ITEM34 W !,"34. TOTAL OPERATIVE BLOOD"
D P Q:EX=U
W !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1563)
D P Q:EX=U
W !
D P Q:EX=U
ITEM35 W !,"35. INTRA/PERI-OPERATIVE DEATH....: ",$$GET1^DIQ(165.5,IE,1564)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM36
W !
D P Q:EX=U
ITEM36 W !,"36. COMPLICATIONS REQUIRING RE-OPERATION:"
D P Q:EX=U
W !," ANASTOMOTIC LEAK.............: ",$$GET1^DIQ(165.5,IE,1565)
D P Q:EX=U
W !," STUMP LEAK...................: ",$$GET1^DIQ(165.5,IE,1565.1)
D P Q:EX=U
W !," BLEEDING.....................: ",$$GET1^DIQ(165.5,IE,1565.2)
D P Q:EX=U
W !," WOUND INFECTION..............: ",$$GET1^DIQ(165.5,IE,1565.3)
D P Q:EX=U
W !," SEPSIS.......................: ",$$GET1^DIQ(165.5,IE,1565.4)
D P Q:EX=U
W !," PANCREATITIS.................: ",$$GET1^DIQ(165.5,IE,1565.5)
D P Q:EX=U
W !," DEAD BOWEL...................: ",$$GET1^DIQ(165.5,IE,1565.6)
D P Q:EX=U
W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1565.7)
D P Q:EX=U
W !
D P Q:EX=U
ITEM37 W !,"37. DATE OF SURGICAL DISCHARGE....: ",$$GET1^DIQ(165.5,IE,1566)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
S TABLE="FIRST COURSE OF TREATMENT - RADIATION"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
K LINE S $P(LINE,"-",37)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM38 W !,"38. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
D P Q:EX=U
W !
D P Q:EX=U
ITEM39 W !,"39. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1575)
D P Q:EX=U
W !
D P Q:EX=U
ITEM40 W !,"40. INTRA-OPERATIVE RADIATION"
D P Q:EX=U
W !," THERAPY, DOSE (cGy)..........: ",$$GET1^DIQ(165.5,IE,1567)
D P Q:EX=U
W !
D P Q:EX=U
ITEM41 W !,"41. CONCURRENT CHEMOTHERAPY.......: ",$$GET1^DIQ(165.5,IE,1568)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
S TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
K LINE S $P(LINE,"-",40)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM42 W !,"42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
D P Q:EX=U
W !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1576)
D P Q:EX=U
W !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1576.1)
D P Q:EX=U
W !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1576.2)
D P Q:EX=U
W !
D P Q:EX=U
ITEM43 W !,"43. INTRAPERITONEAL CHEMOTHERAPY..: ",$$GET1^DIQ(165.5,IE,1569)
D P Q:EX=U
W !
D P Q:EX=U
ITEM44 W !,"44. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1577)
D P Q:EX=U
W !
D P Q:EX=U
ITEM45 W !,"45. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1578)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
S TABLE="FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
K LINE S $P(LINE,"-",41)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
ITEM46 W !,"46. ADMINISTRATION OF INTERFERON..: ",$$GET1^DIQ(165.5,IE,1570)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
IV S TABLE="TREATMENT COMPLICATIONS"
I IOST'?1"C".E W !
W !?4,TABLE,!?4,"-----------------------"
ITEM47 W !,"47. COMPLICATIONS:"
D P Q:EX=U
I TC="No" D G TC2
.W !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
W !," COMPLICATION #1..............: ",$P($$GET1^DIQ(165.5,IE,1579)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579)," ",2,99)
TC2 D P Q:EX=U
W !," COMPLICATION #2..............: ",$P($$GET1^DIQ(165.5,IE,1579.1)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.1)," ",2,99)
D P Q:EX=U
W !," COMPLICATION #3..............: ",$P($$GET1^DIQ(165.5,IE,1579.2)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.2)," ",2,99)
D P Q:EX=U
W !," COMPLICATION #4..............: ",$P($$GET1^DIQ(165.5,IE,1579.3)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.3)," ",2,99)
D P Q:EX=U
W !," COMPLICATION #5..............: ",$P($$GET1^DIQ(165.5,IE,1579.4)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.4)," ",2,99)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
V S TABLE="CASE REGISTRATION"
I IOST'?1"C".E W !
W !?4,TABLE,!?4,"-----------------"
D P Q:EX=U
ITEM48 W !,"48. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
D P Q:EX=U
W !
D P Q:EX=U
ITEM49 W !,"49. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCGPC0 Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCGPC7B 7216 printed Dec 13, 2024@02:23:04 Page 2
ONCGPC7B ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;05/02/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print (continued)
III SET TABLE="FIRST COURSE OF TREATMENT - SURGERY"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCGPC0
+2 KILL LINE
SET $PIECE(LINE,"-",35)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
ITEM28 WRITE !,"28. ADHERENCE OF RESECTED PRIMARY"
+1 DO P
if EX=U
QUIT
+2 WRITE !," SPECIMEN.....................: ",$$GET1^DIQ(165.5,IE,1556)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM29 WRITE !,"29. MARGIN STATUS OF RESECTED"
+1 WRITE !," PRIMARY SPECIMAN.............: ",$$GET1^DIQ(165.5,IE,1557)
+2 DO P
if EX=U
QUIT
+3 WRITE !
+4 DO P
if EX=U
QUIT
ITEM30 WRITE !,"30. EXTENT OF FREE MARGIN:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1558)
+3 DO P
if EX=U
QUIT
+4 WRITE !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1558.1)
+5 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM31
+6 WRITE !
+7 DO P
if EX=U
QUIT
ITEM31 WRITE !,"31. RESECTION BEYOND STOMACH:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," SPLEEN.......................: ",$$GET1^DIQ(165.5,IE,1559)
+3 DO P
if EX=U
QUIT
+4 WRITE !," TRANVERSE COLON..............: ",$$GET1^DIQ(165.5,IE,1559.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1559.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !," DIAPHRAGM....................: ",$$GET1^DIQ(165.5,IE,1559.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !," PANCREAS.....................: ",$$GET1^DIQ(165.5,IE,1559.4)
+11 DO P
if EX=U
QUIT
+12 WRITE !," ABDOMINAL WALL...............: ",$$GET1^DIQ(165.5,IE,1559.5)
+13 DO P
if EX=U
QUIT
+14 WRITE !," ADRENAL GLAND................: ",$$GET1^DIQ(165.5,IE,1559.6)
+15 DO P
if EX=U
QUIT
+16 WRITE !," KIDNEY.......................: ",$$GET1^DIQ(165.5,IE,1559.7)
+17 DO P
if EX=U
QUIT
+18 WRITE !," SMALL INTESTINE..............: ",$$GET1^DIQ(165.5,IE,1559.8)
+19 DO P
if EX=U
QUIT
+20 WRITE !," RETROPERITONEUM..............: ",$$GET1^DIQ(165.5,IE,1559.9)
+21 DO P
if EX=U
QUIT
+22 WRITE !," PERIGASTRIC LYMPH NODES......: ",$$GET1^DIQ(165.5,IE,1560)
+23 DO P
if EX=U
QUIT
+24 WRITE !," COMMON HEPATIC LYMPH NODES...: ",$$GET1^DIQ(165.5,IE,1560.1)
+25 DO P
if EX=U
QUIT
+26 WRITE !," CELIAC LYMPH NODES...........: ",$$GET1^DIQ(165.5,IE,1560.2)
+27 DO P
if EX=U
QUIT
+28 WRITE !," SPLENIC LYMPH NODES..........: ",$$GET1^DIQ(165.5,IE,1560.3)
+29 DO P
if EX=U
QUIT
+30 WRITE !," OTHER INTRA-ABDOMINAL NODES..: ",$$GET1^DIQ(165.5,IE,1560.4)
+31 DO P
if EX=U
QUIT
+32 WRITE !
+33 DO P
if EX=U
QUIT
ITEM32 WRITE !,"32. GROSSLY INVOLVED REGIONAL"
+1 DO P
if EX=U
QUIT
+2 WRITE !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1561)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM33 WRITE !,"33. HCT (HEMATOCRIT) VALUES BEFORE"
+1 DO P
if EX=U
QUIT
+2 WRITE !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1562)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM34 WRITE !,"34. TOTAL OPERATIVE BLOOD"
+1 DO P
if EX=U
QUIT
+2 WRITE !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1563)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM35 WRITE !,"35. INTRA/PERI-OPERATIVE DEATH....: ",$$GET1^DIQ(165.5,IE,1564)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
GOTO ITEM36
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM36 WRITE !,"36. COMPLICATIONS REQUIRING RE-OPERATION:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," ANASTOMOTIC LEAK.............: ",$$GET1^DIQ(165.5,IE,1565)
+3 DO P
if EX=U
QUIT
+4 WRITE !," STUMP LEAK...................: ",$$GET1^DIQ(165.5,IE,1565.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," BLEEDING.....................: ",$$GET1^DIQ(165.5,IE,1565.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !," WOUND INFECTION..............: ",$$GET1^DIQ(165.5,IE,1565.3)
+9 DO P
if EX=U
QUIT
+10 WRITE !," SEPSIS.......................: ",$$GET1^DIQ(165.5,IE,1565.4)
+11 DO P
if EX=U
QUIT
+12 WRITE !," PANCREATITIS.................: ",$$GET1^DIQ(165.5,IE,1565.5)
+13 DO P
if EX=U
QUIT
+14 WRITE !," DEAD BOWEL...................: ",$$GET1^DIQ(165.5,IE,1565.6)
+15 DO P
if EX=U
QUIT
+16 WRITE !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1565.7)
+17 DO P
if EX=U
QUIT
+18 WRITE !
+19 DO P
if EX=U
QUIT
ITEM37 WRITE !,"37. DATE OF SURGICAL DISCHARGE....: ",$$GET1^DIQ(165.5,IE,1566)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
+2 SET TABLE="FIRST COURSE OF TREATMENT - RADIATION"
+3 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCGPC0
+4 KILL LINE
SET $PIECE(LINE,"-",37)="-"
+5 WRITE !?4,TABLE,!?4,LINE
+6 DO P
if EX=U
QUIT
ITEM38 WRITE !,"38. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM39 WRITE !,"39. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1575)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM40 WRITE !,"40. INTRA-OPERATIVE RADIATION"
+1 DO P
if EX=U
QUIT
+2 WRITE !," THERAPY, DOSE (cGy)..........: ",$$GET1^DIQ(165.5,IE,1567)
+3 DO P
if EX=U
QUIT
+4 WRITE !
+5 DO P
if EX=U
QUIT
ITEM41 WRITE !,"41. CONCURRENT CHEMOTHERAPY.......: ",$$GET1^DIQ(165.5,IE,1568)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
+2 SET TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
+3 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCGPC0
+4 KILL LINE
SET $PIECE(LINE,"-",40)="-"
+5 WRITE !?4,TABLE,!?4,LINE
+6 DO P
if EX=U
QUIT
ITEM42 WRITE !,"42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
+1 DO P
if EX=U
QUIT
+2 WRITE !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1576)
+3 DO P
if EX=U
QUIT
+4 WRITE !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1576.1)
+5 DO P
if EX=U
QUIT
+6 WRITE !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1576.2)
+7 DO P
if EX=U
QUIT
+8 WRITE !
+9 DO P
if EX=U
QUIT
ITEM43 WRITE !,"43. INTRAPERITONEAL CHEMOTHERAPY..: ",$$GET1^DIQ(165.5,IE,1569)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM44 WRITE !,"44. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1577)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM45 WRITE !,"45. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1578)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
+2 SET TABLE="FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"
+3 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCGPC0
+4 KILL LINE
SET $PIECE(LINE,"-",41)="-"
+5 WRITE !?4,TABLE,!?4,LINE
+6 DO P
if EX=U
QUIT
ITEM46 WRITE !,"46. ADMINISTRATION OF INTERFERON..: ",$$GET1^DIQ(165.5,IE,1570)
+1 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
IV SET TABLE="TREATMENT COMPLICATIONS"
+1 IF IOST'?1"C".E
WRITE !
+2 WRITE !?4,TABLE,!?4,"-----------------------"
ITEM47 WRITE !,"47. COMPLICATIONS:"
+1 DO P
if EX=U
QUIT
+2 IF TC="No"
Begin DoDot:1
+3 WRITE !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
End DoDot:1
GOTO TC2
+4 WRITE !," COMPLICATION #1..............: ",$PIECE($$GET1^DIQ(165.5,IE,1579)," ",1),?43,$PIECE($$GET1^DIQ(165.5,IE,1579)," ",2,99)
TC2 DO P
if EX=U
QUIT
+1 WRITE !," COMPLICATION #2..............: ",$PIECE($$GET1^DIQ(165.5,IE,1579.1)," ",1),?43,$PIECE($$GET1^DIQ(165.5,IE,1579.1)," ",2,99)
+2 DO P
if EX=U
QUIT
+3 WRITE !," COMPLICATION #3..............: ",$PIECE($$GET1^DIQ(165.5,IE,1579.2)," ",1),?43,$PIECE($$GET1^DIQ(165.5,IE,1579.2)," ",2,99)
+4 DO P
if EX=U
QUIT
+5 WRITE !," COMPLICATION #4..............: ",$PIECE($$GET1^DIQ(165.5,IE,1579.3)," ",1),?43,$PIECE($$GET1^DIQ(165.5,IE,1579.3)," ",2,99)
+6 DO P
if EX=U
QUIT
+7 WRITE !," COMPLICATION #5..............: ",$PIECE($$GET1^DIQ(165.5,IE,1579.4)," ",1),?43,$PIECE($$GET1^DIQ(165.5,IE,1579.4)," ",2,99)
+8 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCGPC0
V SET TABLE="CASE REGISTRATION"
+1 IF IOST'?1"C".E
WRITE !
+2 WRITE !?4,TABLE,!?4,"-----------------"
+3 DO P
if EX=U
QUIT
ITEM48 WRITE !,"48. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
+1 DO P
if EX=U
QUIT
+2 WRITE !
+3 DO P
if EX=U
QUIT
ITEM49 WRITE !,"49. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
+1 DO P
if EX=U
QUIT
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+3 QUIT
P ;Print
+1 IF ($Y'<(LIN-1))
Begin DoDot:1
+2 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HEAD^ONCGPC0
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
