LRVRMI3 ;DALOI/STAFF - LAB MICRO LEDI INTERFACE ;09/07/16 08:09
Source file <LRVRMI3.m>
| 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 |
