LA7CHKF ;DALOI/JMC - Check Lab Messaging File Integrity ;11/16/11 10:49
Source file <LA7CHKF.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Automated Lab Instruments | 3 | LA7 CHECK FILES LA7ADL2 LA7PURG |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Run an integrity check
|
|
DQ | ; Entry point from taskman
|
|
IC | ; File 62.49 Integrity checker and fix-er-upper.
|
|
CHKBX | ; Check "B" index on selected Lab files
|
|
FILE | ; Check "B" index on this file
|
|
LOG(X) | ; Log error in XTMP global.
; Call with X = error message to store. |
|
LOCK(LA7DA) | ; Lock entry in #62.49
; Call with LA7DA = entry to lock ; Returns 0 = failure to obtain lock ; 1 = lock obtained |
|
UNLOCK(LA7DA) | ; Unlock entry in #62.49
; Call with LA7DA = entry to lock |
|
LACHK() | ; Check ^LA("ADL","Q") for build up of entries.
; Send alert to mail group LAB MESSAGING warning about large # of entries. |
|
CHECKMG | ; Check if LAB MESSAGING and LMI mail groups has active members.
; Check mail groups specified for alerts in file #62.48 are valid and have active members. |
|
INIT | ; Initialize variables
|
Name | Field # of Occurrence |
---|---|
^%ZIS | EN+22 |
HOME^%ZIS | EN+25, EN+29 |
^%ZTLOAD | EN+29, DQ+31 |
ENALL^DIK | FILE+12, FILE+14 |
^DIR | EN+10, EN+17 |
DEL^LA7UXQA | CHECKMG+47, CHECKMG+63 |
$$DT^XLFDT | INIT+8 |
$$FMADD^XLFDT | INIT+9 |
$$NOW^XLFDT | DQ+9, INIT+7, INIT+9 |
$$GOTLOCAL^XMXAPIG | CHECKMG+19, CHECKMG+33, CHECKMG+60 |
SETUP^XQALERT | DQ+19, LACHK+11, CHECKMG+50, CHECKMG+68 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LA("ADL" | LACHK+4 |
^LAB( | FILE+7, FILE+8 |
^LAHM(62.48 - [#62.48] | CHECKMG+53, CHECKMG+55, CHECKMG+56, CHECKMG+57 |
^LAHM(62.49 - [#62.49] | IC+13, IC+26, IC+36, IC+48, IC+49, IC+60, IC+63, IC+64, IC+67!, IC+70 , IC+71*, IC+74, IC+75*, IC+78, IC+79*, IC+82, IC+83*, LOCK+9, UNLOCK+4 |
^TMP("XMERR" | CHECKMG+10!, CHECKMG+22, CHECKMG+25, CHECKMG+29!, CHECKMG+38, CHECKMG+40!, CHECKMG+59!, CHECKMG+65, CHECKMG+71, CHECKMG+78! |
^XTMP( | DQ+9*, DQ+10, IC+88*, IC+89*, LOG+7*, CHECKMG+76*, INIT+7, INIT+9* |
^XTMP("LA7CHECKMG" | CHECKMG+8* |
^XUSEC("LRLIASON" | CHECKMG+48 |
Name | Line Occurrences |
---|---|
$$LOCK | IC+12, IC+22, IC+35, IC+47, IC+61 |
CHECKMG | DQ+6 |
CHKBX | DQ+23 |
FILE | CHKBX+5 |
IC | DQ+6 |
INIT | DQ+6 |
LOG | IC+15, IC+25, IC+28, IC+38, IC+51, IC+68, IC+72, IC+76, IC+80, IC+84 , LOCK+11, CHECKMG+27, CHECKMG+28, CHECKMG+38, CHECKMG+39, CHECKMG+71, CHECKMG+72 |
UNLOCK | IC+16, IC+29, IC+36, IC+39, IC+53, IC+85 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | EN+20~, EN+21* |
%ZIS("A" | EN+21* |
%ZIS("B" | EN+21* |
DIK | FILE+4~, FILE+12*, FILE+13!, FILE+14* |
DIK(1 | FILE+12*, FILE+14* |
DIR | EN+4~, EN+15! |
DIR("?" | EN+16* |
DIR("A" | EN+9*, EN+16* |
DIR("B" | EN+9*, EN+16* |
DIR(0 | EN+8*, EN+16* |
DIROUT | EN+4~, EN+15! |
DIRUT | EN+4~, EN+11, EN+15!, EN+18 |
DT | DQ+22, CHECKMG+8, INIT+8*, INIT+9 |
DTOUT | EN+4~, EN+15! |
DUOUT | EN+4~, EN+15! |
DUZ | DQ+17, LACHK+9 |
ION | EN+24 |
LA76248 | CHECKMG+5~, CHECKMG+52*, CHECKMG+53*, CHECKMG+55, CHECKMG+56, CHECKMG+57 |
LA7CFG | IC+6~, IC+44*, IC+50 |
LA7CHKBX | EN+5~, EN+7*, DQ+22*, DQ+23, DQ+24! |
LA7CNT | LACHK+2~, LACHK+3*, LACHK+4*, LACHK+5, LACHK+7, LACHK+12 |
LA7DA | IC+6~, IC+11*, IC+12, IC+13, IC+15, IC+16, IC+21*, IC+22, IC+23, IC+26 , IC+28, IC+29, IC+34*, IC+35, IC+36, IC+38, IC+39, IC+46*, IC+47, IC+48 , IC+49, IC+51, IC+53, IC+59*, IC+60*, IC+61, IC+63, IC+64, IC+67, IC+68 , IC+70, IC+71, IC+72, IC+74, IC+75, IC+76, IC+78, IC+79, IC+80, IC+82 , IC+83, IC+84, IC+85, LOCK~, LOCK+8*, LOCK+9, LOCK+11, UNLOCK~, UNLOCK+3*, UNLOCK+4 , LACHK+2~, LACHK+3*, LACHK+4* |
LA7DAT | IC+6~, IC+11*, IC+13 |
LA7ECNT | DQ+4~, DQ+12, DQ+14, IC+88, LOG+5*, LOG+7, CHECKMG+11, CHECKMG+75, INIT+12* |
LA7FIX | EN+5~, EN+12*, EN+13*, IC+14, IC+24, IC+27, IC+37, IC+52, IC+67, IC+71 , IC+75, IC+79, IC+83, IC+89, LOG+6, CHECKMG+5~, CHECKMG+11*, INIT+4* |
LA7I | CHECKMG+5~, CHECKMG+54*, CHECKMG+55*, CHECKMG+57 |
LA7I(0 | CHECKMG+56*, CHECKMG+71, CHECKMG+72 |
LA7IC | DQ+4~, DQ+9, DQ+10, DQ+15, DQ+16, IC+88, IC+89, LOG+7, CHECKMG+76, INIT+7* , INIT+9 |
LA7INAME | IC+6~, IC+34*, IC+36 |
LA7ION | EN+5~, EN+24*, DQ+27, DQ+29 |
LA7LOG | EN+5~, EN+7*, DQ+8, DQ+15, IC+15, IC+25, IC+28, IC+38, IC+51, IC+68 , IC+72, IC+76, IC+80, IC+84, IC+87, LOCK+11, CHECKMG+24, CHECKMG+37, CHECKMG+70, CHECKMG+74 , INIT+5*, INIT+6 |
LA7MGERRORS | CHECKMG+5~, CHECKMG+11*, CHECKMG+75*, CHECKMG+76 |
LA7MGERRORS( | CHECKMG+61, CHECKMG+69* |
LA7MGERRORS(" | LAB MESSAGING" , CHECKMG+20* |
LA7MGERRORS("LMI" | CHECKMG+34* |
LA7Q | IC+6~, IC+45*, IC+50 |
LA7QUIT | EN+5~, EN+23*, EN+25 |
LA7ROOT | IC+6~, IC+9*, IC+10*, IC+11, IC+14, IC+15, IC+19*, IC+20*, IC+21, IC+23 , IC+24, IC+25, IC+27, IC+28, IC+32*, IC+33*, IC+34, IC+37, IC+38, IC+42* , IC+43*, IC+44, IC+45, IC+46, IC+51, IC+52 |
>> LA7TCNT | IC+59*, IC+62*, IC+88 |
LA7X | CHECKMG+5~ |
LA7XQA | DQ+4~, DQ+18, CHECKMG+48*, CHECKMG+49, CHECKMG+67 |
LA7XQA("" | CHECKMG+48 |
LA7XQA("G.LAB | MESSAGING" , CHECKMG+30* |
LA7XQA("G.LMI" | CHECKMG+23*, CHECKMG+40!, CHECKMG+41* |
LA7Y | LOCK+7~, LOCK+8*, LOCK+10*, LOCK+11, LOCK+12, CHECKMG+5~, CHECKMG+57*, CHECKMG+58, CHECKMG+60, CHECKMG+61 , CHECKMG+62, CHECKMG+64, CHECKMG+65, CHECKMG+69, CHECKMG+71, CHECKMG+72 |
LRFN | CHKBX+2~, CHKBX+3*, CHKBX+4, FILE+7, FILE+8, FILE+12, FILE+14 |
LRIEN | FILE+4~, FILE+6*, FILE+7, FILE+8 |
LRNAME | FILE+4~, FILE+7*, FILE+8*, FILE+9 |
LRROOT | CHKBX+2~, CHKBX+4*, FILE+5*, FILE+6, FILE+7, FILE+9 |
>> POP | EN+23 |
X | EN+4~, EN+15!, IC+6~, LOG~, LOG+6*, LOG+7, LACHK+2~ |
X( | IC+49*, IC+50, IC+64*, IC+82, IC+83, IC+84 |
X(0 | IC+48*, IC+50, IC+63*, IC+65, IC+69, IC+73, IC+77, IC+81 |
XMERR | CHECKMG+5~ |
XQA | DQ+13~, DQ+18*, LACHK+6~, CHECKMG+5~, CHECKMG+49*, CHECKMG+66!, CHECKMG+67* |
XQA( | DQ+17*, LACHK+9* |
XQA("G.LAB ME | SSAGING" , LACHK+10* |
XQADATA | DQ+13~, DQ+15*, LACHK+6~ |
XQAID | DQ+13~, DQ+16*, LACHK+6~, LACHK+8*, CHECKMG+5~, CHECKMG+46*, CHECKMG+47, CHECKMG+62*, CHECKMG+63 |
XQAMSG | DQ+13~, DQ+14*, LACHK+6~, LACHK+7*, CHECKMG+5~, CHECKMG+11*, CHECKMG+21*, CHECKMG+22*, CHECKMG+26*, CHECKMG+35* , CHECKMG+36*, CHECKMG+45, CHECKMG+64*, CHECKMG+65* |
XQAOPT | DQ+13~, LACHK+6~ |
XQAROU | DQ+13~, DQ+15*, LACHK+6~ |
Y | EN+4~, EN+12, EN+13, EN+15!, EN+19, IC+6~, IC+65*, IC+66, IC+69*, IC+70 , IC+71, IC+72, IC+73*, IC+74, IC+75, IC+77*, IC+78, IC+79, IC+80, IC+81* , IC+82, IC+83, IC+84, LACHK+2~ |
ZTDESC | EN+4~, EN+27*, DQ+28~, DQ+30* |
ZTDTH | DQ+28~, DQ+29* |
ZTIO | EN+4~, EN+28*, DQ+28~, DQ+29* |
>> ZTQUEUED | DQ+33 |
>> ZTREQ | DQ+33* |
ZTRTN | EN+4~, EN+27*, DQ+28~, DQ+29* |
ZTSAVE | EN+4~, DQ+28~ |
ZTSAVE("LA7*" | EN+28* |
ZTSAVE("LA7IC" | DQ+29* |
ZTSK | EN+4~, EN+30, DQ+28~ |