LR243 ;DALOI/FHS - LR*5.2*243 PATCH ENVIRONMENT CHECK & CONVERT ROUTINE ; 5/1/99 ;
Source file <LR243.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Does not prevent loading of the transport global.
; Environment check is done only during the install. |
|
END | ;
|
|
CONV | ;Convert data to new DD structure
|
|
PUNCT | ;Make venipuncture WKLD CODE(s) billable
|
|
UPDATE | ;
|
|
LMI | ;
|
|
DEL | ||
EXIT | ;
|
|
LNK6064 | ; Relink NATIONAL VA LAB CODE with WKLD CODE file
|
|
;Send message to G.LMI local mail group
|
||
CHECK | ; Perform environment check
|
|
MSGSET(SUB,TXT) | ;SUB=subscript - TXT = array containing the message
|
Name | Field # of Occurrence |
---|---|
^DIC | LMI+2, PUNCT+4 |
FILE^DIE | UPDATE+2, DEL+8 |
UPDATE^DIE | LNK6064+13 |
WP^DIE | DEL+10 |
$$IENS^DILF | CONV+12, DEL+7 |
$$FMTE^XLFDT | MAIL+6, DEL+5 |
$$NOW^XLFDT | MAIL+6, DEL+5 |
$$CJ^XLFSTR | CHECK+3, CHECK+6, CHECK+9, CHECK+13, CHECK+17, LMI+4, EXIT+1, EXIT+2, MAIL+1, MAIL+3 , MAIL+4, LNK6064+1 |
^XMD | MAIL+8 |
$$VERSION^XPDUTL | CHECK+11, CHECK+15 |
BMES^XPDUTL | CHECK+3, CHECK+6, CHECK+9, CHECK+13, CHECK+17, LMI+4, EXIT+1, EXIT+2, CONV+10, MAIL+1 , MAIL+3, MAIL+4, LNK6064+1, DEL+2, DEL+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^LAM - [#64] | Classic Fileman Calls, WP^DIE |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | LNK6064+6, LNK6064+7, LNK6064+9 |
^LAM - [#64] | CONV+5, CONV+6, CONV+7!, CONV+8, PUNCT+5, LNK6064+3!, LNK6064+8, DEL+3 |
^LAM("AE" | LNK6064+4! |
^LAM(0 | MAIL+10 |
^LRO(69 - [#69] | END+2! |
^TMP( | MAIL+1, MAIL+2, MSGSET+2, MSGSET+4*, MSGSET+5* |
^TMP("LRCPT" | CONV+1!, END+3! |
^TMP("LRCPT@" | CONV+1!, END+3! |
^TMP("LRCPTERR" | CONV+2!, END+3! |
^VA(200 - [#200] | CHECK+8 |
Name | Line Occurrences |
---|---|
CHECK | EN+3 |
DEL | CONV+10, UPDATE+3 |
EXIT | EN+4 |
LNK6064 | MAIL+9 |
MSGSET | DEL+9 |
UPDATE | CONV+12 |
Name | Field # of Occurrence |
---|---|
^(0 | MAIL+10*, PUNCT+5*, DEL+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | CONV+3*, END+4!, LNK6064+2~, LNK6064+5*, LNK6064+10*, UPDATE+1*, UPDATE+2, DEL+8, DEL+10 |
CNTT | LNK6064+2~, LNK6064+5*, LNK6064+11* |
CODE | LNK6064+2~, LNK6064+7*, LNK6064+8, LNK6064+12 |
DATA | LNK6064+2~, LNK6064+11*, LNK6064+12 |
DIC | LMI+1~, LMI+2*, PUNCT+2~, PUNCT+3* |
DIC(0 | LMI+2*, PUNCT+3* |
DIFROM | MAIL+5~ |
DUZ | CHECK+5, CHECK+8 |
DUZ(0 | CHECK+5 |
ERR | LNK6064+10! |
I | END+4!, LNK6064+2~, LNK6064+3*, MSGSET+1~, MSGSET+3*, MSGSET+4 |
IEN | LNK6064+2~, LNK6064+10!, LNK6064+12* |
IOM | CHECK+2 |
IOSL | CHECK+2 |
LR64 | LNK6064+2~ |
LRCMT | END+4!, MSGSET+2*, MSGSET+4*, MSGSET+5 |
LRDA | CONV+1!, CONV+6*, CONV+7, CONV+8, CONV+12, END+4!, DEL+7 |
LRDA(1 | CONV+5*, CONV+6, CONV+7, CONV+8, DEL+3, DEL+4, DEL+10 |
>> LRDBUG | END+1 |
LRDEL | CONV+1!, END+4!, DEL! |
LRDEL( | DEL+7* |
LRMSG | CONV+3*, END+4! |
LRN | CONV+8*, CONV+10, CONV+12, END+4!, DEL+2 |
LRNOP | DEL+1~, DEL+4*, DEL+8, DEL+10 |
LRROOT | CONV+1!, CONV+9!, END+4!, UPDATE+3 |
LRROOT( | CONV+12* |
LRS | CONV+10*, CONV+11*, CONV+12, END+4!, DEL+2 |
LRSUB | CONV+4*, MAIL+1, MAIL+2, END+4!, DEL+9 |
LRTXT | CONV+1!, END+4!, DEL+9 |
LRTXT(2 | DEL+2* |
LRTXT(3 | DEL+3*, DEL+4*, DEL+6 |
LRTXT(4 | CONV+4*, DEL+5* |
LRTXT(5 | CONV+4* |
LRX | LNK6064+2~, LNK6064+6*, LNK6064+7, LNK6064+9, LNK6064+11 |
NAME | LNK6064+2~, LNK6064+9* |
RT | LNK6064+2~, LNK6064+10! |
RT( | LNK6064+12* |
SUB | END+4!, MSGSET~, MSGSET+2, MSGSET+4, MSGSET+5 |
TXT | END+4!, MSGSET~ |
TXT( | MSGSET+3, MSGSET+4 |
U | CHECK+2, CONV+10, CONV+12, MAIL+10, PUNCT+5, LNK6064+7, LNK6064+9, DEL+2, DEL+3, MSGSET+2 , MSGSET+5 |
VER | CHECK+1~, CHECK+11*, CHECK+12, CHECK+15*, CHECK+16 |
X | LMI+1~, LMI+2*, PUNCT+2~, PUNCT+4* |
XMDUZ | MAIL+5~, MAIL+7*, END+5! |
XMSUB | MAIL+5~, MAIL+6*, END+5! |
XMTEXT | MAIL+5~, MAIL+7*, END+5! |
XMY | MAIL+5~, END+5! |
XMY("G.LMI" | MAIL+7* |
>> XPDENV | EN+2 |
>> XPDIQ("XPZ1" | LMI+7* |
>> XPDQUIT | CHECK+4*, CHECK+7*, CHECK+10*, CHECK+14*, CHECK+18*, LMI+5*, LMI+6, EXIT+1, EXIT+2 |
Y | LMI+1~, LMI+3, PUNCT+2~, PUNCT+4, PUNCT+5 |
>> ZTQUEUED | UPDATE+4 |