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

Package: Lab Service

Routine: LRLNC63


Information

LRLNC63 ;DALOI/FHS-HISTORICAL LOINC CODE MAPPER FOR DD(63.04 DATA ;10/15/2001 15:19

Source Information

Source file <LRLNC63.m>

Entry Points

Name Comments DBIA/ICR reference
TASK ;
MES ; Send alert message when LRDFN sequence range mapping is finished
6304 ;Entry point for setting ALL Patient's LOINC CODE for CH subscripted test
LK6304(LRDFN) ;Call with LRDFN defined for single patient mapping
SUB(LRDFN,LRIDT) ;Single or all test LOINC mapping
LNC(LRNLT,LRCDEF,LRSPEC) ;reture the LOINC code for WKLD Code/Specimen
; Call with (nlt code,method suffix,test specimen)
; TA = Time Aspect
LDEF(LRY) ;Find the default LOINC code for WKLD CODE
TMPSB(LRSB) ; Get LOINC code from ^TMP("LR",$J,"TMP",LRSB,"P")
MSG(VAL) ;Set output message
RNLT(X) ;
QUE ;Entry point to start/restart historical mapper
SEC ;Check for security key
DEV ;Check to make sure LRRESOURCE device exist
DIS ;Inform the user of the option's functionality
END ;Cleanup
IO ;Task to LRRESOURCE
STOP ;Stop all LOINC conversion background jobs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "."
  • Line Location: LK6304+12
Function Call: WRITE
  • Prompt: !,LRDFN,?10,LRIDT,?30,LRSUB_" "_LRSPEC
  • Line Location: SUB+30
Function Call: WRITE
  • Prompt: !,LRDATA3,!,LRDATA5
  • Line Location: SUB+31
Function Call: WRITE
  • Prompt: !,$S(LRLNC:"",1:"** ")_LRDATA3,!,LRDATA5
  • Line Location: SUB+32
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You are not cleared to use this option",80)
  • Line Location: SEC+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must define the resource device named 'LRRESOURCE'",80)
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("with at least one slot. Process Aborted.",80)
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("LRRESOURCE device must have at leaset 1 slot.",80)
  • Line Location: DEV+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("The recommended number is 8.",80)
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("D STOP^LRLNC63 to stop all background historical mapping tasks.",80),!
  • Line Location: DEV+11
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("This option should be run during 24 hour off peak time frame!!",80),!!
  • Line Location: DIS+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option will queue multiple tasks to LOINC map",80)
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("historical data in the LAB DATA (#63).",80)
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Sequence # "_LRSEQ_" is already running.",80),!
  • Line Location: IO+2
Function Call: WRITE
  • Prompt: !,XQAMSG
  • Line Location: IO+14
Function Call: WRITE
  • Prompt: !?5,"Stopping all background LOINC historical mapping jobs",!!
  • Line Location: STOP+2
Function Call: WRITE
  • Prompt: !," Background task stop node has been set, jobs should stop soon",!
  • Line Location: STOP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] FIND1^DIC,  GET1^DIQ
^LAB(61 - [#61] GET1^DIQ
^LAM - [#64] FIND1^DIC,  GET1^DIQ
64.02 GET1^DIQ
^LAB(64.061 - [#64.061] GET1^DIQ
^LAB(69.9 - [#69.9] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call