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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HLOPROC1

Package: Health Level Seven

Routine: HLOPROC1


Information

HLOPROC1 ;ALB/CJM/OAK/PIJ- Process Manager - 10/4/94 1pm ;12/30/2010

Source Information

Source file <HLOPROC1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 (,UNWIND)^%ZTER  (,$$ASKSTOP,$$S,DQ,ISQED,PCLEAR)^%ZTLOAD  ($$FMDIFF,$$NOW)^XLFDT  
Health Level Seven 2 $$CHKSTOP^HLOPROC  ($$GETNODE,$$INC,RCNT)^HLOSITE  

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

Package Total Caller Graph
Health Level Seven 10 HLO DAILY STARTUP  HLO START MENU  HLO SYSTEM STARTUP  HLOP139  HLOP143  HLOP146  HLOP147  HLOPRE  
HLOUSR  ^HLD(779.3  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
QUIT1(COUNT) ;just returns 1 as function value first time around,then 0, insuring that the DO WORK function is called just once
RESET ;
CHKDEAD(WORK) ;
STOPHL7 ;shut down HLO HL7
QCOUNT(WORK) ;count messages pending on all the queues
CNTQUED ;count the queued tasks
CNTLIVE ;count the running processes
CHKQUED ;did any queued task get dequeued without being erased?
STARTHL7 ;
GETWORK(PROCESS) ;
GETPROC(IEN,PROCESS) ;
ERROR ;
RECOUNT(RECOUNT) ;check that the processes that are supposed to be running actually are, same for the queued processes
DOWORK(PROCESS) ;
QUEUED(TASK) ;

External References

Name Field # of Occurrence
^%ZTER ERROR+6
UNWIND^%ZTER ERROR+7
^%ZTLOAD DOWORK+15
$$ASKSTOP^%ZTLOAD STOPHL7+7
$$S^%ZTLOAD GETWORK+6
DQ^%ZTLOAD STOPHL7+5
ISQED^%ZTLOAD QUEUED+4
PCLEAR^%ZTLOAD STOPHL7+7
$$CHKSTOP^HLOPROC DOWORK+4
$$GETNODE^HLOSITE GETPROC+21
$$INC^HLOSITE DOWORK+19, CHKDEAD+12, CHKQUED+8
RCNT^HLOSITE ERROR+4, QCOUNT+2, QCOUNT+85
$$FMDIFF^XLFDT GETWORK+22
$$NOW^XLFDT GETWORK+22, DOWORK+20

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(14.7 - [#14.7] GETPROC+19
^HLB("QUEUE" RESET+4, RESET+5, QCOUNT+9, QCOUNT+12, QCOUNT+17, QCOUNT+19, QCOUNT+23, QCOUNT+31, QCOUNT+34, QCOUNT+39
, QCOUNT+45, QCOUNT+47, QCOUNT+65, QCOUNT+68, QCOUNT+73, QCOUNT+75, QCOUNT+79
^HLC("HL7 PROCESS COUNTS" GETWORK+16, GETWORK+18, DOWORK+19, CHKDEAD+12, CHKQUED+8, CNTLIVE+6*, CNTLIVE+7*, CNTQUED+6*, CNTQUED+7*
^HLC("QUEUECOUNT" QCOUNT+7, QCOUNT+9, QCOUNT+12*, QCOUNT+24*, QCOUNT+30, QCOUNT+34*, QCOUNT+48*, QCOUNT+55, QCOUNT+56*, QCOUNT+63
, QCOUNT+65, QCOUNT+68*, QCOUNT+81*
^HLD(779.1 - [#779.1] STOPHL7+3*, STARTHL7+4*
^HLD(779.3 - [#779.3] GETWORK+9, DOWORK+20*, GETPROC+6, STARTHL7+12
^HLTMP("FAILING LINKS" RESET+2!, RESET+6*
^HLTMP("HL7 QUEUED PROCESSES" DOWORK+20*, STOPHL7+5, CHKQUED+5, CHKQUED+7, CHKQUED+9!, CNTQUED+5
^HLTMP("HL7 RUNNING PROCESSES" STOPHL7+7, CHKDEAD+6, CHKDEAD+7, CHKDEAD+9, CHKDEAD+10!, CNTLIVE+5
^HLTMP("PROCESS MANAGER" STARTHL7+8, STARTHL7+11, ERROR+2

Label References

Name Line Occurrences
$$GETPROC GETWORK+11
$$QUEUED CHKQUED+5
CHKDEAD RECOUNT+6
CHKQUED STOPHL7+8, RECOUNT+6
CNTLIVE RECOUNT+9
CNTQUED RECOUNT+9
DOWORK STARTHL7+14
GETPROC STARTHL7+13
RECOUNT STARTHL7+5
RESET STARTHL7+6
STARTHL7 ERROR+3
STOPHL7 GETWORK+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT GETWORK+10~, GETWORK+20*, GETWORK+21, GETWORK+22, QUIT1~, QUIT1+1*
COUNTS CNTLIVE+1~, CNTQUED+1~
COUNTS( CNTLIVE+5*, CNTLIVE+6, CNTLIVE+7, CNTQUED+5*, CNTQUED+6, CNTQUED+7
CTR RESET+1~, QCOUNT+22*, QCOUNT+23*, QCOUNT+24, QCOUNT+43*, QCOUNT+45*, QCOUNT+47*, QCOUNT+48, QCOUNT+54*, QCOUNT+55*
, QCOUNT+56, QCOUNT+78*, QCOUNT+80*, QCOUNT+81
DOLLARJ STOPHL7+1~, STOPHL7+6*, STOPHL7+7*, CHKDEAD+3~*, CHKDEAD+6*, CHKDEAD+7, CHKDEAD+9, CHKDEAD+10
DT RESET+1~, RESET+5*, RESET+6
FROM QCOUNT+1~, QCOUNT+62*, QCOUNT+63*, QCOUNT+65, QCOUNT+68, QCOUNT+72*, QCOUNT+73*, QCOUNT+75, QCOUNT+79, QCOUNT+81
GOTWORK GETWORK+4~, GETWORK+7*, GETWORK+9, GETWORK+21*, GETWORK+22*, GETWORK+23, GETWORK+24
>> HL7("COUNTING PROCESSES" , DOWORK+18, DOWORK+21, CHKDEAD+4, CHKDEAD+13, CHKQUED+2, CHKQUED+10, CNTLIVE+2, CNTLIVE+8, CNTQUED+2
, CNTQUED+8
>> HLON ERROR+3
I DOWORK+6~, DOWORK+8*
IEN GETWORK+4~, GETWORK+8*, GETWORK+9*, GETWORK+11, GETWORK+21, GETWORK+22, GETPROC~, GETPROC+6, GETPROC+9
JOB CHKQUED+1~, CHKQUED+4*, CHKQUED+5*, CHKQUED+7, CHKQUED+9, CNTLIVE+1~, CNTLIVE+4*, CNTLIVE+5*, CNTQUED+1~, CNTQUED+4*
, CNTQUED+5*
LINK RESET+1~, RESET+3*, RESET+4*, RESET+5, RESET+6, QCOUNT+1~, QCOUNT+6*, QCOUNT+7*, QCOUNT+9, QCOUNT+10
, QCOUNT+12, QCOUNT+16*, QCOUNT+17*, QCOUNT+19, QCOUNT+20, QCOUNT+23, QCOUNT+24
LOCK ERROR+5, QCOUNT+1~, QCOUNT+10*, QCOUNT+11, QCOUNT+13, QCOUNT+20*, QCOUNT+21, QCOUNT+25, QCOUNT+32*, QCOUNT+33
, QCOUNT+35, QCOUNT+40*, QCOUNT+41, QCOUNT+49, QCOUNT+66*, QCOUNT+67, QCOUNT+69, QCOUNT+76*, QCOUNT+77, QCOUNT+82
MSGIEN RESET+1~, QCOUNT+22*, QCOUNT+23*, QCOUNT+43*, QCOUNT+47*, QCOUNT+78*, QCOUNT+79*
NAME GETWORK+4~
NODE GETPROC+5~, GETPROC+6*, GETPROC+7, GETPROC+8, GETPROC+10, GETPROC+11, GETPROC+12, GETPROC+13, GETPROC+15, GETPROC+16
, GETPROC+17
PROC GETWORK+10~, GETWORK+11, CHKDEAD+8~, CHKDEAD+9*, CHKDEAD+11, CHKDEAD+12, CHKQUED+1~, CHKQUED+6~, CHKQUED+7*, CHKQUED+8
, CNTLIVE+1~, CNTLIVE+5*, CNTLIVE+6*, CNTLIVE+7*, CNTQUED+1~, CNTQUED+5*, CNTQUED+6*, CNTQUED+7*
PROC("ACTIVE" GETWORK+14
PROC("LAST DT /TM" , GETWORK+22
PROC("MAXIMUM" GETWORK+22
PROC("MINIMUM" GETWORK+21
PROC("NAME" GETWORK+13, GETWORK+16, GETWORK+18, GETWORK+21, GETWORK+22
PROC("NODE" GETWORK+21, GETWORK+22
PROC("VMS SER VICE" , GETWORK+12
PROC("WAIT SE CONDS" , GETWORK+22
PROCESS GETWORK~, GETWORK+23!, DOWORK~, GETPROC~, STARTHL7+3~, STARTHL7+13, STARTHL7+14
PROCESS("ACTIVE" GETPROC+10*
PROCESS("COUNT" GETWORK+15*, GETWORK+21*, GETWORK+22*, DOWORK+7*, DOWORK+8
PROCESS("IEN" GETWORK+8, GETWORK+9, GETWORK+21*, GETWORK+22*, DOWORK+20, GETPROC+9*, STARTHL7+12*, STARTHL7+13
PROCESS("LAST DT/TM" , GETPROC+15*
PROCESS("MAXIMUM" GETPROC+12*
PROCESS("MINIMUM" GETPROC+11*
PROCESS("NAME" GETWORK+21*, GETWORK+22*, DOWORK+10, DOWORK+12, DOWORK+19, DOWORK+20, GETPROC+8*
PROCESS("NODE" GETWORK+21*, GETWORK+22*, DOWORK+14, GETPROC+17*, GETPROC+18, GETPROC+19*, GETPROC+20*, GETPROC+21*
PROCESS("VMS SERVICE" , GETPROC+16*
PROCESS("WAIT SECONDS" , GETPROC+13*, GETPROC+14*
QUEUE RESET+1~, QCOUNT+1~, QCOUNT+8*, QCOUNT+9*, QCOUNT+10, QCOUNT+12, QCOUNT+18*, QCOUNT+19*, QCOUNT+20, QCOUNT+23
, QCOUNT+24, QCOUNT+29*, QCOUNT+30*, QCOUNT+31, QCOUNT+32, QCOUNT+34, QCOUNT+38*, QCOUNT+39*, QCOUNT+40, QCOUNT+45
, QCOUNT+47, QCOUNT+48, QCOUNT+53*, QCOUNT+55*, QCOUNT+64*, QCOUNT+65*, QCOUNT+66, QCOUNT+68, QCOUNT+74*, QCOUNT+75*
, QCOUNT+76, QCOUNT+79, QCOUNT+81
QUEUED GETWORK+10~, GETWORK+16*, GETWORK+17*, GETWORK+20, GETWORK+22
RECOUNT RECOUNT~
RECOUNT("IN" QCOUNT+66, QCOUNT+76
RECOUNT("OUT" QCOUNT+10, QCOUNT+20
RECOUNT("SEQUENCE" QCOUNT+32, QCOUNT+40
RUNNING GETWORK+10~, GETWORK+18*, GETWORK+19*, GETWORK+20
TASK QUEUED~, QUEUED+3
WORK CHKDEAD~, QCOUNT~
ZTCPU DOWORK+6~, DOWORK+14*
ZTDESC DOWORK+6~, DOWORK+10*
ZTDTH DOWORK+6~, DOWORK+13*
ZTIO DOWORK+6~, DOWORK+11*
ZTRTN DOWORK+6~, DOWORK+9*
ZTSAVE DOWORK+6~
ZTSAVE("PROCNAME" DOWORK+12*
ZTSK DOWORK+6~, DOWORK+16, DOWORK+20, STOPHL7+1~, STOPHL7+4*, STOPHL7+5*, STOPHL7+7*, QUEUED+2~, QUEUED+3*
ZTSK(0 QUEUED+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All