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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: XTPMSTA3

Package: Toolkit

Routine: XTPMSTA3


Information

XTPMSTA3 ;OAK/BP - PRINT PATCH STATISTICS BY RELEASED DATE; ; 3/15/11 7:29am

Source Information

Source file <XTPMSTA3.m>

Call Graph

Call Graph Total: 9

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All