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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE,$$HTE,$$NOW)^XLFDT  $$CJ^XLFSTR  
VA FileMan 3 $$FIND1^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Lab Service 2 (DECIMAL,DONE,RANGE,XQA,XTMP)^LRLNC63A  $$LNC^LRVER1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LR LOINC HISTORICAL MAPPER 63  LR LOINC HISTORICAL STOP 63  LRLNC63A  LRLNC63B  

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

External References

Name Field # of Occurrence
^%ZTLOAD IO+10
$$S^%ZTLOAD TASK+12, 6304+4
$$FIND1^DIC LNC+18, LNC+30, DEV+3
$$GET1^DIQ TASK+10, LNC+13, LNC+14, LNC+21, LNC+23, LNC+34, LNC+36, LDEF+2, MSG+4, DEV+7
GETS^DIQ LK6304+7
^DIR DIS+5, STOP+4
DECIMAL^LRLNC63A TASK+5
DONE^LRLNC63A MES+2
RANGE^LRLNC63A SUB+28
XQA^LRLNC63A TASK+21, IO+14
XTMP^LRLNC63A SUB+14
$$LNC^LRVER1 SUB+24
$$FMADD^XLFDT TASK+1
$$FMTE^XLFDT TASK+18, MES+1
$$HTE^XLFDT STOP+5
$$NOW^XLFDT TASK+11, TASK+18, TASK+19, MES+1, IO+7
$$CJ^XLFSTR SEC+2, DEV+5, DEV+6, DEV+9, DEV+10, DEV+11, DIS+1, DIS+2, DIS+3, IO+2

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
Routine Call
  • DIC
  • Line Location:
    • LNC+18
    • LNC+30
    • DEV+3
Routine Call
  • DIR
  • Line Location:
    • DIS+5
    • STOP+4

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] RNLT+3
^LAB(61 - [#61] LNC+14
^LAM - [#64] LNC+22, LNC+35, RNLT+4
^LR - [#63] TASK+12, TASK+13, 6304+3, 6304+4, LK6304+2, LK6304+11, LK6304+13, LK6304+14, SUB+13, SUB+36*
, SUB+37*
^LR(0 DIS+10, DIS+11
^LR(999999 DIS+8, DIS+14
^TMP("LR" TMPSB+1
^XTMP("LRLNC63" TASK+1, TASK+3, TASK+6, TASK+11*, TASK+12, TASK+13*, TASK+15*, TASK+16, TASK+19*, TASK+22
, 6304+2!, SUB+14, SUB+16, SUB+23, SUB+27, DIS+6, DIS+7!, DIS+12!, IO+1, IO+3
, IO+4!, IO+5!, IO+11, STOP+5*
^XUSEC("XUPROGMODE" SEC+1

Label References

Name Line Occurrences
$$LDEF LNC+25, LNC+38
$$LNC TMPSB+3, RNLT+5
END DEV+4, DEV+8, DIS+5
IO DIS+13, DIS+14
LK6304 TASK+14, 6304+5
MSG LNC+20, LNC+25, LNC+33, LNC+38
SUB LK6304+15

Naked Globals

Name Field # of Occurrence
^( SUB+13, SUB+16, SUB+27*
^(0 TASK+1*, LK6304+2, LK6304+14, RNLT+4, DIS+10*, DIS+11*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE LK6304+5*
>> DFN LK6304+2*, LK6304+3, LK6304+7, LK6304+8, LK6304+9
DIR DIS+4!, STOP+1~
DIR("A" DIS+4*, STOP+3*
DIR(0 DIS+4*, STOP+3*
>> DOB LK6304+8*
DT TASK+1
DUZ SEC+1, STOP+5
ERR LNC+3~
IOF DEV+1
LR5 SUB+11!, SUB+15*, SUB+37
LRCDEF SUB+21*, SUB+24, SUB+26, SUB+27, LNC~, LNC+6*, LNC+7*, LNC+8*, LNC+9*, LNC+10*
, LNC+17, LNC+26, TMPSB+3, TMPSB+4, MSG+2, MSG+5, MSG+6, RNLT+5, RNLT+6
>> LRCDT LK6304+14*
LRDATA 6304+1!, SUB+13*, SUB+19, SUB+22, SUB+35*
>> LRDATA3 SUB+19*, SUB+20, SUB+21, SUB+26*, SUB+31, SUB+32, SUB+34*, SUB+35, SUB+36
>> LRDATA5 SUB+19*, SUB+28, SUB+31, SUB+32, SUB+37
>> LRDBUG LK6304+12, SUB+29, SUB+31, SUB+32, MSG+10
LRDEV DEV+3*, DEV+4, DEV+7, END+1!
LRDFN 6304+1!, 6304+3, 6304+4*, 6304+5, LK6304~, LK6304+1, LK6304+2, LK6304+11, LK6304+12, LK6304+13
, LK6304+14, LK6304+15, SUB~, SUB+13, SUB+30, SUB+36, SUB+37
>> LRDSPEC LK6304+14*, SUB+22
LRERR DEV+2~
>> LRFILE LK6304+2*, LK6304+3, LK6304+6, LK6304+7, LK6304+8, LK6304+9
LRIDT 6304+1!, LK6304+11*, LK6304+13, LK6304+14, LK6304+15, SUB~, SUB+13, SUB+30, SUB+36, SUB+37
LRLNC 6304+1!, SUB+11!, SUB+15*, SUB+24*, SUB+25, SUB+26, SUB+27, SUB+31, SUB+32, SUB+33
LRLST DIS+8*, DIS+10, DIS+11, DIS+13, END+1!
>> LRMAP TASK+10*, LK6304+6, SUB+28
LRMNODE SUB+11!, SUB+16*, SUB+17
>> LRMOD SUB+16
>> LRMOD1 SUB+15*, SUB+18*, SUB+34
>> LRMSG MSG+1
LRMSGM LNC+5!, MSG+2*, MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+9*, MSG+10
LRNLT 6304+1!, SUB+20*, SUB+23*, SUB+24, SUB+27, LNC~, LNC+4, LNC+8, LNC+15*, LNC+17
, LNC+29, MSG+2, MSG+5, MSG+6, MSG+7, MSG+8
LRNOW TASK+17~, TASK+18*, TASK+20
>> LRNXT TASK+6*, TASK+7*, TASK+8*, TASK+9*, TASK+12*, TASK+13, TASK+14, TASK+15
LROVR SUB+11!, SUB+15*, SUB+17*, SUB+21
LRSAGE LK6304+4!, LK6304+5*, LK6304+10*, SUB+28
LRSAGE( LK6304+8, LK6304+9
LRSB TMPSB~, TMPSB+1
LRSEQ TASK+2, TASK+3, TASK+5, TASK+6, TASK+8, TASK+11, TASK+12, TASK+13, TASK+15, TASK+19
, TASK+20, TASK+22, MES+1, DIS+13*, DIS+14*, END+1!, IO+1, IO+2, IO+3, IO+4
, IO+5, IO+7, IO+11, IO+13
LRSLOT DEV+7*, DEV+8, END+1!
LRSPEC SUB+22*, SUB+24, SUB+27, SUB+30, LNC~, LNC+11*, LNC+13, LNC+14, LNC+20, LNC+21
, LNC+22, LNC+23, LNC+33, LNC+34, LNC+35, LNC+36, TMPSB+3, RNLT+5
LRSPECN LNC+3~, LNC+14*, MSG+5, MSG+7
>> LRSTOP DIS+6*, IO+5
LRSUB SUB+11!, SUB+12*, SUB+13*, SUB+14, SUB+16, SUB+23, SUB+27, SUB+30, SUB+36, SUB+37
LRXCDEF SUB+11!, SUB+15*, SUB+17*, SUB+21
LRXDEF SUB+11!, SUB+12*
LRXN LNC+3~, LNC+18*, LNC+20, LNC+21, LNC+22, LNC+23, LNC+25, LNC+30*, LNC+31, LNC+34
, LNC+35, LNC+36, LNC+38
LRXNLT SUB+11!, SUB+20
LRY LDEF~, LDEF+1, LDEF+2
>> NODE TMPSB+1*, TMPSB+2, TMPSB+3*, TMPSB+4*, TMPSB+5
>> SEX LK6304+5*, LK6304+9*
TA LNC+3~, LNC+13*, LNC+21, LNC+22*, LNC+23, LNC+34, LNC+35*, LNC+36, MSG+4, MSG+9
TANAME MSG+3~, MSG+4*, MSG+9
U TASK+1, TASK+19, 6304+3, LK6304+2, LK6304+14, SUB+17, SUB+19, SUB+22, SUB+35, SUB+36
, SUB+37, TMPSB+5, RNLT+3, RNLT+4, DIS+10, DIS+11, STOP+5
VAL LNC+3~, LNC+18, LNC+28!, LNC+30, MSG~, MSG+5, MSG+6, MSG+7, MSG+8
VAL(1 LNC+17*, LNC+29*
X LNC+3~*, LNC+4, LNC+20, LNC+21*, LNC+23*, LNC+25*, LNC+33, LNC+34*, LNC+36*, LNC+38*
, LNC+39*, LNC+40, LDEF+2*, LDEF+3*, LDEF+4, RNLT~, RNLT+1, RNLT+3
>> XQAMSG TASK+20*, MES+1*, IO+13*, IO+14
Y LNC+3~, RNLT+2~, RNLT+4*, RNLT+5*, RNLT+6*, RNLT+7, DIS+5, STOP+4
Y(1 RNLT+3*, RNLT+4
ZTDESC END+2!, IO+7*
ZTDTH END+2!, IO+6*
>> ZTIO IO+6*
ZTRTN END+2!, IO+9*
ZTSAVE END+2!
ZTSAVE("LRLST" IO+8*
ZTSAVE("LRSEQ" IO+6*
>> ZTSK IO+12, IO+13
>> ZTSTOP TASK+12*
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 |  Naked Globals |  Local Variables  | All