Routine: LRCAPPHX

Package	Total	Call Graph
Kernel	4	T0^%ZOSV ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$GET^XUA4A72
Lab Service	2	END0^LRCAPPH EN3^LRCAPPH1
VA Fileman	2	^DIC ^DIR
PCE Patient Care Encounter	1	$$PKGON^VSIT

Package

Total

Call Graph

Kernel

T0^%ZOSV ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$GET^XUA4A72

Lab Service

END0^LRCAPPH EN3^LRCAPPH1

VA Fileman

^DIC ^DIR

PCE Patient Care Encounter

$$PKGON^VSIT

Package	Total	Caller Graph
Lab Service	1	LRCAPCEX

Package

Total

Caller Graph

Lab Service

LRCAPCEX

Entry Points

Name	Comments	DBIA/ICR reference
AA	;
SET	;Reset node if not canceled
END	;Indicate if accessions were reset and process ^LRO(69,"AA" data
LOOK	;Process only collected specimens
SW	;Exchange dates if out of sequence
RD	;
EN	;
DATE	;Get date range
FIN
LOOP	;Check entries to determine if appropriate to resend
DQ	;Queue with START DATE(LRSDT) AND END DATE(LREDT) defined

Name	Field # of Occurrence
T0^%ZOSV	END+22
^DIC	END+15
^DIR	DATE+3, DATE+6
END0^LRCAPPH	FIN+7
EN3^LRCAPPH1	LOOK+10
$$PKGON^VSIT	END+29
$$FMTE^XLFDT	LOOP+2
$$NOW^XLFDT	END+28
$$CJ^XLFSTR	EN+1, EN+4, EN+5, END+3, AA+1
$$GET^XUA4A72	END+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+3
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(" Resend PCE CPT Workload ",IOM) Line Location: EN+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Only orders that have NO recorded PCE workload will be rescanned",IOM) Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(LRSDT),! Line Location: LOOP+2
Function Call: WRITE	Prompt: "." Line Location: LOOP+9
Function Call: WRITE	Prompt: LRCEX_" " Line Location: AA+4
Routine Call	DIC Line Location: END+15
Routine Call	DIR Line Location: DATE+3 DATE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	END+27
^DIC(9.4 - [#9.4]	END+23, END+24
^LAB(69.9 - [#69.9]	END+10, END+11, END+17, END+20, END+21, END+26, END+28*
^LR - [#63]	LOOK+2
^LRO("LRCAPPH"	EN+1, FIN
^LRO(69 - [#69]	LOOP+1, LOOP+3, LOOP+5, LOOP+6, LOOP+8, SET+1, SET+2, SET+5, END+1, AA+3 , AA+6, AA+9, LOOK+1, LOOK+6, LOOK+9
^SC - [#44]	END+18
^TMP("LRMOD"	END+9!, END+30*, FIN+8!
^XMB(1 - [#4.3]	END+2

Name	Line Occurrences
END	LOOP+10
FIN	EN+1, DATE+3, DATE+4, DATE+6, DATE+7, END+1, END+2, END+17, END+18, END+25 , END+27
LOOK	AA+8
RD	DATE+3, DATE+6
SET	LOOP+7
SW	DQ+5

Name	Field # of Occurrence
^(	AA+9!
^("NITE"	END+20*
^(0	LOOK+1, LOOK+3
^(1	LOOK+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AC	FIN+2!
AFTER812	FIN+2!
ANS	FIN+2!
CH1	FIN+2!
CLN	FIN+2!
CM	FIN+2!
CX	FIN+2!
D	FIN+2!
D0	FIN+2!
DDER	FIN+2!
DEF	FIN+3!
DFN	FIN+3!, LOOK+3*, LOOK+4
DI	FIN+3!
DIC	END+13~, END+14*
DIC(0	END+14*
DIF	FIN+3!
DIG	FIN+3!
DIH	FIN+3!
DIR	EN+6~
DIR("A"	DATE+2, DATE+5
DIR(0	DATE+3*
DIRUT	EN+6~, RD+2
DISL	FIN+3!
DIU	FIN+3!
DIV	FIN+3!
DQ	FIN+3!
DTOUT	EN+6~, RD+2
DUOUT	EN+6~, RD+2
DUZ	LOOK+5
EC	FIN+4!
FPRI	FIN+4!
IOF	EN+3
IOM	EN+4, EN+5
J	FIN+4!
LI	FIN+4!
LL	FIN+4!
LN	FIN+4!
>> LRCC	AA+5*
>> LRCDT	AA+7*, AA+8, LOOK+1, LOOK+6, LOOK+9
LRCE	EN+6~, LOOP+4, LOOP+5, LOOP+8, LOOK+9*
>> LRCEX	AA+2, AA+3, AA+4, AA+6, AA+9
>> LRCEXV	AA+2*
LRCOUNT	EN+6~, SW+3, LOOP+8, LOOP+9, AA+2, AA+4
LRDBUG	END+8!, END+9
>> LRDFN	LOOK+2*
LRDLOC	EN+7~, END+11*
LRDPF	EN+7~, LOOK+3*, LOOK+4
>> LRDPRAC	END+10, END+12, END+14, END+15, END+16*
LRDUZ	EN+7~, LOOK+5*
LREDT	EN+7~, DATE+8, SW+1, SW+2, LOOP+1
LREND	EN+6~, DATE+3, DATE+6, RD+1, RD+2, AA+2*, AA+3
>> LRIN	LOOK+8*
>> LRINS	END+2*, LOOK+8
LRNOD	EN+6~
LRNOD(1	SET+2, SET+3, SET+4, SET+5
>> LRNP	END+28
>> LRNT	LOOK+8*
>> LROA	AA+2, AA+5, AA+6*, AA+7, AA+9
LROK	END+17*, END+18, END+19!
>> LRPCEON	END+29*
>> LRPKG	END+23, END+24, END+25
LRQUIET	EN+1, EN+2, LOOP+2, LOOP+9, END+1, END+3, AA+1, AA+4, FIN+1, DQ+3~ , DQ+4*
LRSDT	EN+7~, DATE+5, SW+1, SW+2, SW+3, LOOP+1, LOOP+2, LOOP+3, LOOP+5, LOOP+6 , LOOP+8, SET+1, SET+2, SET+5
LRSET	EN+6~, LOOP+4, LOOP+8, SET+4
LRSN	EN+6~, LOOP+3, LOOP+5, LOOP+6, LOOP+8, SET+1, SET+2, SET+5, AA+7, AA+8 , LOOK+1, LOOK+6, LOOK+9
LRTS	EN+7~, SET+1*, SET+2, SET+5
>> LRVSIT	END+26*
LRVSITN	FIN+5!
>> LRWRKL	END+21*
LRXCPT	AA+4!
LV	FIN+4!
N	FIN+4!
>> NODE	LOOK+1*, LOOK+2, LOOK+5
>> NODE(1	LOOK+6*, LOOK+7, LOOK+8
PG	FIN+4!
PXALOOK	FIN+5!
PXASUB	FIN+5!
PXJ	FIN+5!
PXJJ	FIN+5!
SDCNT	FIN+5!
SDFLAG	FIN+5!
SDT1	FIN+5!
SPEL	FIN+6!
SUBL	FIN+6!
T	FIN+6!
TYPEI	FIN+6!
U	LOOP+5, SET+3, SET+4, END+2, END+10, END+15, END+18, END+21, END+26, END+28 , LOOK+3, LOOK+5, LOOK+7, LOOK+8
X	EN+6~, SW+2, END+13~, END+14, END+27*
>> XRTL	END+22
>> XRTN	END+22*
Y	EN+6~, DATE+4, DATE+5, DATE+7, DATE+8, END+15
Y(0	END+15
Z1	FIN+6!
>> ZTQUEUED	END+8
>> ZTREQ	END+8*

Customize PDF page

Package: Lab Service

Routine: LRCAPPHX

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: