Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ($$DT,$$FMDIFF,$$NOW)^XLFDT  DIERR^XUXTADDILG  $$DATE^XUXTADDT1  
VA FileMan 2 ^%DT  GETS^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Kernel 5 XUXTADASK1  XUXTADDILG  XUXTADDT1  XUXTADPRT2  XUXTADSSE  

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

External References

Name Field # of Occurrence
^%DT CNVDT
GETS^DIQ GETS
$$DT^XLFDT FMDATE
$$FMDIFF^XLFDT FMDIFF
$$NOW^XLFDT FMNOW
DIERR^XUXTADDILG DIERR
$$DATE^XUXTADDT1 GXDATE

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF( TOLW

Label References

Name Line Occurrences
$$FMDIFF PROCTIME+41
$$FMNOW INITPRT+22, PROCTIME+27, PROCTIME+56
$$GXDATE INITPRT+22, PROCTIME+56
@( PAGEBRK+43
CENTER NODATA+19
CNVDT PROCTIME+37, PROCTIME+39
CONTINUE NODATA+20, PAGEBRK+39
DIERR REVVIDEO+15
GETS REVVIDEO+14
REVVIDEO CENTER+29, CENTER+31

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PROCTIME+24~
%DT PROCTIME+25~, PROCTIME+35*
A1 PROCTIME+25~
ADA GETS~
ADIQGERRA GETS~
ADIQGIPAR GETS~
ADIQGPARM GETS~
ADIQGR GETS~
ADIQGTA GETS~
ADR GETS~
ADS FMDIFF~
AP TOLW~
ATIMEBEG FMDIFF~
ATIMEEND FMDIFF~
AXUXTADDATE GXDATE~
AXUXTADFORMAT GXDATE~
AXUXTADFRMRTN DIERR~
AXUXTADLFTMAR DIERR~
AXUXTADMSGROOT DIERR~
AXUXTADNOPAUSE DIERR~
AXUXTADSECS GXDATE~
AXUXTADTIME GXDATE~
AXUXTADWIDTH DIERR~
DDH PROCTIME+25~
DIERR REVVIDEO+11~
DTIME CONTINUE+25
DTOUT PROCTIME+25~
DUOUT PROCTIME+25~
IOF PAGEBRK+40
IOM CENTER+25, INITPRT+23, INITPRT+24, INITPRT+25, INITPRT+26, LINEWRAP+22
IOSL PAGEBRK+35
IOST CONTINUE+23, PAGEBRK+40
IOST(0 REVVIDEO+13
>> TOLW("RM" LINEWRAP+23
X LINEWRAP+20~, LINEWRAP+22*, PROCTIME+25~, PROCTIME+36*, PROCTIME+38*
XUXTADCHKSL PAGEBRK~, PAGEBRK+34*, PAGEBRK+35
XUXTADCNT CONTINUE+22~, CONTINUE+28*, INITPRT+20*
XUXTADCNTLF CENTER+22~, CENTER+27*
XUXTADDAYS PROCTIME+24~, PROCTIME+45*, PROCTIME+51
XUXTADDIFF PROCTIME+24~, PROCTIME+41*, PROCTIME+45, PROCTIME+46, PROCTIME+47, PROCTIME+48
>> XUXTADDT INITPRT+22*
XUXTADDTIME CONTINUE+22~, CONTINUE+25*, CONTINUE+32, CONTINUE+37
>> XUXTADFLAG1 INITPRT+27*
XUXTADHRS PROCTIME+24~, PROCTIME+46*, PROCTIME+52
XUXTADIENS REVVIDEO+11~, REVVIDEO+13*, REVVIDEO+14, REVVIDEO+16, REVVIDEO+17
XUXTADLF CENTER~, CENTER+24*, CENTER+27, CONTINUE~, CONTINUE+24*, CONTINUE+28, NODATA~, NODATA+18*, NODATA+19
>> XUXTADLINED INITPRT+23*
>> XUXTADLINEE INITPRT+24*
>> XUXTADLINEP INITPRT+25*
>> XUXTADLINEU INITPRT+26*
XUXTADMINS PROCTIME+24~, PROCTIME+47*, PROCTIME+53
XUXTADNEWPG PAGEBRK~, PAGEBRK+33*, PAGEBRK+40
XUXTADPG INITPRT+20*, PAGEBRK~, PAGEBRK+39, PAGEBRK+40, PAGEBRK+41*
XUXTADQUIT CONTINUE+35*, CONTINUE+38*, CONTINUE+39, INITPRT+20*, PAGEBRK+39, REVVIDEO+11~, REVVIDEO+15
XUXTADREAD CONTINUE+22~, CONTINUE+32*, CONTINUE+37*, CONTINUE+38*
XUXTADRM CENTER~, CENTER+25*, CENTER+28
XUXTADRTN PAGEBRK~, PAGEBRK+43
XUXTADRVDOFF REVVIDEO+11~, REVVIDEO+17*, REVVIDEO+20
XUXTADRVDON REVVIDEO+11~, REVVIDEO+16*, REVVIDEO+19
XUXTADRVIDEO CENTER~, CENTER+26*, CENTER+29, CENTER+31
XUXTADSECS PROCTIME+24~, PROCTIME+48*, PROCTIME+49*, PROCTIME+54
XUXTADTEXT CENTER~, CENTER+23, CENTER+28, CENTER+30
XUXTADTIMEBEG PROCTIME~, PROCTIME+36, PROCTIME+37, PROCTIME+41
XUXTADTIMEEND PROCTIME~, PROCTIME+27*, PROCTIME+38, PROCTIME+39, PROCTIME+41
XUXTADTT REVVIDEO+11~
XUXTADTT( REVVIDEO+16, REVVIDEO+17
XUXTADTYPE CONTINUE~, CONTINUE+26*, CONTINUE+30, CONTINUE+34
XUXTADVALUE LINEWRAP~, LINEWRAP+22, REVVIDEO~, REVVIDEO+19, REVVIDEO+20
Y PROCTIME+25~, PROCTIME+37!, PROCTIME+39!

Marked Items

Name Field # of Occurrence
$T( REVVIDEO+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All