LRVRMI3 ;DALOI/STAFF - LAB MICRO LEDI INTERFACE ;09/07/16 08:09
Source file <LRVRMI3.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 |
|---|---|---|
| NODE(LRNODE) | ; Process similar multiples - nodes 15,19-31
; Call with LRNODE = node in MI subscript to process |
|
| SETPL(NODE) | ; Setup LRPL array
; Call with NODE = node in MI subscript to retrieve the performing lab |
|
| STOREPL(NODE) | ; Set performing lab
; Call with NODE = node in MI subscript to retrieve the performing lab |
|
| DUPCHK(LRLL,LRPROF,LRCMT,LRCOM) | ; Check for duplicates - comment stripped if spaces, force to upper case unless
; flag set to store duplicates (Field #2.2 of PROFILE multiple in file #68.2) |
|
| STAT4CMT(FILE,STAT,LRSTATUS) | ; Calculate status for comment nodes (eg BACT SMEAR)
; Inputs ; FILE: The file # of the comment field in #63. ; STAT: The status (eg F) ; LRSTATUS:<byref> Input and Output ; Outputs ; LRSTATUS: |
|
| RPTDT(LRDFN,LRIDT,SUBSCR,RPTDT,USER) | ; File Report Approved Date and Person Reporting
; Inputs ; LRDFN: LRDFN ; LRIDT: LRIDT ; SUBSCR: MI Result Subscript (eg 19,21,23,24,25,26) ; RPTDT: Report Approved Date/Time ; USER: Person Reporting (#200) ; Outputs ; Returns 0^ErrNum^ErrMsg on error, 1 on success |
|
| NODE2FLD(NODE) | ; Resolve the fields to update based on the node
; Call with NODE = node in MI subscript to process |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | NODE+8 |
| ^LRO(68.2 - [#68.2] | DUPCHK+12 |
| ^TMP("LRMI" | NODE+11, NODE+12, NODE+18, NODE+19, NODE+25, NODE+26, SETPL+4 |
| Name | Line Occurrences |
|---|---|
| $$NODE2FLD | RPTDT+15 |
| $$RPTDT | NODE+41 |
| STAT4CMT | NODE+21, NODE+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIERR | NODE+3~, RPTDT+9~ |
| DUZ | NODE+41, RPTDT+14 |
| FIELDS | NODE2FLD+5~, NODE2FLD+6*, NODE2FLD+9*, NODE2FLD+10*, NODE2FLD+11*, NODE2FLD+12*, NODE2FLD+13*, NODE2FLD+15 |
| FILE | STAT4CMT~, STAT4CMT+10, STAT4CMT+11, STAT4CMT+12, STAT4CMT+13, STAT4CMT+14, STAT4CMT+15, STAT4CMT+16, STAT4CMT+17, STAT4CMT+18 , STAT4CMT+19, STAT4CMT+20, STAT4CMT+21, STAT4CMT+22, STAT4CMT+23 |
| FLD | STAT4CMT+7~, STAT4CMT+8*, STAT4CMT+10*, STAT4CMT+11*, STAT4CMT+12*, STAT4CMT+13*, STAT4CMT+14*, STAT4CMT+15*, STAT4CMT+16*, STAT4CMT+17* , STAT4CMT+18*, STAT4CMT+19*, STAT4CMT+20*, STAT4CMT+21*, STAT4CMT+22*, STAT4CMT+23*, STAT4CMT+25 |
| FLDS | RPTDT+9~, RPTDT+11*, RPTDT+15*, RPTDT+17, RPTDT+19, RPTDT+20 |
| IEN | NODE+3~, NODE+10*, NODE+11*, NODE+12, NODE+14, NODE+22, NODE+25, NODE+26, NODE+29, NODE+35* , NODE+36*, NODE+37, SETPL+4, SETPL+5, STOREPL+2~, STOREPL+3*, STOREPL+4*, RPTDT+9~, RPTDT+18*, RPTDT+19 , RPTDT+20 |
| LRCMT | NODE+3~, NODE+8*, NODE+13, DUPCHK~ |
| LRCMT( | DUPCHK+14, DUPCHK+15 |
| LRCOM | DUPCHK~, DUPCHK+13 |
| LRDFN | NODE+8, NODE+11, NODE+12, NODE+14, NODE+18, NODE+19, NODE+25, NODE+26, NODE+37, NODE+41 , SETPL+4, STOREPL+4, RPTDT~, RPTDT+11*, RPTDT+15, RPTDT+18 |
| LRDUP | DUPCHK+10~, DUPCHK+11*, DUPCHK+14, DUPCHK+16*, DUPCHK+17 |
| >> LRDUZ | NODE+41, RPTDT+14 |
| LRERR | NODE+3~ |
| LRFDA | NODE+3~, NODE+32, RPTDT+9~ |
| LRFDA(1 | NODE+14*, RPTDT+19*, RPTDT+20* |
| LRFDAIEN | NODE+3~ |
| LRFDAIEN( | NODE+37, STOREPL+4 |
| LRFILE | NODE+3~, NODE+7*, NODE+14, NODE+21, NODE+28 |
| LRI | DUPCHK+10~, DUPCHK+13*, DUPCHK+14*, DUPCHK+15 |
| LRIDT | NODE+8, NODE+11, NODE+12, NODE+14, NODE+18, NODE+19, NODE+25, NODE+26, NODE+37, NODE+41 , SETPL+4, STOREPL+4, RPTDT~, RPTDT+11*, RPTDT+15, RPTDT+18 |
| LRIEN | NODE+3~ |
| >> LRINTYPE | RPTDT+19 |
| LRLL | NODE+13, DUPCHK~, DUPCHK+12 |
| LRMSG | NODE+3~, RPTDT+9~, RPTDT+22 |
| LRNODE | NODE~, NODE+7, NODE+8, NODE+11, NODE+12, NODE+18, NODE+19, NODE+25, NODE+26, NODE+37 , NODE+41 |
| >> LRNOW | NODE+41 |
| LRPL | NODE+3~ |
| LRPL( | NODE+22*, NODE+29*, NODE+36, NODE+37, SETPL+5*, STOREPL+4 |
| LRPROF | NODE+13, DUPCHK~, DUPCHK+12 |
| >> LRRPTAPP | RPTDT+22* |
| LRSTATUS | NODE+21, NODE+28, STAT4CMT~, STAT4CMT+25 |
| LRX | NODE+3~, NODE+12*, NODE+13, NODE+14, NODE+19*, NODE+20, NODE+22, NODE+26*, NODE+27, NODE+29 , NODE+41*, SETPL+3~, SETPL+4*, SETPL+5, DUPCHK+10~, DUPCHK+15*, DUPCHK+16, RPTDT+9~, RPTDT+11*, RPTDT+22* , RPTDT+23*, RPTDT+24*, RPTDT+26 |
| LRY | DUPCHK+10~, DUPCHK+13*, DUPCHK+16 |
| NODE | SETPL~, SETPL+4, STOREPL~, STOREPL+4, NODE2FLD~, NODE2FLD+6*, NODE2FLD+8, NODE2FLD+9, NODE2FLD+10, NODE2FLD+11 , NODE2FLD+12, NODE2FLD+13 |
| RPTDT | RPTDT~, RPTDT+13*, RPTDT+19 |
| STAT | STAT4CMT~, STAT4CMT+25 |
| SUBF | STAT4CMT+7~, STAT4CMT+8*, STAT4CMT+10*, STAT4CMT+11*, STAT4CMT+12*, STAT4CMT+13*, STAT4CMT+14*, STAT4CMT+15*, STAT4CMT+16*, STAT4CMT+17* , STAT4CMT+18*, STAT4CMT+19*, STAT4CMT+20*, STAT4CMT+21*, STAT4CMT+22*, STAT4CMT+23*, STAT4CMT+25 |
| SUBSCR | RPTDT~, RPTDT+11*, RPTDT+15 |
| U | DUPCHK+12, DUPCHK+15 |
| USER | RPTDT~, RPTDT+14*, RPTDT+20 |
| X | NODE+3~, NODE+20*, NODE+21, NODE+27*, NODE+28 |
