Routine: LRAR03

Package	Total	Call Graph
Lab Service	1	STAMP^LRX

Package	Total	Caller Graph
Lab Service	1	LRARCHIV

Entry Points

Name	Comments	DBIA/ICR reference
EN	;from LRCHIV
END
JOBTIME	;
UPDT
LAB	;
INIT	; Building block from...\/ ; LRCHIVK SLC/RWF - REMOVE OLD LAB DATA ; 12/14/87 15:46 ;
DFN	;
SCRNOFF	;
SCRNON	;
FLASH	;
SET	;

Name	Field # of Occurrence
STAMP^LRX	EN+1, END

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"START OF PURGE PASS" Line Location: EN+1
Function Call: WRITE	Prompt: "." Line Location: DFN+1
Function Call: WRITE	Prompt: !,"Data not found." Line Location: LAB+3
Function Call: WRITE	Prompt: !,"^LAR and ^LR don't match, Data not purged.",! Line Location: LAB+10
Function Call: WRITE	Prompt: " LRDFN = ",LRDFN_" Sub Script = "_LRSS_" LRIDT = "_LRIDT Line Location: LAB+11
Function Call: WRITE	Prompt: !?4,"^LR("_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LR(LRDFN,LRSS,LRIDT,0) Line Location: LAB+12
Function Call: WRITE	Prompt: !,"^LAR(""Z"","_LRDFN_","_LRSS_","_LRIDT_",0) = ",^LAR("Z",LRDFN,LRSS,LRIDT,0) Line Location: LAB+13
Function Call: WRITE	Prompt: !!,"PURGE PASS DONE " Line Location: END+0
Function Call: WRITE	Prompt: IORVON Line Location: JOBTIME+8
Function Call: WRITE	Prompt: ">" Line Location: JOBTIME+9
Function Call: WRITE	Prompt: IORVOFF Line Location: JOBTIME+10
Function Call: WRITE	Prompt: IODHLT,$E((LRIN/LRJT0)*100,1,4),"% of ^LR" Line Location: JOBTIME+12
Function Call: WRITE	Prompt: IODHLB,$E((LRIN/LRJT0)*100,1,4),"% of ^LR" Line Location: JOBTIME+14

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	DFN+3*
^LAR("Z" - [#63.9999]	DFN+1, DFN+2, LAB+1, LAB+7, LAB+8!, LAB+13, LAB+14!
^LR - [#63]	LAB+3, LAB+7, LAB+8!, LAB+9, LAB+12, UPDT+1, UPDT+2, UPDT+3*

Name	Field # of Occurrence
>> C1	DFN+2*
>> DX	JOBTIME+4, JOBTIME+7, JOBTIME+11, JOBTIME+13
>> DY	JOBTIME+4, JOBTIME+7, JOBTIME+11, JOBTIME+13
>> I	UPDT+1*
IO	EN+1
>> IODHLB	JOBTIME+14
>> IODHLT	JOBTIME+12
IOF	EN+1
>> IORVOFF	JOBTIME+10
>> IORVON	JOBTIME+8
IOST	JOBTIME+2
>> IOXY	JOBTIME+4, JOBTIME+7, JOBTIME+11, JOBTIME+13
>> LRCNT	UPDT, UPDT+1, UPDT+2, UPDT+3
>> LRDFN	EN+2, DFN+1, DFN+2, DFN+3, LAB+1, LAB+3, LAB+7, LAB+8, LAB+9, LAB+11 , LAB+12, LAB+13, LAB+14, UPDT+1, UPDT+2, UPDT+3
>> LRI	JOBTIME+4, JOBTIME+6
>> LRIDT	DFN+2, LAB+1, LAB+3, LAB+7, LAB+8, LAB+11, LAB+12, LAB+13, LAB+14
>> LRIN	JOBTIME+6*, JOBTIME+7, JOBTIME+12, JOBTIME+14
>> LRJT0	JOBTIME+5, JOBTIME+6, JOBTIME+12, JOBTIME+14
>> LRSS	DFN+2*, LAB+1, LAB+3, LAB+7, LAB+8, LAB+11, LAB+12, LAB+13, LAB+14, UPDT+1 , UPDT+2, UPDT+3
>> LRTIC	JOBTIME+5, JOBTIME+6
>> OK	JOBTIME+3*, JOBTIME+16
>> P1	LAB+9
U	UPDT+3
>> X	UPDT, UPDT+1