A1VSLAPI ;Albany FO/GTS - VistA Package Sizing Manager; 27-JUN-2016
Source file <A1VSLAPI.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EMAILEXT | ; Extract & E-Mail ^XTMP(""A1SIZE"","_$JOB_")
; -- Option: A1VS EXT-EMAIL PKG DATA |
|
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 A1VS EDITOR key
|
|
YNCHK(APROMPT) | ; Yes/No Prompt
|
|
SELXTMP(BEGIN,END,A1OFFSET) | ;Select XTMPSIZE.DAT file
|
|
WRTTXTFL(FILENME,STORPATH) | ; Output Package Manager Report to Text file
|
|
SNDEXT(A1SVSUBJ,XQSND,A1EXTARY) | ;Send VistA Size report
; -- Protocol: A1VS PKG MGR RPT MAIL ACTION |
|
OUTLKARY(A1PMARY,A1OTLK,A1SVSUBJ,A1RT) | ;Create attachmts array
|
|
UUBEGFN(A1FILENM) | ; Construct uuencode "begin" coding
; Call with A1FILENM = name of uuencoded file attachmt ; ; Returns A1X = string with "begin..."_file name |
|
ENCODE(A1STR,A1DTANOD,A1OTLK) | ;Encode a string, keep remainder for next line
|
|
UUEN(STR) | ; Uuencode string passed in.
|
|
HANGCHAR(A1CHAR) | ; Display Hang Characters
|
|
EXTPKG(LISTTMP) | ;loop through PACKAGE file & extract data
|
|
SETXTMP | ; set ^XTMP global with PACKAGE data
|
|
JUSTPAWS(MSG) | ; Press Return to Continue
|
|
FEXT(XTMPARY) | ;Return Package File Multiple entries
; INPUT: XTMPARY - Package Extract Array [^XTMP("A1SER")] ; OUTPUT: FILELIST - Pipe (|) delimited list of File Multiple entries |
|
LISTOUT(SELARY) | ; List the packages for selection
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | FLDNUM^DILFD |