Routine: ONCOEDC

Information

ONCOEDC ;Hines OIFO/GWB - ABSTRACT STATUS (165.5,91) Input Transform ;10/19/11

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Oncology	4	^ONCEDIT (,CHKSUM,NAACCR)^ONCGENED F1655^ONCOEDC1 OBS2018^ONCOEDC2
VA FileMan	3	NOW^%DTC $$GET1^DIQ ^DIR
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Oncology	2	ONCGENED ^ONCO(165.5

Entry Points

Name	Comments	DBIA/ICR reference
CHECK	;Required field check
QUIT
CHKFLDS	;Check ONCOLOGY PRIMARY (165.5) and ONCOLOGY PATIENT (160)
F160	;ONCOLOGY PATIENT (160)
CMPLT	;Set CMPLT = 0 and add field to list of fields needed to be filled in.
PRINT	;Display results
REQ	;Missing "required" data item list
INTER	;Interfield edit warnings
PCHK	;Enter RETURN to continue or '^' to exit:
EDITS	;Call to EDITS API
CLEANUP	;Cleanup

External References

Name	Field # of Occurrence
NOW^%DTC	EDITS+5
$$GET1^DIQ	CHECK+13, CHECK+29, F160+2, EDITS+40, EDITS+41, EDITS+42, EDITS+43, EDITS+45, EDITS+47, EDITS+49
^DIR	CHECK+42, PCHK+2, EDITS+27
^ONCEDIT	CHECK+36
^ONCGENED	EDITS+15
CHKSUM^ONCGENED	EDITS+53
NAACCR^ONCGENED	EDITS+51
F1655^ONCOEDC1	CHKFLDS+1
OBS2018^ONCOEDC2	CHECK+16
$$FMTE^XLFDT	EDITS+44, EDITS+48

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," No inter-field edit check warnings.",! Line Location: CHECK+37
Function Call: WRITE	Prompt: ! Line Location: CHECK+43
Function Call: WRITE	Prompt: ! Line Location: QUIT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+4
Function Call: WRITE	Prompt: !," ABSTRACT STATUS may not be set to COMPLETE unless" Line Location: REQ+1
Function Call: WRITE	Prompt: !," all ""required"" data items have been entered.",! Line Location: REQ+2
Function Call: WRITE	Prompt: !," The following ""required"" data items have not been" Line Location: REQ+3
Function Call: WRITE	Prompt: !," entered for this primary:",! Line Location: REQ+4
Function Call: WRITE	Prompt: !,?2,FN Line Location: REQ+7
Function Call: WRITE	Prompt: ! Line Location: PCHK+1
Function Call: WRITE	Prompt: !," Calling EDITS API..." Line Location: EDITS+3
Function Call: WRITE	Prompt: !!,"EDITS errors were encountered. ABSTRACT STATUS changed to 0 (Incomplete).",! Line Location: EDITS+18
Function Call: WRITE	Prompt: !!,"EDITS errors were encountered. ABSTRACT STATUS is unchanged.",! Line Location: EDITS+19
Function Call: WRITE	Prompt: !," No EDITS errors or warnings." Line Location: EDITS+30
Function Call: WRITE	Prompt: ! Line Location: EDITS+39
Function Call: WRITE	Prompt: !," ABSTRACT STATUS.............: ",$$GET1^DIQ(165.5,D0,91,"E") Line Location: EDITS+40
Function Call: WRITE	Prompt: !," DATE CASE INITIATED.........: ",$$GET1^DIQ(165.5,D0,236,"E") Line Location: EDITS+41
Function Call: WRITE	Prompt: !," INITIATED BY................: ",$$GET1^DIQ(165.5,D0,244,"E") Line Location: EDITS+42
Function Call: WRITE	Prompt: !," DATE OF FIRST CONTACT.......: ",$$GET1^DIQ(165.5,D0,155,"E") Line Location: EDITS+43
Function Call: WRITE	Prompt: !," DATE CASE COMPLETED.........: " Line Location: EDITS+44
Function Call: WRITE	Prompt: $$FMTE^XLFDT(ONCDTEMP,"5P") Line Location: EDITS+44
Function Call: WRITE	Prompt: !," ELAPSED DAYS TO COMPLETION..: ",$$GET1^DIQ(165.5,D0,157,"E") Line Location: EDITS+45
Function Call: WRITE	Prompt: !," ABSTRACTED BY...............: ",$$GET1^DIQ(165.5,D0,92,"E") Line Location: EDITS+47
Function Call: WRITE	Prompt: !," DATE CASE LAST CHANGED......: " Line Location: EDITS+48
Function Call: WRITE	Prompt: $$FMTE^XLFDT(ONCDTEMP,"5P") Line Location: EDITS+48
Function Call: WRITE	Prompt: !," CASE LAST CHANGED BY........: ",$$GET1^DIQ(165.5,D0,199,"E") Line Location: EDITS+49
Function Call: WRITE	Prompt: ! Line Location: EDITS+50
Function Call: WRITE	Prompt: ! Line Location: EDITS+54
Routine Call	DIR Line Location: CHECK+42 PCHK+2 EDITS+27

FileNo	Call Tags
^ONCO(160 - [#160]	GET1^DIQ
^ONCO(165.5 - [#165.5]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	CMPLT+1
^DD(165.5	CHECK+29
^ONCO(160 - [#160]	CHECK+25, CHECK+26
^ONCO(165.5 - [#165.5]	CHECK+8, CHECK+11, CHECK+12, CHECK+15, EDITS+6, EDITS+7, EDITS+9, EDITS+10, EDITS+11, EDITS+12* , EDITS+13, EDITS+14, EDITS+21, EDITS+22!, EDITS+23, EDITS+24, EDITS+31, EDITS+34!, EDITS+35, EDITS+36 , EDITS+37, EDITS+38, EDITS+44, EDITS+48
^TMP("ONC"	EDITS+52

Label References

Name	Line Occurrences
CHKFLDS	CHECK+22
CMPLT	F160+2
EDITS	CHECK+37, CHECK+43
F160	CHKFLDS+2
INTER	PRINT+3
PCHK	REQ+7
QUIT	CHECK+38
REQ	PRINT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EDITS+5
ABSTAT	CHECK+5~, CHECK+15*, QUIT+2, EDITS+13, EDITS+18, EDITS+19, EDITS+29
CC	CHECK+5~, CHECK+13*, CHECK+17, CHECK+22
CMPLT	CHECK+5~, CHECK+12, CHECK+28, CHECK+29, CHECK+31, CHECK+32, CHECK+37, CMPLT+2
CNT	CHECK+5~, REQ+5, REQ+7
COC	CHECK+13*, CLEANUP+1!
D0	CHECK+8, CHECK+10, CHECK+11, CHECK+12, CHECK+13, CHECK+15, EDITS+6, EDITS+7, EDITS+13, EDITS+14 , EDITS+21, EDITS+23, EDITS+24, EDITS+31, EDITS+40, EDITS+41, EDITS+42, EDITS+43, EDITS+44, EDITS+45 , EDITS+47, EDITS+48, EDITS+49, CLEANUP+1!
DCC	CHECK+5~, EDITS+6*, EDITS+8, EDITS+14, EDITS+20, EDITS+33
DCLC	CHECK+5~, EDITS+7*, EDITS+34
DIR	CHECK+39!, CHECK+42!, PCHK+2!, EDITS+25!, EDITS+27!
DIR("A"	CHECK+40, CHECK+41, EDITS+26*
DIR("B"	CHECK+42, EDITS+27
DIR(0	CHECK+39, PCHK+2, EDITS+25*
DT	EDITS+36
DTDX	CHECK+5~, CHECK+14*, CHECK+16, CHECK+22, CHECK+28, CHECK+29
DUZ	CHECK+8, EDITS+11, EDITS+13, EDITS+14, EDITS+37, EDITS+38
EDIT	QUIT+1, EDITS+16!, EDITS+28
EDITS	EDITS+51*!
ERRFLG	CHECK+5~, EDITS+1*, EDITS+17
EX	CHECK+5~, REQ+5, REQ+7, PCHK+1, PCHK+2
FDNUM	CHECK+5~, F160+1, F160+2, CMPLT+1
FLDNAME	CHECK+5~, CMPLT+1*, CMPLT+2
FN	CHECK+5~, REQ+6, REQ+7
IOF	PCHK+3
IOSL	REQ+5
IOST	REQ+5
LINE	CHECK+5~, REQ+5*, PCHK+1
LIST	CHECK+12!
LIST(	CHECK+29, CMPLT+2, REQ+7
LIST("DATE OF	LAST CONTACT OR DEATH" , CHECK+28*
NODE0	CHECK+6~, CHECK+12*, CHECK+14
ONCANL	CHECK+6~, CHECK+12, CHECK+22, CHECK+33
ONCAUDT	CHECK+24~, CHECK+25*, CHECK+27
ONCDST	EDITS+4~, EDITS+52*
ONCDTEMP	EDITS+4~, EDITS+44, EDITS+48
ONCDTTIM	EDITS+4~, EDITS+5*, EDITS+9, EDITS+10, EDITS+22, EDITS+35
ONCFILE	CHECK+6~, CHKFLDS+1, CHKFLDS+2, CMPLT+1
ONCFOLDT	CHECK+24~, CHECK+26*, CHECK+28
ONCSAPI	EDITS+4~
ONCTYP	CHECK+12, CHECK+17, CHECK+31, QUIT+2, PRINT+1, PRINT+2, PRINT+3, PRINT+5!
OVERRIDE	CHECK+38, QUIT!
PAUSE	CHECK+6~, EDITS+54*
PRM	CHECK+6~, CHECK+10*, CHECK+29, EDITS+9, EDITS+10, EDITS+11, EDITS+12, EDITS+13, EDITS+14, EDITS+22 , EDITS+34, EDITS+35, EDITS+36, EDITS+37, EDITS+38
PTN	CHECK+6~, CHECK+11*, CHECK+25, CHECK+26, F160+2
>> SAVEX	EDITS+31*, EDITS+55
SQN	CHECK+6~, CHECK+14*, CHECK+22
U	CHECK+8, CHECK+11, CHECK+14, CHECK+15, CHECK+25, CHECK+29, CMPLT+1, REQ+7, PCHK+1, PCHK+2 , EDITS+6, EDITS+7, EDITS+9, EDITS+11, EDITS+12, EDITS+13, EDITS+14, EDITS+21, EDITS+23, EDITS+24 , EDITS+31, EDITS+35, EDITS+37, EDITS+38, EDITS+44, EDITS+48
X	CHECK+8, CHECK+9, CHECK+17!, CHECK+31!, CHECK+43, QUIT+2, EDITS+29, EDITS+55
Y	CHECK+43, PCHK+2, EDITS+28, CLEANUP+1!

Customize PDF page

Package: Oncology