Routine: LROC

Package	Total	Call Graph
Lab Service	4	NEW^LR7OB1 ^LROC1 ^LROCM CHKILL^LRPX
Kernel	2	(,$$S)^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA Fileman	2	EN^DDIOL ^DIR
IHS Changes To Lab	1	STORPURG^BLRPURGU

Package

Total

Call Graph

Lab Service

NEW^LR7OB1 ^LROC1 ^LROCM CHKILL^LRPX

Kernel

(,$$S)^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT

VA Fileman

EN^DDIOL ^DIR

IHS Changes To Lab

STORPURG^BLRPURGU

Package	Total	Caller Graph
Lab Service	1	LROC

Package

Total

Caller Graph

Lab Service

LROC

Entry Points

Name	Comments	DBIA/ICR reference
CHKUID	; Check UID's for purged accessions
REENTRY	;
CENDEL	;
SKPLR
CHKACN	; Check for deleted corresponding accession.
LRORD	;
L1	; Purge the daily accession areas that meet cutoff
FDAT	;
EP	; EP
ZAP	;
DQ	; Tasked entry point to clean up file #69

Name	Field # of Occurrence
^%ZTLOAD	L1+8, CENDEL+5
$$S^%ZTLOAD	DQ+7, DQ+15, DQ+22, DQ+30, CHKACN+6
STORPURG^BLRPURGU	EP+9
EN^DDIOL	L1+10
^DIR	EP+6
NEW^LR7OB1	DQ+34, ZAP+3
^LROC1	DQ+42
^LROCM	EP+2
CHKILL^LRPX	LRORD+7
$$FMADD^XLFDT	EP+12
$$FMTE^XLFDT	DQ+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Use File Manager to clear ",$P(^(0),U) Line Location: L1+3
Function Call: READ	Timeout: DTIME Variable: LRSTA Line Location: CENDEL+1
Function Call: WRITE	Prompt: !,"STARTING CENTRAL ENTRY #: " Line Location: CENDEL+1
Function Call: WRITE	Prompt: !,"ENDING CENTRAL ENTRY #: " Line Location: CENDEL+2
Function Call: WRITE	Prompt: "." Line Location: SKPLR+4
Function Call: READ	Timeout: DTIME Variable: % Line Location: SKPLR+8
Function Call: WRITE	Prompt: !,"Answer 'Y' or 'N': " Line Location: SKPLR+8
Routine Call	DIR Line Location: EP+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	EP+11
^LR - [#63]	LRORD+5, LRORD+6!
^LRO(68 - [#68]	L1+2, L1+3, DQ+5, DQ+6, DQ+9!, ZAP+7, LRORD+1, LRORD+2, LRORD+3, LRORD+4 , SKPLR, SKPLR+1!, SKPLR+2!, SKPLR+3!, CHKACN+8
^LRO(69 - [#69]	DQ+14, DQ+17, DQ+21, DQ+24, DQ+28, DQ+31, DQ+34, DQ+35!, DQ+37, REENTRY+2 , FDAT+2, ZAP+2, ZAP+4!, ZAP+5!

Name	Line Occurrences
%	CENDEL+3, %
CHKACN	CHKUID+6, CHKUID+10
CHKUID	DQ+40
FDAT	REENTRY+2
LRORD	ZAP+7
SKPLR	LRORD+4
ZAP	FDAT+2

Name	Field # of Occurrence
^(	DQ+17!, DQ+24!, ZAP+7, SKPLR
^(0	L1+3, DQ+31, DQ+37, ZAP+4, LRORD+5
^(3	LRORD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CENDEL+3, %*
%H	CENDEL+7!
%ZA	CENDEL+7!
%ZB	CENDEL+7!
%ZC	CENDEL+7!
DA	EP+1~, DQ+1~, DQ+8, DQ+9, CENDEL+7!
DIR	EP+1~
DIR("A"	EP+5*
DIR("B"	EP+5*
DIR(0	EP+4*
DIROUT	EP+1~
DT	EP+12
DTIME	CENDEL+1, CENDEL+2, %
DTOUT	EP+1~
DUOUT	EP+1~
I	DQ+1~, DQ+13, DQ+14, DQ+17, DQ+20, DQ+21, DQ+24, CENDEL+7!
IO("Q"	CENDEL+6!
J	DQ+1~, DQ+16, DQ+17, DQ+23, DQ+24, CENDEL+7!
K	DQ+1~
LRAA	EP+1~, L1+1, L1+2, L1+3, DQ+4, DQ+5, DQ+6, DQ+7, DQ+9, CENDEL+7! , ZAP+6, ZAP+7, LRORD+1, LRORD+2, LRORD+3, LRORD+4, SKPLR, SKPLR+1, SKPLR+2, SKPLR+3 , CHKUID+2~, CHKUID+5, CHKUID+9, CHKACN+1*, CHKACN+8
LRAD	CHKUID+2~, CHKUID+5, CHKUID+9, CHKACN+1*, CHKACN+8
LRAN	CENDEL+7!, LRORD+1, LRORD+2, LRORD+4, SKPLR, SKPLR+1, SKPLR+2, SKPLR+3, CHKUID+2~, CHKUID+5 , CHKUID+9, CHKACN+1, CHKACN+8
LRCNT	CHKUID+2~, CHKUID+5, CHKUID+9, CHKACN+2*, CHKACN+5
LRDA	DQ+1~, DQ+27, DQ+28, DQ+29, DQ+30, DQ+31, DQ+34, DQ+35, DQ+37
LRDFN	CENDEL+7!, ZAP+4, ZAP+5, LRORD+4, LRORD+5, LRORD+6, LRORD+7
LRDTM	CENDEL+7!, LRORD+4*
LRDTN	CENDEL+7!, FDAT+1, FDAT+2, ZAP+2, ZAP+3, ZAP+4, ZAP+5, LRORD+1, LRORD+2, LRORD+4 , SKPLR, SKPLR+1, SKPLR+2, SKPLR+3
LRFIN	CENDEL+2*, CENDEL+7!, REENTRY+2
LRIDT	CENDEL+7!, LRORD+4*, LRORD+5, LRORD+6, LRORD+7
LRIOZERO	CENDEL+7!
LRLOST	CENDEL+7!
LROCN	CENDEL+7!, SKPLR*, SKPLR+2
LROID	CENDEL+7!, SKPLR*, SKPLR+1
LRORD	CENDEL+7!, REENTRY+1, REENTRY+2, FDAT+2, ZAP+2, ZAP+4, LRORD+1
LROSN	CENDEL+7!, SKPLR*
LRROOT	CHKUID+2~, CHKUID+5, CHKUID+6, CHKUID+9, CHKUID+10, CHKACN+1, CHKACN+6, CHKACN+9
LRSAVE	EP+1~, EP+12*, DQ+9, DQ+17, DQ+24, DQ+28, DQ+43!, CENDEL+7!
LRSN	DQ+32~, DQ+33, DQ+34, CENDEL+7!, ZAP+1, ZAP+2, ZAP+3, ZAP+4, ZAP+5
LRSS	CENDEL+7!, LRORD+3*, LRORD+5, LRORD+6, LRORD+7
LRSTA	CENDEL+1*, CENDEL+7!, REENTRY+1
LRX	EP+1~, EP+11*, EP+12
MSG	EP+1~, L1+9*, L1+10
POP	CENDEL+7!
U	EP+11, L1+3, DQ+6, DQ+31, DQ+37, CENDEL+2*, ZAP+7, LRORD+5, SKPLR
X	EP+1~, SKPLR*
Y	EP+1~, EP+7
Z	CENDEL+7!
ZTDESC	L1+5~, L1+6*
ZTIO	L1+5~, L1+7, CENDEL+4, CENDEL+6!
ZTRTN	L1+5~, L1+6, CENDEL+4, CENDEL+6!
ZTSAVE	L1+5~, CENDEL+6!
ZTSAVE("L*"	CENDEL+4*
ZTSAVE("LR*"	L1+7*
ZTSK	L1+5~, L1+9, CENDEL+6!
>> ZTSTOP	DQ+5, DQ+7, DQ+11, DQ+14, DQ+15, DQ+18, DQ+21, DQ+22, DQ+25, DQ+28 , DQ+30, DQ+38, DQ+41, CHKUID+6, CHKUID+10, CHKACN+5, CHKACN+6*

Customize PDF page

Package: Lab Service

Routine: LROC

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: