©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
BLRPRE40 ; IHS/MSC/MKK - RPMS Lab Patch LR*5.2*1040 Pre/Install/Post Routine ; 15-Nov-2016 08:22 ; MKK
Source file <BLRPRE40.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 7 | HOME^%ZIS ENDR^%ZISS (FRAME,IOXY,PREP)^XGF ($$DT,$$FMADD,$$HTE,$$HTFM,$$NOW)^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR TITLE^XPDID (BMES,MES)^XPDUTL |
| IHS Changes To Lab | 5 | STORERRS^BLREMERA SHOWBOX^BLRGMENU (ADDOPTS,BOKAY,ENVHEADR,NEEDIT,PASSMESG,SORRY,SORRYEND)^BLRKIDS2 (OKAY,TABMENU,TABMESG)^BLRKIDSU MAILALMI^BLRUTIL3 |
| VA Fileman | 4 | $$FIND1^DIC DTNOLF^DICRW $$GET1^DIQ ^DIR |
| IHS VA Utilities | 1 | ^XBFMK |
| Toolkit | 1 | EN^XPAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; EP - Ask for confirmation of Backup
|
|
| BLANK | ; EP - Blank Line
|
|
| INITSCR | ; EP - Initialize screen. Cloned from INIT^XPDID
|
|
| WOTCNT(BLRVERN) | ; EP - Counter for ^XTMP
|
|
| GETPARS(PARSLIST) | ; EP - Function to get Parameters from BUILD file
|
|
| OKBACKUP() | ; EP - Backup Confirmed.
|
|
| VBECSUPD | ; EP - VBECS Update
|
|
| XTMPHEAD | ; EP - Initialize XTMP for this patch
|
|
| ENVICHEK | ; EP - Environment Checker
|
|
| SAVEOFF | ; EP - Save off all routines being updated by this patch into the ^rBACKUP global.
|
|
| POSTMAIL(BLRVERN,CPSTR) | ; EP - Post Install MailMan Message
|
|
| 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
|
|
| FORCENO | ; EP - Force new parameters to be NO
|
|
| ADDOPTS | ; EP - Add new options
|
|
| SETBLRVS(TWO) | ; EP - Set the BLRVERN variable(s)
|
|
| SETEVARS | ; EP - SET standard "Enviroment" VARiables.
|
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | ENVIVARS+29 |
| ENDR^%ZISS | INITSCR+6 |
| STORERRS^BLREMERA | FORCENO+19 |
| SHOWBOX^BLRGMENU | BACKUP+3 |
| ADDOPTS^BLRKIDS2 | ADDOPTS+1, ADDOPTS+2, ADDOPTS+3, ADDOPTS+4, ADDOPTS+5, ADDOPTS+6 |
| BOKAY^BLRKIDS2 | ENVICHEK+11 |
| ENVHEADR^BLRKIDS2 | ENVICHEK+5 |
| NEEDIT^BLRKIDS2 | ENVICHEK+7 |
| PASSMESG^BLRKIDS2 | NOBACKUP+2 |
| SORRY^BLRKIDS2 | ENVIVARS+13, ENVIVARS+18, ENVIVARS+19 |
| SORRYEND^BLRKIDS2 | ENVICHEK+9 |
| OKAY^BLRKIDSU | OKBACKUP+2, FORCENO+8, SAVEOFF+9, SAVEOFF+32 |
| TABMENU^BLRKIDSU | OKBACKUP+5 |
| TABMESG^BLRKIDSU | NOBACKUP+3, NOBACKUP+4, NOBACKUP+5 |
| MAILALMI^BLRUTIL3 | POSTMAIL+12 |
| $$FIND1^DIC | GETPARS+5 |
| DTNOLF^DICRW | ENVIVARS+30 |
| $$GET1^DIQ | ENVIVARS+19, OKBACKUP+2, NOBACKUP+4 |
| ^DIR | BACKUP+12, DEBUG+27 |
| ^XBFMK | BACKUP+5, DEBUG+23 |
| FRAME^XGF | INITSCR+9 |
| IOXY^XGF | INITSCR+11 |
| PREP^XGF | INITSCR+3, INITSCR+4 |
| $$DT^XLFDT | ENVIVARS+3, ENVIVARS+7, POST+6, XTMPHEAD+4, WOTCNT+3 |
| $$FMADD^XLFDT | XTMPHEAD+4 |
| $$HTE^XLFDT | PRE+10, PRE+21, BACKUP+23, POST+3, SAVEOFF+29 |
| $$HTFM^XLFDT | ENVIVARS+7 |
| $$NOW^XLFDT | ENVIVARS+9, POST+26 |
| $$CJ^XLFSTR | MESCNTR+1 |
| $$TRIM^XLFSTR | XTMPHEAD+3 |
| $$UP^XLFSTR | PRE+10, PRE+21, POST+3 |
| EN^XPAR | FORCENO+16 |
| TITLE^XPDID | PRE+9, PRE+15 |
| BMES^XPDUTL | PRE+10, PRE+16, PRE+21, POST+3, POST+20, SAVEOFF+10, SAVEOFF+17, SAVEOFF+37, SAVEOFF+38 |
| MES^XPDUTL | FORCENO+11, FORCENO+18, BLANK+1, MESCNTR+1 |
| Name | Line Occurrences |
|---|---|
| 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 |
| ^XPD(9.6 - [#9.6] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | SAVEOFF+3, VBECSUPD+3 |
| ^BLRINSTL("LAB PATCH" | BACKUP+20, BACKUP+21*, BACKUP+22*, BACKUP+23*, SAVEOFF+29*, SAVEOFF+30* |
| ^ROUTINE( | SAVEOFF+20, SAVEOFF+26, VBECSUPD+8 |
| ^VA(200 - [#200] | BACKUP+21 |
| ^XPD(9.6 - [#9.6] | GETPARS+9, SAVEOFF+14, SAVEOFF+19 |
| ^XTMP( | ENVIVARS+7*, ENVIVARS+8*, ENVIVARS+9*, POST+26*, VBECSUPD+15, VBECSUPD+16*, XTMPHEAD+4*, WOTCNT+5, WOTCNT+6* |
| Name | Line Occurrences |
|---|---|
| $$BACKUP | PRE+12 |
| $$ENVIVARS | ENVICHEK+3 |
| $$GETPARS | FORCENO+4 |
| $$NOBACKUP | BACKUP+15 |
| $$OKBACKUP | BACKUP+17, BACKUP+25 |
| $$WOTCNT | ENVIVARS+4, POST+7 |
| BLANK | ENVICHEK+5, ENVICHEK+7, PRE+10, PRE+16, OKBACKUP+1, OKBACKUP+4, POST+3, POST+20, FORCENO+8, FORCENO+18 , SAVEOFF+9 |
| FORCENO | POST+13 |
| INITSCR | PRE+8, PRE+14 |
| POST | DEBUG+29 |
| PRE | DEBUG+18 |
| SAVEOFF | PRE+19 |
| SETBLRVS | FORCENO+3, VBECSUPD+5, SETEVARS+3, XTMPHEAD+2 |
| SETEVARS | ENVIVARS+1, PRE+4, DEBUG+7, POST+4, GETPARS+3 |
| XTMPHEAD | VBECSUPD+15 |
| >> | 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+16, DEBUG+1~, DEBUG+10, DEBUG+31 , POST+1~, POST+7, POST+26, FORCENO+8, SAVEOFF+5*, SAVEOFF+9, VBECSUPD+15, VBECSUPD+16, SETBLRVS+1!, SETBLRVS+3* , XTMPHEAD+1~, XTMPHEAD+4, WOTCNT~, WOTCNT+5, WOTCNT+6, POSTMAIL~, POSTMAIL+4, POSTMAIL+12 |
| BLRVERN2 | SETBLRVS+1!, SETBLRVS+4*, XTMPHEAD+1~ |
| >> BUILD | SAVEOFF+13*, SAVEOFF+14 |
| >> BUILDIEN | GETPARS+5*, GETPARS+6, GETPARS+9 |
| CNT | PRE+1~, GETPARS+8*, GETPARS+10*, GETPARS+12, SAVEOFF+18*, SAVEOFF+33*, SAVEOFF+38, VBECSUPD+7*, VBECSUPD+11*, VBECSUPD+13 , VBECSUPD+16, 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~, POST+1~, SETEVARS+1*, SETEVARS+2 |
| CPSTR | ENVIVARS+7, PRE+1~, PRE+9, PRE+15, DEBUG+1~, DEBUG+15, POST+1~, POST+20, GETPARS+5, SETEVARS+2* , POSTMAIL~, POSTMAIL+6, POSTMAIL+12 |
| CRTLINE | PRE+1~ |
| DEBUG | BACKUP+17, OKBACKUP+3, DEBUG+1~, DEBUG+12*, POST+22, FORCENO+1, FORCENO+6, GETPARS+1, SAVEOFF+1, SAVEOFF+7 , VBECSUPD+1, POSTMAIL+9 |
| >> DILOCKTM | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+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 | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| DT | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| DTIME | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| DUZ | ENVIVARS+8, ENVIVARS+18, ENVIVARS+19, BACKUP+21, BACKUP+22, OKBACKUP+2, NOBACKUP+4, FORCENO+1, GETPARS+1, SAVEOFF+1 , VBECSUPD+1 |
| ENDTIME | DEBUG+1~ |
| ERRARRAY | ENVICHEK+1~, ENVICHEK+7, ENVICHEK+9, DEBUG+1~ |
| ERRS | FORCENO+15!, FORCENO+16, FORCENO+17, FORCENO+19, SAVEOFF+25!, SAVEOFF+27, SAVEOFF+30, SAVEOFF+31 |
| FDAROOT | PRE+1~ |
| IEN | PRE+1~ |
| IENS | PRE+1~ |
| IO | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1, INITSCR+2 |
| IO(0 | INITSCR+2 |
| >> IOBM | INITSCR+7* |
| >> IOBS | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| IOF | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| IOM | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1, MESCNTR+1, INITSCR+9 |
| ION | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| >> IOS | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| IOSL | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1, INITSCR+7 |
| IOST | BACKUP+8, FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1, INITSCR+2 |
| >> IOSTBM | INITSCR+8 |
| >> IOT | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| >> IOTM | INITSCR+7*, INITSCR+9, INITSCR+11 |
| >> IOXY | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| LASTLOGI | DEBUG+1~ |
| >> LN | SAVEOFF+26* |
| LRBLNOW | DEBUG+2~ |
| MSGROOT | PRE+1~ |
| >> NOW | SAVEOFF+28*, SAVEOFF+29, SAVEOFF+30 |
| >> PARAMETER | FORCENO+9*, FORCENO+10*, FORCENO+11, FORCENO+13*, FORCENO+14*, FORCENO+16, FORCENO+18, FORCENO+19 |
| >> PARAMTRS | GETPARS+8*, GETPARS+9*, GETPARS+10 |
| PARSLIST | FORCENO+4, GETPARS~, GETPARS+1 |
| PARSLIST( | FORCENO+10, FORCENO+14, GETPARS+10* |
| >> PATCH | SAVEOFF+12*, SAVEOFF+13, SAVEOFF+22, SAVEOFF+29, SAVEOFF+30 |
| >> PATCHIEN | SAVEOFF+14*, SAVEOFF+15, SAVEOFF+19 |
| PATCHNUM | DEBUG+2~, POST+1~, SETEVARS+1* |
| PREREQ | DEBUG+2~ |
| PTCHNAME | XTMPHEAD+1~, XTMPHEAD+3*, XTMPHEAD+4 |
| 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+18*, SAVEOFF+19*, SAVEOFF+20, SAVEOFF+26, SAVEOFF+27, SAVEOFF+30, SAVEOFF+32, VBECSUPD+7*, VBECSUPD+8*, VBECSUPD+9 , VBECSUPD+10 |
| RTNA | SAVEOFF+25!, SAVEOFF+27 |
| RTNA( | SAVEOFF+26* |
| >> RTNCNT | SAVEOFF+18*, SAVEOFF+24*, SAVEOFF+35, SAVEOFF+37 |
| >> RTNPATCH | SAVEOFF+20*, SAVEOFF+21, SAVEOFF+22 |
| 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~ |
| >> TAB | FORCENO+7*, FORCENO+11, SAVEOFF+8*, SAVEOFF+10, SAVEOFF+36*, SAVEOFF+37, SAVEOFF+38 |
| TODAY | ENVICHEK+1~, ENVIVARS+3*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+6*, POST+26, WOTCNT+1~, WOTCNT+3* , WOTCNT+5, WOTCNT+6 |
| TWO | SETBLRVS~, SETBLRVS+4 |
| U | BACKUP+21, FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1, XTMPHEAD+4 |
| WHATCNT | DEBUG+3~ |
| WOTCNT | ENVICHEK+1~, ENVIVARS+4*, ENVIVARS+8, ENVIVARS+9, DEBUG+3~, POST+1~, POST+7*, POST+26 |
| X | ENVIVARS+25*, SAVEOFF+27*, VBECSUPD+9*, VBECSUPD+10*, INITSCR+1~, INITSCR+5* |
| >> XPARSYS | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| XPDABORT | ENVICHEK+9, ENVIVARS+27*, NOBACKUP+1*, DEBUG+3~, DEBUG+16*, 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 | FORCENO+1, GETPARS+1, SAVEOFF+1, VBECSUPD+1 |
| >> XUMF | ENVIVARS+11*, PRE+6* |
| >> Y | BACKUP+15, DEBUG+29 |
| Name | Field # of Occurrence |
|---|---|
| $T( | SAVEOFF+5, SAVEOFF+12, SETEVARS+1, SETBLRVS+3, XTMPHEAD+3 |
| $T(PREP^XGF | INITSCR+3 |