©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
LR334 ;VA/DALOI/FHS - LR*5.2*334 PATCH ENVIRONMENT CHECK ROUTINE;31-AUG-2001
Source file <LR334.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 5 | ($$FMTE,$$HTE,$$NOW)^XLFDT $$CJ^XLFSTR BMES^XPDUTL SETUP^XQALERT $$ACTIVE^XUSER |
| VA Fileman | 2 | (,IXALL)^DIK EN^DIU2 |
| Health Data and Informatics | 1 | SETSTAT^HDISVF01 |
| Lab Service | 1 | (POST,SCR)^LR334PO |
| MailMan | 1 | ^XMD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;Pre-install entry point
|
|
| BMES(STR) | ;Write BMES^XPDUTL statements
|
|
| CHKNM | ; Make sure the patch name exist
|
|
| NEWLST | ;Build list of added WKLD CODES
|
|
| DD | ;Purge .001 from installed files
|
|
| EXIT | ;
|
|
| ENV | ; Does not prevent loading of the transport global.
; Environment check is done only during the install. |
|
| ;Send message to G.LMI local mail group of added 64 codes
|
||
| POST | ;Post install
|
|
| CHECK | ; Perform environment check
|
| Name | Field # of Occurrence |
|---|---|
| ^DIK | PRE+5, PRE+6, DD+5 |
| IXALL^DIK | DD+7 |
| EN^DIU2 | PRE+7, PRE+9, PRE+11, PRE+13, PRE+15, PRE+17, PRE+19 |
| SETSTAT^HDISVF01 | DD+13, DD+14 |
| POST^LR334PO | POST+1 |
| SCR^LR334PO | NEWLST+5 |
| $$FMTE^XLFDT | NEWLST+9 |
| $$HTE^XLFDT | EXIT+4, DD+17 |
| $$NOW^XLFDT | NEWLST+9 |
| $$CJ^XLFSTR | BMES+1 |
| ^XMD | NEWLST+11 |
| BMES^XPDUTL | BMES+1 |
| SETUP^XQALERT | EXIT+7, DD+19 |
| $$ACTIVE^XUSER | CHECK+7 |
| FileNo | Call Tags |
|---|---|
| ^LAM - [#64] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB( | DD+12* |
| ^LAM("VR" | DD+10* |
| ^LAM(0 | DD+9* |
| ^XTMP("LRNLT" | NEWLST+3 |
| Name | Line Occurrences |
|---|---|
| BMES | CHKNM+3, CHECK+2, CHECK+5, CHECK+8, EXIT+2, EXIT+3, EXIT+5, PRE+21, DD+16, NEWLST+6 , NEWLST+12 |
| CHECK | CHKNM+6 |
| EXIT | CHKNM+2, CHKNM+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | PRE+4~, PRE+5*, PRE+6*, DD+3~, DD+4* |
| DA(1 | PRE+5*, PRE+6*, DD+4* |
| DIFROM | MAIL+1~ |
| DIK | PRE+4~, PRE+5*!, PRE+6*!, DD+3~, DD+4*, DD+6~, DD+7* |
| DIU | PRE+4~, PRE+7*, PRE+8!, PRE+9*, PRE+10!, PRE+11*, PRE+12!, PRE+13*, PRE+14!, PRE+15* , PRE+16!, PRE+17*, PRE+18!, PRE+19*, PRE+20! |
| DIU(0 | PRE+7*, PRE+9*, PRE+11*, PRE+13*, PRE+15*, PRE+17*, PRE+19* |
| DUZ | CHECK+4, CHECK+7 |
| DUZ(0 | CHECK+4 |
| IOM | CHECK+1, BMES+1 |
| IOSL | CHECK+1 |
| LRDA | DD+2*, DD+4, DD+20! |
| >> LRDBUG | DD+1 |
| LRI | DD+11~, DD+12* |
| LRIEN | MAIL+1~ |
| LRLAST64 | NEWLST+2! |
| LRN | MAIL+1~ |
| LRPRT | DD+20!, NEWLST+4 |
| LRVR | DD+9*, DD+10, DD+12, DD+20! |
| STR | BMES~, BMES+1 |
| U | CHECK+1, DD+9 |
| XMDUZ | MAIL+1~, NEWLST+8~, NEWLST+10* |
| XMSUB | MAIL+1~, NEWLST+8~, NEWLST+9* |
| XMTEST | NEWLST+8~ |
| XMTEXT | MAIL+1~, NEWLST+10* |
| XMY | MAIL+1~, NEWLST+8~ |
| XMY("G.LMI" | NEWLST+10* |
| >> XPDIQ("XPZ1" | CHECK+10* |
| >> XPDNM | CHKNM+2, EXIT+4, PRE+1, DD+17 |
| >> XPDQUIT | CHKNM+4*, CHECK+3*, CHECK+6*, CHECK+9*, EXIT+2 |
| XQA | ENV+3~, EXIT+1~ |
| XQA("G.LMI" | EXIT+6*, DD+18* |
| XQAMSG | ENV+3~, EXIT+4*, DD+17* |
| >> XUMF | CHKNM+1* |
| Name | Field # of Occurrence |
|---|---|
| $T( | DD+9 |
| $T(SETSTAT^HDISVF01 | DD+13 |