VPRDLRA ;SLC/MKB -- Laboratory extract by accession ;8/2/11 15:29
Source file <VPRDLRA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN,BEG,END,MAX,ID) | ; -- find patient's lab results
|
|
CH() | ; -- return a Chemistry result as:
; id^test^result^interpretation^units^low^high^localName^loinc^vuid^order^performingLab ; Expects ^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP),LRDFN |
|
MI() | ; -- return a Microbiology result as:
; id^test^result^interpretation^units ; Expects ^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP) |
|
AP(LAB) | ; -- return a Pathology result in LAB("attribute")=value
|
|
SUB(X) | ; -- return string of type(s) needed for LR api
|
|
ORDER(LABORD,TEST) | ; -- return #100 order number for Lab order# & Test
|
|
NAME(X) | ; -- Return name of subscript X
|
|
AREA(ACCNUM) | ; -- Return name of accession area
|
|
RPTS(DFN,BEG,END,MAX) | ; -- find patient's lab reports
|
|
RPT1(DFN,ID,RPT) | ; -- return report as a TIU document
|
|
TEXT(DFN,SUB,IDT) | ; -- Get report text, return temp array name
|
|
XML(LAB) | ; -- Return result as XML in @VPR@(#)
|
|
LOOP() | ; -- build sub-items string from NAMES and X
|
|
ADD(X) | ; -- Add a line @VPR@(n)=X
|
FileNo | Call Tags |
---|---|
^LAB(61 - [#61] | GETS^DIQ |
^LRO(68 - [#68] | FIND^DIC |
^LAB(95.3 - [#95.3] | GET1^DIQ |