©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
LR329 ;VA/DALOI/JMC - LR*5.2*329 PATCH ENVIRONMENT CHECK ROUTINE ;24 Jan 2004
Source file <LR329.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRE | ; KIDS Pre install
|
|
| POST | ; KIDS Post install
|
|
| EN | ; Does not prevent loading of the transport global.
; Environment check is done only during the install. |
|
| EXIT | ;
; I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",80)) ; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",80)) |
|
| CHECK | ; Perform environment check
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | POST+8 |
| $$HTE^XLFDT | EN+6, EN+11, EN+13, POST+16 |
| $$CJ^XLFSTR | EN+11, CHECK+2, CHECK+5, CHECK+8, EXIT+4, EXIT+5, PRE+1, PRE+2, PRE+3, POST+2 , POST+5, POST+9, POST+14 |
| BMES^XPDUTL | EN+11, CHECK+2, CHECK+5, CHECK+8, EXIT+4, EXIT+5, PRE+1, PRE+2, PRE+3, POST+2 , POST+5, POST+9, POST+14 |
| $$ACTIVE^XUSER | CHECK+7 |
| Name | Line Occurrences |
|---|---|
| CHECK | EN+18 |
| EXIT | EN+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DUZ | CHECK+4, CHECK+7 |
| DUZ(0 | CHECK+4 |
| IOM | EN+11, CHECK+1 |
| IOSL | CHECK+1 |
| U | CHECK+1 |
| >> XPDENV | EN+5 |
| >> XPDIQ("XPZ1" | CHECK+10* |
| >> XPDNM | EN+6, EN+11, EN+13, EXIT+4, EXIT+5, POST+14, POST+16, POST+20 |
| >> XPDQUIT | CHECK+3*, CHECK+6*, CHECK+9*, EXIT+4, EXIT+5 |
| XQA | EN+3~, POST+1~ |
| XQA("G.LMI" | EN+7*, EN+14*, POST+17*, POST+21* |
| XQAMSG | EN+3~, EN+6*, EN+13*, POST+1~, POST+16*, POST+20* |
| ZTDESC | POST+1~, POST+6* |
| ZTDTH | POST+1~, POST+7* |
| ZTIO | POST+1~, POST+7* |
| ZTRTN | POST+1~, POST+6* |
| ZTSAVE | POST+1~ |
| ZTSK | POST+1~, POST+9 |