LRPXAPI2 ; SLC/STAFF Lab Extract API code ;2/26/04 15:15
Source file <LRPXAPI2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
VERIFIED(LRDFN,LRIDT) | ; $$(lrdfn,lridt) -> 1 if verified, else 0
; checks for date report completed |
|
MIVERIFY(LRDFN,LRIDT,SUB) | ; $$(lrdfn,lridt,sub) -> 1 if verified, else 0
; checks for report date approved on subscript |
|
APVERIFY(LRDFN,LRIDT,APSUB) | ; $$(lrdfn,lridt,ap subscrpt) -> 1 if verified
; autopsy checks for: ; date of death, ; date autopsy report completed, ; autopsy release date/time ; otherwise, checks for date report completed and report release date |
|
VAL(LRDFN,LRIDT,LRDN) | ; from LRPXAPI
; $$(lrdfn,lridt,lrdn) -> result node |
|
REFVAL(REF) | ; from LRPXAPI
; $$(reference location in ^LR) -> data node |
|
LRPXRM(RESULT,REF,ITEM,TYPES) | ; from LRPXAPI
; returns result node from index subscript as RESULT |
|
SC(RESULT,REF,TYPES) | ;
|
|
SPEC(DATA,DFN,DATE,STYPE,ERR) | ; from LRPXAPI
; returns specimen node, comment, values in array DATA |
|
LRSPEC(DATA,LRDFN,LRIDT,STYPE,ERR) | ; from LRPXAPI
; returns specimen node, comment, values in array DATA |
|
SSPEC(DATA,LRDFN,LRIDT) | ; specimen node values
|
|
CSPEC(DATA,LRDFN,LRIDT) | ; specimen comments
|
|
VSPEC(DATA,LRDFN,LRIDT) | ; test nodes for collected specimen
|
|
COMMENT(LRDFN,LRIDT) | ; $$(lrdfn,lridt) --> 1 if comment exists, else 0
|
|
VALUE(RESULT,DFN,DATE,TEST,COND,ERR) | ; from LRPXAPI, LRPXAPI1
; returns result node that has met conditions as RESULT |
|
LRVALUE(RESULT,LRDFN,LRIDT,LRDN,COND,ERR) | ; from LRPXAPI, LRPXAPI1
; returns result node that has met conditions as RESULT |
|
LRVAL(RESULT,LRDFN,LRIDT,LRDN,COND,ERR) | ;
|
|
CHNODE(ARRAY,NODE) | ; from LRPXAPI
|
|
ACCY(TESTS,ACC,BDN) | ; from LRPXAPI
; returns TESTS from yearly accession, ACC, BDN required ; BDN is beginning date number ; TESTS is array of file 60 iens |
|
CONDOK(CONDO,TYPE) | ; $$ from LRPXAPIU
|
|
REPLACE(COND) | ; $$(condition) -> condition replacing | or ~ with commas
|
|
SYNTAX(X) | ; $$(condition) -> 1 if correct, else 0
; check syntax when condition applies to an if statement |
|
NORMALS(LOW,HIGH,TEST,SPEC) | ; from LRPXAPIU
|