Routine: XTPMSTA3

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$ADD^XPDMENU
VA Fileman	4	^%DT ^%DTC $$FIND1^DIC YN^DICN
Toolkit	1	^XTPMKPCF

Entry Points

Name	Comments	DBIA/ICR reference
SORT
ADDOP	; Add a new option under the XUSER menu option.
EN
HDR
DEV
PRINT	;
PAUSE
EXIT
DATE

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+2
^%DTC	PRINT+14, PRINT+15
^%ZIS	XTPMSTA3+3, DEV
HOME^%ZIS	DEV+1
^%ZISC	EXIT+1
^%ZTLOAD	DEV+1
$$FIND1^DIC	ADDOP+4
YN^DICN	DATE+4
$$ADD^XPDMENU	ADDOP+4
^XTPMKPCF	PRINT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"Patch Monitor Statistics By Released Date",!!! Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,$C(7),"Starting date is later than ending date.",!! Line Location: DATE+3
Function Call: WRITE	Prompt: !!,"Do you want to see the patch data" Line Location: DATE+4
Function Call: WRITE	Prompt: !! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"Queued as task #",ZTSK Line Location: DEV+2
Function Call: WRITE	Prompt: XTBRELDX,?14,XTBPTNAM,?27,XTBCPLDT,?41,XTBINSDT,?55,XTBPRIOR Line Location: PRINT+20
Function Call: WRITE	Prompt: ?67,$J(XTBDAYLT,3,0)_$S(XTBDAYLT>1:" days",1:" day") Line Location: PRINT+21
Function Call: WRITE	Prompt: ! Line Location: PRINT+23
Function Call: WRITE	Prompt: !!?6,"Totals patches received for date range: ",XTBTPTCH,! Line Location: PRINT+27
Function Call: WRITE	Prompt: "Total patches installed past compliance date: ",XTBTLATE,!! Line Location: PRINT+28
Function Call: WRITE	Prompt: ?25,"Delinquent patch % : ",$S(XTBDIVOK=1:$J((XTBTLATE/XTBTPTCH*100),6,2),1:100)_" %",! Line Location: PRINT+30
Function Call: WRITE	Prompt: ?25," Compliance % : ",$S(XTBDIVOK=1:$J(100-(XTBTLATE/XTBTPTCH*100),6,2),1:100)," %",! Line Location: PRINT+31
Function Call: WRITE	Prompt: !!,"Press ENTER to end " Line Location: PRINT+32
Function Call: WRITE	Prompt: @IOF,! Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: XTBCURDT Line Location: HDR+2
Function Call: WRITE	Prompt: ?(IOM-$L(X)\2),X,?(IOM-12),"Page: ",PG,!,?31,"By Released Date",! Line Location: HDR+3
Function Call: WRITE	Prompt: ?(IOM-$L(X)\2),X,! Line Location: HDR+4
Function Call: WRITE	Prompt: !,"Release",?14,"Patch",?27,"Compliance",?41,"Install",?67,"# Days",! Line Location: HDR+5
Function Call: WRITE	Prompt: "Date",?14,"Number",?27,"Date",?41,"Date",?55,"Priority",?67,"Delinquent",!,XTBLINE,! Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"Press ENTER to continue or '^' to end " Line Location: PAUSE+1
Routine Call	%ZIS Line Location: DEV+1
Routine Call	DIC Line Location: ADDOP+4
Routine Call	%ZIS Line Location: XTPMSTA3+3 DEV

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DATE+1, DATE+2, PRINT+1, PRINT+16, PRINT+17, PRINT+18
^DD("SITE"	HDR+2
^TMP($J	SORT!, SORT+7*, PRINT+5, PRINT+6, PRINT+8, EXIT+5!
^XPD(9.9 - [#9.9]	SORT+2, SORT+3, PRINT+10, PRINT+11, PRINT+13

Label References

Name	Line Occurrences
DATE	DATE+3
EXIT	DATE+1, DATE+2, DEV, DEV+2, PRINT+25
HDR	PRINT+3, PRINT+24, PRINT+26
PAUSE	PRINT+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DATE+4*, EXIT+2!
%DT	DATE, DATE+2, EXIT+2!
%DT("A"	DATE+1, DATE+2
%T	EXIT+4!
%Y	EXIT+4!
%ZIS	DEV*, EXIT+2!
D0	PRINT+12*!, EXIT+4!
DIC	EXIT+4!
DT	PRINT+1, PRINT+15
DTIME	PRINT+32, PAUSE+1
IO	SORT
IO("Q"	DEV+1
IOF	EN, EXIT, HDR, HDR+1
IOM	PRINT+2, HDR+3, HDR+4
ION	DEV+1
IOP	XTPMSTA3+3*!
IOSL	PRINT+23, PRINT+24, PRINT+26
IOST	PRINT+23, PRINT+26, PRINT+32, EXIT, HDR, HDR+1, PAUSE
PG	PRINT+3, EXIT+4!, HDR, HDR+3
POP	DEV, EXIT+4!
U	SORT+4, SORT+5, SORT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+13, PAUSE+2
X	PRINT+14, PRINT+15, EXIT+4!, HDR+2, HDR+3, HDR+4
X1	PRINT+14, PRINT+15, EXIT+4!
X2	PRINT+14, PRINT+15, EXIT+4!
XTBANS	PRINT+32!, EXIT+2!, PAUSE+1!, PAUSE+2
XTBBDT	DATE+1*, DATE+3, SORT+6, EXIT+2!
XTBBDT1	DATE+1*, EXIT+2!, HDR+4
XTBCPLDT	SORT+5, SORT+7, PRINT+9, PRINT+14, PRINT+15, PRINT+18, PRINT+20, EXIT+2!, PAUSE+2
XTBCPLDX	EXIT+2!
XTBCURDT	PRINT+1*, EXIT+5!, HDR+2
XTBDA	SORT+1, SORT+2, SORT+3, SORT+7, PRINT+6, PRINT+8, PRINT+10, PRINT+11, PRINT+12, PRINT+13 , EXIT+2!, PAUSE+2
XTBDAYLT	PRINT+14, PRINT+15, PRINT+21, PRINT+22, EXIT+2!
XTBDIVOK	PRINT+29*, PRINT+30, PRINT+31, EXIT+5!
XTBDTA	SORT+3, SORT+4, SORT+5, PRINT+8, PRINT+9, EXIT+3!
XTBEDT	DATE+2*, DATE+3, SORT+6, EXIT+2!
XTBEDT1	DATE+2*, EXIT+2!, HDR+4
XTBGPDA	EXIT+3!
XTBINSDT	PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16*, PRINT+20, EXIT+3!
XTBLINE	PRINT+2!*, EXIT+3!, HDR+6
XTBNMSP	SORT+4, EXIT+2!, EXIT+3!, PAUSE+2
XTBOLDNM	EXIT+3!
XTBOLGRP	EXIT+5!
XTBOUT	PRINT+5, PRINT+6, PRINT+23, PRINT+25, EXIT+5!, PAUSE+1!, PAUSE+2*
XTBPGF	EXIT+5!
XTBPRIOR	SORT+5, SORT+7, PRINT+9, PRINT+19*, PRINT+20, EXIT+5!
XTBPTNAM	SORT+4, SORT+7, PRINT+4, PRINT+5, PRINT+6, PRINT+8, PRINT+20, EXIT+3!, PAUSE+2
XTBPTYPE	PRINT+11*, PRINT+12, PRINT+13, EXIT+3!
XTBRCVDT	PRINT+10*, EXIT+4!
XTBRELDT	SORT+5, SORT+6, SORT+7, PRINT+5, PRINT+6, PRINT+8, PRINT+17, EXIT+5!
>> XTBRELDX	PRINT+17*, PRINT+20
XTBTLATE	PRINT+4, PRINT+22, PRINT+28, PRINT+30, PRINT+31, EXIT+4!
XTBTPTCH	PRINT+4, PRINT+7, PRINT+27, PRINT+29, PRINT+30, PRINT+31, EXIT+4!
XTBVIEW	DATE+4*, PRINT+20, PRINT+21, PRINT+23, PRINT+24, EXIT+5!
XTINST	PRINT+12, EXIT+5!
XUA	ADDOP+1~, ADDOP+2*, ADDOP+4
XUB	ADDOP+1~, ADDOP+3*, ADDOP+4
XUC	ADDOP+1~, ADDOP+4*
Y	DATE+1, DATE+2, PRINT+1, PRINT+16, PRINT+17, PRINT+18, EXIT+4!
ZTDESC	DEV+1*, EXIT+4!
ZTIO	DEV+1*, EXIT+4!
ZTRTN	DEV+1*, EXIT+4!
ZTSAVE	EXIT+4!
ZTSAVE("XTB*"	DEV+1*
ZTSK	DEV+2, EXIT+5!

Customize PDF page

Package: Toolkit

Routine: XTPMSTA3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: