LRMIAU1 ;DALISC/RBN - Microbiology Audit PREPROCESSOR ;July 22, 2008
Source file <LRMIAU1.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILEAUD(DATA) | ;
; Replacement for FILEIT^LRMIAU1 ; Expects LRDFN,LRIDT,LREDT,LRSB ; Inputs ; DATA : <byref> (File#,field)=value ; Outputs ; Returns #63.539 IEN or 0 if record not created |
|
| DATAOK(LRFILE,LRFLD,LRVAL) | ;
; Checks if a value is appropriate for storing in the field ; Inputs ; LRFILE : File # ; LR FLD : Field # ; LRVAL : Value of the field |
| Name | Line Occurrences |
|---|---|
| $$DATAOK | FILEAUD+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATA | FILEAUD~ |
| DATA( | FILEAUD+14, FILEAUD+15 |
| DIERR | FILEAUD+8~ |
| DUZ | FILEAUD+13 |
| DUZ(2 | FILEAUD+17 |
| >> LRDFN | FILEAUD+9 |
| LREDT | FILEAUD+10~*, FILEAUD+11, FILEAUD+12 |
| LRFDA | FILEAUD+8~ |
| LRFDA(1 | FILEAUD+11*, FILEAUD+12*, FILEAUD+13*, FILEAUD+14*, FILEAUD+15*, FILEAUD+16*, FILEAUD+17* |
| LRFILE | DATAOK~, DATAOK+11 |
| LRFLD | DATAOK~, DATAOK+11 |
| >> LRIDT | FILEAUD+9 |
| LRIEN | FILEAUD+8~, FILEAUD+9*, FILEAUD+11, FILEAUD+12, FILEAUD+13, FILEAUD+14, FILEAUD+15, FILEAUD+16, FILEAUD+17 |
| LRIENS | FILEAUD+8~ |
| LRIENS(1 | FILEAUD+20 |
| LRMSG | FILEAUD+8~, DATAOK+9~, DATAOK+13 |
| LROUT | DATAOK+9~, DATAOK+11, DATAOK+12 |
| >> LRSB | FILEAUD+16 |
| LRVAL | DATAOK~, DATAOK+11 |
| STATUS | DATAOK+9~, DATAOK+10*, DATAOK+12*, DATAOK+13*, DATAOK+14 |
| X | FILEAUD+8~ |
