Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRLNC0

Package: Lab Service

Routine: LRLNC0


Information

LRLNC0 ;DALOI/CA/FHS-MAP LAB TESTS TO LOINC CODES ; 13-Aug-2013 09:15 ; MKK

Source Information

Source file <LRLNC0.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 (,FIND)^DIC  FILE^DICN  (,FILE,UPDATE)^DIE  ($$GET1,EN,GETS)^DIQ  ^DIR  
Lab Service 2 (CODE,ENTERLNC)^LRLNCC  DEFAULT^LRLNCMD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LR LOINC MAP  LR LOINC MAP ANTIMICROBIAL  LRLNCMD  

Entry Points

Name Comments DBIA/ICR reference
CODE ;ask which code to map
KILL1
CHKSPEC ;Check that specimen of LOINC code same as specimen of test
DEFAULT ;
OVER ;Check to see if linked to file 64.061. If not, then let enter link.
LR64 ;
LINK ;Link the code with file 64
DIS64
INDEX60 ;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
CORRECT
ASKSPEC
6206 ;LOINC mapping ANTIMICROBIAL [^LAB(62.060)]
CHECK ;Check to see if already mapped to a LOINC code
LOINC ;Lookup possible LOINC matches in LAB LOINC file #95.3
SHOWPRE ;DISPLAY LOINC CODE ALREADY MAPPED TO NLT
START ;entry point from option LR LOINC MAPPING
EXITMI ;Clean up 6206 variables.
NEXTSP
MAP ;DIE call to add data name,time aspect,units, LOINC code, and lab test fields
EXIT
TEST
SPEC ; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
LOOK61

External References

Name Field # of Occurrence
^DIC LOOK61+5, LR64+4
FIND^DIC LOINC+1
FILE^DICN LOOK61+22, MAP+8, MAP+16
^DIE DEFAULT+18, DIS64+12, LOOK61+28, OVER+7, MAP+20, 6206+17
FILE^DIE INDEX60+11
UPDATE^DIE INDEX60+7
$$GET1^DIQ 6206+22
EN^DIQ DIS64+17, MAP+31
GETS^DIQ DIS64+4, DIS64+5
^DIR DEFAULT+9, ASKSPEC+6, CORRECT+4, TEST+4, LOOK61+17, SHOWPRE+8, CHKSPEC+8, 6206+6
CODE^LRLNCC CODE+1
ENTERLNC^LRLNCC ASKSPEC+8, ASKSPEC+13, CORRECT+6
DEFAULT^LRLNCMD DEFAULT+14

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
Routine Call
  • DIE
  • Line Location:
    • INDEX60+7
Routine Call
  • DIE
  • Line Location:
    • DEFAULT+18
    • DIS64+12
    • LOOK61+28
    • OVER+7
    • MAP+20
    • 6206+17
Routine Call
  • DIR
  • Line Location:
    • DEFAULT+9
    • ASKSPEC+6
    • CORRECT+4
    • TEST+4
    • LOOK61+17
    • SHOWPRE+8
    • CHKSPEC+8
    • 6206+6
Routine Call
  • DIC
  • Line Location:
    • LOOK61+5
    • LR64+4
Routine Call
  • DIE
  • Line Location:
    • INDEX60+11
Routine Call
  • DIC
  • Line Location:
    • LOINC+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(60 LOOK61+13
^DD(64 MAP+3
^DD(64.01 MAP+10
^LAB(60 - [#60] DEFAULT+21, TEST+7, TEST+9, DIS64+9, DIS64+13, DIS64+15, DIS64+17, DIS64+19, LOOK61+11, LOOK61+12
, LOOK61+14, LINK+1, LINK+2, INDEX60+1, INDEX60+3
^LAB(61 - [#61] OVER+1, OVER+4, OVER+9, MAP+27
^LAB(62.06 - [#62.06] 6206+9, 6206+11, 6206+18, 6206+19, 6206+21
^LAB(64.061 - [#64.061] OVER+11
^LAB(95.3 - [#95.3] LINK+3, LINK+4, SHOWPRE+3
^LAM - [#64] DEFAULT+2, DEFAULT+4, DEFAULT+10, DEFAULT+15, DEFAULT+19, KILL1, EXIT, DIS64+3, LINK+5, CHECK+1
, MAP+1, MAP+2, MAP+4, MAP+9, MAP+13, MAP+21, MAP+25, MAP+26, SHOWPRE+1

Label References

Name Line Occurrences
6206 6206+9, 6206+19, 6206+24
ASKSPEC NEXTSP+1
CHECK CORRECT+17
CHKSPEC CORRECT+10
DEFAULT 6206+23
DIS64 6206+14
EXIT START+2, DEFAULT+13, ASKSPEC+1, ASKSPEC+7, ASKSPEC+9, ASKSPEC+11, ASKSPEC+12, ASKSPEC+14, CORRECT+5, CORRECT+8
, CORRECT+9, CORRECT+11, CORRECT+13, CORRECT+16, CORRECT+19, LR64+5, LR64+6, CHECK+1
EXITMI 6206+2, 6206+7
KILL1 NEXTSP
LINK CORRECT+14
LOINC ASKSPEC+10, CORRECT+7
LOOK61 LOOK61+14, OVER+4
MAP CORRECT+20
NEXTSP CORRECT+12, CORRECT+15, CORRECT+18
OVER LOOK61+11
SHOWPRE CHECK+1
SPEC ASKSPEC, OVER+10
START START+3, DEFAULT+13, ASKSPEC+1, ASKSPEC+7, ASKSPEC+9, ASKSPEC+11, ASKSPEC+12, ASKSPEC+14, CORRECT+5, CORRECT+8
, CORRECT+9, CORRECT+11, CORRECT+13, CORRECT+16, CORRECT+19
TEST START+1, DIS64+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS EXITMI+1!
D0 KILL1+2!
DA DEFAULT+17~, DEFAULT+18*, KILL1+1!, EXIT+1!, DIS64+12!*, DIS64+16~, DIS64+17*, LOOK61!, LOOK61+7!, LOOK61+10!
, LOOK61+26*, LOOK61+29!, OVER+6!*, LR64+1!, MAP+6*, MAP+17*, 6206+16~, 6206+17*, EXITMI+1!
DA(1 LOOK61+19*, LOOK61+20, MAP+6*, MAP+7, MAP+11*, MAP+12
DA(2 MAP+11*, MAP+12
DD KILL1+2!, EXIT+3!, LOOK61+18!, MAP+5!, MAP+14!
DIC KILL1+1!, EXIT+1!, DIS64+16~, DIS64+17*, LOOK61!, LOOK61+3*, LOOK61+7!, LOOK61+10!, LOOK61+20*, LOOK61+25!
, LR64+1!, LR64+3*, MAP+7*, MAP+12*, MAP+18!, MAP+28!, MAP+29*, 6206+17*, EXITMI+1!
DIC("A" LOOK61+4*
DIC("P" LOOK61+13*, MAP+3*, MAP+10*
DIC(0 LOOK61+3*, LOOK61+21*, LR64+3*, MAP+7*, MAP+15*
DIE DEFAULT+17~, DEFAULT+18*, KILL1+1!, EXIT+1!, DIS64+12!*, LOOK61+10!, LOOK61+25*, LOOK61+29!, OVER+6!*, MAP+18!*
, MAP+29, 6206+16~, 6206+17*, EXITMI+1!
DINUM KILL1+1!, EXIT+1!, LOOK61+19*, MAP+7*, MAP+11*
DIR DEFAULT+6!, DEFAULT+9!, ASKSPEC+6!, CORRECT+4!, KILL1+1!, EXIT+1!, TEST+1!, TEST+4!, LOOK61+15~, SHOWPRE+5!
, SHOWPRE+8!, CHKSPEC+8!, 6206+6!, EXITMI+1!
DIR("?" DEFAULT+8*, ASKSPEC+4*, CORRECT+3*, TEST+3*, SHOWPRE+7*, CHKSPEC+6*, 6206+5*
DIR("A" DEFAULT+7*, ASKSPEC+3*, CORRECT+1*, TEST+2*, SHOWPRE+6*, CHKSPEC+5*, 6206+4*
DIR("B" DEFAULT+6*, ASKSPEC+5*, CORRECT+2*, SHOWPRE+5*, CHKSPEC+7*
DIR(0 DEFAULT+7*, ASKSPEC+3*, CORRECT+1*, TEST+2*, LOOK61+17*, SHOWPRE+6*, CHKSPEC+5*, 6206+4*
DIRUT DEFAULT+11, DEFAULT+12, DEFAULT+13, ASKSPEC+7, CORRECT+5, KILL1+1!, EXIT+1!, TEST+5!, OVER+8, CHECK+1
, CHKSPEC+9, 6206+7!, EXITMI+1!
DLAYGO KILL1+2!, EXIT+3!, LOOK61+21*, MAP+7*, MAP+15*
DO EXIT+3!, LOOK61+18!, MAP+5!, MAP+14!
DR DEFAULT+17~, DEFAULT+18*, KILL1+1!, EXIT+1!, DIS64+12!*, DIS64+16~, DIS64+17*, LOOK61+10!, LOOK61+27*, LOOK61+29!
, OVER+6!*, MAP+18!, MAP+19*, MAP+28!, 6206+16~, 6206+17*, EXITMI+1!
DTOUT KILL1+1!, EXIT+1!, LOOK61+6, LOOK61+7!, LR64+6!, 6206+19, EXITMI+1!
DUOUT LOOK61+6, LOOK61+7!, LR64+6!, 6206+19, EXITMI+1!
ERR EXITMI+1!
I KILL1+1!, EXIT+1!
IOF TEST, MAP+23
LR64DIS DIS64, 6206+13~, 6206+14*
LRANS DIS64+2~, LOOK61+1~, LOOK61+22*, LOOK61+24, EXITMI+1!
LRANS( DIS64+8
LRANS(64 DIS64+6
LRCODE ASKSPEC+10, KILL1+1!, EXIT+1!, LINK+3, LINK+4, MAP+19, INDEX60+10
LRDA INDEX60+2~, INDEX60+4!
LRDA(1 INDEX60+6*
LRDATA EXIT+1!, LINK+1*, LINK+2*, MAP+19, 6206+20*, EXITMI+1!
LRDEF EXIT+3!, EXITMI+1!
LRDEL TEST+2, TEST+3, TEST+5!, DIS64+14!, 6206+3*, EXITMI+2!
LRDFONLY DEFAULT+12, DEFAULT+13, DEFAULT+20, 6206+3*, EXITMI+1!, EXITMI+2!
LRELEC KILL1+1!, EXIT+1!, OVER+9*, OVER+10, OVER+11, CHKSPEC+1, CHKSPEC+2
LREND START+1*, START+2, ASKSPEC+1, ASKSPEC+9, ASKSPEC+12, ASKSPEC+14, CORRECT+5, CORRECT+9, CORRECT+13, CORRECT+16
, CORRECT+19, EXIT+1!, TEST+5*, DIS64+14*, LOOK61+7*, LOOK61+8, LR64+5*, LR64+6*, CHECK+1*, CHKSPEC+9*
LRERR INDEX60+2~, INDEX60+8
LRFDA INDEX60+2~, INDEX60+4!, INDEX60+9!
LRFDA(1 INDEX60+5*
LRFDA(2 INDEX60+10*
LRIEN DEFAULT+21, EXIT+1!, TEST+6*, TEST+7, TEST+9, DIS64+9, DIS64+12, DIS64+13, DIS64+15, DIS64+17
, DIS64+19, LOOK61+2, LOOK61+11, LOOK61+12, LOOK61+14, LOOK61+19, LINK+1, LINK+2, MAP+19, INDEX60+1
, INDEX60+3, INDEX60+5, INDEX60+10, 6206+8*, 6206+9, 6206+11, 6206+17, 6206+18, 6206+19, 6206+20*
, 6206+21, EXITMI+1!
LRLNC KILL1+1!, EXIT+1!, DIS64+2~, DIS64+3*, DIS64+5, DIS64+8, SHOWPRE+1*, SHOWPRE+3
LRLNC0 KILL1+1!, EXIT+1!
LRLNC0(8 CHKSPEC+1, CHKSPEC+2
LRLNC1 START+1*, KILL1+2!, EXIT+3!
LRLNCNAM KILL1+2!, EXIT+3!
LRLOINC KILL1+1!, EXIT+1!
LRNEXT CORRECT+12, CORRECT+15, CORRECT+18, KILL1+2!, EXIT+3!, LR64+7*, CHECK+2*
LRNLT START+3, DEFAULT+2, DEFAULT+3, DEFAULT+15, DEFAULT+18, KILL1, EXIT, EXIT+1!, TEST+1!, TEST+9*
, DIS64+1, DIS64+3, DIS64+4, DIS64+6, DIS64+14*, DIS64+19*, DIS64+20, LINK+5*, LR64+3, LR64+8*
, CHECK+1, MAP+1, MAP+2, MAP+4, MAP+6, MAP+9, MAP+11, MAP+13, MAP+21, MAP+25
, MAP+26, SHOWPRE+1, 6206+11*, 6206+12, 6206+21*, 6206+22, 6206+23, EXITMI+1!
LRNLTX DEFAULT+1~, DEFAULT+3*, DEFAULT+4, DEFAULT+10, DEFAULT+19, 6206+11*, EXITMI+1!
LRNO ASKSPEC+11, ASKSPEC+13, CORRECT+6, CORRECT+7, CORRECT+8, CORRECT+11, KILL1+2!, EXIT+3!, CHKSPEC+10*
LRNOP KILL1+2!, EXIT+3!, LOOK61+14, LOOK61+17*, OVER+4, OVER+8*
LRODLCD KILL1+2!
LROLDCD EXIT+3!
LRSPEC KILL1+1!, EXIT+2!, LOOK61+9*, LOOK61+14, LOOK61+19, OVER+1, OVER+4, OVER+6, OVER+9, CHECK+1
, MAP+4, MAP+6, MAP+7, MAP+9, MAP+11, MAP+13, MAP+27, INDEX60+3, INDEX60+5, INDEX60+6
, INDEX60+10, SHOWPRE+1
LRSPECL KILL1+1!, EXIT+2!, OVER+11*
LRSPECN KILL1+1!, EXIT+2!, LOOK61+9*, OVER+2, OVER+5
LRTEST EXIT+2!, TEST+6*, DIS64+10, LOINC+1, 6206+8*, 6206+22*, EXITMI+1!
LRTIME KILL1+1!, EXIT+2!, LINK+3*, CHECK+1, MAP+11, MAP+13, MAP+17, SHOWPRE+1
LRUNITS EXIT+2!, LINK+4*, MAP+19
LRUNTIS KILL1+1!
S KILL1+1!, EXIT+2!, DIS64+17*, MAP+30*
U DEFAULT+21, TEST+6, TEST+9, DIS64+3, DIS64+9, DIS64+15, DIS64+17, DIS64+19, LOOK61+11, LOOK61+24
, OVER+1, OVER+4, OVER+9, OVER+11, LINK+1, LINK+2, LINK+3, LINK+4, LINK+5, MAP+25
, MAP+26, MAP+27, INDEX60+1, SHOWPRE+1, 6206+8, 6206+11, 6206+21
X DEFAULT+17~, KILL1+2!, EXIT+3!, DIS64+14, LOOK61+19*, LR64+3*, MAP+7*, MAP+11*, EXITMI+2!
Y DEFAULT+14, ASKSPEC+8, CORRECT+6, CORRECT+7, KILL1+1!, EXIT+2!, TEST+5, TEST+6, DIS64+14, LOOK61+6
, LOOK61+9, LOOK61+17, LOOK61+22, LOOK61+26, LR64+5, LR64+7, LR64+8, CHECK+2, CHKSPEC+10, 6206+7
, 6206+8, EXITMI+2!
Y(0 LOOK61+9, 6206+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All