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
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls