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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRLNCX

Package: Lab Service

Routine: LRLNCX


Information

LRLNCX ;DAL/OI/FS - ROUTINE TO EXTRACT VISTA TEST NAMES FOR LOINC MAPPING ; 1-FEB-2001; [Aug 06, 2010 ]

Source Information

Source file <LRLNCX.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR LOINC EXTRACT LAB NAMES  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
WRT ;LR60N [test name] - translate "*" or "?" to spaces
1 ;create individual test list.
MSG ;
3 ;Selected all tests
2 ;Selected accession area - screen on LRAA(#)
ASK ;
SEL ;Select method of extraction
OUT ;

External References

Name Field # of Occurrence
^DIR 1+6, ASK+2, MSG+20, SEL+5, SEL+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$E(LR60_$S(LRSP'="":"-",1:"")_LRSP_LRFS_$TR(LR60N,"*?"," ")_$S(LRSPN'="":" ",1:"")_LRSPN_LRFS_LRUNIT,1,80)
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"(NOTE) You should use the Add/Edit Topography Specimen HL7 Code"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,"[LR LOINC LEDI HL7 CODE] option before you proceed."
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !," ----- ----- ----- ----"
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !,"This option will create a Local Master Observation File (LMOF)"
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,"from your local LABORATORY TEST (#60) file."
  • Line Location: MSG+6
Function Call: WRITE
  • Prompt: !,"The LMOF file will use the vertical bar '|' as the field separator."
  • Line Location: MSG+9
Function Call: WRITE
  • Prompt: !,"The 1st. field is the test internal number and internal number"
  • Line Location: MSG+10
Function Call: WRITE
  • Prompt: !,"of the spec. (i.e. 1-72 will represent test 1 and specimen 72)."
  • Line Location: MSG+11
Function Call: WRITE
  • Prompt: !,"The 2nd field contains |test name<SP>specimen."
  • Line Location: MSG+12
Function Call: WRITE
  • Prompt: !,"The 3rd field is the reporting unit only (if any)."
  • Line Location: MSG+13
Function Call: WRITE
  • Prompt: !!,"You will need to capture this printout into a text file."
  • Line Location: MSG+14
Function Call: WRITE
  • Prompt: !,"Using a text editor, remove extraneous lines from the beginning"
  • Line Location: MSG+15
Function Call: WRITE
  • Prompt: !,"and the end of the file so that only extracted test names remain."
  • Line Location: MSG+16
Function Call: WRITE
  • Prompt: !,"Save the edited file. Use this file in the import function of the"
  • Line Location: MSG+17
Function Call: WRITE
  • Prompt: !,"Regenstrief LOINC Mapping Assistant (RELMA)."
  • Line Location: MSG+18
Function Call: WRITE
  • Prompt: !,"Consult the Regenstrief RELMA documentation for specifics."
  • Line Location: MSG+19
Routine Call
  • DIR
  • Line Location:
    • 1+6
    • ASK+2
    • MSG+20
    • SEL+5
    • SEL+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BLRUCUM - [#90475.3] OUT+8
^LAB(60 - [#60] 2+10, 2+11, 2+16, OUT+2, OUT+3, OUT+5, OUT+6, OUT+10
^LAB(61 - [#61] OUT+8
^LAB(64.061 - [#64.061] OUT+12
^TMP("LR LOINC" EN+1!, 1+1!, 1+2*, 1+6*, 1+7, 1+10, 1+11

Label References

Name Line Occurrences
@( EN+5
ASK 2+1, 1+7
END EN+3, 2+1, 1+7, 1+14
MSG EN+2
OUT 2+16, 1+13
WRT OUT+5, OUT+14

Naked Globals

Name Field # of Occurrence
^( OUT+8
^(0 2+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR 1+3!, ASK+1!, MSG+20!, SEL+1!, SEL+8!, END+1!
DIR("A" ASK+1*, SEL+4*, SEL+9*, SEL+13*
DIR("S" 1+5*, SEL+10*
DIR(0 1+4*, ASK+1*, MSG+20*, SEL+3*, SEL+9*
DIRUT ASK+2, MSG+20, SEL+5, END+1!
DT 1+2
>> I 2+14*
IOF MSG+1
LR60 EN+4*, 2+9*, 2+10*, 2+11, 2+16, 1+11*, 1+12, 1+13*, OUT+2, OUT+3
, OUT+5, OUT+6, OUT+10, WRT+2, END+1!
LR60N EN+4*, 2+11*, 2+13, 2+14*, 2+15*, 1+13*, WRT+2, END+1!
LR61 OUT+8*, OUT+11, END+1!
LR64061 OUT+11*, OUT+12, END+1!
LR64N OUT+12!*, OUT+13, END+1!
LR8 OUT+2*, OUT+3, END+1!
LRAA EN+1!, OUT+1, SEL+1!, SEL+12*, SEL+13, END+1!
LRAA( OUT+3, SEL+13*
LRANS EN+5, SEL+2*, SEL+6*, SEL+7, END+1!
LREND EN+1!, EN+3, 2+1, 1+7, ASK+2*, MSG+20*, SEL+2*, SEL+5*, END+1!
LRFS EN+4*, WRT+2, END+1!
LRLSPN OUT+11*, OUT+13, END+1!
LRNOP OUT+1*, OUT+2, OUT+3*, END+1!
LRNX 1+8*, 1+10*, 1+11, END+1!
LRSITE END+1!
LRSP OUT+5*, OUT+6*, OUT+8, OUT+10, WRT+2, END+1!
LRSP0 OUT+8*, END+1!
LRSPN OUT+5*, OUT+11*, OUT+13*, WRT+2, END+1!
LRUNIT OUT+5*, OUT+8*, WRT+2, END+1!
U 2+11, 2+16, 1+2, 1+6, 1+13, OUT+3, OUT+8, OUT+11, OUT+12
Y 1+6, SEL+6, SEL+11, SEL+12, END+1!
Y(0 1+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All