IBDY343 ;ALB/ESD - PRE AND POST INSTALL FOR PATCH IBD*3*43 ; AUG 1, 2000
Source file <IBDY343.m>
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! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |