Routine: LR302

Information

LR302 ;DALOI/FHS - LR*5.2*302 PATCH ENVIRONMENT CHECK ROUTINE;31-AUG-2001

Source Information

Source file <LR302.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Kernel	5	($$HTE,$$HTFM)^XLFDT $$CJ^XLFSTR (BMES,MES)^XPDUTL SETUP^XQALERT $$ACTIVE^XUSER
Lab Service	4	BMES^LR302 ^LR302A ^LR302P POST^LR302PO
VA Fileman	3	$$FIND1^DIC ^DIK EN^DIU2

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Lab Service	5	LR302 LR302A LR302P LR302PO LR302POA

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;Pre-install entry point
DUP64	;Check ^LAM for duplicate Names or NLT codes
BMES(STR)	;EP - Write BMES^XPDUTL statements
TEXT	; Alert the user that file #64 should not have any error before and after installing
CHKNM	; Make sure the patch name exist
DD
EXIT	;
DUP64P
ENV	; Does not prevent loading of the transport global. ; Environment check is done only during the install.
DUPCHK	;
STAR	;
POST	;Post install repointing of historical data
CHECK	; Perform environment check
PTRSAV	;Save pointer values into XTMP("LR302" to repointed after install

External References

Name	Field # of Occurrence
$$FIND1^DIC	PTRSAV+5, PTRSAV+10
^DIK	DUPCHK+10, DD+2, DD+3
EN^DIU2	PRE+6, PRE+8, PRE+10, PRE+12, PRE+14, PRE+16, PRE+18
BMES^LR302	POST+4
^LR302A	PTRSAV+12
^LR302P	POST+2
POST^LR302PO	POST+1
$$HTE^XLFDT	EXIT+4, POST+5
$$HTFM^XLFDT	DUP64P+3
$$CJ^XLFSTR	BMES+1
BMES^XPDUTL	BMES+1
MES^XPDUTL	DUPCHK+13
SETUP^XQALERT	EXIT+7, POST+7
$$ACTIVE^XUSER	CHECK+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DUP64P+1
Function Call: WRITE	Prompt: "." Line Location: DUP64P+5
Function Call: WRITE	Prompt: ! Line Location: DUPCHK+7
Function Call: WRITE	Prompt: ! Line Location: TEXT+1
Routine Call	DIC Line Location: PTRSAV+5 PTRSAV+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAM - [#64]	FIND1^DIC
^LAB(64.22 - [#64.22]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAM - [#64]	DUPCHK+4, DUPCHK+5, PTRSAV+9, PTRSAV+11*
^LAM(0	PTRSAV+4
^LRO(64.1 - [#64.1]	DUP64P+4, DUP64P+6, DUP64P+7
^XTMP("LRNLTD"	DUP64P, DUP64P+3*, DUP64P+8, DUPCHK+9, DUPCHK+12

Label References

Name	Line Occurrences
BMES	CHKNM+2, CHECK+2, CHECK+5, CHECK+8, DUP64+1, DUPCHK+15, DUPCHK+16, DUPCHK+17, EXIT+2, EXIT+3 , EXIT+5, DD+4, PTRSAV+1, TEXT+2, TEXT+3, TEXT+4, TEXT+5, TEXT+6
CHECK	CHKNM+5
DUP64P	PTRSAV+3
DUPCHK	DUP64P
EXIT	CHKNM+1, CHKNM+6
PTRSAV	PRE+3
TEXT	EXIT+7, POST+8

Naked Globals

Name	Field # of Occurrence
^(	DUP64P+8*, DUPCHK+5
^(0	PTRSAV+4*, PTRSAV+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	DUPCHK+1~, DUPCHK+3, DUPCHK+5, DUPCHK+6, DUPCHK+7, DUPCHK+8, DUPCHK+11
DA	DUPCHK+1~, DUPCHK+10, PRE+5~, DD+1~, DD+2, DD+3*
DA(1	DD+2, DD+3
DIK	DUPCHK+1~, DUPCHK+2, PRE+5~, DD+1~, DD+2!, DD+3*
DIU	PRE+5~, PRE+6, PRE+7!, PRE+8, PRE+9!, PRE+10, PRE+11!, PRE+12, PRE+13!, PRE+14* , PRE+15!, PRE+16, PRE+17!, PRE+18
DIU(0	PRE+6, PRE+8, PRE+10, PRE+12, PRE+14, PRE+16, PRE+18*
DT	DUP64P+3
DUP	DUPCHK+1~, DUPCHK+5!
DUP(	DUPCHK+6*, DUPCHK+7, DUPCHK+8, DUPCHK+11
DUZ	CHECK+4, CHECK+7
DUZ(0	CHECK+4
ERR	PTRSAV+2~
IEN	DUPCHK+1~, DUPCHK+3, DUPCHK+5, DUPCHK+6, PTRSAV+7~, PTRSAV+8*, PTRSAV+9, PTRSAV+11
IENX	DUPCHK+1~, DUPCHK+8*, DUPCHK+9, DUPCHK+10, DUPCHK+12
IOM	CHECK+1, BMES+1
IOSL	CHECK+1
LAST	PRE+2~
LRDT	DUP64P+2~, DUP64P+6*, DUP64P+7
LRDTLB	PTRSAV+2~
LRIEN	PTRSAV+2~
LRIENSUB	PTRSAV+2~
LRINS	DUP64P+2~, DUP64P+4*, DUP64P+6, DUP64P+7
LRNLT	DUP64P+2~, DUP64P+7*, DUP64P+8
LRNODE	PTRSAV+2~
LRPOST	DUPCHK+2, DUPCHK+9, DUPCHK+14, POST+8~, PTRSAV+2~, PTRSAV+3!, TEXT+6
LRPTR	PTRSAV+2~
NAM	DUPCHK+1~, DUPCHK+3, DUPCHK+4, DUPCHK+5, DUPCHK+6
STR	BMES~, BMES+1, TEXT+1~, TEXT+2, TEXT+3, TEXT+4, TEXT+5, TEXT+6*
TEXT	DUPCHK+1~, DUPCHK+11, DUPCHK+12, DUPCHK+13, STAR+1
U	CHECK+1, DUP64P+3, DUPCHK+6, DUPCHK+8, DUPCHK+12, PTRSAV+4, PTRSAV+9, PTRSAV+11, STAR+1
VAL	PTRSAV+7~, PTRSAV+10*, PTRSAV+11
X	PTRSAV+2~
>> XPDIQ("XPZ1"	CHECK+10*
>> XPDNM	CHKNM+1, EXIT+4, PRE+1, POST+5
>> XPDQUIT	CHKNM+3, CHECK+3, CHECK+6, CHECK+9, EXIT+2
XQA	ENV+3~, EXIT+1~
XQA("G.LMI"	EXIT+6, POST+6
XQAMSG	ENV+3~, EXIT+4, POST+5
XREF	DUPCHK+1~, DUPCHK+3*, DUPCHK+4, DUPCHK+5, DUPCHK+12, STAR+1
Y	PTRSAV+2~, PTRSAV+5*, PTRSAV+6, PTRSAV+8

Customize PDF page

Package: Lab Service

Routine: LR302

Call Graph Total: 12

Caller Graph Total: 5