Routine: LRACP

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

LRACP ;SLC/DCM - CUMULATIVE PURGE ;2/19/91 10:17 ;

Source Information

Source file <LRACP.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	2	C^%DTC YN^DICN
Kernel	1	^%ZTLOAD
Lab Service	1	PT^LRX

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRAC PURGE

Entry Points

Name	Comments	DBIA/ICR reference
QUEUE
MORE
IDT
ENT	;
CLEAN	;

External References

Name	Field # of Occurrence
C^%DTC	ENT+2
^%ZTLOAD	QUEUE+4
YN^DICN	QUEUE+3
PT^LRX	MORE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option uses the number of days entered in the GRACE PERIOD FOR CUMULATIVE",!,"field in the LABORATORY SITE file to identify and purge patient lab data from",!,"the cumulative file.",! Line Location: QUEUE+1
Function Call: WRITE	Prompt: !?10,"The file is set for ( ",+$P(^LAB(69.9,1,0),U,12)," ) days ",! Line Location: QUEUE+2
Function Call: WRITE	Prompt: !,"Are you sure you want to continue" Line Location: QUEUE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	QUEUE+2, ENT+2
^LAC("LRAC" - [#64.7]	MORE!, MORE+3!, IDT
^LR - [#63]	MORE, MORE+1

Label References

Name	Line Occurrences
CLEAN	ENT+2
IDT	ENT+3
MORE	IDT

Naked Globals

Name	Field # of Occurrence
^(0	ENT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUEUE+3*
DFN	MORE+1*, CLEAN+1!
DT	ENT+2
LRDAYS	MORE+1, ENT+2*, CLEAN+1!
LRDFN	MORE, MORE+1, MORE+3, IDT*, CLEAN+1!
LRDPF	MORE+1*, MORE+2, CLEAN+1!
>> LRWRD	MORE+2
>> LRXLR	ENT+2*
U	QUEUE, QUEUE+2, MORE+1, ENT+1, ENT+2
>> X	MORE+1*, ENT+2
>> X1	ENT+2*
>> X2	ENT+2*
>> ZTDESC	QUEUE+4*
>> ZTIO	QUEUE+4*
>> ZTQUEUED	ENT+1
>> ZTREQ	ENT+1*
>> ZTRTN	QUEUE+4*