Routine: A1VSLAPI

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

Package	Total	Caller Graph
VistA Package Sizing Utility	15	A1VSCP A1VSLAPI A1VSLDE A1VSLE A1VSLM A1VSLN A1VSLNA1 A1VSLP A1VSLPC A1VSLPD1 A1VSLPDC A1VSLPER A1VSLR A1VSRFL A1VSRFL1
Kernel	1	^ORD(101

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

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

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

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

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*

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*

Customize PDF page

Package: VistA Package Sizing Utility

Routine: A1VSLAPI

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: