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 ---[H[J[2J[HGMTSONE1 14135 printed Nov 22, 2024@17:08:39 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
if $DATA(GMTSQIT)
QUIT
+106 WRITE !," Mets Eval (CS).............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,34.4)
+107 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+108 WRITE !," Derived AJCC-7 T...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,160.7)
+109 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+110 WRITE !," Derived AJCC-7 T Descriptor: ",^UTILITY("DIQ1",$JOB,165.5,IEN,161.7)
+111 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+112 WRITE !," Derived AJCC-7 N...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,162.7)
+113 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+114 WRITE !," Derived AJCC-7 N Descriptor: ",^UTILITY("DIQ1",$JOB,165.5,IEN,163.7)
+115 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+116 WRITE !," Derived AJCC-7 M...........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,164.7)
+117 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+118 WRITE !," Derived AJCC-7 M Descriptor: ",^UTILITY("DIQ1",$JOB,165.5,IEN,165.7)
+119 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+120 WRITE !," Derived AJCC-7 Stage Group.: ",^UTILITY("DIQ1",$JOB,165.5,IEN,166.7)
+121 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+122 WRITE !," Derived SS1977.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,167)
+123 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+124 WRITE !," Derived SS2000.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,168)
+125 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+126 WRITE !
+127 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
End DoDot:2
+128 WRITE !," #",CNT," First Course of Treatment"
+129 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+130 WRITE !," ----------------------------"
+131 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+132 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,58.1)
DO TXT
+133 WRITE !," Surgical Dx/Staging Proc...: ",^UTILITY("DIQ1",$JOB,165.5,IEN,58.3)," ",TXT1
+134 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+135 if TXT2'=""
WRITE !,?41,TXT2
+136 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+137 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,58.6)
DO TXT
+138 WRITE !," Surgery of primary site....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,50)," ",TXT1
+139 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+140 if TXT2'=""
WRITE !,?41,TXT2
+141 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+142 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,58.7)
DO TXT
+143 WRITE !," Surgery of primary site@FAC: ",^UTILITY("DIQ1",$JOB,165.5,IEN,50.3)," ",TXT1
+144 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+145 if TXT2'=""
WRITE !,?41,TXT2
+146 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+147 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,139.4)
DO TXT
+148 WRITE !," Surg of other site.........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,139.2)," ",TXT1
+149 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+150 if TXT2'=""
WRITE !,?41,TXT2
+151 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+152 SET TXT=^UTILITY("DIQ1",$JOB,165.5,IEN,139.5)
DO TXT
+153 WRITE !," Surg of other site @FAC....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,139.3)," ",TXT1
+154 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+155 if TXT2'=""
WRITE !,?41,TXT2
+156 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+157 WRITE !," METS Site Resected.........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,139.7)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,139.6)
+158 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+159 WRITE !," Reason for no surgery......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,58)
+160 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+161 WRITE !," Radiation..................: ",^UTILITY("DIQ1",$JOB,165.5,IEN,51)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,51.2)
+162 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+163 WRITE !," Radiation @FAC.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,51.5)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,51.4)
+164 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+165 WRITE !," Regional dose:cGy..........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,442)
+166 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+167 WRITE !," Boost dose:cGy.............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,443)
+168 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+169 WRITE !," Radiation treatment volume.: ",^UTILITY("DIQ1",$JOB,165.5,IEN,125)
+170 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+171 WRITE !," Reason for no radiation....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,75)
+172 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+173 WRITE !," Chemotherapy...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,53)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,53.2)
+174 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+175 WRITE !," Chemotherapy @FAC..........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,53.4)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,53.3)
+176 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+177 WRITE !," Hormone therapy............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,54)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,54.2)
+178 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+179 WRITE !," Hormone therapy @FAC.......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,54.4)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,54.3)
+180 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+181 WRITE !," Immunotherapy..............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,55)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,55.2)
+182 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+183 WRITE !," Immunotherapy @FAC.........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,55.4)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,55.3)
+184 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+185 WRITE !," Hema Trans/Endocrine Proc..: ",^UTILITY("DIQ1",$JOB,165.5,IEN,153.1)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,153)
+186 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+187 WRITE !," Hema Trans/Endocrine @FAC..: ",^UTILITY("DIQ1",$JOB,165.5,IEN,153.3)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,153.2)
+188 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+189 WRITE !," Other treatment............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,57)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,57.2)
+190 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+191 WRITE !," Other treatment @FAC.......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,57.4)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,57.3)
+192 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+193 WRITE !," Palliative Care............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,12)
+194 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+195 WRITE !," Palliative Care @FAC.......: ",^UTILITY("DIQ1",$JOB,165.5,IEN,13)
+196 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+197 WRITE !," Protocol eligibility status: ",^UTILITY("DIQ1",$JOB,165.5,IEN,346)
+198 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+199 WRITE !," Protocol participation.....: ",^UTILITY("DIQ1",$JOB,165.5,IEN,560)
+200 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+201 WRITE !
+202 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+203 IF $DATA(ONC("SUB",IEN))
Begin DoDot:2
+204 WRITE !," #",CNT," Subsequent Treatment"
+205 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+206 WRITE !," -----------------------"
+207 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+208 SET SUBIEN=0
+209 FOR SUBCNT=1:1
SET SUBIEN=$ORDER(ONC("SUB",IEN,SUBIEN))
if SUBIEN=""
QUIT
Begin DoDot:3
+210 SET SUBLET=$EXTRACT(SUB,SUBCNT)
+211 SET TXT=$GET(ONC("SUB",IEN,SUBIEN,.04))
DO TXT
+212 WRITE !," ",SUBLET_"."," Surgery of primary site.: ",$GET(ONC("SUB",IEN,SUBIEN,.041))," ",TXT1
+213 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+214 if TXT2'=""
WRITE !,?41,TXT2
+215 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+216 WRITE !," Scope of LN Surgery.....: ",$GET(ONC("SUB",IEN,SUBIEN,38))," ",$GET(ONC("SUB",IEN,SUBIEN,35))
+217 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+218 WRITE !," Surgical Proc/Other Site: ",$GET(ONC("SUB",IEN,SUBIEN,39))," ",$GET(ONC("SUB",IEN,SUBIEN,36))
+219 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+220 WRITE !," METS Site Resected......: ",$GET(ONC("SUB",IEN,SUBIEN,41))," ",$GET(ONC("SUB",IEN,SUBIEN,40))
+221 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+222 WRITE !," Radiation...............: ",$GET(ONC("SUB",IEN,SUBIEN,.051))," ",$GET(ONC("SUB",IEN,SUBIEN,.05))
+223 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+224 WRITE !," Chemotherapy............: ",$GET(ONC("SUB",IEN,SUBIEN,.061))," ",$GET(ONC("SUB",IEN,SUBIEN,.06))
+225 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+226 SET TXT=$GET(ONC("SUB",IEN,SUBIEN,.07))
DO TXT
+227 WRITE !," Hormone therapy.........: ",$GET(ONC("SUB",IEN,SUBIEN,.071))," ",TXT1
+228 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+229 if TXT2'=""
WRITE !,?41,TXT2
+230 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+231 WRITE !," Immunotherapy...........: ",$GET(ONC("SUB",IEN,SUBIEN,.081))," ",$GET(ONC("SUB",IEN,SUBIEN,.08))
+232 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+233 SET TXT=$GET(ONC("SUB",IEN,SUBIEN,.09))
DO TXT
+234 WRITE !," Other Treatment.........: ",$GET(ONC("SUB",IEN,SUBIEN,.091))," ",TXT1
+235 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+236 if TXT2'=""
WRITE !,?41,TXT2
+237 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+238 WRITE !
+239 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
End DoDot:3
End DoDot:2
+240 WRITE !," Cancer Status..............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,95)
+241 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+242 WRITE !," Date Last Contact..........: ",^UTILITY("DIQ1",$JOB,165.5,IEN,200)
+243 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+244 WRITE !
+245 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+246 WRITE !
+247 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
End DoDot:1
+248 IF '$DATA(ONC(160.04))
WRITE !
QUIT
+249 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+250 WRITE " Follow-up"
+251 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+252 WRITE !," ---------"
+253 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+254 SET IEN=0
FOR CNT=1:1
SET IEN=$ORDER(ONC(160.04,IEN))
if IEN=""
QUIT
Begin DoDot:1
+255 if ONC(160.04,IEN,.01)'=ONC(160,PTIEN_",",16)
QUIT
+256 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+257 WRITE !," Last Contact or Death......: ",$GET(ONC(160.04,IEN,.01))
+258 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+259 WRITE !," Vital Status...............: ",$GET(ONC(160.04,IEN,1))
+260 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+261 WRITE !," Following Registry.........: ",$GET(ONC(160.04,IEN,10))
+262 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+263 WRITE !
+264 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
End DoDot:1
+265 SET IEN=0
FOR CNT=1:1
SET IEN=$ORDER(^UTILITY("DIQ1",$JOB,165.5,IEN))
if IEN=""
QUIT
Begin DoDot:1
+266 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+267 WRITE !," Primary Site...............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,20.1)," ",^UTILITY("DIQ1",$JOB,165.5,IEN,20)
+268 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+269 WRITE !," Cancer Status..............: ",^UTILITY("DIQ1",$JOB,165.5,IEN,95)
+270 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
+271 WRITE !
+272 DO CKP^GMTSUP
if $DATA(GMTSQIT)
QUIT
End DoDot:1
+273 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
