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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XUVPS

Package: Kernel

Routine: XUVPS


Information

XUVPS ; Bham FO/CML3/gts - VistA Package Sizing; ; 02 Mar 2016 9:05 AM

Source Information

Source file <XUVPS.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ($$DEFDIR,CLOSE,OPEN)^%ZISH  ^%ZTLOAD  $$NOW^XLFDT  LOOP^XUVPS  
VA FileMan 5 DD^%DT  NOW^%DTC  ^DIC  FILE^DID  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 2 XU PACKAGE SIZE REPORT  XUVPS  

Entry Points

Name Comments DBIA/ICR reference
INIT ;;
ALL ;
SORT ;
DEVICE ;
LOOP ;
DISALL ;
; display option 4 has no formatting, and is used for creating
; spreadsheets, for which the following heading lines are not needed
DAD ;
PDAD(XUVPSORT,DATA,D1,D2,D3) ; print actual data (finally)
SELPKG ;
QUIT ;
PRINT(Y) ;
ROUTINE(PKGPFX,TLCNT) ; Returns total of all characters in all routines, including line feeds on each line of each routine
; Input - PKGPFX : Prefix for routine in package
; - TLCNT : Sum of routine sizes in package
PROTOCOL(PKGPFX,PKGIEN) ; ;;TO DO: GTS - REMOVE NOTE **UNIT TESTED**
REMPROC(PKGPFX) ;;TO DO: GTS - REMOVE NOTE **UNIT TESTED**
OPTION(PKGPFX) ;;TO DO: GTS - REMOVE NOTE **UNIT TESTED**
LPVAR(PKGIEN,PKGNAME,CLASS) ;Set Package Name and Class for loop
; Input: PKGIEN - Package file 9.4 IEN
CHKHOST() ;Function to prompt user - indicate host file need
SELFILE(FILENME,STORPATH) ; Select Filename and Directory location
FILABORT(CRTHOST,FILENME,STORPATH) ;Host file selected but File name and path not entered
RSIZE(RTN) ; Compute routine size (# characters plus line feeds) [^%ZOSF("SIZE") algorithm]
RLOAD(PKGPFX) ; Load a routine into ^XTMP("XUVPS") for parsing

External References

Name Field # of Occurrence
DD^%DT PRINT+29
NOW^%DTC PRINT+29
^%ZIS DEVICE+18
HOME^%ZIS DEVICE+18
$$DEFDIR^%ZISH SELFILE+5, SELFILE+16
CLOSE^%ZISH DAD+16
OPEN^%ZISH DAD+8
^%ZTLOAD DEVICE+12, DEVICE+22
^DIC SELPKG+2
FILE^DID LOOP+12
^DIR ALL+4, SORT+10, CHKHOST+10, SELFILE+12, SELFILE+23, FILABORT+10
$$NOW^XLFDT SELFILE+20
LOOP^XUVPS DEVICE+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"DUZ must be defined."
  • Line Location: INIT+14
Function Call: WRITE
  • Prompt: !!,"VistA Package Sizing Report",!
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !!,"It will take a considerable amount of time to run this report for ALL",!,"PACKAGES as you have requested. Therefore it is highly recommended that",!,"you QUEUE this report. The report can be queued to run NOW and queuing "
  • Line Location: DEVICE+16
Function Call: WRITE
  • Prompt: "this",!,"report will free up your terminal, allowing you to continue working while",!,"this report runs."
  • Line Location: DEVICE+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+18
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED."
  • Line Location: DEVICE+18
Function Call: WRITE
  • Prompt: !!,"Display ",$S($D(ZTSK)#2:"Queued.",1:"Aborted.")
  • Line Location: DEVICE+22
Function Call: WRITE
  • Prompt: !!,"ERROR: "_FILENME_" file creation in "_STORPATH_" FAILED!!"
  • Line Location: DAD+20
Function Call: WRITE
  • Prompt: !," >>Check path and filename.<<"
  • Line Location: DAD+21
Function Call: WRITE
  • Prompt: !,DATANDE
  • Line Location: PDAD+6
Function Call: WRITE
  • Prompt: !,D1,?31,$J(D3,6)," ",$J(D4,9)," ",$J(D5,4)," ",$J(D6,6)," ",$J(D7,6)," ",$J(D8,6)," ",$J(D9,6)
  • Line Location: PDAD+10
Function Call: WRITE
  • Prompt: !,"(",D2,")",!,"--------------------------------------------------------------------------------"
  • Line Location: PDAD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPKG+2
Function Call: WRITE
  • Prompt: !!!!,"...working..."
  • Line Location: SELPKG+3
Function Call: WRITE
  • Prompt: !!,"PREFIX not found for package selected. Unable to continue."
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,"...counting...",!," ...files..."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !," ...routines..."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !," ...options..."
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !," ...remote procedures..."
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !!!,"VistA Application Sizing Information"
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !,"Run Date: "
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: Y
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !,"VistA Application: ",PKGNAME
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,"=========================================="
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: !,"Number of Routines: ",RTOT
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,"Size of Routines: ",TLCNT
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !,"Number of Files: ",FTOT
  • Line Location: PRINT+34
Function Call: WRITE
  • Prompt: !,"Number of Fields: TBD"
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,"Number of Options: ",OTOT
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: !,"Number of Protocols: ",PRCTOT
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !,"Number of RPCs: ",RPTOT
  • Line Location: PRINT+38
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT+39
Routine Call
  • DIC
  • Line Location:
    • SELPKG+2
Routine Call
  • DIR
  • Line Location:
    • ALL+4
    • SORT+10
    • CHKHOST+10
    • SELFILE+12
    • SELFILE+23
    • FILABORT+10
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("LOAD" RLOAD+1
^%ZOSF("TEST" ROUTINE+12, RLOAD+1
^DIC(19 - [#19] OPTION+5, OPTION+6
^DIC(9.4 - [#9.4] LOOP+5, LOOP+9, LOOP+11, LOOP+20, PRINT+3, PRINT+7, PRINT+11, LPVAR+6, LPVAR+7
^DIC(9.8 - [#9.8] ROUTINE+9, ROUTINE+10
^ORD(101 - [#101] PROTOCOL+5
^TMP("XUVPS" LOOP+1!, LOOP+25, LOOP+27*, LOOP+28, LOOP+29, DAD+13, DAD+14, DAD+22!
^TMP("XUVPS0" LOOP+1!, LOOP+28*, LOOP+29*, DAD+1, DAD+22!
^XTMP("XUVPS" RLOAD+1*
^XWB(8994 - [#8994] REMPROC+4, REMPROC+5

Label References

Name Line Occurrences
$$CHKHOST DEVICE+5
$$OPTION LOOP+15, LOOP+23, PRINT+18, PRINT+19
$$PROTOCOL LOOP+16, PRINT+21, PRINT+22
$$REMPROC LOOP+17, LOOP+24, PRINT+25, PRINT+26
$$ROUTINE LOOP+14, LOOP+22, PRINT+14, PRINT+15
$$RSIZE ROUTINE+12
FILABORT DEVICE+8
LPVAR LOOP+5
PDAD DAD+1, DAD+15
PRINT SELPKG+3
QUIT ALL+4, SORT+10, DEVICE+18, DEVICE+19
SELFILE DEVICE+7
SELPKG ALL+5

Naked Globals

Name Field # of Occurrence
^( LOOP+20, LOOP+28, LOOP+29, DAD+1, DAD+15, PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+1!*
%ZIS("B" DEVICE+1*
ADP LOOP+3~, LOOP+18!, LOOP+19*, LOOP+20*, LOOP+21, PRINT+1~, PRINT+6*, PRINT+7*, PRINT+15, PRINT+19
, PRINT+22, PRINT+26
ADP( LOOP+20*, LOOP+21, LOOP+22, LOOP+23, LOOP+24, PRINT+7*, PRINT+15, PRINT+19, PRINT+22, PRINT+26
CLASS LOOP+2~, LOOP+5, LPVAR~, LPVAR+7*
CNT ROUTINE+6~, ROUTINE+8*, ROUTINE+12*, ROUTINE+13, PROTOCOL+1~, PROTOCOL+2*, PROTOCOL+5*, PROTOCOL+6, REMPROC+1~, REMPROC+3*
, REMPROC+5*, REMPROC+6, OPTION+2~, OPTION+4*, OPTION+6*, OPTION+7
CRTHOST DEVICE+2~, DEVICE+3*, DEVICE+5*, DEVICE+6, DEVICE+8*, DEVICE+15, FILABORT~, FILABORT+11*
CT RSIZE+1~, RSIZE+2*
D1 LOOP+2~, LOOP+4*, LOOP+25*, LOOP+26, LOOP+28*, LOOP+29*, DAD+1*, DAD+4*, DAD+13*, DAD+14
DAD+15, PDAD~, PDAD+5, PDAD+10
D2 LOOP+2~, LOOP+4*, LOOP+28*, LOOP+29*, DAD+1*, DAD+13*, DAD+14*, DAD+15, PDAD~, PDAD+5
, PDAD+11
D3 LOOP+2~, LOOP+4*, LOOP+26*, LOOP+27, DAD+1*, PDAD~, PDAD+2*, PDAD+5, PDAD+7*, PDAD+10
D4 LOOP+2~, LOOP+4*, LOOP+26*, LOOP+27, PDAD+1~, PDAD+2*, PDAD+5, PDAD+7*, PDAD+10
D5 LOOP+2~, LOOP+4*, LOOP+26*, LOOP+27, PDAD+1~, PDAD+2*, PDAD+5, PDAD+7*, PDAD+10
D6 LOOP+2~, LOOP+4*, LOOP+27, PDAD+1~*, PDAD+5, PDAD+10
D7 LOOP+2~, LOOP+26*, LOOP+27, PDAD+1~, PDAD+2*, PDAD+5, PDAD+7*, PDAD+10
D8 LOOP+2~, LOOP+25*, LOOP+27, PDAD+1~, PDAD+2*, PDAD+5, PDAD+7*, PDAD+10
D9 LOOP+2~, LOOP+25*, PDAD+1~, PDAD+2*, PDAD+5, PDAD+7*, PDAD+10
DATA PDAD~, PDAD+2, PDAD+7
DATANDE PDAD+1~, PDAD+4*, PDAD+5*, PDAD+6
>> DIC SELPKG+1*
>> DIC("S" SELPKG+1*
>> DIC(0 SELPKG+1*
>> DIF RLOAD+1*
DIR ALL+2~, SORT+1~, CHKHOST+3~, SELFILE+1~, SELFILE+3~, FILABORT+3~
DIR("?" CHKHOST+9*, SELFILE+8*, SELFILE+9*, SELFILE+10*, SELFILE+11*, SELFILE+21*, SELFILE+22*
DIR("A" ALL+3*, SORT+2*, CHKHOST+5*, CHKHOST+6*, CHKHOST+7*, SELFILE+5*, SELFILE+6*, SELFILE+18*, SELFILE+19*, FILABORT+5*
, FILABORT+6*, FILABORT+7*, FILABORT+8*, FILABORT+9*
DIR("B" ALL+2*, CHKHOST+8*, SELFILE+7*, SELFILE+20*
DIR("L" SORT+4*, SORT+5*, SORT+6*, SORT+7*, SORT+8*, SORT+9*
DIR(0 ALL+2*, SORT+3*, CHKHOST+4*, SELFILE+4*, SELFILE+17*, FILABORT+4*
>> DIROUT SELFILE+14, SELFILE+24, SELFILE+26
>> DTOUT SELFILE+14, SELFILE+24, SELFILE+26
>> DUOUT SELFILE+14, SELFILE+24, SELFILE+26
DUZ INIT+14
FILENME DEVICE+2~, DEVICE+3*, DEVICE+7, DEVICE+8, DEVICE+9, DAD+7, DAD+8, DAD+16, DAD+20, SELFILE~
, SELFILE+2*, SELFILE+25*, SELFILE+26*, FILABORT~, FILABORT+11*
FLDTOT LOOP+3~, LOOP+7*
FNUM LOOP+2~, LOOP+11*, LOOP+12
FTOT LOOP+3~, LOOP+7*, LOOP+13*, LOOP+27, PRINT+1~, PRINT+10*, PRINT+11*, PRINT+34
I ROUTINE+6~
IO DAD+11
IO("Q" DEVICE+1!, DEVICE+19, DEVICE+23
IOF DISALL+4
IOP DEVICE+1!
LINE RSIZE+1~, RSIZE+3*
LPPFX ROUTINE+6~, ROUTINE+9*, ROUTINE+10*, ROUTINE+11, ROUTINE+12, REMPROC+1~, REMPROC+4*, REMPROC+5*, OPTION+2~, OPTION+5*
, OPTION+6*
ORDIEN PROTOCOL+1~, PROTOCOL+4*, PROTOCOL+5*
OTOT LOOP+3~, LOOP+7*, LOOP+15*, LOOP+23*, LOOP+27, PRINT+1~, PRINT+18*, PRINT+19*, PRINT+36
PFXLN ROUTINE+6~, ROUTINE+7*, ROUTINE+10, REMPROC+1~, REMPROC+2*, REMPROC+5, OPTION+2~, OPTION+3*, OPTION+6
PKGIEN LOOP+3~, LOOP+6*, LOOP+9, LOOP+11, LOOP+16, LOOP+20, PRINT+1~, PRINT+2*, PRINT+3, PRINT+7
, PRINT+11, PRINT+21, PRINT+22, PROTOCOL~, PROTOCOL+5, LPVAR~, LPVAR+6, LPVAR+7
PKGNAME LOOP+3~, LOOP+5, LOOP+6*, LOOP+25, LOOP+27, PRINT+1~, PRINT+2*, PRINT+30, LPVAR~, LPVAR+6*
PKGPFX LOOP+3~, LOOP+6*, LOOP+14, LOOP+15, LOOP+16, LOOP+17, LOOP+25, LOOP+27, PRINT+1~, PRINT+3*
, PRINT+4, PRINT+14, PRINT+18, PRINT+21, PRINT+25, ROUTINE~, ROUTINE+7, ROUTINE+9, ROUTINE+10, PROTOCOL~
, PROTOCOL+3, REMPROC~, REMPROC+2, REMPROC+4, REMPROC+5, OPTION~, OPTION+3, OPTION+5, OPTION+6, RLOAD~
, RLOAD+1
>> POP DEVICE+18, DAD+9
POPERR DAD+3~, DAD+4*, DAD+7, DAD+9*, DAD+10, DAD+19
PRCTOT PRINT+1~, PRINT+21*, PRINT+22*, PRINT+37
PTOT LOOP+3~, LOOP+7*, LOOP+16*, LOOP+27
Q PRINT+1~, PRINT+6*, PRINT+7*, PRINT+10*, PRINT+11*, PRINT+15*, PRINT+19*, PRINT+22*, PRINT+26*, PROTOCOL+1~
, PROTOCOL+3*
QA LOOP+2~, LOOP+8*, LOOP+9*, LOOP+11, LOOP+19*, LOOP+20*, LOOP+21*, LOOP+22, LOOP+23, LOOP+24
QL PROTOCOL+1~, PROTOCOL+3*
RPTOT LOOP+3~, LOOP+7*, LOOP+17*, LOOP+24*, LOOP+27, PRINT+1~, PRINT+25*, PRINT+26*, PRINT+38
RSIZEVAL RSIZE+1~, RSIZE+2*, RSIZE+5
RTN RSIZE~
RTOT LOOP+3~, LOOP+7*, LOOP+14*, LOOP+22*, LOOP+27, PRINT+1~, PRINT+14*, PRINT+15*, PRINT+32
S1 LOOP+2~, LOOP+4*, LOOP+5*
S2 LOOP+2~, LOOP+5*, LOOP+6
>> S3 DAD+1*
STORPATH DEVICE+2~, DEVICE+3*, DEVICE+7, DEVICE+8, DEVICE+9, DAD+8, DAD+20, SELFILE~, SELFILE+2*, SELFILE+15*
, SELFILE+16*, SELFILE+18, SELFILE+22, SELFILE+26*, FILABORT~, FILABORT+11*
TLCNT LOOP+3~, LOOP+7*, LOOP+14, LOOP+22, LOOP+27, PRINT+14*, PRINT+15, PRINT+33, ROUTINE~, ROUTINE+12*
TSKD DEVICE+2~, DEVICE+4*, DEVICE+20*, LOOP+5
VPSFAT LOOP+3~, LOOP+10!
VPSFAT("NAME" LOOP+13
X INIT+16~, LOOP+28*, LOOP+29*, PRINT+29, ROUTINE+6~, ROUTINE+11*, CHKHOST+3~, SELFILE+1~, SELFILE+3~, SELFILE+15
, SELFILE+16, FILABORT+3~, RLOAD+1*
>> XCNP RLOAD+1*
XUVPSORT SORT+1~, SORT+10*, DEVICE+5, DEVICE+15, LOOP+28, LOOP+29, DISALL+3, DISALL+6, DAD+1, DAD+2
DAD+15, DAD+19, PDAD~, PDAD+2, PDAD+3, PDAD+7
Y INIT+16~, ALL+4, ALL+5, SORT+10, SELPKG+3, PRINT~, PRINT+2, PRINT+29*, ROUTINE+6~, CHKHOST+3~
, SELFILE+1~, SELFILE+3~, SELFILE+25, FILABORT+3~
Y(0 CHKHOST+11
>> ZTDESC DEVICE+11*, DEVICE+21*
>> ZTIO DEVICE+10*
>> ZTRTN DEVICE+11*, DEVICE+21*
>> ZTSAVE("*" DEVICE+12*, DEVICE+22*
>> ZTSK DEVICE+13, DEVICE+22
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All