Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSONE1

GMTSONE1.m

Go to the documentation of this file.
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