©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BLRPRE26 ; IHS/OIT/MKK - IHS Lab PATCH 1026 Environment/Post Install Routine ;MAY 06, 2009 9:58 AM
Source file <BLRPRE26.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 5 | HOME^%ZIS $$HTE^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR ($$PATCH,$$VERSION,BMES,MES)^XPDUTL SETUP^XQALERT |
| VA Fileman | 2 | FIND^DIC DTNOLF^DICRW |
| IHS Changes To Lab | 1 | (ADDMESG,BACKUPS,ENDINSTL,OKAY,SORRY,SORRYFIN,SORRYHED,TABMESG)^BLRKIDSU |
| IHS VA Utilities | 1 | $$LOC^XBFUNC |
| MailMan | 1 | ^XMD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; EP
|
|
| SENDMAIL(MAILMSG) | ; EP -- Send MailMan E-mail to LMI group & Installer
|
|
| LETSGO | ; EP - USER IDENTIFIED -- LET'S GO
|
|
| ADDLINE(ASTR,LC) | ; EP -- Add a line to the STR array
|
|
| NEEDIT(MODULE,VERSION,PATCH,ERRARRAY) | ||
| SENDIT(WHO,WOTMSG) | ; EP - Send the Alert
|
|
| FATLSTOR(WOTERR) | ; Store Information concerning FATAL ERROR during Install
|
|
| CHECKLMI(ERRARRAY) | ||
| USERID | ; EP - CHECK FOR USER ID
|
|
| SORRYEND(WOTERR) | ; EP
|
|
| SNDALERT(ALERTMSG) | ; EP -- Send alert to LMI group & Installer
|
|
| MAILIT(WHO,MSG) | ; EP -- Send the MailMan Message
|
|
| RESET | ; EP - For debugging purposes
|
|
| MOD90479 | ; EP
|
|
| LABTMOD | ; EP - Lab Test File Modification -- Try to Stop Infinite Recursion
|
|
| DEBUG | ; EP - Debugging Line Label for environment checker
|
|
| SORRY(MSG,MODE,MSG2) | ||
| POST | ; EP -- POST INSTALL
|
|
| BACKUP | ; EP
|
|
| PTCHLAST | ; EP - Check for previous patch
|
|
| NEEDMSG(MESSAGE) | ; EP
|
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | USERID+5 |
| ADDMESG^BLRKIDSU | SORRYEND+10 |
| BACKUPS^BLRKIDSU | BACKUP+4 |
| ENDINSTL^BLRKIDSU | POST+21 |
| OKAY^BLRKIDSU | PTCHLAST+4, CHECKLMI+7, NEEDIT+16, NEEDIT+27, LABTMOD+19, RESET+17 |
| SORRY^BLRKIDSU | USERID+9, NEEDMSG+4, NEEDMSG+8 |
| SORRYFIN^BLRKIDSU | SORRYEND+12 |
| SORRYHED^BLRKIDSU | SORRYEND+3 |
| TABMESG^BLRKIDSU | MAILIT+14, LABTMOD+10, LABTMOD+22, RESET+8, RESET+19 |
| FIND^DIC | CHECKLMI+4, NEEDIT+5 |
| DTNOLF^DICRW | USERID+6 |
| $$LOC^XBFUNC | SORRY+17 |
| $$HTE^XLFDT | POST+16, FATLSTOR+7 |
| $$CJ^XLFSTR | POST+16, SORRY+17, SORRY+19, SORRY+21, SORRY+22, SORRY+25, SORRY+28, SORRY+29, SORRY+31 |
| $$TRIM^XLFSTR | NEEDMSG+7 |
| $$UP^XLFSTR | POST+16 |
| ^XMD | MAILIT+9 |
| $$PATCH^XPDUTL | PTCHLAST+2, NEEDIT+22 |
| $$VERSION^XPDUTL | NEEDIT+10 |
| BMES^XPDUTL | PRE+1, LETSGO+1, LETSGO+3, LETSGO+11, POST+12, SORRY+37, MAILIT+13, CHECKLMI+3, NEEDIT+8, NEEDIT+21 , LABTMOD+8, LABTMOD+9, LABTMOD+24, MOD90479+5, MOD90479+6, MOD90479+18, SORRYEND+14 |
| MES^XPDUTL | PTCHLAST+1, USERID+11 |
| SETUP^XQALERT | SENDIT+3 |
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | FIND^DIC |
| ^DIC(9.4 - [#9.4] | FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRFATLI( | FATLSTOR+7*, FATLSTOR+13* |
| ^DD(60.02 | LABTMOD+5, LABTMOD+16, RESET+5, RESET+14 |
| ^DIC(90479 | MOD90479+3 |
| ^VA(200 - [#200] | USERID+8 |
| Name | Line Occurrences |
|---|---|
| ADDLINE | SORRY+14, SORRY+15, SORRY+16, SORRY+17, SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23 , SORRY+25, SORRY+28, SORRY+29, SORRY+30, SORRY+31, SORRY+32, SORRY+34, SORRY+35 |
| CHECKLMI | LETSGO+9 |
| FATLSTOR | SORRYEND+21 |
| LABTMOD | POST+9 |
| MAILIT | SENDMAIL+1, SENDMAIL+2 |
| MOD90479 | POST+10 |
| NEEDIT | LETSGO+5, LETSGO+6, LETSGO+7 |
| NEEDMSG | NEEDIT+14, NEEDIT+25 |
| PRE | DEBUG+5 |
| SENDIT | SNDALERT+1, SNDALERT+2 |
| SENDMAIL | POST+17, SORRYEND+19 |
| SNDALERT | POST+18, SORRYEND+18 |
| SORRY | PRE+8, PTCHLAST+2, USERID+1, USERID+3, CHECKLMI+9 |
| SORRYEND | LETSGO+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALERTMSG | SNDALERT~, SNDALERT+1, SNDALERT+2 |
| ASTR | ADDLINE~, ADDLINE+1*, ADDLINE+2 |
| CHNGSTR | LABTMOD+1~, LABTMOD+3*, LABTMOD+6, LABTMOD+13, LABTMOD+18, LABTMOD+21, RESET+1~, RESET+3*, RESET+6, RESET+11 , RESET+16 |
| CP | PRE+2~, PRE+10*, USERID+9, LETSGO+3, BACKUP+1~, BACKUP+2*, BACKUP+4, POST+1~, POST+3*, POST+12 , POST+15, POST+17, POST+18, POST+21, DEBUG+1~, DEBUG+4*, SORRY+1*, MAILIT+1~, MAILIT+3*, NEEDMSG+4 , NEEDMSG+8 |
| DEBUG | DEBUG+1~, DEBUG+2* |
| DIFQ | SORRY+10! |
| DIFROM | MAILIT+1~ |
| DUZ | USERID+1, USERID+8, SNDALERT+2, SENDMAIL+2 |
| DUZ(0 | USERID+3 |
| ERRARRAY | PRE+6~, LETSGO+5, LETSGO+6, LETSGO+7, LETSGO+9, LETSGO+14, CHECKLMI~, NEEDIT~ |
| ERRARRAY( | NEEDIT+13*, NEEDIT+24* |
| ERRARRAY("XMB(3.8" | CHECKLMI+10* |
| HEREYAGO | CHECKLMI+1~, NEEDIT+2~ |
| HEREYAGO("DILIST" | CHECKLMI+6, NEEDIT+6 |
| LASTPTCH | PRE+4~ |
| LC | ADDLINE~, ADDLINE+2, ADDLINE+3* |
| LINECNT | SORRY+12~, SORRY+13*, SORRY+14, SORRY+15, SORRY+16, SORRY+17, SORRY+18, SORRY+19, SORRY+20, SORRY+21 , SORRY+22, SORRY+23, SORRY+25, SORRY+28, SORRY+29, SORRY+30, SORRY+31, SORRY+32, SORRY+34, SORRY+35 , SORRYEND+1~ |
| LSTPISTS | PRE+5~ |
| MAILMSG | SENDMAIL~, SENDMAIL+1, SENDMAIL+2 |
| MESSAGE | SORRY+3~, SORRY+5*, SORRY+8*, SORRY+19, SORRY+25, NEEDMSG~, NEEDMSG+3, NEEDMSG+6, NEEDMSG+7 |
| MODE | SORRY~, SORRY+4, SORRY+8, SORRY+25, SORRY+27 |
| MODSTR | LABTMOD+1~, LABTMOD+12*, LABTMOD+14, RESET+10*, RESET+12 |
| MODULE | NEEDIT~, NEEDIT+5, NEEDIT+10, NEEDIT+13, NEEDIT+22, NEEDIT+24, SORRYEND+1~, SORRYEND+6*, SORRYEND+7*, SORRYEND+8 , SORRYEND+9, FATLSTOR+1~, FATLSTOR+9*, FATLSTOR+10*, FATLSTOR+11, FATLSTOR+12, FATLSTOR+13 |
| MSG | SORRY~, SORRY+21, MAILIT~, MAILIT+6 |
| MSG2 | SORRY~, SORRY+22 |
| NAME | NEEDIT+1~, NEEDIT+6*, NEEDIT+8, NEEDIT+13, NEEDIT+14, NEEDIT+16, NEEDIT+21, NEEDIT+24, NEEDIT+25, NEEDIT+27 , SORRYEND+1~, SORRYEND+6*, SORRYEND+8*, SORRYEND+9, FATLSTOR+1~, FATLSTOR+9*, FATLSTOR+11*, FATLSTOR+12, FATLSTOR+13 |
| NOW | FATLSTOR+1~, FATLSTOR+6*, FATLSTOR+7, FATLSTOR+13 |
| PATCH | NEEDIT~, NEEDIT+19, NEEDIT+21, NEEDIT+22, NEEDIT+24, NEEDIT+25, NEEDIT+27, SORRYEND+1~ |
| RPMS | PRE+2~, PRE+11*, LETSGO+3 |
| RPMSVER | PRE+2~, PRE+12*, LETSGO+3 |
| STR | PRE+3~, POST+14~, SORRY+12~, SORRY+37, MOD90479+1~, MOD90479+8*, MOD90479+9, MOD90479+12*, MOD90479+13, MOD90479+16* , MOD90479+17, SORRYEND+1~, SORRYEND+14 |
| STR( | ADDLINE+2* |
| STR(1 | POST+15* |
| STR(2 | POST+16* |
| STR1 | NEEDIT+2~, NEEDMSG+1~, NEEDMSG+3*, NEEDMSG+4, NEEDMSG+6*, NEEDMSG+8 |
| STR2 | NEEDIT+2~, NEEDMSG+1~, NEEDMSG+7*, NEEDMSG+8 |
| SUBSTR | LABTMOD+1~, LABTMOD+5*, LABTMOD+6, LABTMOD+13*, LABTMOD+14, LABTMOD+16*, LABTMOD+18, LABTMOD+21, RESET+1~, RESET+5* , RESET+6, RESET+11*, RESET+12, RESET+14*, RESET+16 |
| SYSPATCH | NEEDIT+3~, NEEDIT+22*, NEEDIT+23 |
| SYSVER | NEEDIT+3~, NEEDIT+10*, NEEDIT+12, NEEDIT+13, NEEDIT+14, NEEDIT+16, NEEDIT+17 |
| TMP | SORRYEND+1~ |
| U | USERID+8 |
| VERSION | NEEDIT~, NEEDIT+8, NEEDIT+12, NEEDIT+13, NEEDIT+14, NEEDIT+17, NEEDIT+21, NEEDIT+22, NEEDIT+24, NEEDIT+25 , NEEDIT+27, SORRYEND+1~, SORRYEND+6*, SORRYEND+9*, FATLSTOR+1~, FATLSTOR+9*, FATLSTOR+12*, FATLSTOR+13 |
| WHATMSG | SORRYEND+1~, SORRYEND+16*, SORRYEND+18, SORRYEND+19 |
| WHO | SENDIT~, SENDIT+2, MAILIT~, MAILIT+5 |
| WOT | MOD90479+1~, MOD90479+7*, MOD90479+8, MOD90479+11*, MOD90479+12, MOD90479+15*, MOD90479+16 |
| WOTERR | SORRYEND~, SORRYEND+21, FATLSTOR~ |
| WOTERR( | SORRYEND+7, SORRYEND+8, SORRYEND+9, FATLSTOR+10, FATLSTOR+11, FATLSTOR+12, FATLSTOR+13 |
| WOTMSG | SENDIT~, SENDIT+1 |
| >> X | PTCHLAST+10*, USERID+8*, USERID+9, LETSGO+1, POST+7* |
| XMDUZ | MAILIT+1~, MAILIT+8* |
| XMMG | MAILIT+1~, MAILIT+11, MAILIT+14 |
| XMSUB | MAILIT+1~, MAILIT+6* |
| XMTEXT | MAILIT+1~, MAILIT+7* |
| XMY | MAILIT+1~ |
| XMY( | MAILIT+5* |
| >> XPDABORT | PTCHLAST+12*, LETSGO+11, LETSGO+13, SORRY+6* |
| >> XPDDIQ( | PTCHLAST+10*, POST+7* |
| XPDNM | PRE+8, PRE+10, PRE+11, PRE+12, DEBUG+1~, DEBUG+3*, MAILIT+8, SORRYEND+16, FATLSTOR+4*, FATLSTOR+7 , FATLSTOR+13 |
| >> XPDNOQUE | PTCHLAST+6* |
| XQA | SENDIT+4! |
| XQA( | SENDIT+2* |
| XQAMSG | SENDIT+1*, SENDIT+4! |
| Name | Field # of Occurrence |
|---|---|
| $T( | BACKUP+2, POST+3, DEBUG+4, SORRY+1, MAILIT+3, FATLSTOR+4 |