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

Package: Lab Service

Routine: LRLNC0


Information

LRLNC0 ;DALOI/CA/FHS-MAP LAB TESTS TO LOINC CODES ;1-OCT-1998

Source Information

Source file <LRLNC0.m>

Entry Points

Name Comments DBIA/ICR reference
START ;entry point from option LR LOINC MAPPING
DEFAULT ;
ASKSPEC
CORRECT
NEXTSP
KILL1
EXIT
TEST
DIS64
SPEC ; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
LOOK61
OVER ;Check to see if linked to file 64.061. If not, then let enter link.
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 data name,time aspect,units, LOINC code, and lab test fields
INDEX60 ;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
SHOWPRE ;DISPLAY LOINC CODE ALREADY MAPPED TO NLT
CHKSPEC ;Check that specimen of LOINC code same as specimen of test
6206 ;LOINC mapping ANTIMICROBIAL [^LAB(62.060)]
EXITMI ;Clean up 6206 variables.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Locked by another user",!
  • Line Location: DEFAULT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEFAULT+5
Function Call: WRITE
  • Prompt: !!?5,"Deleting LOINC Default Code",!
  • Line Location: DEFAULT+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: ASKSPEC+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CORRECT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: !?4,"Another user is editing this entry",!
  • Line Location: TEST+7
Function Call: WRITE
  • Prompt: !,!?5,$G(LRANS(64,LRNLT_",",.01,"E"))_" "_$G(LRANS(64,LRNLT_",",1,"E"))
  • Line Location: DIS64+6
Function Call: WRITE
  • Prompt: !?4,"Default LOINC Already Mapped to:"
  • Line Location: DIS64+7
Function Call: WRITE
  • Prompt: !,$G(LRANS(95.3,LRLNC_",",.01,"E"))_" "_$G(LRANS(95.3,LRLNC_",",80,"E"))
  • Line Location: DIS64+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIS64+17
Function Call: WRITE
  • Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)
  • Line Location: DIS64+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS64+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: !," Are you sure you want to add this specimen"
  • Line Location: LOOK61+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: LR64+2
Function Call: WRITE
  • Prompt: !,"Another user is editing this record"
  • Line Location: MAP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAP+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: MAP+24
Function Call: WRITE
  • Prompt: !,"NLT: ",$P($G(^LAM(LRNLT,0)),U)
  • Line Location: MAP+25
Function Call: WRITE
  • Prompt: !,"WKLD CODE: ",$P($G(^LAM(LRNLT,0)),U,2)
  • Line Location: MAP+26
Function Call: WRITE
  • Prompt: !,"SPECIMEN: ",$P($G(^LAB(61,LRSPEC,0)),U)
  • Line Location: MAP+27
Function Call: WRITE
  • Prompt: !!,"This test and specimen is already mapped to:"
  • Line Location: SHOWPRE+2
Function Call: WRITE
  • Prompt: !,"LOINC code: ",LRLNC," ",$G(^LAB(95.3,+LRLNC,80))
  • Line Location: SHOWPRE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWPRE+4
Function Call: WRITE
  • Prompt: !!,"The LOINC code that you have selected does not have the"
  • Line Location: CHKSPEC+3
Function Call: WRITE
  • Prompt: !,"same specimen that you chose to map."
  • Line Location: CHKSPEC+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: 6206+1
Function Call: WRITE
  • Prompt: !?4,"Being edited by another user"
  • Line Location: 6206+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 6206+23

FileMan Files Accessed Via FileMan Db Call

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