©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
LR302 ;DALOI/FHS - LR*5.2*302 PATCH ENVIRONMENT CHECK ROUTINE;31-AUG-2001
Source file <LR302.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ;Pre-install entry point
|
|
| DUP64 | ;Check ^LAM for duplicate Names or NLT codes
|
|
| BMES(STR) | ;EP - Write BMES^XPDUTL statements
|
|
| TEXT | ; Alert the user that file #64 should not have any error before and after installing
|
|
| CHKNM | ; Make sure the patch name exist
|
|
| DD | ||
| EXIT | ;
|
|
| DUP64P | ||
| ENV | ; Does not prevent loading of the transport global.
; Environment check is done only during the install. |
|
| DUPCHK | ;
|
|
| STAR | ;
|
|
| POST | ;Post install repointing of historical data
|
|
| CHECK | ; Perform environment check
|
|
| PTRSAV | ;Save pointer values into XTMP("LR302" to repointed after install
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | PTRSAV+5, PTRSAV+10 |
| ^DIK | DUPCHK+10, DD+2, DD+3 |
| EN^DIU2 | PRE+6, PRE+8, PRE+10, PRE+12, PRE+14, PRE+16, PRE+18 |
| BMES^LR302 | POST+4 |
| ^LR302A | PTRSAV+12 |
| ^LR302P | POST+2 |
| POST^LR302PO | POST+1 |
| $$HTE^XLFDT | EXIT+4, POST+5 |
| $$HTFM^XLFDT | DUP64P+3 |
| $$CJ^XLFSTR | BMES+1 |
| BMES^XPDUTL | BMES+1 |
| MES^XPDUTL | DUPCHK+13 |
| SETUP^XQALERT | EXIT+7, POST+7 |
| $$ACTIVE^XUSER | CHECK+7 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^LAM - [#64] | FIND1^DIC |
| ^LAB(64.22 - [#64.22] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAM - [#64] | DUPCHK+4, DUPCHK+5, PTRSAV+9, PTRSAV+11* |
| ^LAM(0 | PTRSAV+4 |
| ^LRO(64.1 - [#64.1] | DUP64P+4, DUP64P+6, DUP64P+7 |
| ^XTMP("LRNLTD" | DUP64P, DUP64P+3*, DUP64P+8, DUPCHK+9, DUPCHK+12 |
| Name | Line Occurrences |
|---|---|
| BMES | CHKNM+2, CHECK+2, CHECK+5, CHECK+8, DUP64+1, DUPCHK+15, DUPCHK+16, DUPCHK+17, EXIT+2, EXIT+3 , EXIT+5, DD+4, PTRSAV+1, TEXT+2, TEXT+3, TEXT+4, TEXT+5, TEXT+6 |
| CHECK | CHKNM+5 |
| DUP64P | PTRSAV+3 |
| DUPCHK | DUP64P |
| EXIT | CHKNM+1, CHKNM+6 |
| PTRSAV | PRE+3 |
| TEXT | EXIT+7, POST+8 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DUP64P+8*, DUPCHK+5 |
| ^(0 | PTRSAV+4*, PTRSAV+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | DUPCHK+1~, DUPCHK+3*, DUPCHK+5*, DUPCHK+6*, DUPCHK+7*, DUPCHK+8, DUPCHK+11 |
| DA | DUPCHK+1~, DUPCHK+10*, PRE+5~, DD+1~, DD+2*, DD+3* |
| DA(1 | DD+2*, DD+3* |
| DIK | DUPCHK+1~, DUPCHK+2*, PRE+5~, DD+1~, DD+2*!, DD+3* |
| DIU | PRE+5~, PRE+6*, PRE+7!, PRE+8*, PRE+9!, PRE+10*, PRE+11!, PRE+12*, PRE+13!, PRE+14* , PRE+15!, PRE+16*, PRE+17!, PRE+18* |
| DIU(0 | PRE+6*, PRE+8*, PRE+10*, PRE+12*, PRE+14*, PRE+16*, PRE+18* |
| DT | DUP64P+3 |
| DUP | DUPCHK+1~, DUPCHK+5! |
| DUP( | DUPCHK+6*, DUPCHK+7, DUPCHK+8, DUPCHK+11 |
| DUZ | CHECK+4, CHECK+7 |
| DUZ(0 | CHECK+4 |
| ERR | PTRSAV+2~ |
| IEN | DUPCHK+1~, DUPCHK+3*, DUPCHK+5*, DUPCHK+6, PTRSAV+7~, PTRSAV+8*, PTRSAV+9, PTRSAV+11 |
| IENX | DUPCHK+1~, DUPCHK+8*, DUPCHK+9, DUPCHK+10, DUPCHK+12 |
| IOM | CHECK+1, BMES+1 |
| IOSL | CHECK+1 |
| LAST | PRE+2~ |
| LRDT | DUP64P+2~, DUP64P+6*, DUP64P+7 |
| LRDTLB | PTRSAV+2~ |
| LRIEN | PTRSAV+2~ |
| LRIENSUB | PTRSAV+2~ |
| LRINS | DUP64P+2~, DUP64P+4*, DUP64P+6, DUP64P+7 |
| LRNLT | DUP64P+2~, DUP64P+7*, DUP64P+8 |
| LRNODE | PTRSAV+2~ |
| LRPOST | DUPCHK+2, DUPCHK+9, DUPCHK+14, POST+8~*, PTRSAV+2~, PTRSAV+3*!, TEXT+6 |
| LRPTR | PTRSAV+2~ |
| NAM | DUPCHK+1~, DUPCHK+3*, DUPCHK+4*, DUPCHK+5, DUPCHK+6 |
| STR | BMES~, BMES+1, TEXT+1~, TEXT+2*, TEXT+3*, TEXT+4*, TEXT+5*, TEXT+6* |
| TEXT | DUPCHK+1~, DUPCHK+11*, DUPCHK+12*, DUPCHK+13, STAR+1 |
| U | CHECK+1, DUP64P+3, DUPCHK+6, DUPCHK+8, DUPCHK+12, PTRSAV+4, PTRSAV+9, PTRSAV+11, STAR+1 |
| VAL | PTRSAV+7~, PTRSAV+10*, PTRSAV+11 |
| X | PTRSAV+2~ |
| >> XPDIQ("XPZ1" | CHECK+10* |
| >> XPDNM | CHKNM+1, EXIT+4, PRE+1, POST+5 |
| >> XPDQUIT | CHKNM+3*, CHECK+3*, CHECK+6*, CHECK+9*, EXIT+2 |
| XQA | ENV+3~, EXIT+1~ |
| XQA("G.LMI" | EXIT+6*, POST+6* |
| XQAMSG | ENV+3~, EXIT+4*, POST+5* |
| XREF | DUPCHK+1~, DUPCHK+3*, DUPCHK+4, DUPCHK+5, DUPCHK+12, STAR+1 |
| Y | PTRSAV+2~, PTRSAV+5*, PTRSAV+6, PTRSAV+8 |