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 |