XTVSLAPI ;ALBANY FO/GTS - VistA Package Sizing Manager; 27-JUN-2016
Source file <XTVSLAPI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EMAILEXT | ; - Send Package File Extract via Packman; Extract & Email ^XTMP(""XTSIZE"","_$JOB_")
; -- Option: XTVS PKG MGR EXT PACKAGE MSG |
|
| ADD(VALMCNT,MSG,LRBOLD,STRTBLD,ENDBLD) | ; -- add line to build display
|
|
| SPLITADD(VALMCNT,MSG,ADDSPACE) | ; -- add line to build display
|
|
| RTRNADD(EMGRTARY,LNENUM,MSG) | ; Add a line to EMGRTARY array
|
|
| EDITPCHK() | ; -- does DUZ have XTVS EDITOR key
|
|
| YNCHK(APROMPT,DEFANS) | ; Yes/No Prompt
|
|
| SELXTMP(BEGIN,END) | ;Select XTMPSIZE.DAT file
; RETURN: Selected XTMPSIZE file name |
|
| WRTTXTFL(FILENME,STORPATH) | ; Output Package Manager Report to Text file
|
|
| SNDEXT(XTSVSUBJ,XQSND,XTEXTARY) | ;Send VistA Size report
; -- Protocol: XTVS PKG MGR RPT MAIL ACTION |
|
| MSGORATC(XTQTXT) | ; Query message or text attachment
; INPUT: ; XTQTXT - Report name text to include in user prompt |
|
| OUTLKARY(XTPMARY,XTOTLK,XTSVSUBJ,XTRT) | ;Create attachmts array
|
|
| UUBEGFN(XTFILENM) | ; Construct uuencode "begin" coding
; Call with XTFILENM = name of uuencoded file attachmt ; ; Returns XTX = string with "begin..."_file name |
|
| ENCODE(XTSTR,XTDTANOD,XTOTLK) | ;Encode a string, keep remainder for next line
|
|
| UUEN(STR) | ; Uuencode string passed in.
|
|
| HANGCHAR(XTCHAR) | ; Display Hang Characters
|
|
| JUSTPAWS(MSG) | ; Press Return to Continue
|
|
| FEXT(XTMPARY) | ;Return Package File Multiple entries
; INPUT: XTMPARY - Package Extract Array [^XTMP("XTSIZE")] ; OUTPUT: FILELIST - Pipe (|) delimited list of File Multiple entries |
|
| LISTOUT(SELARY) | ; List the packages for selection
|
|
| UNLCKPFL(FILENAME) | ; UnLOCK a Parameter file
|
|
| CHKPID(DEFDIR,FILENAME) | ; Check PID in .LCK against $JOB
|
|
| REQLOCK(FILENAME) | ; Check LOCK on a Parameter file. If unlocked, set LOCK
|
|
| NOTCE(NTCTEXT,XTVSADDR,PKGNAME) | ; Send Package extract notice msg to requester
; Input: ; NTCTEXT - Notice Text to share with reader (text~TAG^ROUTINE) ; XTVSADDR - Recipients E-Mail address ; PKGNAME - Name of package that had data cleanup during extract ; |
|
| RMTPKGMG(MSGTEXT,XTVSADDR,PKGNAME) | ; Send Package extract notice msg to requester.
; Only invoked by SRVREXT^XTVSSVR when a remote package size report is requested for a single package and fails ; Input: ; MSGTEXT - Text to share with reader ; XTVSADDR - Recipients E-Mail address ; PKGNAME - Name of package that had data cleanup during extract ; |
|
| INSRTX(X,SELARY,ITEMNUM) | ;Insert item into SELARY in cardinal order
|
|
| XTMP2SEL(FIRSTITM,LASTITM,SELARY) | ; Move XTMPSIZE from LM List to SELARY
; Default values if not defined: ; FIRSTITM - 1 ; LASTITM - Larger of 1 or FIRSTITM when LASTITM > FIRSTITM |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
