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: ONCOPA1

Package: Oncology

Routine: ONCOPA1


Information

ONCOPA1 ;Hines OIFO/GWB - [PA Print Complete Abstract (132c)] ;09/22/11

Source Information

Source file <ONCOPA1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  $$GET1^DIQ  EN^DIQ1  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Oncology 3 $$HIST^ONCFUNC  ^ONCOPA1A  $$PRINT^ONCOTM  

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: 7

Package Total Caller Graph
Oncology 7 ONCOGEN  ONCOPA1A  ONCOPA2  ONCOPA2A  ONCOPA3  ONCOPA3A  ONCOPMP  

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Print
CI ;Cancer Identification
PA1A
EXIT ;KILL variables
P ;Enter RETURN to continue
FORMAT ;
TASK ;Report Queued
HDR ;Header
MULT ;Entry point for option ABS...MA...3).
CLEANUP ;Cleanup

External References

Name Field # of Occurrence
DD^%DT PRINT+7, PRINT+47
NOW^%DTC PRINT+7
^%ZIS ONCOPA1+5
^%ZISC ONCOPA1+7, TASK+5
^%ZTLOAD TASK+5
$$GET1^DIQ CI+4
EN^DIQ1 PRINT+10, PRINT+13, PRINT+16, PRINT+20, PRINT+24, PRINT+28
^DIR CI+67, P+2
$$HIST^ONCFUNC CI+28
^ONCOPA1A PA1A
$$PRINT^ONCOTM CI+50, CI+52, CI+54

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONCOPA1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: !!?21,$E(ONCAB(165.5,IEN,.03),1,26)
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: " ACOS #: ",ONCAB(165.5,IEN,67)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: ?76,"Print Date: ",PRTDATE
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !," Patient Name: ",ONCAB(165.5,IEN,.02),?76,"SSN: ",ONCAB(160,PTIEN,2)
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !," Home Address: ",ONCAB(160,PTIEN,.119)
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !," ",ONCAB(160,PTIEN,.118)
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: !," County: ",ONCAB(160,PTIEN,.12)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !," Sex: ",$E(ONCAB(160,PTIEN,10),1,14),?44,"Race: ",$E(ONCAB(160,PTIEN,8),1,21),?76,"Ethnicity: ",ONCAB(160,PTIEN,9)
  • Line Location: PRINT+51
Function Call: WRITE
  • Prompt: !," Date of Birth: ",DOB
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: ?38," Age at DX: ",ONCAB(165.5,IEN,4)
  • Line Location: PRINT+53
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: CI+2
Function Call: WRITE
  • Prompt: !!," Accession Number: ",ONCAB(165.5,IEN,.05),?38,"Accession Year: ",ONCAB(165.5,IEN,.07),?76,"Sequence Number: ",ONCAB(165.5,IEN,.06)
  • Line Location: CI+5
Function Call: WRITE
  • Prompt: !," Date Dx: ",ONCAB(165.5,IEN,3)
  • Line Location: CI+6
Function Call: WRITE
  • Prompt: !," Dx Facility: ",ONCAB(165.5,IEN,5)
  • Line Location: CI+10
Function Call: WRITE
  • Prompt: !," Date of First Contact: ",ONCAB(165.5,IEN,155)
  • Line Location: CI+11
Function Call: WRITE
  • Prompt: !," Class of Case: ",ONCAB(165.5,IEN,.04)
  • Line Location: CI+14
Function Call: WRITE
  • Prompt: !," Date of First Symptoms: ",ONCAB(165.5,IEN,171)
  • Line Location: CI+15
Function Call: WRITE
  • Prompt: !," Date Start Workup Ordered: ",ONCAB(165.5,IEN,172)
  • Line Location: CI+16
Function Call: WRITE
  • Prompt: !," Date Workup Started: ",ONCAB(165.5,IEN,173)
  • Line Location: CI+17
Function Call: WRITE
  • Prompt: !," Type of Reporting Source: ",ONCAB(165.5,IEN,1.2)
  • Line Location: CI+18
Function Call: WRITE
  • Prompt: !," Site/Gp: ",ONCAB(165.5,IEN,.01)
  • Line Location: CI+19
Function Call: WRITE
  • Prompt: !," Primary Site Code: ",ONCAB(165.5,IEN,20.1)," "
  • Line Location: CI+20
Function Call: WRITE
  • Prompt: $P(^ONCO(164,TOP,0),U,1)
  • Line Location: CI+21
Function Call: WRITE
  • Prompt: !," Text-Primary Site Title: ",ONCAB(165.5,IEN,100)
  • Line Location: CI+22
Function Call: WRITE
  • Prompt: !," Laterality: ",ONCAB(165.5,IEN,28)
  • Line Location: CI+27
Function Call: WRITE
  • Prompt: !," Histology: ",$G(HIST)," ",ONCAB(165.5,IEN,HSTFLD)
  • Line Location: CI+29
Function Call: WRITE
  • Prompt: !," Text-Histology Title: ",ONCAB(165.5,IEN,101)
  • Line Location: CI+30
Function Call: WRITE
  • Prompt: !," Grade/Differentiation: ",ONCAB(165.5,IEN,24)," "
  • Line Location: CI+37
Function Call: WRITE
  • Prompt: $P(^ONCO(164.43,GR,0),U,2)
  • Line Location: CI+38
Function Call: WRITE
  • Prompt: !," AFIP/JPC Submission: ",ONCAB(165.5,IEN,83)
  • Line Location: CI+46
Function Call: WRITE
  • Prompt: !," Diagnostic Confirmation: ",ONCAB(165.5,IEN,26)
  • Line Location: CI+47
Function Call: WRITE
  • Prompt: !?(27-LEN),TM1,": ",ONCAB(165.5,IEN,25.1)
  • Line Location: CI+56
Function Call: WRITE
  • Prompt: !?(27-LEN),TM2,": ",ONCAB(165.5,IEN,25.2)
  • Line Location: CI+57
Function Call: WRITE
  • Prompt: !?(27-LEN),TM3,": ",ONCAB(165.5,IEN,25.3)
  • Line Location: CI+58
Function Call: WRITE
  • Prompt: !," Facility Referred From: ",ONCAB(165.5,IEN,6)
  • Line Location: CI+59
Function Call: WRITE
  • Prompt: !," Facility Referred To: ",ONCAB(165.5,IEN,7)
  • Line Location: CI+60
Function Call: WRITE
  • Prompt: !," Fee Basis: ",ONCAB(165.5,IEN,237,"E")
  • Line Location: CI+61
Function Call: WRITE
  • Prompt: !," Fee Basis Location: ",ONCAB(165.5,IEN,237.1,"E")
  • Line Location: CI+62
Function Call: WRITE
  • Prompt: !,"Presentation at Cancer Conf: ",ONCAB(165.5,IEN,120)
  • Line Location: CI+63
Function Call: WRITE
  • Prompt: !," Date of Cancer Conference: ",ONCAB(165.5,IEN,121)
  • Line Location: CI+64
Function Call: WRITE
  • Prompt: !," Casefinding Source: ",ONCAB(165.5,IEN,21,"E")
  • Line Location: CI+65
Function Call: WRITE
  • Prompt: !
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,"Report Queued",!
  • Line Location: TASK+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: CRA,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
  • Line Location: HDR+3
Routine Call
  • DIR
  • Line Location:
    • CI+67
    • P+2
Routine Call
  • %ZIS
  • Line Location:
    • ONCOPA1+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ONCO(160 - [#160] PRINT+27, PRINT+45
^ONCO(164 - [#164] CI+21
^ONCO(164.43 - [#164.43] CI+38
^ONCO(165.5 - [#165.5] PRINT+3, PRINT+6, PRINT+19, PRINT+23, CI+3

Label References

Name Line Occurrences
EXIT ONCOPA1+5, ONCOPA1+6, ONCOPA1+7, MULT+2, MULT+3
FORMAT PRINT+39, CI+1
HDR CI+67, P+3
P PRINT+43, PRINT+44, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRINT+53, CI+5, CI+6, CI+8
CI+9, CI+10, CI+11, CI+13, CI+14, CI+15, CI+16, CI+17, CI+18, CI+19
CI+21, CI+22, CI+24, CI+25, CI+26, CI+27, CI+29, CI+30, CI+38, CI+40
CI+41, CI+43, CI+44, CI+45, CI+46, CI+47, CI+56, CI+57, CI+58, CI+59
CI+60, CI+61, CI+62, CI+63, CI+64, CI+68
PA1A CI+67
PRINT ONCOPA1+7, MULT+3
TASK ONCOPA1+6, MULT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+7!
%ZIS ONCOPA1+5!*, ONCOPA1+7!, MULT+3!
CHST PRINT+27*, PRINT+28, EXIT+1!
CMIEN EXIT+1!
CNTR EXIT+1!
COC CI+4*, EXIT+1!
CRA PRINT+40*, EXIT+1!, HDR+2
D0 PRINT+3*, EXIT+1!
DA PRINT+10*, PRINT+13*, PRINT+16*, PRINT+18*, PRINT+22*, PRINT+26*, EXIT+1!
DA( PRINT+20*, PRINT+24*, PRINT+28*
DATEDX PRINT+6*, CI+7, CI+12, CI+23, CI+37, CI+39, CI+42, CI+49, EXIT+1!
DIC PRINT+8*, PRINT+11*, PRINT+14*, PRINT+17*, PRINT+21*, PRINT+25*, EXIT+1!
DIQ PRINT+8!, PRINT+10*, PRINT+11!, PRINT+13*, PRINT+14!, PRINT+16*, PRINT+17!, PRINT+18*, PRINT+21!, PRINT+22*
PRINT+25!, PRINT+26*, EXIT+1!
DIQ(0 PRINT+8*, PRINT+11*, PRINT+14*, PRINT+17*, PRINT+21*, PRINT+25*
DIR CI+67!, EXIT+1!, P+2!
DIR("A" CI+67*, P+2*
DIR(0 CI+67*, P+2*
DOB PRINT+45*, PRINT+47*, PRINT+52, EXIT+1!
DR PRINT+9*, PRINT+12*, PRINT+15*, PRINT+18*, PRINT+22*, PRINT+26*, EXIT+1!
DR( PRINT+18*, PRINT+22*, PRINT+26*
DTE EXIT+1!
DXDT EXIT+1!
ESPD PRINT+29, CLEANUP+1!
EX PRINT+4*, PRINT+43, PRINT+44, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRINT+53, CI+5, CI+6
CI+8, CI+9, CI+10, CI+11, CI+13, CI+14, CI+15, CI+16, CI+17, CI+18
CI+19, CI+21, CI+22, CI+24, CI+25, CI+26, CI+27, CI+29, CI+30, CI+38
CI+40, CI+41, CI+43, CI+44, CI+45, CI+46, CI+47, CI+56, CI+57, CI+58
CI+59, CI+60, CI+61, CI+62, CI+63, CI+64, CI+68, EXIT+1!, P+1, P+2*
FHDT EXIT+2!
FHIEN EXIT+2!
FHZN EXIT+2!
FILE PRINT+46*, PRINT+47, EXIT+2!
FLG EXIT+2!
FM EXIT+2!
FOLH EXIT+2!
FR EXIT+2!
GR CI+38*, EXIT+2!
HIST CI+28*, CI+29, EXIT+2!
HSTFLD CI+28, CI+29, EXIT+2!
IC EXIT+2!
ICDCD EXIT+2!
IEN PRINT+3*, PRINT+6, PRINT+19, PRINT+23, PRINT+30, PRINT+35, PRINT+36, PRINT+37, PRINT+38, PRINT+41
PRINT+42, PRINT+44, PRINT+53, CI+3, CI+4, CI+5, CI+6, CI+8, CI+9, CI+10
CI+11, CI+13, CI+14, CI+15, CI+16, CI+17, CI+18, CI+19, CI+20, CI+22
CI+24, CI+25, CI+26, CI+27, CI+28, CI+29, CI+30, CI+31, CI+32, CI+33
CI+34, CI+35, CI+36, CI+37, CI+40, CI+41, CI+43, CI+44, CI+45, CI+46
CI+47, CI+48, CI+50, CI+52, CI+54, CI+56, CI+57, CI+58, CI+59, CI+60
CI+61, CI+62, CI+63, CI+64, CI+65, EXIT+2!
IO ONCOPA1+7, TASK+5, MULT+3
>> IO("Q" ONCOPA1+6, MULT+2
IOF PRINT+2, HDR+1
IOP ONCOPA1+5!, ONCOPA1+7!, MULT+3!
IOSL PRINT+4, P+1
IOST PRINT+4, CI+67, P+2
LEN CI+56*, CI+57*, CI+58*, EXIT+2!
LENGTH EXIT+3!, FORMAT+1*
LINE PRINT+4*, EXIT+3!
NAME PRINT+39*, CI+1*, EXIT+3!, FORMAT+1, FORMAT+2
NF EXIT+3!
NODE2 CI+3*, CI+21, CI+38, EXIT+3!
NOK EXIT+3!
NUM EXIT+3!, FORMAT+1*, FORMAT+2
ONCAB EXIT+3!
ONCAB( PRINT+30*, PRINT+35*, PRINT+36*, PRINT+37*, PRINT+38, PRINT+41, PRINT+42, PRINT+44, PRINT+53, CI+5
CI+6, CI+8, CI+9, CI+10, CI+11, CI+13, CI+14, CI+15, CI+16, CI+17
CI+18, CI+19, CI+20, CI+22, CI+24, CI+25, CI+26, CI+27, CI+29, CI+30
CI+31, CI+32, CI+33, CI+34, CI+35, CI+36, CI+37, CI+40, CI+41, CI+43
CI+44, CI+45, CI+46, CI+47, CI+48, CI+56, CI+57, CI+58, CI+59, CI+60
CI+61, CI+62, CI+63, CI+64, CI+65
ONCAB(160 PRINT+31*, PRINT+32*, PRINT+33*, PRINT+34*, PRINT+38, PRINT+44, PRINT+48, PRINT+49, PRINT+50, PRINT+51
ONCOIEN PRINT+1, PRINT+3, PRINT+13, PRINT+16, PRINT+18, PRINT+22, EXIT+3!
ONCOLST ONCOPA1+6*, EXIT+3!, TASK+4, MULT+2*
OTHPRI EXIT+3!
PATH EXIT+3!
PATNAME PRINT+38*, EXIT+4!, HDR+3
PG PRINT+4*, EXIT+4!, HDR+1*
POP ONCOPA1+5, EXIT+4!
PRI EXIT+4!
PRTDATE PRINT+7*, PRINT+43, EXIT+4!
PRTPCE EXIT+4!
PRZN EXIT+4!
PTIEN PRINT+3*, PRINT+10, PRINT+26, PRINT+27, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+38, PRINT+44
PRINT+45, PRINT+48, PRINT+49, PRINT+50, PRINT+51, EXIT+4!
QS EXIT+4!
RCDT EXIT+4!
REG EXIT+4!
REG1 EXIT+4!
RK EXIT+4!, TASK+4*
RK1 EXIT+4!, TASK+4*
SCT PRINT+23*, PRINT+24, EXIT+5!
SITE EXIT+5!
SR PRINT+19*, PRINT+20, EXIT+5!
SSAN PRINT+38*, EXIT+5!, HDR+3
ST EXIT+5!
STARS PRINT+5*, EXIT+5!, FORMAT+2
TITLE PRINT+40, CI+2, EXIT+5!, FORMAT+2*
TM1 CI+50*, CI+51*, CI+56, EXIT+5!
TM2 CI+52*, CI+53*, CI+57, EXIT+5!
TM3 CI+54*, CI+55*, CI+58, EXIT+5!
TOP CI+21*, CI+31, CI+32, CI+33, CI+34, CI+35, CI+36, CI+48, EXIT+5!
TPX EXIT+5!
TSIEN EXIT+5!
TSTAT EXIT+5!
U PRINT+3, PRINT+6, PRINT+43, PRINT+44, PRINT+45, PRINT+46, PRINT+47, PRINT+48, PRINT+49, PRINT+50
PRINT+51, PRINT+53, CI+5, CI+6, CI+8, CI+9, CI+10, CI+11, CI+13, CI+14
CI+15, CI+16, CI+17, CI+18, CI+19, CI+21, CI+22, CI+24, CI+25, CI+26
CI+27, CI+29, CI+30, CI+38, CI+40, CI+41, CI+43, CI+44, CI+45, CI+46
CI+47, CI+56, CI+57, CI+58, CI+59, CI+60, CI+61, CI+62, CI+63, CI+64
CI+68, P+1, P+2, TASK+4
UF EXIT+5!
VRBLPTR PRINT+45*, PRINT+46, EXIT+6!
VS EXIT+6!
Y PRINT+7*, PRINT+47*, CI+67, EXIT+6!, P+2
ZN EXIT+6!
ZTDESC TASK+3*, TASK+6!
ZTDTH TASK+1!
ZTIO TASK+1!
ZTREQ TASK+2*, TASK+6!
ZTRTN TASK+2*, TASK+6!
ZTSAVE TASK+1!, TASK+6!
ZTSAVE( TASK+4*
ZTSAVE("ZTREQ" TASK+2*
ZTSK TASK+6!
ZTUCI TASK+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