LRJSAU ;ALB/PO/DK/TMK Lab Audit Manager ;13 Jul 2009 2:29 AM
Source file <LRJSAU.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 |
---|---|---|
Lab Service | 5 | LR425 LRJ SYS MAP AUF60 LRJSAU2 LRJSAU3 LRJSAU60 |
Kernel | 1 | ^DIC(19 |
Name | Comments | DBIA/ICR reference |
---|---|---|
F60 | ;File 60 entry point
|
|
EN2 | ; -- main entry point for LRJ SYS AUF60 MANAGER (file 60)
; -- required interface routine variable |
|
HDR2 | ; -- header code
|
|
BUILD | ; -- build display array
|
|
HELP | ; -- help code
|
|
EXIT | ; -- exit code
|
|
EXPND | ; -- expand code
|
|
INIT | ; -- init variables and list array
|
|
BLDNUM() | ; -- returns the build number
|
|
VERNUM() | ; -- returns the version number for this build
|
|
CLEAR | ; -- clean up entries
|
|
REFRESH | ; -- refresh display
|
|
KILL | ; -- kill off build data
|
|
AUDSET | ; enable audit fields for file 60
; called from POST^LR425 ; ICR 4122 |
|
ADD(VALMCNT,MSG,LRBOLD) | ; -- add line to build display
|
|
AFLDS | ;fields to be audited according to SRS
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> IOINHI | ADD+3 |
>> IOINORM | ADD+3 |
LRAFLDS | AUDSET+3~, AUDSET+4*, AUDSET+5, AUDSET+7, AUDSET+8, AUDSET+10 |
LRAUDFIL | AUDSET+3~, AUDSET+5*, AUDSET+6, AUDSET+7*, AUDSET+8*, AUDSET+10 |
LRBOLD | ADD~, ADD+3 |
LRI | AUDSET+3~, AUDSET+4* |
LRJSROU | EN2+2~* |
LRSTR | AUDSET+3~ |
LRSUB | AUDSET+3~ |
MSG | ADD~, ADD+2 |
>> VALMBCK | REFRESH+3*, KILL+4* |
>> VALMBG | KILL+3* |
VALMCNT | BUILD+2*, INIT+3*, ADD~, ADD+1*, ADD+2, ADD+3 |
>> VALMHDR(1 | HDR2+1* |
>> VALMHDR(2 | HDR2+2* |
X | HELP+1~, HELP+2* |
Name | Field # of Occurrence |
---|---|
$T(AFLDS+LRI | AUDSET+4 |
$T(LRJSAU+1 | BLDNUM+1, VERNUM+1 |