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

Package: Lab Service

Routine: LRLNCV


Information

LRLNCV ;DALOI/CA-VALIDATE LOINC MAPPING ;18-JUL-2001

Source Information

Source file <LRLNCV.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry point from option LR LOINC VALIDATE
ASKSPEC ; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
LOOK61
SUFFIX ;Set LRCDEF Value
LOINC
EXIT
TEST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NAME OF NLT CODE: ",$P(^LAM(LRNLT,0),U)
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,"NLT CODE: ",$P(^LAM(LRNLT,0),U,2)
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"DEFAULT LOINC CODE: ",$S(LRDEF:LRDEF_" "_$P(^LAB(95.3,LRDEF,80),U),1:"NONE")
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKSPEC+1
Function Call: WRITE
  • Prompt: !!,"TEST NOT MAPPED",!!
  • Line Location: LOINC+9
Function Call: WRITE
  • Prompt: !!,"LOINC Code: ",LRLOINC,!,$G(^LAB(95.3,+LRLOINC,80)),!
  • Line Location: LOINC+13
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LOINC code was located @ NLT CODE: "_LRDAN,IOM)
  • Line Location: LOINC+14
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($P(LRMSGM,"-",2,99),IOM)
  • Line Location: LOINC+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: !
  • Line Location: TEST+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LRO(68.2 - [#68.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call