LRPXAPI2 ;VA/SLC/STAFF - Lab Extract API code ; 17-Oct-2014 09:22 ; MKK
Source file <LRPXAPI2.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 2 | ^DIC ^DIM | 
| Kernel | 1 | $$UP^XLFSTR | 
| Lab Service | 1 | ($$ABNM,$$BUGNM,$$CATSUB,$$CONDOK,$$DFN,$$DISNM,$$DOD,$$ETINM,$$FUNNM,$$ICD9,$$LRDFN,$$LRDN,$$LRIDT,$$MORPHNM,$$ORGNM,$$PROCNM,$$SPECNM,$$TBNM,$$TEST,$$TESTNM,$$VRESULT)^LRPXAPIU | 
| Package | Total | Caller Graph | 
|---|---|---|
| Lab Service | 3 | LRPXAPI LRPXAPI1 LRPXAPIU | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| VAL(LRDFN,LRIDT,LRDN) | ; from LRPXAPI ; $$(lrdfn,lridt,lrdn) -> result node | |
| REPLACE(COND) | ; $$(condition) -> condition replacing | or ~ with commas | |
| 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 | |
| CSPEC(DATA,LRDFN,LRIDT) | ; specimen comments | |
| LRVALUE(RESULT,LRDFN,LRIDT,LRDN,COND,ERR) | ; from LRPXAPI, LRPXAPI1 ; returns result node that has met conditions as RESULT | |
| NORMALS(LOW,HIGH,TEST,SPEC) | ; from LRPXAPIU | |
| CONDOK(CONDO,TYPE) | ; $$ from LRPXAPIU | |
| CHNODE(ARRAY,NODE) | ; from LRPXAPI | |
| SSPEC(DATA,LRDFN,LRIDT) | ; specimen node values | |
| 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 | |
| LRVAL(RESULT,LRDFN,LRIDT,LRDN,COND,ERR) | ; | |
| 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 | |
| VSPEC(DATA,LRDFN,LRIDT) | ; test nodes for collected specimen | |
| VALUE(RESULT,DFN,DATE,TEST,COND,ERR) | ; from LRPXAPI, LRPXAPI1 ; returns result node that has met conditions as RESULT | |
| REFVAL(REF) | ; from LRPXAPI ; $$(reference location in ^LR) -> data node | |
| SYNTAX(X) | ; $$(condition) -> 1 if correct, else 0 ; check syntax when condition applies to an if statement | |
| VERIFIED(LRDFN,LRIDT) | ; $$(lrdfn,lridt) -> 1 if verified, else 0 ; checks for date report completed | |
| COMMENT(LRDFN,LRIDT) | ; $$(lrdfn,lridt) --> 1 if comment exists, else 0 | |
| LRPXRM(RESULT,REF,ITEM,TYPES) | ; from LRPXAPI ; returns result node from index subscript as RESULT | |
| SC(RESULT,REF,TYPES) | ; | |
| MIVERIFY(LRDFN,LRIDT,SUB) | ; $$(lrdfn,lridt,sub) -> 1 if verified, else 0 ; checks for report date approved on subscript | 
| Name | Field # of Occurrence | 
|---|---|
| ^DIC | ACCY+16 | 
| ^DIM | SYNTAX+3 | 
| $$ABNM^LRPXAPIU | LRPXRM+23 | 
| $$BUGNM^LRPXAPIU | LRPXRM+22 | 
| $$CATSUB^LRPXAPIU | CONDOK+41 | 
| $$CONDOK^LRPXAPIU | VALUE+3, LRVALUE+2 | 
| $$DFN^LRPXAPIU | APVERIFY+11 | 
| $$DISNM^LRPXAPIU | LRPXRM+29 | 
| $$DOD^LRPXAPIU | APVERIFY+11 | 
| $$ETINM^LRPXAPIU | LRPXRM+31 | 
| $$FUNNM^LRPXAPIU | LRPXRM+32 | 
| $$ICD9^LRPXAPIU | LRPXRM+34 | 
| $$LRDFN^LRPXAPIU | SPEC+4, VALUE+7 | 
| $$LRDN^LRPXAPIU | VALUE+11 | 
| $$LRIDT^LRPXAPIU | SPEC+7, VALUE+10 | 
| $$MORPHNM^LRPXAPIU | LRPXRM+30 | 
| $$ORGNM^LRPXAPIU | LRPXRM+28 | 
| $$PROCNM^LRPXAPIU | LRPXRM+33 | 
| $$SPECNM^LRPXAPIU | LRPXRM+20, SC+5 | 
| $$TBNM^LRPXAPIU | LRPXRM+24 | 
| $$TEST^LRPXAPIU | LRPXRM+12 | 
| $$TESTNM^LRPXAPIU | LRPXRM+8, LRPXRM+14, LRPXRM+21, LRPXRM+27, ACCY+22 | 
| $$VRESULT^LRPXAPIU | LRPXRM+7 | 
| $$UP^XLFSTR | LRPXRM+26 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^LAB(60 - [#60] | NORMALS+7 | 
| ^LR - [#63] | VERIFIED+2, MIVERIFY+3, APVERIFY+9, APVERIFY+12, APVERIFY+13, VAL+2, SC+9, SC+11, LRSPEC+4, SSPEC+2 , CSPEC+2, CSPEC+5, CSPEC+6, CSPEC+8, VSPEC+4, COMMENT+1, LRVAL+4, LRVAL+10 | 
| ^LRO(68 - [#68] | ACCY+12, ACCY+21 | 
| Name | Line Occurrences | 
|---|---|
| $$REFVAL | LRPXRM+4, SC+4 | 
| $$REPLACE | VALUE+4, LRVALUE+3, CONDOK+12 | 
| $$SYNTAX | CONDOK+12, CONDOK+44 | 
| CSPEC | LRSPEC+7, LRSPEC+12 | 
| LRSPEC | SPEC+8 | 
| LRVAL | VALUE+13, LRVALUE+4 | 
| SC | LRPXRM+9, LRPXRM+15 | 
| SSPEC | LRSPEC+6, LRSPEC+11 | 
| VSPEC | LRSPEC+8, LRSPEC+13 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | VSPEC+4 | 
| ^(0 | APVERIFY+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ACC | ACCY~, ACCY+5, ACCY+6, ACCY+10, ACCY+19 | 
| ALL | LRSPEC+10~!, LRSPEC+11*, LRSPEC+12*, LRSPEC+13*, LRSPEC+14 | 
| APSUB | APVERIFY~, APVERIFY+8, APVERIFY+9, APVERIFY+10 | 
| ARRAY | CHNODE~, CHNODE+1! | 
| ARRAY( | CHNODE+12*, CHNODE+17*, CHNODE+18* | 
| BDN | ACCY~, ACCY+8*, ACCY+9, ACCY+19 | 
| CMT | CSPEC+1~, CSPEC+4*, CSPEC+5*, CSPEC+6, CSPEC+8 | 
| CNT | SC+1~, SC+7*, SC+10*, SC+11, SC+12, CSPEC+1~, CSPEC+3*, CSPEC+7*, CSPEC+8, VSPEC+1~ , VSPEC+2*, VSPEC+5*, VSPEC+6 | 
| COND | VALUE~, VALUE+3, VALUE+4*, VALUE+13, LRVALUE~, LRVALUE+2, LRVALUE+3*, LRVALUE+4, LRVAL~, LRVAL+6 , LRVAL+11, CONDOK+3*, CONDOK+4*, CONDOK+5*, CONDOK+6, CONDOK+7, CONDOK+8, CONDOK+12, CONDOK+13, CONDOK+45 , REPLACE~, REPLACE+1 | 
| CONDO | CONDOK~, CONDOK+3, CONDOK+9, CONDOK+10 | 
| DATA | SPEC~, SPEC+2!, SPEC+8, LRSPEC~, LRSPEC+2!, LRSPEC+6, LRSPEC+7, LRSPEC+8, LRSPEC+11, LRSPEC+12 , LRSPEC+13, LRSPEC+14!*, SSPEC~, SSPEC+1!, CSPEC~, CSPEC+1!, VSPEC~, VSPEC+1! | 
| DATA("C" | CSPEC+8* | 
| DATA("S" | SSPEC+2* | 
| DATA("V" | VSPEC+6* | 
| DATE | SPEC~, SPEC+6, SPEC+7, VALUE~, VALUE+9, VALUE+10 | 
| DEL | CONDOK+1~, CONDOK+10*, CONDOK+11*, CONDOK+18 | 
| DFN | SPEC~, SPEC+4, VALUE~, VALUE+7 | 
| DIC | ACCY+4~!, ACCY+14*, ACCY+16! | 
| DIC(0 | ACCY+14* | 
| ERR | SPEC~, SPEC+3*, SPEC+5*, SPEC+6*, SPEC+8, LRSPEC~, LRSPEC+3*, LRSPEC+4*, VALUE~, VALUE+3* , VALUE+6*, VALUE+8*, VALUE+9*, VALUE+12*, VALUE+13, LRVALUE~, LRVALUE+2*, LRVALUE+4, LRVAL~, LRVAL+3* , LRVAL+5*, LRVAL+6, LRVAL+11* | 
| F | LRVAL+1~, LRVAL+8* | 
| FILE | LRPXRM+2~, LRPXRM+17*, LRPXRM+20, LRPXRM+21, LRPXRM+22, LRPXRM+23, LRPXRM+24, LRPXRM+26, LRPXRM+27, LRPXRM+28 , LRPXRM+29, LRPXRM+30, LRPXRM+31, LRPXRM+32, LRPXRM+33, LRPXRM+34 | 
| HIGH | NORMALS~, NORMALS+2*, NORMALS+9* | 
| IEN | LRPXRM+2~, LRPXRM+18*, LRPXRM+20, LRPXRM+21, LRPXRM+22, LRPXRM+23, LRPXRM+24, LRPXRM+27, LRPXRM+28, LRPXRM+29 , LRPXRM+30, LRPXRM+31, LRPXRM+32, LRPXRM+33, LRPXRM+34 | 
| ITEM | LRPXRM~, LRPXRM+6, LRPXRM+7, LRPXRM+8, LRPXRM+10, LRPXRM+16, LRPXRM+17, LRPXRM+18 | 
| LINE | SC+1~, SC+8*, SC+9*, SC+11 | 
| LOW | NORMALS~, NORMALS+2*, NORMALS+8* | 
| LRAA | ACCY+4~, ACCY+12*, ACCY+13, ACCY+17*, ACCY+18, ACCY+21 | 
| LRAAB | ACCY+4~, ACCY+6*, ACCY+7, ACCY+12, ACCY+15 | 
| LRAD | ACCY+4~, ACCY+19*, ACCY+21 | 
| LRAN | ACCY+4~, ACCY+10*, ACCY+11, ACCY+21 | 
| LRDFN | VERIFIED~, VERIFIED+2, MIVERIFY~, MIVERIFY+3, APVERIFY~, APVERIFY+9, APVERIFY+11, APVERIFY+12, APVERIFY+13, VAL~ , VAL+2, SC+1~, SC+7*, SC+9, SC+11, SPEC+2~, SPEC+4*, SPEC+5, SPEC+8, LRSPEC~ , LRSPEC+4, LRSPEC+6, LRSPEC+7, LRSPEC+8, LRSPEC+11, LRSPEC+12, LRSPEC+13, SSPEC~, SSPEC+2, CSPEC~ , CSPEC+2, CSPEC+5, CSPEC+6, CSPEC+8, VSPEC~, VSPEC+4, COMMENT~, COMMENT+1, VALUE+2~, VALUE+7* , VALUE+8, VALUE+13, LRVALUE~, LRVALUE+4, LRVAL~, LRVAL+4, LRVAL+10 | 
| LRDN | VAL~, VAL+2, VSPEC+1~, VSPEC+3*, VSPEC+4*, VSPEC+6, VALUE+2~, VALUE+11*, VALUE+12, VALUE+13 , LRVALUE~, LRVALUE+4, LRVAL~, LRVAL+4 | 
| LRIDT | VERIFIED~, VERIFIED+2, MIVERIFY~, MIVERIFY+3, APVERIFY~, APVERIFY+9, VAL~, VAL+2, SC+1~, SC+7* , SC+9, SC+11, SPEC+2~, SPEC+7*, SPEC+8, LRSPEC~, LRSPEC+4, LRSPEC+6, LRSPEC+7, LRSPEC+8 , LRSPEC+11, LRSPEC+12, LRSPEC+13, SSPEC~, SSPEC+2, CSPEC~, CSPEC+2, CSPEC+5, CSPEC+6, CSPEC+8 , VSPEC~, VSPEC+4, COMMENT~, COMMENT+1, VALUE+2~, VALUE+10*, VALUE+13, LRVALUE~, LRVALUE+4, LRVAL~ , LRVAL+4, LRVAL+10 | 
| NAME | CHNODE+1~, CHNODE+3*, CHNODE+8 | 
| NAME3 | CHNODE+1~, CHNODE+4*, CHNODE+12 | 
| NAME5 | CHNODE+1~, CHNODE+5*, CHNODE+17 | 
| NODE | CHNODE~, CHNODE+2, CHNODE+11, CHNODE+14, CHNODE+18, NORMALS+1~, NORMALS+7*, NORMALS+8, NORMALS+9 | 
| NODE3 | CHNODE+1~, CHNODE+11*, CHNODE+12 | 
| NODE5 | CHNODE+1~, CHNODE+14*, CHNODE+17 | 
| NUM | CONDOK+1~, CONDOK+18*, CONDOK+20*, CONDOK+21*, CONDOK+22 | 
| OK | APVERIFY+6~, APVERIFY+7*, APVERIFY+8, APVERIFY+9*, APVERIFY+10, APVERIFY+14*, APVERIFY+15, CONDOK+1~, CONDOK+19*, CONDOK+21 , CONDOK+23*, CONDOK+25*, CONDOK+33*, CONDOK+36*, CONDOK+38*, CONDOK+39, CONDOK+40*, CONDOK+41*, CONDOK+42*, CONDOK+43* , CONDOK+44*, CONDOK+45*, CONDOK+46 | 
| OPER | CONDOK+1~, CONDOK+34*, CONDOK+35*, CONDOK+36, CONDOK+37 | 
| PIECE | CHNODE+1~, CHNODE+6*, CHNODE+7, CHNODE+8, CHNODE+9, CHNODE+10, CHNODE+13, CHNODE+18, CONDOK+1~, CONDOK+13* , CONDOK+18, CONDOK+22*, CONDOK+23, CONDOK+24, CONDOK+33, CONDOK+34, CONDOK+35, CONDOK+37, CONDOK+44, CONDOK+45 | 
| PIECE3 | CHNODE+1~, CHNODE+12* | 
| PIECE5 | CHNODE+1~, CHNODE+15*, CHNODE+16, CHNODE+17 | 
| PIECES | CONDOK+1~! | 
| PIECES( | CONDOK+18*, CONDOK+21, CONDOK+22 | 
| REF | REFVAL~, REFVAL+3, REFVAL+4, REFVAL+6*, REFVAL+7*, REFVAL+8*, REFVAL+9, LRPXRM~, LRPXRM+4, LRPXRM+9 , LRPXRM+11, LRPXRM+12, LRPXRM+15, SC~, SC+3*, SC+4, SC+7 | 
| RESULT | LRPXRM~, LRPXRM+3*, LRPXRM+8*, LRPXRM+9, LRPXRM+14*, LRPXRM+15, LRPXRM+20*, LRPXRM+21*, LRPXRM+22*, LRPXRM+23* , LRPXRM+24*, LRPXRM+26*, LRPXRM+27*, LRPXRM+28*, LRPXRM+29*, LRPXRM+30*, LRPXRM+31*, LRPXRM+32*, LRPXRM+33*, LRPXRM+34* , SC~, VALUE~, VALUE+5*, VALUE+13, LRVALUE~, LRVALUE+4, LRVAL~, LRVAL+2*, LRVAL+12* | 
| RESULT("COMMENTS" | SC+11*, SC+12* | 
| RESULT("SPECIMEN" | SC+5* | 
| S | LRVAL+1~, LRVAL+9*, LRVAL+10* | 
| SECTION | LRPXRM+2~, LRPXRM+16*, LRPXRM+19, LRPXRM+25 | 
| SPEC | SC+1~, SC+4*, SC+5, NORMALS~, NORMALS+5*, NORMALS+6, NORMALS+7 | 
| STYPE | SPEC~, SPEC+8, LRSPEC~, LRSPEC+5*, LRSPEC+6, LRSPEC+7, LRSPEC+8, LRSPEC+9 | 
| SUB | MIVERIFY~, MIVERIFY+2*, MIVERIFY+3, REFVAL+2~, REFVAL+4*, REFVAL+5*, REFVAL+6, CHNODE+1~, CHNODE+8*, CHNODE+18 | 
| TEST | LRPXRM+2~, LRPXRM+12*, LRPXRM+13, LRPXRM+14, VALUE~, VALUE+11, ACCY+4~, ACCY+20*, ACCY+21*, ACCY+22 , NORMALS~, NORMALS+3*, NORMALS+4, NORMALS+7 | 
| TESTS | ACCY~, ACCY+4! | 
| TESTS( | ACCY+22* | 
| TYPE | CONDOK~, CONDOK+2, CONDOK+15, CONDOK+16, CONDOK+17, CONDOK+31, CONDOK+41 | 
| TYPES | LRPXRM~, LRPXRM+9, LRPXRM+15, SC~, SC+2, SC+6 | 
| U | VERIFIED+2, APVERIFY+9, APVERIFY+12, APVERIFY+13, LRPXRM+7, LRPXRM+8, LRPXRM+14, LRPXRM+20, LRPXRM+21, LRPXRM+22 , LRPXRM+23, LRPXRM+24, LRPXRM+26, LRPXRM+27, LRPXRM+28, LRPXRM+29, LRPXRM+30, LRPXRM+31, LRPXRM+32, LRPXRM+33 , LRPXRM+34, SC+4, SC+5, VSPEC+6, LRVAL+7, LRVAL+8, LRVAL+9, LRVAL+10, CHNODE+8, CHNODE+11 , CHNODE+14, CHNODE+18, ACCY+22, CONDOK+8, NORMALS+8, NORMALS+9 | 
| V | LRVAL+1~, LRVAL+7* | 
| VALID | CONDOK+1~, CONDOK+15*, CONDOK+16*, CONDOK+17*, CONDOK+25 | 
| VALIDOP | CONDOK+1~, CONDOK+27*, CONDOK+28*, CONDOK+29*, CONDOK+30*, CONDOK+31*, CONDOK+32*, CONDOK+36 | 
| VALUE | VSPEC+1~, VSPEC+4*, VSPEC+6, LRVAL+1~, LRVAL+4*, LRVAL+5, LRVAL+7, LRVAL+8, LRVAL+9, LRVAL+12 , CONDOK+1~, CONDOK+37*, CONDOK+38, CONDOK+40, CONDOK+41, CONDOK+42, CONDOK+43 | 
| VALUES | LRPXRM+2~, LRPXRM+4*, LRPXRM+5, LRPXRM+7*, LRPXRM+8, LRPXRM+14, LRPXRM+20, LRPXRM+21, LRPXRM+22, LRPXRM+23 , LRPXRM+24, LRPXRM+26, LRPXRM+27, LRPXRM+28, LRPXRM+29, LRPXRM+30, LRPXRM+31, LRPXRM+32, LRPXRM+33, LRPXRM+34 | 
| VAR | CONDOK+1~, CONDOK+24*, CONDOK+25, CONDOK+27, CONDOK+28, CONDOK+29, CONDOK+30, CONDOK+31, CONDOK+39, CONDOK+45 | 
| X | ACCY+4~, ACCY+15*, SYNTAX~, SYNTAX+2*, SYNTAX+4 | 
| Y | ACCY+4~, ACCY+17 |