GMTSONE1 ; HIN/GWB - Oncology Health Summary Comp ; 1/11/05 8:53am
;;2.7;Health Summary;**72**;Oct 20, 1995
;
DISPLAY ; Display Extracted Data
S IEN=0 F CNT=1:1 S IEN=$O(^UTILITY("DIQ1",$J,165.5,IEN)) Q:IEN="" D
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W " #",CNT," Cancer Identification"
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," ------------------------"
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W:$D(^UTILITY("DIQ1",$J,165.5,IEN,2000)) !," Division...................: ",^UTILITY("DIQ1",$J,165.5,IEN,2000)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Class of Case..............: ",^UTILITY("DIQ1",$J,165.5,IEN,.04)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Date Dx....................: ",^UTILITY("DIQ1",$J,165.5,IEN,3)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20)
. I ^UTILITY("DIQ1",$J,165.5,IEN,91)'="Complete" D Q
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !!
. D CKP^GMTSUP Q:$D(GMTSQIT)
. I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")<3010000 D
. . W !," Histology (ICD-O-2)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")>3001231 D
. . W !," Histology (ICD-O-3)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22.3)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Grade/Differentiation......: ",^UTILITY("DIQ1",$J,165.5,IEN,24)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," #",CNT," Stage of Disease at Diagnosis"
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," --------------------------------"
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Tumor Size.................: ",^UTILITY("DIQ1",$J,165.5,IEN,29)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Regional Nodes Examined....: ",^UTILITY("DIQ1",$J,165.5,IEN,33)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Regional Nodes Positive....: ",^UTILITY("DIQ1",$J,165.5,IEN,32)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Clinical T.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.1)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Clinical N.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.2)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Clinical M.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.3)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Clinical Stage Group.......: ",^UTILITY("DIQ1",$J,165.5,IEN,38)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Pathologic T...............: ",^UTILITY("DIQ1",$J,165.5,IEN,85)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Pathologic N...............: ",^UTILITY("DIQ1",$J,165.5,IEN,86)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Pathologic M...............: ",^UTILITY("DIQ1",$J,165.5,IEN,87)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Pathologic Stage Group.....: ",^UTILITY("DIQ1",$J,165.5,IEN,88)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !
. D CKP^GMTSUP Q:$D(GMTSQIT)
. I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")>3031231 D
. . W !," #",CNT," Collaborative Staging"
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," ------------------------"
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC T.............: ",^UTILITY("DIQ1",$J,165.5,IEN,160)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC T Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,161)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC N.............: ",^UTILITY("DIQ1",$J,165.5,IEN,162)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC N Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,163)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC M.............: ",^UTILITY("DIQ1",$J,165.5,IEN,164)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC M Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,165)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived AJCC Stage Group...: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," Derived SS2000.............: ",^UTILITY("DIQ1",$J,165.5,IEN,168)
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," #",CNT," First Course of Treatment"
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," ----------------------------"
. D CKP^GMTSUP Q:$D(GMTSQIT)
. S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.1) D TXT
. W !," Surgical Dx/Staging Proc...: ",^UTILITY("DIQ1",$J,165.5,IEN,58.3)," ",TXT1
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W:TXT2'="" !,?41,TXT2
. D CKP^GMTSUP Q:$D(GMTSQIT)
. S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.6) D TXT
. W !," Surgery of primary site....: ",^UTILITY("DIQ1",$J,165.5,IEN,50)," ",TXT1
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W:TXT2'="" !,?41,TXT2
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Reason for no surgery......: ",^UTILITY("DIQ1",$J,165.5,IEN,58)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Radiation..................: ",^UTILITY("DIQ1",$J,165.5,IEN,51)," ",^UTILITY("DIQ1",$J,165.5,IEN,51.2)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Regional dose:cGy..........: ",^UTILITY("DIQ1",$J,165.5,IEN,442)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Boost dose:cGy.............: ",^UTILITY("DIQ1",$J,165.5,IEN,443)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Radiation treatment volume.: ",^UTILITY("DIQ1",$J,165.5,IEN,125)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Reason for no radiation....: ",^UTILITY("DIQ1",$J,165.5,IEN,75)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Chemotherapy...............: ",^UTILITY("DIQ1",$J,165.5,IEN,53)," ",^UTILITY("DIQ1",$J,165.5,IEN,53.2)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Hormone therapy............: ",^UTILITY("DIQ1",$J,165.5,IEN,54)," ",^UTILITY("DIQ1",$J,165.5,IEN,54.2)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Immunotherapy..............: ",^UTILITY("DIQ1",$J,165.5,IEN,55)," ",^UTILITY("DIQ1",$J,165.5,IEN,55.2)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Hema Trans/Endocrine Proc..: ",^UTILITY("DIQ1",$J,165.5,IEN,153.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,153)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Other treatment............: ",^UTILITY("DIQ1",$J,165.5,IEN,57)," ",^UTILITY("DIQ1",$J,165.5,IEN,57.2)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Palliative Care............: ",^UTILITY("DIQ1",$J,165.5,IEN,12)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Protocol eligibility status: ",^UTILITY("DIQ1",$J,165.5,IEN,346)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Protocol participation.....: ",^UTILITY("DIQ1",$J,165.5,IEN,560)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !
. D CKP^GMTSUP Q:$D(GMTSQIT)
. I $D(ONC("SUB",IEN)) D
. . W !," #",CNT," Subsequent Treatment"
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . W !," -----------------------"
. . D CKP^GMTSUP Q:$D(GMTSQIT)
. . S SUBIEN=0
. . F SUBCNT=1:1 S SUBIEN=$O(ONC("SUB",IEN,SUBIEN)) Q:SUBIEN="" D
. . . S SUBLET=$E(SUB,SUBCNT)
. . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.04)) D TXT
. . . W !," ",SUBLET_"."," Surgery of primary site.: ",$G(ONC("SUB",IEN,SUBIEN,.041))," ",TXT1
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W:TXT2'="" !,?41,TXT2
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W !," Radiation...............: ",$G(ONC("SUB",IEN,SUBIEN,.051))," ",$G(ONC("SUB",IEN,SUBIEN,.05))
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W !," Chemotherapy............: ",$G(ONC("SUB",IEN,SUBIEN,.061))," ",$G(ONC("SUB",IEN,SUBIEN,.06))
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.07)) D TXT
. . . W !," Hormone therapy.........: ",$G(ONC("SUB",IEN,SUBIEN,.071))," ",TXT1
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W:TXT2'="" !,?41,TXT2
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W !," Immunotherapy...........: ",$G(ONC("SUB",IEN,SUBIEN,.081))," ",$G(ONC("SUB",IEN,SUBIEN,.08))
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.09)) D TXT
. . . W !," Other Treatment.........: ",$G(ONC("SUB",IEN,SUBIEN,.091))," ",TXT1
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W:TXT2'="" !,?41,TXT2
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. . . W !
. . . D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Cancer Status..............: ",^UTILITY("DIQ1",$J,165.5,IEN,95)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !
. D CKP^GMTSUP Q:$D(GMTSQIT)
I '$D(ONC(160.04)) W ! Q
D CKP^GMTSUP Q:$D(GMTSQIT)
W " Follow-up"
D CKP^GMTSUP Q:$D(GMTSQIT)
W !," ---------"
D CKP^GMTSUP Q:$D(GMTSQIT)
S IEN=0 F CNT=1:1 S IEN=$O(ONC(160.04,IEN)) Q:IEN="" D
. Q:ONC(160.04,IEN,.01)'=ONC(160,PTIEN_",",16)
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Last Contact or Death......: ",$G(ONC(160.04,IEN,.01))
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Vital Status...............: ",$G(ONC(160.04,IEN,1))
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !," Following Registry.........: ",$G(ONC(160.04,IEN,10))
. D CKP^GMTSUP Q:$D(GMTSQIT)
. W !
. D CKP^GMTSUP Q:$D(GMTSQIT)
W !
D CKP^GMTSUP Q:$D(GMTSQIT)
Q
TXT ; Print Formatted Text
S (TXT1,TXT2)="",LOS=$L($G(TXT)) I LOS<40 S TXT1=$G(TXT) Q
S NOP=$L($E($G(TXT),1,40)," ")
S TXT1=$P($G(TXT)," ",1,NOP-1),TXT2=$P($G(TXT)," ",NOP,999)
Q
GMTSONE1 ; HIN/GWB - Oncology Health Summary Comp ; 1/11/05 8:53am
+1 ;;2.7;Health Summary;**72**;Oct 20, 1995
+2 ;
DISPLAY ; Display Extracted Data
+1 SET IEN=0
FOR CNT=1:1
SET IEN=$ORDER(^UTILITY("DIQ1",$JOB,165.5,IEN))
IF IEN=""
QUIT
Begin DoDot:1
+2 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+3 WRITE " #",CNT," Cancer Identification"
+4 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+5 WRITE !," ------------------------"
+6 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+7 IF $DATA(^UTILITY("DIQ1",$JOB,165.5,IEN,2000))
WRITE !," Division...................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,2000)
+8 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+9 WRITE !," Class of Case..............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,.04)
+10 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+11 WRITE !," Date Dx....................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,3)
+12 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+13 WRITE !," Primary Site...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,20)
+14 IF ^UTILITY("DIQ1",$JOB,165.5,IEN,91)'="Complete"
Begin DoDot:2
+15 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+16 WRITE !," Abstract Status............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,91)
+17 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+18 WRITE !!
End DoDot:2
QUIT
+19 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+20 IF ^UTILITY("DIQ1",$JOB,165.5,IEN,3,"I")<3010000
Begin DoDot:2
+21 WRITE !," Histology (ICD-O-2)........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,22)
+22 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:2
+23 IF ^UTILITY("DIQ1",$JOB,165.5,IEN,3,"I")>3001231
Begin DoDot:2
+24 WRITE !," Histology (ICD-O-3)........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,22.3)
+25 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:2
+26 WRITE !," Grade/Differentiation......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,24)
+27 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+28 WRITE !," Abstract Status............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,91)
+29 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+30 WRITE !
+31 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+32 WRITE !," #",CNT," Stage of Disease at Diagnosis"
+33 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+34 WRITE !," --------------------------------"
+35 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+36 WRITE !," Tumor Size.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,29)
+37 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+38 WRITE !," Regional Nodes Examined....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,33)
+39 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+40 WRITE !," Regional Nodes Positive....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,32)
+41 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+42 WRITE !," Clinical T.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,37.1)
+43 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+44 WRITE !," Clinical N.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,37.2)
+45 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+46 WRITE !," Clinical M.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,37.3)
+47 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+48 WRITE !," Clinical Stage Group.......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,38)
+49 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+50 WRITE !," Pathologic T...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,85)
+51 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+52 WRITE !," Pathologic N...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,86)
+53 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+54 WRITE !," Pathologic M...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,87)
+55 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+56 WRITE !," Pathologic Stage Group.....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,88)
+57 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+58 WRITE !
+59 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+60 IF ^UTILITY("DIQ1",$JOB,165.5,IEN,3,"I")>3031231
Begin DoDot:2
+61 WRITE !," #",CNT," Collaborative Staging"
+62 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+63 WRITE !," ------------------------"
+64 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+65 WRITE !," Derived AJCC T.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,160)
+66 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+67 WRITE !," Derived AJCC T Descriptor..: ",^UTILITY("DIQ1",$JOB,165.5,IEN,161)
+68 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+69 WRITE !," Derived AJCC N.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,162)
+70 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+71 WRITE !," Derived AJCC N Descriptor..: ",^UTILITY("DIQ1",$JOB,165.5,IEN,163)
+72 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+73 WRITE !," Derived AJCC M.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,164)
+74 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+75 WRITE !," Derived AJCC M Descriptor..: ",^UTILITY("DIQ1",$JOB,165.5,IEN,165)
+76 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+77 WRITE !," Derived AJCC Stage Group...: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166)
+78 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+79 WRITE !," Derived SS2000.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,168)
+80 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+81 WRITE !
+82 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:2
+83 WRITE !," #",CNT," First Course of Treatment"
+84 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+85 WRITE !," ----------------------------"
+86 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+87 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,58.1)
DO TXT
+88 WRITE !," Surgical Dx/Staging Proc...: ",^UTILITY("DIQ1",$JOB,165.5,IEN,58.3)," ",TXT1
+89 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+90 IF TXT2'=""
WRITE !,?41,TXT2
+91 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+92 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,58.6)
DO TXT
+93 WRITE !," Surgery of primary site....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,50)," ",TXT1
+94 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+95 IF TXT2'=""
WRITE !,?41,TXT2
+96 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+97 WRITE !," Reason for no surgery......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,58)
+98 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+99 WRITE !," Radiation..................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,51)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,51.2)
+100 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+101 WRITE !," Regional dose:cGy..........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,442)
+102 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+103 WRITE !," Boost dose:cGy.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,443)
+104 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+105 WRITE !," Radiation treatment volume.: ",^UTILITY("DIQ1",$JOB,165.5,IEN,125)
+106 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+107 WRITE !," Reason for no radiation....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,75)
+108 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+109 WRITE !," Chemotherapy...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,53)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,53.2)
+110 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+111 WRITE !," Hormone therapy............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,54)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,54.2)
+112 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+113 WRITE !," Immunotherapy..............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,55)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,55.2)
+114 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+115 WRITE !," Hema Trans/Endocrine Proc..: ",^UTILITY("DIQ1",$JOB,165.5,IEN,153.1)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,153)
+116 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+117 WRITE !," Other treatment............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,57)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,57.2)
+118 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+119 WRITE !," Palliative Care............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,12)
+120 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+121 WRITE !," Protocol eligibility status: ",^UTILITY("DIQ1",$JOB,165.5,IEN,346)
+122 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+123 WRITE !," Protocol participation.....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,560)
+124 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+125 WRITE !
+126 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+127 IF $DATA(ONC("SUB",IEN))
Begin DoDot:2
+128 WRITE !," #",CNT," Subsequent Treatment"
+129 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+130 WRITE !," -----------------------"
+131 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+132 SET SUBIEN=0
+133 FOR SUBCNT=1:1
SET SUBIEN=$ORDER(ONC("SUB",IEN,SUBIEN))
IF SUBIEN=""
QUIT
Begin DoDot:3
+134 SET SUBLET=$EXTRACT(SUB,SUBCNT)
+135 SET TXT=$GET(ONC("SUB",IEN,SUBIEN,.04))
DO TXT
+136 WRITE !," ",SUBLET_"."," Surgery of primary site.: ",$GET(ONC("SUB",IEN,SUBIEN,.041))," ",TXT1
+137 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+138 IF TXT2'=""
WRITE !,?41,TXT2
+139 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+140 WRITE !," Radiation...............: ",$GET(ONC("SUB",IEN,SUBIEN,.051))," ",$GET(ONC("SUB",IEN,SUBIEN,.05))
+141 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+142 WRITE !," Chemotherapy............: ",$GET(ONC("SUB",IEN,SUBIEN,.061))," ",$GET(ONC("SUB",IEN,SUBIEN,.06))
+143 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+144 SET TXT=$GET(ONC("SUB",IEN,SUBIEN,.07))
DO TXT
+145 WRITE !," Hormone therapy.........: ",$GET(ONC("SUB",IEN,SUBIEN,.071))," ",TXT1
+146 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+147 IF TXT2'=""
WRITE !,?41,TXT2
+148 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+149 WRITE !," Immunotherapy...........: ",$GET(ONC("SUB",IEN,SUBIEN,.081))," ",$GET(ONC("SUB",IEN,SUBIEN,.08))
+150 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+151 SET TXT=$GET(ONC("SUB",IEN,SUBIEN,.09))
DO TXT
+152 WRITE !," Other Treatment.........: ",$GET(ONC("SUB",IEN,SUBIEN,.091))," ",TXT1
+153 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+154 IF TXT2'=""
WRITE !,?41,TXT2
+155 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+156 WRITE !
+157 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:3
End DoDot:2
+158 WRITE !," Cancer Status..............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,95)
+159 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+160 WRITE !
+161 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+162 WRITE !
+163 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:1
+164 IF '$DATA(ONC(160.04))
WRITE !
QUIT
+165 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+166 WRITE " Follow-up"
+167 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+168 WRITE !," ---------"
+169 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+170 SET IEN=0
FOR CNT=1:1
SET IEN=$ORDER(ONC(160.04,IEN))
IF IEN=""
QUIT
Begin DoDot:1
+171 IF ONC(160.04,IEN,.01)'=ONC(160,PTIEN_",",16)
QUIT
+172 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+173 WRITE !," Last Contact or Death......: ",$GET(ONC(160.04,IEN,.01))
+174 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+175 WRITE !," Vital Status...............: ",$GET(ONC(160.04,IEN,1))
+176 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+177 WRITE !," Following Registry.........: ",$GET(ONC(160.04,IEN,10))
+178 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+179 WRITE !
+180 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
End DoDot:1
+181 WRITE !
+182 DO CKP^GMTSUP
IF $DATA(GMTSQIT)
QUIT
+183 QUIT
TXT ; Print Formatted Text
+1 SET (TXT1,TXT2)=""
SET LOS=$LENGTH($GET(TXT))
IF LOS<40
SET TXT1=$GET(TXT)
QUIT
+2 SET NOP=$LENGTH($EXTRACT($GET(TXT),1,40)," ")
+3 SET TXT1=$PIECE($GET(TXT)," ",1,NOP-1)
SET TXT2=$PIECE($GET(TXT)," ",NOP,999)
+4 QUIT
