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 |