©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
BLRPRE37 ; IHS/MSC/MKK - IHS Lab Patch LR*5.2*1037 Pre/Environment Routine ; 02-Nov-2015 13:44 ; MKK
Source file <BLRPRE37.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 8 | HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR (EXIT,TITLE)^XPDID (BMES,MES)^XPDUTL RESCH^XUTMOPT |
| IHS Changes To Lab | 6 | SHOWBOX^BLRGMENU ADDOPTS^BLRKIDS2 (OKAY,TABMENU,TABMESG)^BLRKIDSU (BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY)^BLRPRE31 SORRYEND^BLRPRE33 MAILALMI^BLRUTIL3 |
| VA Fileman | 4 | DTNOLF^DICRW UPDATE^DIE $$GET1^DIQ ^DIR |
| IHS VA Utilities | 1 | ^XBFMK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; EP - Ask for confirmation of Backup
|
|
| INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
| WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
| OKBACKUP() | ; EP - Backup Confirmed.
|
|
| BLANK | ; EP - Blank Line
|
|
| ENVICHEK | ; EP - Environment Checker
|
|
| SAVEOFF | ; EP - Save off all routines being updated by this patch into the ^rBACKUP global.
|
|
| BACKUP() | ; EP - Confirm Backup
|
|
| NOBACKUP() | ; EP - No backup message
|
|
| MESCNTR(STR) | ; EP - Center a line and use XPDUTL to display it
|
|
| ENVIVARS() | ; EP - Setup the Environment variables
|
|
| DEBUG | ; EP - Debugging Line Label for environment checker
|
|
| POST | ; EP - Post-Install
|
|
| POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
| REFLABCH | ; EP - Post Install Reference Lab changes
|
|
| SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | ENVIVARS+29 |
| ENDR^%ZISS | INITSCR+6 |
| SHOWBOX^BLRGMENU | BACKUP+3 |
| ADDOPTS^BLRKIDS2 | REFLABCH+22, REFLABCH+23 |
| OKAY^BLRKIDSU | OKBACKUP+2, SAVEOFF+3, REFLABCH+19 |
| TABMENU^BLRKIDSU | OKBACKUP+5 |
| TABMESG^BLRKIDSU | PRE+20, NOBACKUP+3, NOBACKUP+4, NOBACKUP+5, REFLABCH+6, REFLABCH+21 |
| BOKAY^BLRPRE31 | ENVICHEK+11 |
| ENVHEADR^BLRPRE31 | ENVICHEK+5 |
| NEEDIT^BLRPRE31 | ENVICHEK+7 |
| PASSMESG^BLRPRE31 | NOBACKUP+2 |
| SORRY^BLRPRE31 | ENVIVARS+13, ENVIVARS+18, ENVIVARS+19 |
| SORRYEND^BLRPRE33 | ENVICHEK+9 |
| MAILALMI^BLRUTIL3 | POSTMAIL+12 |
| DTNOLF^DICRW | ENVIVARS+30 |
| UPDATE^DIE | REFLABCH+13 |
| $$GET1^DIQ | ENVIVARS+19, OKBACKUP+2, NOBACKUP+4 |
| ^DIR | BACKUP+12, DEBUG+27 |
| ^XBFMK | BACKUP+5, DEBUG+23, REFLABCH+8 |
| FRAME^XGF | INITSCR+9 |
| IOXY^XGF | INITSCR+11 |
| PREP^XGF | INITSCR+3, INITSCR+4 |
| $$DT^XLFDT | ENVIVARS+3, ENVIVARS+7, POST+5, WOTCNT+3 |
| $$HTE^XLFDT | PRE+20, BACKUP+23, SAVEOFF+15 |
| $$HTFM^XLFDT | ENVIVARS+7 |
| $$NOW^XLFDT | ENVIVARS+9, POST+16 |
| $$CJ^XLFSTR | MESCNTR+1 |
| $$UP^XLFSTR | PRE+20 |
| EXIT^XPDID | PRE+23 |
| TITLE^XPDID | PRE+9, PRE+15 |
| BMES^XPDUTL | PRE+10, PRE+16, POST+10, REFLABCH+3, REFLABCH+25 |
| MES^XPDUTL | OKBACKUP+1, OKBACKUP+4, BLANK+1, MESCNTR+1 |
| RESCH^XUTMOPT | REFLABCH+18 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRINSTL("LAB PATCH" | BACKUP+20, BACKUP+21*, BACKUP+22*, BACKUP+23*, SAVEOFF+15*, SAVEOFF+16* |
| ^ROUTINE( | SAVEOFF+8, SAVEOFF+12 |
| ^VA(200 - [#200] | BACKUP+21 |
| ^XTMP( | ENVIVARS+7*, ENVIVARS+8*, ENVIVARS+9*, POST+16*, WOTCNT+5, WOTCNT+6* |
| Name | Line Occurrences |
|---|---|
| $$BACKUP | PRE+12 |
| $$ENVIVARS | ENVICHEK+3 |
| $$NOBACKUP | BACKUP+15 |
| $$OKBACKUP | BACKUP+17, BACKUP+25 |
| $$WOTCNT | ENVIVARS+4, POST+6 |
| BLANK | ENVICHEK+5, ENVICHEK+7, PRE+10, PRE+16, POST+10, SAVEOFF+3, REFLABCH+19 |
| INITSCR | PRE+8, PRE+14 |
| POST | DEBUG+29 |
| POSTMAIL | POST+14 |
| PRE | DEBUG+18 |
| REFLABCH | POST+8 |
| SETEVARS | ENVIVARS+1, PRE+4, DEBUG+7, POST+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BCKUPCNT | PRE+2~, BACKUP+1~, BACKUP+20*, BACKUP+21, BACKUP+22, BACKUP+23 |
| BEGTIME | DEBUG+1~ |
| BLRVERN | ENVICHEK+1~, ENVIVARS+4, ENVIVARS+7, ENVIVARS+8, ENVIVARS+9, PRE+1~, PRE+10, PRE+16, DEBUG+1~, DEBUG+10 , DEBUG+31, POST+6, POST+14, POST+16, SETEVARS+3*, WOTCNT~, WOTCNT+5, WOTCNT+6, POSTMAIL~, POSTMAIL+4 , POSTMAIL+12 |
| CNT | PRE+1~, WOTCNT+1~, WOTCNT+5*, WOTCNT+6, WOTCNT+7 |
| CP | ENVICHEK+1~, ENVICHEK+5, ENVICHEK+7, ENVICHEK+9, ENVIVARS+13, ENVIVARS+18, ENVIVARS+19, PRE+1~, BACKUP+20, BACKUP+21 , BACKUP+22, BACKUP+23, DEBUG+1~, SETEVARS+1*, SETEVARS+2 |
| CPSTR | ENVIVARS+7, PRE+1~, PRE+9, PRE+15, DEBUG+1~, DEBUG+15, POST+10, POST+14, SETEVARS+2*, POSTMAIL~ , POSTMAIL+6, POSTMAIL+12 |
| CRTLINE | PRE+1~ |
| DEBUG | BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+12*, POST+1, POST+12, SAVEOFF+1, SAVEOFF+3, POSTMAIL+9 |
| >> DILOCKTM | POST+1, SAVEOFF+1 |
| >> DIR("?" | BACKUP+11* |
| >> DIR("A" | BACKUP+10*, DEBUG+26* |
| >> DIR("B" | BACKUP+7*, DEBUG+25* |
| >> DIR(0 | BACKUP+6*, DEBUG+24* |
| DIRASTR | PRE+1~ |
| >> DISYS | POST+1, SAVEOFF+1 |
| DT | POST+1, SAVEOFF+1, REFLABCH+18 |
| DTIME | POST+1, SAVEOFF+1 |
| DUZ | ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, POST+1, SAVEOFF+1 |
| ENDTIME | DEBUG+1~ |
| ERRARRAY | ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~ |
| ERRORS | REFLABCH+1~, REFLABCH+9!, REFLABCH+16 |
| ERRS | SAVEOFF+11!, SAVEOFF+13, SAVEOFF+16 |
| FDA | REFLABCH+1~, REFLABCH+9! |
| FDA( | REFLABCH+10*, REFLABCH+11*, REFLABCH+12* |
| FDAROOT | PRE+1~ |
| IEN | PRE+1~ |
| IENS | PRE+1~ |
| IO | POST+1, SAVEOFF+1, INITSCR+2 |
| IO(0 | INITSCR+2 |
| >> IOBM | INITSCR+7* |
| >> IOBS | POST+1, SAVEOFF+1 |
| IOF | POST+1, SAVEOFF+1 |
| IOM | POST+1, SAVEOFF+1, MESCNTR+1, INITSCR+9 |
| ION | POST+1, SAVEOFF+1 |
| >> IOS | POST+1, SAVEOFF+1 |
| IOSL | POST+1, SAVEOFF+1, INITSCR+7 |
| IOST | BACKUP+8, POST+1, SAVEOFF+1, INITSCR+2 |
| >> IOSTBM | INITSCR+8 |
| >> IOT | POST+1, SAVEOFF+1 |
| >> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
| >> IOXY | POST+1, SAVEOFF+1 |
| LASTLOGI | DEBUG+1~ |
| >> LN | SAVEOFF+12* |
| LRBLNOW | DEBUG+2~ |
| MSGROOT | PRE+1~ |
| >> NOW | SAVEOFF+14*, SAVEOFF+15, SAVEOFF+16 |
| >> PATCH | SAVEOFF+5*, SAVEOFF+9, SAVEOFF+15, SAVEOFF+16 |
| PATCHNUM | DEBUG+2~, SETEVARS+1* |
| PREREQ | DEBUG+2~ |
| QFLG | DEBUG+2~ |
| ROWSTARS | ENVICHEK+1~, ENVIVARS+5*, DEBUG+2~ |
| RPMS | ENVICHEK+1~, ENVICHEK+5, ENVIVARS+15*, DEBUG+2~ |
| RPMSVER | ENVICHEK+1~, ENVICHEK+5, ENVIVARS+16*, DEBUG+2~ |
| >> RTN | SAVEOFF+7*, SAVEOFF+8, SAVEOFF+12, SAVEOFF+13, SAVEOFF+16 |
| RTNA | SAVEOFF+11!, SAVEOFF+13 |
| RTNA( | SAVEOFF+12* |
| >> RTNPATCH | SAVEOFF+8*, SAVEOFF+9 |
| STR | DEBUG+2~, MESCNTR~, MESCNTR+1, POSTMAIL+1~, POSTMAIL+12 |
| STR(1 | POSTMAIL+3* |
| STR(2 | POSTMAIL+4* |
| STR(3 | POSTMAIL+5* |
| STR(4 | POSTMAIL+6* |
| STR(5 | POSTMAIL+7* |
| SUCCSTR | BACKUP+1~, BACKUP+8*, BACKUP+9*, BACKUP+10, DEBUG+3~ |
| TODAY | ENVICHEK+1~, ENVIVARS+3*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+5*, POST+16, WOTCNT+1~, WOTCNT+3*, WOTCNT+5 , WOTCNT+6 |
| U | BACKUP+21, POST+1, SAVEOFF+1 |
| WHATCNT | DEBUG+3~ |
| WOTCNT | ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+6*, POST+16 |
| X | ENVIVARS+25*, SAVEOFF+13*, INITSCR+1~, INITSCR+5* |
| >> XPARSYS | POST+1, SAVEOFF+1 |
| XPDABORT | ENVICHEK+9, ENVIVARS+27*, NOBACKUP+1*, DEBUG+3~, DEBUG+19 |
| >> XPDDIQ( | ENVIVARS+25* |
| XPDENV | DEBUG+3~, DEBUG+16* |
| >> XPDIDVT | INITSCR+2*, INITSCR+3*, INITSCR+5* |
| XPDNM | ENVIVARS+13, ENVIVARS+15, ENVIVARS+16, DEBUG+3~, DEBUG+15* |
| >> XPDNOQUE | ENVIVARS+21* |
| XPDSTR | INITSCR+1~, INITSCR+5* |
| >> XQXFLG | POST+1, SAVEOFF+1 |
| >> XUMF | ENVIVARS+11*, PRE+6* |
| >> Y | BACKUP+15, DEBUG+29 |
| Name | Field # of Occurrence |
|---|---|
| $T( | SAVEOFF+5, SETEVARS+1, SETEVARS+3 |
| $T(PREP^XGF | INITSCR+3 |