Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (CLOSE,OPEN)^%ZISH  IOXY^XGF  ($$FMTE,$$NOW)^XLFDT  $$DEC^XLFUTL  OWNSKEY^XUSRB  
MailMan 3 ENT^XMPG  SENDMSG^XMXAPI  TOWHOM^XMXAPIU  
List Manager 2 (FULL,PAUSE)^VALM1  (CNTRL,SET)^VALM10  
VA FileMan 2 $$FLDNUM^DILFD  ^DIR  
VistA Package Sizing Utility 2 JUSTPAWS^A1VSLAPI  $$PKGEXT^A1VSLNA1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
VistA Package Sizing Utility 15 A1VSCP  A1VSLAPI  A1VSLDE  A1VSLE  A1VSLM  A1VSLN  A1VSLNA1  A1VSLP  
A1VSLPC  A1VSLPD1  A1VSLPDC  A1VSLPER  A1VSLR  A1VSRFL  A1VSRFL1  

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

External References

Name Field # of Occurrence
CLOSE^%ZISH WRTTXTFL+13
OPEN^%ZISH WRTTXTFL+6
JUSTPAWS^A1VSLAPI EMAILEXT+22, EMAILEXT+23, EMAILEXT+26
$$PKGEXT^A1VSLNA1 EMAILEXT+4
$$FLDNUM^DILFD SETXTMP+17, SETXTMP+26
^DIR YNCHK+10, SELXTMP+7, JUSTPAWS+9
FULL^VALM1 SELXTMP+3, SNDEXT+10
PAUSE^VALM1 LISTOUT+4
CNTRL^VALM10 ADD+13
SET^VALM10 ADD+9, SPLITADD+16
IOXY^XGF HANGCHAR+10
$$FMTE^XLFDT EMAILEXT+18, OUTLKARY+15
$$NOW^XLFDT OUTLKARY+13
$$DEC^XLFUTL UUEN+15
ENT^XMPG EMAILEXT+21
SENDMSG^XMXAPI SNDEXT+27
TOWHOM^XMXAPIU EMAILEXT+11, SNDEXT+15
OWNSKEY^XUSRB EDITPCHK+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,^TMP("A1VS PKG MGR RPT",$J,LMTMPNDE,0)
  • Line Location: WRTTXTFL+12
Routine Call
  • DIR
  • Line Location:
    • YNCHK+10
    • SELXTMP+7
    • JUSTPAWS+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] FLDNUM^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] EXTPKG+3, SETXTMP+8, SETXTMP+10, SETXTMP+12, SETXTMP+13, SETXTMP+14, SETXTMP+17, SETXTMP+20, SETXTMP+21, SETXTMP+22
SETXTMP+26, SETXTMP+28, SETXTMP+30, SETXTMP+35
^TMP("A1VS PKG MGR RPT" WRTTXTFL+11, WRTTXTFL+12
^TMP("XMY" EMAILEXT+15, EMAILEXT+24!, SNDEXT+22, SNDEXT+29!
^TMP("XMY0" SNDEXT+29!
^TMP($J SNDEXT+29!
^XTMP("A1SIZE" EMAILEXT+5, EMAILEXT+17, EMAILEXT+19, EMAILEXT+24!, EXTPKG+2!*, SETXTMP+31*, SETXTMP+37*

Label References

Name Line Occurrences
$$UUBEGFN OUTLKARY+28
$$UUEN OUTLKARY+37, ENCODE+11
ENCODE OUTLKARY+34, OUTLKARY+36
HANGCHAR OUTLKARY+32
OUTLKARY SNDEXT+26
SETXTMP EXTPKG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1BS HANGCHAR+3~, HANGCHAR+7*, HANGCHAR+12, HANGCHAR+14, HANGCHAR+15
A1CHAR OUTLKARY+7~, OUTLKARY+9*, OUTLKARY+32, HANGCHAR~, HANGCHAR+4*, HANGCHAR+12*, HANGCHAR+13*, HANGCHAR+14*, HANGCHAR+15*, HANGCHAR+16
A1CRLF OUTLKARY+7~, OUTLKARY+12*, OUTLKARY+15, OUTLKARY+17, OUTLKARY+21, OUTLKARY+33
A1D HANGCHAR+3~, HANGCHAR+5*, HANGCHAR+13, HANGCHAR+15
A1DTANOD ENCODE~, ENCODE+11*
A1DTTM OUTLKARY+7~, OUTLKARY+13*, OUTLKARY+15, OUTLKARY+20
A1EXTARY SNDEXT~, SNDEXT+26
A1FILENM UUBEGFN~, UUBEGFN+6
A1FILNAM OUTLKARY+7~, OUTLKARY+20*, OUTLKARY+21, OUTLKARY+28
A1I UUEN+7~, UUEN+9*, UUEN+10
A1INSTMM EMAILEXT+6~, EMAILEXT+11, SNDEXT+8~, SNDEXT+15
A1INSTMM("ADD R FLAGS" , EMAILEXT+9*, SNDEXT+12*
A1INSTVA SNDEXT+8~, SNDEXT+27
A1INSTVA("ADD R FLAGS" , SNDEXT+18*
A1INSTVA("FROM" SNDEXT+19*
A1LEN ENCODE+6~, ENCODE+7*, ENCODE+12
A1LPCNT EMAILEXT+13~, EMAILEXT+14*, EMAILEXT+15*, SNDEXT+8~, SNDEXT+21*, SNDEXT+22*
A1NODATA OUTLKARY+7~, OUTLKARY+11*, OUTLKARY+22*, OUTLKARY+24, OUTLKARY+25
A1NODE OUTLKARY+7~, OUTLKARY+29*, OUTLKARY+31*, OUTLKARY+32, OUTLKARY+33
A1OFFSET SELXTMP~, SELXTMP+2*, SELXTMP+9
A1OTLK OUTLKARY~, OUTLKARY+14, OUTLKARY+15, OUTLKARY+16, OUTLKARY+17, OUTLKARY+18, OUTLKARY+21, OUTLKARY+23, OUTLKARY+24, OUTLKARY+25
, OUTLKARY+28, OUTLKARY+34, OUTLKARY+36, OUTLKARY+37, OUTLKARY+38, OUTLKARY+39, ENCODE~, ENCODE+11
A1OUTNOD OUTLKARY+7~, OUTLKARY+30*, OUTLKARY+34, OUTLKARY+36, OUTLKARY+37, OUTLKARY+38, OUTLKARY+39
A1PMARY OUTLKARY~, OUTLKARY+22, OUTLKARY+31, OUTLKARY+33
A1QUIT ENCODE+6~, ENCODE+7*, ENCODE+8, ENCODE+9*
A1RESET HANGCHAR+8~, HANGCHAR+11*, HANGCHAR+13*, HANGCHAR+14*, HANGCHAR+15*
A1RT OUTLKARY~, OUTLKARY+8*, OUTLKARY+9, OUTLKARY+32
A1S HANGCHAR+3~, HANGCHAR+6*, HANGCHAR+13, HANGCHAR+14
A1STR OUTLKARY+7~, OUTLKARY+10*, OUTLKARY+33*, OUTLKARY+34, OUTLKARY+36, OUTLKARY+37, ENCODE~, ENCODE+7, ENCODE+9, ENCODE+10
, ENCODE+12*
A1SVSUBJ SNDEXT~, SNDEXT+20*, SNDEXT+26, SNDEXT+27, OUTLKARY~, OUTLKARY+17
A1TASKMM SNDEXT+8~
A1TASKVA SNDEXT+8~, SNDEXT+27
A1TOMM EMAILEXT+6~, SNDEXT+8~
A1TOVA SNDEXT+8~, SNDEXT+27
A1TOVA( SNDEXT+22*
A1TYPE EMAILEXT+6~, EMAILEXT+10*, EMAILEXT+11, SNDEXT+8~, SNDEXT+13*, SNDEXT+15
A1VSSEC EDITPCHK+1~, EDITPCHK+2
A1VSSEC(0 EDITPCHK+3
A1X UUBEGFN+5~, UUBEGFN+6*, UUBEGFN+7, ENCODE+6~, ENCODE+10*, ENCODE+11, UUEN+7~, UUEN+10*, UUEN+11*, UUEN+12
A1Y HANGCHAR+8~, HANGCHAR+9*
ADDSPACE SPLITADD~, SPLITADD+7*, SPLITADD+10
APROMPT YNCHK~, YNCHK+7
BEGIN SELXTMP~, SELXTMP+6
>> D1 WRTTXTFL+2*
DIR YNCHK+6~, JUSTPAWS+1~, LISTOUT+1~
DIR("A" YNCHK+7*, SELXTMP+4*, SELXTMP+5*, JUSTPAWS+4*, JUSTPAWS+5*, JUSTPAWS+6*, JUSTPAWS+7*
DIR("B" YNCHK+9*
DIR(0 YNCHK+8*, SELXTMP+6*, JUSTPAWS+8*
DIROUT LISTOUT+1~
DIRUT YNCHK+6~, JUSTPAWS+1~, LISTOUT+1~, LISTOUT+4
DT EXTPKG+2
DTOUT YNCHK+6~, SELXTMP+8, JUSTPAWS+1~, LISTOUT+1~
DUOUT YNCHK+6~, SELXTMP+8, JUSTPAWS+1~, LISTOUT+1~
DUZ EMAILEXT+11, EMAILEXT+16, SNDEXT+15
EMGRTARY RTRNADD~, RTRNADD+7
END SPLITADD+6~, SPLITADD+13*, SPLITADD+14, SELXTMP~, SELXTMP+6
ENDBLD ADD~, ADD+12*, ADD+13
EXTRSLT EMAILEXT+3~, EMAILEXT+4*, EMAILEXT+5, EMAILEXT+24, EMAILEXT+26
FILELIST FEXT+4~, FEXT+5*, FEXT+8*, FEXT+9
FILENME WRTTXTFL~, WRTTXTFL+5, WRTTXTFL+6
FLNMNODE FEXT+4~, FEXT+6*, FEXT+7*, FEXT+8
IO WRTTXTFL+9
IOSL HANGCHAR+10
>> IOUOFF ADD+13
>> IOUON ADD+13
ITEMNMBR LISTOUT+1~, LISTOUT+3*, LISTOUT+4*
J UUEN+7~, UUEN+15*, UUEN+16
K UUEN+7~, UUEN+13*, UUEN+14*, UUEN+15
LEN UUEN+7~, UUEN+8*, UUEN+9, UUEN+17
LISTTMP EXTPKG~
LMTMPNDE WRTTXTFL+1~, WRTTXTFL+10*, WRTTXTFL+11*, WRTTXTFL+12
LNENUM RTRNADD~, RTRNADD+6*, RTRNADD+7
LRBOLD ADD~, ADD+10
MSG ADD~, ADD+9, SPLITADD~, SPLITADD+8, SPLITADD+14, RTRNADD~, RTRNADD+7, JUSTPAWS~, JUSTPAWS+2*, JUSTPAWS+3
, JUSTPAWS+5
MSGPCE SPLITADD+6~, SPLITADD+14*, SPLITADD+16
PARNTNME SETXTMP+7~, SETXTMP+8*, SETXTMP+35*, SETXTMP+37
PCE SPLITADD+6~, SPLITADD+11*, SPLITADD+12, SPLITADD+13
>> POP WRTTXTFL+7
POPERR WRTTXTFL+1~, WRTTXTFL+2*, WRTTXTFL+5, WRTTXTFL+7*, WRTTXTFL+8
S UUEN+7~, UUEN+12*, UUEN+13
SEGMENTS SPLITADD+6~, SPLITADD+8*, SPLITADD+9, SPLITADD+10
SELARY LISTOUT~
SELARY( LISTOUT+4
START SPLITADD+6~, SPLITADD+12*, SPLITADD+14
STORPATH WRTTXTFL~, WRTTXTFL+6
STR UUEN~, UUEN+8, UUEN+10
STRTBLD ADD~, ADD+11*, ADD+13
TMP UUEN+7~, UUEN+8*, UUEN+16*, UUEN+17*, UUEN+18
TOTNODES SPLITADD+6~, SPLITADD+9*, SPLITADD+10*, SPLITADD+11
>> VALMBCK SNDEXT+30*, OUTLKARY+41*
VALMCNT ADD~, ADD+8*, ADD+9, ADD+13, SPLITADD~, SPLITADD+15*, SPLITADD+16
>> VP11 SETXTMP+12*
>> VPEXCPT SETXTMP+11*, SETXTMP+14*, SETXTMP+37
>> VPFNUM SETXTMP+29*, SETXTMP+30*, SETXTMP+31
VPHIGH EXTPKG+4!, SETXTMP+12*, SETXTMP+37
>> VPHNUM SETXTMP+22*, SETXTMP+23, SETXTMP+29*
>> VPIEN EXTPKG+3*, SETXTMP+8, SETXTMP+10, SETXTMP+12, SETXTMP+13, SETXTMP+14, SETXTMP+17, SETXTMP+20, SETXTMP+21, SETXTMP+22
SETXTMP+26, SETXTMP+28, SETXTMP+30
>> VPIEN2 SETXTMP+13*, SETXTMP+14*, SETXTMP+19*, SETXTMP+20*, SETXTMP+21, SETXTMP+22, SETXTMP+27*, SETXTMP+28*, SETXTMP+30
>> VPLNUM SETXTMP+21*, SETXTMP+23, SETXTMP+29*
VPLOW EXTPKG+4!, SETXTMP+12*, SETXTMP+37
VPN EXTPKG+4!, SETXTMP+10*, SETXTMP+37
VPNAME EXTPKG+3*, EXTPKG+4!, SETXTMP+31, SETXTMP+37
VPNAT EXTPKG+4!, SETXTMP+8*, SETXTMP+9
VPOTHER EXTPKG+4!, SETXTMP+11*, SETXTMP+13*, SETXTMP+37
VPPARPKG SETXTMP+7~, SETXTMP+8*, SETXTMP+34, SETXTMP+35
VPRNGE EXTPKG+4!, SETXTMP+11*, SETXTMP+18*, SETXTMP+23*, SETXTMP+37
X YNCHK+6~, UUEN+7~, JUSTPAWS+1~, LISTOUT+1~
XDATE EMAILEXT+13~, EMAILEXT+17*, EMAILEXT+18*, EMAILEXT+19
XMDUZ EMAILEXT+13~, EMAILEXT+16*
XMERR EMAILEXT+6~, EMAILEXT+8!, EMAILEXT+12, SNDEXT+8~, SNDEXT+14!, SNDEXT+24
>> XMMG EMAILEXT+23
XMSUB EMAILEXT+13~, EMAILEXT+19*
XMTEXT EMAILEXT+13~, EMAILEXT+20*
XMY EMAILEXT+13~
XMY( EMAILEXT+15*
XMZ EMAILEXT+6~, EMAILEXT+22, EMAILEXT+23, SNDEXT+8~
XQSND SNDEXT~, SNDEXT+27
XTMPARY FEXT~, FEXT+7
Y YNCHK+6~, YNCHK+11, SELXTMP+9, UUEN+7~, UUEN+12*, UUEN+13*, UUEN+15, JUSTPAWS+1~, LISTOUT+1~, LISTOUT+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All