XTVSLPC ;ALBANY FO/GTS - VistA Package Sizing Manager; 17-NOV-2016
Source file <XTVSLPC.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Toolkit | 3 | XTVS PKG MGR PARAM COMPARE XTVS PKG MGR PARAM COMPR MAIL ACTION XTVSLP |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(CMPRFNME) | ; -- main entry point for XTVS PKG MGR PARAM COMPARE
; Input: CMPRFNME - File to compare Selected XTMPSIZE.DAT file ; XTVPSPRM - Selected/Displayed Parameter file [Partition variable set by INIT^XTVSLP] |
|
| HDR | ; -- header code
|
|
| INIT | ; - Build Selected and Comparison XTMPSIZE parameter arrays
|
|
| COMPARE(CPRNDNM,NODECUR,VALMCNT,PKGDEL,PKGRPTD) | ; Compare Selected & Comparison parameter files, report diff's and cleanup ^TMP globals
|
|
| CHNGCHK(NODECUR,NODECPR,VALMCNT) | ; Check selected parameter file (SEL) against a comparison parameter file (CPR)
|
|
| ADDDELRP(EXTRCT,VALMCNT) | ;Report packages Added/Deleted to/from Selected extract
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| MSG(TEXT) | ; -- set default message
|
|
| KILL | ; - Cleanup local and global display arrays
|
|
| CLNTMPGB | ;Kill temporary globals
|
|
| HDROUT(PKGNAME,PKGHDRPT,VALMCNT) | ; Output package header
|
|
| LISTDIF(ELMTNME,CURDAT,CPRDAT,VALMCNT) | ; Output differences in parameter lists
|
|
| EVENSPLT(VALMCNT,MSG,DTANODE) | ; Add line to build display split on piece
; VALMCNT - Selected array node number ; MSG - Message to add to ListMan Display ; DTANODE - Indicates raw data node or data element changed ; 1 : Raw data node ; 0 : data element changed |
|
| DELIMEND(MSGPCE) | ; Return ending delimiter for LINEOUT in EVENSPLT^XTVSLPC
|
|
| DELPKG(CURNDNM,CPRNDNM) | ; Delete Package from Selected and Compare parameter files
|
|
| MAILRPT | ; Email ^TMP("XTVS PKG MGR PARAM ERROR DISP") comparison report
; -- Protocol: XTVS PKG MGR PARAM COMPR MAIL ACTION |
| Name | Field # of Occurrence |
|---|---|
| $$STATUS^%ZISH | INIT+9, INIT+19 |
| CLOSE^%ZISH | INIT+13, INIT+23 |
| OPEN^%ZISH | INIT+6, INIT+16 |
| EN^VALM | EN+7 |
| CLEAR^VALM1 | HELP+5, HELP+11 |
| FULL^VALM1 | HELP+6, MAILRPT+3 |
| PAUSE^VALM1 | HELP+11 |
| CLEAN^VALM10 | KILL+1 |
| KILL^VALM10 | KILL+2 |
| ^XMD | MAILRPT+20 |
| TOWHOM^XMXAPIU | MAILRPT+8 |
| $$GET^XPAR | HDR+3, INIT+3 |
| DISP^XQORM1 | HELP+3, HELP+15 |
| ^XTVSHLP1 | HELP+10 |
| ADD^XTVSLAPI | INIT+28, INIT+29, INIT+39, CHNGCHK+24, CHNGCHK+31, CHNGCHK+38, CHNGCHK+73, CHNGCHK+74, CHNGCHK+75, ADDDELRP+4 , ADDDELRP+5, ADDDELRP+6, ADDDELRP+15, ADDDELRP+18, ADDDELRP+21, ADDDELRP+23, ADDDELRP+27, ADDDELRP+31, ADDDELRP+35, ADDDELRP+40 , ADDDELRP+42, HDROUT+2, HDROUT+3, LISTDIF+2, LISTDIF+18, LISTDIF+24, EVENSPLT+17, EVENSPLT+20 |
| JUSTPAWS^XTVSLAPI | EN+5, MAILRPT+21, MAILRPT+22 |
| $$BLDNUM^XTVSLM | HDR+5 |
| $$VERNUM^XTVSLM | HDR+5 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("XMY" | MAILRPT+12 |
| ^TMP("XTVS " | ADDDELRP+10 |
| ^TMP("XTVS CPR PARAM" | INIT+22*, INIT+34, INIT+35, INIT+37, COMPARE+3, CLNTMPGB+1!, DELPKG+1! |
| ^TMP("XTVS CUR PARAM" | INIT+12*, INIT+32, CLNTMPGB+1!, DELPKG+1! |
| ^TMP("XTVS PKG MAN CMPR MSG" | MAILRPT+15*, MAILRPT+18*, MAILRPT+23! |
| ^TMP("XTVS PKG MAN PARM COMPARE" | KILL+4!, MAILRPT+17, MAILRPT+18 |
| Name | Line Occurrences |
|---|---|
| $$CHNGCHK | COMPARE+15 |
| $$DELIMEND | EVENSPLT+12 |
| ADDDELRP | INIT+41, INIT+42 |
| CLNTMPGB | KILL+3 |
| COMPARE | INIT+37 |
| DELPKG | INIT+34, COMPARE+13, COMPARE+16 |
| EVENSPLT | ADDDELRP+25, ADDDELRP+29, ADDDELRP+33, ADDDELRP+37, LISTDIF+5, LISTDIF+6, LISTDIF+8, LISTDIF+9, LISTDIF+12, LISTDIF+17 , LISTDIF+23, LISTDIF+26 |
| HDROUT | CHNGCHK+23, CHNGCHK+30, CHNGCHK+37, CHNGCHK+44, CHNGCHK+51, CHNGCHK+58, CHNGCHK+65, CHNGCHK+72, ADDDELRP+12 |
| KILL | INIT+2, EXIT+1 |
| LISTDIF | CHNGCHK+45, CHNGCHK+52, CHNGCHK+59, CHNGCHK+66 |
| MSG | INIT+44, HELP+20, MAILRPT+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHKELMT | LISTDIF+1~, LISTDIF+16*, LISTDIF+17, LISTDIF+22*, LISTDIF+23 |
| CMPRFNME | EN~, EN+4, HDR+13, INIT+16 |
| CPRADPFX | CHNGCHK+2~, CHNGCHK+42*, CHNGCHK+43, CHNGCHK+45 |
| CPRDAT | LISTDIF~, LISTDIF+4, LISTDIF+7, LISTDIF+9, LISTDIF+11, LISTDIF+12, LISTDIF+15, LISTDIF+23 |
| CPREXPFX | CHNGCHK+2~, CHNGCHK+49*, CHNGCHK+50, CHNGCHK+52 |
| CPRFL | CHNGCHK+2~, CHNGCHK+56*, CHNGCHK+57, CHNGCHK+59 |
| CPRFRL | CHNGCHK+2~, CHNGCHK+63*, CHNGCHK+64, CHNGCHK+66 |
| CPRHF | CHNGCHK+2~, CHNGCHK+35*, CHNGCHK+36, CHNGCHK+38 |
| CPRLF | CHNGCHK+2~, CHNGCHK+28*, CHNGCHK+29, CHNGCHK+31 |
| CPRNDNM | INIT+1~, INIT+36*, INIT+37*, COMPARE~, COMPARE+3, COMPARE+13, COMPARE+16, DELPKG~, DELPKG+1 |
| CPRPCS | COMPARE+1~, COMPARE+8*, COMPARE+10*, COMPARE+13, COMPARE+14 |
| CPRPKG | COMPARE+1~, COMPARE+4*, COMPARE+14 |
| CPRPP | CHNGCHK+2~, CHNGCHK+70*, CHNGCHK+71, CHNGCHK+75 |
| CPRPPFX | CHNGCHK+2~, CHNGCHK+21*, CHNGCHK+22, CHNGCHK+24 |
| CURADPFX | CHNGCHK+2~, CHNGCHK+41*, CHNGCHK+43, CHNGCHK+45 |
| CURDAT | LISTDIF~, LISTDIF+4, LISTDIF+6, LISTDIF+7, LISTDIF+11, LISTDIF+17, LISTDIF+21, LISTDIF+26 |
| CUREXPFX | CHNGCHK+2~, CHNGCHK+48*, CHNGCHK+50, CHNGCHK+52 |
| CURFL | CHNGCHK+2~, CHNGCHK+55*, CHNGCHK+57, CHNGCHK+59 |
| CURFRL | CHNGCHK+2~, CHNGCHK+62*, CHNGCHK+64, CHNGCHK+66 |
| CURHF | CHNGCHK+2~, CHNGCHK+34*, CHNGCHK+36, CHNGCHK+38 |
| CURLF | CHNGCHK+2~, CHNGCHK+27*, CHNGCHK+29, CHNGCHK+31 |
| CURNDNM | INIT+1~, INIT+31*, INIT+32*, INIT+34, INIT+35, COMPARE+13, COMPARE+16, DELPKG~, DELPKG+1 |
| CURPCS | COMPARE+1~, COMPARE+9*, COMPARE+11*, COMPARE+13, COMPARE+14 |
| CURPKG | COMPARE+1~, COMPARE+2*, COMPARE+14 |
| CURPP | CHNGCHK+2~, CHNGCHK+69*, CHNGCHK+71, CHNGCHK+74 |
| CURPPFX | CHNGCHK+2~, CHNGCHK+20*, CHNGCHK+22, CHNGCHK+24 |
| DATAELMT | ADDDELRP+1~, ADDDELRP+14*, ADDDELRP+15, ADDDELRP+17*, ADDDELRP+18, ADDDELRP+20*, ADDDELRP+21, ADDDELRP+24*, ADDDELRP+25, ADDDELRP+28* , ADDDELRP+29, ADDDELRP+32*, ADDDELRP+33, ADDDELRP+36*, ADDDELRP+37, ADDDELRP+39*, ADDDELRP+40, LISTDIF+1~, LISTDIF+15*, LISTDIF+16 , LISTDIF+17, LISTDIF+21*, LISTDIF+22, LISTDIF+23 |
| DEFDIR | HDR+1~, HDR+3*, HDR+6, INIT+1~, INIT+3*, INIT+6, INIT+16 |
| DELSTATE | INIT+1~, INIT+33*, INIT+34*, INIT+35 |
| DIR | KILL+5! |
| DIRHEAD | HDR+1~, HDR+6*, HDR+7, HDR+8, HDR+10*, HDR+11, HDR+12, HDR+13*, HDR+14, HDR+15 |
| DIRUT | KILL+5! |
| DTANODE | EVENSPLT~, EVENSPLT+8*, EVENSPLT+13, EVENSPLT+14, EVENSPLT+17, EVENSPLT+20 |
| DTOUT | KILL+5! |
| DUOUT | KILL+5! |
| DUZ | MAILRPT+8, MAILRPT+13 |
| ELMTNME | LISTDIF~, LISTDIF+2 |
| EXTRCT | ADDDELRP~, ADDDELRP+3, ADDDELRP+10, ADDDELRP+42 |
| FNDCHG | COMPARE+1~, COMPARE+15* |
| FNDCHNG | CHNGCHK+1~, CHNGCHK+15*, CHNGCHK+77*, CHNGCHK+78 |
| HDRTXT | ADDDELRP+1~, ADDDELRP+3*, ADDDELRP+6 |
| IO | INIT+7, INIT+17 |
| >> LINEITEM | INIT+9*, INIT+10, INIT+12, INIT+19*, INIT+20, INIT+22 |
| LINEOUT | EVENSPLT+7~, EVENSPLT+9*, EVENSPLT+12*, EVENSPLT+13, EVENSPLT+14, EVENSPLT+16*, EVENSPLT+17, EVENSPLT+18*, EVENSPLT+20 |
| MSG | EVENSPLT~, EVENSPLT+12, EVENSPLT+16 |
| MSGPCE | EVENSPLT+7~, EVENSPLT+12*, DELIMEND~, DELIMEND+2 |
| NODECPR | COMPARE+1~, COMPARE+3*, COMPARE+4, COMPARE+8, COMPARE+10, COMPARE+13, COMPARE+14, COMPARE+15, CHNGCHK~, CHNGCHK+21 , CHNGCHK+28, CHNGCHK+35, CHNGCHK+42, CHNGCHK+49, CHNGCHK+56, CHNGCHK+63, CHNGCHK+70 |
| NODECUR | INIT+1~, INIT+32*, INIT+34, INIT+35, INIT+37, COMPARE~, COMPARE+2, COMPARE+9, COMPARE+11, COMPARE+13 , COMPARE+14, COMPARE+15, CHNGCHK~, CHNGCHK+16, CHNGCHK+20, CHNGCHK+27, CHNGCHK+34, CHNGCHK+41, CHNGCHK+48, CHNGCHK+55 , CHNGCHK+62, CHNGCHK+69 |
| NODENM | ADDDELRP+1~, ADDDELRP+9*, ADDDELRP+10* |
| NODENUM | INIT+1~, INIT+8*, INIT+11*, INIT+12, INIT+18*, INIT+21*, INIT+22 |
| NODEVAL | ADDDELRP+1~, ADDDELRP+10*, ADDDELRP+12, ADDDELRP+14, ADDDELRP+17, ADDDELRP+20, ADDDELRP+24, ADDDELRP+28, ADDDELRP+32, ADDDELRP+36 , ADDDELRP+39 |
| PCENUM | LISTDIF+1~, LISTDIF+15*, LISTDIF+18, LISTDIF+21*, LISTDIF+24, EVENSPLT+7~, EVENSPLT+12*, EVENSPLT+15*, EVENSPLT+16, EVENSPLT+19 |
| PKGDEL | INIT+1~, INIT+36*, INIT+37, COMPARE~, COMPARE+13*, COMPARE+18* |
| PKGFND | ADDDELRP+1~, ADDDELRP+8*, ADDDELRP+11*, ADDDELRP+42 |
| PKGHDRPT | CHNGCHK+1~, CHNGCHK+15*, CHNGCHK+23, CHNGCHK+30, CHNGCHK+37, CHNGCHK+44, CHNGCHK+51, CHNGCHK+58, CHNGCHK+65, CHNGCHK+72 , ADDDELRP+12, HDROUT~, HDROUT+1* |
| PKGNAME | CHNGCHK+1~, CHNGCHK+16*, CHNGCHK+23, CHNGCHK+30, CHNGCHK+37, CHNGCHK+44, CHNGCHK+51, CHNGCHK+58, CHNGCHK+65, CHNGCHK+72 , HDROUT~, HDROUT+3 |
| PKGRPTD | INIT+1~, INIT+26*, INIT+37, INIT+38, INIT+43*, COMPARE~, COMPARE+17* |
| RESULT | DELIMEND+1~, DELIMEND+2*, DELIMEND+3 |
| SPCPAD | HDR+1~, HDR+2*, HDR+7*, HDR+8, HDR+9*, HDR+11*, HDR+12, HDR+14*, HDR+15 |
| START | EVENSPLT+7~, EVENSPLT+10*, EVENSPLT+16, EVENSPLT+19* |
| STRVLMCT | CHNGCHK+1~, CHNGCHK+17*, CHNGCHK+77 |
| SUBSCPT | MAILRPT+2~, MAILRPT+16*, MAILRPT+17*, MAILRPT+18 |
| TEXT | MSG~, MSG+1, MSG+2 |
| >> TXTCT | HELP+10* |
| >> VALMBCK | MAILRPT+26* |
| VALMCNT | INIT+26*, INIT+28, INIT+29, INIT+37, INIT+39, INIT+41, INIT+42, COMPARE~, COMPARE+15, CHNGCHK~ , CHNGCHK+17, CHNGCHK+23, CHNGCHK+24, CHNGCHK+30, CHNGCHK+31, CHNGCHK+37, CHNGCHK+38, CHNGCHK+44, CHNGCHK+45, CHNGCHK+51 , CHNGCHK+52, CHNGCHK+58, CHNGCHK+59, CHNGCHK+65, CHNGCHK+66, CHNGCHK+72, CHNGCHK+73, CHNGCHK+74, CHNGCHK+75, CHNGCHK+77 , ADDDELRP~, ADDDELRP+4, ADDDELRP+5, ADDDELRP+6, ADDDELRP+12, ADDDELRP+15, ADDDELRP+18, ADDDELRP+21, ADDDELRP+23, ADDDELRP+25 , ADDDELRP+27, ADDDELRP+29, ADDDELRP+31, ADDDELRP+33, ADDDELRP+35, ADDDELRP+37, ADDDELRP+40, ADDDELRP+42, HDROUT~, HDROUT+2 , HDROUT+3, LISTDIF~, LISTDIF+2, LISTDIF+5, LISTDIF+6, LISTDIF+8, LISTDIF+9, LISTDIF+12, LISTDIF+17, LISTDIF+18 , LISTDIF+23, LISTDIF+24, LISTDIF+26, EVENSPLT~, EVENSPLT+17, EVENSPLT+20 |
| >> VALMHDR(1 | HDR+4*, MAILRPT+14, MAILRPT+21, MAILRPT+22 |
| >> VALMHDR(2 | HDR+5* |
| >> VALMHDR(3 | HDR+8* |
| >> VALMHDR(4 | HDR+12*, MAILRPT+14, MAILRPT+15 |
| >> VALMHDR(5 | HDR+15*, MAILRPT+15 |
| >> VALMSG | MSG+1*, MSG+2* |
| X | HELP+1, HELP+2*, HELP+4, KILL+5! |
| XMDUZ | MAILRPT+10~, MAILRPT+13* |
| XMERR | MAILRPT+2~, MAILRPT+5!, MAILRPT+9 |
| XMSUB | MAILRPT+10~, MAILRPT+14* |
| XMTEXT | MAILRPT+10~, MAILRPT+19* |
| XMY | MAILRPT+10~ |
| XMY( | MAILRPT+12* |
| XMZ | MAILRPT+2~, MAILRPT+21, MAILRPT+22 |
| XTINSTMM | MAILRPT+2~, MAILRPT+8 |
| XTINSTMM("ADD | R FLAGS" , MAILRPT+6* |
| XTLPCNT | MAILRPT+10~, MAILRPT+11*, MAILRPT+12* |
| >> XTQVAR | HELP+7*, HELP+8, HELP+9*, HELP+10, HELP+11*, HELP+13 |
| XTTOMM | MAILRPT+2~ |
| XTTYPE | MAILRPT+2~, MAILRPT+7*, MAILRPT+8 |
| >> XTVPSPRM | HDR+10, INIT+6 |
| >> XTX | HELP+10*, HELP+11, HELP+12 |
| Y | HELP+7, HELP+11, KILL+5! |
| Name | Field # of Occurrence |
|---|---|
| $T(LPCTXT+TXTCT^XTVSHLP1 | HELP+10 |