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: LRLNCST

Package: Lab Service

Routine: LRLNCST


Information

LRLNCST ;DALOI/FHS-LIST OF LOINC DEPRECIATED CODES ; 5/14/07 12:56pm

Source Information

Source file <LRLNCST.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DEVICE ;
LOAD ;
LST ;Print list of deprecated code
LNK ;Provide list of mapped deprecated LOINC codes
LK64 ;Start looking for NLT linked fields.
RESULT ;Look up result NLT codes
ORDER ;Look up NLT order codes
DEF(LRNLT,FLD) ;Check LOINC default code
CHK(LRP,FLD) ;Check for valid node
MSG(MSG) ;Print
LNC(LRNLT,LRFLD) ;Check for LOINC in suffixed NLT codes
SPEC(LRNLT,LRFLD) ;Check specimen time aspect LOINC
DISP ;
PLN ;
END ;
HDR ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S($G(ZTSK):"Tasked to "_ION_" "_ZTSK,1:"Not Tasked")
  • Line Location: LOAD+6
Function Call: WRITE
  • Prompt: !,$G(LRANS(95.3,LRLNC_",",.01,"E"))," ",$E($G(LRANS(95.3,LRLNC_",",80,"E")),1,60)
  • Line Location: LST+8
Function Call: WRITE
  • Prompt: !,"Test Name: ",LR60NM
  • Line Location: DEF+6
Function Call: WRITE
  • Prompt: !,$S(FLD=1:"RESULT NLT Code LOINC Default ",1:"ORDER NLT Code LOINC Default ")
  • Line Location: DEF+7
Function Call: WRITE
  • Prompt: !,"NLT Code: ",LRNLTNM
  • Line Location: DEF+8
Function Call: WRITE
  • Prompt: !,LRDEF_"-"_$P(^LAB(95.3,LRDEF,0),U,15)_" "_$G(^LAB(95.3,LRDEF,80)),!
  • Line Location: DEF+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(MSG,IOM)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"Test Name: ",LR60NM
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,"NLT Code: ",$P($G(^LAM(LRNLT,0)),U)," ",$P(^(0),U,2)
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !," ("_LRSPEC_") "_LRSPECN
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,"LOINC Code: ",LRTASPN_" ["_LRLNC_"-"_$P(^LAB(95.3,LRLNC,0),U,15)_"]"
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,"LOINC Name: ",$G(^LAB(95.3,LRLNC,80))
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,LRPLN,!
  • Line Location: PLN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF,LRHDR," Page: ",LRPG,!
  • Line Location: HDR+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(95.3 - [#95.3] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call