©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
BLRPRE25 ; IHS/OIT/MKK - IHS Lab PATCH 1025 Environment/Post Install Routine ;DEC 09, 2008 8:30 AM
Source file <BLRPRE25.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 5 | HOME^%ZIS $$NOW^XLFDT ($$CJ,$$REPLACE)^XLFSTR ($$PATCH,$$VERSION,BMES,MES)^XPDUTL SETUP^XQALERT |
| VA Fileman | 4 | ^%DT (,FIND)^DIC DTNOLF^DICRW (UPDATE,WP)^DIE |
| IHS VA Utilities | 2 | ^XBFMK $$LOC^XBFUNC |
| IHS Changes To Lab | 1 | (ADDTMENU,BACKUPS,ENDINSTL,OKAY,SORRY,SORRYEND,TABMESG)^BLRKIDSU |
| Lab Service | 1 | DD^LRX |
| MailMan | 1 | ^XMD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SENDMAIL(MAILMSG) | ; EP - Send MailMan E-mail to LMI group
|
|
| MODBLRM | ; EP
; Add Lab Version/Patch report option to the BLRMENU |
|
| CHECKLMI(WOTERR,CP) | ; EP -CHECK FOR LMI MAIL GROUP
|
|
| BBMOD | ; Blood Bank Module Modification -- Change the length of the UNIT ID field.
|
|
| LETSGO | ; EP - USER IDENTIFIED -- LET'S GO
|
|
| ADDLINE(ASTR,LC) | ; EP
; Add a line to the STR array |
|
| DLTADICA(NAME,XCODE,OVER1,DESC) | ; EP
|
|
| SORRY(MSG,MODE,MSG2,CP) | ||
| USERID | ; EP - CHECK FOR USER ID
|
|
| NEEDIT(MODULE,VERSION,PATCH,WOTERR,CP) | ||
| PRECHK | ; EP
|
|
| LASTPTCH(CP) | ; EP
|
|
| DEBUG | ; EP - Debugging Line Label for environment checker
|
|
| ADDDELTA | ; EP
|
|
| POST | ; EP -- POST INSTALL
|
|
| SNDALERT(ALERTMSG) | ; EP -Send alert to LMI group
|
|
| BACKUP | ; EP
|
|
| PTCHLAST | ; EP - Check for previous patch
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | SENDMAIL+5 |
| HOME^%ZIS | USERID+5 |
| ADDTMENU^BLRKIDSU | MODBLRM+2, MODBLRM+5, MODBLRM+8 |
| BACKUPS^BLRKIDSU | BACKUP+4 |
| ENDINSTL^BLRKIDSU | POST+16 |
| OKAY^BLRKIDSU | PTCHLAST+4, BBMOD+12, BBMOD+25, BBMOD+35, BBMOD+45, BBMOD+51, DLTADICA+18, DLTADICA+30, DLTADICA+48, LASTPTCH+15 , CHECKLMI+7, NEEDIT+28, NEEDIT+44 |
| SORRY^BLRKIDSU | USERID+9, DLTADICA+16, DLTADICA+28, DLTADICA+38, DLTADICA+46, CHECKLMI+9, NEEDIT+22, NEEDIT+26, NEEDIT+38, NEEDIT+42 |
| SORRYEND^BLRKIDSU | LETSGO+15 |
| TABMESG^BLRKIDSU | BBMOD+4, BBMOD+29, BBMOD+49 |
| ^DIC | CHECKLMI+5 |
| FIND^DIC | DLTADICA+22, NEEDIT+11 |
| DTNOLF^DICRW | USERID+6 |
| UPDATE^DIE | DLTADICA+13, DLTADICA+35 |
| WP^DIE | DLTADICA+25, DLTADICA+43 |
| DD^LRX | SENDMAIL+6 |
| ^XBFMK | DLTADICA+6 |
| $$LOC^XBFUNC | SORRY+21 |
| $$NOW^XLFDT | DLTADICA+34 |
| $$CJ^XLFSTR | SORRY+21, SORRY+23, SORRY+25, SORRY+26, SORRY+29, SORRY+32, SORRY+33, SORRY+35 |
| $$REPLACE^XLFSTR | BBMOD+18, BBMOD+38 |
| ^XMD | SENDMAIL+12 |
| $$PATCH^XPDUTL | PTCHLAST+2, NEEDIT+34 |
| $$VERSION^XPDUTL | NEEDIT+17 |
| BMES^XPDUTL | PRECHK+1, LETSGO+1, LETSGO+3, LETSGO+13, POST+13, DLTADICA+4, LASTPTCH+5, SORRY+41, CHECKLMI+2, NEEDIT+15 , NEEDIT+33 |
| MES^XPDUTL | PTCHLAST+1, USERID+11 |
| SETUP^XQALERT | POST+21, SNDALERT+3 |
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | Classic Fileman Calls |
| ^LAB(62.1 - [#62.1] | FIND^DIC, WP^DIE |
| 62.131 | WP^DIE |
| ^DIC(9.4 - [#9.4] | FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(65 | BBMOD+8, BBMOD+22, BBMOD+31, BBMOD+42 |
| ^VA(200 - [#200] | USERID+8, SENDMAIL+11 |
| ^XPD(9.7 - [#9.7] | LASTPTCH+8, LASTPTCH+9, LASTPTCH+10 |
| Name | Line Occurrences |
|---|---|
| ADDDELTA | POST+6 |
| ADDLINE | SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25, SORRY+26, SORRY+27 , SORRY+29, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+38, SORRY+39 |
| BBMOD | POST+8 |
| CHECKLMI | LETSGO+9 |
| DLTADICA | ADDDELTA+19, ADDDELTA+26, ADDDELTA+34, ADDDELTA+41 |
| MODBLRM | POST+4 |
| NEEDIT | LETSGO+5, LETSGO+7, LETSGO+11 |
| PRECHK | DEBUG+4 |
| SENDMAIL | SORRY+51, SORRY+55 |
| SNDALERT | SORRY+50, SORRY+54 |
| SORRY | PRECHK+10, PTCHLAST+2, USERID+1, USERID+3, BBMOD+15, LASTPTCH+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | SENDMAIL+3* |
| ALERTMSG | SNDALERT~, SNDALERT+1 |
| ASTR | ADDLINE~, ADDLINE+2*, ADDLINE+3 |
| COMPFLAG | LASTPTCH+1~, LASTPTCH+7*, LASTPTCH+8, LASTPTCH+10*, LASTPTCH+12 |
| COMPPTCH | LASTPTCH+1~, LASTPTCH+10*, LASTPTCH+12, LASTPTCH+13 |
| CP | PRECHK+2~, PRECHK+12*, USERID+1, USERID+3, USERID+9, LETSGO+3, LETSGO+5, LETSGO+7, LETSGO+9, LETSGO+11 , LETSGO+15, BACKUP+1~, BACKUP+2*, BACKUP+4, POST+1~, POST+2*, POST+13, POST+16, POST+19, DEBUG+1~ , MODBLRM+2, MODBLRM+5, MODBLRM+8, DLTADICA+16, DLTADICA+28, DLTADICA+38, DLTADICA+46, LASTPTCH~, LASTPTCH+3, LASTPTCH+13 , SORRY~, SORRY+50, SORRY+51, SORRY+54, SORRY+55, CHECKLMI~, CHECKLMI+9, NEEDIT~, NEEDIT+22, NEEDIT+26 , NEEDIT+38, NEEDIT+42 |
| DEBUG | DEBUG+1~, DEBUG+2*, SORRY+44 |
| DESC | ADDDELTA+1~, ADDDELTA+19, ADDDELTA+26, ADDDELTA+34, ADDDELTA+41, DLTADICA~, DLTADICA+24 |
| DESC(1 | ADDDELTA+15* |
| DESC(2 | ADDDELTA+16* |
| DESC(3 | ADDDELTA+17*, ADDDELTA+24!, ADDDELTA+25*, ADDDELTA+31!, ADDDELTA+32*, ADDDELTA+39!, ADDDELTA+40* |
| DESC(4 | ADDDELTA+18*, ADDDELTA+24!, ADDDELTA+31!, ADDDELTA+33*, ADDDELTA+39! |
| DESC1STR | ADDDELTA+1~, ADDDELTA+7*, ADDDELTA+15 |
| DESC2STR | ADDDELTA+1~, ADDDELTA+8*, ADDDELTA+16 |
| >> DIC | CHECKLMI+3* |
| DICT0 | DLTADICA+1~ |
| DICT1 | DLTADICA+1~, DLTADICA+9*, DLTADICA+10, DLTADICA+11, DLTADICA+12 |
| DIE | DLTADICA+7! |
| DIFQ | SORRY+14! |
| DUZ | USERID+1, USERID+8, SORRY+47, SENDMAIL+11 |
| DUZ(0 | USERID+3, SORRY+47 |
| ERRS | DLTADICA+1~, DLTADICA+7!, DLTADICA+21!, DLTADICA+33!, DLTADICA+41! |
| ERRS("DIERR" | DLTADICA+15, DLTADICA+27, DLTADICA+37, DLTADICA+45 |
| FDA | DLTADICA+1~, DLTADICA+7!, DLTADICA+33! |
| FDA( | DLTADICA+10*, DLTADICA+11*, DLTADICA+12*, DLTADICA+34* |
| HEREYAGO | DLTADICA+2~, NEEDIT+6~ |
| HEREYAGO("DILIST" | DLTADICA+23, NEEDIT+12, NEEDIT+13 |
| IENS | DLTADICA+7! |
| LASTPTCH | PRECHK+4~, LASTPTCH+1~, LASTPTCH+3*, LASTPTCH+5, LASTPTCH+8, LASTPTCH+12, LASTPTCH+13, LASTPTCH+15 |
| LC | ADDLINE~, ADDLINE+3, ADDLINE+4* |
| LINE2 | PRECHK+2~, PRECHK+8*, DEBUG+1~ |
| LINECNT | SORRY+16~, SORRY+17*, SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25 , SORRY+26, SORRY+27, SORRY+29, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+36, SORRY+38, SORRY+39 |
| LPIEN | LASTPTCH+1~, LASTPTCH+9*, LASTPTCH+10 |
| >> LRBLNOW | SENDMAIL+7* |
| LRPATCH | LASTPTCH+1~, LASTPTCH+7*, LASTPTCH+8*, LASTPTCH+9, LASTPTCH+10 |
| LSTPISTS | PRECHK+5~ |
| MAILMSG | SENDMAIL~, SENDMAIL+9 |
| MAXSTR | BBMOD+1~, BBMOD+5*, BBMOD+11, BBMOD+17, BBMOD+24, BBMOD+28, BBMOD+34, BBMOD+35, BBMOD+37, BBMOD+44 , BBMOD+48 |
| MESSAGE | SORRY+7~, SORRY+9*, SORRY+12*, SORRY+23, SORRY+29 |
| MODE | SORRY~, SORRY+8, SORRY+12, SORRY+29, SORRY+31, SORRY+49, SORRY+53, SORRY+54 |
| MODULE | NEEDIT~, NEEDIT+11, NEEDIT+17, NEEDIT+20, NEEDIT+34, NEEDIT+36 |
| MSG | SORRY~, SORRY+25, SORRY+50, SORRY+54 |
| MSG2 | SORRY~, SORRY+26 |
| NAME | ADDDELTA+1~, ADDDELTA+12*, ADDDELTA+19, ADDDELTA+21*, ADDDELTA+26, ADDDELTA+28*, ADDDELTA+34, ADDDELTA+36*, ADDDELTA+41, DLTADICA~ , DLTADICA+4, DLTADICA+10, DLTADICA+16, DLTADICA+18, DLTADICA+22, DLTADICA+28, DLTADICA+30, DLTADICA+38, DLTADICA+46, DLTADICA+48 , NEEDIT+4~, NEEDIT+13*, NEEDIT+15, NEEDIT+20, NEEDIT+21, NEEDIT+24, NEEDIT+25, NEEDIT+28, NEEDIT+33, NEEDIT+36 , NEEDIT+37, NEEDIT+40, NEEDIT+44 |
| OKAY | BBMOD+1~, BBMOD+6*, BBMOD+26*, BBMOD+46*, CHECKLMI+1~, CHECKLMI+6*, CHECKLMI+7, CHECKLMI+8 |
| OVER1 | ADDDELTA+1~, ADDDELTA+14*, ADDDELTA+19, ADDDELTA+23*, ADDDELTA+26, ADDDELTA+30*, ADDDELTA+34, ADDDELTA+38*, ADDDELTA+41, DLTADICA~ , DLTADICA+12 |
| OVER1STR | ADDDELTA+1~, ADDDELTA+10*, ADDDELTA+14, ADDDELTA+23, ADDDELTA+30, ADDDELTA+38 |
| PATCH | NEEDIT~, NEEDIT+31, NEEDIT+33, NEEDIT+34, NEEDIT+36, NEEDIT+37, NEEDIT+41, NEEDIT+44 |
| PTR | DLTADICA+1~, DLTADICA+23*, DLTADICA+25, DLTADICA+34, DLTADICA+43, NEEDIT+5~, NEEDIT+12* |
| RPMS | PRECHK+2~, PRECHK+13*, LETSGO+3 |
| RPMSVER | PRECHK+2~, PRECHK+14*, LETSGO+3 |
| SPEC | BBMOD+1~, BBMOD+18, BBMOD+38 |
| SPEC( | BBMOD+17*, BBMOD+37* |
| STR | PRECHK+3~, BBMOD+1~, BBMOD+8*, BBMOD+9, BBMOD+14, BBMOD+18*, BBMOD+20, BBMOD+31*, BBMOD+32, BBMOD+38* , BBMOD+40, LASTPTCH+1~, SORRY+16~, SORRY+41 |
| STR( | ADDLINE+3* |
| STR1 | NEEDIT+7~, NEEDIT+21*, NEEDIT+22, NEEDIT+23, NEEDIT+24*, NEEDIT+26, NEEDIT+37*, NEEDIT+38, NEEDIT+39, NEEDIT+40* , NEEDIT+42 |
| STR2 | NEEDIT+7~, NEEDIT+25*, NEEDIT+26, NEEDIT+41*, NEEDIT+42 |
| SUBSTR | BBMOD+1~, BBMOD+9*, BBMOD+11, BBMOD+14, BBMOD+17, BBMOD+22*, BBMOD+24, BBMOD+28, BBMOD+32*, BBMOD+34 , BBMOD+37, BBMOD+42*, BBMOD+44, BBMOD+48 |
| SYSPATCH | NEEDIT+8~, NEEDIT+34*, NEEDIT+35 |
| SYSVER | NEEDIT+8~, NEEDIT+17*, NEEDIT+19, NEEDIT+21, NEEDIT+25, NEEDIT+28, NEEDIT+29 |
| U | USERID+8, SENDMAIL+11 |
| VERSION | NEEDIT~, NEEDIT+15, NEEDIT+19, NEEDIT+20, NEEDIT+21, NEEDIT+24, NEEDIT+29, NEEDIT+33, NEEDIT+34, NEEDIT+36 , NEEDIT+37, NEEDIT+40, NEEDIT+44 |
| WOTDD | BBMOD+2~, BBMOD+19*, BBMOD+20, BBMOD+39*, BBMOD+40 |
| WOTERR | PRECHK+6~, LETSGO+5, LETSGO+7, LETSGO+9, LETSGO+11, LETSGO+15, CHECKLMI~, NEEDIT~ |
| WOTERR( | NEEDIT+20*, NEEDIT+36* |
| WOTERR("XMB(3.8" | CHECKLMI+10* |
| WPARRAY | DLTADICA+41! |
| WPARRAY("WP" | DLTADICA+24*, DLTADICA+42* |
| X | PTCHLAST+13*, USERID+8*, USERID+9, LETSGO+1, SENDMAIL+4*, SENDMAIL+13!, CHECKLMI+4* |
| XCODE | ADDDELTA+1~, ADDDELTA+13*, ADDDELTA+19, ADDDELTA+22*, ADDDELTA+26, ADDDELTA+29*, ADDDELTA+34, ADDDELTA+37*, ADDDELTA+41, DLTADICA~ , DLTADICA+11 |
| XCODESTR | ADDDELTA+1~, ADDDELTA+9*, ADDDELTA+13, ADDDELTA+22, ADDDELTA+29, ADDDELTA+37 |
| XMDUZ | SENDMAIL+11*, SENDMAIL+13! |
| XMSUB | SENDMAIL+9*, SENDMAIL+13! |
| XMTEXT | SENDMAIL+10*, SENDMAIL+13! |
| XMY | SENDMAIL+1! |
| XMY("G.LMI" | SENDMAIL+2* |
| >> XPDABORT | PTCHLAST+15*, LETSGO+13, LETSGO+15, SORRY+10* |
| >> XPDDIQ( | PTCHLAST+13* |
| >> XPDDIQ("XPZ1" | PTCHLAST+11*, PTCHLAST+12* |
| >> XPDDIQ("XPZ2" | PTCHLAST+11*, PTCHLAST+12* |
| >> XPDENV | PTCHLAST+11, PTCHLAST+12 |
| XPDNM | PRECHK+10, PRECHK+12, PRECHK+13, PRECHK+14, DEBUG+1~, DEBUG+3* |
| >> XPDNOQUE | PTCHLAST+7* |
| XQA | SNDALERT+4! |
| XQA("G.LMI" | POST+20*, SNDALERT+2* |
| XQAMSG | POST+19*, SNDALERT+1*, SNDALERT+4! |
| Y | SENDMAIL+7, SENDMAIL+13!, CHECKLMI+6 |
| Name | Field # of Occurrence |
|---|---|
| $T( | PRECHK+8, BACKUP+2, POST+2 |