Routine: XUXTADDT1

Information

XUXTADDT1 ;ESL/JAC/CM - UTL Date subroutines & extrinsics #1 ; 06/26/2020@9:30

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE,$$FMTH)^XLFDT CENTER^XUXTADPRT1
VA FileMan	1	^%DT

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
Kernel	1	XUXTADPRT1

Entry Points

Name	Comments	DBIA/ICR reference
CENTER(AXUXTADTEXT,AXUXTADLF,AXUXTADRM,AXUXTADRVIDEO)
FMADD(AX,AD,AH,AM,AS)
FMDIFF(AX1,AX2,AX3)
FMTE(AY,AF)
FMTH(AX,AF)
CNVDT
DATE(XUXTADDATE,XUXTADTIME,XUXTADSECS,XUXTADFORMAT)	; Returns the DATE in external format.
DAYSAGO(XUXTADDATE)	; Returns: Date (in external mm/dd/yy format) and the ; number of days which have passed, unless the ; input XUXTADDATE variable is null, then <Empty> will be ; returned.
DTBEG(XUXTADDTBEG)	; Return: Beginning date for date range search loop.
DTEND(XUXTADDTEND)	; Return: Maximum ending date for date range search loop.
DTSOK(XUXTADDTBEG,XUXTADDTEND)	; Extrinsic Return: 1 if end date => begin date.
GETDT(XUXTADPROMPT,XUXTADTYPE,XUXTADDEFAULT,XUXTADRESTRICT)	; Prompt for date, & return array
GETDTS(XUXTADDATETXT)	; Prompt user for date range
GETDTS1	; Branch to this label upon errors found below

External References

Name	Field # of Occurrence
^%DT	CNVDT, GETDT+57
$$FMADD^XLFDT	FMADD
$$FMDIFF^XLFDT	FMDIFF
$$FMTE^XLFDT	FMTE
$$FMTH^XLFDT	FMTH
CENTER^XUXTADPRT1	CENTER

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: DTSOK+26
Function Call: WRITE	Prompt: " ",XUXTADDTBEG("E") Line Location: GETDT+66
Function Call: WRITE	Prompt: " ",XUXTADDTEND("E") Line Location: GETDT+72
Function Call: WRITE	Prompt: !!,"Enter "_XUXTADDATETXT_" range" Line Location: GETDTS1+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	GETDT+55

Label References

Name	Line Occurrences
$$DATE	GETDT+65, GETDT+71
$$DTBEG	GETDTS1+11
$$DTEND	GETDTS1+12
$$DTSOK	GETDTS1+9
$$FMADD	DAYSAGO+25, DAYSAGO+29, DAYSAGO+31, DTBEG+15, DTBEG+16
$$FMDIFF	DAYSAGO+32, DAYSAGO+37
$$FMTE	DATE+29, DATE+31, DAYSAGO+21
$$FMTH	GETDT+64, GETDT+70
CENTER	DTSOK+27
GETDT	GETDTS1+7, GETDTS1+8
GETDTS1	GETDTS1+8, GETDTS1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	GETDT+29~, GETDT+46, GETDT+47, GETDT+49, GETDT+51, GETDT+52, GETDT+53, GETDT+54*, GETDT+65
%DT("A"	GETDT+45*
%DT("B"	GETDT+55*
%DT(0	GETDT+50*
A1	GETDT+29~
AD	FMADD~
AF	FMTE~, FMTH~
AH	FMADD~
AM	FMADD~
AS	FMADD~
AX	FMADD~, FMTH~
AX1	FMDIFF~
AX2	FMDIFF~
AX3	FMDIFF~
AXUXTADLF	CENTER~
AXUXTADRM	CENTER~
AXUXTADRVIDEO	CENTER~
AXUXTADTEXT	CENTER~
AY	FMTE~
DDH	GETDT+29~
DT	DAYSAGO+24, DAYSAGO+25, DAYSAGO+29, DAYSAGO+31, DAYSAGO+32, DAYSAGO+37, GETDT+33, GETDT+37, GETDT+38, GETDT+39 , GETDT+40, GETDT+41, GETDT+50
DTOUT	GETDT+29~
DUOUT	GETDT+29~
X	GETDT+29~
XUXTADDATE	DATE~, DATE+29, DATE+31, DATE+33, DATE+34, DATE+36, DATE+38, DAYSAGO~, DAYSAGO+20, DAYSAGO+21 , DAYSAGO+24, DAYSAGO+25, DAYSAGO+29, DAYSAGO+31, DAYSAGO+32, DAYSAGO+36, DAYSAGO+37, DAYSAGO+40*, DAYSAGO+41
XUXTADDATETXT	GETDTS~, GETDTS1+6
XUXTADDATEX	DAYSAGO+18~, DAYSAGO+21, DAYSAGO+24, DAYSAGO+25, DAYSAGO+26, DAYSAGO+29, DAYSAGO+30, DAYSAGO+31, DAYSAGO+33, DAYSAGO+36 , DAYSAGO+37
XUXTADDAYS	DAYSAGO+18~, DAYSAGO+32*, DAYSAGO+33
XUXTADDEFAULT	GETDT~, GETDT+36, GETDT+37, GETDT+38, GETDT+39, GETDT+40, GETDT+41, GETDT+55
XUXTADDTBEG	DTBEG~, DTBEG+14, DTBEG+15, DTBEG+16, DTSOK~, DTSOK+25, GETDTS1+4!, GETDTS1+11*
XUXTADDTBEG("$H"	GETDT+64*
XUXTADDTBEG("E"	GETDT+65*, GETDT+66
XUXTADDTBEG("I"	GETDT+63*, GETDT+64, GETDT+65, GETDTS1+9, GETDTS1+11
XUXTADDTEND	DTEND~, DTEND+25, DTEND+30, DTEND+31, DTSOK~, DTSOK+25, GETDTS1+4!, GETDTS1+12*
XUXTADDTEND("$H"	GETDT+70*
XUXTADDTEND("E"	GETDT+71*, GETDT+72
XUXTADDTEND("I"	GETDT+69*, GETDT+70, GETDT+71, GETDTS1+9, GETDTS1+12
XUXTADFORMAT	DATE~, DATE+22*, DATE+28, DATE+30, DATE+34, DATE+40, DATE+41
XUXTADPROMPT	GETDT~, GETDT+45
>> XUXTADQUIT	GETDT+31, GETDT+33, GETDT+57, GETDTS1+3, GETDTS1+7, GETDTS1+8
XUXTADRESTRICT	GETDT~, GETDT+47, GETDT+48, GETDT+51, GETDT+54
XUXTADSECS	DATE~, DATE+24*, DATE+35
XUXTADTIME	DATE~, DATE+23*, DATE+39
XUXTADTYPE	GETDT~, GETDT+60*, GETDT+62, GETDT+68
XUXTADVAL	DATE+18~, DATE+38, DATE+40, DATE+41, DATE+42, DTSOK+22~, DTSOK+24, DTSOK+28*, DTSOK+29
Y	GETDT+29~, GETDT+55*, GETDT+57, GETDT+63, GETDT+69

Customize PDF page

Package: Kernel