Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRPXAPI2

Package: Lab Service

Routine: LRPXAPI2


Information

LRPXAPI2 ;VA/SLC/STAFF - Lab Extract API code ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRPXAPI2.m>

Call Graph

Call Graph Total: 4

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  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRPXAPI  LRPXAPI1  LRPXAPIU  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name Field # of Occurrence
^( VSPEC+4
^(0 APVERIFY+9

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All