LRVER1 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION;Sep 27, 2018@10:00:00
Source file <LRVER1.m>
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 |
|
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 |