LRVER1 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION;Sep 27, 2018@10:00:00
Source file <LRVER1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | $$FIND1^DIC $$GET1^DIQ |
| Kernel | 1 | $$HTFM^XLFDT |
| Lab Service | 1 | ^LRVER2 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VER | ; from LRGVP
|
|
| LD | ||
| EXP | ; Get the list of tests for this ACC. from LRGVG1
; Do not process tests which have been "NP" (not performed) ; or merged to another accession |
|
| EX1 | ; Expand the list of tests to edit.
|
|
| EX2 | ;
|
|
| ORD | ;
; LRNX is set by caller |
|
| NLT(X) | ;
|
|
| RNLT(X) | ;
|
|
| LNC(LRNLT,LRCDEF,LRSPEC,LRLTST) | ;return the LOINC code for WKLD Code/Specimen
; orig entry point code ; (LRNLT,LRCDEF,LRSPEC) ;reture the LOINC code for WKLD Code/Specimen ; END OF CHANGE FOR LR*5.2*468 ; Call with (nlt code,method suffix,test specimen) ; TA = Time Aspect ; START OF CHANGE FOR LR*5.2*468 check for new VUID LOINC in LAB(60,test,1,specimen N6,P1 (#30) |
|
| LNCM(LRNLT,LRCDEF,LRSPEC,LRLTST) | ; entry for LRLNCV
|
|
| LNCO | ; skip around point for LNC
; END OF CHANGE FOR LR*5.2*484 |
|
| LNCSET | ; set up string for MLTF msg
|
|
| LDEF(Y) | ;Find the default LOINC code for WKLD CODE
|
|
| TMPSB(LRSB) | ; Get LOINC code from ^TMP("LR",$J,"TMP",LRSB,"P")
|
|
| MSG(VAL) | ;Set output message
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| 60.01 | GET1^DIQ |
| ^LAB(61 - [#61] | GET1^DIQ |
| ^LAM - [#64] | FIND1^DIC, GET1^DIQ |
| 64.02 | GET1^DIQ |
| ^LAB(64.061 - [#64.061] | GET1^DIQ |
| ^LRMLTF - [#66.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | EXP+23, EX2+3, EX2+16, EX2+17, NLT+2, RNLT+3 |
| ^LAB(61 - [#61] | LNC+9, LNCO+13, LNCSET+9 |
| ^LAB(62 - [#62] | LD+2 |
| ^LAB(69.9 - [#69.9] | VER+2 |
| ^LAM - [#64] | NLT+2, RNLT+4, LNCO+21, LNCO+34 |
| ^LR - [#63] | LD+1 |
| ^LRO(68 - [#68] | VER+3, VER+5, VER+9, EXP+5, EXP+6, EXP+7, EXP+17, EX2+18 |
| ^LRO(69 - [#69] | VER+2, VER+4 |
| ^TMP("LR" | LD+3!, EX1+2*, EX1+3*, EX2+8, ORD+4*, ORD+8*, ORD+9*, ORD+13, TMPSB+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BL | LNC+7~, LNC+8*, LNC+11*, LNC+13*, LNC+14! |
| C | LNC+7~, LNC+8*, LNC+14! |
| ERR | LNCO+2~ |
| I | EXP+3~, EXP+5*, EXP+6*, EXP+7, EXP+16, EXP+30*, EXP+31* |
| IX | EXP+3~, EXP+5*, EXP+26, EXP+28! |
| J | EX1+3*, EX1+5!, EX2+14, EX2+15*, EX2+16*, EX2+17, EX2+21* |
| >> LRAA | VER+3, VER+5, VER+9, EXP+5, EXP+6, EXP+7, EXP+17, EX2+18 |
| >> LRAD | VER+3, VER+5, VER+9, EXP+5, EXP+6, EXP+7, EXP+17, EX2+18 |
| >> LRAL | EXP+19*, EXP+20 |
| >> LRALERT | EXP+5*, EXP+20* |
| >> LRAN | VER+3, VER+5, VER+9, EXP+5, EXP+6, EXP+7, EXP+17, EX2+18 |
| LRBEY | VER+1~ |
| LRBEY( | ORD+3* |
| LRCDEF | RNLT+7, RNLT+9, LNC~, LNCM~, LNCO+5*, LNCO+6*, LNCO+7*, LNCO+8*, LNCO+9*, LNCO+16 , LNCO+25, LNCSET+2*, LNCSET+3*, LNCSET+4*, LNCSET+5*, LNCSET+6*, LNCSET+12, TMPSB+5, TMPSB+7, MSG+2 , MSG+5, MSG+6 |
| >> LRCDT | VER+3*, VER+4*, VER+6 |
| >> LRCFL | EX2+1*, EX2+3* |
| >> LRCW | VER+2* |
| >> LRDBUG | MSG+10 |
| >> LRDFN | LD+1 |
| LRDISP | EX2+13~, EX2+18*, EX2+19 |
| LRDL | LD+5! |
| >> LREAL | VER+3* |
| >> LRIDT | VER+5*, VER+6*, LD+1 |
| >> LRLLOC | VER+2* |
| LRLTST | LNC~, LNC+7*, LNC+8, LNC+10, LNCM~ |
| LRM | LD+3! |
| LRM( | ORD+12*, ORD+13* |
| >> LRMETH | LD+1* |
| LRMLTF | LNC+7~, LNC+8*, LNC+10*, LNC+11, LNC+14! |
| >> LRMSG | MSG+1 |
| LRMSGM | LNCO+4!, LNCSET+12*, LNCSET+13*, MSG+2*, MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+9*, MSG+10 |
| >> LRMX( | ORD+14* |
| LRNAME | EXP+4! |
| LRNAME( | EXP+25* |
| LRNLT | EXP+3~, EXP+16*, EXP+17*, EXP+18, LNC~, LNCM~, LNCO+3, LNCO+7, LNCO+14*, LNCO+16 , LNCO+28, LNCSET+4, LNCSET+10*, LNCSET+12, MSG+2, MSG+5, MSG+6, MSG+7, MSG+8 |
| >> LRNTN | EXP+22* |
| >> LRNX | ORD+2* |
| >> LRODT | VER+2, VER+4 |
| LRORD | LD+3! |
| LRORD( | ORD+2* |
| >> LROUTINE | VER+2*, EXP+5 |
| >> LRSAMP | VER+4*, LD+2 |
| LRSB | TMPSB~, TMPSB+1 |
| LRSM60 | EXP+4! |
| LRSM60( | EXP+26*, EXP+31* |
| >> LRSN | VER+2, VER+4 |
| LRSPEC | RNLT+7, LNC~, LNC+7*, LNC+8, LNC+9, LNC+10, LNCM~, LNCO+10*, LNCO+12, LNCO+13 , LNCO+19, LNCO+20, LNCO+21, LNCO+22, LNCO+32, LNCO+33, LNCO+34, LNCO+35, LNCSET+8, LNCSET+9 , TMPSB+5 |
| LRSPECN | LNC+9*, LNCO+2~, LNCO+13*, LNCSET+9*, LNCSET+12, MSG+5, MSG+7 |
| >> LRSS | LD*, LD+1 |
| >> LRSUB | EX2+2*, EX2+6, EX2+7 |
| LRTEST | EXP+4! |
| LRTEST( | EXP+16*, EXP+18*, EXP+23, EXP+24*, EXP+25, EXP+26, EX1+1, EX1+2, EX1+3, ORD+3 , ORD+7, ORD+8, ORD+9 |
| >> LRTS | TMPSB+5 |
| LRUID | VER+9~* |
| N | EXP+3~, EXP+5*, EXP+16*, EXP+18, EXP+22, EXP+23, LNCO+2~, LNCO+17*, LNCO+19, LNCO+20 , LNCO+21, LNCO+22, LNCO+24, LNCO+29*, LNCO+30, LNCO+33, LNCO+34, LNCO+35, LNCO+37 |
| >> NODE | TMPSB+1*, TMPSB+2, TMPSB+5*, TMPSB+7*, TMPSB+8 |
| S1 | EX1+3*, EX1+5!, EX2+14*, EX2+16, EX2+21* |
| S1( | EX2+14*, EX2+16, EX2+21 |
| >> S2 | EX2+7*, EX2+8, ORD+2, ORD+3, ORD+4, ORD+8, ORD+9, ORD+12, ORD+13 |
| T1 | EXP+3~, EXP+23*, EXP+24, EXP+25, EXP+26, EX1+1, EX1+2, EX1+3, ORD+3, ORD+7 , ORD+8, ORD+9 |
| TA | LNCO+2~, LNCO+12*, LNCO+20, LNCO+21*, LNCO+22, LNCO+33, LNCO+34*, LNCO+35, LNCSET+8*, LNCSET+11 , LNCSET+13, MSG+4, MSG+9 |
| TANAME | LNCSET+11*, LNCSET+13, MSG+3~, MSG+4*, MSG+9 |
| U | VER+2, VER+3, VER+4, VER+5, LD+1, LD+2, EXP+16, EXP+18, EXP+19, EXP+24 , EXP+25, EX1+2, EX2+2, EX2+3, EX2+17, ORD+3, ORD+9, ORD+11, NLT+2, RNLT+3 , RNLT+4, TMPSB+8 |
| VAL | LNCO+2~, LNCO+17, LNCO+27!, LNCO+29, MSG~, MSG+5, MSG+6, MSG+7, MSG+8 |
| VAL(1 | LNCO+16*, LNCO+28* |
| X | EXP+3~, EXP+7*, EXP+8, EXP+9, EXP+16, EXP+17, EXP+19, EXP+29~, EXP+30*, EXP+31 , EX1+2*, EX1+3, EX2+2, EX2+3, EX2+14, EX2+17*, EX2+21*, ORD+4, ORD+8, ORD+9 , ORD+11, ORD+12, ORD+14, NLT~, NLT+2, RNLT~, RNLT+1, RNLT+3, RNLT+7, RNLT+9 , LNCO+2~*, LNCO+3, LNCO+19, LNCO+20*, LNCO+22*, LNCO+24*, LNCO+32, LNCO+33*, LNCO+35*, LNCO+37* , LNCO+38*, LNCO+39, LDEF+2*, LDEF+3*, LDEF+4 |
| X(1 | EXP+30*, EXP+31 |
| X1 | EXP+29~, EXP+31* |
| Y | EX2+17*, EX2+18, NLT+1~, NLT+2*, NLT+3, RNLT+2~, RNLT+4*, RNLT+7*, RNLT+9*, RNLT+10 , LNCO+2~, LDEF~, LDEF+1, LDEF+2 |
| Y(1 | RNLT+3*, RNLT+4 |