ONCHPC8 ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;Print
K IOP,%ZIS S %ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP KILL
I $D(IO("Q")) S ONCOLST="ONCONUM^ONCOPA^PATNAM^SPACES^TOPNAM^SSN^TOPTAB^TOPCOD^DASHES^SITTAB^SITEGP" D TASK G KILL
U IO D PRT D ^%ZISC K %ZIS,IOP G KILL
PRT S EX="",LIN=$S(IOST?1"C".E:IOSL-2,1:IOSL-4),IE=ONCONUM
D NOW^%DTC S ONDATE=%,Y=ONDATE X ^DD("DD") S ONDATE=$P(Y,":",1,2)
S HIST=$P($G(^ONCO(165.5,ONCONUM,2)),U,3)
K LINE S $P(LINE,"-",40)="-"
I S TABLE="PATIENT INFORMATION"
D HEAD^ONCHPC0
K LINE S $P(LINE,"-",19)="-"
W !?4,TABLE,!?4,LINE
S D0=ONCOPA D DOB1^ONCOES S Y=X D DATEOT^ONCOPCE S DOB=Y
W !," 1. FACILITY ID NUMBER (FIN)....: ",$$IIN^ONCFUNC
D P Q:EX=U
W !," 2. ACCESSION NUMBER............: ",$$GET1^DIQ(165.5,IE,.05)
D P Q:EX=U
W !," 3. SEQUENCE NUMBER.............: ",$$GET1^DIQ(165.5,IE,.06)
D P Q:EX=U
W !," 4. POSTAL CODE AT DIAGNOIS.....: ",$$GET1^DIQ(165.5,IE,9)
D P Q:EX=U
W !," 5. PLACE OF BIRTH..............: ",$$GET1^DIQ(160,ONCOPA,7)
D P Q:EX=U
W !," 6. DATE OF BIRTH...............: ",DOB
D P Q:EX=U
W !," 7. RACE........................: ",$$GET1^DIQ(165.5,IE,.12)
D P Q:EX=U
W !," 8. SPANISH ORIGIN..............: ",$$GET1^DIQ(160,ONCOPA,9)
D P Q:EX=U
W !," 9. SEX.........................: ",$$GET1^DIQ(160,ONCOPA,10)
D P Q:EX=U
W !,"10. PRIMARY PAYER AT DIAGNOSIS..: ",$$GET1^DIQ(165.5,IE,18)
D P Q:EX=U
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCHPC0 G II
D P Q:EX=U
II S TABLE="TUMOR IDENTIFICATION"
I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCHPC0
K LINE S $P(LINE,"-",20)="-"
W !?4,TABLE,!?4,LINE
D P Q:EX=U
W !,"11. CLASS OF CASE...............: ",$$GET1^DIQ(165.5,IE,.04)
D P Q:EX=U
W !
D P Q:EX=U
W !,"12. HORMONES:"
D P Q:EX=U
W !," ORAL CONTRACEPTIVES........: ",$$GET1^DIQ(165.5,IE,1000)
D P Q:EX=U
W !," ESTROGEN REPLACEMENT.......: ",$$GET1^DIQ(165.5,IE,1001)
D P Q:EX=U
W !," TAMOXIFEN..................: ",$$GET1^DIQ(165.5,IE,1002)
D P Q:EX=U
W !," OTHER......................: ",$$GET1^DIQ(165.5,IE,1003)
D P Q:EX=U
W !
D P Q:EX=U
W !,"13. CONDITIONS PRESENT AT INITIAL DIAGNOSIS:"
D P Q:EX=U
W !," ASCITES....................: ",$$GET1^DIQ(165.5,IE,1004)
D P Q:EX=U
W !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1005)
D P Q:EX=U
W !," CHILD'S CLASS A............: ",$$GET1^DIQ(165.5,IE,1006)
D P Q:EX=U
W !," CHILD'S CLASS B............: ",$$GET1^DIQ(165.5,IE,1007)
D P Q:EX=U
W !," CHILD'S CLASS C............: ",$$GET1^DIQ(165.5,IE,1008)
D P Q:EX=U
W !," HEPATITIS B................: ",$$GET1^DIQ(165.5,IE,1009)
D P Q:EX=U
W !," HEPATITIS C................: ",$$GET1^DIQ(165.5,IE,1010)
D P Q:EX=U
W !," HEMOCHROMATOSIS............: ",$$GET1^DIQ(165.5,IE,1011)
D P Q:EX=U
W !
D P Q:EX=U
W !,"14. ALCOHOL CONSUMPTION.........: ",$$GET1^DIQ(165.5,IE,1012)
D P Q:EX=U
W !
D P Q:EX=U
W !,"15. TUMOR MARKERS:"
D P Q:EX=U
W !," AFP (IU/ml)................: ",$$GET1^DIQ(165.5,IE,1013)
D P Q:EX=U
W !," CEA (mg/ml)................: ",$$GET1^DIQ(165.5,IE,1014)
D P Q:EX=U
W !," CA 19.9 (U/ml).............: ",$$GET1^DIQ(165.5,IE,1015)
D P Q:EX=U
W !
D P Q:EX=U
W !,"16. TESTS RELATED TO LIVER FUNCTION:"
D P Q:EX=U
W !," PROTIME (sec)..............: ",$$GET1^DIQ(165.5,IE,1016)
D P Q:EX=U
W !," BILIRUBIN (mg/ml)..........: ",$$GET1^DIQ(165.5,IE,1017)
D P Q:EX=U
W !," ALBUMIN (g/dl).............: ",$$GET1^DIQ(165.5,IE,1018)
D P Q:EX=U
W !," LDH (U/l)..................: ",$$GET1^DIQ(165.5,IE,1019)
D P Q:EX=U
W !
D P Q:EX=U
W !,"17. RADIOLOGICAL EVALUATION"
D P Q:EX=U
W !
D P Q:EX=U
W !," CT ARTERIAL PORTOGRAPHY:"
D P Q:EX=U
W !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1020)
D P Q:EX=U
W !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1021)
D P Q:EX=U
W !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1022)
D P Q:EX=U
W !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1023)
D P Q:EX=U
W !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1024)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1025)
D P Q:EX=U
W !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1026)
D P Q:EX=U
W !
D P Q:EX=U
W !," SPIRAL CT:"
D P Q:EX=U
W !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1027)
D P Q:EX=U
W !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1028)
D P Q:EX=U
W !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1029)
D P Q:EX=U
W !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1030)
D P Q:EX=U
W !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1031)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1032)
D P Q:EX=U
W !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1033)
D P Q:EX=U
W !
D P Q:EX=U
W !," INCREMENTAL CT:"
D P Q:EX=U
W !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1034)
D P Q:EX=U
W !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1035)
D P Q:EX=U
W !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1036)
D P Q:EX=U
W !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1037)
D P Q:EX=U
W !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1038)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1039)
D P Q:EX=U
W !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1040)
D P Q:EX=U
W !
D P Q:EX=U
W !," ULTRASOUND:"
D P Q:EX=U
W !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1041)
D P Q:EX=U
W !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1042)
D P Q:EX=U
W !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1043)
D P Q:EX=U
W !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1044)
D P Q:EX=U
W !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1045)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1046)
D P Q:EX=U
W !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1047)
D P Q:EX=U
W !
D P Q:EX=U
W !," MRI:"
D P Q:EX=U
W !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1048)
D P Q:EX=U
W !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1049)
D P Q:EX=U
W !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1050)
D P Q:EX=U
W !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1051)
D P Q:EX=U
W !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1052)
D P Q:EX=U
W !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1053)
D P Q:EX=U
W !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1054)
D P Q:EX=U
W !
D P Q:EX=U
W !,"18. DEFINITIVE DIAGNOSIS........: ",$$GET1^DIQ(165.5,IE,1055)
D P Q:EX=U
W !,"19. DATE OF INITIAL DIAGNOSIS...: ",$$GET1^DIQ(165.5,IE,3)
D P Q:EX=U
W !,"20. HISTOLOGY (ICD-O-2).........: ",$E(HIST,1,4)
D P Q:EX=U
W !,"21. GRADE.......................: ",$$GET1^DIQ(165.5,IE,24)
D P Q:EX=U
W !,"22. DIAGNOSTIC CONFIRMATION.....: ",$$GET1^DIQ(165.5,IE,26)
I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR G:'Y KILL
III D HEAD^ONCHPC0,^ONCHPC8A
KILL ;
K CS,CSDAT,CSI,CSPNT,DESC,DESC1,DESC2,DLC,DOB,DOFCT
K EX,HIST,IE,LIN,LINE,LOS,NOP,ONDATE,ONCOLST,TABLE
K %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
Q
P ;Print
I ($Y'<(LIN-1)) D Q:EX=U W !?4,TABLE_" (continued)",!?4,LINE_"------------"
.I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HEAD^ONCHPC0 Q
Q
TASK ;Queue a task
K IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE
S ZTRTN="PRT^ONCHPC8",ZTREQ="@",ZTSAVE("ZTREQ")=""
S ZTDESC="Print Hepatocellular Cancer PCE"
F V2=1:1 S V1=$P(ONCOLST,"^",V2) Q:V1="" S ZTSAVE(V1)=""
D ^%ZTLOAD D ^%ZISC U IO W !,"Request Queued",!
K V1,V2,ONCOLST,ZTSK Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCHPC8 8073 printed Oct 16, 2024@18:23:53 Page 2
ONCHPC8 ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/12/00
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Print
+3 KILL IOP,%ZIS
SET %ZIS="MQ"
WRITE !
DO ^%ZIS
KILL %ZIS,IOP
if POP
GOTO KILL
+4 IF $DATA(IO("Q"))
SET ONCOLST="ONCONUM^ONCOPA^PATNAM^SPACES^TOPNAM^SSN^TOPTAB^TOPCOD^DASHES^SITTAB^SITEGP"
DO TASK
GOTO KILL
+5 USE IO
DO PRT
DO ^%ZISC
KILL %ZIS,IOP
GOTO KILL
PRT SET EX=""
SET LIN=$SELECT(IOST?1"C".E:IOSL-2,1:IOSL-4)
SET IE=ONCONUM
+1 DO NOW^%DTC
SET ONDATE=%
SET Y=ONDATE
XECUTE ^DD("DD")
SET ONDATE=$PIECE(Y,":",1,2)
+2 SET HIST=$PIECE($GET(^ONCO(165.5,ONCONUM,2)),U,3)
+3 KILL LINE
SET $PIECE(LINE,"-",40)="-"
I SET TABLE="PATIENT INFORMATION"
+1 DO HEAD^ONCHPC0
+2 KILL LINE
SET $PIECE(LINE,"-",19)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 SET D0=ONCOPA
DO DOB1^ONCOES
SET Y=X
DO DATEOT^ONCOPCE
SET DOB=Y
+5 WRITE !," 1. FACILITY ID NUMBER (FIN)....: ",$$IIN^ONCFUNC
+6 DO P
if EX=U
QUIT
+7 WRITE !," 2. ACCESSION NUMBER............: ",$$GET1^DIQ(165.5,IE,.05)
+8 DO P
if EX=U
QUIT
+9 WRITE !," 3. SEQUENCE NUMBER.............: ",$$GET1^DIQ(165.5,IE,.06)
+10 DO P
if EX=U
QUIT
+11 WRITE !," 4. POSTAL CODE AT DIAGNOIS.....: ",$$GET1^DIQ(165.5,IE,9)
+12 DO P
if EX=U
QUIT
+13 WRITE !," 5. PLACE OF BIRTH..............: ",$$GET1^DIQ(160,ONCOPA,7)
+14 DO P
if EX=U
QUIT
+15 WRITE !," 6. DATE OF BIRTH...............: ",DOB
+16 DO P
if EX=U
QUIT
+17 WRITE !," 7. RACE........................: ",$$GET1^DIQ(165.5,IE,.12)
+18 DO P
if EX=U
QUIT
+19 WRITE !," 8. SPANISH ORIGIN..............: ",$$GET1^DIQ(160,ONCOPA,9)
+20 DO P
if EX=U
QUIT
+21 WRITE !," 9. SEX.........................: ",$$GET1^DIQ(160,ONCOPA,10)
+22 DO P
if EX=U
QUIT
+23 WRITE !,"10. PRIMARY PAYER AT DIAGNOSIS..: ",$$GET1^DIQ(165.5,IE,18)
+24 DO P
if EX=U
QUIT
+25 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
QUIT
DO HEAD^ONCHPC0
GOTO II
+26 DO P
if EX=U
QUIT
II SET TABLE="TUMOR IDENTIFICATION"
+1 IF IOST'?1"C".E
WRITE !
IF ($Y'<(LIN-4))
DO HEAD^ONCHPC0
+2 KILL LINE
SET $PIECE(LINE,"-",20)="-"
+3 WRITE !?4,TABLE,!?4,LINE
+4 DO P
if EX=U
QUIT
+5 WRITE !,"11. CLASS OF CASE...............: ",$$GET1^DIQ(165.5,IE,.04)
+6 DO P
if EX=U
QUIT
+7 WRITE !
+8 DO P
if EX=U
QUIT
+9 WRITE !,"12. HORMONES:"
+10 DO P
if EX=U
QUIT
+11 WRITE !," ORAL CONTRACEPTIVES........: ",$$GET1^DIQ(165.5,IE,1000)
+12 DO P
if EX=U
QUIT
+13 WRITE !," ESTROGEN REPLACEMENT.......: ",$$GET1^DIQ(165.5,IE,1001)
+14 DO P
if EX=U
QUIT
+15 WRITE !," TAMOXIFEN..................: ",$$GET1^DIQ(165.5,IE,1002)
+16 DO P
if EX=U
QUIT
+17 WRITE !," OTHER......................: ",$$GET1^DIQ(165.5,IE,1003)
+18 DO P
if EX=U
QUIT
+19 WRITE !
+20 DO P
if EX=U
QUIT
+21 WRITE !,"13. CONDITIONS PRESENT AT INITIAL DIAGNOSIS:"
+22 DO P
if EX=U
QUIT
+23 WRITE !," ASCITES....................: ",$$GET1^DIQ(165.5,IE,1004)
+24 DO P
if EX=U
QUIT
+25 WRITE !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1005)
+26 DO P
if EX=U
QUIT
+27 WRITE !," CHILD'S CLASS A............: ",$$GET1^DIQ(165.5,IE,1006)
+28 DO P
if EX=U
QUIT
+29 WRITE !," CHILD'S CLASS B............: ",$$GET1^DIQ(165.5,IE,1007)
+30 DO P
if EX=U
QUIT
+31 WRITE !," CHILD'S CLASS C............: ",$$GET1^DIQ(165.5,IE,1008)
+32 DO P
if EX=U
QUIT
+33 WRITE !," HEPATITIS B................: ",$$GET1^DIQ(165.5,IE,1009)
+34 DO P
if EX=U
QUIT
+35 WRITE !," HEPATITIS C................: ",$$GET1^DIQ(165.5,IE,1010)
+36 DO P
if EX=U
QUIT
+37 WRITE !," HEMOCHROMATOSIS............: ",$$GET1^DIQ(165.5,IE,1011)
+38 DO P
if EX=U
QUIT
+39 WRITE !
+40 DO P
if EX=U
QUIT
+41 WRITE !,"14. ALCOHOL CONSUMPTION.........: ",$$GET1^DIQ(165.5,IE,1012)
+42 DO P
if EX=U
QUIT
+43 WRITE !
+44 DO P
if EX=U
QUIT
+45 WRITE !,"15. TUMOR MARKERS:"
+46 DO P
if EX=U
QUIT
+47 WRITE !," AFP (IU/ml)................: ",$$GET1^DIQ(165.5,IE,1013)
+48 DO P
if EX=U
QUIT
+49 WRITE !," CEA (mg/ml)................: ",$$GET1^DIQ(165.5,IE,1014)
+50 DO P
if EX=U
QUIT
+51 WRITE !," CA 19.9 (U/ml).............: ",$$GET1^DIQ(165.5,IE,1015)
+52 DO P
if EX=U
QUIT
+53 WRITE !
+54 DO P
if EX=U
QUIT
+55 WRITE !,"16. TESTS RELATED TO LIVER FUNCTION:"
+56 DO P
if EX=U
QUIT
+57 WRITE !," PROTIME (sec)..............: ",$$GET1^DIQ(165.5,IE,1016)
+58 DO P
if EX=U
QUIT
+59 WRITE !," BILIRUBIN (mg/ml)..........: ",$$GET1^DIQ(165.5,IE,1017)
+60 DO P
if EX=U
QUIT
+61 WRITE !," ALBUMIN (g/dl).............: ",$$GET1^DIQ(165.5,IE,1018)
+62 DO P
if EX=U
QUIT
+63 WRITE !," LDH (U/l)..................: ",$$GET1^DIQ(165.5,IE,1019)
+64 DO P
if EX=U
QUIT
+65 WRITE !
+66 DO P
if EX=U
QUIT
+67 WRITE !,"17. RADIOLOGICAL EVALUATION"
+68 DO P
if EX=U
QUIT
+69 WRITE !
+70 DO P
if EX=U
QUIT
+71 WRITE !," CT ARTERIAL PORTOGRAPHY:"
+72 DO P
if EX=U
QUIT
+73 WRITE !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1020)
+74 DO P
if EX=U
QUIT
+75 WRITE !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1021)
+76 DO P
if EX=U
QUIT
+77 WRITE !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1022)
+78 DO P
if EX=U
QUIT
+79 WRITE !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1023)
+80 DO P
if EX=U
QUIT
+81 WRITE !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1024)
+82 DO P
if EX=U
QUIT
+83 WRITE !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1025)
+84 DO P
if EX=U
QUIT
+85 WRITE !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1026)
+86 DO P
if EX=U
QUIT
+87 WRITE !
+88 DO P
if EX=U
QUIT
+89 WRITE !," SPIRAL CT:"
+90 DO P
if EX=U
QUIT
+91 WRITE !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1027)
+92 DO P
if EX=U
QUIT
+93 WRITE !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1028)
+94 DO P
if EX=U
QUIT
+95 WRITE !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1029)
+96 DO P
if EX=U
QUIT
+97 WRITE !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1030)
+98 DO P
if EX=U
QUIT
+99 WRITE !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1031)
+100 DO P
if EX=U
QUIT
+101 WRITE !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1032)
+102 DO P
if EX=U
QUIT
+103 WRITE !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1033)
+104 DO P
if EX=U
QUIT
+105 WRITE !
+106 DO P
if EX=U
QUIT
+107 WRITE !," INCREMENTAL CT:"
+108 DO P
if EX=U
QUIT
+109 WRITE !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1034)
+110 DO P
if EX=U
QUIT
+111 WRITE !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1035)
+112 DO P
if EX=U
QUIT
+113 WRITE !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1036)
+114 DO P
if EX=U
QUIT
+115 WRITE !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1037)
+116 DO P
if EX=U
QUIT
+117 WRITE !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1038)
+118 DO P
if EX=U
QUIT
+119 WRITE !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1039)
+120 DO P
if EX=U
QUIT
+121 WRITE !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1040)
+122 DO P
if EX=U
QUIT
+123 WRITE !
+124 DO P
if EX=U
QUIT
+125 WRITE !," ULTRASOUND:"
+126 DO P
if EX=U
QUIT
+127 WRITE !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1041)
+128 DO P
if EX=U
QUIT
+129 WRITE !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1042)
+130 DO P
if EX=U
QUIT
+131 WRITE !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1043)
+132 DO P
if EX=U
QUIT
+133 WRITE !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1044)
+134 DO P
if EX=U
QUIT
+135 WRITE !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1045)
+136 DO P
if EX=U
QUIT
+137 WRITE !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1046)
+138 DO P
if EX=U
QUIT
+139 WRITE !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1047)
+140 DO P
if EX=U
QUIT
+141 WRITE !
+142 DO P
if EX=U
QUIT
+143 WRITE !," MRI:"
+144 DO P
if EX=U
QUIT
+145 WRITE !," PERFORMED..................: ",$$GET1^DIQ(165.5,IE,1048)
+146 DO P
if EX=U
QUIT
+147 WRITE !," CIRRHOSIS..................: ",$$GET1^DIQ(165.5,IE,1049)
+148 DO P
if EX=U
QUIT
+149 WRITE !," VASCULAR INVASTION.........: ",$$GET1^DIQ(165.5,IE,1050)
+150 DO P
if EX=U
QUIT
+151 WRITE !," BILOBAR DISEASE............: ",$$GET1^DIQ(165.5,IE,1051)
+152 DO P
if EX=U
QUIT
+153 WRITE !," LYMPH NODES................: ",$$GET1^DIQ(165.5,IE,1052)
+154 DO P
if EX=U
QUIT
+155 WRITE !," SIZE OF DOMINANT TUMOR (MM): ",$$GET1^DIQ(165.5,IE,1053)
+156 DO P
if EX=U
QUIT
+157 WRITE !," NUMBER OF TUMORS...........: ",$$GET1^DIQ(165.5,IE,1054)
+158 DO P
if EX=U
QUIT
+159 WRITE !
+160 DO P
if EX=U
QUIT
+161 WRITE !,"18. DEFINITIVE DIAGNOSIS........: ",$$GET1^DIQ(165.5,IE,1055)
+162 DO P
if EX=U
QUIT
+163 WRITE !,"19. DATE OF INITIAL DIAGNOSIS...: ",$$GET1^DIQ(165.5,IE,3)
+164 DO P
if EX=U
QUIT
+165 WRITE !,"20. HISTOLOGY (ICD-O-2).........: ",$EXTRACT(HIST,1,4)
+166 DO P
if EX=U
QUIT
+167 WRITE !,"21. GRADE.......................: ",$$GET1^DIQ(165.5,IE,24)
+168 DO P
if EX=U
QUIT
+169 WRITE !,"22. DIAGNOSTIC CONFIRMATION.....: ",$$GET1^DIQ(165.5,IE,26)
+170 IF IOST?1"C".E
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if 'Y
GOTO KILL
III DO HEAD^ONCHPC0
DO ^ONCHPC8A
KILL ;
+1 KILL CS,CSDAT,CSI,CSPNT,DESC,DESC1,DESC2,DLC,DOB,DOFCT
+2 KILL EX,HIST,IE,LIN,LINE,LOS,NOP,ONDATE,ONCOLST,TABLE
+3 KILL %,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
+4 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^ONCHPC0
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !?4,TABLE_" (continued)",!?4,LINE_"------------"
+4 QUIT
TASK ;Queue a task
+1 KILL IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE
+2 SET ZTRTN="PRT^ONCHPC8"
SET ZTREQ="@"
SET ZTSAVE("ZTREQ")=""
+3 SET ZTDESC="Print Hepatocellular Cancer PCE"
+4 FOR V2=1:1
SET V1=$PIECE(ONCOLST,"^",V2)
if V1=""
QUIT
SET ZTSAVE(V1)=""
+5 DO ^%ZTLOAD
DO ^%ZISC
USE IO
WRITE !,"Request Queued",!
+6 KILL V1,V2,ONCOLST,ZTSK
QUIT
