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

Package: Toolkit

Routine: XTVSRFL1


Information

XTVSRFL1 ;ALBANY FO/GTS - VistA Package Sizing Manager; 21-OCT-2016

Source Information

Source file <XTVSRFL1.m>

Entry Points

Name Comments DBIA/ICR reference
ONERPT(PKGNAME,VALMCNT) ; Report a single package
COUNTFLS(PKGPFX,LINE3,LINE4,LINE7,LINE8) ;Count total # of files for a package
; LINE3=*Lowest File # from ^TMP("XTVS-PARAM-CAP",$J,PKGNAME,3,"*Lowest File#") or SELPKGPM
; LINE4=*Highest File # from ^TMP("XTVS-PARAM-CAP",$J,PKGNAME,4,"*Highest File#") or SELPKGPM
; LINE7=File Numbers from ^TMP("XTVS-PARAM-CAP",$J,PKGNAME,7,"File Numbers") or SELPKGPM
; LINE8=File Ranges from ^TMP("XTVS-PARAM-CAP",$J,PKGNAME,8,"File Ranges") or SELPKGPM
ROUTINE(PKGPFX,TLCNT,RDP,ADP) ; Returns # of routines & total characters in all routines
; CNT - # characters in each routine including line feeds on each line of each routine
RTNLST(PREFIX,RTNLIST) ; Create RTNLIST of routines in PREFIX namespace
; NOTE: NEW RTNS will destroy the ResultSet Query object when QUIT takes RTNS out of scope
ADPRDPCK(LPPFX,CKDP) ;Check for Excepted PREFIX [Result=0 when excepted] ; Additional PREFIX [Result=0 when included in Additional]
FLECNT(STRTFNUM,ENDFNUM,FLDCNT) ; Count Files & Fields
FLDCNTR(FILENUM) ; Return # of fields
PROTOCOL(PKGPFX,PKGIEN,RDP,ADP) ; Count Protocols
CNTR(TMPGLB,CNT,PKGPFX,RDP,ADP) ; Count Templates & RPCs
QUOTEFX(ITEMNAME) ; Return ITEMNAME with single quotes changed to double
MULTX(APFX,PKGNAME) ; Return indication of Multiple packages using same prefix
CHKOTHPK(APFX,PKGNAME) ; Check other packages using the same prefix
KIDSIDX ;Create Prefix-Package Indexes from KIDS patches for builds linked to Package file
PARAMIDX ;Create Prefix Indicies
RSIZE(RTN) ; Compute routine size (# characters plus line feeds) [^%ZOSF("SIZE") algorithm]
PFXDLIM(SPCPOS,DASHPOS,UNDRSPOS) ; Return the delimter for lowest pos #

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Selected package is not defined in the Package file (#9.4) on this VistA.",!,"Protocol count may be incorrect.",!!
  • Line Location: ONERPT+15
Function Call: WRITE
  • Prompt: !!,"PREFIX not found for package selected. Unable to continue."
  • Line Location: ONERPT+18
Function Call: WRITE
  • Prompt: !,"...counting...",!," ...files and fields..."
  • Line Location: ONERPT+28
Function Call: WRITE
  • Prompt: !," ...routines..."
  • Line Location: ONERPT+37
Function Call: WRITE
  • Prompt: !," ...options..."
  • Line Location: ONERPT+42
Function Call: WRITE
  • Prompt: !," ...protocols..."
  • Line Location: ONERPT+47
Function Call: WRITE
  • Prompt: !," ...remote procedures..."
  • Line Location: ONERPT+51
Function Call: WRITE
  • Prompt: !," ...edit, print, & sort templates..."
  • Line Location: ONERPT+56
Info |  Source |  Entry Points |  Interaction Calls