Routine: BOPMTR

Information

BOPMTR ;IHS/ILC/ALG/CIA/PLS - ILC Job Monitor;16-Aug-2005 10:56;SM

Source file <BOPMTR.m>

Package	Total	Call Graph
Kernel	3	GETENV^%ZOSV (,STAT)^%ZTLOAD ($$FMADD,$$NOW)^XLFDT
VA Fileman	2	DT^DICRW ^DIE
IHS Omnicell Pyxis Interface	1	$$INTFACE^BOPTU
MailMan	1	^XMD

Name	Comments	DBIA/ICR reference
DIE
FQ	;
TASK	;For Monitor option
QUEREC	;Schedule Standard Receiver
QUEFILE	;Schedule Transaction Filer
CHQ	;Set the Monitor Stop flag and quit
ENQUE	;BOP Start Monitor option (BOP MONITOR)
ERROR	;Send message on error
JOB
ENQUE2	;Schedule task to run Monitor according to field 4.1, "Monitor
START
QUESEND	;Schedule Transmit Tasks
QUE
MON
QUEA
CHK(X)	;Do not schedule another task if one is already running
INIT	;Initialize an environment
JOBGO
QUEMCK	;Schedule the Interface
CHECK	;Start a Listener/Sender pair for each Facility

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Background Monitor Queued." Line Location: CHQ+2
Function Call: WRITE	Prompt: !!,"Task #"_$S($G(ZTSK):ZTSK,1:$P($G(^BOP(90355,1,4)),U,3)) Line Location: TASK+2
Function Call: WRITE	Prompt: " has been scheduled to start the Monitor." Line Location: TASK+3
Routine Call	DIE Line Location: DIE

Name	Line Occurrences (* Changed, ! Killed)
^BOP(90355 - [#90355]	START, CHECK+3, CHECK+5, CHECK+6, CHECK+10, CHECK+12, FQ+6, FQ+9, FQ+12, FQ+18 , CHQ+1, CHK+1, ENQUE+1, TASK+2, ENQUE2+2, ENQUE2+4, JOBGO+1
^BOP(90355.1 - [#90355.1]	CHECK+15, CHECK+20, CHECK+21, FQ+1

Name	Line Occurrences
$$CHK	ENQUE+1, ENQUE2+2
CHECK	JOBGO+1
CHQ	CHECK+15, FQ+6, FQ+9, FQ+12
DIE	ENQUE+1, ENQUE2+4
ENQUE	TASK+1
ENQUE2	START
ERROR	QUESEND+1, QUEREC+1
INIT	BOPMTR+5, JOBGO
MON	ENQUE+1, ENQUE2+4
QUE	QUEFILE+2, QUESEND+4, QUEREC+4, QUEMCK+2, ENQUE+1
QUEA	ENQUE2+4
QUEFILE	CHECK+22
QUEMCK	FQ+15
QUEREC	CHECK+12
QUESEND	CHECK+10

Name	Field # of Occurrence
>> BOPD0	CHECK+6*, CHECK+7, CHECK+8, CHECK+9
>> BOPDIV	CHECK+7*
>> BOPI	CHECK+5*, CHECK+6
>> BOPIP	CHECK+7*, QUESEND+1, QUEREC+1
>> BOPLSOC	CHECK+8*, QUEREC+1
>> BOPOCK	CHECK+8*, QUESEND+1
>> BOPPCPU	CHECK+9*
BOPTOP	CHECK+3!, CHQ+1, JOBGO+1
>> BOPWHO	BOPMTR+6, BOPMTR+7, QUEFILE+1, QUESEND+2, QUEREC+2, QUEMCK+1, MON, ERROR+1
DA	DIE~*
DIE	DIE~*
>> DIQUIET	INIT+1*
DR	DIE~*
DUZ	ERROR+2
>> I	QUESEND+3*
QFLG	BOPMTR+4~, CHECK+20, CHECK+22
U	START, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+22, FQ+6, FQ+9, CHK+1, ENQUE+1 , TASK+2, ENQUE2+2, ENQUE2+4, JOBGO+1
V	BOPMTR+4~, CHECK+7*, CHECK+10, CHECK+12
X	BOPMTR+4~, CHECK+20, CHECK+21, CHK~, ENQUE2+2, ENQUE2+3
X(1	ERROR+3*
X(2	ERROR+4*
X(3	ERROR+5*
>> XMSUB	ERROR+1*
>> XMTEXT	ERROR+3*
>> XMY(	ERROR+1, ERROR+2
Y	BOPMTR+4~, CHECK+21*, CHECK+22
ZTDESC	QUEFILE+1, QUESEND+2, QUEREC+2, QUEMCK+1, MON, JOB~, JOB+1
ZTDTH	QUE, ENQUE2+3, JOB~, JOB+1*
ZTIO	QUEA, JOB~, JOB+1
>> ZTQUEUED	CHQ+2
ZTRTN	QUEFILE+1, QUESEND+2, QUEREC+2, QUEMCK+1, MON, JOB~, JOB+1
ZTSAVE	JOB~
ZTSAVE(	QUESEND+3*
ZTSAVE("BOPDIV"	QUEREC+3*
ZTSAVE("BOPIP"	QUEREC+3*
ZTSAVE("BOPLSOC"	QUEREC+3*
ZTSK	CHK+1~*, CHK+2, DIE, TASK+2, JOB~
ZTSK(0	CHK+3
ZTSK(1	CHK+3