Routine: XQARPRT1

Information

XQARPRT1 ;sgh/mtz,JLI/OAK_OIFO-ROUTINE TO PROVIDE COUNTS OF ALERTS ;9/3/03 11:17

Source Information

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

Caller Graph Total: 1

Package	Total	Caller Graph
Kernel	1	XQARPRT2

Entry Points

Name	Comments	DBIA/ICR reference
PRTLOC	;
PRTNAME	;
DATES	;
HEADER	;
DQ1	;
G1	;gather
PRT	;print
VIEWDQ	;
VIEWTRAK	; OPT. View an entry in the Alert Tracking file in Captioned mode
PRINTVAL	;
PRTSERVC	;
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
QUERYDIV	;
DIVPRINT	;
OLDEST()	; Returns date of oldest entry in alert tracking file
ORDER	;
PRTNUMBR	;

External References

Name	Field # of Occurrence
^%ZIS	EN2+8, VIEWTRAK+6
^%ZISC	DQ1+5
^%ZTLOAD	EN2+8, VIEWTRAK+6
$$GET1^DIQ	G1+17, G1+25, G1+27, PRTSERVC+4, PRINTVAL+3, PRINTVAL+4
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, VIEWTRAK+4
$$FMTE^XLFDT	G1+17, HEADER+2, HEADER+3
$$NOW^XLFDT	HEADER+2
$$UP^XLFSTR	G1+5
$$CHKCRIT^XQALSUR2	G1+7, G1+11
WORDHDR^XQARPRT2	HEADER+6
WORDS^XQARPRT2	EN2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
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+2
Function Call: WRITE	Prompt: !," for date range ",$$FMTE^XLFDT(XQASDT,"5DZ")," to ",$$FMTE^XLFDT(XQAEDT,"5DZ") Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"CRIT column indicates number of alerts containing critical text" Line Location: HEADER+5
Function Call: WRITE	Prompt: !!,?42,$S($D(XQAWORDS)>1:"Selected",1:" Total"),?70,"Oldest" Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"Name",?25,"Service/section",?43,"Alerts",?50,"Last Sign-on",?64,"CRIT Alert" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"-----------------",?25,"-----------------",?43,"------",?50,"------------",?64,"---- ----------" Line Location: HEADER+9
Function Call: WRITE	Prompt: @IOF Line Location: PRINTVAL+6
Function Call: WRITE	Prompt: !,NAME,?25,SERVICE,?43,NUMBER,?50,LSIGNON,?64,NCRIT,?69,OLDEST Line Location: PRINTVAL+7
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	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 VIEWTRAK+4
Routine Call	%ZIS Line Location: EN2+8 VIEWTRAK+6

Name	Line Occurrences (* Changed, ! Killed)
^TMP("XQARPRT1"	DQ1+2
^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
@(	PRTLOC+2
DATES	EN2+6
DIVPRINT	HEADER+10
DQ1	EN2+9
EN2	CRITICAL+2
G1	DQ1+4
HEADER	PRT+4, PRT+5, PRTSERVC+10, PRINTVAL+6, DIVPRINT+1
ORDER	EN2+7
PRINTVAL	PRTNAME+2, PRTNUMBR+6, PRTSERVC+11, PRTSERVC+13
PRT	DQ1+4
PRTLOC	PRT+4, PRT+5
QUERYDIV	EN2+7

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+5
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!, 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, VIEWTRAK+3
DIRUT	EN2+2~, EN2+7, QUERYDIV+1, QUERYDIV+10!, ORDER+5, ORDER+7, ORDER+12, VIEWTRAK+4!
DIVISION	EN2+2~, QUERYDIV+1*, QUERYDIV+2, ORDER+2, ORDER+3, G1+18, G1+21, G1+25, PRT+3
DIVISION(	QUERYDIV+11*, G1+22
DIVNAME	PRT+1~, PRT+4*, HEADER+10, DIVPRINT+2
DR	VIEWDQ+1~
DT	OLDEST+5
FND	OLDEST+1~, OLDEST+4*
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
IO("Q"	EN2+8!, VIEWTRAK+6!
IOF	HEADER+2, PRINTVAL+6, VIEWDQ+2
IOSL	PRINTVAL+6, 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+4, PRINTVAL+5, PRINTVAL+7
MSG	G1+1~, G1+5, G1+8, G1+9, G1+10*, G1+11
MSG1	G1+9~*
NAME	PRT+1~, PRTNAME+1~, PRTNAME+2, PRTNUMBR+1~, PRTNUMBR+2, PRTNUMBR+3, PRTNUMBR+4, PRTNUMBR+6, PRTSERVC+1~, PRTSERVC+2 , PRTSERVC+3, PRTSERVC+6, PRTSERVC+7, PRTSERVC+11, PRTSERVC+13, PRINTVAL+1~, PRINTVAL+2*, PRINTVAL+7
NCRIT	G1+3, G1+7, G1+11, G1+16, G1+17, PRTNAME+1~, PRTNUMBR+1~, PRTSERVC+1~, PRINTVAL+2, PRINTVAL+7
NUMB	PRTNUMBR+1~, PRTNUMBR+6~, PRTSERVC+1~, PRTSERVC+12, PRTSERVC+13
NUMBER	PRT+1~, PRTNAME+1~, PRTNUMBR+1~, PRTNUMBR+3, PRTNUMBR+4, PRTSERVC+1~, PRINTVAL+2, PRINTVAL+7
OLDEST	G1+3, G1+4, G1+17, PRTNAME+1~, PRTNUMBR+1~, PRTSERVC+1~, PRINTVAL+2, PRINTVAL+7, OLDEST+1~, OLDEST+5 , OLDEST+6
POP	EN2+1~, EN2+8, VIEWTRAK+6
PRTLOC	PRTLOC+1~, PRTLOC+2*
SERVICE	EN2+2~, PRTSERVC+4, PRTSERVC+5, PRTSERVC+6, PRTSERVC+7, PRTSERVC+10, PRTSERVC+11, PRTSERVC+12, PRTSERVC+13, PRINTVAL+3* , PRINTVAL+7
SERVICE(	ORDER+9*, PRTSERVC+5
SERVSRT	EN2+2~, ORDER+12*, PRTSERVC+6, PRTSERVC+7, PRTSERVC+11, PRTSERVC+12
SHOWDIV	EN2+2~, QUERYDIV+2, QUERYDIV+8, QUERYDIV+10, G1+23
U	QUERYDIV+11, ORDER+9, G1+4, G1+5, G1+17, PRTNUMBR+3, PRTSERVC+3, PRINTVAL+2, VIEWTRAK+2
VALUE	G1+17, G1+25, G1+27, PRT+1~, PRTNAME+1~, PRTNAME+2, PRTNUMBR+1~, PRTNUMBR+6, PRTSERVC+1~, PRTSERVC+11 , PRTSERVC+13*, PRINTVAL+2
X0	VIEWTRAK+1~, VIEWTRAK+2*, VIEWTRAK+3
X1	VIEWTRAK+1~, VIEWTRAK+2*, VIEWTRAK+3
XQAC1	EN2+1~, EN2+5*, G1+16, HEADER+2
XQACRIT	EN1+1~, EN2+3, EN2+4, EN2+5, EN2+8, CRITICAL+1~, ORDER+2, ORDER+3, G1+16, PRTNUMBR+3
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+3
XQAGLOB	DQ1+1~, DQ1+2*, DQ1+6, G1+25, G1+27, PRT+2, PRT+4
XQAGLOB1	PRT+1~, PRT+2, PRT+4, PRTNAME+2, PRTNUMBR+2, PRTNUMBR+3, PRTNUMBR+4, PRTNUMBR+6, PRTSERVC+2, PRTSERVC+3 , PRTSERVC+6, PRTSERVC+7, PRTSERVC+10, PRTSERVC+11, PRTSERVC+12, PRTSERVC+13
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+3, PRTSERVC+4, PRINTVAL+2*, PRINTVAL+3, PRINTVAL+4
XQAORDER	EN2+1~, EN2+7, ORDER+4*, ORDER+5, PRTLOC+2
XQARRAY	G1+19!
XQARRAY(	G1+20, G1+21, G1+22
XQASDT	EN2+1~, DATES+3*, DATES+4, G1+4, HEADER+3
XQAWORDS	EN2+2~, G1+7, G1+8, G1+11, HEADER+2, HEADER+7
XQAWORDS(	G1+9, G1+10, G1+11
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, VIEWTRAK+4
ZTDESC	EN2+1~, EN2+8, VIEWTRAK+6
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

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: