LRJSAU60 ;ALB/PO/DK/TMK Lab File 60 Audit Manager ;08/16/2010 15:54:29
Source file <LRJSAU60.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AUDSET | ; -- enable audit fields for file 60
; Called from: ; LRJ SYS SET AUDITED FLAG FOR FIELDS protocol |
|
| AUDLIST | ; -- list file 60 audited fields
; Called from: ; LRJ SYS LIST AUDITED FIELDS protocol |
|
| AUDISP | ; -- Display file 60 changes
; Called from: ; LRJ SYS DISPLAY FILE 60 CHANGES protocol ; ; VALMCNT - [global/Input/Output] last entry in List Manager ; VALMAR - [global/Output] reference to List Manager buffer ; like "^TMP("LRJ SYS ORDERS MANAGER",$JOB)" ; |
|
| AUDCHK(DISPLAY) | ; -- check files/fields to see if they are audited for file 60
; ; DISPLAY - [Input/Optional] ; - if 0 or does not exist, return 1 if all fields in the list are audited, 0 otherwise ; if 1 or -1 populate the VALMCNT array too as described below. ; - if 1 populate VALMCNT for all the fields in the list and change the VALM header ; - if -1 populate VALMCNT for all the fields that their audit field is turned off, but do not change the VALM header ; ; VALMCNT - [global/Input/Output] last entry in List Manager ; VALMAR - [global/Output] reference to List Manager list of fields that their audit is on or off, ; like "^TMP("LRJ SYS ORDERS MANAGER",$JOB)" |
|
| AUDCHK2(XFILENUM,XFLDSUB,LRAFLDS) | ;
; XFILENUM (input) - file or subfile # if known ; XFLDSUB (input/opt) - If a subfield and subfile not in XFILENUM, this is the field # for the subfile |
|
| ISAUDON(FILENUM,FLDNUM) | ; -- is audit on for the given file/field number
|
|
| GFLDSB(FILENUM,FLDNUM) | ;if field is multiple, return subfile #
|
|
| GFILENM(FILENUM) | ; -- get the file/subfile name for given file ien
|
|
| GFLDNM(FILENUM,FLDNUM) | ; -- get the field name for given file/sub-file ien and field number
|
|
| GMONLIST(FILENUM,MONLIST) | ; return the list of fields to be monitored from configuration file.
|
|
| FILENUM(LROUT) | ;
|
|
| GIENLIST(FILENUM,IENLIST) | ; get list of entries (ien) For a given file into IENLIST array.
|
|
| DATEENT(LRPRMPT,LRBD,LRED) | ;Prompt for extract date
|
|
| MSG2 | ; -- set default message
|
|
| GIOP(DEVICE) | ; -- return the device if exist and it is not FORCED to queue, otherwise return ""
|
|
| SETTMP(D0,LRIEN,LRDT,LRUSER,LRFLDNM,LRFNUM,LROLD,LRNEW) | ;
; ^TMP("LRDATA",$J,OLD/NEW determination,test ien,data element)=data element value |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| 60.01 | GET1^DIQ |
| ^LABAUD(64.9178 - [#64.9178] | GETS^DIQ |
