©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
BLRPRE34 ; IHS/OIT/MKK - IHS Lab PATCH 1034 Environment/Pre/Post Install Routine ; 17-Oct-2014 09:22 ; MKK
Source file <BLRPRE34.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Lab | 7 | PRESSKEY^BLRGMENU CLEANSET^BLRICDO (ENDINSTL,OKAY,SORRY,SORRYEND,TABMENU)^BLRKIDSU REFLAB68^BLRLINKU (BOKAY,NEEDIT,PASSMESG)^BLRPRE31 (BACKUP,ENVCHK,POST)^BLRPRE34 MAILALMI^BLRUTIL3 |
| VA Fileman | 6 | $$FIND1^DIC DTNOLF^DICRW UPDATE^DIE ^DIK $$GET1^DIQ ^DIR |
| Kernel | 5 | HOME^%ZIS ($$DT,$$HTE,$$HTFM)^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$LKOPT,OUT)^XPDMENU (BMES,MES)^XPDUTL |
| IHS VA Utilities | 3 | ^XBCLS ^XBFMK $$LOC^XBFUNC |
| IHS Support HL7 Interfaces | 1 | COMPILE^BHLU |
| M Transfer | 1 | GUIEP^BMXPO |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEONARDY(TOMENU,OPTION,SYNONYM) | ; EP
; Returns 1 if TOMENU doesn't exist OR ; if OPTION doesn't exist OR ; if OPTION already on TOMENU with SYNONYM |
|
| CLEAN(APP) | ;-- clean out the RPC multiple first
|
|
| LETSGO | ; EP - USER IDENTIFIED -- LET'S GO
|
|
| ADDLINE(ASTR,LC) | ; EP
; Add a line to the STR array |
|
| CHNGOPTT(OPTION,TEXT) | ; EP - Change the MENU Text of an Option
|
|
| USERID | ; EP - CHECK FOR USER ID
|
|
| LASTPTCH(CP) | ; EP
|
|
| DEBUG | ; EP - Debugging Line Label for environment checker
|
|
| ADDOPTS(TOMENU,OPTION,SYNONYM,TAB) | ; EP - Add new OPTION to TOMENU with SYNONYM synonym
|
|
| LABJRNL | ; EP - Get rid of pointers in file 61.2 that point to an empty File 95.
|
|
| ENVCHK | ; EP
|
|
| POST | ; EP -- POST INSTALL
|
|
| BMXPO | ;-- update the RPC file
|
|
| BACKUP | ; EP
|
|
| SORRY(MSG,MODE,MSG2,CP) | ||
| UPGIS | ;-- update the GIS definition
|
|
| INACTOPT(SEED,OUTMSG,EXCPTION) | ; EP - Inactivate/Activate options.
; If the OUTMSG variable is NOT NULL, then the the OUT^XPDMENU routine ; will put the string into the OUT OF ORDER MESSAGE field of the options. |
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | USERID+12 |
| COMPILE^BHLU | UPGIS+7 |
| PRESSKEY^BLRGMENU | DEBUG+14, DEBUG+20, DEBUG+26, DEBUG+29 |
| CLEANSET^BLRICDO | POST+6 |
| ENDINSTL^BLRKIDSU | POST+29 |
| OKAY^BLRKIDSU | ENVCHK+12, USERID+10, BACKUP+24, POST+19, LASTPTCH+15, CHNGOPTT+16 |
| SORRY^BLRKIDSU | USERID+8 |
| SORRYEND^BLRKIDSU | LETSGO+7 |
| TABMENU^BLRKIDSU | LABJRNL+14, LABJRNL+15 |
| REFLAB68^BLRLINKU | POST+18 |
| BOKAY^BLRPRE31 | BACKUP+23, BACKUP+32 |
| NEEDIT^BLRPRE31 | LETSGO+4, LETSGO+5 |
| PASSMESG^BLRPRE31 | BACKUP+4, BACKUP+16, DEBUG+8, DEBUG+16, DEBUG+22, DEBUG+28 |
| BACKUP^BLRPRE34 | DEBUG+17 |
| ENVCHK^BLRPRE34 | DEBUG+10 |
| POST^BLRPRE34 | DEBUG+23 |
| MAILALMI^BLRUTIL3 | POST+40, SORRY+49, SORRY+50 |
| GUIEP^BMXPO | BMXPO+5 |
| $$FIND1^DIC | SORRY+47, CHNGOPTT+3 |
| DTNOLF^DICRW | USERID+13 |
| UPDATE^DIE | CHNGOPTT+14 |
| ^DIK | CLEAN+6, LABJRNL+20 |
| $$GET1^DIQ | USERID+7, BACKUP+18, BACKUP+23, BACKUP+32, CHNGOPTT+6 |
| ^DIR | BACKUP+11 |
| ^XBCLS | DEBUG+8, DEBUG+16, DEBUG+22, DEBUG+28 |
| ^XBFMK | BACKUP+7 |
| $$LOC^XBFUNC | SORRY+21 |
| $$DT^XLFDT | LABJRNL+10 |
| $$HTE^XLFDT | BACKUP+30 |
| $$HTFM^XLFDT | LABJRNL+10 |
| $$CJ^XLFSTR | SORRY+21, SORRY+23, SORRY+25, SORRY+26, SORRY+29, SORRY+32, SORRY+33, SORRY+35 |
| $$UP^XLFSTR | ADDOPTS+13 |
| $$ADD^XPDMENU | ADDOPTS+9 |
| $$LKOPT^XPDMENU | DEONARDY+6, DEONARDY+9 |
| OUT^XPDMENU | INACTOPT+14 |
| BMES^XPDUTL | ENVCHK+1, USERID+15, LETSGO+1, LETSGO+8, BACKUP+17, BACKUP+18, BACKUP+19, POST+16, POST+21, ADDOPTS+8 , ADDOPTS+10, ADDOPTS+12, LABJRNL+11, LASTPTCH+5, SORRY+41, CHNGOPTT+8 |
| MES^XPDUTL | ENVCHK+2, LETSGO+2, LETSGO+8, ADDOPTS+13, ADDOPTS+15, CHNGOPTT+9, CHNGOPTT+10, CHNGOPTT+11, CHNGOPTT+15, CHNGOPTT+17 |
| 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 |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(19 - [#19] | FIND1^DIC, GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^XMB(3.8 - [#3.8] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BLRINSTL("LAB PATCH" | BACKUP+28, BACKUP+29*, BACKUP+30* |
| ^DIC(19 - [#19] | BMXPO+2, CLEAN+4, CLEAN+7!, DEONARDY+12, DEONARDY+13, INACTOPT+10 |
| ^INTHL7F - [#4012] | UPGIS+4* |
| ^INTHL7F("B" | UPGIS+2 |
| ^INTHL7M("B" | UPGIS+5 |
| ^LAB(61.2 - [#61.2] | LABJRNL+6, LABJRNL+7, LABJRNL+13, LABJRNL+15 |
| ^LAB(95 - [#95] | LABJRNL+3 |
| ^VA(200 - [#200] | BACKUP+29 |
| ^XPD(9.7 - [#9.7] | LASTPTCH+8, LASTPTCH+9, LASTPTCH+10 |
| ^XTMP("BLRLINKU" | POST+17! |
| ^XTMP("LABJRNAL" | LABJRNL+10*, LABJRNL+12*, LABJRNL+13*, LABJRNL+22* |
| Name | Line Occurrences |
|---|---|
| $$DEONARDY | ADDOPTS+1 |
| 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 |
| ADDOPTS | POST+8, POST+9 |
| BMXPO | POST+11 |
| CHNGOPTT | POST+10 |
| CLEAN | BMXPO+4 |
| INACTOPT | POST+26 |
| LABJRNL | POST+14 |
| SORRY | ENVCHK+8, USERID+3, USERID+5, LASTPTCH+13 |
| UPGIS | POST+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APP | CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7 |
| ASTR | ADDLINE~, ADDLINE+2*, ADDLINE+3 |
| >> BCKUPCNT | BACKUP+28*, BACKUP+29, BACKUP+30 |
| BLRDA | CLEAN+3~, CLEAN+4*, CLEAN+5 |
| BLRM | UPGIS+1~, UPGIS+5*, UPGIS+6, UPGIS+7 |
| BLRRPC | BMXPO+1~, BMXPO+2*, BMXPO+3, BMXPO+4, BMXPO+5 |
| BLRVERN | POST+1~, POST+4*, POST+34, POST+40 |
| BLRX | UPGIS+1~, UPGIS+2*, UPGIS+3, UPGIS+4 |
| >> CNT | LABJRNL+5*, LABJRNL+8*, LABJRNL+9, LABJRNL+22 |
| COMPFLAG | LASTPTCH+1~, LASTPTCH+7*, LASTPTCH+8, LASTPTCH+10*, LASTPTCH+12 |
| COMPPTCH | LASTPTCH+1~, LASTPTCH+10*, LASTPTCH+12, LASTPTCH+13 |
| CP | ENVCHK+3~, ENVCHK+14*, USERID+3, USERID+5, USERID+8, LETSGO+1, LETSGO+4, LETSGO+5, LETSGO+7, BACKUP+1~ , BACKUP+2*, BACKUP+28, BACKUP+29, BACKUP+30, POST+1~, POST+3*, POST+21, POST+29, POST+36, POST+40 , DEBUG+1~, LASTPTCH~, LASTPTCH+3, LASTPTCH+13, SORRY~, SORRY+49, SORRY+50 |
| DA | CLEAN+5*, LABJRNL+17!, LABJRNL+18* |
| DA(1 | CLEAN+1*, CLEAN+2, LABJRNL+18*, LABJRNL+19 |
| DEBUG | BACKUP+22, POST+31, DEBUG+1~, DEBUG+2*, SORRY+43 |
| DIFQ | SORRY+14! |
| >> DIK | CLEAN+2*, LABJRNL+19* |
| >> DILOCKTM | LABJRNL+1 |
| >> DIR("A" | BACKUP+10* |
| >> DIR("B" | BACKUP+9* |
| >> DIR(0 | BACKUP+8* |
| >> DISYS | LABJRNL+1 |
| DT | LABJRNL+1 |
| DTIME | LABJRNL+1 |
| DUZ | USERID+3, USERID+7, USERID+8, USERID+10, BACKUP+18, BACKUP+23, BACKUP+29, BACKUP+32, LABJRNL+1, SORRY+45 |
| DUZ(0 | USERID+5, SORRY+45 |
| >> ERRARRY | LETSGO+4, LETSGO+5 |
| ERRS | CHNGOPTT+1~, CHNGOPTT+16, CHNGOPTT+17 |
| EXCPTION | INACTOPT~, INACTOPT+11 |
| EXCPTION( | INACTOPT+12 |
| FDA | CHNGOPTT+1~ |
| FDA(19 | CHNGOPTT+13* |
| >> IEN | LABJRNL+5*, LABJRNL+6*, LABJRNL+7, LABJRNL+12, LABJRNL+13, LABJRNL+14, LABJRNL+15, LABJRNL+18 |
| IO | LABJRNL+1 |
| >> IOBS | LABJRNL+1 |
| IOF | LABJRNL+1 |
| IOM | LABJRNL+1, DEBUG+5, DEBUG+6 |
| ION | LABJRNL+1 |
| >> IOS | LABJRNL+1 |
| IOSL | LABJRNL+1 |
| IOST | LABJRNL+1 |
| >> IOT | LABJRNL+1 |
| >> IOXY | LABJRNL+1 |
| >> JOURN | LABJRNL+7*, LABJRNL+13, LABJRNL+14, LABJRNL+15, LABJRNL+18 |
| LASTPTCH | ENVCHK+4~, LASTPTCH+1~, LASTPTCH+3*, LASTPTCH+5, LASTPTCH+8, LASTPTCH+12, LASTPTCH+13, LASTPTCH+15 |
| LC | ADDLINE~, ADDLINE+3, ADDLINE+4* |
| LINE2 | ENVCHK+3~, ENVCHK+10*, 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 |
| LRPATCH | LASTPTCH+1~, LASTPTCH+7*, LASTPTCH+8*, LASTPTCH+9, LASTPTCH+10 |
| LSTPISTS | ENVCHK+5~ |
| MESSAGE | SORRY+7~, SORRY+9*, SORRY+12*, SORRY+23, SORRY+29 |
| MODE | SORRY~, SORRY+8, SORRY+12, SORRY+29, SORRY+31, SORRY+49, SORRY+50 |
| MSG | SORRY~, SORRY+25 |
| MSG2 | SORRY~, SORRY+26 |
| OLDMTEXT | CHNGOPTT+1~, CHNGOPTT+6*, CHNGOPTT+9 |
| OPTIEN | DEONARDY+5~, DEONARDY+9*, DEONARDY+10, DEONARDY+13, CHNGOPTT+1~, CHNGOPTT+3*, CHNGOPTT+4, CHNGOPTT+6, CHNGOPTT+13 |
| OPTION | ADDOPTS~, ADDOPTS+1, ADDOPTS+5, ADDOPTS+9, ADDOPTS+10, ADDOPTS+12, DEONARDY~, DEONARDY+9, INACTOPT+7~, INACTOPT+9* , INACTOPT+10*, INACTOPT+11, INACTOPT+12, INACTOPT+14, CHNGOPTT~, CHNGOPTT+3, CHNGOPTT+8 |
| OUTMSG | INACTOPT~, INACTOPT+14 |
| >> RETVAL | BMXPO+5 |
| ROWPLUS | DEBUG+1~, DEBUG+6*, DEBUG+13, DEBUG+19, DEBUG+25 |
| ROWSTARS | DEBUG+1~, DEBUG+5* |
| RPMS | ENVCHK+3~, ENVCHK+15*, LETSGO+1 |
| RPMSVER | ENVCHK+3~, ENVCHK+16*, LETSGO+1 |
| SEED | INACTOPT~, INACTOPT+9, INACTOPT+10 |
| SEEDLEN | INACTOPT+7~, INACTOPT+9*, INACTOPT+10 |
| STR | ENVCHK+3~, POST+1~, POST+40, LASTPTCH+1~, SORRY+16~, SORRY+41, SORRY+49, SORRY+50 |
| STR( | ADDLINE+3* |
| STR(1 | POST+33* |
| STR(2 | POST+34* |
| STR(3 | POST+35* |
| STR(4 | POST+36* |
| STR(5 | POST+37* |
| SYNIEN | DEONARDY+5~, DEONARDY+12*, DEONARDY+13 |
| SYNONYM | ADDOPTS~, ADDOPTS+1, ADDOPTS+6, ADDOPTS+9, DEONARDY~, DEONARDY+12 |
| TAB | ADDOPTS~, ADDOPTS+4*, ADDOPTS+10, ADDOPTS+12, ADDOPTS+13 |
| TEXT | CHNGOPTT~, CHNGOPTT+11, CHNGOPTT+13 |
| TOIEN | DEONARDY+5~, DEONARDY+6*, DEONARDY+7, DEONARDY+12, DEONARDY+13 |
| TOMENU | ADDOPTS~, ADDOPTS+1, ADDOPTS+7, ADDOPTS+9, ADDOPTS+10, ADDOPTS+12, DEONARDY~, DEONARDY+6 |
| U | BACKUP+29, LABJRNL+1 |
| USERNAME | USERID+1~, USERID+7*, USERID+8, USERID+10 |
| WOTERR | ENVCHK+6~, LETSGO+7 |
| >> X | ENVCHK+22*, ADDOPTS+5*, ADDOPTS+6*, ADDOPTS+7*, ADDOPTS+8, ADDOPTS+9*, ADDOPTS+10, ADDOPTS+11, ADDOPTS+13 |
| >> XPARSYS | LABJRNL+1 |
| >> XPDABORT | ENVCHK+24*, LETSGO+7, BACKUP+15*, SORRY+10* |
| >> XPDDIQ( | ENVCHK+22* |
| >> XPDENV | ENVCHK+22 |
| XPDNM | ENVCHK+8, ENVCHK+14, ENVCHK+15, ENVCHK+16, DEBUG+1~, DEBUG+3* |
| >> XPDNOQUE | ENVCHK+18* |
| >> XQXFLG | LABJRNL+1 |
| >> Y | BACKUP+14 |
| Name | Field # of Occurrence |
|---|---|
| $T( | ENVCHK+10, BACKUP+2, POST+3, POST+4 |