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 |
