GMTSONE1.m

GMTSONE1 ; HIN/GWB,RTK - Oncology Health Summary Comp ; 1/27/16 8:53am

 ;;2.7;Health Summary;**72,117**;Oct 20, 1995;Build 2

 ;                        

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)

 . S TXT=^UTILITY("DIQ1",$J,165.5,IEN,.04) D TXT

 . W !," Class of Case..............: ",TXT1

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W:TXT2'="" !,?41,TXT2

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," Date Dx....................: ",^UTILITY("DIQ1",$J,165.5,IEN,3)

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," Date of First Contact......: ",^UTILITY("DIQ1",$J,165.5,IEN,155)

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,20)

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," Laterality.................: ",^UTILITY("DIQ1",$J,165.5,IEN,28)

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . 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

 . . Q  ;remove Collaborative Staging display but leave code intact

 . . W !," #",CNT," Collaborative Staging"

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," ------------------------"

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 T...........: ",^UTILITY("DIQ1",$J,165.5,IEN,160)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 T Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,161)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 N...........: ",^UTILITY("DIQ1",$J,165.5,IEN,162)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 N Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,163)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 M...........: ",^UTILITY("DIQ1",$J,165.5,IEN,164)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 M Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,165)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-6 Stage Group.: ",^UTILITY("DIQ1",$J,165.5,IEN,166)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Extension (CS).............: ",^UTILITY("DIQ1",$J,165.5,IEN,166)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Tumor Size/Ext Eval (CS)...: ",^UTILITY("DIQ1",$J,165.5,IEN,166)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Lymph Nodes (CS)...........: ",^UTILITY("DIQ1",$J,165.5,IEN,166)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Lymph Nodes Eval (CS)......: ",^UTILITY("DIQ1",$J,165.5,IEN,166)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Mets at DX (CS)............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.3)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Mets at DX-Bone............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.31)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Mets at DX-Brain...........: ",^UTILITY("DIQ1",$J,165.5,IEN,34.32)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Mets at DX-Liver...........: ",^UTILITY("DIQ1",$J,165.5,IEN,34.33)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Mets at DX-Lung............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.34)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Mets Eval (CS).............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.4)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 T...........: ",^UTILITY("DIQ1",$J,165.5,IEN,160.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 T Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,161.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 N...........: ",^UTILITY("DIQ1",$J,165.5,IEN,162.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 N Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,163.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 M...........: ",^UTILITY("DIQ1",$J,165.5,IEN,164.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 M Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,165.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived AJCC-7 Stage Group.: ",^UTILITY("DIQ1",$J,165.5,IEN,166.7)

 . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . W !," Derived SS1977.............: ",^UTILITY("DIQ1",$J,165.5,IEN,167)

 . . 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)

 . S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.7) D TXT

 . W !," Surgery of primary site@FAC: ",^UTILITY("DIQ1",$J,165.5,IEN,50.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,139.4) D TXT

 . W !," Surg of other site.........: ",^UTILITY("DIQ1",$J,165.5,IEN,139.2)," ",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,139.5) D TXT

 . W !," Surg of other site @FAC....: ",^UTILITY("DIQ1",$J,165.5,IEN,139.3)," ",TXT1

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W:TXT2'="" !,?41,TXT2

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," METS Site Resected.........: ",^UTILITY("DIQ1",$J,165.5,IEN,139.7)," ",^UTILITY("DIQ1",$J,165.5,IEN,139.6)

 . 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 !," Radiation @FAC.............: ",^UTILITY("DIQ1",$J,165.5,IEN,51.5)," ",^UTILITY("DIQ1",$J,165.5,IEN,51.4)

 . 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 !," Chemotherapy @FAC..........: ",^UTILITY("DIQ1",$J,165.5,IEN,53.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,53.3)

 . 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 !," Hormone therapy @FAC.......: ",^UTILITY("DIQ1",$J,165.5,IEN,54.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,54.3)

 . 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 !," Immunotherapy @FAC.........: ",^UTILITY("DIQ1",$J,165.5,IEN,55.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,55.3)

 . 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 !," Hema Trans/Endocrine @FAC..: ",^UTILITY("DIQ1",$J,165.5,IEN,153.3)," ",^UTILITY("DIQ1",$J,165.5,IEN,153.2)

 . 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 !," Other treatment @FAC.......: ",^UTILITY("DIQ1",$J,165.5,IEN,57.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,57.3)

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," Palliative Care............: ",^UTILITY("DIQ1",$J,165.5,IEN,12)

 . D CKP^GMTSUP Q:$D(GMTSQIT)

 . W !," Palliative Care @FAC.......: ",^UTILITY("DIQ1",$J,165.5,IEN,13)

 . 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 !,"    Scope of LN Surgery.....: ",$G(ONC("SUB",IEN,SUBIEN,38))," ",$G(ONC("SUB",IEN,SUBIEN,35))

 . . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . . W !,"    Surgical Proc/Other Site: ",$G(ONC("SUB",IEN,SUBIEN,39))," ",$G(ONC("SUB",IEN,SUBIEN,36))

 . . . D CKP^GMTSUP Q:$D(GMTSQIT)

 . . . W !,"    METS Site Resected......: ",$G(ONC("SUB",IEN,SUBIEN,41))," ",$G(ONC("SUB",IEN,SUBIEN,40))

 . . . 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 !," Date Last Contact..........: ",^UTILITY("DIQ1",$J,165.5,IEN,200)

 . 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)

 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 !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,20)

 . 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)

 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTSONE1   14135     printed  Apr 23, 2025@18:13                                                                                                                                                                                                      Page 2

GMTSONE1  ; HIN/GWB,RTK - Oncology Health Summary Comp ; 1/27/16 8:53am

 +1       ;;2.7;Health Summary;**72,117**;Oct 20, 1995;Build 2

 +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                SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,.04)

                   DO TXT

 +10               WRITE !," Class of Case..............: ",TXT1

 +11               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +12               if TXT2'=""

                       WRITE !,?41,TXT2

 +13               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +14               WRITE !," Date Dx....................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,3)

 +15               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +16               WRITE !," Date of First Contact......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,155)

 +17               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +18               WRITE !," Primary Site...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,20.1)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,20)

 +19               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +20               WRITE !," Laterality.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,28)

 +21               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +22               IF ^UTILITY("DIQ1",$JOB,165.5,IEN,91)'="Complete"

                       Begin DoDot:2

 +23                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +24                       WRITE !," Abstract Status............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,91)

 +25                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +26                       WRITE !!

                       End DoDot:2

                       QUIT 

 +27               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +28               IF ^UTILITY("DIQ1",$JOB,165.5,IEN,3,"I")<3010000

                       Begin DoDot:2

 +29                       WRITE !," Histology (ICD-O-2)........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,22)

 +30                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

                       End DoDot:2

 +31               IF ^UTILITY("DIQ1",$JOB,165.5,IEN,3,"I")>3001231

                       Begin DoDot:2

 +32                       WRITE !," Histology (ICD-O-3)........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,22.3)

 +33                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

                       End DoDot:2

 +34               WRITE !," Grade/Differentiation......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,24)

 +35               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +36               WRITE !," Abstract Status............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,91)

 +37               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +38               WRITE !

 +39               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +40               WRITE !," #",CNT," Stage of Disease at Diagnosis"

 +41               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +42               WRITE !," --------------------------------"

 +43               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +44               WRITE !," Tumor Size.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,29)

 +45               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +46               WRITE !," Regional Nodes Examined....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,33)

 +47               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +48               WRITE !," Regional Nodes Positive....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,32)

 +49               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +50               WRITE !," Clinical T.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,37.1)

 +51               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +52               WRITE !," Clinical N.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,37.2)

 +53               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +54               WRITE !," Clinical M.................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,37.3)

 +55               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +56               WRITE !," Clinical Stage Group.......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,38)

 +57               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +58               WRITE !," Pathologic T...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,85)

 +59               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +60               WRITE !," Pathologic N...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,86)

 +61               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +62               WRITE !," Pathologic M...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,87)

 +63               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +64               WRITE !," Pathologic Stage Group.....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,88)

 +65               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +66               WRITE !

 +67               DO CKP^GMTSUP

                   if $DATA(GMTSQIT)

                       QUIT 

 +68               IF ^UTILITY("DIQ1",$JOB,165.5,IEN,3,"I")>3031231

                       Begin DoDot:2

 +69      ;remove Collaborative Staging display but leave code intact

                           QUIT 

 +70                       WRITE !," #",CNT," Collaborative Staging"

 +71                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +72                       WRITE !," ------------------------"

 +73                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +74                       WRITE !," Derived AJCC-6 T...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,160)

 +75                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +76                       WRITE !," Derived AJCC-6 T Descriptor: ",^UTILITY("DIQ1",$JOB,165.5,IEN,161)

 +77                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +78                       WRITE !," Derived AJCC-6 N...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,162)

 +79                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +80                       WRITE !," Derived AJCC-6 N Descriptor: ",^UTILITY("DIQ1",$JOB,165.5,IEN,163)

 +81                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +82                       WRITE !," Derived AJCC-6 M...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,164)

 +83                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +84                       WRITE !," Derived AJCC-6 M Descriptor: ",^UTILITY("DIQ1",$JOB,165.5,IEN,165)

 +85                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +86                       WRITE !," Derived AJCC-6 Stage Group.: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166)

 +87                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +88                       WRITE !," Extension (CS).............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166)

 +89                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +90                       WRITE !," Tumor Size/Ext Eval (CS)...: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166)

 +91                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +92                       WRITE !," Lymph Nodes (CS)...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166)

 +93                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +94                       WRITE !," Lymph Nodes Eval (CS)......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166)

 +95                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +96                       WRITE !," Mets at DX (CS)............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,34.3)

 +97                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +98                       WRITE !," Mets at DX-Bone............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,34.31)

 +99                       DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +100                      WRITE !," Mets at DX-Brain...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,34.32)

 +101                      DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +102                      WRITE !," Mets at DX-Liver...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,34.33)

 +103                      DO CKP^GMTSUP

                           if $DATA(GMTSQIT)

                               QUIT 

 +104                      WRITE !," Mets at DX-Lung............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,34.34)

 +105                      DO CKP^GMTSUP