XTVSRFL ;BHAM/MAM/GTS - VistA Package Sizing Manager;
Source file <XTVSRFL.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
INIT(VALMCNT,XTVPSPRM) | ;;VistA Size Report entry point
|
|
ALL | ; Select All or Single report
|
|
SORT | ; Select Sort for All report
|
|
LOOP(DISSORT,VALMCNT) | ; Loop through all entries in the Package parameters file
|
|
DISALL | ; Set report into display array
; display option 4 & 5 have no formatting, and are used for creating spreadsheets, ; for which the following heading lines are not needed |
|
DAD | ; Add report lines to display array
|
|
KWIT | ; QUIT Report
|
|
PDAD(DISSORT,DATA,D1,D2,D3,VALMCNT) | ; print actual data (finally)
|
|
TALLYRPT(DISSORT,XTVSSILN,SELPKGNM) | ; Compile component totals
; INPUT: ; DISSORT - ; 1: Sorted on PACKAGE NAME [Default] ; 2: Sorted on NUMBER of ROUTINES (Highest to Lowest) ; 3: Sorted on TOTAL ROUTINE SIZE (Highest to Lowest) ; 4: Delimited (^) Data, Sorted on PACKAGE NAME ; 5: Delimited (^) Data with PARENT PKG, Sorted by PACKAGE NAME |
|
COMPNTCT(PKGNAME,PKGIEN,LINEITEM,DISSORT) | ;Count components for package
|
|
PKGFLCK | ; Check for Package File entries matching Parameter names, send report message
|
|
ONEPKG | ; Select a package to report
|
Name | Field # of Occurrence |
---|---|
$$STATUS^%ZISH | LOOP+8, ONEPKG+6 |
CLOSE^%ZISH | LOOP+12, ONEPKG+8 |
OPEN^%ZISH | LOOP+3, ONEPKG+3 |
APPERROR^%ZTER | PKGFLCK+32 |
^DIR | ALL+15, SORT+13 |
^XMD | PKGFLCK+29 |
$$NETNAME^XMXUTIL | TALLYRPT+62, PKGFLCK+26, PKGFLCK+31 |
$$GET^XPAR | ALL+2 |
ADD^XTVSLAPI | DISALL+4, DISALL+5, DISALL+6, DISALL+7, DISALL+8, DISALL+9, DAD+10, DAD+16, PDAD+9, PDAD+17 , PDAD+22, PDAD+23 |
HANGCHAR^XTVSLAPI | TALLYRPT+52 |
RMTPKGMG^XTVSLAPI | TALLYRPT+62 |
SCAPARY^XTVSLP | ONEPKG+7 |
$$SELPKG^XTVSLPDC | ONEPKG+12 |
$$COUNTFLS^XTVSRFL1 | COMPNTCT+14 |
$$MULTX^XTVSRFL1 | COMPNTCT+28 |
$$PROTOCOL^XTVSRFL1 | COMPNTCT+36, COMPNTCT+37 |
$$ROUTINE^XTVSRFL1 | COMPNTCT+30, COMPNTCT+31 |
CNTR^XTVSRFL1 | COMPNTCT+33, COMPNTCT+34, COMPNTCT+39, COMPNTCT+40, COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50 |
KIDSIDX^XTVSRFL1 | LOOP+14, ONEPKG+10 |
ONERPT^XTVSRFL1 | ONEPKG+18 |
PARAMIDX^XTVSRFL1 | ONEPKG+16 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("PROD" | PKGFLCK+17, PKGFLCK+28 |
^DIC(9.4 - [#9.4] | TALLYRPT+58, TALLYRPT+59, TALLYRPT+60, PKGFLCK+11, PKGFLCK+12, PKGFLCK+13 |
^TMP("XTVS-FORUM-PFXS" | DAD+23!, TALLYRPT+37*, TALLYRPT+45*, ONEPKG+2!, ONEPKG+20! |
^TMP("XTVS-FORUM2TMP" | DAD+24! |
^TMP("XTVS-FORUMPKG" | LOOP+11*, DAD+25!, TALLYRPT+32, TALLYRPT+33, TALLYRPT+52, TALLYRPT+54, PKGFLCK+6, PKGFLCK+8 |
^TMP("XTVS-IDX-PKG" | DAD+25!, TALLYRPT+39*, TALLYRPT+40*, TALLYRPT+47*, ONEPKG+2!, ONEPKG+21! |
^TMP("XTVS-KIDSPFX-IDX" | DAD+24!, TALLYRPT+39, TALLYRPT+40, TALLYRPT+47, ONEPKG+20! |
^TMP("XTVS-LOCAL-ERROR" | PKGFLCK+4!, PKGFLCK+17*, PKGFLCK+18*, PKGFLCK+19*, PKGFLCK+20, PKGFLCK+21*, PKGFLCK+23, PKGFLCK+34! |
^TMP("XTVS-PARAM-CAP" | ONEPKG+2!, ONEPKG+21! |
^TMP("XTVS-PREFIX-IDX" | DAD+23!, TALLYRPT+36*, ONEPKG+2!, ONEPKG+20! |
^TMP("XTVS-VPS" | DAD+11, DAD+12, DAD+18, DAD+19, DAD+20, DAD+23!, TALLYRPT+65, TALLYRPT+66, COMPNTCT+52*, COMPNTCT+55* |
^TMP("XTVS-VPS0" | DAD+4, DAD+24!, TALLYRPT+65*, TALLYRPT+66* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADDPRFX | TALLYRPT+42*, TALLYRPT+44, COMPNTCT+7~ |
ADP | COMPNTCT+19!, COMPNTCT+26*, COMPNTCT+28*, COMPNTCT+30, COMPNTCT+31, COMPNTCT+33, COMPNTCT+34, COMPNTCT+37, COMPNTCT+39, COMPNTCT+40 , COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50, COMPNTCT+57! |
ADP( | COMPNTCT+28*, COMPNTCT+31, COMPNTCT+34, COMPNTCT+37, COMPNTCT+40, COMPNTCT+44, COMPNTCT+47, COMPNTCT+50 |
APFX | COMPNTCT+7~, COMPNTCT+28* |
APFXLST | COMPNTCT+7~, COMPNTCT+25*, COMPNTCT+28 |
D1 | DAD+4*, DAD+6*, DAD+11*, DAD+12, DAD+13, DAD+18*, DAD+19*, DAD+20, DAD+21, PDAD~ , PDAD+8, PDAD+17, TALLYRPT+26~, TALLYRPT+28*, TALLYRPT+65*, TALLYRPT+66* |
D10 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+13*, PDAD+21 |
D2 | DAD+4*, DAD+11*, DAD+12*, DAD+13, DAD+19*, DAD+20*, DAD+21, PDAD~, PDAD+8, PDAD+19 , TALLYRPT+26~, TALLYRPT+28*, TALLYRPT+65*, TALLYRPT+66* |
D3 | DAD+4*, PDAD~, PDAD+3*, PDAD+8, PDAD+15*, PDAD+21, TALLYRPT+26~, TALLYRPT+28* |
D4 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+14*, PDAD+15*, PDAD+21 |
D5 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+13*, PDAD+21 |
D6 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+13*, PDAD+21 |
D7 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+13*, PDAD+21 |
D8 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+13*, PDAD+21 |
D9 | PDAD+1~, PDAD+3*, PDAD+8, PDAD+13*, PDAD+21 |
DATA | PDAD~, PDAD+3, PDAD+8, PDAD+13, PDAD+14, PDAD+15 |
DATANDE | PDAD+1~, PDAD+7*, PDAD+8*, PDAD+9, PDAD+18*, PDAD+19*, PDAD+20*, PDAD+21*, PDAD+22 |
DIR | ALL+3~, SORT+1~ |
DIR("?" | ALL+5*, ALL+6*, ALL+7*, ALL+8*, ALL+9*, ALL+10*, ALL+11*, ALL+12*, ALL+13*, ALL+14* |
DIR("A" | ALL+4*, SORT+1* |
DIR("B" | ALL+3* |
DIR("L" | SORT+6*, SORT+7*, SORT+8*, SORT+9*, SORT+10*, SORT+11*, SORT+12* |
DIR(0 | ALL+3*, SORT+2*, SORT+3*, SORT+4*, SORT+5* |
DISSORT | INIT+21~, SORT+13*, SORT+15, LOOP~, LOOP+17, DISALL+3, DISALL+4, DAD+2, DAD+4, DAD+5 , DAD+8, DAD+9, DAD+13, DAD+15, DAD+21, PDAD~, PDAD+2, PDAD+6, PDAD+12, PDAD+14 , PDAD+15, TALLYRPT~, TALLYRPT+23*, TALLYRPT+63, TALLYRPT+65, TALLYRPT+66, COMPNTCT~, COMPNTCT+52, COMPNTCT+53 |
DUZ | INIT+19, TALLYRPT+62, PKGFLCK+26, PKGFLCK+31 |
>> ERRTEXT | PKGFLCK+31* |
EXTDIR | INIT+21~, ALL+2*, ALL+7, LOOP+3, ONEPKG+3 |
FFCTRSLT | TALLYRPT+27~, COMPNTCT+14*, COMPNTCT+15, COMPNTCT+16 |
FLDTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+16*, COMPNTCT+52, COMPNTCT+55 |
FTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+15*, COMPNTCT+52, COMPNTCT+55 |
IO | LOOP+6, ONEPKG+4 |
LINECNT | TALLYRPT+26~ |
LINEITEM | LOOP+8*, LOOP+9, LOOP+11, TALLYRPT+26~, TALLYRPT+33*, TALLYRPT+34, TALLYRPT+35, TALLYRPT+42, TALLYRPT+54*, TALLYRPT+55 , TALLYRPT+63, COMPNTCT~, COMPNTCT+10, COMPNTCT+14, COMPNTCT+20, COMPNTCT+25, COMPNTCT+54, COMPNTCT+55, ONEPKG+1~, ONEPKG+6* , ONEPKG+7 |
>> LNNUM | LOOP+7*, LOOP+10*, LOOP+11 |
LPA | COMPNTCT+7~, COMPNTCT+31*, COMPNTCT+34*, COMPNTCT+37*, COMPNTCT+40*, COMPNTCT+44*, COMPNTCT+47*, COMPNTCT+50* |
>> LPCNT | TALLYRPT+43* |
MSGNDENM | PKGFLCK+3~, PKGFLCK+5*, PKGFLCK+16, PKGFLCK+20*, PKGFLCK+21 |
OTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+33, COMPNTCT+34, COMPNTCT+52, COMPNTCT+55 |
PCENUM | TALLYRPT+26~, TALLYRPT+44*, COMPNTCT+7~, COMPNTCT+21*, COMPNTCT+22*, COMPNTCT+26*, COMPNTCT+28* |
PKGIEN | TALLYRPT+27~, TALLYRPT+53*, TALLYRPT+58*, TALLYRPT+59*, TALLYRPT+60*, TALLYRPT+62, TALLYRPT+63, COMPNTCT~, COMPNTCT+36, COMPNTCT+37 , PKGFLCK+3~, PKGFLCK+7*, PKGFLCK+11*, PKGFLCK+12*, PKGFLCK+13*, PKGFLCK+15 |
PKGNAME | TALLYRPT+26~, TALLYRPT+34*, TALLYRPT+36, TALLYRPT+39, TALLYRPT+40, TALLYRPT+47, TALLYRPT+55*, TALLYRPT+57, TALLYRPT+58, TALLYRPT+59 , TALLYRPT+60, TALLYRPT+62, TALLYRPT+63, COMPNTCT~, COMPNTCT+28, COMPNTCT+52, COMPNTCT+55, PKGFLCK+3~, PKGFLCK+8*, PKGFLCK+10 , PKGFLCK+11, PKGFLCK+12, PKGFLCK+13, PKGFLCK+21, ONEPKG+1~, ONEPKG+12*, ONEPKG+14, ONEPKG+15, ONEPKG+18 |
PKGPFX | TALLYRPT+26~, TALLYRPT+35*, TALLYRPT+36, TALLYRPT+37, TALLYRPT+39, TALLYRPT+40, COMPNTCT+7~, COMPNTCT+10*, COMPNTCT+14, COMPNTCT+30 , COMPNTCT+33, COMPNTCT+36, COMPNTCT+39, COMPNTCT+43, COMPNTCT+46, COMPNTCT+49, COMPNTCT+52, COMPNTCT+55 |
>> POP | LOOP+4 |
POPERR | LOOP+1~, LOOP+2*, LOOP+4*, LOOP+5 |
PREFIX | TALLYRPT+27~, TALLYRPT+44*, TALLYRPT+45, TALLYRPT+47 |
PRNTPKG | COMPNTCT+7~, COMPNTCT+54*, COMPNTCT+55 |
PTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+36*, COMPNTCT+37*, COMPNTCT+52, COMPNTCT+55 |
RDP | COMPNTCT+19!, COMPNTCT+21*, COMPNTCT+23*, COMPNTCT+30, COMPNTCT+31, COMPNTCT+33, COMPNTCT+34, COMPNTCT+36, COMPNTCT+37, COMPNTCT+39 , COMPNTCT+40, COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50, COMPNTCT+57! |
RDP( | COMPNTCT+23* |
RPFX | COMPNTCT+7~, COMPNTCT+22*, COMPNTCT+23 |
RPFXLST | COMPNTCT+7~, COMPNTCT+20*, COMPNTCT+22 |
RPTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+39, COMPNTCT+40, COMPNTCT+52, COMPNTCT+55 |
RTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+30*, COMPNTCT+31*, COMPNTCT+52, COMPNTCT+55 |
S3 | DAD+1~, DAD+3*, DAD+4* |
SELPKGNM | TALLYRPT~, TALLYRPT+62 |
SPCT | PDAD+1~, PDAD+20* |
TLCNT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+30, COMPNTCT+31, COMPNTCT+52, COMPNTCT+55 |
TMPSUB | DAD+17*, DAD+18*, DAD+19, DAD+20, TALLYRPT+26~, TALLYRPT+31*, TALLYRPT+32*, TALLYRPT+33, TALLYRPT+51*, TALLYRPT+52* , TALLYRPT+54, COMPNTCT+55, PKGFLCK+3~, PKGFLCK+5*, PKGFLCK+6*, PKGFLCK+8 |
TPLTTOT | COMPNTCT+8~, COMPNTCT+12*, COMPNTCT+43, COMPNTCT+44, COMPNTCT+46, COMPNTCT+47, COMPNTCT+49, COMPNTCT+50, COMPNTCT+52, COMPNTCT+55 |
VALMCNT | INIT~, SORT+15, LOOP~, DISALL+4, DISALL+5, DISALL+6, DISALL+7, DISALL+8, DISALL+9, DAD+4 , DAD+10, DAD+13, DAD+16, DAD+21, PDAD~, PDAD+9, PDAD+17, PDAD+22, PDAD+23, ONEPKG+5* , ONEPKG+18 |
X | INIT+21~, TALLYRPT+65*, TALLYRPT+66* |
XMDUZ | PKGFLCK+24~, PKGFLCK+25* |
XMSUB | PKGFLCK+24~, PKGFLCK+28* |
XMTEXT | PKGFLCK+24~, PKGFLCK+27* |
XMY | PKGFLCK+24~ |
XMY( | PKGFLCK+26* |
>> XMZ | PKGFLCK+30 |
XTCHAR | TALLYRPT+26~, TALLYRPT+51*, TALLYRPT+52 |
XTVPSPRM | INIT~, ALL+6, ALL+9, LOOP+3, ONEPKG+3 |
XTVSSILN | TALLYRPT~, TALLYRPT+24*, TALLYRPT+50, TALLYRPT+52 |
>> XTVSSNDR | TALLYRPT+62 |
Y | INIT+21~, ALL+15, ALL+16, SORT+13 |