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

Package: Lab Service

Routine: LRLNC1


Information

LRLNC1 ;VA/DALOI/CA-LOOKUP LOINC CODE ;1-OCT-1998

Source Information

Source file <LRLNC1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
Kernel 1 $$CJ^XLFSTR  
Lab Service 1 DISPL^LRLNCC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC LOOKUP  

Entry Points

Name Comments DBIA/ICR reference
DISPL ;Show LOINC entry selected in file 95.3
START ;entry point from option LR LOINC LOOKUP
ENT
TEST
EXIT
SPEC ; Ask Specimen- Lookup in Specimen multiple in Lab Test file #60

External References

Name Field # of Occurrence
^DIC ENT+9, SPEC+7
^DIR TEST+3
DISPL^LRLNCC DISPL+1
$$CJ^XLFSTR ENT+6, ENT+7, ENT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LRLNC1+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Your initial lookup entry is ",IOM)
  • Line Location: ENT+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(LRTEST_".."_$G(LRSPECL),IOM)
  • Line Location: ENT+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("e.g. TEST NAME..SPECIMEN",IOM),!
  • Line Location: ENT+8
Function Call: WRITE
  • Prompt: !!,"NO MATCHES FOUND"
  • Line Location: ENT+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: TEST+0
Routine Call
  • DIC
  • Line Location:
    • ENT+9
    • SPEC+7
Routine Call
  • DIR
  • Line Location:
    • TEST+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(95.3 - [#95.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(60.01 SPEC+6
^LAB(60 - [#60] ENT+1
^LAB(61 - [#61] SPEC+11, SPEC+13
^LAB(64.061 - [#64.061] SPEC+15

Label References

Name Line Occurrences
DISPL ENT+13
EXIT START+2, START+4
SPEC START+3, SPEC+14
START START+4, ENT+10, ENT+11, ENT+14
TEST START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA EXIT!, SPEC+1!, SPEC+8!
DA(1 SPEC+2*
DIC START+5!, ENT*, EXIT!, SPEC+1!, SPEC+3*, SPEC+8!
DIC("A" ENT+5*, SPEC+5*
DIC("B" ENT+2*, ENT+4*
DIC("P" SPEC+6*
DIC(0 ENT*, SPEC+4*
DIE EXIT!, SPEC+1!
DINUM EXIT!
DIR EXIT!, TEST!, TEST+3!
DIR("?" TEST+2*
DIR("A" TEST+1*
DIR(0 TEST+1*
DIRUT ENT+10, EXIT!, TEST!, TEST+4!, SPEC+8!
DR EXIT!, SPEC+1!
DTOUT EXIT!
I EXIT!
IOF LRLNC1+6
IOM ENT+6, ENT+7, ENT+8
LRCODE ENT+12*, EXIT!
LRDATA EXIT!
LRELEC EXIT!, SPEC+13*, SPEC+14, SPEC+15
LREND START+2, START+4, EXIT!, TEST+4*, SPEC+8*
LRIEN ENT+1, EXIT!, TEST+5*, SPEC+2, SPEC+3
LRLNC EXIT!
LRLNC0 EXIT!
LRLOINC LRLNC1+5~, ENT+1*, ENT+2, ENT+3, EXIT!
LRNLT EXIT!
LRSPEC ENT+1, EXIT!, SPEC+9*, SPEC+11, SPEC+13
LRSPECL ENT+4, ENT+7, EXIT!, SPEC+15*
LRSPECN EXIT!, SPEC+9*, SPEC+12
LRTEST ENT+4, ENT+7, EXIT!, TEST+5*
LRTIME EXIT!
LRUNITS EXIT!
S EXIT!
U TEST+5, SPEC+11, SPEC+13, SPEC+15
Y ENT+11, ENT+12, EXIT!, TEST+4, TEST+5, SPEC+8, SPEC+9
Y(0 SPEC+9
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