Routine: LRAR04

Package	Total	Call Graph
Lab Service	3	^LRAR02 (DQ1,LST,QUIT)^LRARCHIV (DEM,STAMP)^LRX
VA Fileman	2	NOW^%DTC %XY^%RCR

Entry Points

Name	Comments	DBIA/ICR reference
CONTROL	;
UPDT	;
PT	;
MOVE	; ; This is where we make the copies to be archived <----------
LAB	;
TEND	;
LAB1	;
DFN	;
LR	;
CHECKX
QUERY	;
DISPLAY	;
RCC	;

External References

Name	Field # of Occurrence
NOW^%DTC	QUERY+2, QUERY+5, QUERY+31
%XY^%RCR	MOVE+11
^LRAR02	CHECKX+9
DQ1^LRARCHIV	LR+1
LST^LRARCHIV	LR+19
QUIT^LRARCHIV	LR+20
DEM^LRX	PT+2
STAMP^LRX	TEND+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"My preliminary screening process reveals ",$G(LRQCNT)," LRDFN(s)." Line Location: DISPLAY+1
Function Call: WRITE	Prompt: "." Line Location: LAB+7
Function Call: WRITE	Prompt: @IOF Line Location: TEND+1
Function Call: WRITE	Prompt: !!,"The SEARCH process is complete." Line Location: TEND+2
Function Call: WRITE	Prompt: !!,$P(LRI/LRJT0*100,".")," Percent of ^LR was searched" Line Location: TEND+3
Function Call: WRITE	Prompt: !,"Total patient count: ",LRC2,". Specimen count: ",LRC3,! Line Location: TEND+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAR("NAME"	MOVE+17*
^LAR("SSN"	MOVE+18*
^LAR("Z" - [#63.9999]	MOVE+6, MOVE+7, MOVE+15, MOVE+16
^LR - [#63]	MOVE+5, MOVE+15, QUERY+26, LAB+3, LAB+4, LAB1+4, LAB1+6, LAB1+9, CHECKX+7, UPDT+2 , UPDT+4, UPDT+5, RCC+5*
^LR(0	DFN+5, LAB+1
^TMP("LR9"	QUERY+2, QUERY+4!, QUERY+5, QUERY+20, QUERY+26, QUERY+31*, LR+13, LR+14, LR+17
^TMP("LRBAD"	LAB1+5*
^TMP("LRNOD"	LAB1+10*
^TMP("LRT2"	LR+4!, CHECKX+8
^TMP("LRUNV"	LAB1+8*

Label References

Name	Line Occurrences
CHECKX	LAB1+12
DFN	QUERY+1
LAB	LR+18
LAB1	LAB+8
MOVE	CHECKX+12
PT	LR+15, LAB1+3
QUERY	LR+2
TEND	LR+13
UPDT	LAB1+1

Naked Globals

Name	Field # of Occurrence
^(	LR+14
^(0	LAB+4, LAB1+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	QUERY+2, QUERY+5, QUERY+31
>> %X	MOVE+8*
>> %Y	MOVE+9*
>> DFN	LR+14*
>> I	UPDT+2, RCC+4
>> I1	RCC+5
IOF	TEND+1
>> LR(1	DFN+6, QUERY+17
>> LR5	QUERY+29*, QUERY+30
>> LR8	QUERY+24*, QUERY+26, QUERY+27
>> LR9	QUERY+22*, QUERY+25, QUERY+26
>> LRC1	MOVE+14*
>> LRC2	MOVE+14*, TEND+5
>> LRC3	MOVE+19*, TEND+5
>> LRCNT	MOVE+5, MOVE+6, MOVE+7, UPDT+1, UPDT+2*, UPDT+4, UPDT+5
>> LRDAT	LAB1+6, LAB1+7, LAB1+12, CHECKX, CHECKX+1, RCC+2, RCC+3, RCC+4*, RCC+5
LRDFN	MOVE+5, MOVE+6, MOVE+7, MOVE+15, MOVE+16, MOVE+17, MOVE+18, CONTROL+1, QUERY+3, QUERY+19* , QUERY+22, QUERY+23, QUERY+24, QUERY+27, QUERY+29, QUERY+30, LR+5, LR+13*, LR+14, LR+17 , LAB+3, LAB+4, LAB1+4, LAB1+5, LAB1+6, LAB1+8, LAB1+9, LAB1+10, CHECKX+7, TEND+5! , UPDT+2, UPDT+4, UPDT+5, RCC+5
>> LRDPF	PT+2, LR+14*, LR+15, LR+16
>> LRDT7	DFN+6, LAB+4
>> LREDT	QUERY+16, QUERY+18*, QUERY+20, QUERY+25, QUERY+26, LAB+3
>> LRFG	CHECKX+1*
>> LRI	DFN+4, LAB+5, TEND+3
>> LRIDT	LR+17, LAB+2, LAB+3*, LAB+4, LAB1+1, LAB1+2, LAB1+4, LAB1+5, LAB1+6, LAB1+8 , LAB1+9, LAB1+10, CHECKX+7, RCC+5
>> LRJT0	DFN+5*, TEND+3
>> LRJTX	LAB+1*
>> LRMH	CHECKX*
>> LRQCNT	QUERY+6, QUERY+28, DISPLAY+1
>> LRSDTX	QUERY+17*, QUERY+20, QUERY+25
>> LRSS	MOVE+5, MOVE+6, MOVE+7, LR+18*, LAB+3, LAB+4, LAB1+4, LAB1+5, LAB1+6, LAB1+7 , LAB1+8, LAB1+9, LAB1+10, UPDT+2, UPDT+4, UPDT+5, RCC+5
>> LRV7	QUERY+16*, QUERY+18
>> LRWHICH	LR+3*
>> PNM	MOVE+17, PT+1, PT+3, LAB1+3, LAB1+5, LAB1+8, LAB1+10
>> RC1	LR+15*
>> SSN	MOVE+18, PT+1, PT+3
>> TEST	CHECKX+6, CHECKX+7, CHECKX+8
U	MOVE+5, DFN+5, QUERY+20, QUERY+26, LR+14, LR+17, LAB+1, LAB1+7, LAB1+12, CHECKX , CHECKX+1, UPDT+5
>> X	UPDT+1, UPDT+2, RCC+2*, RCC+4

Customize PDF page

Package: Lab Service

Routine: LRAR04

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: