Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRLNCX

Package: Lab Service

Routine: LRLNCX


Information

LRLNCX ;DALOI/FS- ROUTINE TO EXTRACT VISTA TEST NAMES FOR LOINC MAPPING;1-FEB-2001

Source Information

Source file <LRLNCX.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$E(LR60_"-"_LRSP_LRFS_$TR(LR60N,"*?"," ")_" "_LRSPN_LRFS_LRUNIT,1,80)
  • Line Location: WRT+1
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: !!,"Only 'CH' subscripted test having a dataname and having a type"
  • Line Location: MSG+7
Function Call: WRITE
  • Prompt: !,"of 'BOTH', 'INPUT' or 'OUTPUT' will be extracted."
  • Line Location: MSG+8
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
Info |  Source |  Entry Points |  Interaction Calls