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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRLNC63A

Package: Lab Service

Routine: LRLNC63A


Information

LRLNC63A ;DALOI/FHS-HISTORICAL LOINC MAPPER UTILITY ;01/30/2001 15:19

Source Information

Source file <LRLNC63A.m>

Entry Points

Name Comments DBIA/ICR reference
XQA ;Send alert message
RANGE ; Change for high/low ranges $S( statement to a numeric value
XTMP(LRSUB) ;Setup XTMP("LRLNC",1,LRSUB)=Result NLT code
NLT(X) ;
LIST ;List those test not have result NLT codes defined
MAIL ;Send mail message containing tests not having RNLT codes.
MAP ;Provide a list of mapped test in ^ delimited format
MAPMAIL ;Send mail message containing mapped test
CLEAN ;
DECIMAL ;Check for possible LRDFN's >999999 - LRDFN maybe set to LRIDT format
DONE ; Send alert message when LRDFN sequence range mapping is finished
UPDATE ;If mapping complete, send list of tests not having result NLT codes
RERUN ; This will restart the historical mapping from the beginning.
; To restart call QUE^LRLNC63

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" This will re-run LOINC Historical Mapping from the beginning ",80)
  • Line Location: RERUN+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("reseting all globals to zero.",80)
  • Line Location: RERUN+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" To restart from a stopping point use the",80)
  • Line Location: RERUN+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LAB DATA LOINC Mapping Option.",80),!!
  • Line Location: RERUN+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GETS^DIQ
^LAB(95.3 - [#95.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call