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 |