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

Package: Oncology

Routine: ONCACD0


Information

ONCACD0 ;Hines OIFO/GWB - NAACCR extract driver ;09/22/11

Source Information

Source file <ONCACD0.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 ^DIE  EN1^DIP  $$GET1^DIQ  ^DIR  
Oncology 1 EN1^ONCACD1  

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

Package Total Caller Graph
Oncology 5 ONCO #SITE-CREATE ACOS DISK  ONCO #SITE-CREATE ACOS REPORT  ONCO #STATE DATA DISK  ONCO #STATE DATA REPORT  ONCO RQRS EXTRACT  

Entry Points

Name Comments DBIA/ICR reference
EN1(DEVICE,STEXT) ;Entry point
EN2
GETREC(EXTRACT,OUT) ;Select VACCR, STATE or SEER record layout
GETHOSP() ;Facility Identification Number (FIN)
GETDXH(DXH) ;INSTITUTION ID NUMBER (160.1,27)
RQRS(SDT,EDT,DATE,OUT) ;Process RQRS data
GETDT(SDT,EDT,DATE,OUT) ; Select a date range
DCLC
ACJ
DATEDX(SDT,EDT,DATE,OUT) ;Select DATE DX range
PRINT(DEVICE,OUT) ;Capture output data
EXIT ;Exit
EX
DEVICE(DEVICE,OUT) ;Select output device
VERIFY(STAT,DATE,SDT,EDT,STEXT,YESNO,OUT) ;Verify settings
GETDATE(ONCDT,DATE1,OUT) ;Select Diagnosis Year
ACCN ;Accession Number

External References

Name Field # of Occurrence
^%ZIS DEVICE+3
HOME^%ZIS DEVICE+25
^%ZISC EX+2
^%ZTLOAD DEVICE+22
^DIE GETDXH+9
EN1^DIP EXIT+8
$$GET1^DIQ GETDXH+12, DCLC+22, DCLC+23, DCLC+28, DCLC+29
^DIR GETREC+10, GETREC+23, RQRS+8, RQRS+18, RQRS+36, RQRS+52, GETDT+5, DCLC+13, DCLC+33, ACJ+10
, DATEDX+8, DATEDX+17, EXIT+9, VERIFY+29, GETDATE+7, GETDATE+22, GETDATE+52, ACCN+12, ACCN+19
EN1^ONCACD1 PRINT+11
$$FMTE^XLFDT EXIT+7, VERIFY+16, VERIFY+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+6
Function Call: WRITE
  • Prompt: !,"Protected Health Information codes are excluded in NCDB, State and SEER reports!",!
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !!," Available record layouts:",!
  • Line Location: GETREC+1
Function Call: WRITE
  • Prompt: !," 1) VACCR Record Layout v18.0 (VA Registry)"
  • Line Location: GETREC+2
Function Call: WRITE
  • Prompt: !," 2) NAACCR State Record Layout v18.0"
  • Line Location: GETREC+3
Function Call: WRITE
  • Prompt: !," 3) SEER State Record Layout v18.0"
  • Line Location: GETREC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: GETREC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDXH+2
Function Call: WRITE
  • Prompt: !,"This ONCOLOGY SITE PARAMETERS record is being edited by another user."
  • Line Location: GETDXH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: RQRS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RQRS+12
Function Call: WRITE
  • Prompt: !?3,"No records extracted."
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+6
Function Call: WRITE
  • Prompt: !!,?20,"Report Canceled!"
  • Line Location: DEVICE+23
Function Call: WRITE
  • Prompt: !!,?20,"Report Queued!"
  • Line Location: DEVICE+24
Function Call: WRITE
  • Prompt: !!," These are your current settings:"
  • Line Location: VERIFY+4
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+5
Function Call: WRITE
  • Prompt: !," Record layout.......................: ",RL
  • Line Location: VERIFY+6
Function Call: WRITE
  • Prompt: !," Facility Identification Number (FIN): ",STAT1
  • Line Location: VERIFY+7
Function Call: WRITE
  • Prompt: !
  • Line Location: VERIFY+25
Function Call: WRITE
  • Prompt: !," Diagnosis Years: ",DIAGYR
  • Line Location: GETDATE+31
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+32
Function Call: WRITE
  • Prompt: !,?6,"Select one of the following:"
  • Line Location: GETDATE+33
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+34
Function Call: WRITE
  • Prompt: !,?11,"1 All eligible cases for this year"
  • Line Location: GETDATE+35
Function Call: WRITE
  • Prompt: !,?11,"2 Cases within a 'Date Case Last Changed' date range"
  • Line Location: GETDATE+36
Function Call: WRITE
  • Prompt: !,?11,"3 Accession Number"
  • Line Location: GETDATE+37
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+38
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+56
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDATE+57
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+25
Routine Call
  • DIE
  • Line Location:
    • GETDXH+9
Routine Call
  • DIR
  • Line Location:
    • GETREC+10
    • GETREC+23
    • RQRS+8
    • RQRS+18
    • RQRS+36
    • RQRS+52
    • GETDT+5
    • DCLC+13
    • DCLC+33
    • ACJ+10
    • DATEDX+8
    • DATEDX+17
    • EXIT+9
    • VERIFY+29
    • GETDATE+7
    • GETDATE+22
    • GETDATE+52
    • ACCN+12
    • ACCN+19

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ONCO(160.1 - [#160.1] GETDXH+4, GETDXH+5, GETDXH+9, DCLC+22, DCLC+23, DCLC+28, DCLC+29, VERIFY+32*, VERIFY+33*, VERIFY+34*
, VERIFY+35*
^ONCO(160.16 - [#160.16] EN2+18, GETREC+13, GETREC+14, GETREC+15, EXIT+6, EXIT+7, VERIFY+2
^ONCO(160.19 - [#160.19] GETDXH+13
^ONCO(165.5 - [#165.5] ACCN+3, ACCN+5, ACCN+6
^TMP($J EN2+2!, EXIT+2, EX!

Label References

Name Line Occurrences
$$GETDXH GETHOSP+2
$$GETHOSP EN2+20
ACCN RQRS+24, DCLC+1, GETDATE+57
ACJ DCLC+1
DCLC GETDATE+56
DEVICE EN2+28
EN2 EN2+27
EX EXIT+2
EXIT EN2+30
GETDATE EN2+23
GETDT EN2+24
GETREC EN2+19
PRINT EN2+29
RQRS EN2+25
VERIFY EN2+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EX+1!, DEVICE+2*
ACCN EN2+1~
ACDANS EX+3!
ACDSTATE GETDXH+13*, EXIT+1!, VERIFY+9
ACO EN2~, ACJ+12*, VERIFY+22
ALLOK GETHOSP+1~, GETHOSP+2*
BDT EN2~, DCLC+14*, DATEDX+9*, EXIT+7, ACCN+13*, ACCN+16, ACCN+18
BY EX+3!
BY(0 EXIT+4*
CCEX EX+3!
CLASSOFCASE EN2+1~
CYR EN2+1~, RQRS+40*, DCLC+2*, DCLC+16*, DATEDX+2*, DATEDX+11*, GETDATE+2~, GETDATE+4*, GETDATE+5, GETDATE+18*
, GETDATE+19
DA GETDXH+1~, GETDXH+4*, GETDXH+5*, GETDXH+6, GETDXH+9
DATE EN2~, EN2+4*, EN2+23, EN2+24, EN2+25, EN2+26, RQRS~, GETDT~, DATEDX~, VERIFY~
DATE1 EN2~, EN2+23, GETDATE~, GETDATE+17*, GETDATE+24*, GETDATE+26*, GETDATE+27*, GETDATE+28*, GETDATE+29*
DEVICE EN1~, EN2+3*, EN2+28, EN2+29, PRINT~, PRINT+1, EXIT+5, DEVICE~, DEVICE+1
DHD EXIT+6*, EXIT+7*, EX+3!
DIAGYR EN2~, VERIFY+11, GETDATE+25*, GETDATE+31
DIC EXIT+1!, EXIT+4*
DIE GETDXH+1~, GETDXH+3*, GETDXH+11!
DIR GETREC+6~, RQRS+4!, RQRS+14!, RQRS+22!, RQRS+39!, GETDT+1!, DCLC!, DCLC+15!, ACJ+3!, DATEDX+1!
, DATEDX+10!, EXIT+9!, VERIFY+1~, GETDATE+2~, GETDATE+16!, GETDATE+30!, ACCN+7!, ACCN+14!
DIR("?" GETREC+9*, GETREC+20*, GETREC+21*, GETREC+22*, RQRS+7*, RQRS+17*, RQRS+30*, RQRS+31*, RQRS+34*, RQRS+35*
, RQRS+42*, RQRS+45*, RQRS+46*, RQRS+49*, RQRS+50*, GETDT+4*, DCLC+7*, DCLC+8*, DCLC+11*, DCLC+12*
DCLC+19*, DCLC+24*, DCLC+25*, DCLC+30*, DCLC+31*, ACJ+7*, ACJ+8*, ACJ+9*, DATEDX+6*, DATEDX+7*
, DATEDX+15*, DATEDX+16*, GETDATE+21*, GETDATE+42*, GETDATE+43*, GETDATE+44*, GETDATE+45*, GETDATE+46*, GETDATE+47*, GETDATE+48*
, GETDATE+49*, GETDATE+50*, GETDATE+51*, ACCN+11*, ACCN+18*
DIR("A" GETREC+8*, GETREC+18*, RQRS+6*, RQRS+16*, RQRS+29*, RQRS+33*, RQRS+44*, RQRS+48*, GETDT+3*, DCLC+6*
DCLC+10*, DCLC+21*, DCLC+27*, ACJ+4*, DATEDX+5*, DATEDX+14*, VERIFY+26*, GETDATE+6*, GETDATE+20*, GETDATE+40*
ACCN+10*, ACCN+17*
DIR("B" GETREC+19*, RQRS+51*, DCLC+18*, ACJ+5*, VERIFY+27*, GETDATE+41*, ACCN+8*, ACCN+15*
DIR(0 GETREC+7*, GETREC+19*, RQRS+5*, RQRS+15*, RQRS+26*, RQRS+41*, GETDT+2*, DCLC+3*, DCLC+17*, ACJ+6*
, DATEDX+12*, EXIT+9*, VERIFY+28*, GETDATE+5*, GETDATE+19*, GETDATE+39*, ACCN+9*, ACCN+16*
DIRUT GETREC+11!, GETREC+24!, RQRS+9!, RQRS+19!, RQRS+36!, RQRS+52!, GETDT+6!, DCLC+13!, DCLC+33!, ACJ+11!
, DATEDX+8!, DATEDX+17!, VERIFY+30!, GETDATE+8!, GETDATE+23!, GETDATE+53!, ACCN+12!, ACCN+19!
DR GETDXH+1~, GETDXH+7*
DT RQRS+26, RQRS+40, RQRS+41, DCLC+2, DCLC+3, DCLC+16, DCLC+17, DATEDX+2, DATEDX+11, DATEDX+12
, GETDATE+4, GETDATE+18
>> DUZ(2 GETDXH+4
DXH GETDXH~, GETDXH+12*
EDT EN2~, EN2+4*, EN2+24, EN2+25, EN2+26, RQRS~, RQRS+53*, GETDT~, DCLC+34*, DATEDX~
, DATEDX+18*, EXIT+7, VERIFY~, VERIFY+17, VERIFY+20, VERIFY+32, VERIFY+33, VERIFY+34, VERIFY+35, ACCN+20*
EXT EN2+3*, GETREC+13*, GETREC+14*, GETREC+15*, DCLC+22, DCLC+23, DCLC+28, DCLC+29, ACJACJ+2
EXIT+1!, EX+3!, VERIFY+8, VERIFY+21, VERIFY+32, VERIFY+33, VERIFY+34, VERIFY+35
EXTRACT EN2~, EN2+4*, EN2+18*, EN2+19, GETREC~, GETREC+13*, GETREC+14*, GETREC+15*, EXIT+6, EXIT+7
, VERIFY+2
FLDS EXIT+4*, EX+3!
FR EX+3!
IO PRINT+11
>> IO("Q" DEVICE+5
ION EXIT+5
IOP EXIT+5*, EX+3!
IOST EXIT+9
L EXIT+4*, EX+3!
L(0 EXIT+4*
NCDB EN2~, RQRS+21*, DCLC+9, DCLC+26, ACJ+1, VERIFY+12, VERIFY+14, VERIFY+15, VERIFY+18, GETDATE+55*
, GETDATE+56, GETDATE+57
OKHERE GETDXH+1~, GETDXH+14*, GETDXH+15
ONC91AS EN2+1~
ONCACEN ACCN+2~, ACCN+3*, ACCN+6*, ACCN+9, ACCN+11, ACCN+15, ACCN+16, ACCN+18
ONCACST ACCN+2~, ACCN+3*, ACCN+5*, ACCN+8, ACCN+9, ACCN+11
ONCCLCA EN2+1~
ONCDATE EN2~, GETDATE+10*, GETDATE+17, GETDATE+25, ACCN+5
ONCDATE1 EN2+1~, GETDATE+24*, ACCN+6
ONCDT EN2~, EN2+4*, GETDATE~, GETDATE+3*, GETDATE+10*, GETDATE+11*, GETDATE+12, GETDATE+13*, GETDATE+14*
ONCDT11 EN2+1~, RQRS+23*, GETDT+9*, DCLC+3, GETDATE+12*
>> ONCED89 DCLC+22*, DCLC+23*, DCLC+28*, DCLC+29*
ONCLDT EN2~, RQRS+21*, RQRS+24, RQRS+28, RQRS+32, RQRS+43, RQRS+47, GETDT+8*, DCLC+1, DCLC+5
DCLC+9, DCLC+20, DCLC+26, VERIFY+15, VERIFY+18, GETDATE+14*
ONCOL GETDXH+1~, GETDXH+8*, GETDXH+9*, GETDXH+10, GETDXH+11!
ONCPHI EN2+1~, EN2+8*, GETREC+25*
ONCR12 EN2+1~, RQRS+3*, RQRS+11*, VERIFY+24
ONCRCL EN2+1~, GETREC+16*, GETREC+17
ONCSPIEN EN2~, GETDXH+6*, DCLC+22, DCLC+23, DCLC+28, DCLC+29, VERIFY+32, VERIFY+33, VERIFY+34, VERIFY+35
OUT EN2+4*, EN2+19, EN2+20, EN2+21*, EN2+22, EN2+23, EN2+24, EN2+25, EN2+26, EN2+27
EN2+28, EN2+29, GETREC~, GETREC+11*, GETREC+12*, GETREC+24*, RQRS~, RQRS+9*, RQRS+10*, RQRS+19*
, RQRS+20*, RQRS+36*, RQRS+52*, GETDT~, GETDT+6*, GETDT+7*, DCLC+1, DCLC+13*, DCLC+33*, ACJ+11*
, DATEDX~, DATEDX+8*, DATEDX+17*, PRINT~, PRINT+1, PRINT+10*, EXIT+1!, DEVICE~, DEVICE+4*, DEVICE+23*
, VERIFY~, VERIFY+30*, GETDATE~, GETDATE+8*, GETDATE+23*, GETDATE+53*, GETDATE+54*, ACCN+12*, ACCN+19*
POP EX+3!, DEVICE+4
PTR EN2+1~
QUEUE EN2~, EN2+4*, EN2+29, DEVICE+24*
RL VERIFY+1~, VERIFY+2*, VERIFY+3*, VERIFY+6
RQRS EN2+2!, EN2+25*
SCREEN EN2+1~, RQRS+40*, DCLC+2*, DCLC+16*, DATEDX+2*, DATEDX+11*, GETDATE+2~, GETDATE+4*, GETDATE+5, GETDATE+18*
, GETDATE+19
SDT EN2~, EN2+4*, EN2+24, EN2+25, EN2+26, RQRS~, RQRS+37*, RQRS+38*, RQRS+41, GETDT~
DCLC+14*, DCLC+17, DATEDX~, DATEDX+9*, DATEDX+12, VERIFY~, VERIFY+16, VERIFY+19, ACCN+13*
STAT EN2~, EN2+4*, EN2+20*, EN2+21, EN2+22, EN2+26, GETHOSP+1~, GETHOSP+2*, GETHOSP+3*, GETHOSP+4
, VERIFY~
STAT1 EN2~, EN2+22*, VERIFY+7
STAT2 EN2~, EN2+22*
STATI GETHOSP+1~, GETHOSP+3*
STEXT EN1~, EN2+3*, EN2+18, EN2+19, EN2+24, EN2+25, EN2+26, EXIT+6, EXIT+7, EX+3!
, DEVICE+7, VERIFY~, VERIFY+3, VERIFY+10, VERIFY+13, VERIFY+15, VERIFY+23, VERIFY+32, VERIFY+33, VERIFY+34
, VERIFY+35, GETDATE+1
TO EX+3!
U EN2+22, GETDXH+13, DCLC+22, DCLC+23, DCLC+28, DCLC+29, EXIT+6, EXIT+7, VERIFY+2, VERIFY+32
, VERIFY+33, VERIFY+34, VERIFY+35
X GETREC+6~, GETDXH+12, GETDXH+13, PRINT+2~, PRINT+9*, PRINT+10, EXIT+1!
Y GETREC+6~, GETREC+12, GETREC+13, GETREC+14, GETREC+15, GETREC+16, GETREC+25, GETDXH+12, GETDXH+14, RQRS+10
, RQRS+11, RQRS+20, RQRS+21, RQRS+37, RQRS+53, GETDT+7, GETDT+8, DCLC+14, DCLC+34, ACJ+12
, DATEDX+9, DATEDX+18, EXIT+1!, EXIT+9, VERIFY+1~, VERIFY+31, GETDATE+2~, GETDATE+10, GETDATE+24, GETDATE+25
, GETDATE+54, GETDATE+55, ACCN+13, ACCN+20
YESNO EN2~, EN2+26, EN2+27, VERIFY~, VERIFY+31*
ZTDESC DEVICE+7*, DEVICE+26!
ZTRTN DEVICE+6*, DEVICE+26!
ZTSAVE DEVICE+26!
ZTSAVE("BDT" DEVICE+16*
ZTSAVE("DATE" DEVICE+9*
ZTSAVE("DATE1" DEVICE+10*
ZTSAVE("DEVICE" DEVICE+14*
ZTSAVE("EDT" DEVICE+18*
ZTSAVE("EXT" DEVICE+19*
ZTSAVE("EXTRACT" DEVICE+20*
ZTSAVE("NCDB" DEVICE+21*
ZTSAVE("ONCDT" DEVICE+11*
ZTSAVE("ONCLDT" DEVICE+12*
ZTSAVE("OUT" DEVICE+15*
ZTSAVE("SDT" DEVICE+17*
ZTSAVE("STAT1" DEVICE+8*
ZTSAVE("STEXT" DEVICE+13*
ZTSK DEVICE+23, DEVICE+26!
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