LR7OB63 ;DALOI/JMC - Get Lab data from 63 ;05/10/11 13:51
Source file <LR7OB63.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 63(CTR,LRDFN,SS,IVDT,CORRECT) | ;Get data from file 63
; CTR=Counter ; LRDFN=Patient ID ; SS=Subscript for results 'CH'-Chem Tox 'MI'-Microbiology, etc. ; IVDT=Inverse D/T verified ; CORRECT=1 if a corrected result, 0 if not ; See ^LR7OB69 for description of LRX array |
|
| CH | ;Chem, Hem, Tox, Ria, Ser, etc.
|
|
| MI | ;Microbiology
|
|
| BB | ;Blood bank
|
|
| BB1(SPECMEN) | ;Blood bank
|
|
| EM | ;Electron Microscopy
|
|
| SP | ;Surgical Pathology
|
|
| CY | ;Cytology
|
|
| AU | ;Autopsy
|
|
| NODEPIK(FILE,NODE,PIECE,DATA) | ;Set field name and data into X
|
|
| UNIT(X,SPEC,SEX,DOB,AGE) | ;Find units and ref range
|
|
| RESULT(TEST,RESULT) | ;Convert result to external format
|
|
| STRIP(TEXT) | ;Strips white space from text
|
|
| SET(FILE,FIELD,RESULT) | ;Interpret set of codes
|
|
| POINTER(FILE,FIELD,RESULT) | ;Interpret pointer values
|
|
| ORDP(LRPROV) | ; Display ordering provider in comment
|
|
| PLS | ; List reporting and performing laboratories
; If multiple performing labs then list tests associated with each lab. |
|
| RRDT(LRDT) | ; Display report released date/time
|
|
| INTP | ; Check and add any file #60 interpretation
|
