LR291 ;DAL/WTY - LR*5.2*291 PATCH ENVIRONMENT CHECK ROUTINE ;8/10/04
Source file <LR291.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Does not prevent loading of the transport global.
; Environment check is done only during the install. |
|
| CHECK | ; Perform environment check
|
|
| EXIT | ;
|
|
| PRE | ; KIDS Pre install for LR*5.2*291
|
|
| POST | ; KIDS Post install for LR*5.2*291
|
|
| P68 | ; Modify the RESPONIBLE OFFICAL in #68
|
|
| SET(TIEN,RO) | ; Set #68
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | P68+6, P68+9 |
| ^DIC | P68+11 |
| UPDATE^DIE | SET+4 |
| $$GET1^DIQ | P68+7 |
| $$HTE^XLFDT | EN+6, PRE+4, POST+25 |
| $$CJ^XLFSTR | EN+10, CHECK+3, CHECK+8, CHECK+13, EXIT+3, EXIT+5, PRE+9, PRE+11, PRE+15, PRE+17 , POST+3, POST+20, POST+22, POST+30 |
| $$OPTDE^XPDUTL | PRE+13, POST+18 |
| BMES^XPDUTL | EN+10, CHECK+3, CHECK+8, CHECK+13, EXIT+3, EXIT+5, PRE+9, PRE+11, PRE+15, PRE+17 , POST+3, POST+16, POST+20, POST+22, POST+30 |
| SETUP^XQALERT | EN+8, PRE+6, POST+27 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls |
| ^LRO(68 - [#68] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LRO(68 - [#68] | P68+3, P68+4, P68+5 |
| ^VA(200 - [#200] | CHECK+11, P68+8 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | P68+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | P68+1~, P68+3*, P68+4, P68+5, P68+6 |
| B | P68+1~, P68+4*, P68+5, P68+7, P68+13 |
| DIC | P68+1~, P68+10*, P68+11*, P68+12! |
| DIC("A" | P68+10* |
| DIC("B" | P68+11* |
| DIC(0 | P68+11* |
| >> DTOUT | P68+12 |
| >> DUOUT | P68+12 |
| DUZ | CHECK+6, CHECK+11 |
| DUZ(0 | CHECK+6 |
| ENT | P68+1~, P68+9* |
| FIL | SET+1~, SET+2*, SET+3 |
| HD | P68+1~, P68+6* |
| IEN | SET+1~, SET+2*, SET+3 |
| IOM | CHECK+2 |
| IOSL | CHECK+2 |
| LRFDA | SET+1~ |
| LRFDA(99 | SET+3* |
| MSG | EN+9*, EN+10!, CHECK+7*, CHECK+8!, CHECK+12*, CHECK+13!, EXIT+2*, EXIT+3!, PRE+8*, PRE+9! , PRE+14*, PRE+15!, POST+5!, POST+16!, POST+19*, POST+20!, POST+29*, POST+30! |
| MSG(1 | POST+6* |
| MSG(10 | POST+15* |
| MSG(2 | POST+7* |
| MSG(3 | POST+8* |
| MSG(4 | POST+9* |
| MSG(5 | POST+10* |
| MSG(6 | POST+11* |
| MSG(7 | POST+12* |
| MSG(8 | POST+13* |
| MSG(9 | POST+14* |
| QT | P68+1~, P68+2*, P68+3, P68+4, P68+12* |
| RO | SET~, SET+3 |
| TIEN | SET~, SET+2 |
| U | CHECK+2 |
| USR | P68+1~, P68+8*, P68+9, P68+11 |
| >> X | P68+7*, P68+8 |
| >> XPDDIQ("XPZ1" | CHECK+16* |
| >> XPDENV | EN+3 |
| >> XPDNM | EN+5, PRE+3, POST+24 |
| >> XPDQUIT | CHECK+4*, CHECK+9*, CHECK+14*, EXIT+1, EXIT+4 |
| XQA | EN+4~, PRE+2~, POST+2~ |
| XQA("G.LMI" | EN+7*, PRE+5*, POST+26* |
| XQAMSG | EN+4~, EN+5*, EN+6*, PRE+2~, PRE+3*, PRE+4*, POST+2~, POST+24*, POST+25* |
| Y | PRE+13*, POST+18*, P68+1~, P68+12, P68+13 |
