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. 
  1. GMTSONE1 ; HIN/GWB - Oncology Health Summary Comp ; 1/11/05 8:53am
  1.  ;;2.7;Health Summary;**72**;Oct 20, 1995
  1.  ;                        
  1. DISPLAY ; Display Extracted Data
  1.  S IEN=0 F CNT=1:1 S IEN=$O(^UTILITY("DIQ1",$J,165.5,IEN)) Q:IEN=""  D
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W " #",CNT," Cancer Identification"
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," ------------------------"
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W:$D(^UTILITY("DIQ1",$J,165.5,IEN,2000)) !," Division...................: ",^UTILITY("DIQ1",$J,165.5,IEN,2000)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Class of Case..............: ",^UTILITY("DIQ1",$J,165.5,IEN,.04)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Date Dx....................: ",^UTILITY("DIQ1",$J,165.5,IEN,3)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20)
  1.  . I ^UTILITY("DIQ1",$J,165.5,IEN,91)'="Complete" D  Q
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !!
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")<3010000 D
  1.  . . W !," Histology (ICD-O-2)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")>3001231 D
  1.  . . W !," Histology (ICD-O-3)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22.3)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Grade/Differentiation......: ",^UTILITY("DIQ1",$J,165.5,IEN,24)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," #",CNT," Stage of Disease at Diagnosis"
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," --------------------------------"
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Tumor Size.................: ",^UTILITY("DIQ1",$J,165.5,IEN,29)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Regional Nodes Examined....: ",^UTILITY("DIQ1",$J,165.5,IEN,33)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Regional Nodes Positive....: ",^UTILITY("DIQ1",$J,165.5,IEN,32)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Clinical T.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.1)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Clinical N.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.2)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Clinical M.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.3)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Clinical Stage Group.......: ",^UTILITY("DIQ1",$J,165.5,IEN,38)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Pathologic T...............: ",^UTILITY("DIQ1",$J,165.5,IEN,85)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Pathologic N...............: ",^UTILITY("DIQ1",$J,165.5,IEN,86)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Pathologic M...............: ",^UTILITY("DIQ1",$J,165.5,IEN,87)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Pathologic Stage Group.....: ",^UTILITY("DIQ1",$J,165.5,IEN,88)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")>3031231 D
  1.  . . W !," #",CNT," Collaborative Staging"
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," ------------------------"
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC T.............: ",^UTILITY("DIQ1",$J,165.5,IEN,160)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC T Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,161)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC N.............: ",^UTILITY("DIQ1",$J,165.5,IEN,162)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC N Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,163)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC M.............: ",^UTILITY("DIQ1",$J,165.5,IEN,164)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC M Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,165)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived AJCC Stage Group...: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," Derived SS2000.............: ",^UTILITY("DIQ1",$J,165.5,IEN,168)
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," #",CNT," First Course of Treatment"
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," ----------------------------"
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.1) D TXT
  1.  . W !," Surgical Dx/Staging Proc...: ",^UTILITY("DIQ1",$J,165.5,IEN,58.3)," ",TXT1
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W:TXT2'="" !,?41,TXT2
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.6) D TXT
  1.  . W !," Surgery of primary site....: ",^UTILITY("DIQ1",$J,165.5,IEN,50)," ",TXT1
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W:TXT2'="" !,?41,TXT2
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Reason for no surgery......: ",^UTILITY("DIQ1",$J,165.5,IEN,58)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Radiation..................: ",^UTILITY("DIQ1",$J,165.5,IEN,51)," ",^UTILITY("DIQ1",$J,165.5,IEN,51.2)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Regional dose:cGy..........: ",^UTILITY("DIQ1",$J,165.5,IEN,442)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Boost dose:cGy.............: ",^UTILITY("DIQ1",$J,165.5,IEN,443)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Radiation treatment volume.: ",^UTILITY("DIQ1",$J,165.5,IEN,125)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Reason for no radiation....: ",^UTILITY("DIQ1",$J,165.5,IEN,75)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Chemotherapy...............: ",^UTILITY("DIQ1",$J,165.5,IEN,53)," ",^UTILITY("DIQ1",$J,165.5,IEN,53.2)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Hormone therapy............: ",^UTILITY("DIQ1",$J,165.5,IEN,54)," ",^UTILITY("DIQ1",$J,165.5,IEN,54.2)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Immunotherapy..............: ",^UTILITY("DIQ1",$J,165.5,IEN,55)," ",^UTILITY("DIQ1",$J,165.5,IEN,55.2)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Hema Trans/Endocrine Proc..: ",^UTILITY("DIQ1",$J,165.5,IEN,153.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,153)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Other treatment............: ",^UTILITY("DIQ1",$J,165.5,IEN,57)," ",^UTILITY("DIQ1",$J,165.5,IEN,57.2)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Palliative Care............: ",^UTILITY("DIQ1",$J,165.5,IEN,12)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Protocol eligibility status: ",^UTILITY("DIQ1",$J,165.5,IEN,346)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Protocol participation.....: ",^UTILITY("DIQ1",$J,165.5,IEN,560)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . I $D(ONC("SUB",IEN)) D
  1.  . . W !," #",CNT," Subsequent Treatment"
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . W !," -----------------------"
  1.  . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . S SUBIEN=0
  1.  . . F SUBCNT=1:1 S SUBIEN=$O(ONC("SUB",IEN,SUBIEN)) Q:SUBIEN=""  D
  1.  . . . S SUBLET=$E(SUB,SUBCNT)
  1.  . . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.04)) D TXT
  1.  . . . W !," ",SUBLET_"."," Surgery of primary site.: ",$G(ONC("SUB",IEN,SUBIEN,.041))," ",TXT1
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W:TXT2'="" !,?41,TXT2
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W !,"    Radiation...............: ",$G(ONC("SUB",IEN,SUBIEN,.051))," ",$G(ONC("SUB",IEN,SUBIEN,.05))
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W !,"    Chemotherapy............: ",$G(ONC("SUB",IEN,SUBIEN,.061))," ",$G(ONC("SUB",IEN,SUBIEN,.06))
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.07)) D TXT
  1.  . . . W !,"    Hormone therapy.........: ",$G(ONC("SUB",IEN,SUBIEN,.071))," ",TXT1
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W:TXT2'="" !,?41,TXT2
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W !,"    Immunotherapy...........: ",$G(ONC("SUB",IEN,SUBIEN,.081))," ",$G(ONC("SUB",IEN,SUBIEN,.08))
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.09)) D TXT
  1.  . . . W !,"    Other Treatment.........: ",$G(ONC("SUB",IEN,SUBIEN,.091))," ",TXT1
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W:TXT2'="" !,?41,TXT2
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . . . W !
  1.  . . . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Cancer Status..............: ",^UTILITY("DIQ1",$J,165.5,IEN,95)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  I '$D(ONC(160.04)) W ! Q
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  W " Follow-up"
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  W !," ---------"
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  S IEN=0 F CNT=1:1 S IEN=$O(ONC(160.04,IEN)) Q:IEN=""  D
  1.  . Q:ONC(160.04,IEN,.01)'=ONC(160,PTIEN_",",16)
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Last Contact or Death......: ",$G(ONC(160.04,IEN,.01))
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Vital Status...............: ",$G(ONC(160.04,IEN,1))
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !," Following Registry.........: ",$G(ONC(160.04,IEN,10))
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  . W !
  1.  . D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  W !
  1.  D CKP^GMTSUP Q:$D(GMTSQIT)
  1.  Q
  1. TXT ; Print Formatted Text
  1.  S (TXT1,TXT2)="",LOS=$L($G(TXT)) I LOS<40 S TXT1=$G(TXT) Q
  1.  S NOP=$L($E($G(TXT),1,40)," ")
  1.  S TXT1=$P($G(TXT)," ",1,NOP-1),TXT2=$P($G(TXT)," ",NOP,999)
  1.  Q