©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
Select the objects that you wish to see in the downloaded PDF
InfoLRPXAPI2 ;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 |