Routine: LRAR05

Information

LRAR05 ; IHS/DIR/AAB - NEW ARCHIVE PURGER 12/12/96 10:16 ; [ 07/22/2002 1:05 PM ]

Package	Total	Call Graph
Kernel	3	(ENS,KILL)^%ZISS $$FMTE^XLFDT $$CJ^XLFSTR
Lab Service	1	STAMP^LRX

Package	Total	Caller Graph
Lab Service	1	LRAR01

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	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: @IOF Line Location: SET+2
Function Call: WRITE	Prompt: IORVON Line Location: JOBTIME+7
Function Call: WRITE	Prompt: ">" Line Location: JOBTIME+8
Function Call: WRITE	Prompt: IORVOFF Line Location: JOBTIME+9
Function Call: WRITE	Prompt: IODHLT,$E((LRIN/LRJT0)*100,1,4),"% of ^LR" Line Location: JOBTIME+11
Function Call: WRITE	Prompt: IODHLB,$E((LRIN/LRJT0)*100,1,4),"% of ^LR" Line Location: JOBTIME+13
Function Call: WRITE	Prompt: IOG1 Line Location: SCRNON+1
Function Call: WRITE	Prompt: IODHLT,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM) Line Location: FLASH+5
Function Call: WRITE	Prompt: IODHLB,$$CJ^XLFSTR($$FMTE^XLFDT(LRDT7,"D"),IOM) Line Location: FLASH+7
Function Call: WRITE	Prompt: IOBOFF Line Location: SCRNOFF+1

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
>> %ZIS	SCRNON+2*
>> C1	DFN+2*
>> DX	SET+2, JOBTIME+3, JOBTIME+6, JOBTIME+10, JOBTIME+12, FLASH+3
>> DY	SET+2, JOBTIME+3, JOBTIME+6, JOBTIME+10, JOBTIME+12, FLASH+3, FLASH+6*
>> I	UPDT+1*
IO	EN+1
>> IOBOFF	SCRNOFF+1
>> IODHLB	JOBTIME+13, FLASH+7
>> IODHLT	JOBTIME+11, FLASH+5
IOF	EN+1, SET+2
IOM	FLASH+5, FLASH+7
>> IORVOFF	JOBTIME+9
>> IORVON	JOBTIME+7
IOST	SET+1, JOBTIME+1
>> IOXY	SET+2, JOBTIME+3, JOBTIME+6, JOBTIME+10, JOBTIME+12, FLASH+3, FLASH+6
>> LR(1	FLASH+2
>> 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
>> LRDT7	FLASH+2*, FLASH+5, FLASH+7
>> LRI	SET+2*, JOBTIME+3, JOBTIME+5
>> LRIDT	DFN+2, LAB+1, LAB+3, LAB+7, LAB+8, LAB+11, LAB+12, LAB+13, LAB+14
>> LRIN	SET+2, JOBTIME+5, JOBTIME+6, JOBTIME+11, JOBTIME+13
>> LRJT0	JOBTIME+4, JOBTIME+5, JOBTIME+11, JOBTIME+13
>> 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	SET+2!, JOBTIME+4, JOBTIME+5
>> OK	SET+2, JOBTIME+2, JOBTIME+15
>> P1	LAB+9
U	UPDT+3
>> X	UPDT, UPDT+1