Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: LRPXAPI2

Package: Lab Service

Routine: LRPXAPI2


Information

LRPXAPI2 ; SLC/STAFF Lab Extract API code ;2/26/04 15:15

Source Information

Source file <LRPXAPI2.m>

Entry Points

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
Info |  Source |  Entry Points