Routine: LR325

Information

LR325 ;VA/DALOI/JMC - LR*5.2*325 PATCH ENVIRONMENT CHECK ROUTINE ; 4/17/07 3:41am

Source file <LR325.m>

Package	Total	Call Graph
Kernel	4	$$HTE^XLFDT $$CJ^XLFSTR BMES^XPDUTL $$ACTIVE^XUSER
VA Fileman	2	$$FIND1^DIC UPDATE^DIE

Name	Comments	DBIA/ICR reference
PRE	; KIDS Pre install
POST	; KIDS Post install
EN	; Does not prevent loading of the transport global. ; Environment check is done only during the install.
EXIT	; ; I $G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Install Environment Check FAILED ---",IOM)) ; IHS/MSC/MKK ; I '$G(XPDQUIT) D BMES^XPDUTL($$CJ^XLFSTR("--- Environment Check is Ok ---",IOM)) ; IHS/MSC/MKK
CHECK	; Perform environment check

Name	Field # of Occurrence
$$FIND1^DIC	POST+3, POST+5, POST+15, POST+25
UPDATE^DIE	POST+13, POST+23, POST+33
$$HTE^XLFDT	EN+6, EN+11, EN+13, POST+36
$$CJ^XLFSTR	EN+11, CHECK+1, CHECK+3, CHECK+6, CHECK+9, EXIT+4, EXIT+5, PRE+4, PRE+6, PRE+7 , POST+2, POST+14, POST+24, POST+34, POST+42
BMES^XPDUTL	EN+11, CHECK+1, CHECK+3, CHECK+6, CHECK+9, EXIT+4, EXIT+5, PRE+4, PRE+6, PRE+7 , POST+2, POST+14, POST+24, POST+34, POST+42
$$ACTIVE^XUSER	CHECK+8

FileNo	Call Tags
^LAB(60 - [#60]	FIND1^DIC
^LAB(62.05 - [#62.05]	FIND1^DIC

Name	Line Occurrences (* Changed, ! Killed)
^LAB(62.05 - [#62.05]	POST+4

Name	Line Occurrences
CHECK	EN+18
EXIT	EN+19

Name	Field # of Occurrence
ANS	POST+1~
DA	PRE+3~
DIK	PRE+3~
DUZ	CHECK+5, CHECK+8
DUZ(0	CHECK+5
FDA	POST+1~
FDA(1	POST+7!, POST+8, POST+9, POST+10, POST+11, POST+12*
FDA(2	POST+17!, POST+18, POST+19, POST+20, POST+21, POST+22*
FDA(3	POST+27!, POST+28, POST+29, POST+30, POST+31, POST+32*
IOM	EN+11, CHECK+2, PRE+4, PRE+6, PRE+7, POST+2, POST+14, POST+24, POST+34, POST+42
IOSL	CHECK+2
LROUTINE	POST+1~, POST+3, POST+4, POST+11, POST+21, POST+31
LRTST	POST+1~, POST+5, POST+6, POST+15, POST+16, POST+25*, POST+26
TST	POST+1~, POST+17!, POST+27!
U	CHECK+2
>> XPDENV	EN+5
>> XPDIQ("XPZ1"	CHECK+11*
>> XPDNM	EN+6, EN+11, EN+13, CHECK+1, EXIT+4, EXIT+5, POST+36, POST+39
>> XPDQUIT	CHECK+4, CHECK+7, CHECK+10*, EXIT+4, EXIT+5
XQA	EN+3~, POST+1~
XQA("G.LMI"	EN+7, EN+14, POST+37, POST+40
XQAMSG	EN+3~, EN+6, EN+13, POST+1~, POST+36, POST+39