Routine: BLRTASKS

Information

BLRTASKS ;IHS/OIT/MKK - IHS LAB TASKS REPORT ; 17-Dec-2015 15:37 ; MKK

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Kernel	6	($$TM,ISQED)^%ZTLOAD ($$DT,$$FMTE,$$HTE,$$NOW)^XLFDT ($$CJ,$$UP)^XLFSTR BMES^XPDUTL SETUP^XQALERT OPTSTAT^XUTMOPT
MailMan	3	CHK^XMA21 CHKGROUP^XMBGRP ^XMD
VA Fileman	2	FILE^DIE $$GET1^DIQ
IHS Changes To Lab	1	(EEP,HEADERDT,PRESSKEY)^BLRGMENU
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
DEBUGRPT	; EP
NINLMI(CHKDUZ)	; EP -- Check to see if DUZ is NOT part of LMI Mail Group
SCRNLINE	; EP - DEBUG -- Print line of data
CHEKSNAP	; EP - Make certain the TAKE SNAPSHOTS field in the BLR MASTER CONTROL file is set to NO.
TESTGPID	; EP - Test the 'Get PID' code by looking at LAB routines ONLY
CTMFUTDT	; EP - Check TaskMan FUTure DaTe
EEP	; Ersatz EP
OTHRINIT	; EP Different version of SCRINIT above
HLZTCPCK	; EP - Check to see if HLZTCP interface routine is running
MAKEMESG(OPTION,SCHDDATE,MESSAGE,MSGLINE)	; EP
INITVARS	; EP
SCRNREPT	; EP - DEBUG -- Print Report to the screen
SENDALRT(ALERTMSG)	; EP - Send alert to LMI group AND Installer
DEBUG	; EP
SCRNINIT	; EP - DEBUG -- Initialization of variables
GETSYS(WOTDETAIL)	; EP -- Get System Information
SCRNBRKO	; EP - DEBUG -- "Break out" Variables
EP	; EP - Main Entry Point
SENDMAIL(MAILMSG,MESSAGE)	; EP -- Send MailMan E-mail to LMI group AND User

External References

Name	Field # of Occurrence
$$TM^%ZTLOAD	INITVARS+33
ISQED^%ZTLOAD	CTMFUTDT+3
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	SCRNLINE+3, TESTGPID+5, TESTGPID+31, TESTGPID+36
PRESSKEY^BLRGMENU	SCRNREPT+10, TESTGPID+40
FILE^DIE	CHEKSNAP+10
$$GET1^DIQ	CHEKSNAP+5, CHEKSNAP+12, CHEKSNAP+14
^XBFMK	CHEKSNAP+7
$$DT^XLFDT	INITVARS+10
$$FMTE^XLFDT	INITVARS+20, INITVARS+28, MAKEMESG+13, DEBUGRPT+2, SCRNINIT+3, OTHRINIT+5, SCRNBRKO+6
$$HTE^XLFDT	CHEKSNAP+13
$$NOW^XLFDT	SENDMAIL+9
$$CJ^XLFSTR	INITVARS+21, INITVARS+22, INITVARS+29, INITVARS+31, INITVARS+33, SCRNINIT+3, OTHRINIT+5, HLZTCPCK+26, TESTGPID+7
$$UP^XLFSTR	MAKEMESG+13, DEBUGRPT+2, SCRNBRKO+6
CHK^XMA21	NINLMI+13
CHKGROUP^XMBGRP	NINLMI+6
^XMD	SENDMAIL+15
BMES^XPDUTL	SENDMAIL+18, SENDMAIL+19, SENDMAIL+20
SETUP^XQALERT	SENDALRT+9
OPTSTAT^XUTMOPT	EP+11, SCRNBRKO+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,OPTION Line Location: DEBUGRPT+1
Function Call: WRITE	Prompt: ?34,$$UP^XLFSTR($$FMTE^XLFDT(SCHDDATE,"5MPZ")) Line Location: DEBUGRPT+2
Function Call: WRITE	Prompt: ?64,HOWOFTEN Line Location: DEBUGRPT+3
Function Call: WRITE	Prompt: ! Line Location: DEBUGRPT+4
Function Call: WRITE	Prompt: OPTION,?25,TASK,?35,SCHDDATE,?49,EXTSCHDT,?74,HOWOFTEN Line Location: SCRNLINE+4
Function Call: WRITE	Prompt: ! Line Location: SCRNLINE+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("HLZTCP is"_$S(HLZTCP:"",1:" >> NOT <<")_" running.",IOM) Line Location: HLZTCPCK+26
Function Call: WRITE	Prompt: ?4,$J(LABCNT,3),")",?14,PID,?24,UCI,?34,RTN,! Line Location: TESTGPID+32
Function Call: WRITE	Prompt: !,?4,RTNCNT," Routines analyzed." Line Location: TESTGPID+38
Function Call: WRITE	Prompt: !!,?9,$S(LABCNT:LABCNT,1:"No")," LAB routine",$S(LABCNT=1:"",1:"s")," running." Line Location: TESTGPID+39
Routine Call	DIE Line Location: CHEKSNAP+10

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	CTMFUTDT+12
^BLRSITE - [#9009029]	CHEKSNAP+4
^TMP("BLRTASKS"	CHEKSNAP+12, CHEKSNAP+13, CHEKSNAP+14, CHEKSNAP+15
^XPD(9.7 - [#9.7]	INITVARS+13, INITVARS+15, INITVARS+16, INITVARS+19, INITVARS+26, INITVARS+27

Label References

Name	Line Occurrences
$$GETSYS	HLZTCPCK+18, HLZTCPCK+20, TESTGPID+24, TESTGPID+26
$$NINLMI	SENDALRT+7, SENDMAIL+7
CHEKSNAP	EP+27
EP	DEBUG+4
HLZTCPCK	SCRNREPT+8
INITVARS	EP+6, SCRNREPT+3
MAKEMESG	EP+17, EP+20
OTHRINIT	SCRNINIT+1
SCRNBRKO	SCRNLINE+1
SCRNINIT	SCRNREPT+5
SCRNLINE	SCRNREPT+7
SENDALRT	SENDMAIL+24
SENDMAIL	EP+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ALERTMSG	EP+4~, SENDALRT~, SENDALRT+3
ALRTLINE	EP+4~, INITVARS+38*
>> BLRVERN	SCRNINIT+10, OTHRINIT+14
>> BLRVERN2	SCRNINIT+11, OTHRINIT+15
CHKDUZ	NINLMI~, NINLMI+3
CHKOPT	EP+3~, EP+10, EP+11, SCRNBRKO+1, SCRNBRKO+3
CNT	EP+1~, INITVARS+39, SCRNLINE+3, SCRNLINE+6
DEBUG	EP+17, EP+23, DEBUG+1~, DEBUG+3*
DIFROM	SENDMAIL+1~
>> DILOCKTM	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> DISYS	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
DT	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
DTIME	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
DUZ	SENDALRT+7, NINLMI+11, SENDMAIL+7, CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
ERRS	CHEKSNAP+8!, CHEKSNAP+15
>> EXTSCHDT	SCRNLINE+4, SCRNBRKO+6*
FDA	CHEKSNAP+8!
FDA(9009029	CHEKSNAP+9*
FIRSTINS	INITVARS+1~, INITVARS+27, INITVARS+28, INITVARS+29
>> GETWOT	GETSYS+2
HD1	EP+2~, INITVARS+36*
HEADER	EP+2~
HEADER(	INITVARS+29, INITVARS+31, INITVARS+33, OTHRINIT+5, OTHRINIT+6, OTHRINIT+7, OTHRINIT+10, OTHRINIT+12, OTHRINIT+13*, TESTGPID+35!
HEADER("A"	OTHRINIT+3
HEADER(1	INITVARS+21, TESTGPID+3
HEADER(2	INITVARS+22, TESTGPID+4
HEADER(3	TESTGPID+7*
HEADER(4	SCRNINIT+3, TESTGPID+8
HEADER(5	SCRNINIT+4, TESTGPID+9, TESTGPID+10, TESTGPID+11
HEADER(6	SCRNINIT+5, SCRNINIT+6, SCRNINIT+7, SCRNINIT+8, SCRNINIT+9, OTHRINIT+9
HED	INITVARS+1~, INITVARS+23, INITVARS+29, INITVARS+31, INITVARS+33, OTHRINIT+1~, OTHRINIT+3, OTHRINIT+5, OTHRINIT+6, OTHRINIT+7 , OTHRINIT+10, OTHRINIT+12, OTHRINIT+13
>> HLZTCP	HLZTCPCK+10, HLZTCPCK+13, HLZTCPCK+23, HLZTCPCK+26, TESTGPID+18*, TESTGPID+20
>> HOWOFTEN	EP+14, DEBUGRPT+3, SCRNLINE+4, SCRNBRKO+7
IEN	EP+1~
INSTALLN	INITVARS+1~, INITVARS+17*, INITVARS+19
INSTLLDT	INITVARS+1~, INITVARS+19, INITVARS+20, INITVARS+22, INITVARS+29
IO	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> IOBS	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
IOF	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
IOM	INITVARS+21, INITVARS+22, INITVARS+29, INITVARS+31, INITVARS+33, CHEKSNAP+1, SCRNREPT+1, SCRNINIT+3, OTHRINIT+5, HLZTCPCK+1 , HLZTCPCK+26, TESTGPID+1, TESTGPID+7
ION	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> IOS	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
IOSL	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
IOST	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> IOT	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> IOXY	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> LABCNT	TESTGPID+18, TESTGPID+30, TESTGPID+31, TESTGPID+32, TESTGPID+34, TESTGPID+39
LABPATCH	INITVARS+1~, INITVARS+17*, INITVARS+21, INITVARS+26, INITVARS+29
LABTASKS	EP+1~
LABTASKS(	EP+8, SCRNREPT+7
LABTASKS("BLR	TASK LAB LOG CLEANUP" , INITVARS+4*
LABTASKS("LA7	TASK NIGHTY" , INITVARS+6*
LABTASKS("LRT	ASK NIGHTY" , INITVARS+5, ASK ROLLOVER" , INITVARS+3
LINES	EP+2~, INITVARS+36*
>> LRBLNOW	SENDMAIL+9*
MAILMSG	SENDMAIL~, SENDMAIL+11, SENDMAIL+24
MAXLINES	EP+2~, INITVARS+35*, INITVARS+36
MESSAGE	EP+4~, EP+17, EP+20, EP+23, EP+25, MAKEMESG~, SENDMAIL~
MESSAGE(	MAKEMESG+5, MAKEMESG+10, MAKEMESG+15*
MGRPIEN	NINLMI+1~, NINLMI+6, NINLMI+7, NINLMI+12
MSGLINE	EP+4~, EP+17, EP+20, INITVARS+38, MAKEMESG~, MAKEMESG+3, MAKEMESG+4, MAKEMESG+5, MAKEMESG+9, MAKEMESG+10 , MAKEMESG+14, MAKEMESG+15
NOWDATE	EP+3~, CTMFUTDT+9, CTMFUTDT+10
NOWTIME	EP+3~, CTMFUTDT+10
NXTRUNDT	EP+1~
OPTION	EP+1~, EP+8, EP+10, EP+17, EP+20, INITVARS+8, MAKEMESG~, MAKEMESG+7, DEBUGRPT+1, SCRNREPT+7* , SCRNLINE+4, SCRNBRKO+1
>> PG	INITVARS+36*
>> PID	HLZTCPCK+14, HLZTCPCK+15, HLZTCPCK+23, TESTGPID+21, TESTGPID+22, TESTGPID+32
PTR	INITVARS+1~, INITVARS+14, INITVARS+15, INITVARS+16, INITVARS+17, INITVARS+26*, INITVARS+27
QFLG	EP+2~, INITVARS+36*
ROOT	EP+1~, EP+9!, EP+11, SCRNBRKO+2!, SCRNBRKO+3
ROOT(1	EP+12, EP+13, EP+14, SCRNBRKO+4, SCRNBRKO+5, SCRNBRKO+7
>> RSET	HLZTCPCK+7, TESTGPID+16
>> RTN	HLZTCPCK+20, HLZTCPCK+21, HLZTCPCK+23, TESTGPID+26, TESTGPID+28, TESTGPID+32
>> RTNCNT	HLZTCPCK+10, HLZTCPCK+21, TESTGPID+18, TESTGPID+27, TESTGPID+38
SCHDDATE	EP+3~, EP+13, EP+17, EP+20, CTMFUTDT+6, CTMFUTDT+9, CTMFUTDT+10, MAKEMESG~, MAKEMESG+12, MAKEMESG+13 , DEBUGRPT+2, SCRNLINE+4, SCRNBRKO+5*, SCRNBRKO+6
SCHDTASK	EP+3~, CTMFUTDT+4*, CTMFUTDT+6, CTMFUTDT+7
SCHDTIME	EP+3~, CTMFUTDT+7*, CTMFUTDT+10
>> SITE	CHEKSNAP+3, CHEKSNAP+4, CHEKSNAP+5, CHEKSNAP+9, CHEKSNAP+12, CHEKSNAP+13, CHEKSNAP+14, CHEKSNAP+15
STATUS	INITVARS+1~, INITVARS+12, INITVARS+13, INITVARS+15, INITVARS+16, INITVARS+17, CTMFUTDT+12, CTMFUTDT+13
STATUS(	CTMFUTDT+13
STR	MAKEMESG+1~, MAKEMESG+7, MAKEMESG+10, MAKEMESG+13, MAKEMESG+15
>> SYSCALL	HLZTCPCK+4, TESTGPID+14
TASK	EP+1~, EP+12, CTMFUTDT+2, CTMFUTDT+12, SCRNLINE+4, SCRNBRKO+4
TASKDESC	EP+1~
TODAY	EP+3~, EP+20, INITVARS+10*, SCRNINIT+3, OTHRINIT+5
U	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
>> UCI	TESTGPID+24*, TESTGPID+32
WOTDETAIL	GETSYS~
WOTPATCH	INITVARS+1~, INITVARS+12, INITVARS+13, INITVARS+15, INITVARS+17
X	SENDMAIL+22!, TESTGPID+35*
XMDUZ	NINLMI+1~, NINLMI+11, SENDMAIL+13, SENDMAIL+22!
>> XMMG	SENDMAIL+17, SENDMAIL+20
XMSUB	SENDMAIL+11*, SENDMAIL+22!
XMTEXT	SENDMAIL+12*, SENDMAIL+22!
XMY	SENDMAIL+3!, SENDMAIL+22!
XMY(	SENDMAIL+7*
XMY("G.LMI"	SENDMAIL+4*
XMZ	SENDMAIL+14*, SENDMAIL+17, SENDMAIL+19, SENDMAIL+22!
>> XPARSYS	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
XQA	SENDALRT+1~
XQA(	SENDALRT+7*
XQA("G.LMI"	SENDALRT+4*
XQAMSG	SENDALRT+1~, SENDALRT+3*
>> XQXFLG	CHEKSNAP+1, SCRNREPT+1, HLZTCPCK+1, TESTGPID+1
Y	NINLMI+12*, SENDMAIL+22!
ZTSK	CTMFUTDT+1!, CTMFUTDT+2*
ZTSK("D"	CTMFUTDT+4

Marked Items

Name	Field # of Occurrence
$T(	SCRNINIT+10, OTHRINIT+14

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRTASKS

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items