A1VSRFL1 ;Albany FO/GTS - VistA Package Sizing Manager; 21-OCT-2016
Source file <A1VSRFL1.m>
| 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=^TMP("A1VS-PARAM-CAP",$J,PKGNAME,3,"*Lowest File#") ; LINE4=^TMP("A1VS-PARAM-CAP",$J,PKGNAME,4,"*Highest File#") ; LINE7=^TMP("A1VS-PARAM-CAP",$J,PKGNAME,7,"File Numbers") ; LINE8=^TMP("A1VS-PARAM-CAP",$J,PKGNAME,8,"File Ranges") |
|
| ROUTINE(PKGPFX,TLCNT,RDP,ADP) | ; Returns total of all characters in all routines
; ...Including line feeds on each line of each routine in characters counted ; Input - PKGPFX : Prefix for routine in package ; - TLCNT : Sum of routine sizes in package ; - RDP : Removed (Excepted) Prefixes ; - ADP : Additional Prefixes |
|
| RTNLST(PREFIX,RTNLIST) | ; Create RTNLIST of routines in PREFIX namespace
|
|
| RDPCK(LPPFX,RDP) | ;Check for excepted PREFIX [Result=0 when Excepted]
|
|
| FLECNT(STRTFNUM,ENDFNUM) | ; Count Files
|
|
| PROTOCOL(PKGPFX,PKGIEN,RDP,ADP) | ; Count Protocols
|
|
| CNTR(TMPGLB,CNT,PKGPFX,PKGNAME,RDP,ADP) | ;Count Templates & RPCs
|
|
| OPTION(PKGPFX,PKGNME,RDP) | ;Count Options
|
|
| MULTX(APFX,PKGNAME) | ; Return indication of Multiple packages using same prefix
|
|
| KIDSIDX() | ;Create Prefix-Package Indicies from KIDS
|
|
| RSIZE(RTN) | ; Compute routine size (# characters plus line feeds) [^%ZOSF("SIZE") algorithm]
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
