Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRVER1

Package: Lab Service

Routine: LRVER1


Information

LRVER1 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION;Sep 27, 2018@10:00:00

Source Information

Source file <LRVER1.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(^LRO(69,LRODT,1,LRSN,1),U,6)
  • Line Location: VER+2

FileMan Files Accessed Via FileMan Db 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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call