Routine: LRCHIVE

Information

LRCHIVE ; IHS/DIR/FJE - REMOVE OLD DATA FROM PT. FILE 8/10/89 11:11 ;

Source file <LRCHIVE.m>

Package	Total	Call Graph
Lab Service	2	UPDT^LRCHIVK (DEM,STAMP)^LRX
VA Fileman	1	%XY^%RCR

Package	Total	Caller Graph
Lab Service	1	LRCHIV

Name	Line Occurrences
Function Call: WRITE	Prompt: "." Line Location: DFN+1
Function Call: WRITE	Prompt: !!,"SEARCH PASS DONE" Line Location: TEND+0
Function Call: WRITE	Prompt: !,"Total patient count: ",C2,". Specimen count: ",C3,! Line Location: TEND+0
Function Call: WRITE	Prompt: !,"BAD DATA ",LRDFN,LRSS,LRIDT," KILLED" Line Location: LAB1+1
Function Call: WRITE	Prompt: !,"KILLED UNVERIFIED DATA ",LRDFN,LRSS,LRIDT Line Location: LAB1+3
Function Call: WRITE	Prompt: !,"KILLED HEADER WITH NO DATA ",LRDFN,LRSS,LRIDT Line Location: LAB1+4
Function Call: WRITE	Prompt: !,"NO 0 NODE FOR ^LR(",LRDFN Line Location: NO0+0

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	DFN+5*
^LAR("HRCN"	MOVE+2*
^LAR("NAME"	MOVE+2*
^LAR("Z" - [#63.9999]	MOVE, MOVE+2
^LR - [#63]	MOVE, MOVE+2, DFN+1, DFN+2, DFN+4, LAB, LAB1, LAB1+1!, LAB1+2, LAB1+3! , LAB1+4!, RCC+2*

Name	Field # of Occurrence
^(0	DFN+2

Name	Field # of Occurrence
>> %X	MOVE*
>> %Y	MOVE*
>> C1	MOVE+2, DFN+3
>> C2	MOVE+2*, TEND
>> C3	MOVE+2*, TEND
>> DFN	DFN+2*
>> HRCN	MOVE+2, PT+1, PT+4
>> I	RCC+1*
>> I1	RCC+2
IO	LAB1+1, LAB1+3, LAB1+4, NO0
>> LR(2	LAB
>> LR(3	LAB
>> LRCNT	MOVE*
>> LRDAT	LAB1+2, LAB1+3, LAB1+5, RCC+1, RCC+2
LRDFN	MOVE, MOVE+2, DFN+1*, DFN+2, DFN+4, DFN+5, TEND!, LAB, LAB1, LAB1+1 , LAB1+2, LAB1+3, LAB1+4, RCC+2, NO0
>> LRDPF	PT+2, DFN+2*, LAB1+5
>> LRIDT	LAB, LAB1, LAB1+1, LAB1+2, LAB1+3, LAB1+4, RCC+2
>> LRSS	MOVE, DFN+4*, LAB, LAB1, LAB1+1, LAB1+2, LAB1+3, LAB1+4, LAB1+5, RCC+2
>> PNM	MOVE+2, PT+1, PT+4
>> SSN	PT+1, PT+4
U	MOVE, DFN+2, LAB1+3, LAB1+5
>> X	RCC+1*