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 |  Local Variables  | All
Print Page as PDF
Routine: A1VSRFL1

Package: VistA Package Sizing Utility

Routine: A1VSRFL1


Information

A1VSRFL1 ;Albany FO/GTS - VistA Package Sizing Manager; 21-OCT-2016

Source Information

Source file <A1VSRFL1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 DD^%DT  NOW^%DTC  
List Manager 1 FULL^VALM1  
VistA Package Sizing Utility 1 ADD^A1VSLAPI  

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

Package Total Caller Graph
VistA Package Sizing Utility 1 A1VSRFL  

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=^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]

External References

Name Field # of Occurrence
DD^%DT ONERPT+51
NOW^%DTC ONERPT+51
ADD^A1VSLAPI ONERPT+49, ONERPT+50, ONERPT+53, ONERPT+54, ONERPT+55, ONERPT+56, ONERPT+57, ONERPT+58, ONERPT+59, ONERPT+60
, ONERPT+61, ONERPT+62, ONERPT+63
FULL^VALM1 ONERPT+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Selected package is not defined on this VistA Instance. Unable to continue."
  • Line Location: ONERPT+8
Function Call: WRITE
  • Prompt: !!,"PREFIX not found for package selected. Unable to continue."
  • Line Location: ONERPT+11
Function Call: WRITE
  • Prompt: !,"...counting...",!," ...files..."
  • Line Location: ONERPT+21
Function Call: WRITE
  • Prompt: !," ...routines..."
  • Line Location: ONERPT+28
Function Call: WRITE
  • Prompt: !," ...options..."
  • Line Location: ONERPT+32
Function Call: WRITE
  • Prompt: !," ...remote procedures..."
  • Line Location: ONERPT+39
Function Call: WRITE
  • Prompt: !," ...edit, print, & sort templates..."
  • Line Location: ONERPT+43

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ROUTINE+17, ROUTINE+27
^DIC - [#1] FLECNT+3, FLECNT+4, FLECNT+6
^DIC(19 - [#19] OPTION+5, OPTION+6
^DIC(9.4 - [#9.4] ONERPT+8, ONERPT+9, KIDSIDX+7
^ORD(101 - [#101] PROTOCOL+7, PROTOCOL+8, PROTOCOL+10, PROTOCOL+12
^TMP("A1VS" ROUTINE+14, ROUTINE+18!, ROUTINE+24, ROUTINE+28!
^TMP("A1VS-FORUM-PFXS" CNTR+8, CNTR+13, OPTION+10, OPTION+15
^TMP("A1VS-IDX-PKG" MULTX+7, MULTX+8
^TMP("A1VS-KIDSPFX-IDX" KIDSIDX+10*
^TMP("A1VS-PARAM-CAP" ONERPT+10, ONERPT+13, ONERPT+17, ONERPT+22, ONERPT+23, ONERPT+24, ONERPT+25
^TMP("A1VS-PREFIX-IDX" CNTR+8, OPTION+10
^XPD(9.6 - [#9.6] KIDSIDX+3, KIDSIDX+4

Label References

Name Line Occurrences
$$COUNTFLS ONERPT+26
$$FLECNT COUNTFLS+17, COUNTFLS+24
$$OPTION ONERPT+33, ONERPT+34
$$PROTOCOL ONERPT+36, ONERPT+37
$$RDPCK ROUTINE+15, ROUTINE+25, PROTOCOL+9, PROTOCOL+16, CNTR+13, OPTION+15
$$ROUTINE ONERPT+29, ONERPT+30
$$RSIZE ROUTINE+17, ROUTINE+27
CNTR ONERPT+41, ONERPT+45, ONERPT+46, ONERPT+47
RTNLST ROUTINE+13, ROUTINE+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADP ONERPT+5~, ONERPT+14*, ONERPT+15*, ONERPT+30, ONERPT+34, ONERPT+37, ONERPT+41, ONERPT+45, ONERPT+46, ONERPT+47
, ROUTINE~, PROTOCOL~, CNTR~
ADP( ONERPT+15*, ONERPT+30, ONERPT+34, ONERPT+37, ROUTINE+21, PROTOCOL+14
ADPFX ROUTINE+9~, ROUTINE+20*, ROUTINE+21*, ROUTINE+22, ROUTINE+23, ROUTINE+24, PROTOCOL+1~, PROTOCOL+13*, PROTOCOL+14*, PROTOCOL+15
, PROTOCOL+16
ADPFXLN ROUTINE+9~, ROUTINE+22*, ROUTINE+24, PROTOCOL+1~, PROTOCOL+15*, PROTOCOL+16
APFX MULTX~, MULTX+7, MULTX+8
CNT ROUTINE+9~, ROUTINE+11*, ROUTINE+17*, ROUTINE+27*, ROUTINE+29, PROTOCOL+1~, PROTOCOL+3*, PROTOCOL+8*, PROTOCOL+10*, PROTOCOL+16*
, PROTOCOL+18, CNTR~, CNTR+7*, CNTR+14*, OPTION+2~, OPTION+4*, OPTION+9*, OPTION+16*, OPTION+17
CT RSIZE+1~, RSIZE+2*
ENDFNUM COUNTFLS+6~, COUNTFLS+16*, COUNTFLS+17, COUNTFLS+21~, COUNTFLS+23*, COUNTFLS+24, FLECNT~, FLECNT+4
FCNT FLECNT+1~, FLECNT+2*, FLECNT+7*, FLECNT+9
FILELIST COUNTFLS+6~, COUNTFLS+10*, COUNTFLS+11, COUNTFLS+14, COUNTFLS+27*, COUNTFLS+28, COUNTFLS+31
FILENAME COUNTFLS+21~, FLECNT+6*, FLECNT+7
FLERNG COUNTFLS+6~, COUNTFLS+14*, COUNTFLS+15, COUNTFLS+16
FNDFLDAT COUNTFLS+6~, COUNTFLS+7*, COUNTFLS+12*, COUNTFLS+20, COUNTFLS+24*, COUNTFLS+28, COUNTFLS+29*
FNUM COUNTFLS+6~, COUNTFLS+21~, COUNTFLS+31*, FLECNT+1~, FLECNT+3*, FLECNT+4*, FLECNT+6
FTOT ONERPT+5~, ONERPT+26*, ONERPT+58, COUNTFLS+6~, COUNTFLS+7*, COUNTFLS+17*, COUNTFLS+24*, COUNTFLS+31*, COUNTFLS+32
KIDSIEN KIDSIDX+1~, KIDSIDX+2*, KIDSIDX+3*, KIDSIDX+4
KIDSPKG KIDSIDX+1~, KIDSIDX+7*, KIDSIDX+10
KIDSPRFX KIDSIDX+1~, KIDSIDX+9*, KIDSIDX+10
KIDSZERO KIDSIDX+1~, KIDSIDX+4*, KIDSIDX+5, KIDSIDX+6, KIDSIDX+8
LINE RSIZE+1~, RSIZE+3*
LINE3 COUNTFLS~, COUNTFLS+22
LINE4 COUNTFLS~, COUNTFLS+23
LINE7 COUNTFLS~, COUNTFLS+27
LINE8 COUNTFLS~, COUNTFLS+10
LPPFX ROUTINE+9~, ROUTINE+12*, ROUTINE+14*, ROUTINE+15, ROUTINE+16, ROUTINE+17, ROUTINE+24*, ROUTINE+25, ROUTINE+26, ROUTINE+27
, RDPCK~, RDPCK+6, PROTOCOL+1~, PROTOCOL+4*, PROTOCOL+7*, PROTOCOL+9, PROTOCOL+12, PROTOCOL+16, CNTR+1~, CNTR+3*
, CNTR+4*, CNTR+5, OPTION+2~, OPTION+5*, OPTION+6*, OPTION+7
LPPKG MULTX+2~, MULTX+4*, MULTX+7*, MULTX+8
OPTPFX OPTION+2~, OPTION+7*, OPTION+8*, OPTION+9, OPTION+10, OPTION+14
ORDIEN PROTOCOL+1~, PROTOCOL+7*, PROTOCOL+8, PROTOCOL+10, PROTOCOL+12
OTOT ONERPT+5~, ONERPT+33*, ONERPT+34*, ONERPT+60
PARMDAT ONERPT+6~, ONERPT+13*, ONERPT+15, ONERPT+17*, ONERPT+19
PARMDAT3 ONERPT+6~, ONERPT+22*, ONERPT+26
PARMDAT4 ONERPT+6~, ONERPT+23*, ONERPT+26
PARMDAT7 ONERPT+6~, ONERPT+24*, ONERPT+26
PARMDAT8 ONERPT+6~, ONERPT+25*, ONERPT+26
PATCHNME KIDSIDX+1~, KIDSIDX+8*, KIDSIDX+9
PCENUM ONERPT+5~, ONERPT+14*, ONERPT+15*, ONERPT+18*, ONERPT+19*, COUNTFLS+6~, COUNTFLS+13*, COUNTFLS+14*, COUNTFLS+30*, COUNTFLS+31*
PFXANLYS CNTR+1~, CNTR+11*, CNTR+12*, CNTR+13, OPTION+2~, OPTION+13*, OPTION+14*, OPTION+15
PFXAVAIL CNTR+1~, CNTR+10*, CNTR+12, CNTR+13*, CNTR+14, OPTION+2~, OPTION+12*, OPTION+14, OPTION+15*, OPTION+16
PFXEXT CNTR+1~, CNTR+12*, OPTION+2~, OPTION+14*
PFXLN ROUTINE+9~, ROUTINE+10*, ROUTINE+14, ROUTINE+25, PROTOCOL+1~, PROTOCOL+2*, PROTOCOL+9, PROTOCOL+12, CNTR+1~, CNTR+2*
, CNTR+4, CNTR+7, CNTR+8, CNTR+12, OPTION+2~, OPTION+3*, OPTION+6, OPTION+9, OPTION+10, OPTION+14
>> PGKIEN PROTOCOL+5
PKGIEN ONERPT+5~, ONERPT+9*, ONERPT+36, ONERPT+37, PROTOCOL~, PROTOCOL+5*, PROTOCOL+6*, PROTOCOL+8, PROTOCOL+10, PROTOCOL+12
, KIDSIDX+1~, KIDSIDX+6*, KIDSIDX+7
PKGNAME ONERPT~, ONERPT+8, ONERPT+9, ONERPT+10, ONERPT+13, ONERPT+17, ONERPT+22, ONERPT+23, ONERPT+24, ONERPT+25
, ONERPT+41, ONERPT+45, ONERPT+46, ONERPT+47, ONERPT+54, CNTR~, CNTR+8, OPTION+10, MULTX~, MULTX+8
PKGNME OPTION~
PKGPFX ONERPT+5~, ONERPT+10*, ONERPT+11, ONERPT+26, ONERPT+29, ONERPT+33, ONERPT+36, ONERPT+41, ONERPT+45, ONERPT+46
, ONERPT+47, COUNTFLS~, COUNTFLS+20, ROUTINE~, ROUTINE+10, ROUTINE+13, ROUTINE+14, ROUTINE+25, PROTOCOL~, PROTOCOL+2
, PROTOCOL+9, PROTOCOL+12, CNTR~, CNTR+2, CNTR+3, CNTR+4, CNTR+11, OPTION~, OPTION+3, OPTION+5
, OPTION+6, OPTION+13
PRCTOT ONERPT+5~, ONERPT+36*, ONERPT+37*, ONERPT+61
PREFIX RTNLST~, RTNLST+3
Q ONERPT+5~, ONERPT+14*, ONERPT+15*, ONERPT+18*, ONERPT+19*, ONERPT+30*, ONERPT+34*, ONERPT+37*
RDP ONERPT+5~, ONERPT+18*, ONERPT+19*, ONERPT+41, ONERPT+45, ONERPT+46, ONERPT+47, ROUTINE~, ROUTINE+15, ROUTINE+25
, RDPCK~, PROTOCOL~, PROTOCOL+9, PROTOCOL+16, CNTR~, CNTR+13, OPTION~, OPTION+15
RDP( ONERPT+19*, RDPCK+4
RESULT RDPCK+1~, RDPCK+2*, RDPCK+4, RDPCK+6*, RDPCK+7, MULTX+2~, MULTX+3*, MULTX+7, MULTX+8*, MULTX+9
RNDT ONERPT+5~, ONERPT+52*, ONERPT+53
RPFX RDPCK+1~, RDPCK+3*, RDPCK+4*, RDPCK+5, RDPCK+6
RPFXLN RDPCK+1~, RDPCK+5*, RDPCK+6
RPTOT ONERPT+5~, ONERPT+40*, ONERPT+41, ONERPT+62
RSIZEVAL RSIZE+1~, RSIZE+2*, RSIZE+5
RTN RSIZE~
RTNLIST RTNLST~, RTNLST+4
RTNNAME RTNLST+1~, RTNLST+4*
RTNS RTNLST+1~, RTNLST+2*
RTOT ONERPT+5~, ONERPT+29*, ONERPT+30*, ONERPT+56
STRTFNUM COUNTFLS+6~, COUNTFLS+15*, COUNTFLS+17, COUNTFLS+21~, COUNTFLS+22*, COUNTFLS+24, FLECNT~, FLECNT+3
TLCNT ONERPT+5~, ONERPT+29*, ONERPT+30, ONERPT+57, ROUTINE~, ROUTINE+17*, ROUTINE+27*
TMPGLB CNTR~, CNTR+3, CNTR+4
TMPLTPFX CNTR+1~, CNTR+5*, CNTR+6*, CNTR+7, CNTR+8, CNTR+12
TPLTTOT ONERPT+5~, ONERPT+44*, ONERPT+45, ONERPT+46, ONERPT+47, ONERPT+63
VALMCNT ONERPT~, ONERPT+49, ONERPT+50, ONERPT+53, ONERPT+54, ONERPT+55, ONERPT+56, ONERPT+57, ONERPT+58, ONERPT+59
, ONERPT+60, ONERPT+61, ONERPT+62, ONERPT+63
VPSFAT FLECNT+5!, FLECNT+8!
X ONERPT+51, ROUTINE+9~, ROUTINE+16*, ROUTINE+26*
>> Y ONERPT+51*, ONERPT+52
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All