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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All