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  | All
Print Page as PDF
Routine: XQARPRT1

Package: Kernel

Routine: XQARPRT1


Information

XQARPRT1 ;JLI/OAK_OIFO-ROUTINE TO PROVIDE COUNTS OF ALERTS ; Oct 03, 2022@03:26:24

Source Information

Source file <XQARPRT1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 7 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  $$CHKCRIT^XQALSUR2  (WORDHDR,WORDS)^XQARPRT2  
VA FileMan 2 ($$GET1,EN,GETS)^DIQ  ^DIR  

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

Package Total Caller Graph
Kernel 3 XQAL CRITICAL ALERT COUNT  XQAL USER ALERTS COUNT  XQARPRT2  

Entry Points

Name Comments DBIA/ICR reference
EN1 ; OPT - generates a listing of the number of alerts a user has as well as last sign-on date, number of critical and/or abnomal imaging alerts, and the date of the oldest alert
EN2 ;
CRITICAL ; OPT - generates a listing of users with more than a specified number of alerts containing CRITICAL or ABNORMAL IMAGING
DATES ;
QUERYDIV ;
ORDER ;
DQ1 ;
G1 ;gather
PRT ;print
PRTLOC ;
HEADER ;
PRTNAME ;
PRTNUMBR ;
PRTSERVC ;
CHKSRV(XQAGLOB1,XQASRVC,XQACNAME,XQATYPE,XQANUM) ; Determine change to SERVICE/SECTION, XU*8*690
; Input:
; XQAGLOB1 - Value of ^TMP global root
; XQASRVC - Current Service
; XQASNAME - Current Name
; XQATYPE - Type of Report ("NUMB", "NAME")
; XQANUM - Number of Alerts (For Service report on Number)
PRINTVAL(XQAPAWS,FSTNOSVC) ;Print report value
; Input ; Add to indicate if report needs page break, XU*8*690
; XQAPAWS - 1: New Service
; 0: Same Service
; FSTNOSVC - 1: First line (No Service) written after ERROR LIMIT exceeded
; 0: First line NOT written after ERROR LIMIT exceeded
XQAPAUS(XQAQTVAR) ;; Pause API, XU*8*690
XQZMAXER() ;;Return KERNEL SYSTEM PARAMETER file (#8989.3) ERROR LIMIT field (#520.1), XU*8*690
DIVPRINT ;
OLDEST() ; Returns date of oldest entry in alert tracking file
VIEWTRAK ; OPT. View an entry in the Alert Tracking file in Captioned mode
VIEWDQ ;

External References

Name Field # of Occurrence
^%ZIS EN2+8, VIEWTRAK+6
^%ZISC DQ1+6
^%ZTLOAD EN2+8, VIEWTRAK+6
$$GET1^DIQ G1+17, G1+25, G1+27, PRTSERVC+6, PRINTVAL+9, PRINTVAL+38
EN^DIQ VIEWDQ+5
GETS^DIQ G1+19
^DIR EN2+5, DATES+2, DATES+5, QUERYDIV+1, QUERYDIV+4, QUERYDIV+8, QUERYDIV+11, ORDER+4, ORDER+7, ORDER+9
ORDER+12, DQ1+5, XQAPAUS+1, VIEWTRAK+4
$$FMTE^XLFDT G1+17, HEADER+5, HEADER+6
$$NOW^XLFDT HEADER+5
$$UP^XLFSTR G1+5
$$CHKCRIT^XQALSUR2 G1+7, G1+11
WORDHDR^XQARPRT2 HEADER+8
WORDS^XQARPRT2 EN2+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: " COUNT of ",$S($D(XQAWORDS)>1:"SELECTED ",1:""),"ALERTS - users with more than ",XQAC1," on ",$$FMTE^XLFDT($$NOW^XLFDT())
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !," for date range ",$$FMTE^XLFDT(XQASDT,"5DZ")," to ",$$FMTE^XLFDT(XQAEDT,"5DZ")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"CRIT column indicates number of alerts containing critical text"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!,?42,$S($D(XQAWORDS)>1:"Selected",1:" Total"),?70,"Oldest"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Name",?25,"Service/section",?43,"Alerts",?50,"Last Sign-on",?64,"CRIT Alert"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"-----------------",?25,"-----------------",?43,"------",?50,"------------",?64,"---- ----------"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTVAL+41
Function Call: WRITE
  • Prompt: !," Daily Error Trap limit is "_$$XQZMAXER()_" errors for users missing SERVICE/SECTION."
  • Line Location: PRINTVAL+48
Function Call: WRITE
  • Prompt: !," Limit Reached. No more entries will be added for '<No Service>' users today!"
  • Line Location: PRINTVAL+49
Function Call: WRITE
  • Prompt: !," Daily Error Trap limit is "_$$XQZMAXER()_" errors for users missing SERVICE/SECTION."
  • Line Location: PRINTVAL+52
Function Call: WRITE
  • Prompt: !," Limit Reached. No more entries will be added for '<No Service>' users today!"
  • Line Location: PRINTVAL+53
Function Call: WRITE
  • Prompt: !,NAME,?25,SERVICE,?43,NUMBER,?50,LSIGNON,?64,NCRIT,?69,OLDEST
  • Line Location: PRINTVAL+55
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTVAL+58
Function Call: WRITE
  • Prompt: !,?5,"Division: ",$S(DIVNAME=0:"These users are not assigned to a division",DIVNAME=99999:"These users are assigned to multiple divisions",1:DIVNAME)
  • Line Location: DIVPRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEWDQ+2
Routine Call
  • %ZIS
  • Line Location:
    • EN2+8
    • VIEWTRAK+6
Routine Call
  • DIR
  • Line Location:
    • EN2+5
    • DATES+2
    • DATES+5
    • QUERYDIV+1
    • QUERYDIV+4
    • QUERYDIV+8
    • QUERYDIV+11
    • ORDER+4
    • ORDER+7
    • ORDER+9
    • ORDER+12
    • DQ1+5
    • XQAPAUS+1
    • VIEWTRAK+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZTER(3.077 - [#3.077] PRINTVAL+14, PRINTVAL+18
^TMP("XQARPRT1" DQ1+2
^XTV(8989.3 - [#8989.3] XQZMAXER+1
^XTV(8992 - [#8992] G1+2, G1+3, G1+4, G1+5, G1+6
^XTV(8992.1 - [#8992.1] OLDEST+4, VIEWTRAK+2

Label References

Name Line Occurrences
$$CHKSRV PRTSERVC+19, PRTSERVC+25
$$XQZMAXER PRINTVAL+21, PRINTVAL+28, PRINTVAL+29, PRINTVAL+30, PRINTVAL+31, PRINTVAL+32, PRINTVAL+33, PRINTVAL+46, PRINTVAL+47, PRINTVAL+48
, PRINTVAL+52
@( PRTLOC+2
DATES EN2+6
DIVPRINT HEADER+12
DQ1 EN2+9
EN2 CRITICAL+2
G1 DQ1+4
HEADER PRT+5, PRT+6, PRINTVAL+42, PRINTVAL+59, DIVPRINT+1
ORDER EN2+7
PRINTVAL PRTNAME+3, PRTNUMBR+11, PRTSERVC+19, PRTSERVC+25
PRT DQ1+4
PRTLOC PRT+5, PRT+6
QUERYDIV EN2+7
XQAPAUS PRINTVAL+41, PRINTVAL+58

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN2+1~, EN2+8*, VIEWTRAK+6*
ALLSERV EN2+2~, ORDER+7*, ORDER+8, PRTSERVC+7
>> CHKCNT CHKSRV+13*
COUNT G1+1~, G1+3*, G1+7*, G1+8*, G1+16, G1+17
CRITMSG G1+1~, G1+6*, G1+7, G1+11
DA VIEWDQ+1~, VIEWDQ+5*
DAARRAY VIEWTRAK+1~, VIEWTRAK+5
DAARRAY( VIEWTRAK+4*, VIEWDQ+4, VIEWDQ+5
DATE EN2+2~, G1+1~, G1+4*
DIC VIEWDQ+1~, VIEWDQ+5*
DIQ VIEWDQ+1~
DIQ(0 VIEWDQ+3*
DIR EN2+1~, EN2+5!, DATES+2!, DATES+5!, QUERYDIV+1!, QUERYDIV+4!, QUERYDIV+8!, QUERYDIV+11!, ORDER+4!, ORDER+7!
ORDER+10!, ORDER+12!, DQ1+5!, XQAPAUS+3!, VIEWTRAK+1~, VIEWTRAK+5!
DIR("?" QUERYDIV+1*, QUERYDIV+3*, QUERYDIV+6*, QUERYDIV+7*, ORDER+1*, ORDER+2*, ORDER+3*, ORDER+6*
DIR("A" EN2+4*, DATES+1*, DATES+4*, QUERYDIV+1*, QUERYDIV+3*, QUERYDIV+5*, QUERYDIV+11*, ORDER+1*, ORDER+6*, ORDER+9*
ORDER+12*, VIEWTRAK+4*
DIR("B" EN2+5*
DIR(0 EN2+4*, DATES+1*, DATES+4*, QUERYDIV+1*, QUERYDIV+3*, QUERYDIV+5*, QUERYDIV+11*, ORDER+1*, ORDER+6*, ORDER+9*
ORDER+12*, DQ1+5*, XQAPAUS+1*, VIEWTRAK+3*
DIROUT XQAPAUS+2, XQAPAUS+3!
DIRUT EN2+2~, EN2+7, QUERYDIV+1, QUERYDIV+10!, ORDER+5, ORDER+7, ORDER+12, XQAPAUS+2, XQAPAUS+3!, VIEWTRAK+4!
DIVISION EN2+2~, QUERYDIV+1*, QUERYDIV+2, ORDER+2, ORDER+3, G1+18, G1+21, G1+25, PRT+4
DIVISION( QUERYDIV+11*, G1+22
DIVNAME PRT+1~, PRT+5*, HEADER+12, DIVPRINT+2
DR VIEWDQ+1~
DT OLDEST+5
DTOUT XQAPAUS+2, XQAPAUS+3!
DUOUT XQAPAUS+2, XQAPAUS+3!
FND OLDEST+1~, OLDEST+4*
FSTNOSVC PRTNAME+1~, PRTNAME+2*, PRTNAME+3, PRTNUMBR+1~, PRTNUMBR+2*, PRTNUMBR+11, PRTSERVC+1~, PRTSERVC+2*, PRTSERVC+19, PRTSERVC+25
, PRINTVAL~, PRINTVAL+50*, PRINTVAL+51, PRINTVAL+54*
I EN2+2~, QUERYDIV+11*, ORDER+9*, G1+3*, G1+4, G1+5, G1+6, G1+9~, G1+10*, G1+11
, OLDEST+1~, OLDEST+4*, OLDEST+5, VIEWTRAK+4*
IO DQ1+3, DQ1+5
IO("Q" EN2+8!, VIEWTRAK+6!
IO(0 DQ1+5, XQAPAUS+1
IOF HEADER+2, HEADER+3, VIEWDQ+2
IOSL PRINTVAL+40, DIVPRINT+1
J G1+9~*, G1+10, G1+11, OLDEST+1~, OLDEST+4*
K G1+20~*, G1+21, G1+22, G1+25*
L G1+20~, G1+22*
LSIGNON PRT+1~, PRTNAME+1~, PRTNUMBR+1~, PRTSERVC+1~, PRINTVAL+38*, PRINTVAL+39*, PRINTVAL+55
MSG G1+1~, G1+5*, G1+8, G1+9*, G1+10*, G1+11
MSG1 G1+9~*
NAME PRT+1~, PRTNAME+1~, PRTNAME+3*, PRTNUMBR+1~, PRTNUMBR+3*, PRTNUMBR+4, PRTNUMBR+5, PRTNUMBR+9*, PRTNUMBR+10*, PRTNUMBR+11
PRTSERVC+1~, PRTSERVC+3*, PRTSERVC+4*, PRTSERVC+5, PRTSERVC+8, PRTSERVC+9, PRTSERVC+16*, PRTSERVC+17*, PRTSERVC+18, PRTSERVC+19
PRTSERVC+22*, PRTSERVC+23*, PRTSERVC+24, PRTSERVC+25, PRINTVAL+7~, PRINTVAL+8*, PRINTVAL+55
NCRIT G1+3*, G1+7*, G1+11*, G1+16, G1+17, PRTNAME+1~, PRTNUMBR+1~, PRTSERVC+1~, PRINTVAL+8*, PRINTVAL+55
NUMB PRTNUMBR+1~, PRTNUMBR+7~, PRTNUMBR+8*, PRTNUMBR+9*, PRTNUMBR+10, PRTNUMBR+11, PRTSERVC+1~, PRTSERVC+21*, PRTSERVC+23, PRTSERVC+24
PRTSERVC+25
NUMBER PRT+1~, PRTNAME+1~, PRTNUMBR+1~, PRTNUMBR+4*, PRTNUMBR+5, PRTSERVC+1~, PRINTVAL+8*, PRINTVAL+55
NXTSERV CHKSRV+12~
>> NXTSERVC CHKSRV+24*, CHKSRV+25
OLDEST G1+3*, G1+4*, G1+17, PRTNAME+1~, PRTNUMBR+1~, PRTSERVC+1~, PRINTVAL+8*, PRINTVAL+55, OLDEST+1~, OLDEST+5*
, OLDEST+6
POP EN2+1~, EN2+8, VIEWTRAK+6
PRTLOC PRTLOC+1~, PRTLOC+2*
RESULT CHKSRV+12~, CHKSRV+13*, CHKSRV+15*, CHKSRV+16, CHKSRV+17*, CHKSRV+25*, CHKSRV+26
SERVICE EN2+2~, PRTSERVC+6*, PRTSERVC+7, PRTSERVC+8, PRTSERVC+9, PRTSERVC+12*, PRTSERVC+13*, PRTSERVC+17, PRTSERVC+18, PRTSERVC+19
PRTSERVC+21, PRTSERVC+23, PRTSERVC+24, PRTSERVC+25, PRINTVAL+9*, PRINTVAL+11, PRINTVAL+13*, PRINTVAL+46, PRINTVAL+55
SERVICE( ORDER+9*, PRTSERVC+7
SERVSRT EN2+2~, ORDER+12*, PRTSERVC+8, PRTSERVC+9, PRTSERVC+15, PRTSERVC+20
SHOWDIV EN2+2~, QUERYDIV+2, QUERYDIV+8*, QUERYDIV+10*, G1+23
SRVERRCT PRINTVAL+7~, PRINTVAL+15*, PRINTVAL+17*, PRINTVAL+19*, PRINTVAL+20*, PRINTVAL+21, PRINTVAL+28, PRINTVAL+47
U QUERYDIV+11, ORDER+9, G1+4, G1+5, G1+17, PRTNUMBR+4, PRTSERVC+5, PRINTVAL+8, VIEWTRAK+2
VALUE G1+17*, G1+25, G1+27, PRT+1~, PRTNAME+1~, PRTNAME+3*, PRTNUMBR+1~, PRTNUMBR+11*, PRTSERVC+1~, PRTSERVC+18*
PRTSERVC+24*, PRINTVAL+8
X XQAPAUS+3!
X0 VIEWTRAK+1~, VIEWTRAK+2*, VIEWTRAK+3
X1 VIEWTRAK+1~, VIEWTRAK+2*, VIEWTRAK+3
XQAC1 EN2+1~, EN2+5*, G1+16, HEADER+5
XQACNAME CHKSRV~, CHKSRV+15, CHKSRV+20
XQACRIT EN1+1~*, EN2+3, EN2+4, EN2+5, EN2+8, CRITICAL+1~*, ORDER+2, ORDER+3, G1+16, PRTNUMBR+4
XQACTR HEADER+1~*
XQADIV G1+19!*, G1+21*, G1+22*, G1+23!*
XQADIV( G1+21*, G1+22*, G1+25
XQADIV(0 G1+19*
XQADIV(99999 G1+23*
XQAEDT EN2+1~, DATES+6*, G1+4, HEADER+6
XQAFCNT PRINTVAL+12~, PRINTVAL+19*
XQAFP PRT+1~, PRT+2*, HEADER+3, HEADER+4*
XQAGLOB DQ1+1~, DQ1+2*, DQ1+7, G1+25, G1+27, PRT+3, PRT+5
XQAGLOB1 PRT+1~, PRT+3*, PRT+5*, PRTNAME+3, PRTNUMBR+3, PRTNUMBR+4, PRTNUMBR+5, PRTNUMBR+9, PRTNUMBR+10, PRTNUMBR+11
PRTSERVC+4, PRTSERVC+5, PRTSERVC+8, PRTSERVC+9, PRTSERVC+13, PRTSERVC+17, PRTSERVC+18, PRTSERVC+19, PRTSERVC+21, PRTSERVC+23
PRTSERVC+24, PRTSERVC+25, CHKSRV~, CHKSRV+15, CHKSRV+17, CHKSRV+20, CHKSRV+22, CHKSRV+24
XQAI VIEWDQ+1~, VIEWDQ+4*, VIEWDQ+5
XQAN1 DQ1+1~, G1+2*, G1+3, G1+4, G1+5, G1+6, G1+17, G1+19, G1+25, G1+27
PRTNAME+1~, PRTNUMBR+1~, PRTSERVC+1~, PRTSERVC+5*, PRTSERVC+6, PRINTVAL+8*, PRINTVAL+9, PRINTVAL+38
XQANNAME CHKSRV+12~, CHKSRV+20*, CHKSRV+21
XQANNUM CHKSRV+12~, CHKSRV+22*, CHKSRV+23
XQANOTES PRINTVAL+12~
XQANOTES("PROGRAMMER" PRINTVAL+23*, PRINTVAL+24*, PRINTVAL+25*, PRINTVAL+26*, PRINTVAL+27*, PRINTVAL+29*, PRINTVAL+30*, PRINTVAL+31*, PRINTVAL+32*, PRINTVAL+33*
, PRINTVAL+34*, PRINTVAL+35*
XQANUM CHKSRV~, CHKSRV+20, CHKSRV+22
XQAORDER EN2+1~, EN2+7, ORDER+4*, ORDER+5, ORDER+12*, PRTLOC+2
XQAPAWS PRINTVAL~, PRINTVAL+57
XQAQTVAR EN2+2~, DQ1+5, PRTNAME+3, PRTNUMBR+3, PRTNUMBR+9, PRTNUMBR+10, PRTSERVC+4, PRTSERVC+13, PRTSERVC+17, PRTSERVC+21
PRTSERVC+23, PRINTVAL+41, PRINTVAL+42, PRINTVAL+44, PRINTVAL+58, PRINTVAL+59, XQAPAUS~, XQAPAUS+2*
XQARRAY G1+19!
XQARRAY( G1+20, G1+21, G1+22
XQASDT EN2+1~, DATES+3*, DATES+4, G1+4, HEADER+6
XQASRVC CHKSRV~, CHKSRV+15, CHKSRV+17, CHKSRV+20, CHKSRV+22, CHKSRV+24, CHKSRV+25
XQASVCFP PRT+1~, PRT+2*, PRTSERVC+14*
XQATYPE CHKSRV~, CHKSRV+14, CHKSRV+19
XQAWORDS EN2+2~, G1+7, G1+8, G1+11, HEADER+5, HEADER+9
XQAWORDS( G1+9, G1+10, G1+11
XQAWRTER PRINTVAL+7~, PRINTVAL+21*, PRINTVAL+51
XQAZTEN PRINTVAL+12~, PRINTVAL+14*, PRINTVAL+15, PRINTVAL+16, PRINTVAL+18
XQAZTR PRINTVAL+12~, PRINTVAL+18*, PRINTVAL+19
>> XQY0 PRINTVAL+24
Y EN2+1~, EN2+3!, EN2+5, EN2+6, DATES+2, DATES+3, DATES+5, DATES+6, QUERYDIV+1, QUERYDIV+4
QUERYDIV+8, QUERYDIV+11, ORDER+4, ORDER+7, ORDER+9, ORDER+12, XQAPAUS+3!, VIEWTRAK+4
ZTDESC EN2+1~, EN2+8*, VIEWTRAK+6*
>> ZTQUEUED DQ1+5, HEADER+2, HEADER+3, PRINTVAL+41, PRINTVAL+58
ZTRTN EN2+1~, EN2+8*, VIEWTRAK+6*
ZTSAVE EN2+1~
ZTSAVE("*" EN2+8*, VIEWTRAK+6*
ZTSK EN2+8!, VIEWTRAK+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All