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 |