- 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 Feb 18, 2025@23:49:35 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
