Routine: ONCACD0

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

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

Name	Comments	DBIA/ICR reference
EN1(DEVICE,STEXT)	;Entry point
EN2
GETREC(EXTRACT,OUT)	;Select VACCR, STATE record layout
GETHOSP()	;Facility Identification Number (FIN)
GETDXH(DXH)	;INSTITUTION ID NUMBER (160.1,27)
RQRS(SDT,EDT,DATE,OUT)	;Process RCRS 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

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+9, GETREC+21, RQRS+18, RQRS+36, RQRS+52, GETDT+5, DCLC+13, DCLC+33, ACJ+10, DATEDX+8 , DATEDX+17, EXIT+9, VERIFY+27, GETDATE+7, GETDATE+22, GETDATE+52, ACCN+13, ACCN+20
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 data items are excluded from RCRS and NCDB reports, and Statute 38 USC 7332 codes are excluded from state, RCRS and NCDB reports.",! Line Location: EN2+7
Function Call: WRITE	Prompt: !,"The current record layout (v25.0) is for all states (including SEER states)." Line Location: EN2+20
Function Call: WRITE	Prompt: !!," Available record layouts:",! Line Location: GETREC+1
Function Call: WRITE	Prompt: !," 1) VACCR Record Layout v25.0 (VA Registry)" Line Location: GETREC+2
Function Call: WRITE	Prompt: !," 2) State Record Layout v25.0" Line Location: GETREC+3
Function Call: WRITE	Prompt: ! Line Location: GETREC+4
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: !!!,"RCRS report will be run on ALL analytic cases.",! 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+23
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+9 GETREC+21 RQRS+18 RQRS+36 RQRS+52 GETDT+5 DCLC+13 DCLC+33 ACJ+10 DATEDX+8 DATEDX+17 EXIT+9 VERIFY+27 GETDATE+7 GETDATE+22 GETDATE+52 ACCN+13 ACCN+20

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

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+30, VERIFY+31, VERIFY+32* , VERIFY+33*
^ONCO(160.16 - [#160.16]	EN2+18, GETREC+12, GETREC+13, EXIT+6, EXIT+7, VERIFY+2
^ONCO(160.19 - [#160.19]	GETDXH+13
^ONCO(165.5 - [#165.5]	ACCN+3, ACCN+6, ACCN+7
^TMP($J	EN2+2!, EXIT+2, EX!

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

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+14*, ACCN+17, ACCN+19
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+24, EN2+25, EN2+26, EN2+27, RQRS~, GETDT~, DATEDX~, VERIFY~
DATE1	EN2~, EN2+24, GETDATE~, GETDATE+17, GETDATE+24, GETDATE+26, GETDATE+27, GETDATE+28, GETDATE+29
DEVICE	EN1~, EN2+3*, EN2+19, EN2+20, EN2+29, EN2+30, 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+5~, 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+8!, ACCN+15!
DIR("?"	GETREC+8, GETREC+18, GETREC+19, GETREC+20, 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+12, ACCN+19
DIR("A"	GETREC+7, GETREC+16, 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+24, GETDATE+6, GETDATE+20, GETDATE+40, ACCN+11 , ACCN+18*
DIR("B"	GETREC+17, RQRS+51, DCLC+18, ACJ+5, VERIFY+25, GETDATE+41, ACCN+9, ACCN+16
DIR(0	GETREC+6, GETREC+17, RQRS+15, RQRS+26, RQRS+41, GETDT+2, DCLC+3, DCLC+17, ACJ+6, DATEDX+12 , EXIT+9, VERIFY+26, GETDATE+5, GETDATE+19, GETDATE+39, ACCN+10, ACCN+17*
DIRUT	GETREC+10!, GETREC+22!, RQRS+19!, RQRS+36!, RQRS+52!, GETDT+6!, DCLC+13!, DCLC+33!, ACJ+11!, DATEDX+8! , DATEDX+17!, VERIFY+28!, GETDATE+8!, GETDATE+23!, GETDATE+53!, ACCN+13!, ACCN+20!
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, ACCN+5
DUZ(2	GETDXH+4
DXH	GETDXH~, GETDXH+12*
EDT	EN2~, EN2+4, EN2+25, EN2+26, EN2+27, RQRS~, RQRS+53, GETDT~, DCLC+34, DATEDX~ , DATEDX+18, EXIT+7, VERIFY~, VERIFY+17, VERIFY+20, VERIFY+30, VERIFY+31, VERIFY+32, VERIFY+33, ACCN+21*
EXT	EN2+3, GETREC+12, GETREC+13*, DCLC+22, DCLC+23, DCLC+28, DCLC+29, ACJ, ACJ+2, EXIT+1! , EX+3!, VERIFY+8, VERIFY+21, VERIFY+30, VERIFY+31, VERIFY+32, VERIFY+33
EXTRACT	EN2~, EN2+4, EN2+18, EN2+19, EN2+20, GETREC~, GETREC+12, GETREC+13*, 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+7, ACCN+10, ACCN+12, ACCN+16, ACCN+17, ACCN+19
ONCACST	ACCN+2~, ACCN+3, ACCN+6, ACCN+9, ACCN+10, ACCN+12
ONCCLCA	EN2+1~
ONCDATE	EN2~, GETDATE+10, GETDATE+17, GETDATE+25, ACCN+5, ACCN+6
ONCDATE1	EN2+1~, GETDATE+24, ACCN+5, ACCN+7
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+23
ONCR12	EN2+1~, RQRS+3*
ONCRCL	EN2+1~, EN2+20, GETREC+14, GETREC+15
ONCSPIEN	EN2~, GETDXH+6*, DCLC+22, DCLC+23, DCLC+28, DCLC+29, VERIFY+30, VERIFY+31, VERIFY+32, VERIFY+33
OUT	EN2+4, EN2+19, EN2+21, EN2+22, EN2+23, EN2+24, EN2+25, EN2+26, EN2+27, EN2+28 , EN2+29, EN2+30, GETREC~, GETREC+10, GETREC+11, GETREC+22, RQRS~, 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+28* , GETDATE~, GETDATE+8, GETDATE+23, GETDATE+53, GETDATE+54, ACCN+13, ACCN+20
POP	EX+3!, DEVICE+4
PTR	EN2+1~
QUEUE	EN2~, EN2+4, EN2+30, DEVICE+24
RL	VERIFY+1~, VERIFY+2, VERIFY+3, VERIFY+6
RQRS	EN2+2!, EN2+26*
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+25, EN2+26, EN2+27, RQRS~, RQRS+37, RQRS+38, RQRS+41, GETDT~ , DCLC+14, DCLC+17, DATEDX~, DATEDX+9, DATEDX+12, VERIFY~, VERIFY+16, VERIFY+19, ACCN+14
STAT	EN2~, EN2+4, EN2+21, EN2+22, EN2+23, EN2+27, GETHOSP+1~, GETHOSP+2, GETHOSP+3, GETHOSP+4 , VERIFY~
STAT1	EN2~, EN2+23*, VERIFY+7
STAT2	EN2~, EN2+23*
STATI	GETHOSP+1~, GETHOSP+3*
STEXT	EN1~, EN2+3*, EN2+18, EN2+19, EN2+20, EN2+25, EN2+26, EN2+27, EXIT+6, EXIT+7 , EX+3!, DEVICE+7, VERIFY~, VERIFY+3, VERIFY+10, VERIFY+13, VERIFY+15, VERIFY+30, VERIFY+31, VERIFY+32 , VERIFY+33, GETDATE+1
TO	EX+3!
U	EN2+23, GETDXH+13, DCLC+22, DCLC+23, DCLC+28, DCLC+29, EXIT+6, EXIT+7, VERIFY+2, VERIFY+30 , VERIFY+31, VERIFY+32, VERIFY+33
X	GETREC+5~, GETDXH+12, GETDXH+13, PRINT+2~, PRINT+9*, PRINT+10, EXIT+1!
Y	GETREC+5~, GETREC+11, GETREC+12, GETREC+13, GETREC+14, GETREC+23, GETDXH+12, GETDXH+14, 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+29, GETDATE+2~, GETDATE+10, GETDATE+24, GETDATE+25, GETDATE+54, GETDATE+55, ACCN+14 , ACCN+21
YESNO	EN2~, EN2+27, EN2+28, VERIFY~, VERIFY+29*
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!

Customize PDF page

Package: Oncology

Routine: ONCACD0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: