Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMTSONE1

Package: Health Summary

Routine: GMTSONE1


Information

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

Source Information

Source file <GMTSONE1.m>

Entry Points

Name Comments DBIA/ICR reference
DISPLAY ; Display Extracted Data
TXT ; Print Formatted Text

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " #",CNT," Cancer Identification"
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !," ------------------------"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !," Class of Case..............: ",TXT1
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: !," Date Dx....................: ",^UTILITY("DIQ1",$J,165.5,IEN,3)
  • Line Location: DISPLAY+14
Function Call: WRITE
  • Prompt: !," Date of First Contact......: ",^UTILITY("DIQ1",$J,165.5,IEN,155)
  • Line Location: DISPLAY+16
Function Call: WRITE
  • Prompt: !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,20)
  • Line Location: DISPLAY+18
Function Call: WRITE
  • Prompt: !," Laterality.................: ",^UTILITY("DIQ1",$J,165.5,IEN,28)
  • Line Location: DISPLAY+20
Function Call: WRITE
  • Prompt: !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
  • Line Location: DISPLAY+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPLAY+26
Function Call: WRITE
  • Prompt: !," Histology (ICD-O-2)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22)
  • Line Location: DISPLAY+29
Function Call: WRITE
  • Prompt: !," Histology (ICD-O-3)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22.3)
  • Line Location: DISPLAY+32
Function Call: WRITE
  • Prompt: !," Grade/Differentiation......: ",^UTILITY("DIQ1",$J,165.5,IEN,24)
  • Line Location: DISPLAY+34
Function Call: WRITE
  • Prompt: !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
  • Line Location: DISPLAY+36
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+38
Function Call: WRITE
  • Prompt: !," #",CNT," Stage of Disease at Diagnosis"
  • Line Location: DISPLAY+40
Function Call: WRITE
  • Prompt: !," --------------------------------"
  • Line Location: DISPLAY+42
Function Call: WRITE
  • Prompt: !," Tumor Size.................: ",^UTILITY("DIQ1",$J,165.5,IEN,29)
  • Line Location: DISPLAY+44
Function Call: WRITE
  • Prompt: !," Regional Nodes Examined....: ",^UTILITY("DIQ1",$J,165.5,IEN,33)
  • Line Location: DISPLAY+46
Function Call: WRITE
  • Prompt: !," Regional Nodes Positive....: ",^UTILITY("DIQ1",$J,165.5,IEN,32)
  • Line Location: DISPLAY+48
Function Call: WRITE
  • Prompt: !," Clinical T.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.1)
  • Line Location: DISPLAY+50
Function Call: WRITE
  • Prompt: !," Clinical N.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.2)
  • Line Location: DISPLAY+52
Function Call: WRITE
  • Prompt: !," Clinical M.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.3)
  • Line Location: DISPLAY+54
Function Call: WRITE
  • Prompt: !," Clinical Stage Group.......: ",^UTILITY("DIQ1",$J,165.5,IEN,38)
  • Line Location: DISPLAY+56
Function Call: WRITE
  • Prompt: !," Pathologic T...............: ",^UTILITY("DIQ1",$J,165.5,IEN,85)
  • Line Location: DISPLAY+58
Function Call: WRITE
  • Prompt: !," Pathologic N...............: ",^UTILITY("DIQ1",$J,165.5,IEN,86)
  • Line Location: DISPLAY+60
Function Call: WRITE
  • Prompt: !," Pathologic M...............: ",^UTILITY("DIQ1",$J,165.5,IEN,87)
  • Line Location: DISPLAY+62
Function Call: WRITE
  • Prompt: !," Pathologic Stage Group.....: ",^UTILITY("DIQ1",$J,165.5,IEN,88)
  • Line Location: DISPLAY+64
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+66
Function Call: WRITE
  • Prompt: !," #",CNT," Collaborative Staging"
  • Line Location: DISPLAY+70
Function Call: WRITE
  • Prompt: !," ------------------------"
  • Line Location: DISPLAY+72
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 T...........: ",^UTILITY("DIQ1",$J,165.5,IEN,160)
  • Line Location: DISPLAY+74
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 T Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,161)
  • Line Location: DISPLAY+76
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 N...........: ",^UTILITY("DIQ1",$J,165.5,IEN,162)
  • Line Location: DISPLAY+78
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 N Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,163)
  • Line Location: DISPLAY+80
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 M...........: ",^UTILITY("DIQ1",$J,165.5,IEN,164)
  • Line Location: DISPLAY+82
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 M Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,165)
  • Line Location: DISPLAY+84
Function Call: WRITE
  • Prompt: !," Derived AJCC-6 Stage Group.: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
  • Line Location: DISPLAY+86
Function Call: WRITE
  • Prompt: !," Extension (CS).............: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
  • Line Location: DISPLAY+88
Function Call: WRITE
  • Prompt: !," Tumor Size/Ext Eval (CS)...: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
  • Line Location: DISPLAY+90
Function Call: WRITE
  • Prompt: !," Lymph Nodes (CS)...........: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
  • Line Location: DISPLAY+92
Function Call: WRITE
  • Prompt: !," Lymph Nodes Eval (CS)......: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
  • Line Location: DISPLAY+94
Function Call: WRITE
  • Prompt: !," Mets at DX (CS)............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.3)
  • Line Location: DISPLAY+96
Function Call: WRITE
  • Prompt: !," Mets at DX-Bone............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.31)
  • Line Location: DISPLAY+98
Function Call: WRITE
  • Prompt: !," Mets at DX-Brain...........: ",^UTILITY("DIQ1",$J,165.5,IEN,34.32)
  • Line Location: DISPLAY+100
Function Call: WRITE
  • Prompt: !," Mets at DX-Liver...........: ",^UTILITY("DIQ1",$J,165.5,IEN,34.33)
  • Line Location: DISPLAY+102
Function Call: WRITE
  • Prompt: !," Mets at DX-Lung............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.34)
  • Line Location: DISPLAY+104
Function Call: WRITE
  • Prompt: !," Mets Eval (CS).............: ",^UTILITY("DIQ1",$J,165.5,IEN,34.4)
  • Line Location: DISPLAY+106
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 T...........: ",^UTILITY("DIQ1",$J,165.5,IEN,160.7)
  • Line Location: DISPLAY+108
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 T Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,161.7)
  • Line Location: DISPLAY+110
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 N...........: ",^UTILITY("DIQ1",$J,165.5,IEN,162.7)
  • Line Location: DISPLAY+112
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 N Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,163.7)
  • Line Location: DISPLAY+114
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 M...........: ",^UTILITY("DIQ1",$J,165.5,IEN,164.7)
  • Line Location: DISPLAY+116
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 M Descriptor: ",^UTILITY("DIQ1",$J,165.5,IEN,165.7)
  • Line Location: DISPLAY+118
Function Call: WRITE
  • Prompt: !," Derived AJCC-7 Stage Group.: ",^UTILITY("DIQ1",$J,165.5,IEN,166.7)
  • Line Location: DISPLAY+120
Function Call: WRITE
  • Prompt: !," Derived SS1977.............: ",^UTILITY("DIQ1",$J,165.5,IEN,167)
  • Line Location: DISPLAY+122
Function Call: WRITE
  • Prompt: !," Derived SS2000.............: ",^UTILITY("DIQ1",$J,165.5,IEN,168)
  • Line Location: DISPLAY+124
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+126
Function Call: WRITE
  • Prompt: !," #",CNT," First Course of Treatment"
  • Line Location: DISPLAY+128
Function Call: WRITE
  • Prompt: !," ----------------------------"
  • Line Location: DISPLAY+130
Function Call: WRITE
  • Prompt: !," Surgical Dx/Staging Proc...: ",^UTILITY("DIQ1",$J,165.5,IEN,58.3)," ",TXT1
  • Line Location: DISPLAY+133
Function Call: WRITE
  • Prompt: !," Surgery of primary site....: ",^UTILITY("DIQ1",$J,165.5,IEN,50)," ",TXT1
  • Line Location: DISPLAY+138
Function Call: WRITE
  • Prompt: !," Surgery of primary site@FAC: ",^UTILITY("DIQ1",$J,165.5,IEN,50.3)," ",TXT1
  • Line Location: DISPLAY+143
Function Call: WRITE
  • Prompt: !," Surg of other site.........: ",^UTILITY("DIQ1",$J,165.5,IEN,139.2)," ",TXT1
  • Line Location: DISPLAY+148
Function Call: WRITE
  • Prompt: !," Surg of other site @FAC....: ",^UTILITY("DIQ1",$J,165.5,IEN,139.3)," ",TXT1
  • Line Location: DISPLAY+153
Function Call: WRITE
  • Prompt: !," METS Site Resected.........: ",^UTILITY("DIQ1",$J,165.5,IEN,139.7)," ",^UTILITY("DIQ1",$J,165.5,IEN,139.6)
  • Line Location: DISPLAY+157
Function Call: WRITE
  • Prompt: !," Reason for no surgery......: ",^UTILITY("DIQ1",$J,165.5,IEN,58)
  • Line Location: DISPLAY+159
Function Call: WRITE
  • Prompt: !," Radiation..................: ",^UTILITY("DIQ1",$J,165.5,IEN,51)," ",^UTILITY("DIQ1",$J,165.5,IEN,51.2)
  • Line Location: DISPLAY+161
Function Call: WRITE
  • Prompt: !," Radiation @FAC.............: ",^UTILITY("DIQ1",$J,165.5,IEN,51.5)," ",^UTILITY("DIQ1",$J,165.5,IEN,51.4)
  • Line Location: DISPLAY+163
Function Call: WRITE
  • Prompt: !," Regional dose:cGy..........: ",^UTILITY("DIQ1",$J,165.5,IEN,442)
  • Line Location: DISPLAY+165
Function Call: WRITE
  • Prompt: !," Boost dose:cGy.............: ",^UTILITY("DIQ1",$J,165.5,IEN,443)
  • Line Location: DISPLAY+167
Function Call: WRITE
  • Prompt: !," Radiation treatment volume.: ",^UTILITY("DIQ1",$J,165.5,IEN,125)
  • Line Location: DISPLAY+169
Function Call: WRITE
  • Prompt: !," Reason for no radiation....: ",^UTILITY("DIQ1",$J,165.5,IEN,75)
  • Line Location: DISPLAY+171
Function Call: WRITE
  • Prompt: !," Chemotherapy...............: ",^UTILITY("DIQ1",$J,165.5,IEN,53)," ",^UTILITY("DIQ1",$J,165.5,IEN,53.2)
  • Line Location: DISPLAY+173
Function Call: WRITE
  • Prompt: !," Chemotherapy @FAC..........: ",^UTILITY("DIQ1",$J,165.5,IEN,53.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,53.3)
  • Line Location: DISPLAY+175
Function Call: WRITE
  • Prompt: !," Hormone therapy............: ",^UTILITY("DIQ1",$J,165.5,IEN,54)," ",^UTILITY("DIQ1",$J,165.5,IEN,54.2)
  • Line Location: DISPLAY+177
Function Call: WRITE
  • Prompt: !," Hormone therapy @FAC.......: ",^UTILITY("DIQ1",$J,165.5,IEN,54.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,54.3)
  • Line Location: DISPLAY+179
Function Call: WRITE
  • Prompt: !," Immunotherapy..............: ",^UTILITY("DIQ1",$J,165.5,IEN,55)," ",^UTILITY("DIQ1",$J,165.5,IEN,55.2)
  • Line Location: DISPLAY+181
Function Call: WRITE
  • Prompt: !," Immunotherapy @FAC.........: ",^UTILITY("DIQ1",$J,165.5,IEN,55.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,55.3)
  • Line Location: DISPLAY+183
Function Call: WRITE
  • Prompt: !," Hema Trans/Endocrine Proc..: ",^UTILITY("DIQ1",$J,165.5,IEN,153.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,153)
  • Line Location: DISPLAY+185
Function Call: WRITE
  • Prompt: !," Hema Trans/Endocrine @FAC..: ",^UTILITY("DIQ1",$J,165.5,IEN,153.3)," ",^UTILITY("DIQ1",$J,165.5,IEN,153.2)
  • Line Location: DISPLAY+187
Function Call: WRITE
  • Prompt: !," Other treatment............: ",^UTILITY("DIQ1",$J,165.5,IEN,57)," ",^UTILITY("DIQ1",$J,165.5,IEN,57.2)
  • Line Location: DISPLAY+189
Function Call: WRITE
  • Prompt: !," Other treatment @FAC.......: ",^UTILITY("DIQ1",$J,165.5,IEN,57.4)," ",^UTILITY("DIQ1",$J,165.5,IEN,57.3)
  • Line Location: DISPLAY+191
Function Call: WRITE
  • Prompt: !," Palliative Care............: ",^UTILITY("DIQ1",$J,165.5,IEN,12)
  • Line Location: DISPLAY+193
Function Call: WRITE
  • Prompt: !," Palliative Care @FAC.......: ",^UTILITY("DIQ1",$J,165.5,IEN,13)
  • Line Location: DISPLAY+195
Function Call: WRITE
  • Prompt: !," Protocol eligibility status: ",^UTILITY("DIQ1",$J,165.5,IEN,346)
  • Line Location: DISPLAY+197
Function Call: WRITE
  • Prompt: !," Protocol participation.....: ",^UTILITY("DIQ1",$J,165.5,IEN,560)
  • Line Location: DISPLAY+199
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+201
Function Call: WRITE
  • Prompt: !," #",CNT," Subsequent Treatment"
  • Line Location: DISPLAY+204
Function Call: WRITE
  • Prompt: !," -----------------------"
  • Line Location: DISPLAY+206
Function Call: WRITE
  • Prompt: !," ",SUBLET_"."," Surgery of primary site.: ",$G(ONC("SUB",IEN,SUBIEN,.041))," ",TXT1
  • Line Location: DISPLAY+212
Function Call: WRITE
  • Prompt: !," Scope of LN Surgery.....: ",$G(ONC("SUB",IEN,SUBIEN,38))," ",$G(ONC("SUB",IEN,SUBIEN,35))
  • Line Location: DISPLAY+216
Function Call: WRITE
  • Prompt: !," Surgical Proc/Other Site: ",$G(ONC("SUB",IEN,SUBIEN,39))," ",$G(ONC("SUB",IEN,SUBIEN,36))
  • Line Location: DISPLAY+218
Function Call: WRITE
  • Prompt: !," METS Site Resected......: ",$G(ONC("SUB",IEN,SUBIEN,41))," ",$G(ONC("SUB",IEN,SUBIEN,40))
  • Line Location: DISPLAY+220
Function Call: WRITE
  • Prompt: !," Radiation...............: ",$G(ONC("SUB",IEN,SUBIEN,.051))," ",$G(ONC("SUB",IEN,SUBIEN,.05))
  • Line Location: DISPLAY+222
Function Call: WRITE
  • Prompt: !," Chemotherapy............: ",$G(ONC("SUB",IEN,SUBIEN,.061))," ",$G(ONC("SUB",IEN,SUBIEN,.06))
  • Line Location: DISPLAY+224
Function Call: WRITE
  • Prompt: !," Hormone therapy.........: ",$G(ONC("SUB",IEN,SUBIEN,.071))," ",TXT1
  • Line Location: DISPLAY+227
Function Call: WRITE
  • Prompt: !," Immunotherapy...........: ",$G(ONC("SUB",IEN,SUBIEN,.081))," ",$G(ONC("SUB",IEN,SUBIEN,.08))
  • Line Location: DISPLAY+231
Function Call: WRITE
  • Prompt: !," Other Treatment.........: ",$G(ONC("SUB",IEN,SUBIEN,.091))," ",TXT1
  • Line Location: DISPLAY+234
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+238
Function Call: WRITE
  • Prompt: !," Cancer Status..............: ",^UTILITY("DIQ1",$J,165.5,IEN,95)
  • Line Location: DISPLAY+240
Function Call: WRITE
  • Prompt: !," Date Last Contact..........: ",^UTILITY("DIQ1",$J,165.5,IEN,200)
  • Line Location: DISPLAY+242
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+244
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+246
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+248
Function Call: WRITE
  • Prompt: " Follow-up"
  • Line Location: DISPLAY+250
Function Call: WRITE
  • Prompt: !," ---------"
  • Line Location: DISPLAY+252
Function Call: WRITE
  • Prompt: !," Last Contact or Death......: ",$G(ONC(160.04,IEN,.01))
  • Line Location: DISPLAY+257
Function Call: WRITE
  • Prompt: !," Vital Status...............: ",$G(ONC(160.04,IEN,1))
  • Line Location: DISPLAY+259
Function Call: WRITE
  • Prompt: !," Following Registry.........: ",$G(ONC(160.04,IEN,10))
  • Line Location: DISPLAY+261
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+263
Function Call: WRITE
  • Prompt: !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,20)
  • Line Location: DISPLAY+267
Function Call: WRITE
  • Prompt: !," Cancer Status..............: ",^UTILITY("DIQ1",$J,165.5,IEN,95)
  • Line Location: DISPLAY+269
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPLAY+271
Info |  Source |  Entry Points |  Interaction Calls