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

Package: Lab Service

Routine: LRLNCDEL


Information

LRLNCDEL ; DALOI/CA/FHS - UNMAP LAB TESTS TO LOINC CODES OR DELETE LOINC MAPPINGS ;1-OCT-1998

Source Information

Source file <LRLNCDEL.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIE  ^DIK  (EN,GETS)^DIQ  ^DIR  
Lab Service 1 EN^LRDIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC UNMAP/DELETE LOINC  

Entry Points

Name Comments DBIA/ICR reference
UNMAP ;Check to see if already mapped to a LOINC code
SHOWPRE ;DISPLAY LOINC CODE ALREADY MAPPED TO NLT
START ;entry point from option LR LOINC MAPPING
EXIT ;
TEST
INDEX60 ;Stores LOINC code in Laboratory Test file (#60) so know what tests are mapped.
SPEC ; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60
DIS ;Show the data

External References

Name Field # of Occurrence
^DIE TEST+13, INDEX60+1
^DIK DIS+8
EN^DIQ DIS+5
GETS^DIQ TEST+20, SPEC+9, UNMAP+9
^DIR TEST+4, SPEC+6, UNMAP+4, DIS+7, SHOWPRE+7
EN^LRDIQ TEST+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: TEST+0
Function Call: WRITE
  • Prompt: !?4,"Locked by another user"
  • Line Location: TEST+8
Function Call: WRITE
  • Prompt: !!,"There is not a RESULT NLT CODE for "_LRTEST,".",!
  • Line Location: TEST+10
Function Call: WRITE
  • Prompt: !,"You must select one now to continue with the mapping of this test!",!
  • Line Location: TEST+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: ?5,"IEN: [",DA,"] ",$P(^LAB(60,LRIEN,0),U)
  • Line Location: TEST+16
Function Call: WRITE
  • Prompt: !?5,LRSPECN_" has a broken pointer"
  • Line Location: SPEC+11
Function Call: WRITE
  • Prompt: !,"Another user is editing this record",!
  • Line Location: UNMAP+6
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: UNMAP+10
Function Call: WRITE
  • Prompt: !!!?5,"Lab Test: "_LRTEST_" / "_LRSPECL_" is NOT mapped to "
  • Line Location: UNMAP+11
Function Call: WRITE
  • Prompt: !,"WKLD CODE: "_$P(Y,U,2)_" Time Aspect of: "_$G(LROUT(64.061,LRASPECT_",",.01,"E"))
  • Line Location: UNMAP+12
Function Call: WRITE
  • Prompt: !!,LRSPECN,!
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !!,"This test and specimen is 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
Routine Call
  • DIE
  • Line Location:
    • TEST+13
    • INDEX60+1
Routine Call
  • DIR
  • Line Location:
    • TEST+4
    • SPEC+6
    • UNMAP+4
    • DIS+7
    • SHOWPRE+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAM - [#64] GETS^DIQ
^LAB(64.061 - [#64.061] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TEST+8, TEST+9, TEST+14, TEST+16, TEST+17, TEST+18
^LAB(95.3 - [#95.3] SHOWPRE+3
^LAM - [#64] UNMAP+6, UNMAP+7, DIS+7, INDEX60+3, SHOWPRE+1

Label References

Name Line Occurrences
EXIT START+2, START+4, START+6
INDEX60 UNMAP+7
SPEC START+3
START START+4, START+7
TEST START+1, TEST+8, TEST+19
UNMAP START+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D EXIT+3!
D0 EXIT+3!
DA EXIT+1!, TEST+1~, TEST+12!*, TEST+16, UNMAP+1~, DIS+1!, DIS+2*, INDEX60+1!*
DA(1 DIS+2*, INDEX60+1*
DA(2 DIS+2*
DD EXIT+3!
DIC EXIT+1!, TEST+1~, TEST+16*, UNMAP+1~, DIS+1!, DIS+2*, DIS+8
DIE EXIT+1!, TEST+1~, TEST+12!*, TEST+16, INDEX60+1!*
DIK UNMAP+1~, DIS+1!, DIS+8*
DINUM EXIT+1!
DIR EXIT+1!, TEST+1~, TEST+4!, SPEC+1~, UNMAP+1~, DIS+1!, SHOWPRE+7!
DIR("?" TEST+3*, SPEC+4*, SHOWPRE+6*
DIR("A" TEST+2*, SPEC+5*, DIS+6*, SHOWPRE+5*
DIR("B" UNMAP+3*
DIR("S" SPEC+3*, UNMAP+2*
DIR(0 TEST+2*, SPEC+2*, UNMAP+2*, DIS+6*, SHOWPRE+5*
DIRUT EXIT+1!, TEST+5!, SPEC+1~, SPEC+6, UNMAP+1~, UNMAP+4
DLAYGO EXIT+3!
DO EXIT+3!
DR EXIT+1!, TEST+1~, TEST+12!*, TEST+16*, UNMAP+1~, DIS+1!, DIS+3*, INDEX60+1!*
DTOUT EXIT+1!, TEST+9, TEST+15
>> DUOUT TEST+9, TEST+15
I EXIT+1!
IOF START+3
LRASPECT EXIT+2!, SPEC+8*, UNMAP+7, UNMAP+9, UNMAP+12, DIS+2
LRCODE EXIT+1!
LRDATA EXIT+1!
LRELEC EXIT+1!, SPEC+8*, SPEC+9, SPEC+10
LREND START+1*, START+2, START+4, EXIT+1!, TEST+5*, TEST+9*, SPEC+2*, SPEC+6*, SPEC+11*, UNMAP+4*
LRERR TEST+1~
LRIEN EXIT+1!, TEST+6*, TEST+8, TEST+9, TEST+12, TEST+14, TEST+16, TEST+17, TEST+18, INDEX60+1
LRLNC EXIT+1!, SHOWPRE+1*, SHOWPRE+3
LRLNC0 EXIT+1!
LRLNCNAM EXIT+3!
LRLOINC EXIT+1!
LRNLT EXIT+1!, TEST+18*, TEST+19, TEST+20, TEST+21, TEST+22, UNMAP+5*, UNMAP+6, UNMAP+7, DIS+2
, DIS+7, INDEX60+3, SHOWPRE+1
LRNLTN EXIT+2!, TEST+22*, UNMAP+2, UNMAP+3
LRNLTNM EXIT+2!, TEST+21*
LRNO EXIT+3!
LROUT EXIT+3!, TEST+1~, UNMAP+8~
LROUT( SPEC+10, UNMAP+12
LROUT(64 TEST+21, TEST+22
LRSPEC EXIT+1!, SPEC+7*, UNMAP+7, DIS+2, INDEX60+1, SHOWPRE+1
LRSPECL EXIT+1!, SPEC+10*, SPEC+11, UNMAP+11
LRSPECN EXIT+1!, SPEC+7*, SPEC+11, DIS+4
LRTEST EXIT+1!, TEST+6*, TEST+10, UNMAP+11
LRTIME EXIT+1!, SHOWPRE+1
LRUNITS EXIT+1!
S EXIT+1!, TEST+16*, DIS+3*
U TEST+6, TEST+9, TEST+16, TEST+18, SPEC+7, SPEC+8, UNMAP+12, SHOWPRE+1
X EXIT+3!, TEST+1~
Y EXIT+1!, TEST+1~, TEST+6, SPEC+7, UNMAP+5, UNMAP+12, DIS+7
Y(0 SPEC+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