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