©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
LRVER1 ;DALOI/FHS/JAH - LAB ROUTINE DATA VERIFICATION ;8/10/04
Source file <LRVER1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | $$FIND1^DIC $$GET1^DIQ |
| Kernel | 1 | $$HTFM^XLFDT |
| Lab Service | 1 | ^LRVER2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LD | ||
| VER | ; from LRGVP
|
|
| RNLT(X) | ;
|
|
| MSG(VAL) | ;Set output message
|
|
| NLT(X) | ;
|
|
| LDEF(Y) | ;Find the default LOINC code for WKLD CODE
|
|
| TMPSB(LRSB) | ; Get LOINC code from ^TMP("LR",$J,"TMP",LRSB,"P")
|
|
| EX2 | ;
|
|
| LNC(LRNLT,LRCDEF,LRSPEC) | ;reture the LOINC code for WKLD Code/Specimen
; Call with (nlt code,method suffix,test specimen) ; TA = Time Aspect |
|
| EXP | ; Get the list of tests for this ACC. from LRGVG1
; Do not process tests which have been "NP" (not performed). |
|
| EX1 | ; Expand the list of tests to edit.
|
|
| ORD | ;
; LRNX is set by caller |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(61 - [#61] | GET1^DIQ |
| ^LAM - [#64] | FIND1^DIC, GET1^DIQ |
| 64.02 | GET1^DIQ |
| ^LAB(64.061 - [#64.061] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | EXP+15, EX2+6, EX2+18, EX2+19, NLT+2, RNLT+3 |
| ^LAB(61 - [#61] | LNC+14 |
| ^LAB(62 - [#62] | LD+2 |
| ^LAB(69.9 - [#69.9] | VER+2 |
| ^LAM - [#64] | NLT+2, RNLT+4, LNC+22, LNC+35 |
| ^LR - [#63] | LD+1 |
| ^LRO(68 - [#68] | VER+3, VER+5, EXP+4, EXP+5, EXP+6, EX2+20 |
| ^LRO(69 - [#69] | VER+2, VER+4 |
| ^TMP("LR" | LD+3!, EX1+2*, EX1+3*, EX2+12, ORD+4*, ORD+8*, ORD+9*, ORD+13, TMPSB+1 |
| Name | Line Occurrences |
|---|---|
| $$LDEF | LNC+25, LNC+38 |
| $$LNC | RNLT+5, TMPSB+3 |
| $$NLT | EXP+10, ORD+9 |
| $$RNLT | ORD+8, ORD+9 |
| EX1 | EXP+19 |
| EX2 | EX1+4, EX2+21 |
| EXP | VER+7 |
| MSG | LNC+20, LNC+25, LNC+33, LNC+38 |
| ORD | EX2+12 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EX2+19 |
| ^(0 | VER+2, VER+3, VER+4, LD+1, LD+2, EXP+16, NLT+2, RNLT+4 |
| ^(1 | EXP+18 |
| ^(3 | VER+3, VER+5, EXP+18 |
| ^(4 | EX2+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ERR | LNC+3~ |
| I | EXP+2~, EXP+4*, EXP+5*, EXP+6, EXP+9, EXP+22*, EXP+23* |
| IX | EXP+2~, EXP+4*, EXP+18, EXP+20! |
| J | EX1+3*, EX1+5!, EX2+16, EX2+17*, EX2+18*, EX2+19, EX2+22* |
| >> LRAA | VER+3, VER+5, EXP+4, EXP+5, EXP+6, EX2+20 |
| >> LRAD | VER+3, VER+5, EXP+4, EXP+5, EXP+6, EX2+20 |
| >> LRAL | EXP+11*, EXP+12 |
| >> LRALERT | EXP+4*, EXP+12* |
| >> LRAN | VER+3, VER+5, EXP+4, EXP+5, EXP+6, EX2+20 |
| LRBEY | VER+1~ |
| LRBEY( | ORD+3* |
| LRCDEF | RNLT+5, RNLT+6, LNC~, LNC+6*, LNC+7*, LNC+8*, LNC+9*, LNC+10*, LNC+17, LNC+26 , TMPSB+3, TMPSB+4, MSG+2, MSG+5, MSG+6 |
| >> LRCDT | VER+3*, VER+4*, VER+6 |
| >> LRCFL | EX2+1*, EX2+6* |
| >> LRCW | VER+2* |
| >> LRDBUG | MSG+10 |
| >> LRDFN | LD+1 |
| LRDL | LD+5! |
| >> LREAL | VER+3* |
| >> LRIDT | VER+5*, VER+6*, LD+1 |
| >> LRLLOC | VER+2* |
| LRM | LD+3! |
| LRM( | ORD+12*, ORD+13* |
| >> LRMETH | LD+1* |
| >> LRMSG | MSG+1 |
| LRMSGM | LNC+5!, MSG+2*, MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+9*, MSG+10 |
| >> LRMX( | ORD+14* |
| LRNAME | EXP+3! |
| LRNAME( | EXP+17* |
| LRNLT | EXP+2~, EXP+9*, EXP+10, LNC~, LNC+4, LNC+8, LNC+15*, LNC+17, LNC+29, MSG+2 , MSG+5, MSG+6, MSG+7, MSG+8 |
| >> LRNTN | EXP+14* |
| >> LRNX | ORD+2* |
| >> LRODT | VER+2, VER+4 |
| LRORD | LD+3! |
| LRORD( | ORD+2* |
| >> LROUTINE | VER+2*, EXP+4 |
| >> LRSAMP | VER+4*, LD+2 |
| LRSB | TMPSB~, TMPSB+1 |
| LRSM60 | EXP+3! |
| LRSM60( | EXP+18*, EXP+23* |
| >> LRSN | VER+2, VER+4 |
| LRSPEC | RNLT+5, LNC~, LNC+11*, LNC+13, LNC+14, LNC+20, LNC+21, LNC+22, LNC+23, LNC+33 , LNC+34, LNC+35, LNC+36, TMPSB+3 |
| LRSPECN | LNC+3~, LNC+14*, MSG+5, MSG+7 |
| >> LRSS | LD*, LD+1 |
| >> LRSUB | EX2+2*, EX2+10, EX2+11 |
| LRTEST | EXP+3! |
| LRTEST( | EXP+9*, EXP+10*, EXP+15, EXP+16*, EXP+17, EXP+18, EX1+1, EX1+2, EX1+3, ORD+3 , ORD+7, ORD+8, ORD+9 |
| N | EXP+2~, EXP+4*, EXP+9*, EXP+10, EXP+14, EXP+15, LNC+3~, LNC+18*, LNC+20, LNC+21 , LNC+22, LNC+23, LNC+25, LNC+30*, LNC+31, LNC+34, LNC+35, LNC+36, LNC+38 |
| >> NODE | TMPSB+1*, TMPSB+2, TMPSB+3*, TMPSB+4*, TMPSB+5 |
| S1 | EX1+3*, EX1+5!, EX2+16*, EX2+18, EX2+22* |
| S1( | EX2+16*, EX2+18, EX2+22 |
| >> S2 | EX2+11*, EX2+12, ORD+2, ORD+3, ORD+4, ORD+8, ORD+9, ORD+12, ORD+13 |
| T1 | EXP+2~, EXP+15*, EXP+16, EXP+17, EXP+18, EX1+1, EX1+2, EX1+3, ORD+3, ORD+7 , ORD+8, ORD+9 |
| TA | LNC+3~, LNC+13*, LNC+21, LNC+22*, LNC+23, LNC+34, LNC+35*, LNC+36, MSG+4, MSG+9 |
| TANAME | MSG+3~, MSG+4*, MSG+9 |
| U | VER+2, VER+3, VER+4, VER+5, LD+1, LD+2, EXP+9, EXP+10, EXP+11, EXP+16 , EXP+17, EX1+2, EX2+2, EX2+6, EX2+19, ORD+3, ORD+9, ORD+11, NLT+2, RNLT+3 , RNLT+4, TMPSB+5 |
| VAL | LNC+3~, LNC+18, LNC+28!, LNC+30, MSG~, MSG+5, MSG+6, MSG+7, MSG+8 |
| VAL(1 | LNC+17*, LNC+29* |
| X | EXP+2~, EXP+6*, EXP+7, EXP+8, EXP+9, EXP+11, EXP+21~, EXP+22*, EXP+23, EX1+2* , EX1+3, EX2+2, EX2+6, EX2+16, EX2+19*, EX2+22*, ORD+4, ORD+8, ORD+9, ORD+11 , ORD+12, ORD+14, NLT~, NLT+2, RNLT~, RNLT+1, RNLT+3, RNLT+6, LNC+3~*, LNC+4 , LNC+20, LNC+21*, LNC+23*, LNC+25*, LNC+33, LNC+34*, LNC+36*, LNC+38*, LNC+39*, LNC+40 , LDEF+2*, LDEF+3*, LDEF+4 |
| X(1 | EXP+22*, EXP+23 |
| X1 | EXP+21~, EXP+23* |
| Y | EX2+19*, EX2+20, NLT+1~, NLT+2*, NLT+3, RNLT+2~, RNLT+4*, RNLT+5*, RNLT+6*, RNLT+7 , LNC+3~, LDEF~, LDEF+1, LDEF+2 |
| Y(1 | RNLT+3*, RNLT+4 |