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

Package: Lab Service

Routine: LRLNCV


Information

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

Source Information

Source file <LRLNCV.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  ^DIE  ^DIR  
Lab Service 2 EN^LRDIQ  $$LNC^LRVER1  
Kernel 1 $$CJ^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC VALIDATE  

Entry Points

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

External References

Name Field # of Occurrence
^DIC SUFFIX+1
^DIE TEST+12
^DIR LOOK61+4, TEST+4
EN^LRDIQ TEST+15
$$LNC^LRVER1 LOINC+1
$$CJ^XLFSTR LOINC+8, LOINC+9, TEST+9, TEST+10

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+3
Function Call: WRITE
  • Prompt: !!,"LOINC Code: ",LRLOINC,!,$G(^LAB(95.3,+LRLOINC,80)),!
  • Line Location: LOINC+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LOINC code was located @ NLT CODE: "_LRDAN,IOM)
  • Line Location: LOINC+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($P(LRMSGM,"-",2,99),IOM)
  • Line Location: LOINC+9
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
Routine Call
  • DIE
  • Line Location:
    • TEST+12
Routine Call
  • DIC
  • Line Location:
    • SUFFIX+1
Routine Call
  • DIR
  • Line Location:
    • LOOK61+4
    • TEST+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LRO(68.2 - [#68.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TEST+8, TEST+14, TEST+15, TEST+17
^LAB(95.3 - [#95.3] START+7, LOINC+2, LOINC+7
^LAM - [#64] START+4, START+5, START+6, LOINC+6
^LAM("C" LOINC+4
^LRO(68.2 - [#68.2] SUFFIX+3

Label References

Name Line Occurrences
EXIT START+2, LOINC+3, LOINC+10
START LOOK61+5, SUFFIX+2, LOINC+3, LOINC+10, TEST+13
TEST START+1, TEST+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA LOOK61!, EXIT!, TEST+11!*, TEST+15
DD EXIT+1!
DIC SUFFIX+1*!, EXIT!, TEST+15*
DIC("A" LOOK61+3*, SUFFIX+1*
DIC("S" SUFFIX+1*
DIC(0 SUFFIX+1*
DIE EXIT!, TEST+11!*, TEST+15
DINUM EXIT!
DIR LOOK61!, EXIT!, TEST+1!, TEST+4!
DIR("?" TEST+3*
DIR("A" LOOK61+2*, TEST+2*
DIR("S" LOOK61+1*
DIR(0 LOOK61+1*, TEST+2*
DIRUT EXIT!, TEST+5!
DLAYGO EXIT+1!
DO EXIT+1!
DR EXIT!, TEST+11!*, TEST+15*
DTOUT LOOK61+5, EXIT!, TEST+13
DUOUT LOOK61+5, EXIT!, TEST+13
IOM LOINC+8, LOINC+9, TEST+9, TEST+10
>> LRCDEF SUFFIX+3*, LOINC+1
>> LRDA LOINC+4*, LOINC+6
>> LRDAN LOINC+5*, LOINC+6*, LOINC+8
LRDEF START+6*, START+7, EXIT+1!
LREND START+1*, START+2, SUFFIX+1*, SUFFIX+2, EXIT!, TEST+5*
LRIEN EXIT!, TEST+6*, TEST+8, TEST+11, TEST+14, TEST+15, TEST+17
LRLOINC LOINC+1*, LOINC+2*, LOINC+3, LOINC+7, EXIT!
LRMSG LOINC*, EXIT!
>> LRMSGM LOINC+4, LOINC+9
LRNLT START+4, START+5, START+6, EXIT!, TEST+17*, TEST+18
>> LRNLTN START+5*, LOINC+1
LRSPEC LOOK61+6*, LOINC+1, EXIT!
LRSPECN EXIT!
LRSUF EXIT!
LRTEST EXIT!, TEST+6*, TEST+9
S EXIT!, TEST+15*
U START+4, START+5, START+7, SUFFIX+3, LOINC+2, LOINC+6, TEST+6, TEST+8, TEST+14, TEST+15
, TEST+17
X EXIT+1!
Y LOOK61+5, LOOK61+6, SUFFIX+1, SUFFIX+3, EXIT!, TEST+5, TEST+6
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