Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ONCPTX

Package: Oncology

Routine: ONCPTX


Information

ONCPTX ;HINES OIFO/GWB - First Course of Treatment ;10/05/11

Source Information

Source file <ONCPTX.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Oncology 2 FST^ONCOAIP  ^ONCOCC  
VA FileMan 2 $$GET1^DIQ  EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Oncology 1 ONCTXSM  

Entry Points

Name Comments DBIA/ICR reference
NCDS ;Surgical Diagnostic and Staging Procedure
ROADS ;Surgical Procedures (ROADS)
FORDS ;Surgical Procedures (FORDS)
RAD ;Radiation
ST ;Systemic Therapy
OTH ;Other Treatment
PRO ;Palliative Care/Protocol Participation
TXT ;Text formatting
UCASE ;Mixed case to upper case conversion
EXIT ;KILL local varibles
CLEANUP ;Cleanup

External References

Name Field # of Occurrence
$$GET1^DIQ NCDS+2
EN^DIQ1 NCDS+17, ROADS+5, FORDS+9, RAD+6, ST+8, OTH+8, PRO+8
FST^ONCOAIP NCDS+19, ROADS+7, FORDS+11, RAD+1, ST+1, OTH+1, PRO+1
^ONCOCC NCDS+39

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," SURGICAL DIAGNOSTIC AND STAGING PROCEDURE"
  • Line Location: NCDS+20
Function Call: WRITE
  • Prompt: !," -----------------------------------------"
  • Line Location: NCDS+21
Function Call: WRITE
  • Prompt: !," Surgical Dx/Staging Proc.....: ",$E(ONC(165.5,D0,58.3),1,6)_$E(ONC(165.5,D0,58.3),9,10),?41,TXT1
  • Line Location: NCDS+23
Function Call: WRITE
  • Prompt: !," Surg Dx/Staging Proc @fac....: ",$E(ONC(165.5,D0,58.5),1,6)_$E(ONC(165.5,D0,58.5),9,10),?41,TXT1
  • Line Location: NCDS+26
Function Call: WRITE
  • Prompt: !!," Tx Guidelines Discussion.....: ",ONC(165.5,D0,281)
  • Line Location: NCDS+28
Function Call: WRITE
  • Prompt: !," Treatment Guideline(s).......: ",TXGL
  • Line Location: NCDS+33
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: NCDS+38
Function Call: WRITE
  • Prompt: !," Pre-2003 cases require the following ROADS surgery items to be coded:"
  • Line Location: ROADS+9
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: ROADS+10
Function Call: WRITE
  • Prompt: !," Surgical Approach.........(R): ",ONC(165.5,DA,74)
  • Line Location: ROADS+13
Function Call: WRITE
  • Prompt: !," Number of LN removed..... (R): ",ONC(165.5,D0,140)
  • Line Location: ROADS+18
Function Call: WRITE
  • Prompt: !," Number of LN removed @fac.(R): ",ONC(165.5,D0,140.1)
  • Line Location: ROADS+21
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: ROADS+26
Function Call: WRITE
  • Prompt: !," Surgery of primary........(F): ",$E(ONC(165.5,D0,50),1,6)_$E(ONC(165.5,D0,50),9,10),?41,TXT1
  • Line Location: FORDS+15
Function Call: WRITE
  • Prompt: !," Surgery of primary @fac...(F): ",$E(ONC(165.5,D0,50.3),1,6)_$E(ONC(165.5,D0,50.3),9,10),?41,TXT1
  • Line Location: FORDS+18
Function Call: WRITE
  • Prompt: !," Surgical margins.............: ",ONC(165.5,DA,59)
  • Line Location: FORDS+20
Function Call: WRITE
  • Prompt: !," Scope of ln surgery.......(F): ",$E(ONC(165.5,D0,138.2),1,6)_$E(ONC(165.5,D0,138.2),9,10),?41,TXT1
  • Line Location: FORDS+23
Function Call: WRITE
  • Prompt: !," Scope of ln surgery @fac..(F): ",$E(ONC(165.5,D0,138.3),1,6)_$E(ONC(165.5,D0,138.3),9,10),?41,TXT1
  • Line Location: FORDS+26
Function Call: WRITE
  • Prompt: !," Surg proc/other site......(F): ",$E(ONC(165.5,D0,139.2),1,6)_$E(ONC(165.5,D0,139.2),9,10),?41,TXT1
  • Line Location: FORDS+29
Function Call: WRITE
  • Prompt: !," METS site resected...........: ",$E(ONC(165.5,D0,139.7),1,6)_$E(ONC(165.5,D0,139.7),9,10),?41,TXT1
  • Line Location: FORDS+32
Function Call: WRITE
  • Prompt: !," Surg proc/other site @fac.(F): ",$E(ONC(165.5,D0,139.3),1,6)_$E(ONC(165.5,D0,139.3),9,10),?41,TXT1
  • Line Location: FORDS+35
Function Call: WRITE
  • Prompt: !," Date First Surgical Procedure: ",$E(ONC(165.5,D0,170),1,6)_$E(ONC(165.5,D0,170),9,10)
  • Line Location: FORDS+37
Function Call: WRITE
  • Prompt: !," Date of surgical discharge...: ",$E(ONC(165.5,D0,435),1,6)_$E(ONC(165.5,D0,435),9,10)
  • Line Location: FORDS+41
Function Call: WRITE
  • Prompt: !," Readmission w/i 30 days/surg.: ",ONC(165.5,D0,14)
  • Line Location: FORDS+42
Function Call: WRITE
  • Prompt: !," Reason no surgery of primary.: ",ONC(165.5,D0,58)
  • Line Location: FORDS+43
Function Call: WRITE
  • Prompt: !," CAP Protocol Review..........: ",ONC(165.5,D0,46)
  • Line Location: FORDS+44
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: FORDS+46
Function Call: WRITE
  • Prompt: !," Radiation....................: ",ONC(165.5,DA,51.2)
  • Line Location: RAD+9
Function Call: WRITE
  • Prompt: !," Date radiation started.......: ",ONC(165.5,DA,51)
  • Line Location: RAD+10
Function Call: WRITE
  • Prompt: !," Radiation @fac...............: ",ONC(165.5,DA,51.5)," ",ONC(165.5,DA,51.4)
  • Line Location: RAD+11
Function Call: WRITE
  • Prompt: !," Location of radiation tx.....: ",ONC(165.5,DA,126)
  • Line Location: RAD+12
Function Call: WRITE
  • Prompt: !," Phase II rad treatment volume..........: ",ONC(165.5,DA,5514)
  • Line Location: RAD+28
Function Call: WRITE
  • Prompt: !," Phase II rad to draining lymph nodes...: ",ONC(165.5,DA,5515)
  • Line Location: RAD+29
Function Call: WRITE
  • Prompt: !," Phase II treatment modality............: ",ONC(165.5,DA,5516)
  • Line Location: RAD+30
Function Call: WRITE
  • Prompt: !," Phase II rad external beam planning....: ",ONC(165.5,DA,5512)
  • Line Location: RAD+31
Function Call: WRITE
  • Prompt: !," Phase II dose per fraction.............: ",ONC(165.5,DA,5511)
  • Line Location: RAD+32
Function Call: WRITE
  • Prompt: !," Phase II number of fractions...........: ",ONC(165.5,DA,5513)
  • Line Location: RAD+33
Function Call: WRITE
  • Prompt: !," Phase II total dose....................: ",ONC(165.5,DA,5517)
  • Line Location: RAD+34
Function Call: WRITE
  • Prompt: !," Phase III rad treatment volume.........: ",ONC(165.5,DA,5524)
  • Line Location: RAD+35
Function Call: WRITE
  • Prompt: !," Phase III rad to draining lymph nodes..: ",ONC(165.5,DA,5525)
  • Line Location: RAD+36
Function Call: WRITE
  • Prompt: !," Phase III treatment modality...........: ",ONC(165.5,DA,5526)
  • Line Location: RAD+37
Function Call: WRITE
  • Prompt: !," Phase III rad external beam planning...: ",ONC(165.5,DA,5522)
  • Line Location: RAD+38
Function Call: WRITE
  • Prompt: !," Phase III dose per fraction............: ",ONC(165.5,DA,5521)
  • Line Location: RAD+39
Function Call: WRITE
  • Prompt: !," Phase III number of fractions..........: ",ONC(165.5,DA,5523)
  • Line Location: RAD+40
Function Call: WRITE
  • Prompt: !," Phase III total dose...................: ",ONC(165.5,DA,5527)
  • Line Location: RAD+41
Function Call: WRITE
  • Prompt: !," Radiation/surgery sequence...: ",ONC(165.5,DA,51.3)
  • Line Location: RAD+45
Function Call: WRITE
  • Prompt: !," Date radiation ended.........: ",ONC(165.5,DA,361)
  • Line Location: RAD+46
Function Call: WRITE
  • Prompt: !," Reason for no radiation......: ",ONC(165.5,DA,75)
  • Line Location: RAD+47
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: RAD+48
Function Call: WRITE
  • Prompt: !," Date systemic therapy started.: ",ONC(165.5,DA,152)
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: !," Chemotherapy..................: ",ONC(165.5,DA,53)," ",$E(ONC(165.5,DA,53.2),1,34)
  • Line Location: ST+11
Function Call: WRITE
  • Prompt: !," Chemotherapy @fac.............: ",ONC(165.5,DA,53.4)," ",$E(ONC(165.5,DA,53.3),1,34)
  • Line Location: ST+12
Function Call: WRITE
  • Prompt: !," Hormone therapy...............: ",ONC(165.5,DA,54)," ",$E(ONC(165.5,DA,54.2),1,34)
  • Line Location: ST+18
Function Call: WRITE
  • Prompt: !," Hormone therapy @fac..........: ",ONC(165.5,DA,54.4)," ",$E(ONC(165.5,DA,54.3),1,34)
  • Line Location: ST+19
Function Call: WRITE
  • Prompt: !," Immunotherapy.................: ",ONC(165.5,DA,55)," ",$E(ONC(165.5,DA,55.2),1,34)
  • Line Location: ST+20
Function Call: WRITE
  • Prompt: !," Immunotherapy @fac............: ",ONC(165.5,DA,55.4)," ",$E(ONC(165.5,DA,55.3),1,34)
  • Line Location: ST+21
Function Call: WRITE
  • Prompt: !," Hema Trans/Endocrine Proc.....: ",ONC(165.5,DA,153.1)," ",$E(ONC(165.5,DA,153),1,34)
  • Line Location: ST+22
Function Call: WRITE
  • Prompt: !," Hema Trans/Endocrine Proc @fac: ",ONC(165.5,DA,153.3)," ",$E(ONC(165.5,DA,153.2),1,34)
  • Line Location: ST+23
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: ST+25
Function Call: WRITE
  • Prompt: !," Other treatment...............: ",ONC(165.5,DA,57)," ",ONC(165.5,DA,57.2)
  • Line Location: OTH+10
Function Call: WRITE
  • Prompt: !," Other treatment @fac..........: ",ONC(165.5,DA,57.4)," ",ONC(165.5,DA,57.3)
  • Line Location: OTH+11
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: OTH+12
Function Call: WRITE
  • Prompt: !," Palliative care...............: ",ONC(165.5,DA,12)
  • Line Location: PRO+10
Function Call: WRITE
  • Prompt: !," Palliative care @fac..........: ",ONC(165.5,DA,13)
  • Line Location: PRO+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO+12
Function Call: WRITE
  • Prompt: !," Clinical Trials Discussion....: "_ONC(165.5,DA,279)
  • Line Location: PRO+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRO+14
Function Call: WRITE
  • Prompt: !," Protocol eligibility status...: "_ONC(165.5,DA,346)
  • Line Location: PRO+15
Function Call: WRITE
  • Prompt: !," Protocol participation........: "_ONC(165.5,DA,560)
  • Line Location: PRO+16
Function Call: WRITE
  • Prompt: !," Year put on protocol..........: "_ONC(165.5,DA,133)
  • Line Location: PRO+17
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: PRO+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ONCO(165.5 - [#165.5] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ONCO(165.5 - [#165.5] ONCPTX+4, NCDS+4*, NCDS+5*, NCDS+6*, NCDS+7*, NCDS+8*, NCDS+9, NCDS+10, NCDS+11*, NCDS+12!
, FORDS+2, FORDS+4*, FORDS+5*, RAD+9, RAD+11, RAD+13, RAD+20

Label References

Name Line Occurrences
EXIT NCDS+40, ROADS+27, FORDS+47, RAD+49, ST+26, OTH+13, PRO+19
TXT NCDS+22, NCDS+25, ROADS+11, ROADS+14, ROADS+16, ROADS+19, ROADS+22, ROADS+24, FORDS+14, FORDS+17
, FORDS+22, FORDS+25, FORDS+28, FORDS+31, FORDS+34, FORDS+38
UCASE NCDS+18, ROADS+6, FORDS+10, RAD+7, RAD+8, ST+9, OTH+9, PRO+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COC NCDS+1~, NCDS+2*, NCDS+3, NCDS+39
D0 ONCPTX+4, NCDS+2, NCDS+4, NCDS+5, NCDS+6, NCDS+7, NCDS+8, NCDS+9, NCDS+10, NCDS+11
, NCDS+12, NCDS+17, NCDS+18, NCDS+22, NCDS+23, NCDS+25, NCDS+26, NCDS+28, NCDS+30, NCDS+31
, NCDS+32, NCDS+34, NCDS+35, NCDS+36, NCDS+37, ROADS+5, ROADS+6, ROADS+11, ROADS+14, ROADS+16
, ROADS+18, ROADS+19, ROADS+21, ROADS+22, ROADS+24, FORDS+2, FORDS+4, FORDS+5, FORDS+9, FORDS+10
, FORDS+14, FORDS+15, FORDS+17, FORDS+18, FORDS+22, FORDS+23, FORDS+25, FORDS+26, FORDS+28, FORDS+29
, FORDS+31, FORDS+32, FORDS+34, FORDS+35, FORDS+37, FORDS+38, FORDS+41, FORDS+42, FORDS+43, FORDS+44
, FORDS+45, RAD+6, RAD+7, RAD+8, RAD+9, RAD+11, RAD+13, RAD+20, ST+8, ST+9
, OTH+8, OTH+9, PRO+8, PRO+9, CLEANUP+1!
DA NCDS+14~, NCDS+17*, ROADS+2~, ROADS+5*, ROADS+13, FORDS+6~, FORDS+9*, FORDS+20, FORDS+21, RAD+3~
, RAD+6*, RAD+9, RAD+10, RAD+11, RAD+12, RAD+14, RAD+15, RAD+16, RAD+17, RAD+18
, RAD+19, RAD+21, RAD+22, RAD+23, RAD+24, RAD+25, RAD+26, RAD+27, RAD+28, RAD+29
, RAD+30, RAD+31, RAD+32, RAD+33, RAD+34, RAD+35, RAD+36, RAD+37, RAD+38, RAD+39
, RAD+40, RAD+41, RAD+42, RAD+43, RAD+44, RAD+45, RAD+46, RAD+47, ST+5~, ST+8*
, ST+10, ST+11, ST+12, ST+13, ST+14, ST+15, ST+16, ST+17, ST+18, ST+19
, ST+20, ST+21, ST+22, ST+23, ST+24, OTH+5~, OTH+8*, OTH+10, OTH+11, PRO+5~
, PRO+8*, PRO+10, PRO+11, PRO+13, PRO+15, PRO+16, PRO+17
DASHES NCDS+13~*, NCDS+38, ROADS+1~*, ROADS+10, ROADS+26, FORDS+1~*, FORDS+46, RAD+2~*, RAD+48, ST+2~*
, ST+25, OTH+2~*, OTH+12, PRO+2~*, PRO+18
DATEDX ONCPTX+3~, ONCPTX+4*, NCDS+36, FORDS+21, FORDS+39, ST+24
DI NCDS+14~, ROADS+2~, FORDS+6~, RAD+3~, ST+5~, OTH+5~, PRO+5~
DIC NCDS+14~, NCDS+15*, ROADS+2~, ROADS+3*, FORDS+6~, FORDS+7*, RAD+3~, RAD+4*, ST+5~, ST+6*
, OTH+5~, OTH+6*, PRO+5~, PRO+6*
DIQ NCDS+14~, NCDS+17*, ROADS+2~, ROADS+5*, FORDS+6~, FORDS+9*, RAD+3~, RAD+6*, ST+5~, ST+8*
, OTH+5~, OTH+8*, PRO+5~, PRO+8*
DR NCDS+14~, NCDS+16*, ROADS+2~, ROADS+4*, FORDS+6~, FORDS+8*, RAD+3~, RAD+5*, ST+5~, ST+7*
, OTH+5~, OTH+7*, PRO+5~, PRO+7*
I NCDS+18*, ROADS+6*, FORDS+10*, RAD+7*, RAD+8*, ST+9*, OTH+9*, PRO+9*, EXIT+1!
LEN NCDS+22*, NCDS+25*, ROADS+11*, ROADS+14*, ROADS+16*, ROADS+19*, ROADS+22*, ROADS+24*, FORDS+14*, FORDS+17*
, FORDS+22*, FORDS+25*, FORDS+28*, FORDS+31*, FORDS+34*, FORDS+38*, TXT+2, TXT+3, EXIT+1!
LOS TXT+1~, TXT+2*
NOP TXT+1~, TXT+3*, TXT+4
ONC NCDS+14!, ROADS+2!, FORDS+6!, RAD+3!, ST+5!, OTH+5!, PRO+5!, EXIT+1!
ONC( NCDS+18*, NCDS+22, NCDS+23, NCDS+25, NCDS+26, NCDS+28, NCDS+30, NCDS+31, NCDS+32, NCDS+34
, NCDS+35, NCDS+36, NCDS+37, ROADS+6*, ROADS+11, ROADS+13, ROADS+14, ROADS+16, ROADS+18, ROADS+19
, ROADS+21, ROADS+22, ROADS+24, FORDS+10*, FORDS+14, FORDS+15, FORDS+17, FORDS+18, FORDS+20, FORDS+21
, FORDS+22, FORDS+23, FORDS+25, FORDS+26, FORDS+28, FORDS+29, FORDS+31, FORDS+32, FORDS+34, FORDS+35
, FORDS+37, FORDS+38, FORDS+41, FORDS+42, FORDS+43, FORDS+44, FORDS+45, RAD+7*, RAD+8*, RAD+9
, RAD+10, RAD+11, RAD+12, RAD+14, RAD+15, RAD+16, RAD+17, RAD+18, RAD+19, RAD+21
, RAD+22, RAD+23, RAD+24, RAD+25, RAD+26, RAD+27, RAD+28, RAD+29, RAD+30, RAD+31
, RAD+32, RAD+33, RAD+34, RAD+35, RAD+36, RAD+37, RAD+38, RAD+39, RAD+40, RAD+41
, RAD+42, RAD+43, RAD+44, RAD+45, RAD+46, RAD+47, ST+9*, ST+10, ST+11, ST+12
, ST+13, ST+14, ST+15, ST+16, ST+17, ST+18, ST+19, ST+20, ST+21, ST+22
, ST+23, ST+24, OTH+9*, OTH+10, OTH+11, PRO+9*, PRO+10, PRO+11, PRO+13, PRO+15
, PRO+16, PRO+17
TOPX FORDS+2*, FORDS+3, EXIT+1!
TXDT NCDS+1~, NCDS+10*, NCDS+12
TXGL NCDS+29*, NCDS+30*, NCDS+31*, NCDS+32*, NCDS+33, NCDS+34, NCDS+35, EXIT+1!
TXT NCDS+22*, NCDS+25*, ROADS+11*, ROADS+14*, ROADS+16*, ROADS+19*, ROADS+22*, ROADS+24*, FORDS+14*, FORDS+17*
, FORDS+22*, FORDS+25*, FORDS+28*, FORDS+31*, FORDS+34*, FORDS+38*, TXT+2, TXT+3, TXT+4, EXIT+1!
TXT1 NCDS+23, NCDS+26, ROADS+12, ROADS+15, ROADS+17, ROADS+20, ROADS+23, ROADS+25, FORDS+15, FORDS+18
, FORDS+23, FORDS+26, FORDS+29, FORDS+32, FORDS+35, FORDS+39, TXT+2*, TXT+4*, EXIT+1!
TXT2 NCDS+24, NCDS+27, ROADS+12, ROADS+15, ROADS+17, ROADS+20, ROADS+23, ROADS+25, FORDS+16, FORDS+19
, FORDS+24, FORDS+27, FORDS+30, FORDS+33, FORDS+36, FORDS+40, TXT+2*, TXT+4*, EXIT+1!
U ONCPTX+4, NCDS+4, NCDS+5, NCDS+6, NCDS+7, NCDS+8, NCDS+9, NCDS+10, NCDS+11, FORDS+2
, FORDS+4, FORDS+5
X NCDS+18*, ROADS+6*, FORDS+10*, RAD+7*, RAD+8*, ST+9*, OTH+9*, PRO+9*, UCASE+1*, EXIT+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All