Routine: BLRPRE22

Package	Total	Call Graph
Kernel	7	HOME^%ZIS $$VERSION^%ZOSV $$HTE^XLFDT ($$CJ,$$UP)^XLFSTR ($$ADD,$$LKOPT)^XPDMENU ($$PATCH,$$VERSION,BMES,MES)^XPDUTL SETUP^XQALERT
VA Fileman	4	^%DT (,FIND)^DIC DTNOLF^DICRW ^DIR
IHS VA Utilities	2	^XBFMK $$LOC^XBFUNC
Lab Service	1	DD^LRX
MailMan	1	^XMD

Entry Points

Name	Comments	DBIA/ICR reference
KERNEL	; CHECK FOR KERNEL 8.0 & PATCH 1012
SENDMAIL(MAILMSG)	;
TIU	; CHECK FOR TIU 1.0 & PATCH 137
ADDMENU	; ; Add option to purge HL7 error messages to BLRMENU
USR	; CHECK FOR USR 1.0 & PATCH 23
FILEMAN	; CHECK FOR FILEMAN 22.0
SORRYEND	;
CHVMICRO	;
LMIMAIL	; CHECK FOR LMI MAIL GROUP
CHECKLMI()	;
PIMS	; CHECK FOR PIMS 5.3 & PATCH 1004
TABMESG(MSG,TAB,TAIL)	;
APCD	; CHECK FOR APCD 2.0 & PATCH 8
PRECHK	; EP
OKAY(MSG,TAB)
NEEDIT(MODULE,VERSION,PATCH)
ENVOK	; ENVIRONMENT OK
LABVER	; CHECK FOR LAB 5.2 & PREVIOUS PATCH
SORRY(MSG,MODE)
BACKUPS	; CHECK TO CONFIRM BACKUPS HAVE BEEN DONE
TABMENU(MSG,TAB,TAIL)	;
POST	; EP
LEXICON	; CHECK FOR LEXICON 2.0
LETSGO	; USER IDENTIFIED -- LET'S GO
OERR	; CHECK FOR OERR 2.5
ADDTMENU(ADDER,ADDEE,ITM)
USERID	; CHECK FOR USER ID
SNDALERT(ALERTMSG)	;

External References

Name	Field # of Occurrence
^%DT	SENDMAIL+5
HOME^%ZIS	USERID+5
$$VERSION^%ZOSV	PRECHK+11
^DIC	CHECKLMI+5
FIND^DIC	NEEDIT+6
DTNOLF^DICRW	USERID+6
^DIR	BACKUPS+12
DD^LRX	SENDMAIL+6
^XBFMK	BACKUPS+8
$$LOC^XBFUNC	SORRY+14
$$HTE^XLFDT	BACKUPS+20, BACKUPS+30, POST+21
$$CJ^XLFSTR	SORRY+14, SORRY+16, SORRY+18, SORRY+22, SORRY+27, SORRY+28, SORRY+30, SORRYEND+7, SORRYEND+8, SORRYEND+10 , SORRYEND+21, SORRYEND+25, SORRYEND+29, SORRYEND+33
$$UP^XLFSTR	PRECHK+11, BACKUPS+20
^XMD	SENDMAIL+13
$$ADD^XPDMENU	ADDTMENU+5
$$LKOPT^XPDMENU	ADDMENU+5
$$PATCH^XPDUTL	NEEDIT+21
$$VERSION^XPDUTL	NEEDIT+10
BMES^XPDUTL	PRECHK+1, LETSGO+1, LETSGO+3, ENVOK+1, BACKUPS+5, BACKUPS+23, NEEDIT+11, NEEDIT+20, SORRY+38, SORRYEND+3 , SORRYEND+39, CHECKLMI+2, POST+4, POST+10, ADDTMENU+3, TABMESG+5
MES^XPDUTL	BACKUPS+24, OKAY+4, ADDTMENU+9, TABMENU+5
SETUP^XQALERT	SNDALERT+3, POST+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BACKUPS+7
Routine Call	%ZIS Line Location: USERID+5
Routine Call	DIC Line Location: NEEDIT+6
Routine Call	DIC Line Location: CHECKLMI+5
Routine Call	DIR Line Location: BACKUPS+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^XMB(3.8 - [#3.8]	Classic Fileman Calls
^DIC(9.4 - [#9.4]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRINSTL("LAB PATCH"	BACKUPS+28, BACKUPS+29, BACKUPS+30, POST+19, POST+20, POST+21
^DD(9000010.25	CHVMICRO+4, CHVMICRO+19, CHVMICRO+28
^VA(200 - [#200]	USERID+8, BACKUPS+21, BACKUPS+29, SENDMAIL+11, POST+20

Label References

Name	Line Occurrences
$$CHECKLMI	LMIMAIL+1
ADDMENU	POST+6
ADDTMENU	ADDMENU+2, ADDMENU+5
CHVMICRO	POST+8
NEEDIT	FILEMAN+1, KERNEL+1, OERR+1, PIMS+1, APCD+1, TIU+1, USR+1, LEXICON+1, LABVER+1
OKAY	USERID+11, NEEDIT+16, NEEDIT+26, CHECKLMI+7, ADDTMENU+8, CHVMICRO+10, CHVMICRO+22, CHVMICRO+31, CHVMICRO+33
SENDMAIL	SORRY+42, SORRY+46
SNDALERT	SORRY+41, SORRY+45
SORRY	PRECHK+11, USERID+1, USERID+3, USERID+9, BACKUPS+16, NEEDIT+13, NEEDIT+23, CHECKLMI+8, ADDTMENU+11, CHVMICRO+13 , CHVMICRO+20, CHVMICRO+29
SORRYEND	ENVOK+3
TABMESG	CHVMICRO+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SENDMAIL+3*
ADDEE	ADDTMENU~, ADDTMENU+3, ADDTMENU+5, ADDTMENU+8, ADDTMENU+11
ADDER	ADDTMENU~, ADDTMENU+3, ADDTMENU+5, ADDTMENU+8, ADDTMENU+11
ALERTMSG	SNDALERT~, SNDALERT+1
BCKUPCNT	BACKUPS+27~, BACKUPS+28*, BACKUPS+29, BACKUPS+30
CHKIT	ADDTMENU+1~, ADDTMENU+5*, ADDTMENU+7, ADDTMENU+11
CP	PRECHK+2~, PRECHK+13, LETSGO+3, BACKUPS+1~, BACKUPS+3, BACKUPS+28, BACKUPS+29, BACKUPS+30, SORRY+41, SORRY+42 , SORRY+45, SORRY+46, POST+1~, POST+2, POST+4, POST+10, POST+12, POST+17~, POST+18, POST+19 , POST+20, POST+21
>> DIC	CHECKLMI+3*
DIFQ	SORRY+8!
>> DIR("A"	BACKUPS+11*
>> DIR("B"	BACKUPS+10*
>> DIR(0	BACKUPS+9*
>> DIRUT	BACKUPS+15
DTT	BACKUPS+19~, BACKUPS+20*, BACKUPS+22
DUZ	USERID+1, USERID+8, BACKUPS+21, BACKUPS+29, SENDMAIL+11, POST+20
DUZ(0	USERID+3
HEREYAGO	NEEDIT+3~
HEREYAGO("DILIST"	NEEDIT+7, NEEDIT+8
INSTCNT	POST+17~, POST+19*, POST+20, POST+21
ITM	ADDTMENU~, ADDTMENU+5
LASTPTCH	PRECHK+6~, PRECHK+14*, LABVER+1
LINECNT	SORRY+10~, SORRY+24, SORRY+32, SORRY+34, SORRY+35, SORRY+36, SORRYEND+1~, SORRYEND+12, SORRYEND+21, SORRYEND+22* , SORRYEND+25, SORRYEND+26, SORRYEND+27, SORRYEND+28, SORRYEND+29, SORRYEND+30, SORRYEND+31, SORRYEND+32, SORRYEND+33, SORRYEND+34* , SORRYEND+35, SORRYEND+36*, SORRYEND+37
>> LRBLNOW	SENDMAIL+7*
LRSTATUS	PRECHK+7~
MAILMSG	SENDMAIL~, SENDMAIL+9
MESSAGE	SORRY+1~, SORRY+3, SORRY+6, SORRY+16, SORRY+22, OKAY+1~, OKAY+3, OKAY+4, TABMESG+1~, TABMESG+3 , TABMESG+4, TABMESG+5, TABMENU+1~, TABMENU+3, TABMENU+4*, TABMENU+5
MODE	SORRY~, SORRY+2, SORRY+6, SORRY+21, SORRY+26, SORRY+40, SORRY+44, SORRY+45
MODULE	NEEDIT~, NEEDIT+6, NEEDIT+10, NEEDIT+14, NEEDIT+21, NEEDIT+24, SORRYEND+1~, SORRYEND+16, SORRYEND+17, SORRYEND+18 , SORRYEND+19, SORRYEND+20, SORRYEND+21
MSG	SORRY~, SORRY+18, SORRY+41, SORRY+45, OKAY~, OKAY+3, TABMESG~, TABMESG+3, TABMENU~, TABMENU+3
NAME	NEEDIT+1~, NEEDIT+8, NEEDIT+11, NEEDIT+13, NEEDIT+14, NEEDIT+16, NEEDIT+20, NEEDIT+23, NEEDIT+24, NEEDIT+26 , SORRYEND+1~, SORRYEND+16, SORRYEND+18*, SORRYEND+19, SORRYEND+20, SORRYEND+21
OKAY	CHECKLMI+1~, CHECKLMI+6*, CHECKLMI+7, CHECKLMI+8, CHECKLMI+9
PATCH	NEEDIT~, NEEDIT+18, NEEDIT+20, NEEDIT+21, NEEDIT+23, NEEDIT+24, NEEDIT+26, SORRYEND+1~, SORRYEND+20*, SORRYEND+24
PTR	NEEDIT+2~, NEEDIT+7*
RPMS	PRECHK+3~, PRECHK+15*, LETSGO+3
RPMSVER	PRECHK+4~, PRECHK+16*, LETSGO+3
SPEC	CHVMICRO+1~
STR	PRECHK+5~, BACKUPS+21, BACKUPS+22, BACKUPS+23, SORRY+10~, SORRY+38, SORRYEND+1~, SORRYEND+39, CHVMICRO+1~, CHVMICRO+4* , CHVMICRO+5, CHVMICRO+9, CHVMICRO+12, CHVMICRO+15, CHVMICRO+17, CHVMICRO+25, CHVMICRO+26
STR(	SORRY+34, SORRY+36, SORRYEND+21, SORRYEND+25, SORRYEND+27, SORRYEND+29, SORRYEND+31, SORRYEND+33, SORRYEND+35, SORRYEND+37
STR(1	SORRY+11, SORRYEND+5
STR(10	SORRY+22, SORRY+27
STR(11	SORRY+23, SORRY+28
STR(12	SORRY+29*
STR(13	SORRY+30*
STR(14	SORRY+31*
STR(2	SORRY+12, SORRY+34, SORRYEND+6
STR(3	SORRY+13, SORRYEND+7
STR(4	SORRY+14, SORRYEND+8
STR(5	SORRY+15, SORRYEND+9
STR(6	SORRY+16, SORRYEND+10
STR(7	SORRY+17, SORRYEND+11
STR(8	SORRY+18*
STR(9	SORRY+19*
SUBSTR	CHVMICRO+1~, CHVMICRO+5*, CHVMICRO+12
TAB	OKAY~, OKAY+2, OKAY+3, TABMESG~, TABMESG+2, TABMESG+3, TABMENU~, TABMENU+2*, TABMENU+3
TAIL	TABMESG~, TABMESG+4, TABMENU~, TABMENU+4
TMP	SORRYEND+1~, SORRYEND+23, SORRYEND+24, SORRYEND+25
U	USERID+8, BACKUPS+21, BACKUPS+29, SENDMAIL+11, POST+20
VERSION	NEEDIT~, NEEDIT+11, NEEDIT+12, NEEDIT+13, NEEDIT+14, NEEDIT+20, NEEDIT+21, NEEDIT+24, NEEDIT+26, SORRYEND+1~ , SORRYEND+16, SORRYEND+19, SORRYEND+20, SORRYEND+23
WOTDD	CHVMICRO+2~, CHVMICRO+16, CHVMICRO+17, CHVMICRO+24, CHVMICRO+26
WOTERR	PRECHK+8~
WOTERR(	NEEDIT+14, NEEDIT+24, SORRYEND+17, SORRYEND+18, SORRYEND+19, SORRYEND+20
X	USERID+8, USERID+9, LETSGO+1, NEEDIT+10, NEEDIT+12, NEEDIT+13, NEEDIT+16, NEEDIT+21, NEEDIT+22, SENDMAIL+4 , SENDMAIL+15!, CHECKLMI+4*
XMDUZ	SENDMAIL+11*, SENDMAIL+15!
XMSUB	SENDMAIL+9*, SENDMAIL+15!
XMTEXT	SENDMAIL+10*, SENDMAIL+15!
XMY	SENDMAIL+1!
XMY("G.LMI"	SENDMAIL+2*
>> XPDABORT	PRECHK+26, ENVOK+1, ENVOK+3, SORRY+4
>> XPDDIQ("XPO1"	PRECHK+24*
>> XPDDIQ("XPZ1"	PRECHK+22*
>> XPDDIQ("XPZ2"	PRECHK+22*
>> XPDNOQUE	PRECHK+18*
XQA	SNDALERT+4!
XQA("G.LMI"	SNDALERT+2, POST+13
XQAMSG	SNDALERT+1, SNDALERT+4!, POST+12
Y	BACKUPS+15, SENDMAIL+7, SENDMAIL+15!, CHECKLMI+6

Marked Items

Name	Field # of Occurrence
$T(	PRECHK+13, PRECHK+14, PRECHK+15, PRECHK+16, BACKUPS+3, POST+2, POST+18

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRPRE22

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items