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

Package: Toolkit

Routine: XTVSRFL1


Information

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

Source Information

Source file <XTVSRFL1.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  
Toolkit 1 ADD^XTVSLAPI  

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
Toolkit 2 XTVSRFL  XTVSSVR  

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 #

External References

Name Field # of Occurrence
DD^%DT ONERPT+69
NOW^%DTC ONERPT+69
FULL^VALM1 ONERPT+7
ADD^XTVSLAPI ONERPT+67, ONERPT+68, ONERPT+71, ONERPT+72, ONERPT+73, ONERPT+74, ONERPT+75, ONERPT+76, ONERPT+77, ONERPT+78
, ONERPT+79, ONERPT+80, ONERPT+81

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" ROUTINE+11
^DD( FLDCNTR+3, FLDCNTR+4, FLDCNTR+5, FLDCNTR+9
^DIC - [#1] FLECNT+3, FLECNT+4, FLECNT+6
^DIC(9.4 - [#9.4] ONERPT+11, ONERPT+12, ONERPT+13, KIDSIDX+8
^ORD(101 - [#101] PROTOCOL+7, PROTOCOL+8, PROTOCOL+9, PROTOCOL+10
^TMP("XTVS" ROUTINE+8, ROUTINE+12!
^TMP("XTVS-FILE-CNTD" COUNTFLS+33!, FLECNT+5, FLECNT+8*
^TMP("XTVS-FORUM-PFXS" PROTOCOL+21, CNTR+14, CNTR+19, PARAMIDX+9*, PARAMIDX+18*
^TMP("XTVS-IDX-PKG" CHKOTHPK+5, CHKOTHPK+6, PARAMIDX+12*, PARAMIDX+13*, PARAMIDX+20*
^TMP("XTVS-KIDSPFX-IDX" MULTX+15, KIDSIDX+11*, PARAMIDX+12, PARAMIDX+13, PARAMIDX+20
^TMP("XTVS-PARAM-CAP" ONERPT+17, ONERPT+20, ONERPT+24, ONERPT+29, ONERPT+30, ONERPT+31, ONERPT+32, PARAMIDX+4, PARAMIDX+5
^TMP("XTVS-PREFIX-IDX" MULTX+15, CHKOTHPK+7, PARAMIDX+8*
^XPD(9.6 - [#9.6] KIDSIDX+3, KIDSIDX+4

Label References

Name Line Occurrences
$$ADPRDPCK ROUTINE+9, PROTOCOL+16, PROTOCOL+22, PROTOCOL+23, CNTR+13, CNTR+20, CNTR+21
$$CHKOTHPK MULTX+15
$$COUNTFLS ONERPT+33
$$FLDCNTR COUNTFLS+31, FLECNT+7, FLDCNTR+9
$$FLECNT COUNTFLS+17, COUNTFLS+24
$$MULTX ONERPT+22
$$PFXDLIM PROTOCOL+15, CNTR+12
$$PROTOCOL ONERPT+48, ONERPT+49
$$QUOTEFX PROTOCOL+25, CNTR+23
$$ROUTINE ONERPT+39, ONERPT+40
$$RSIZE ROUTINE+11
CNTR ONERPT+44, ONERPT+45, ONERPT+53, ONERPT+54, ONERPT+58, ONERPT+59, ONERPT+61, ONERPT+62, ONERPT+64, ONERPT+65
RTNLST ROUTINE+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDPRFX PARAMIDX+1~, PARAMIDX+15*, PARAMIDX+17
ADP ONERPT+5~, ONERPT+21*, ONERPT+22*, ONERPT+39, ONERPT+40, ONERPT+44, ONERPT+45, ONERPT+49, ONERPT+53, ONERPT+54
, ONERPT+58, ONERPT+59, ONERPT+62, ONERPT+65, ROUTINE~, ROUTINE+9, PROTOCOL~, PROTOCOL+22, CNTR~, CNTR+20
ADP( ONERPT+22*, ONERPT+40, ONERPT+45, ONERPT+49, ONERPT+54, ONERPT+59, ONERPT+62, ONERPT+65, ROUTINE+5!, ROUTINE+13*
, PROTOCOL+6!, PROTOCOL+26*, CNTR+4!, CNTR+24*
ADPFX ROUTINE+2~
ADPFXLN ROUTINE+2~
ADPNDE ROUTINE+2~
ADPRSET ROUTINE+2~, ROUTINE+4*, ROUTINE+5*, ROUTINE+13, PROTOCOL+1~, PROTOCOL+3*, PROTOCOL+6*, PROTOCOL+26, CNTR+1~, CNTR+3*
, CNTR+4*, CNTR+24
APFX MULTX~, MULTX+15, CHKOTHPK~, CHKOTHPK+5, CHKOTHPK+6, CHKOTHPK+7
CKDP ADPRDPCK~, ADPRDPCK+3
CKDP( ADPRDPCK+3
CKFX ADPRDPCK+1~, ADPRDPCK+3*, ADPRDPCK+4, ADPRDPCK+5
CKFXLN ADPRDPCK+1~, ADPRDPCK+4*, ADPRDPCK+5
CKPNDE ADPRDPCK+1~, ADPRDPCK+3*
CNT ROUTINE+2~, ROUTINE+4*, ROUTINE+11*, ROUTINE+14, PROTOCOL+1~, PROTOCOL+3*, PROTOCOL+9*, PROTOCOL+16*, PROTOCOL+24*, PROTOCOL+27
, CNTR~, CNTR+13*, CNTR+22*
CT RSIZE+1~, RSIZE+2*
DASHPOS PROTOCOL+1~, PROTOCOL+13*, PROTOCOL+15, CNTR+1~, CNTR+10*, CNTR+12, PFXDLIM~, PFXDLIM+3*, PFXDLIM+6, PFXDLIM+7
, PFXDLIM+8
DELIM PFXDLIM+1~, PFXDLIM+5*, PFXDLIM+6*, PFXDLIM+7*, PFXDLIM+8*, PFXDLIM+9
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
FFCTRSLT ONERPT+5~, ONERPT+33*, ONERPT+34, ONERPT+35
FIELDNUM FLDCNTR+1~, FLDCNTR+2*, FLDCNTR+4, FLDCNTR+5*, FLDCNTR+6, FLDCNTR+9
FILELIST COUNTFLS+6~, COUNTFLS+10*, COUNTFLS+11, COUNTFLS+14, COUNTFLS+27*, COUNTFLS+28, COUNTFLS+31
FILENAME COUNTFLS+21~, FLECNT+6*, FLECNT+7
FILENUM FLDCNTR~, FLDCNTR+3, FLDCNTR+4, FLDCNTR+5, FLDCNTR+9
FLDCNT COUNTFLS+6~, COUNTFLS+7*, COUNTFLS+17, COUNTFLS+24, COUNTFLS+31*, COUNTFLS+32, FLECNT~, FLECNT+7*
FLDCT FLDCNTR+1~, FLDCNTR+2*, FLDCNTR+7*, FLDCNTR+9*, FLDCNTR+10
FLDTOT ONERPT+5~, ONERPT+35*, ONERPT+77
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+5, FLECNT+6, FLECNT+7, FLECNT+8
FTOT ONERPT+5~, ONERPT+34*, ONERPT+76, COUNTFLS+6~, COUNTFLS+7*, COUNTFLS+17*, COUNTFLS+24*, COUNTFLS+31*, COUNTFLS+32*, COUNTFLS+34
ITEMNAME QUOTEFX~, QUOTEFX+3, QUOTEFX+4*, QUOTEFX+5
KIDSIEN KIDSIDX+1~, KIDSIDX+2*, KIDSIDX+3*, KIDSIDX+4
KIDSPKG KIDSIDX+1~, KIDSIDX+8*, KIDSIDX+11
KIDSPRFX KIDSIDX+1~, KIDSIDX+10*, KIDSIDX+11
KIDSZERO KIDSIDX+1~, KIDSIDX+4*, KIDSIDX+5, KIDSIDX+6, KIDSIDX+9
LINE RSIZE+1~, RSIZE+3*
LINE3 COUNTFLS~, COUNTFLS+22
LINE4 COUNTFLS~, COUNTFLS+23
LINE7 COUNTFLS~, COUNTFLS+27
LINE8 COUNTFLS~, COUNTFLS+10
LINEITEM PARAMIDX+1~, PARAMIDX+5*, PARAMIDX+6, PARAMIDX+7, PARAMIDX+15
LPCNT QUOTEFX+1~, QUOTEFX+3*, PARAMIDX+16*
LPCT ROUTINE+2~, ROUTINE+5*, PROTOCOL+1~, PROTOCOL+6*, CNTR+1~, CNTR+4*
LPPFX ROUTINE+2~, ROUTINE+6*, ROUTINE+8*, ROUTINE+9, ROUTINE+10, ROUTINE+11, ADPRDPCK~, ADPRDPCK+5, PROTOCOL+1~, PROTOCOL+6*
, PROTOCOL+7*, PROTOCOL+8*, PROTOCOL+11, PROTOCOL+25*, CNTR+1~, CNTR+4*, CNTR+5*, CNTR+6*, CNTR+7*, CNTR+8
, CNTR+23*
LPPKG MULTX+10~, MULTX+12*, CHKOTHPK+1~, CHKOTHPK+2*, CHKOTHPK+5*, CHKOTHPK+6, CHKOTHPK+7
ORDIEN PROTOCOL+1~, PROTOCOL+8*, PROTOCOL+9, PROTOCOL+10
OTOT ONERPT+5~, ONERPT+43*, ONERPT+44, ONERPT+45, ONERPT+78
PARMDAT ONERPT+6~, ONERPT+20*, ONERPT+22, ONERPT+24*, ONERPT+26
PARMDAT3 ONERPT+6~, ONERPT+29*, ONERPT+33
PARMDAT4 ONERPT+6~, ONERPT+30*, ONERPT+33
PARMDAT7 ONERPT+6~, ONERPT+31*, ONERPT+33
PARMDAT8 ONERPT+6~, ONERPT+32*, ONERPT+33
PATCHNME KIDSIDX+1~, KIDSIDX+9*, KIDSIDX+10
PCENUM ONERPT+5~, ONERPT+21*, ONERPT+22*, ONERPT+25*, ONERPT+26*, COUNTFLS+6~, COUNTFLS+13*, COUNTFLS+14*, COUNTFLS+30*, COUNTFLS+31*
, PARAMIDX+17*
PFXANLYS PROTOCOL+1~, PROTOCOL+19*, PROTOCOL+20*, PROTOCOL+21, PROTOCOL+22, PROTOCOL+23, CNTR+1~, CNTR+17*, CNTR+18*, CNTR+19
, CNTR+20, CNTR+21
PFXAVAIL PROTOCOL+18*, PROTOCOL+20, PROTOCOL+21*, PROTOCOL+22*, PROTOCOL+23*, PROTOCOL+24, CNTR+1~, CNTR+16*, CNTR+18, CNTR+19*
, CNTR+20*, CNTR+21*, CNTR+22
PFXEXT PROTOCOL+1~, PROTOCOL+20*, CNTR+1~, CNTR+18*
PFXLN ROUTINE+2~, ROUTINE+3*, PROTOCOL+1~, PROTOCOL+2*, PROTOCOL+20, CNTR+1~, CNTR+2*, CNTR+7, CNTR+13, CNTR+14
, CNTR+18
PKGIEN ONERPT+5~, ONERPT+9*, ONERPT+11*, ONERPT+12*, ONERPT+13*, ONERPT+15, ONERPT+48, ONERPT+49, PROTOCOL~, PROTOCOL+4*
, PROTOCOL+5*, PROTOCOL+9, KIDSIDX+1~, KIDSIDX+6*, KIDSIDX+7, KIDSIDX+8
PKGNAME ONERPT~, ONERPT+10, ONERPT+11, ONERPT+12, ONERPT+13, ONERPT+17, ONERPT+20, ONERPT+22, ONERPT+24, ONERPT+29
, ONERPT+30, ONERPT+31, ONERPT+32, ONERPT+72, MULTX~, MULTX+15, CHKOTHPK~, CHKOTHPK+5, PARAMIDX+1~, PARAMIDX+6*
, PARAMIDX+8, PARAMIDX+12, PARAMIDX+13, PARAMIDX+20
PKGPFX ONERPT+5~, ONERPT+17*, ONERPT+18, ONERPT+33, ONERPT+39, ONERPT+44, ONERPT+48, ONERPT+53, ONERPT+58, ONERPT+61
, ONERPT+64, COUNTFLS~, COUNTFLS+20, COUNTFLS+33, ROUTINE~, ROUTINE+3, ROUTINE+5, ROUTINE+7, ROUTINE+13, FLECNT+5
, FLECNT+8, PROTOCOL~, PROTOCOL+2, PROTOCOL+6, PROTOCOL+7, PROTOCOL+8, PROTOCOL+16, PROTOCOL+17, PROTOCOL+19, PROTOCOL+26
, CNTR~, CNTR+2, CNTR+4, CNTR+5, CNTR+7, CNTR+17, CNTR+24, PARAMIDX+1~, PARAMIDX+7*, PARAMIDX+8
, PARAMIDX+9, PARAMIDX+12, PARAMIDX+13
PRCTOT ONERPT+5~, ONERPT+48*, ONERPT+49*, ONERPT+79
PREFIX RTNLST~, RTNLST+4, PARAMIDX+1~, PARAMIDX+17*, PARAMIDX+18, PARAMIDX+20
PRTPFX PROTOCOL+1~, PROTOCOL+11*, PROTOCOL+12, PROTOCOL+13, PROTOCOL+14, PROTOCOL+15*, PROTOCOL+16, PROTOCOL+17, PROTOCOL+20
Q ONERPT+5~, ONERPT+21*, ONERPT+22*, ONERPT+25*, ONERPT+26*, ONERPT+40*, ONERPT+45*, ONERPT+49*, ONERPT+54*, ONERPT+59*
, ONERPT+62*, ONERPT+65*
>> QUOTEFX( CNTR+6
QUPDT QUOTEFX+1~, QUOTEFX+2*, QUOTEFX+3*, QUOTEFX+4
RDP ONERPT+5~, ONERPT+25*, ONERPT+26*, ONERPT+39, ONERPT+40, ONERPT+44, ONERPT+45, ONERPT+48, ONERPT+49, ONERPT+53
, ONERPT+54, ONERPT+58, ONERPT+59, ONERPT+61, ONERPT+62, ONERPT+64, ONERPT+65, ROUTINE~, ROUTINE+9, PROTOCOL~
, PROTOCOL+16, PROTOCOL+23, CNTR~, CNTR+13, CNTR+21
RDP( ONERPT+26*
RESULT ADPRDPCK+1~, ADPRDPCK+2*, ADPRDPCK+3, ADPRDPCK+5*, ADPRDPCK+6, MULTX+10~, MULTX+11*, MULTX+15*, MULTX+17, CHKOTHPK+1~
, CHKOTHPK+3*, CHKOTHPK+5, CHKOTHPK+6*, CHKOTHPK+7*, CHKOTHPK+9
RNDT ONERPT+5~, ONERPT+70*, ONERPT+71
RPTOT ONERPT+5~, ONERPT+52*, ONERPT+53, ONERPT+54, ONERPT+80
RSIZEVAL RSIZE+1~, RSIZE+2*, RSIZE+5
RTN RSIZE~
RTNLIST RTNLST~, RTNLST+5
RTNNAME RTNLST+2~, RTNLST+5*
RTNS RTNLST+2~, RTNLST+3*
RTOT ONERPT+5~, ONERPT+39*, ONERPT+40*, ONERPT+74
SPCPOS PROTOCOL+1~, PROTOCOL+12*, PROTOCOL+15, CNTR+1~, CNTR+9*, CNTR+12, PFXDLIM~, PFXDLIM+2*, PFXDLIM+6, PFXDLIM+7
, PFXDLIM+8
STRTFNUM COUNTFLS+6~, COUNTFLS+15*, COUNTFLS+17, COUNTFLS+21~, COUNTFLS+22*, COUNTFLS+24, FLECNT~, FLECNT+3
TLCNT ONERPT+5~, ONERPT+38*, ONERPT+39, ONERPT+40, ONERPT+75, ROUTINE~, ROUTINE+11*
TMPGLB CNTR~, CNTR+5, CNTR+7
TMPLTPFX CNTR+1~, CNTR+8*, CNTR+9, CNTR+10, CNTR+11, CNTR+12*, CNTR+13, CNTR+14, CNTR+18
TMPSUB PARAMIDX+1~, PARAMIDX+3*, PARAMIDX+4*, PARAMIDX+5
TPLTTOT ONERPT+5~, ONERPT+57*, ONERPT+58, ONERPT+59, ONERPT+61, ONERPT+62, ONERPT+64, ONERPT+65, ONERPT+81
UNDRSPOS PROTOCOL+1~, PROTOCOL+14*, PROTOCOL+15, CNTR+1~, CNTR+11*, CNTR+12, PFXDLIM~, PFXDLIM+4*, PFXDLIM+6, PFXDLIM+7
, PFXDLIM+8
VALMCNT ONERPT~, ONERPT+67, ONERPT+68, ONERPT+71, ONERPT+72, ONERPT+73, ONERPT+74, ONERPT+75, ONERPT+76, ONERPT+77
, ONERPT+78, ONERPT+79, ONERPT+80, ONERPT+81
X ONERPT+69, ROUTINE+2~, ROUTINE+10*
XTVSBPC QUOTEFX+1~, QUOTEFX+3*
>> Y ONERPT+69*, ONERPT+70
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All