Routine: ONCODXD

Information

ONCODXD ;HINES OIFO/RTK,GWB - DATE DX (165.5,3) INPUT TRANSFORM ;4/9/97

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

Package	Total	Caller Graph
Oncology	1	^ONCO(165.5

Entry Points

Name	Comments	DBIA/ICR reference
DTDXIT	;Check that date entered is BEFORE or EQUAL to all other DATE fields
KLL
CHKDTS	; Check it against all other DATE fields
EDCHK	; If its a legitimate date check it against the date entered for DT DX ; If its a partial date (no month or no day) just check year or year/mo
ERRDATE	; Set DTXFLAG=0 and add FLDNM to the LIST of fields it must be before
DT	; CHANGE INTERNAL DATE TO EXTERNAL DATE FORMAT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?4,"The DATE DX must be BEFORE or EQUAL TO certain date fields. The date" Line Location: DTDXIT+6
Function Call: WRITE	Prompt: !?4,"you have entered is unacceptable because it is AFTER the" Line Location: DTDXIT+7
Function Call: WRITE	Prompt: !?4,"following date field(s):",! Line Location: DTDXIT+8
Function Call: WRITE	Prompt: ! Line Location: DTDXIT+24

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(165.5	CHKDTS+8, CHKDTS+9, CHKDTS+10, CHKDTS+11, CHKDTS+12, CHKDTS+13, CHKDTS+14, CHKDTS+15, CHKDTS+16, CHKDTS+17 , CHKDTS+18, CHKDTS+19, CHKDTS+20, CHKDTS+21, CHKDTS+22, CHKDTS+23, CHKDTS+24
^DD(165.51	CHKDTS+27, CHKDTS+28, CHKDTS+29, CHKDTS+30, CHKDTS+31, CHKDTS+32, CHKDTS+33
^DD(165.572	CHKDTS+36
^ONCO(165.5 - [#165.5]	DTDXIT+3, DTDXIT+4, KLL+1, KLL+2, CHKDTS+1, CHKDTS+2, CHKDTS+3, CHKDTS+4, CHKDTS+5, CHKDTS+6 , CHKDTS+25, CHKDTS+26, CHKDTS+34, CHKDTS+35

Label References

Name	Line Occurrences
CHKDTS	DTDXIT+1
DT	DTDXIT+10, DTDXIT+13, DTDXIT+17, DTDXIT+21
EDCHK	CHKDTS+8, CHKDTS+9, CHKDTS+10, CHKDTS+11, CHKDTS+12, CHKDTS+13, CHKDTS+14, CHKDTS+15, CHKDTS+16, CHKDTS+17 , CHKDTS+18, CHKDTS+19, CHKDTS+20, CHKDTS+21, CHKDTS+22, CHKDTS+23, CHKDTS+24, CHKDTS+27, CHKDTS+28, CHKDTS+29 , CHKDTS+30, CHKDTS+31, CHKDTS+32, CHKDTS+33, CHKDTS+36
ERRDATE	EDCHK+4, EDCHK+6, EDCHK+7
KLL	DTDXIT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	DTDXIT+1, KLL+3!, ERRDATE+1, ERRDATE+2, ERRDATE+3, ERRDATE+4, ERRDATE+5
>> D0	DTDXIT+3, DTDXIT+4, KLL+1, KLL+2, CHKDTS+1, CHKDTS+2, CHKDTS+3, CHKDTS+4, CHKDTS+5, CHKDTS+6 , CHKDTS+25, CHKDTS+26, CHKDTS+34, CHKDTS+35
DTXFLAG	DTDXIT+1, DTDXIT+5, KLL, KLL+3!, ERRDATE+1
EXDT	DTDXIT+11, DTDXIT+14, DTDXIT+18, DTDXIT+22, KLL+3!, DT+1*
FLD	KLL+3!, CHKDTS+8, CHKDTS+9, CHKDTS+10, CHKDTS+11, CHKDTS+12, CHKDTS+13, CHKDTS+14, CHKDTS+15, CHKDTS+16* , CHKDTS+17, CHKDTS+18, CHKDTS+19, CHKDTS+20, CHKDTS+21, CHKDTS+22, CHKDTS+23, CHKDTS+24, CHKDTS+27, CHKDTS+28 , CHKDTS+29, CHKDTS+30, CHKDTS+31, CHKDTS+32, CHKDTS+33, CHKDTS+36, EDCHK+2, EDCHK+3, EDCHK+4, EDCHK+5 , EDCHK+6, EDCHK+7, ERRDATE+2, ERRDATE+3, ERRDATE+4, ERRDATE+5
FLDNM	KLL+3!, CHKDTS+8, CHKDTS+9, CHKDTS+10, CHKDTS+11, CHKDTS+12, CHKDTS+13, CHKDTS+14, CHKDTS+15, CHKDTS+16* , CHKDTS+17, CHKDTS+18, CHKDTS+19, CHKDTS+20, CHKDTS+21, CHKDTS+22, CHKDTS+23, CHKDTS+24, CHKDTS+27, CHKDTS+28 , CHKDTS+29, CHKDTS+30, CHKDTS+31, CHKDTS+32, CHKDTS+33, CHKDTS+36, ERRDATE+2, ERRDATE+3, ERRDATE+4, ERRDATE+5
INDT	DTDXIT+10, DTDXIT+13, DTDXIT+17, DTDXIT+21, KLL+3!, DT+1
LIST	DTDXIT+1!, KLL+3!
LIST(	DTDXIT+9, DTDXIT+10, DTDXIT+11, ERRDATE+5*
MULT	DTDXIT+1, KLL+3!, CHKDTS+26, CHKDTS+35*, ERRDATE+2, ERRDATE+3, ERRDATE+4
NODE0	KLL+3!, CHKDTS+1*
NODE1	KLL+3!, CHKDTS+1*, CHKDTS+8
NODE22	KLL+3!, CHKDTS+4*
NODE3	KLL+4!, CHKDTS+2*, CHKDTS+9, CHKDTS+10, CHKDTS+11, CHKDTS+12, CHKDTS+13, CHKDTS+14
NODE31	KLL+4!, CHKDTS+2*
NODE5	KLL+4!, CHKDTS+3*, CHKDTS+16
NODE7	KLL+4!, CHKDTS+3*, CHKDTS+15, CHKDTS+17
NODEBL1	KLL+4!, CHKDTS+5*, CHKDTS+18
NODEBL2	KLL+4!, CHKDTS+5*, CHKDTS+19, CHKDTS+20
NODENH2	KLL+4!, CHKDTS+4*, CHKDTS+24
NODEST2	KLL+4!, CHKDTS+6*, CHKDTS+22, CHKDTS+23
NODETH1	KLL+4!, CHKDTS+6*, CHKDTS+21
>> PIECE	KLL+1, KLL+2
RADT	DTDXIT+1!, KLL+5!, ERRDATE+4
RADT(	DTDXIT+20, DTDXIT+21, DTDXIT+22, DTDXIT+23, ERRDATE+4*
RADTZND	KLL+5!
RDZ	KLL+5!
RTK	DTDXIT+9, DTDXIT+10, DTDXIT+11, DTDXIT+12, DTDXIT+13, DTDXIT+14, DTDXIT+15, DTDXIT+16, DTDXIT+17, DTDXIT+18 , DTDXIT+19, DTDXIT+20, DTDXIT+21, DTDXIT+22, DTDXIT+23, KLL+5!
SBCT	DTDXIT+1!, KLL+5!, CHKDTS+25*, CHKDTS+26, ERRDATE+2
SBCT(	DTDXIT+12, DTDXIT+13, DTDXIT+14, DTDXIT+15, ERRDATE+2*
SBCTZND	KLL+5!, CHKDTS+26*
SRZ	KLL+5!, CHKDTS+35*, CHKDTS+36
SUBR	DTDXIT+1!, KLL+5!, CHKDTS+34*, CHKDTS+35, ERRDATE+3
SUBR(	DTDXIT+16, DTDXIT+17, DTDXIT+18, DTDXIT+19, ERRDATE+3*
SUBRZND	KLL+5!, CHKDTS+35*
SZ	KLL+5!, CHKDTS+26*, CHKDTS+27, CHKDTS+28, CHKDTS+29, CHKDTS+30, CHKDTS+31, CHKDTS+32, CHKDTS+33
U	DTDXIT+10, DTDXIT+11, DTDXIT+13, DTDXIT+14, DTDXIT+15, DTDXIT+17, DTDXIT+18, DTDXIT+19, DTDXIT+21, DTDXIT+22 , DTDXIT+23, KLL+1, KLL+2, CHKDTS+8, CHKDTS+9, CHKDTS+10, CHKDTS+11, CHKDTS+12, CHKDTS+13, CHKDTS+14 , CHKDTS+15, CHKDTS+16, CHKDTS+17, CHKDTS+18, CHKDTS+19, CHKDTS+20, CHKDTS+21, CHKDTS+22, CHKDTS+23, CHKDTS+24 , CHKDTS+27, CHKDTS+28, CHKDTS+29, CHKDTS+30, CHKDTS+31, CHKDTS+32, CHKDTS+33, CHKDTS+36, ERRDATE+2, ERRDATE+3 , ERRDATE+4, ERRDATE+5
X	DTDXIT+3, DTDXIT+4, DTDXIT+6!, KLL, EDCHK+4, EDCHK+6, EDCHK+7

Customize PDF page

Package: Oncology