A1VSLPC ;Albany FO/GTS - VistA Package Sizing Manager; 17-NOV-2016
Source file <A1VSLPC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(CMPRFNME) | ; -- main entry point for A1VS PKG MGR PARAM COMPARE
; Input: CMPRFNME - File to compare current XTMPSIZE.DAT file |
|
| HDR | ; -- header code
|
|
| INIT | ; - Build Current and Comparison XTMPSIZE parameter arrays
|
|
| COMPARE(CPRNDNM,NODECUR,VALMCNT,PKGDEL,PKGRPTD) | ; Compare current & selected parameter files, report diff's and cleanup ^TMP globals
|
|
| CHNGCHK(NODECUR,NODECPR,VALMCNT) | ; Check latest extract (CUR) against a comparison extract (CPR)
|
|
| ADDDELRP(EXTRCT,VALMCNT) | ;Report packages Added/Deleted to/from current extract
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| REFRESH | ; -- refresh display
|
|
| 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 - Current 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^A1VSLPC
|
|
| DELPKG(CURNDNM,CPRNDNM) | ; Delete Package from Current and Compare parameter files
|
|
| MAILRPT | ; Email ^TMP("A1VS PKG MGR PARAM ERROR DISP") comparison report
; -- Protocol: A1VS PKG MGR PARAM COMPR MAIL ACTION |
