Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XUXTADDT1

Package: Kernel

Routine: XUXTADDT1


Information

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

Source Information

Source file <XUXTADDT1.m>

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

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
Info |  Source |  Entry Points |  Interaction Calls