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

Package: Kernel

Routine: XUXTADPRT1


Information

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

Source Information

Source file <XUXTADPRT1.m>

Entry Points

Name Comments DBIA/ICR reference
GXDATE(AXUXTADDATE,AXUXTADTIME,AXUXTADSECS,AXUXTADFORMAT)
DIERR(AXUXTADWIDTH,AXUXTADLFTMAR,AXUXTADMSGROOT,AXUXTADFRMRTN,AXUXTADNOPAUSE)
FMDATE()
FMNOW()
CNVDT
TOLW(AP)
FMDIFF(ATIMEEND,ATIMEBEG,ADS)
GETS(ADIQGR,ADA,ADR,ADIQGPARM,ADIQGTA,ADIQGERRA,ADIQGIPAR)
CENTER(XUXTADTEXT,XUXTADLF,XUXTADRM,XUXTADRVIDEO) ;
; Line feed, then write heading (or any text) centered. Optionally
; display the text in reverse video.
CONTINUE(XUXTADLF,XUXTADTYPE) ; Variations of Press <ENTER> to continue.
INITPRT ; Initialize printed report variables
LINEWRAP(XUXTADVALUE) ; Turn line wrapping off or on ; Used for data extraction
NODATA(XUXTADLF) ; Use for printouts when no data is in ^TMP global
PAGEBRK(XUXTADRTN,XUXTADPG,XUXTADCHKSL,XUXTADNEWPG) ; Generic page break logic
PROCTIME(XUXTADTIMEBEG,XUXTADTIMEEND) ; Display the amount of processing time for the rpt
REVVIDEO(XUXTADVALUE) ; Turn REVERSE VIDEO on or off depending upon ENVALUE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CENTER+27
Function Call: WRITE
  • Prompt: ?(XUXTADRM-$L(XUXTADTEXT))\2
  • Line Location: CENTER+28
Function Call: WRITE
  • Prompt: XUXTADTEXT
  • Line Location: CENTER+30
Function Call: WRITE
  • Prompt: !
  • Line Location: CONTINUE+28
Function Call: WRITE
  • Prompt: "Press <ENTER> to continue: "
  • Line Location: CONTINUE+31
Function Call: WRITE
  • Prompt: "Press <ENTER> to continue, '^' to quit: "
  • Line Location: CONTINUE+36
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGEBRK+40
Function Call: WRITE
  • Prompt: !!," PROCESSING TIME:"
  • Line Location: PROCTIME+50
Function Call: WRITE
  • Prompt: " (",$$GXDATE($$FMNOW(),1),")"
  • Line Location: PROCTIME+56
Function Call: WRITE
  • Prompt: @(XUXTADRVDON)
  • Line Location: REVVIDEO+19
Function Call: WRITE
  • Prompt: @(XUXTADRVDOFF)
  • Line Location: REVVIDEO+20
Info |  Source |  Entry Points |  Interaction Calls