LRPXAPI ;SLC/STAFF Lab Extract APIs ;2/26/04 13:34
Source file <LRPXAPI.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
TESTS(TESTS,DFN,TYPE,MAX,NEXT,COND,DATE1,DATE2) | ; API
|
|
RESULTS(VALUES,DFN,ITEM,MAX,NEXT,COND,DATE1,DATE2) | ; API
|
|
PATIENTS(PATS,ITEM,SOURCE,MAX,NEXT,COND,DATE1,DATE2) | ; API
|
|
DATES(DATES,DFN,TYPE,MAX,NEXT,DATE1,DATE2) | ; API
|
|
VALUE(RESULT,DFN,DATE,TEST,COND,ERR) | ; API
; returns result node as RESULT; dfn, date, test required |
|
LRVALUE(RESULT,LRDFN,LRIDT,LRDN,COND,ERR) | ; API
; returns result node as RESULT; lrdfn, lridt, lrdn required |
|
LRPXRM(RESULT,NODE,ITEM,TYPES) | ; API
; returns lab data using ^PXRMINDX indexes; node, item required ; types of data: V value, S specimen, C comments, or combinations |
|
SPEC(DATA,DFN,DATE,STYPE,ERR) | ; API
; returns specimen node, comments, data nodes ; returned in array DATA; dfn, date required |
|
LRSPEC(DATA,LRDFN,LRIDT,STYPE,ERR) | ; API
; returns specimen node, comments, data nodes ; returned in array DATA; lrdfn, lridt required |
|
VERIFIED(LRDFN,LRIDT) | ; API $$(lrdfn,lridt) -> 1 if verified, else 0
|
|
MIVERIFY(LRDFN,LRIDT,SUB) | ; $$(lrdfn,lridt,sub) -> 1 if verified, else 0
|
|
APVERIFY(LRDFN,LRIDT,SUB) | ; $$(lrdfn,lridt,sub) -> 1 if verified, else 0
|
|
VAL(LRDFN,LRIDT,LRDN) | ; API $$(lrdfn,lridt,lrdn) -> result node
|
|
REFVAL(NODE) | ; API $$(reference node) -> data node
|
|
COMMENT(LRDFN,LRIDT) | ; API $$(lrdfn,lridt) --> 1 if comment exists, else 0
|
|
ACCY(TESTS,ACC,BDN) | ; API
; returns TESTS from yearly accession, ACC, BDN required ; BDN is beginning date number |
|
CHNODE(ARRAY,NODE) | ; API
; returns ARRAY of values on CH result node |
|
HASITEM(DFN,ITEM) | ; API $$(dfn,item) -> 1 if patient has item, else 0
|
|