Routine: XQARPRT1

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

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, XU8690 ; 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, XU8690 ; 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, XU8690
XQZMAXER()	;;Return KERNEL SYSTEM PARAMETER file (#8989.3) ERROR LIMIT field (#520.1), XU8690
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!

Customize PDF page

Package: Kernel

Routine: XQARPRT1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: