Routine: HLOPROC1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

HLOPROC1 ;ALB/CJM- Process Manager - 10/4/94 1pm

Source Information

Source file <HLOPROC1.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Health Level Seven	2	HLO SYSTEM STARTUP HLOUSR

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
CHKDEAD(WORK)	;
STOPHL7	;shut down HLO HL7
CNTQUED	;count the queued tasks
CNTLIVE	;count the running processes
CHKQUED	;did any queued task get dequeued without being erased?
STARTHL7	;start HL7 system, but first do some cleanup
GETWORK(PROCESS)	;
GETPROC(IEN,PROCESS)	;
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
^%ZTLOAD	DOWORK+14
$$ASKSTOP^%ZTLOAD	STOPHL7+7
$$S^%ZTLOAD	GETWORK+5
DQ^%ZTLOAD	STOPHL7+5
ISQED^%ZTLOAD	QUEUED+4
PCLEAR^%ZTLOAD	STOPHL7+7
$$CHKSTOP^HLOPROC	DOWORK+4
$$INC^HLOSITE	DOWORK+18, CHKDEAD+12, CHKQUED+8
$$FMDIFF^XLFDT	GETWORK+20
$$NOW^XLFDT	GETWORK+20, DOWORK+19

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLC("HL7 PROCESS COUNTS"	GETWORK+14, GETWORK+16, DOWORK+18, CHKDEAD+12, CHKQUED+8, CNTLIVE+6, CNTLIVE+7, CNTQUED+6, CNTQUED+7
^HLD(779.1 - [#779.1]	STOPHL7+3, STARTHL7+5
^HLD(779.3 - [#779.3]	GETWORK+8, DOWORK+19*, GETPROC+6, STARTHL7+14
^HLTMP("HL7 QUEUED PROCESSES"	DOWORK+19*, 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+16

Name	Line Occurrences
$$GETPROC	GETWORK+10
$$QUEUED	CHKQUED+5
CHKDEAD	RECOUNT+6
CHKQUED	STOPHL7+8, RECOUNT+6
CNTLIVE	RECOUNT+9
CNTQUED	RECOUNT+9
DOWORK	STARTHL7+15
RECOUNT	STARTHL7+2
STOPHL7	GETWORK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COUNT	GETWORK+9~, GETWORK+18, GETWORK+19, GETWORK+20, QUIT1~, QUIT1+1
COUNTS	CNTLIVE+1~, CNTQUED+1~
COUNTS(	CNTLIVE+5, CNTLIVE+6, CNTLIVE+7, CNTQUED+5, CNTQUED+6, CNTQUED+7
DOLLARJ	STOPHL7+1~, STOPHL7+6, STOPHL7+7, CHKDEAD+3~, CHKDEAD+6, CHKDEAD+7, CHKDEAD+9, CHKDEAD+10
GOTWORK	GETWORK+3~, GETWORK+6, GETWORK+8, GETWORK+19, GETWORK+20*, GETWORK+21, GETWORK+22
>> HL7("COUNTING	PROCESSES" , DOWORK+17, DOWORK+20, CHKDEAD+4, CHKDEAD+13, CHKQUED+2, CHKQUED+10, CNTLIVE+2, CNTLIVE+8, CNTQUED+2 , CNTQUED+8
I	DOWORK+6~, DOWORK+8*
IEN	GETWORK+3~, GETWORK+7, GETWORK+8, GETWORK+10, GETWORK+19, GETWORK+20, 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*
NAME	GETWORK+3~
NODE	GETPROC+5~, GETPROC+6*, GETPROC+7, GETPROC+8, GETPROC+10, GETPROC+11, GETPROC+12, GETPROC+14, GETPROC+15
PROC	GETWORK+9~, GETWORK+10, 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("LAST DT	/TM" , GETWORK+20
PROC("MAXIMUM"	GETWORK+20
PROC("MINIMUM"	GETWORK+19
PROC("NAME"	GETWORK+12, GETWORK+14, GETWORK+16, GETWORK+19, GETWORK+20
PROC("VMS SER	VICE" , GETWORK+11
PROC("WAIT SE	CONDS" , GETWORK+20
PROCESS	GETWORK~, GETWORK+21!, DOWORK~, GETPROC~, STARTHL7+12~, STARTHL7+15
PROCESS("COUNT"	GETWORK+13, GETWORK+19, GETWORK+20, DOWORK+7, DOWORK+8
PROCESS("IEN"	GETWORK+7, GETWORK+8, GETWORK+19, GETWORK+20, DOWORK+19, GETPROC+9, STARTHL7+14
PROCESS("LAST	DT/TM" , GETPROC+14*
PROCESS("MAXIMUM"	GETPROC+11*
PROCESS("MINIMUM"	GETPROC+10*
PROCESS("NAME"	GETWORK+19, GETWORK+20, DOWORK+10, DOWORK+12, DOWORK+18, DOWORK+19, GETPROC+8, STARTHL7+13
PROCESS("VMS	SERVICE" , GETPROC+15*
PROCESS("WAIT	SECONDS" , GETPROC+12, GETPROC+13
QUEUED	GETWORK+9~, GETWORK+14, GETWORK+15, GETWORK+18, GETWORK+20
RECOUNT	RECOUNT~
RUNNING	GETWORK+9~, GETWORK+16, GETWORK+17, GETWORK+18
TASK	QUEUED~, QUEUED+3
WORK	CHKDEAD~
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+15, DOWORK+19, STOPHL7+1~, STOPHL7+4, STOPHL7+5, STOPHL7+7, QUEUED+2~, QUEUED+3
ZTSK(0	QUEUED+5

Customize PDF page

Package: Health Level Seven

Routine: HLOPROC1

Call Graph Total: 4

Caller Graph Total: 2