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
|
