XTVSLPC ;ALBANY FO/GTS - VistA Package Sizing Manager; 17-NOV-2016
Source file <XTVSLPC.m>
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
