Routine: LR72PRE

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DIE ^DIK EN^DIU2
Kernel	2	$$CJ^XLFSTR BMES^XPDUTL

Package

Total

Call Graph

VA Fileman

^DIC FILE^DIE ^DIK EN^DIU2

Kernel

$$CJ^XLFSTR BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
PRE	;LR5.2163 AFTER USER COMMITS ROUTINE KIDS INSTALL"
ENPRE	;
EN	;
LR138P	;
SPELL	;
SPCK
ABI
DD	;
ALM
EN1	;
EN2	;
LRARIPRE	;
LR127P	;
FILE	;
PRELR163	;
BXREF	;Kills B xref on PATIENT XMATCH field (#65.01)
AWD

External References

Name	Field # of Occurrence
^DIC	SPCK+8
FILE^DIE	FILE+4
^DIK	EN+4, EN+5, EN+6, EN+7, DD+1, DD+2, EN2+3, EN2+4, EN2+5, EN2+13 , ENPRE+14, ENPRE+18
EN^DIU2	AWD+1, ALM+1, ABI+1
$$CJ^XLFSTR	EN+9, EN2+14, EN2+16, ENPRE+11, ENPRE+12, ENPRE+15, ENPRE+16, ENPRE+19, ENPRE+25, SPCK+2 , SPCK+3, SPCK+5, SPCK+9, SPCK+12, FILE+2
BMES^XPDUTL	ENPRE+11, ENPRE+12, ENPRE+15, ENPRE+16, ENPRE+19, ENPRE+25, SPCK+2, SPCK+3, SPCK+5, SPCK+9 , SPCK+12, FILE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Pre Install Completed ",!! Line Location: LR72PRE+9
Function Call: WRITE	Prompt: !?5,"You have old data in LAB NLT/CPT CODES file ",!,"INSTALL ABORTED ",$C(7) Line Location: EN+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Pre Install 127 Complete",80),!! Line Location: EN+9
Function Call: WRITE	Prompt: !!,">>> Deleting OLD 'LAB' ARCHIVE FILES.",! Line Location: EN1+1
Function Call: WRITE	Prompt: !!,"DELETING ARCHIVED WKLD DATA FILE." Line Location: AWD+0
Function Call: WRITE	Prompt: !!,"DELETING ARCHIVED LAB MONTHLY WORKLOADS FILE." Line Location: ALM+0
Function Call: WRITE	Prompt: !!,"DELETING ARCHIVED BLOOD INVENTORY FILE." Line Location: ABI+0
Function Call: WRITE	Prompt: !!,"The data dictionaries for these files will be reinstalled during the inits." Line Location: ABI+3
Function Call: WRITE	Prompt: !?5,"You still have unistalled data in LAB NLT/CPT CODES file ",!,$C(7) Line Location: EN2+7
Function Call: WRITE	Prompt: !!?10,"Not able to find 'LAB SERVICE' in your Package (#9.4) file.",!,"Contact your IRM Service !!",!!,$C(7) Line Location: EN2+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("LOCKING THE ^LRO(69,AA) GLOBAL",80),! Line Location: EN2+14
Function Call: WRITE	Prompt: !!?5,"Not able to LOCK ^LRO(69,AA) Global" Line Location: EN2+15
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Pre Install 138 Complete",80),!! Line Location: EN2+16
Function Call: WRITE	Prompt: ! Line Location: ENPRE+20
Routine Call	DIC Line Location: SPCK+8
Routine Call	DIE Line Location: FILE+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN2+8
^DD(65.01	BXREF+2, BXREF+3, BXREF+4!, BXREF+5!, BXREF+6!
^DIC(9.4 - [#9.4]	EN2+10, EN2+11
^LAB(64.81 - [#64.81]	EN+2, EN+8, EN2+7, ENPRE+9!*
^LAM - [#64]	ENPRE+4, ENPRE+5, ENPRE+6, ENPRE+7!, ENPRE+8*, ENPRE+20, ENPRE+21!, ENPRE+22!
^LAM("AD"	EN+8!, ENPRE+23!
^LAM(0	ENPRE+10*
^XTMP("LR"	SPCK!, SPCK+1*, FILE+4

Name	Line Occurrences
DD	LR72PRE+5
FILE	SPCK+11
LR127P	LR72PRE+4
LR138P	LR72PRE+7
LRARIPRE	LR72PRE+6
PRELR163	LR72PRE+8
SPCK	ENPRE+24

Name	Field # of Occurrence
^(0	ENPRE+9, ENPRE+22*

Local Variables

Name	Field # of Occurrence
CK	SPCK+4!, SPCK+11
CK(	SPCK+4*, SPCK+5, SPCK+7, SPCK+8
DA	EN+3~, EN+4, EN+5!, EN+6!, EN+7!, DD+1!, DD+2!, DD+3!, EN2+3!, EN2+4! , EN2+5!, EN2+6!, EN2+13!, ENPRE+13~, ENPRE+14, ENPRE+17~, ENPRE+18, FILE+1~, FILE+3*
DA(1	EN+4, EN+5, EN+6, EN+7, DD+1, EN2+3, EN2+4, EN2+5, EN2+13*
DIC	SPCK+6!*
DIC(0	SPCK+6*
DIK	EN+3~, EN+4, EN+5!, EN+6!, EN+7!, DD+1!, DD+2!, DD+3!, EN2+3!, EN2+4! , EN2+5!, EN2+6!, EN2+13!, ENPRE+13~, ENPRE+14, ENPRE+17~, ENPRE+18
DIU	AWD+1, ALM+1, ABI+1*, ABI+2!
DIU(0	AWD+1, ALM+1, ABI+1*
I	ENPRE+3~, ENPRE+4, ENPRE+5, ENPRE+6, ENPRE+7, ENPRE+8, ENPRE+20, ENPRE+21, ENPRE+22, SPCK+4* , SPCK+5*
>> II	SPCK+7*, SPCK+8
>> LN	SPCK+4*
>> LNX	SPCK+11*, FILE+2
>> LRARI	BXREF+3*, BXREF+4
>> LRO(69	EN2+15
>> LRPKG	EN2+10, EN2+11, EN2+12
LRROOT	FILE+1~
LRROOT(64	FILE+3*
N	ENPRE+3~, ENPRE+6*, ENPRE+7
>> NM	SPCK+8*, SPCK+11, FILE+2, FILE+3
U	ENPRE+8, ENPRE+9, ENPRE+10, ENPRE+22, SPCK+11
>> X	EN2+8, ENPRE+9, SPCK+8*, SPCK+9
>> XPDNM	EN+1, EN2+1, ENPRE+1
>> XPDQUIT	EN+2, EN2+8, EN2+12, EN2+15
>> Y	SPCK+9, SPCK+11, FILE+2, FILE+3

Customize PDF page

Package: Lab Service

Routine: LR72PRE

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed