Routine: BCDMPRE

Information

BCDMPRE ; IHS/OIT/MKK -- BCDM Version 1.0 ENVIRONMENT/POST INSTALL ROUTINE;JUL 16, 2008 3:19 PM

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Kernel	6	HOME^%ZIS $$VERSION^%ZOSV $$HTE^XLFDT ($$CJ,$$UP)^XLFSTR ($$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 1013
MAILMAN	; CHECK FOR MAILMAN 7.1
SENDMAIL(MAILMSG)	; EP ; Send MailMan E-mail to LMI group -- message is in the STR array
SORRYFIN	; EP ; "Fin" of Final Fatal Message
FILEMAN	; CHECK FOR FILEMAN 22.0
BJPC	; CHECK FOR BJPC 2.0 & Patch 4
ENVOK	; ENVIRONMENT OK
NEEDIT(MODULE,VERSION,PATCH,WOTERR,CP)
ADDLINE(ASTR,LC)	; EP ; Add a line to the STR array
SORRYEND(WOTERR,CP)	; EP ; Output a listing of ALL the errors detected during ; the environment check. The STR array will be ; displayed by the BMES^XPDUTL call. ;
PRECHK	; EP
OKAY(MSG,TAB)
AUPN
ALLDONE(CURPATCH)	; EP ; Complete Message
GIS	; CHECK FOR GIS 3.01 Patch 14
BACKUPS(CURPATCH)	; EP - CHECK TO CONFIRM BACKUPS HAVE BEEN DONE
ADDMESG	; EP ; Add to the STR array
TABMENU(MSG,TAB,TAIL)	; EP ; Generic message output WITHOUT blank line BEFORE messsage & TAB
SORRYHED	; EP ; "Header" of Final Fatal Message
AUT
AICD
DEBUG	; Debugging node for environment checker
POST	; EP -- POST INSTALL
ENDINSTL(CURPATCH)
SORRY(MSG,MODE,MSG2,CP)
TABMESG(MSG,TAB,TAIL,XTRALINE)	; EP ; Generic message output WITH blank line BEFORE messsage & TAB
LETSGO	; USER IDENTIFIED -- LET'S GO
USERID	; CHECK FOR USER ID
BACKUP	; EP
SNDALERT(ALERTMSG)	; EP ; Send alert to LMI group

External References

Name	Field # of Occurrence
^%DT	SENDMAIL+6
HOME^%ZIS	USERID+5
$$VERSION^%ZOSV	PRECHK+14
FIND^DIC	NEEDIT+12
DTNOLF^DICRW	USERID+6
^DIR	BACKUPS+8
DD^LRX	SENDMAIL+7
^XBFMK	BACKUPS+4
$$LOC^XBFUNC	SORRY+20, ALLDONE+20
$$HTE^XLFDT	BACKUPS+16, BACKUPS+30, ENDINSTL+19
$$CJ^XLFSTR	SORRY+20, SORRY+22, SORRY+24, SORRY+25, SORRY+28, SORRY+31, SORRY+32, SORRY+34, SORRYHED+6, SORRYHED+7 , SORRYHED+9, SORRYFIN+2, SORRYFIN+4, ADDMESG+3, ADDMESG+8, ALLDONE+20, ALLDONE+22
$$UP^XLFSTR	PRECHK+14, BACKUPS+16, BACKUPS+30, ENDINSTL+19
^XMD	SENDMAIL+14
$$PATCH^XPDUTL	NEEDIT+33
$$VERSION^XPDUTL	NEEDIT+17
BMES^XPDUTL	PRECHK+1, LETSGO+1, ENVOK+1, NEEDIT+18, NEEDIT+32, SORRY+40, SORRYEND+18, BACKUPS+1, TABMESG+6, ALLDONE+27
MES^XPDUTL	OKAY+5, TABMESG+7, TABMENU+6
SETUP^XQALERT	SNDALERT+4

Interaction Calls

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

FileNo	Call Tags
^DIC(9.4 - [#9.4]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BCDMINST(	BACKUPS+28, BACKUPS+29, BACKUPS+30, ENDINSTL+16, ENDINSTL+18, ENDINSTL+19
^VA(200 - [#200]	USERID+8, SENDMAIL+12, BACKUPS+15, BACKUPS+29, ENDINSTL+18

Label References

Name	Line Occurrences
ADDLINE	SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25, SORRY+26, SORRY+28 , SORRY+31, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+37, SORRY+38, SORRYHED+3, SORRYHED+4, SORRYHED+5 , SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, SORRYHED+10, SORRYFIN+2, SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6 , SORRYFIN+7, ADDMESG+3, ADDMESG+8, ADDMESG+9, ALLDONE+18, ALLDONE+19, ALLDONE+20, ALLDONE+21, ALLDONE+22, ALLDONE+23 , ALLDONE+24, ALLDONE+25
ADDMESG	SORRYEND+14
ALLDONE	POST+4
BACKUPS	BACKUP+1
ENDINSTL	POST+7
NEEDIT	FILEMAN+1, KERNEL+1, MAILMAN+1, GIS+1, AUPN+1, AICD+1, AUT+1, BJPC+1
OKAY	USERID+11, NEEDIT+28, NEEDIT+43
PRECHK	DEBUG+3
SENDMAIL	SORRY+47, SORRY+51, ALLDONE+32
SNDALERT	SORRY+46, SORRY+50, ALLDONE+31
SORRY	PRECHK+14, USERID+1, USERID+3, USERID+9, NEEDIT+22, NEEDIT+26, NEEDIT+37, NEEDIT+41, BACKUPS+12
SORRYEND	ENVOK+3
SORRYFIN	SORRYEND+16
SORRYHED	SORRYEND+7
TABMESG	BACKUPS+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	SENDMAIL+4*
ALERTMSG	SNDALERT~, SNDALERT+2
ASTR	ADDLINE~, ADDLINE+2*, ADDLINE+3
BCKUPCNT	BACKUPS+21~, BACKUPS+28*, BACKUPS+29, BACKUPS+30
CP	PRECHK+2~, PRECHK+17, PRECHK+20, USERID+1, USERID+3, USERID+9, POST+1~, POST+2, POST+4, POST+7 , NEEDIT~, SORRY~, SORRYEND~, BACKUPS+21~, BACKUPS+26, BACKUPS+28, BACKUPS+29, BACKUPS+30, ENDINSTL+5~, ENDINSTL+13 , ENDINSTL+16, ENDINSTL+18, ENDINSTL+19
CURPATCH	BACKUPS~, BACKUPS+26, ALLDONE~, ALLDONE+14, ENDINSTL~, ENDINSTL+13
DEBUG	DEBUG+1~, DEBUG+2*, SORRY+43, ALLDONE+29
DIFQ	SORRY+14!
>> DIR("A"	BACKUPS+7*
>> DIR("B"	BACKUPS+6*
>> DIR(0	BACKUPS+5*
>> DIRUT	BACKUPS+11
DUZ	USERID+1, USERID+8, SENDMAIL+12, BACKUPS+15, BACKUPS+29, BACKUPS+30, ENDINSTL+18, ENDINSTL+19
DUZ(0	USERID+3
HEREYAGO	NEEDIT+8~
HEREYAGO("DILIST"	NEEDIT+13, NEEDIT+14
INSTCNT	ENDINSTL+5~, ENDINSTL+16*, ENDINSTL+18, ENDINSTL+19
LASTPTCH	PRECHK+7~, PRECHK+20, PRECHK+21
LC	ADDLINE~, ADDLINE+3, ADDLINE+4*
LINE2	PRECHK+3~, PRECHK+11, PRECHK+17, PRECHK+24, PRECHK+27, ALLDONE+2~, ALLDONE+4, ALLDONE+7, ALLDONE+10, ENDINSTL+5~ , ENDINSTL+7*, ENDINSTL+9, ENDINSTL+11
LINECNT	SORRY+16~, SORRY+17, SORRY+18, SORRY+19, SORRY+20, SORRY+21, SORRY+22, SORRY+23, SORRY+24, SORRY+25 , SORRY+26, SORRY+28, SORRY+31, SORRY+32, SORRY+33, SORRY+34, SORRY+35, SORRY+37, SORRY+38, SORRYEND+5~ , SORRYHED+2, SORRYHED+3, SORRYHED+4, SORRYHED+5, SORRYHED+6, SORRYHED+7, SORRYHED+8, SORRYHED+9, SORRYHED+10, SORRYFIN+2 , SORRYFIN+3, SORRYFIN+4, SORRYFIN+5, SORRYFIN+6, SORRYFIN+7, ADDMESG+3, ADDMESG+8, ADDMESG+9, ALLDONE+2~, ALLDONE+17* , ALLDONE+18, ALLDONE+19, ALLDONE+20, ALLDONE+21, ALLDONE+22, ALLDONE+23, ALLDONE+24, ALLDONE+25
>> LRBLNOW	SENDMAIL+8*
LSTPISTS	PRECHK+8~
MAILMSG	SENDMAIL~, SENDMAIL+10
MESSAGE	SORRY+7~, SORRY+9, SORRY+12, SORRY+22, SORRY+28, OKAY+2~, OKAY+4, OKAY+5, TABMESG+2~, TABMESG+4 , TABMESG+5, TABMESG+6, TABMENU+2~, TABMENU+4, TABMENU+5*, TABMENU+6
MODE	SORRY~, SORRY+8, SORRY+12, SORRY+28, SORRY+30, SORRY+45, SORRY+49, SORRY+50
MODULE	NEEDIT~, NEEDIT+12, NEEDIT+15, NEEDIT+17, NEEDIT+20, NEEDIT+33, NEEDIT+35, SORRYEND+5~, SORRYEND+10, SORRYEND+11 , SORRYEND+12, SORRYEND+13, ADDMESG+2, ADDMESG+3
MSG	SORRY~, SORRY+24, SORRY+46, SORRY+50, OKAY~, OKAY+4, TABMESG~, TABMESG+4, TABMENU~, TABMENU+4 , ALLDONE+2~, ALLDONE+12, ALLDONE+14, ALLDONE+22, ALLDONE+31, ALLDONE+32, ENDINSTL+5~
MSG2	SORRY~, SORRY+25
NAME	NEEDIT+6~, NEEDIT+14, NEEDIT+15, NEEDIT+18, NEEDIT+20, NEEDIT+21, NEEDIT+24, NEEDIT+25, NEEDIT+28, NEEDIT+32 , NEEDIT+35, NEEDIT+36, NEEDIT+39, NEEDIT+43, SORRYEND+5~, SORRYEND+10, SORRYEND+12, SORRYEND+13, ADDMESG+2, ADDMESG+3
PATCH	NEEDIT~, NEEDIT+30, NEEDIT+32, NEEDIT+33, NEEDIT+35, NEEDIT+36, NEEDIT+40, NEEDIT+43, SORRYEND+5~, ADDMESG+2* , ADDMESG+6
PTR	NEEDIT+7~, NEEDIT+13*
RPMS	PRECHK+4~, PRECHK+24, SORRY+46, SORRY+47, SORRY+50, SORRY+51, BACKUPS+20~, BACKUPS+23, BACKUPS+28, BACKUPS+29 , BACKUPS+30, ALLDONE+2~, ALLDONE+7, ALLDONE+12, ALLDONE+14, ENDINSTL+5~, ENDINSTL+9, ENDINSTL+16, ENDINSTL+18, ENDINSTL+19
RPMSVER	PRECHK+5~, PRECHK+27, SORRY+46, SORRY+47, SORRY+50, SORRY+51, BACKUPS+20~, BACKUPS+24, BACKUPS+28, BACKUPS+29 , BACKUPS+30, ALLDONE+2~, ALLDONE+10, ALLDONE+12, ALLDONE+14, ENDINSTL+5~, ENDINSTL+11, ENDINSTL+16, ENDINSTL+18, ENDINSTL+19
STR	PRECHK+6~, SORRY+16~, SORRY+40, SORRYEND+5~, SORRYEND+18, BACKUPS+15, BACKUPS+16, BACKUPS+17, ALLDONE+2~, ALLDONE+16! , ALLDONE+27
STR(	ADDLINE+3*
STR1	NEEDIT+9~, NEEDIT+21, NEEDIT+22, NEEDIT+23, NEEDIT+24, NEEDIT+26, NEEDIT+36, NEEDIT+37, NEEDIT+38, NEEDIT+39 , NEEDIT+41
STR2	NEEDIT+9~, NEEDIT+25, NEEDIT+26, NEEDIT+40, NEEDIT+41
TAB	OKAY~, OKAY+3, OKAY+4, TABMESG~, TABMESG+3, TABMESG+4, TABMENU~, TABMENU+3*, TABMENU+4
TAIL	TABMESG~, TABMESG+5, TABMENU~, TABMENU+5
TMP	SORRYEND+5~, ADDMESG+5, ADDMESG+6, ADDMESG+8
U	USERID+8, SENDMAIL+12, BACKUPS+15, BACKUPS+29, ENDINSTL+18
VERSION	NEEDIT~, NEEDIT+18, NEEDIT+19, NEEDIT+20, NEEDIT+21, NEEDIT+24, NEEDIT+32, NEEDIT+33, NEEDIT+35, NEEDIT+36 , NEEDIT+39, NEEDIT+43, SORRYEND+5~, SORRYEND+10, SORRYEND+13, ADDMESG+2, ADDMESG+5
WOTERR	PRECHK+9~, FILEMAN+1, KERNEL+1, MAILMAN+1, GIS+1, AUPN+1, AICD+1, AUT+1, BJPC+1, ENVOK+3 , NEEDIT~, SORRYEND~
WOTERR(	NEEDIT+20, NEEDIT+35, SORRYEND+11, SORRYEND+12, SORRYEND+13, ADDMESG+2
X	PRECHK+35, USERID+8, USERID+9, LETSGO+1, NEEDIT+17, NEEDIT+19, NEEDIT+21, NEEDIT+25, NEEDIT+28, NEEDIT+33 , NEEDIT+34, SENDMAIL+5*, SENDMAIL+16!
XMDUZ	SENDMAIL+12*, SENDMAIL+16!
XMSUB	SENDMAIL+10*, SENDMAIL+16!
XMTEXT	SENDMAIL+11*, SENDMAIL+16!
XMY	SENDMAIL+2!
XMY("G.LMI"	SENDMAIL+3*
>> XPDABORT	PRECHK+37, ENVOK+1, ENVOK+3, SORRY+10
>> XPDDIQ(	PRECHK+35*
>> XPDDIQ("XPZ1"	PRECHK+33, PRECHK+34
>> XPDDIQ("XPZ2"	PRECHK+33, PRECHK+34
>> XPDENV	PRECHK+33, PRECHK+34
>> XPDNOQUE	PRECHK+29*
XQA	SNDALERT+5!
XQA("G.LMI"	SNDALERT+3*
XQAMSG	SNDALERT+2*, SNDALERT+5!
XTRALINE	TABMESG~, TABMESG+7
Y	SENDMAIL+8, SENDMAIL+16!, BACKUPS+11

Marked Items

Name	Field # of Occurrence
$T(	PRECHK+11, POST+2, BACKUPS+23, BACKUPS+24, ALLDONE+4, ENDINSTL+7

Customize PDF page

Package: Comprehensive Diabetes Management

Routine: BCDMPRE

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items