XTVSSVR ;ALB/GTS - VistA Package Sizing Manager; 26-FEB-2020
Source file <XTVSSVR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SRVREXT | ; Entry point - Process XTVS Request Message
; -- Server Option: XTVS PKG EXTRACT SERVER |
|
| PARSLN | ; Parse message line of package parameters (XT*7.3*152)
|
|
| PKGLNRBD(ARRYNAME,XTVSLN,XTPKGLN,LNITMCT) | ;Rebuild multiple message lines into single pkg param line (XT*7.3*152)
; Input: ; ARRYNAME - First Subscript of ^TMP array [VAL] ; XTVSLN - Current message line [VAL] ; XTPKGLN - Package line being created [VAL] ; LNITMCT - Node # to store complete Package String in ^TMP array [REF] |
|
| EXTPKG(XTVSSNDR) | ; Extract Package File
|
|
| EEXT(XTVSSNDR,XTVSSIZE) | ; Email ^XTMP("XTSIZE") extract global
|
|
| WRERR(HDRTEXT,ERRTEXT,XTVSSNDR,PKGNAME) | ; Write Server Mail extract send error to Error Trap & return msg to requester
|
|
| SIZERPT(XTVSSNDR) | ; Create Size Report and return to user
; Requires ^XTMP("XTSIZE") |
|
| RPTSIZE(XTVSSNDR) | ; Create message with report
|
|
| PDAD(DATA,PKGNAME,PKGPFX,LINECNT) | ; Add data to message global
|
|
| ADDLNE(TMPARY,LINECNT,MSG) | ; Add line to global
|
|
| ONEPKGSZ(XTVSSNDR,SELPKGPM) | ; Report Package
|
|
| ONERPT(XTVSSNDR,SELPKGPM,PKGNAME,PKGPFX) | ; Report a single package
|
