A1VSLPER ;Albany FO/GTS - VistA Package Sizing Manager; 7-JUL-2016
Source file <A1VSLPER.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for A1VS PKG MGR PARAM ERROR DISP
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| KILL | ; - Clean up local and global display arrays
|
|
| INCONSCK | ;Check for overlaps in Forum Package file data
|
|
| FLDDATLP(TMPROOT,PKGNME,PREFIX,ADPFXIND) | ;Check Fields and Data for 'ADDPFX' and 'FLERNG'
; Input: TMPROOT - Package "A1VS-PKGEDIT" array root [^TMP("A1VS-PKGEDIT",$J,PKGNME,PREFIX)] ; PKGNME - Package Name using Prefix ; PREFIX - Additional Prefix used by Package ; ADPFXIND - Indicates that prefix has been checked |
|
| CHKPFX(PKGNME,PREFIX,TMPROOT,PKGPFX) | ; Check Prefix for multiple use
; Input: PKGNME - Package Name using Prefix ; PREFIX - Additional Prefix used by Package ; TMPROOT - Package "A1VS-PKGEDIT" array root [^TMP("A1VS-PKGEDIT",J,PKGNME,PREFIX)] ; PKGPFX - Package Prefix |
|
| CHKFILE(PKGNME,FLERNG,TMPROOT,PKGPFX) | ; Check File range for multiple use
; Input: PKGNME - Package Name using Prefix ; FILRNG - File Range used by Package Name ; TMPROOT - Package "A1VS-PKGEDIT" array root ; PKGPFX - Package Prefix |
|
| MLTPFX(TMPROOT,PKGSUB,PKGNME,SUBPFX,ERRARYCT,FILERPRT) | ; Report multiple use of prefix
|
|
| PKGERHDR(TMPROOT,ERRAYRT,PKGNME,ERRARYCT) | ; Output Header info for PREFIX and FILE RANGE overlap arrays
|
|
| CMBARST(CMBARCT) | ;Add Header to Combined Prefix and File Range overlap error array
|
|
| SETFLHDR(NODETYPE,ERRARYCT) | ;Set File Header
|
|
| SPLITNDE(TEXT,NODESUB,ERRARYCT) | ;Split Error Node
|
|
| NOPKGRT(PKGNME,PKGPFX,ERRARYCT,CMBARCT,PKGRPRT) | ;Report Package for File section
|
|
| RNGCHK(RNGBEG,RNGEND,STARTSUB,ENDSUB) | ;Check Package file ranges against Range index
|
|
| DPFXERR | ; Display prefix overlap list
; -- Protocol: A1VS PKG MGR PREFIX OVERLAP ACTION |
|
| DRNGERR | ; Display File range errors
; -- Protocol: A1VS PKG MGR FILE OVERLAP ACTION |
|
| CMBERR | ; Redisplay Prefix/File Range overlaps
; -- Protocol: A1VS PKG MGR PARAM OVRLP REDISP ACTION |
|
| ERPT | ; Email ^TMP("A1VS PKG MGR PARAM ERROR DISP") displayed report
; -- Protocol: A1VS PKG MGR EMAIL OVRLAP RPT ACTION |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
