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

Package: Lab Service

Routine: LRLNCMD


Information

LRLNCMD ;DALOI/CA/FHS-MAP LAB TESTS TO DEFAULT LOINC CODES ;1-MAY-1999

Source Information

Source file <LRLNCMD.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry point from option LR LOINC MAPPING
DEFAULT ;ENTRY POINT FROM LRLNC0
CORRECT
EXIT
TEST
LOINC ;Lookup possible LOINC matches in LAB LOINC file #95.3
CODE ;ask which code to map
LINK ;Link the code with file 64
LR64 ;
CHECK ;Check to see if already mapped to a LOINC code
MAP ;DIE call to add DEFAULT LOINC CODE
MAP2 ;HERE SHOW WHAT WAS MAPPED
SHOWPRE ;DISPLAY LOINC CODE ALREADY MAPPED TO NLT
DELETE ;DELETE/UNMAP DEFAULT LOINC CODE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DEFAULT+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CORRECT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CODE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: CODE+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: LR64+2
Function Call: WRITE
  • Prompt: !,"Another user is editing this record!!"
  • Line Location: MAP+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAP2+2
Function Call: WRITE
  • Prompt: !,"NLT: ",$P($G(^LAM(LRNLT,0)),U)
  • Line Location: MAP2+3
Function Call: WRITE
  • Prompt: !,"WKLD CODE: ",$P($G(^LAM(LRNLT,0)),U,2)
  • Line Location: MAP2+4
Function Call: WRITE
  • Prompt: !!,"This test is already mapped to:"
  • Line Location: SHOWPRE+2
Function Call: WRITE
  • Prompt: !,"Default LOINC code: ",LROLDCD_"-"_$P(^LAB(95.3,+$G(LROLDCD),0),U,15)," ",$G(^LAB(95.3,LROLDCD,80))
  • Line Location: SHOWPRE+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: SHOWPRE+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] Classic Fileman Calls
^LAB(95.3 - [#95.3] FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call