Routine: IBDY343

Package	Total	Call Graph
Automated Information Collection System	6	DLTALL^IBDE2 $$TKORDER^IBDF13 CLINIC^IBDF15A $$COPYBLK^IBDFU2 $$TKFORM^IBDFU2C DLTBLK^IBDFU3
Kernel	1	(BMES,MES)^XPDUTL
List Manager	1	$$SETSTR^VALM1
MailMan	1	^XMD
VA FileMan	1	FIND^DIC

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;- Create EF block list report and clear workspace before install
POST	;- Add toolkit blocks
CLWKSP	;- Clear the AICS Import/Export Workspace (files in #358) before
BLKLIST	;- List tool kit blocks, forms, div(s), and clinic(s) so that users can
WRITELST(CNT)	;- Print block & form on 1st line, clinic & division on 2nd line
INCR(CNT)	;- Create output array
XM	;- Send mail message to patch installer
XMHDR	;- Report header
USERMSG	;- Info message displayed during patch install
TKBLKS	;- Add Enrollment Priority tool kit blocks to AICS Tool Kit
SUMM	;- EF block summary displayed to user
TKERR	;- Display error msg if Tool Kit not found
LIST	;- List of encounter form blocks

Name	Field # of Occurrence
FIND^DIC	BLKLIST+14
DLTALL^IBDE2	CLWKSP+5, TKBLKS+36
$$TKORDER^IBDF13	TKBLKS+23
CLINIC^IBDF15A	BLKLIST+27
$$COPYBLK^IBDFU2	TKBLKS+23
$$TKFORM^IBDFU2C	TKBLKS+23
DLTBLK^IBDFU3	TKBLKS+22, TKBLKS+25
$$SETSTR^VALM1	WRITELST+2, WRITELST+4, WRITELST+6
^XMD	XM+7
BMES^XPDUTL	CLWKSP+4, USERMSG+2, USERMSG+5, TKBLKS+7, TKBLKS+32, TKBLKS+37, SUMM+1, TKERR+1
MES^XPDUTL	CLWKSP+3, CLWKSP+6, BLKLIST+36, USERMSG+3, USERMSG+4, USERMSG+6, TKBLKS+33, SUMM+2, SUMM+3, SUMM+5 , SUMM+7, SUMM+8, SUMM+9, TKERR+2

FileNo	Call Tags
^IBE(357.1 - [#357.1]	FIND^DIC

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357 - [#357]	BLKLIST+21, TKBLKS+10
^IBE(357.1 - [#357.1]	BLKLIST+19, BLKLIST+20, TKBLKS+21, TKBLKS+22
^IBE(358.1 - [#358.1]	TKBLKS+13, TKBLKS+14, TKBLKS+17
^TMP("DILIST"	BLKLIST+5!, BLKLIST+15, BLKLIST+16, BLKLIST+37!
^TMP("IBD43"	BLKLIST+5!, BLKLIST+34, BLKLIST+37!, INCR+1, XMHDR+2, XMHDR+3, XMHDR+4, XMHDR+5, XMHDR+6, XMHDR+7 , XMHDR+8, XMHDR+9, XMHDR+10, XMHDR+11, XMHDR+12, XMHDR+13, XMHDR+14, XMHDR+15, XMHDR+16, XMHDR+17
^TMP($J	BLKLIST+5!, BLKLIST+29, BLKLIST+30, BLKLIST+37!

Name	Field # of Occurrence
A	TKBLKS+2~
ARRYVAL	BLKLIST+4~
ARY	TKBLKS+2~
BLK	TKBLKS+2~, TKBLKS+13*, TKBLKS+14, TKBLKS+17, TKBLKS+23, TKBLKS+25
BLKIEN	BLKLIST+4~, BLKLIST+16*, BLKLIST+19, BLKLIST+20
BLKNAM	BLKLIST+4~, BLKLIST+13*, BLKLIST+14
BLOCK	BLKLIST+4~, BLKLIST+19*, WRITELST+2
CLINIC	BLKLIST+4~, BLKLIST+28, BLKLIST+30, WRITELST+4
CNT	BLKLIST+4~, BLKLIST+15, BLKLIST+16, WRITELST~, WRITELST+3, WRITELST+5, WRITELST+7, INCR~, INCR+1, INCR+2 , TKBLKS+2~
CNT1	TKBLKS+2~
CNTB	TKBLKS+2~, TKBLKS+6, TKBLKS+24
CNTF	TKBLKS+2~, TKBLKS+6*
DIFROM	XM+1~
DIV	BLKLIST+4~, BLKLIST+28, BLKLIST+29, BLKLIST+30
DIVNAM	BLKLIST+4~, BLKLIST+28, BLKLIST+29, BLKLIST+30, WRITELST+4
DUZ	XM+4
EXCLUDE	TKBLKS+2~
FORM	BLKLIST+4~, BLKLIST+21*, BLKLIST+24, BLKLIST+27, BLKLIST+30, WRITELST+2, TKBLKS+2~
FORMIEN	BLKLIST+4~, BLKLIST+20*, BLKLIST+21, BLKLIST+24, BLKLIST+27, BLKLIST+30
FORMNM	TKBLKS+2~, TKBLKS+5*, TKBLKS+10
IBDBLK	TKBLKS+2~, TKBLKS+21*, TKBLKS+22
IBDNM	TKBLKS+2~, TKBLKS+21*
IBDX	TKBLKS+2~, SUMM+4*, SUMM+5
IBTKBLK	TKBLKS+2~, TKBLKS+20*
LINE	BLKLIST+4~, BLKLIST+13, WRITELST+1~, WRITELST+2, WRITELST+4, WRITELST+6, INCR+1
LINECNT	BLKLIST+4~, BLKLIST+12*, BLKLIST+30
MULTI	BLKLIST+4~, BLKLIST+11*
NAME	TKBLKS+2~, TKBLKS+14*, TKBLKS+22, TKBLKS+28, TKBLKS+32
NEWBLOCK	TKBLKS+2~, TKBLKS+23*, TKBLKS+25
NEWFORM	TKBLKS+2~
NUM	TKBLKS+2~, TKBLKS+6, TKBLKS+28, TKBLKS+29
ORD	TKBLKS+2~, TKBLKS+13*
SUMMARY	TKBLKS+2~, SUMM+6
SUMMARY(	TKBLKS+28*, SUMM+4, SUMM+5
X	TKBLKS+2~
XMDUZ	XM+1~, XM+3*, XM+5
XMSUB	XM+1~, XM+2*
XMTEXT	XM+1~, XM+6*
XMY	XM+1~
XMY(	XM+4, XM+5
Y	TKBLKS+2~

Name	Field # of Occurrence
$T(LIST+LINE	BLKLIST+13