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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HLOQUE

Package: Health Level Seven

Routine: HLOQUE


Information

HLOQUE ;ALB/CJM/OAK/PIJ/RBN- HL7 QUEUE MANAGEMENT - 10/4/94 1pm ;03/07/2012

Source Information

Source file <HLOQUE.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Health Level Seven 5 $$EXCEPT^HLOAPP  ($$ADD,$$UPD,UPD)^HLOASUB1  $$GETSAP^HLOCLNT2  ($$INC,$$RCNT)^HLOSITE  $$ASKYESNO^HLOUSR2  
Kernel 4 (,UNWIND)^%ZTER  $$NOW^XLFDT  DUZ^XUP  KILL^XUSCLEAN  
VA FileMan 2 ^DIC  ^DIE  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 18

Package Total Caller Graph
Health Level Seven 17 HLO SET QUEUE PRIORITY  HLOCLNT  HLOFILER  HLOPING  HLOPURGE  ^HLD(779.3  HLOAPI1  HLOAPI3  
HLOCLNT2  HLOSRVR  HLOUSR  HLOUSR2  HLOUSR4  HLOUSR5  HLOUSR6  ^HLD(779.9  
HLOUSR7  
VA Point of Service 1 VPSSEND  

Entry Points

Name Comments DBIA/ICR reference
SETPRTY ; User interface to set queue priority
;
DEQUE(FROMORTO,QNAME,DIR,IEN778) ;
  • ICR #6177
    • Status: Withdrawn
    • Usage: Controlled Subscription
    INQUE(FROM,QNAME,IEN778,ACTION,PURGE,ORIG) ;
    ZB0
    QUECNT(QUEARRAY) ;
    ;
    ; DESC : Functions eturns the total number of messages on all the queues and an the QUEARRAY
    ;
    ; INPUT : QUEARRAY - the array, passed by reference, to contain the queue counts.
    ;
    ; OUTPUT : Filled array
    ;
    ; Format:
    ;
    ; QUE("TOTAL") = Total number of messages on all queues.
    ; QUE("OUT") = Total number of outgoing messages.
    ; QUE("IN") = Total number of incoming messages.
    ; QUE("SEQ") = Total number of messages on sequence queues.
    ; QUE("IN",link_name,queue_name) = Number of messages on given link and queue.
    ; QUE("OUT",link_name,queue_name) = Number of messages on given link and queue.
    ; QUE("SEQ",queue_name) = Number of messages on given sequence queue.
    ;
    ; There are four possible calls ("entry points") to this API:
    ; 1. QUECNT - returns the referenced array with all of the above data.
    ; 2. IN - returns only the data related to the IN queues.
    ; 3. OUT - returns only the data related to the OUT queues.
    ; 4. SEQ - returns only the data related to the SEQUENCE queues.
    ;
    OUTQUE(LINKNAME,PORT,QNAME,IEN778) ;
    STARTQUE(DIR,QUEUE) ;
  • ICR #4730
    • Status: Active
    • Usage: Supported
    ADVANCE(SQUE,MSGIEN) ;
    ERROR ;error trap for application context
    SEQ(QUEARRAY) ;
    ; Count messages on sequence queues
    GETPRTY(QUEUE,LINK) ;
    RESETF(IEN) ;
    OUT(QUEARRAY) ;
    ; Count messages on outgoing queues
    STOPPED(DIR,QUEUE) ;
  • ICR #4730
    • Status: Active
    • Usage: Supported
    ZB36
    SQUE(SQUE,LINKNAME,PORT,QNAME,IEN778) ;
    STOPQUE(DIR,QUEUE) ;
  • ICR #4730
    • Status: Active
    • Usage: Supported
    SETP(QUEUE,PRIORITY,LINK) ;
    IN(QUEARRAY) ;
    ; Count messages on incoming queues
    SEQCHK(WORK) ;functions under the HLO Process Manager

    External References

    Name Field # of Occurrence
    ^%ZTER ERROR+2
    UNWIND^%ZTER ERROR+16
    ^DIC SETPRTY+7, SETPRTY+20
    ^DIE SETPRTY+25, SETPRTY+33
    $$EXCEPT^HLOAPP SEQCHK+20
    $$ADD^HLOASUB1 SETP+28, SETP+41
    $$UPD^HLOASUB1 SETP+29, SETP+40
    UPD^HLOASUB1 RESETF+11, SETPRTY+14, SETPRTY+30
    $$GETSAP^HLOCLNT2 SEQCHK+20
    $$INC^HLOSITE ZB36+4, OUTQUE+19, DEQUE+21, SQUE+28, SQUE+32, ADVANCE+25, ADVANCE+29, ADVANCE+37, ADVANCE+40
    $$RCNT^HLOSITE ZB36+1, OUTQUE+16, DEQUE+18, SQUE+17
    $$ASKYESNO^HLOUSR2 SETPRTY+11
    $$NOW^XLFDT SEQCHK+3
    DUZ^XUP SEQCHK+30
    KILL^XUSCLEAN SEQCHK+35, ERROR+8

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^HLD(779.9 - [#779.9] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZTSCH("TASK" ERROR+11
    ^HLB - [#778] SQUE+53, ADVANCE+34, ADVANCE+52*, SEQCHK+21*
    ^HLB("QUEUE" ZB36+3*, OUTQUE+18*, DEQUE+16, DEQUE+19!, SQUE+21, SQUE+24, SQUE+25, SQUE+40, SQUE+41*, SQUE+46*
    , SQUE+56, ADVANCE+16, ADVANCE+21, ADVANCE+34, ADVANCE+36!, ADVANCE+49*, ADVANCE+50!, ADVANCE+51, ADVANCE+55!, ADVANCE+56
    , SEQCHK+5, SEQCHK+7, SEQCHK+11, SEQCHK+14, SEQCHK+15, SEQCHK+16, SEQCHK+17, SEQCHK+19, SEQCHK+22*, SEQCHK+23
    ^HLC("QUEUECOUNT" ZB36+4, OUTQUE+19, DEQUE+21, SQUE+28, SQUE+32, ADVANCE+25, ADVANCE+29, ADVANCE+37, ADVANCE+40, IN+6
    , IN+7, IN+8, IN+9, OUT+6, OUT+7, OUT+9, OUT+10, OUT+11, SEQ+6, SEQ+7
    , SEQ+8, SEQ+9
    ^HLCS(870 - [#870] SETP+21, SETP+22
    ^HLD(779.9 - [#779.9] RESETF+7, RESETF+9, GETPRTY+9, GETPRTY+11, SETP+23, SETP+36
    ^HLTMP("HL7 RUNNING PROCESSES" ERROR+14
    ^HLTMP("STOPPED QUEUES" STOPQUE+7*, STARTQUE+7!, STOPPED+11

    Label References

    Name Line Occurrences
    $$ADVANCE SQUE+49
    ADVANCE SQUE+53
    IN QUECNT+27
    OUT QUECNT+29
    OUTQUE SQUE+42, ADVANCE+53
    SEQ QUECNT+31

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACTION INQUE~, ZB36+3, SEQCHK+6~, SEQCHK+20*, SEQCHK+28
    DA RESETF+4~, RESETF+6*, RESETF+7*, RESETF+9, RESETF+11, SETPRTY+2~, SETPRTY+9!, SETPRTY+10*, SETPRTY+14, SETPRTY+15
    , SETPRTY+16*, SETPRTY+22*, SETPRTY+30, SETP+12~, SETP+23*, SETP+24, SETP+28*, SETP+29, SETP+33, SETP+35
    , SETP+36*, SETP+40, SETP+41
    DA(1 RESETF+5*, RESETF+7, RESETF+9, SETPRTY+16*, SETPRTY+23, SETP+35*, SETP+36
    DATA RESETF+8~, RESETF+11, SETPRTY+12~, SETPRTY+14, SETPRTY+27~, SETPRTY+30, SETP+12~, SETP+28, SETP+29, SETP+37!
    , SETP+40, SETP+41
    DATA( RESETF+9*, RESETF+10, SETPRTY+13*, SETPRTY+28*, SETPRTY+29*, SETP+25*, SETP+26*, SETP+27*, SETP+30*, SETP+31*
    , SETP+32*, SETP+38*, SETP+39*
    DIC SETPRTY+2~, SETPRTY+3*, SETPRTY+9!, SETPRTY+15*
    DIC("A" SETPRTY+5*, SETPRTY+19*
    DIC("DR" SETPRTY+6*
    DIC(0 SETPRTY+4*, SETPRTY+18*
    DIE SETPRTY+2~, SETPRTY+9!, SETPRTY+23*, SETPRTY+31*
    >> DILOCKTM ERROR+11
    DIR DEQUE~, DEQUE+12*, DEQUE+13*, DEQUE+14, DEQUE+16, DEQUE+18, DEQUE+19, DEQUE+21, DEQUE+22, STOPQUE~
    , STOPQUE+5, STOPQUE+7, STARTQUE~, STARTQUE+5, STARTQUE+7, STOPPED~, STOPPED+9, STOPPED+11
    DR SETPRTY+2~, SETPRTY+9!, SETPRTY+24*, SETPRTY+32*
    >> DTOUT SETPRTY+8
    >> DUOUT SETPRTY+8
    DUZ SEQCHK+25~
    >> ERROR SETP+41
    FLG INQUE+13~, ZB36+1*, ZB36+5, OUTQUE+10~, OUTQUE+16*, OUTQUE+20, DEQUE+17~, DEQUE+18*, DEQUE+22, SQUE+10~
    , SQUE+17*, SQUE+57, QUECNT+24~, QUECNT+25*, IN+3~, IN+11, OUT+3~, OUT+13, SEQ+3~, SEQ+10
    FROM INQUE~, ZB36*, ZB36+1, ZB36+3, ZB36+4, ZB36+5
    FROMORTO DEQUE~, DEQUE+9, DEQUE+16, DEQUE+18, DEQUE+19, DEQUE+21, DEQUE+22
    HLMSGIEN SEQCHK+25~, SEQCHK+27*
    IEN RESETF~, RESETF+5
    IEN778 INQUE~, ZB36+3, OUTQUE~, OUTQUE+18, DEQUE~, DEQUE+15, DEQUE+16, DEQUE+19, SQUE~, SQUE+25
    , SQUE+41, SQUE+42, SQUE+46, ADVANCE+8~, ADVANCE+32*, ADVANCE+34*, ADVANCE+36, ADVANCE+44, ADVANCE+49, ADVANCE+50
    , ADVANCE+52, ADVANCE+53
    INCNT QUECNT+24~, QUECNT+35, IN+3~, IN+5*, IN+8*, IN+10, IN+11, OUT+3~, SEQ+3~
    LINK QUECNT+24~, IN+3~, IN+4*, IN+6*, IN+7, IN+8, IN+9, OUT+3~, OUT+4*, OUT+6*
    , OUT+7, OUT+9, OUT+10, OUT+11, SEQ+3~, GETPRTY~, GETPRTY+8, SETP~, SETP+19, SETP+21
    , SETP+22
    LINKIEN SETP+12~, SETP+13*, SETP+19, SETP+20*, SETP+21*, SETP+22*, SETP+27, SETP+29, SETP+34, SETP+36
    , SETP+38
    LINKNAME OUTQUE~, OUTQUE+11, SQUE~, SQUE+42, ADVANCE+8~, ADVANCE+47*, ADVANCE+53
    LNK GETPRTY+6~, GETPRTY+8*, GETPRTY+9
    MCODE SEQCHK+25~, SEQCHK+28*, SEQCHK+31
    MOVED SQUE+10~, SQUE+11*, SQUE+43*, SQUE+58
    MSGIEN ADVANCE~, ADVANCE+13, ADVANCE+21, SEQCHK+6~, SEQCHK+18*, SEQCHK+19, SEQCHK+20, SEQCHK+21, SEQCHK+27, SEQCHK+29~
    , ERROR+7~
    NEXT SQUE+10~, SQUE+24*, SQUE+25, SQUE+40, SQUE+49, SQUE+53
    NODE ADVANCE+8~, ADVANCE+34*, ADVANCE+47, SEQCHK+6~, SEQCHK+7*, SEQCHK+8, SEQCHK+9, SEQCHK+10, SEQCHK+14*, SEQCHK+15
    , SEQCHK+16, SEQCHK+17, SEQCHK+18
    NOW SEQCHK+2~, SEQCHK+3*, SEQCHK+9, SEQCHK+16, SEQCHK+25~
    ORIG INQUE~
    ORIG("ACK BY" , ZB36+3
    ORIG("IEN" ZB36+3
    ORIG("STATUS" ZB36+3
    OUTCNT QUECNT+24~, QUECNT+35, IN+3~, OUT+3~, OUT+5*, OUT+10*, OUT+12, OUT+13, SEQ+3~
    PORT OUTQUE~, OUTQUE+12, SQUE~, SQUE+42, ADVANCE+8~, ADVANCE+47*, ADVANCE+53
    PRIORITY SETP~, SETP+14*, SETP+15, SETP+16, SETP+27, SETP+32, SETP+39
    PRTY GETPRTY+6~, GETPRTY+7*, GETPRTY+9*, GETPRTY+10, GETPRTY+11*, GETPRTY+12, GETPRTY+13
    PURGE INQUE~, ZB36+3
    QNAME INQUE~, ZB36+1, ZB36+2*, ZB36+3, ZB36+4, ZB36+5, OUTQUE~, OUTQUE+13*, OUTQUE+16, OUTQUE+18
    , OUTQUE+19, OUTQUE+20, DEQUE~, DEQUE+10*, DEQUE+16, DEQUE+18, DEQUE+19, DEQUE+21, DEQUE+22, SQUE~
    , SQUE+42, ADVANCE+8~, ADVANCE+47*, ADVANCE+53
    QUE SEQCHK+2~, SEQCHK+4*, SEQCHK+5*, SEQCHK+7, SEQCHK+11, SEQCHK+14, SEQCHK+15, SEQCHK+16, SEQCHK+17, SEQCHK+19
    , SEQCHK+22, SEQCHK+23, SEQCHK+25~, QUECNT+24~, IN+3~, IN+4*, IN+7*, IN+8, IN+9, OUT+3~
    , OUT+4*, OUT+7*, OUT+9, OUT+10, OUT+11, SEQ+3~, SEQ+4*, SEQ+6*, SEQ+7, SEQ+8
    QUEARRAY QUECNT~, QUECNT+27, QUECNT+29, QUECNT+31, IN~, OUT~, SEQ~
    QUEARRAY("IN" IN+9*, IN+10*
    QUEARRAY("OUT" OUT+11*, OUT+12*
    QUEARRAY("SEQ" SEQ+8*, SEQ+9*, SEQ+10
    QUEARRAY("TOTAL" QUECNT+35*, QUECNT+36
    QUEUE STOPQUE~, STOPQUE+6, STOPQUE+7, STARTQUE~, STARTQUE+6, STARTQUE+7, STOPPED~, STOPPED+10, STOPPED+11, ERROR+7~
    , GETPRTY~, GETPRTY+9, GETPRTY+11, SETPRTY+2~, SETPRTY+10*, SETPRTY+11, SETP~, SETP+17, SETP+18, SETP+23
    , SETP+26
    >> RECOUNT( DEQUE+18, DEQUE+22
    >> RECOUNT("IN" ZB36+1, ZB36+5
    >> RECOUNT("OUT" OUTQUE+16, OUTQUE+20
    >> RECOUNT("SEQUENCE" SQUE+17, SQUE+57
    RET STOPPED+7~, STOPPED+8*, STOPPED+11*, ZB0
    SEQCNT QUECNT+24~, QUECNT+35, IN+3~, OUT+3~, SEQ+3~, SEQ+5*, SEQ+7*
    SQUE SQUE~, SQUE+17, SQUE+21, SQUE+24, SQUE+25, SQUE+32, SQUE+40, SQUE+41, SQUE+46, SQUE+49
    , SQUE+53, SQUE+56, SQUE+57, ADVANCE~, ADVANCE+9, ADVANCE+16, ADVANCE+21, ADVANCE+29, ADVANCE+34, ADVANCE+36
    , ADVANCE+40, ADVANCE+49, ADVANCE+50, ADVANCE+51, ADVANCE+55, ADVANCE+56
    SUB OUTQUE+10~, OUTQUE+11*, OUTQUE+12*, OUTQUE+16, OUTQUE+18, OUTQUE+19, OUTQUE+20
    TOTAL QUECNT+24~, IN+3~, OUT+3~, SEQ+3~
    WORK SEQCHK~
    X SEQCHK+29~
    Y SETPRTY+2~, SETPRTY+8, SETPRTY+9!, SETPRTY+10, SETPRTY+21, SETPRTY+22
    ZTSK SEQCHK+34~, ERROR+7~, ERROR+11, ERROR+12
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All