Routine: IBDY336

Information

IBDY336 ;ALB/ESD - PRE AND POST INSTALL FOR PATCH IBD*3*36 ; AUG 1, 2000

Source file <IBDY336.m>

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
MailMan	1	^XMD
Registration	1	$$SETSTR^VALM1
VA Fileman	1	FIND^DIC

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

Name	Field # of Occurrence
FIND^DIC	BLKLIST+13
DLTALL^IBDE2	CLWKSP+5, TKBLKS+36
$$TKORDER^IBDF13	TKBLKS+23
CLINIC^IBDF15A	BLKLIST+26
$$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+35, USERMSG+3, USERMSG+4, USERMSG+6, TKBLKS+33, SUMM+2, SUMM+3, SUMM+5 , SUMM+7, SUMM+8, SUMM+9, TKERR+2

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357 - [#357]	BLKLIST+20, TKBLKS+10
^IBE(357.1 - [#357.1]	BLKLIST+18, BLKLIST+19, TKBLKS+21, TKBLKS+22
^IBE(358.1 - [#358.1]	TKBLKS+13, TKBLKS+14, TKBLKS+17
^TMP("DILIST"	BLKLIST+4!, BLKLIST+14, BLKLIST+15, BLKLIST+36!
^TMP("IBD36"	BLKLIST+4!, BLKLIST+33, BLKLIST+36!, 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 , XMHDR+18, XMHDR+19
^TMP($J	BLKLIST+4!, BLKLIST+28, BLKLIST+29, BLKLIST+36!

Name	Field # of Occurrence
A	TKBLKS+2~
ARRYVAL	BLKLIST+3~
ARY	TKBLKS+2~
BLK	TKBLKS+2~, TKBLKS+13*, TKBLKS+14, TKBLKS+17, TKBLKS+23, TKBLKS+25
BLKIEN	BLKLIST+3~, BLKLIST+15*, BLKLIST+18, BLKLIST+19
BLKNAM	BLKLIST+3~, BLKLIST+12*, BLKLIST+13
BLOCK	BLKLIST+3~, BLKLIST+18*, WRITELST+2
CLINIC	BLKLIST+3~, BLKLIST+27, BLKLIST+29, WRITELST+4
CNT	BLKLIST+3~, BLKLIST+14, BLKLIST+15, 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+3~, BLKLIST+27, BLKLIST+28, BLKLIST+29
DIVNAM	BLKLIST+3~, BLKLIST+27, BLKLIST+28, BLKLIST+29, WRITELST+4
DUZ	XM+4
EXCLUDE	TKBLKS+2~
FORM	BLKLIST+3~, BLKLIST+20*, BLKLIST+23, BLKLIST+26, BLKLIST+29, WRITELST+2, TKBLKS+2~
FORMIEN	BLKLIST+3~, BLKLIST+19*, BLKLIST+20, BLKLIST+23, BLKLIST+26, BLKLIST+29
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+3~, BLKLIST+12, WRITELST+1~, WRITELST+2, WRITELST+4, WRITELST+6, INCR+1
LINECNT	BLKLIST+3~, BLKLIST+11*, BLKLIST+29
MULTI	BLKLIST+3~, BLKLIST+10*
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~