Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call