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

Package: Health Level Seven

Routine: HLCSLM


Information

HLCSLM ;SFCIOFO/AC - HL7 LINK MANAGER ;06/14/2005 10:29

Source Information

Source file <HLCSLM.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Health Level Seven 4 $$PARAM^HLCS2  MON^HLCSTCP  FILE^HLDIE  CHECKMST^HLEVMST  
Kernel 4 SETNM^%ZOSV  (,$$PSET,$$S,STAT)^%ZTLOAD  $$HDIFF^XLFDT  SETUP^XQALERT  
VA Fileman 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Health Level Seven 4 HL AUTOSTART LINK MANAGER  HL START/STOP LINK MANAGER  HLCSMON1  HLUTIL  
IHS Changes To Lab 1 BLRRLMST  
Order Entry Results Reporting 1 ORWCIRN  
RPC Broker 1 XWB2HL7  

Entry Points

Name Comments DBIA/ICR reference
SAVTSK(X) ;
SAVDOLRH ;Save Last Known $H
STATUS(X) ;Status of task
EN ;Entry point for start up task
STAT() ;Status of LINK MANAGER--up, down or unable to determine.
  • ICR #3574
    • Status: Active
    • Usage: Controlled Subscription
    TASKNUM(X) ;Look-up task number
    CHKQUE ;Check queues for messages to send
    CKLMSTOP() ;Check whether Link Manager should stop
    INIT ;Create Task number and clear Stop flag.
    STRTSTOP ;ENTRY POINT TO START/STOP TCP LINK MANAGER
    EXIT
    TASKLSUB(X) ;Task LINK SUB-MANAGER.
    STOPLM ;ENTRY POINT TO STOP LINK MANAGER
    LLOK(X) ;Function to check whether LL ok.
    TASKLM ;Task Link Manager
    LOOP ;
    SNDALERT ;Send Alert

    External References

    Name Field # of Occurrence
    SETNM^%ZOSV EN+6
    ^%ZTLOAD TASKLSUB+15, TASKLM+9
    $$PSET^%ZTLOAD EN+4
    $$S^%ZTLOAD CKLMSTOP+8
    STAT^%ZTLOAD CHKQUE+19, CHKQUE+27, CHKQUE+46, STATUS+3
    ^DIC STOPLM+4
    ^DIE STOPLM+7
    $$GET1^DIQ TASKNUM+7, STAT+3, STAT+5
    ^DIR STRTSTOP+4, STRTSTOP+8
    $$PARAM^HLCS2 SNDALERT+2
    MON^HLCSTCP TASKLSUB+16
    FILE^HLDIE EXIT+5, SAVDOLRH+6, INIT+7, SAVTSK+10
    CHECKMST^HLEVMST LOOP+4
    $$HDIFF^XLFDT STAT+7
    SETUP^XQALERT SNDALERT+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,*7,"Link Manager is NOT currently running!"
    • Line Location: STRTSTOP+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: STRTSTOP+8
    Function Call: WRITE
    • Prompt: !,"Link Manager has been asked to stop"
    • Line Location: STOPLM+8
    Function Call: WRITE
    • Prompt: !,"Link Manager queued as task number ",ZTSK
    • Line Location: TASKLM+10
    Function Call: WRITE
    • Prompt: $C(7),!!,"Unable to start/restart Link Manager"
    • Line Location: TASKLM+11
    Routine Call
    • DIE
    • Line Location:
      • STOPLM+7
    Routine Call
    • DIC
    • Line Location:
      • STOPLM+4
    Routine Call
    • DIR
    • Line Location:
      • STRTSTOP+4
      • STRTSTOP+8

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^HLCS(869.3 - [#869.3] Classic Fileman Calls,  GET1^DIQ
    ^HLCS(870 - [#870] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(14.7 - [#14.7] TASKLSUB+14
    ^HLCS("HLCSLM" EN+2, EXIT+7, STRTSTOP+2, STRTSTOP+10
    ^HLCS("HLCSLSM" CHKQUE+4, CHKQUE+7
    ^HLCS(869.1 - [#869.1] LLOK+15, TASKLSUB+8
    ^HLCS(869.3 - [#869.3] EXIT+2, EXIT+6, SAVDOLRH+3, SAVDOLRH+7, INIT+3, INIT+8, CKLMSTOP+2, CKLMSTOP+3, CKLMSTOP+4, CKLMSTOP+5
    ^HLCS(870 - [#870] CHKQUE+6, LLOK+4, SAVTSK+5, SAVTSK+14, TASKLSUB+4, SNDALERT+3
    ^HLMA("AC" CHKQUE+4

    Label References

    Name Line Occurrences
    $$CKLMSTOP LOOP+2
    $$LLOK CHKQUE+8
    $$TASKNUM CHKQUE+10
    CHKQUE LOOP+1
    EXIT LOOP+2
    INIT EN+5
    LOOP LOOP+6
    SAVDOLRH EN+5, LOOP+3
    SAVTSK CHKQUE+32
    STOPLM STRTSTOP+6
    TASKLM STRTSTOP+9
    TASKLSUB CHKQUE+32

    Naked Globals

    Name Field # of Occurrence
    ^( CHKQUE+4
    ^(0 TASKLSUB+14
    ^(200 TASKLSUB+8
    ^(400 LLOK+4, TASKLSUB+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % EN+1~, EN+2*, TASKNUM+1~, STAT+1~
    DA TASKNUM+1~, TASKNUM+2*, TASKNUM+7, STOPLM+1~, STOPLM+5*, STAT+1~, STAT+2*, STAT+3, STAT+5
    DIC STOPLM+1~, STOPLM+2*, STOPLM+5
    DIE STOPLM+1~, STOPLM+5*
    DIR STRTSTOP+1~, STRTSTOP+4!, STRTSTOP+8!
    DIR("A" STRTSTOP+4*, STRTSTOP+8*
    DIR("B" STRTSTOP+4*, STRTSTOP+8*
    DIR(0 STRTSTOP+4*, STRTSTOP+8*
    DIRUT STRTSTOP+1~, STRTSTOP+5, STRTSTOP+9
    DLAYGO STOPLM+1~
    DR STOPLM+1~, STOPLM+6*
    DTOUT STOPLM+1~
    DUOUT STOPLM+1~
    HLBGR TASKLSUB+2~, TASKLSUB+8*, TASKLSUB+10*
    HLDA CHKQUE+2~, CHKQUE+3*
    HLDAPP TASKLSUB+2~, TASKLSUB+7*, TASKLSUB+11
    HLDP CHKQUE+2~, CHKQUE+4*, CHKQUE+6, CHKQUE+7, CHKQUE+8, CHKQUE+10, CHKQUE+32, CHKQUE+42*, CHKQUE+44, CHKQUE+48
    , LLOK+3~, LLOK+4*, SAVTSK+1~, SAVTSK+2*, SAVTSK+5, SAVTSK+8, SAVTSK+11, SAVTSK+14, TASKLSUB+2~, TASKLSUB+4*
    , SNDALERT+3
    HLDP("TASK-ACTIVE" CHKQUE+13*, CHKQUE+20*, CHKQUE+21, CHKQUE+28*, CHKQUE+29
    HLDP0 LLOK+3~, LLOK+4*, LLOK+12, LLOK+15, TASKLSUB+2~, TASKLSUB+4*, TASKLSUB+7
    HLENV TASKLSUB+2~, TASKLSUB+8*, TASKLSUB+9
    HLEVLCHK EN+1~
    HLJ EXIT~, SAVDOLRH+1~, INIT+1~, SAVTSK+1~
    HLJ( EXIT+4*, SAVDOLRH+5*, INIT+5*, INIT+6*
    HLJ(870 SAVTSK+8
    HLMSG CHKQUE+2~, CHKQUE+3*, CHKQUE+4*
    HLPARM TASKLSUB+2~
    HLPARM4 LLOK+3~, LLOK+4*, LLOK+6, TASKLSUB+2~, TASKLSUB+4*, TASKLSUB+14
    HLQUIT TASKLSUB+2~, TASKLSUB+9!
    HLTSK CHKQUE+2~, CHKQUE+10*, CHKQUE+23, CHKQUE+25, CHKQUE+32
    HLTSKCNT EN+1~
    HLTSKCNT( CHKQUE+7!, CHKQUE+10, CHKQUE+42, CHKQUE+44, CHKQUE+48!, SAVTSK+11*
    HLTYPTR LLOK+3~, LLOK+15*, TASKLSUB+2~, TASKLSUB+7*, TASKLSUB+8
    NODE5 CKLMSTOP+1~, CKLMSTOP+5*, CKLMSTOP+6
    PTRMAIN CKLMSTOP+1~, CKLMSTOP+2*, CKLMSTOP+3, CKLMSTOP+4, CKLMSTOP+5
    STOP CKLMSTOP+1~, CKLMSTOP+6*, CKLMSTOP+7, CKLMSTOP+8*, CKLMSTOP+9
    TMP TASKLM+2~
    U CHKQUE+6, LLOK+6, LLOK+12, LLOK+15, TASKLSUB+7, TASKLSUB+14, SNDALERT+2, SNDALERT+3
    X EXIT~, EXIT+1*, EXIT+2, EXIT+4, EXIT+6, SAVDOLRH+1~, SAVDOLRH+2*, SAVDOLRH+3, SAVDOLRH+5, SAVDOLRH+7
    , INIT+1~, INIT+2*, INIT+3, INIT+5, INIT+6, INIT+8, TASKNUM~, TASKNUM+2, STATUS~, STATUS+2
    , LLOK~, LLOK+2, LLOK+4, SAVTSK~, SAVTSK+2, SAVTSK+8*, STOPLM+1~, STOPLM+3*, STAT+1~, STAT+3*
    , STAT+4, STAT+5*, STAT+6, STAT+7, TASKLSUB~, TASKLSUB+4
    XQA SNDALERT+1~
    XQA("G." SNDALERT+3*
    XQAID SNDALERT+1~
    XQAMSG SNDALERT+1~, SNDALERT+3*
    XQAOPT SNDALERT+1~
    XQAROU SNDALERT+1~
    Y EN+4*, CHKQUE+2~, CHKQUE+10*, CHKQUE+15, CHKQUE+17, CHKQUE+32, TASKNUM+1~, TASKNUM+7*, TASKNUM+12, STATUS+1~
    , STATUS+4*, STATUS+5, STRTSTOP+1~, STRTSTOP+5, STRTSTOP+9, STOPLM+1~, STOPLM+5, STAT+1~
    Z SNDALERT+1~, SNDALERT+2*, SNDALERT+3
    ZTCPU TASKLSUB+2~, TASKLSUB+14*
    ZTDESC TASKLSUB+2~, TASKLSUB+11*, TASKLM+2~, TASKLM+7*
    ZTDTH TASKLSUB+12*, TASKLM+2~, TASKLM+4*
    ZTIO TASKLSUB+12*, TASKLM+2~, TASKLM+3*
    >> ZTQUEUED EN+4, EN+6, INIT+5
    ZTRTN TASKLSUB+2~, TASKLSUB+10*, TASKLM+2~, TASKLM+6*
    ZTSAVE TASKLSUB+2~
    ZTSAVE("HLBGR" TASKLSUB+11*
    ZTSAVE("HLDP" TASKLSUB+11*
    ZTSK CHKQUE+16~, CHKQUE+17*, CHKQUE+24~, CHKQUE+25*, CHKQUE+43~, CHKQUE+44*, STATUS+1~, STATUS+2*, SAVTSK+8, SAVTSK+11
    , TASKLM+2~, TASKLM+10
    ZTSK(1 CHKQUE+20, CHKQUE+28, CHKQUE+48, STATUS+4
    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