Routine: XTVSLAPI

Package	Total	Call Graph
Kernel	6	($$DEL,$$LIST,$$STATUS,CLOSE,OPEN)^%ZISH APPERROR^%ZTER IOXY^XGF ($$FMTE,$$NOW)^XLFDT $$DEC^XLFUTL OWNSKEY^XUSRB
MailMan	4	^XMD ENT^XMPG SENDMSG^XMXAPI TOWHOM^XMXAPIU
Toolkit	4	$$GET^XPAR ($$MSGORATC,JUSTPAWS)^XTVSLAPI $$PKGEXT^XTVSLNA1 MSG^XTVSLR
List Manager	2	(FULL,PAUSE)^VALM1 (CNTRL,SET)^VALM10
VA FileMan	1	^DIR

Package	Total	Caller Graph
Toolkit	17	XTVS PKG MGR EXT PACKAGE MSG XTVS PKG MGR RPT MAIL ACTION XTVSCP XTVSLAPI XTVSLDE XTVSLM XTVSLN XTVSLNA1 XTVSLP XTVSLPC XTVSLPD2 XTVSLPDC XTVSLPER XTVSLR XTVSRFL XTVSRFL1 XTVSSVR
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EMAILEXT	; 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,XTOFFSET)	;Select XTMPSIZE.DAT file
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 ; 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 ; Input: ; MSGTEXT - Text to share with reader ; XTVSADDR - Recipients E-Mail address ; PKGNAME - Name of package that had data cleanup during extract ;

Name	Field # of Occurrence
$$DEL^%ZISH	UNLCKPFL+18
$$LIST^%ZISH	UNLCKPFL+9, REQLOCK+11
$$STATUS^%ZISH	REQLOCK+16
CLOSE^%ZISH	WRTTXTFL+13, CHKPID+10, REQLOCK+18, REQLOCK+30
OPEN^%ZISH	WRTTXTFL+6, CHKPID+4, REQLOCK+14, REQLOCK+24
APPERROR^%ZTER	NOTCE+19, RMTPKGMG+18
^DIR	YNCHK+13, SELXTMP+10, MSGORATC+15, JUSTPAWS+10
FULL^VALM1	SELXTMP+6, SNDEXT+10
PAUSE^VALM1	LISTOUT+4
CNTRL^VALM10	ADD+13
SET^VALM10	ADD+9, SPLITADD+16
IOXY^XGF	HANGCHAR+10
$$FMTE^XLFDT	EMAILEXT+19, OUTLKARY+15
$$NOW^XLFDT	OUTLKARY+13
$$DEC^XLFUTL	UUEN+15
^XMD	NOTCE+16, RMTPKGMG+15
ENT^XMPG	EMAILEXT+22
SENDMSG^XMXAPI	SNDEXT+33, SNDEXT+39
TOWHOM^XMXAPIU	EMAILEXT+12, SNDEXT+16
$$GET^XPAR	UNLCKPFL+3, REQLOCK+6
$$MSGORATC^XTVSLAPI	SNDEXT+29
JUSTPAWS^XTVSLAPI	EMAILEXT+23, EMAILEXT+24, EMAILEXT+27
$$PKGEXT^XTVSLNA1	EMAILEXT+4
MSG^XTVSLR	SNDEXT+43
OWNSKEY^XUSRB	EDITPCHK+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^TMP("XTVS PKG MGR RPT",$J,LMTMPNDE,0) Line Location: WRTTXTFL+12
Function Call: WRITE	Prompt: !," [Creating attachments..." Line Location: SNDEXT+37
Routine Call	DIR Line Location: YNCHK+13 SELXTMP+10 MSGORATC+15 JUSTPAWS+10

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("PROD"	NOTCE+9, NOTCE+15, RMTPKGMG+9, RMTPKGMG+14
^TMP("XMY"	EMAILEXT+16, EMAILEXT+25!, SNDEXT+23, SNDEXT+42!
^TMP("XMY0"	SNDEXT+42!
^TMP("XTVS PKG MGR RPT"	WRTTXTFL+11, WRTTXTFL+12
^TMP("XTVS-REMOTE-ERROR"	NOTCE+7!, NOTCE+9, NOTCE+10, NOTCE+11, NOTCE+20!, RMTPKGMG+7!, RMTPKGMG+9, RMTPKGMG+10*, RMTPKGMG+19!
^TMP($J	SNDEXT+42!
^XTMP("XTSIZE"	EMAILEXT+5, EMAILEXT+18, EMAILEXT+20, EMAILEXT+25!

Name	Line Occurrences
$$CHKPID	UNLCKPFL+13
$$UUBEGFN	OUTLKARY+28
$$UUEN	OUTLKARY+37, ENCODE+11
ENCODE	OUTLKARY+34, OUTLKARY+36
HANGCHAR	OUTLKARY+32
JUSTPAWS	SNDEXT+30, SNDEXT+34, SNDEXT+40
OUTLKARY	SNDEXT+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDSPACE	SPLITADD~, SPLITADD+7*, SPLITADD+10
APROMPT	YNCHK~, YNCHK+9
BEGIN	SELXTMP~, SELXTMP+4
BEGRNG	SELXTMP+2~, SELXTMP+4*, SELXTMP+9
CKDOLRJ	CHKPID+1~, CHKPID+5, CHKPID+6, CHKPID+7, CHKPID+11, CHKPID+12, CHKPID+13
>> D1	WRTTXTFL+2*
DEFANS	YNCHK~, YNCHK+11, YNCHK+12
DEFDIR	UNLCKPFL+1~, UNLCKPFL+3*, UNLCKPFL+9, UNLCKPFL+13, UNLCKPFL+18, CHKPID~, CHKPID+4
DELLKFL	UNLCKPFL+16~, UNLCKPFL+18
DELLKFL(	UNLCKPFL+17*, UNLCKPFL+19!
DIR	YNCHK+8~, JUSTPAWS+1~, LISTOUT+1~
DIR("?"	MSGORATC+14, JUSTPAWS+9
DIR("A"	YNCHK+9, SELXTMP+7, SELXTMP+8, MSGORATC+11, JUSTPAWS+4, JUSTPAWS+5, JUSTPAWS+6, JUSTPAWS+7
DIR("B"	YNCHK+11, YNCHK+12, MSGORATC+12*
DIR(0	YNCHK+10, SELXTMP+9, MSGORATC+13, JUSTPAWS+8
DIROUT	YNCHK+15, LISTOUT+1~
DIRUT	YNCHK+8~, MSGORATC+16, JUSTPAWS+1~, LISTOUT+1~, LISTOUT+4
DOLRJ	CHKPID+1~, CHKPID+3, CHKPID+9, CHKPID+11, CHKPID+12, REQLOCK+4~, REQLOCK+16*, REQLOCK+17
DTOUT	YNCHK+8~, YNCHK+15, SELXTMP+11, JUSTPAWS+1~, LISTOUT+1~
DUOUT	YNCHK+8~, YNCHK+15, SELXTMP+11, JUSTPAWS+1~, LISTOUT+1~
DUZ	EMAILEXT+12, EMAILEXT+17, SNDEXT+16, RMTPKGMG+11
EMGRTARY	RTRNADD~, RTRNADD+7
END	SPLITADD+6~, SPLITADD+13*, SPLITADD+14, SELXTMP~, SELXTMP+5
ENDBLD	ADD~, ADD+12*, ADD+13
ENDRNG	SELXTMP+2~, SELXTMP+5*, SELXTMP+9
ERRTEXT	NOTCE+6~, NOTCE+18, RMTPKGMG+6~, RMTPKGMG+17
EXTDIR	REQLOCK+4~, REQLOCK+6*, REQLOCK+11, REQLOCK+14, REQLOCK+24
EXTRSLT	EMAILEXT+3~, EMAILEXT+4*, EMAILEXT+5, EMAILEXT+25, EMAILEXT+27
FILELIST	FEXT+4~, FEXT+5, FEXT+8, FEXT+9
FILENAME	UNLCKPFL~, UNLCKPFL+4, UNLCKPFL+12, UNLCKPFL+13, UNLCKPFL+20, UNLCKPFL+21, CHKPID~, CHKPID+2, CHKPID+12, REQLOCK~ , REQLOCK+7, REQLOCK+17, REQLOCK+29, REQLOCK+31
FILENME	WRTTXTFL~, WRTTXTFL+5, WRTTXTFL+6, REQLOCK+4~, REQLOCK+7*, REQLOCK+8, REQLOCK+14, REQLOCK+24
FLNMNODE	FEXT+4~, FEXT+6, FEXT+7, FEXT+8
FLSLIST	UNLCKPFL+7!, UNLCKPFL+10!, REQLOCK+5!, REQLOCK+12!
FLSLIST(	UNLCKPFL+8, REQLOCK+8
IO	WRTTXTFL+9, CHKPID+8, REQLOCK+15, REQLOCK+27
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
LMTMPNDE	WRTTXTFL+1~, WRTTXTFL+10, WRTTXTFL+11, WRTTXTFL+12
LNENUM	RTRNADD~, RTRNADD+6*, RTRNADD+7
LOCKERR	REQLOCK+22~, REQLOCK+23, REQLOCK+25, REQLOCK+26, REQLOCK+31
LOCKLIST	UNLCKPFL+7!, UNLCKPFL+10!, REQLOCK+5!, REQLOCK+12!
LOCKRSLT	UNLCKPFL+1~, UNLCKPFL+2, UNLCKPFL+9, UNLCKPFL+12, UNLCKPFL+13, UNLCKPFL+15, UNLCKPFL+18, UNLCKPFL+20, UNLCKPFL+21, UNLCKPFL+23 , REQLOCK+4~, REQLOCK+11, REQLOCK+13, REQLOCK+17, REQLOCK+21, REQLOCK+29, REQLOCK+31*, REQLOCK+32
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
MSGTEXT	RMTPKGMG~, RMTPKGMG+10
NTCTEXT	NOTCE~, NOTCE+11
>> OPTUNLCK	UNLCKPFL+13
PCE	SPLITADD+6~, SPLITADD+11*, SPLITADD+12, SPLITADD+13
PKGNAME	NOTCE~, NOTCE+8, NOTCE+10, RMTPKGMG~, RMTPKGMG+8
>> POP	WRTTXTFL+7, CHKPID+5, REQLOCK+25
POPERR	WRTTXTFL+1~, WRTTXTFL+2, WRTTXTFL+5, WRTTXTFL+7, WRTTXTFL+8
RESULT	MSGORATC+10~, MSGORATC+16*, MSGORATC+17
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
UNLKFNME	UNLCKPFL+1~, UNLCKPFL+4, UNLCKPFL+8, UNLCKPFL+17, UNLCKPFL+19, CHKPID+1~, CHKPID+2, CHKPID+4
>> VALMBCK	SNDEXT+44, OUTLKARY+41
VALMCNT	ADD~, ADD+8, ADD+9, ADD+13, SPLITADD~, SPLITADD+15, SPLITADD+16
X	YNCHK+8~, UUEN+7~, JUSTPAWS+1~, LISTOUT+1~
XDATE	EMAILEXT+14~, EMAILEXT+18, EMAILEXT+19, EMAILEXT+20
XMDUZ	EMAILEXT+14~, EMAILEXT+17, NOTCE+6~, NOTCE+12, RMTPKGMG+6~, RMTPKGMG+11*
XMERR	EMAILEXT+6~, EMAILEXT+9!, EMAILEXT+13, SNDEXT+8~, SNDEXT+15!, SNDEXT+25, NOTCE+6~, RMTPKGMG+6~
>> XMMG	EMAILEXT+24
XMSUB	EMAILEXT+14~, EMAILEXT+20, NOTCE+6~, NOTCE+15, RMTPKGMG+6~, RMTPKGMG+14*
XMTEXT	EMAILEXT+14~, EMAILEXT+21, NOTCE+6~, NOTCE+14, RMTPKGMG+6~, RMTPKGMG+13*
XMY	EMAILEXT+14~, NOTCE+6~, RMTPKGMG+6~
XMY(	EMAILEXT+16, NOTCE+13, RMTPKGMG+12*
XMZ	EMAILEXT+6~, EMAILEXT+23, EMAILEXT+24, SNDEXT+8~, NOTCE+17, RMTPKGMG+16
XQSND	SNDEXT~, SNDEXT+33, SNDEXT+39
XTBS	HANGCHAR+3~, HANGCHAR+7*, HANGCHAR+12, HANGCHAR+14, HANGCHAR+15
XTCHAR	OUTLKARY+7~, OUTLKARY+9, OUTLKARY+32, HANGCHAR~, HANGCHAR+4, HANGCHAR+12, HANGCHAR+13, HANGCHAR+14, HANGCHAR+15, HANGCHAR+16
XTCRLF	OUTLKARY+7~, OUTLKARY+12*, OUTLKARY+15, OUTLKARY+17, OUTLKARY+21, OUTLKARY+33
XTD	HANGCHAR+3~, HANGCHAR+5*, HANGCHAR+13, HANGCHAR+15
XTDTANOD	ENCODE~, ENCODE+11*
XTDTTM	OUTLKARY+7~, OUTLKARY+13*, OUTLKARY+15, OUTLKARY+20
XTEXTARY	SNDEXT~, SNDEXT+33, SNDEXT+38
XTFILENM	UUBEGFN~, UUBEGFN+6
XTFILNAM	OUTLKARY+7~, OUTLKARY+20*, OUTLKARY+21, OUTLKARY+28
XTFORMAT	SNDEXT+26~, SNDEXT+29*, SNDEXT+30, SNDEXT+32, SNDEXT+36
XTI	UUEN+7~, UUEN+9*, UUEN+10
XTINSTMM	EMAILEXT+6~, EMAILEXT+12, SNDEXT+8~, SNDEXT+16
XTINSTMM("ADD	R FLAGS" , EMAILEXT+10, SNDEXT+13
XTINSTVA	SNDEXT+8~, SNDEXT+33, SNDEXT+39
XTINSTVA("ADD	R FLAGS" , SNDEXT+19*
XTINSTVA("FROM"	SNDEXT+20*
XTLEN	ENCODE+6~, ENCODE+7*, ENCODE+12
XTLPCNT	EMAILEXT+14~, EMAILEXT+15, EMAILEXT+16, SNDEXT+8~, SNDEXT+22, SNDEXT+23
XTMPARY	FEXT~, FEXT+7
XTNODATA	OUTLKARY+7~, OUTLKARY+11, OUTLKARY+22, OUTLKARY+24, OUTLKARY+25
XTNODE	OUTLKARY+7~, OUTLKARY+29, OUTLKARY+31, OUTLKARY+32, OUTLKARY+33
XTOFFSET	SELXTMP~, SELXTMP+3*, SELXTMP+4, SELXTMP+5, SELXTMP+12
XTOTLK	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
XTOUTNOD	OUTLKARY+7~, OUTLKARY+30*, OUTLKARY+34, OUTLKARY+36, OUTLKARY+37, OUTLKARY+38, OUTLKARY+39
XTPMARY	OUTLKARY~, OUTLKARY+22, OUTLKARY+31, OUTLKARY+33
XTQTXT	MSGORATC~, MSGORATC+11
XTQUIT	ENCODE+6~, ENCODE+7, ENCODE+8, ENCODE+9
XTRESET	HANGCHAR+8~, HANGCHAR+11, HANGCHAR+13, HANGCHAR+14, HANGCHAR+15
XTRT	OUTLKARY~, OUTLKARY+8*, OUTLKARY+9, OUTLKARY+32
XTS	HANGCHAR+3~, HANGCHAR+6*, HANGCHAR+13, HANGCHAR+14
XTSTR	OUTLKARY+7~, OUTLKARY+10, OUTLKARY+33, OUTLKARY+34, OUTLKARY+36, OUTLKARY+37, ENCODE~, ENCODE+7, ENCODE+9, ENCODE+10 , ENCODE+12*
XTSVRSLT	YNCHK+8~, YNCHK+14, YNCHK+15, YNCHK+16
XTSVSUBJ	SNDEXT~, SNDEXT+21*, SNDEXT+33, SNDEXT+38, SNDEXT+39, OUTLKARY~, OUTLKARY+17
XTTASKMM	SNDEXT+8~
XTTASKVA	SNDEXT+8~, SNDEXT+33, SNDEXT+34, SNDEXT+39, SNDEXT+40
XTTOMM	EMAILEXT+6~, SNDEXT+8~
XTTOVA	SNDEXT+8~, SNDEXT+33, SNDEXT+39
XTTOVA(	SNDEXT+23*
XTTYPE	EMAILEXT+6~, EMAILEXT+11, EMAILEXT+12, SNDEXT+8~, SNDEXT+14, SNDEXT+16
XTVSADDR	NOTCE~, NOTCE+13, NOTCE+18, RMTPKGMG~, RMTPKGMG+12, RMTPKGMG+17
XTVSSEC	EDITPCHK+1~, EDITPCHK+2
XTVSSEC(0	EDITPCHK+3
XTX	UUBEGFN+5~, UUBEGFN+6, UUBEGFN+7, ENCODE+6~, ENCODE+10, ENCODE+11, UUEN+7~, UUEN+10, UUEN+11, UUEN+12
XTY	HANGCHAR+8~, HANGCHAR+9*
Y	YNCHK+8~, YNCHK+14, SELXTMP+12, MSGORATC+16, UUEN+7~, UUEN+12, UUEN+13, UUEN+15, JUSTPAWS+1~, LISTOUT+1~ , LISTOUT+2*

Customize PDF page

Package: Toolkit

Routine: XTVSLAPI

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 18

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: