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 |