Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: A1VSLAPI

Package: VistA Package Sizing Utility

Routine: A1VSLAPI


Information

A1VSLAPI ;Albany FO/GTS - VistA Package Sizing Manager; 27-JUN-2016

Source Information

Source file <A1VSLAPI.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^TMP("A1VS PKG MGR RPT",$J,LMTMPNDE,0)
  • Line Location: WRTTXTFL+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] FLDNUM^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call