Routine: LRCAPPH1

Information

LRCAPPH1 ;DALOI/SED/RKS/KLL - PROCESS PHLEBOTOMY WORKLOAD DATA CONT ;07/30/04

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT $$GET^XUA4A72
Lab Service	2	$$GMOD^LRBEBA2 (MICRO1,MICRO2)^LRBEBA3
PCE Patient Care Encounter	2	($$DATA2PCE,$$DELVFILE)^PXAPI ENCEVENT^PXKENC
DRG Grouper	1	($$CODM,$$CPT)^ICPTCOD
IHS Changes To Lab	1	$$MODEXIST^BLRUTIL4

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Lab Service	6	LRCAPBV1 LRCAPES LRCAPES1 LRCAPPH LRCAPPHX LRCAPPNP

Entry Points

Name	Comments	DBIA/ICR reference
END0
SET	;SET IF VALID PROCEDURE
END
LOC	;Called from LRCAPPNP
CHK	;Determine if any CPT code remain on the encounter, then delete encounter if false
SEND	;BUILD ENCOUNTER INFO Called from LRCAPPNP
DELCAN	;Mark PCE Encounter number as '-CPT CANC-ENC DEL'
EN3	;LREDT = PATIENT ENCOUNTER DATE
EN5	;GET THE CPT CODES FOR THE TESTS
EN6	;Called from LRCAPPNP
EN7
NP	;Not perform entry
TEST	;
PCE	;SEND DATA TO PCE

External References

Name	Field # of Occurrence
$$MODEXIST^BLRUTIL4	CHK+5, CHK+6
$$CODM^ICPTCOD	SET+4
$$CPT^ICPTCOD	EN6+17
$$GMOD^LRBEBA2	SET+27
MICRO1^LRBEBA3	SET+33
MICRO2^LRBEBA3	PCE+8
$$DATA2PCE^PXAPI	PCE+9, PCE+12
$$DELVFILE^PXAPI	CHK+5
ENCEVENT^PXKENC	CHK+2
$$NOW^XLFDT	NP+5, PCE+14
$$GET^XUA4A72	NP+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	EN6+6
^LAB(69.9 - [#69.9]	TEST+2
^LAM - [#64]	EN6+8, EN6+10, EN6+13, EN6+18
^LAM("AD"	EN6+8, EN6+10
^LR - [#63]	NP+4, TEST+6
^LRO(68 - [#68]	EN5+9, EN5+11, EN6+3, LOC+2, SET+30, PCE+3
^LRO(69 - [#69]	NP+1, NP+2, NP+13, NP+14, NP+15, EN5+1, EN5+3, EN5+4, EN5+10, EN5+11* , EN5+16, EN6+4, EN6+17, LOC+3, LOC+5, SET+34, SEND+1, PCE+19, PCE+20, EN7+2 , EN7+6, CHK+10, DELCAN+2, DELCAN+7, DELCAN+10, TEST+4, TEST+5
^SC - [#44]	NP+10, NP+12, LOC+4
^TMP("LRBEDX"	PCE+10!
^TMP("LRMOD"	SET+2, SET+22
^TMP("LRPXAPI"	EN3+2!, EN5+14!, EN5+16, END0!, SET+14, SET+15, SET+19, SET+20, SET+23, SET+25 , SET+28, SET+31, SET+34, SEND+8, SEND+9, SEND+10, SEND+11, SEND+12, SEND+13, SEND+14 , PCE+6, PCE+16
^TMP("PXKENC"	CHK+1!, CHK+3!, CHK+7!
^XTMP("LRPCELOG"	PCE+13, PCE+14, PCE+15, PCE+16

Label References

Name	Line Occurrences
DELCAN	CHK+10
EN3	TEST+7
EN6	EN5+14, EN5+15
LOC	EN5+12, EN5+14
SEND	EN5+14, EN5+16
SET	EN6+19, EN6+20

Naked Globals

Name	Field # of Occurrence
^(	NP+1, NP+13, NP+14, NP+15, EN6+17, LOC+2, LOC+3, LOC+5, SET+2, PCE+20*
^("PCE"	EN6+4, PCE+19
^(0	NP+10, EN5+4, EN6+10, EN6+13, EN6+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CPT	END0!, EN6+10*, EN6+16, EN6+17, SET+1, SET+2, SET+4, SET+7, SET+8, SET+10 , SET+12, SET+13, SET+15, SET+17, SET+18, SET+20, SET+22, SET+27
>> DFN	NP+13, SEND+12, TEST+6*
DT	TEST+4
DUZ	TEST+1
EDATE	NP+6*, NP+11, END0!, EN6+15, EN6+20
I	END0+1!
LOC	NP+8*, NP+10, NP+12, NP+13, END0+1!
LRAA	EN5+6*, EN5+9, EN5+11, EN5+12, EN5+14, END0+1!, EN6+3, LOC+1, LOC+2, SET+26 , SET+27, SET+30, PCE+3
LRAAX	PCE+1~, PCE+3*, PCE+4, PCE+5, PCE+11
LRBEID	EN3+1~, EN5+10*, PCE+15
>> LRBEVSIT	PCE+4
>> LRCCT	SET+8*
>> LRCDT	NP+2, EN5+1, EN5+3, EN5+4, EN5+10, EN5+11, EN6+4, SET+33, PCE+8, PCE+19 , EN7+2, EN7+6, CHK+10, DELCAN+2, DELCAN+7, DELCAN+10, TEST+4*, TEST+5
>> LRCE	CHK+10
>> LRCEX	NP+1, NP+13, NP+14, NP+15, EN5+16, EN6+17, LOC+3, LOC+5, SET+34, SEND+1 , PCE+20
LRCNT	EN5+2, END0+1!, SET+7, SET+8*, SET+10, SET+12, SET+14, SET+15, SET+17, SET+18 , SET+19, SET+20, SET+22, SET+23, SET+25, SET+28, SET+33
>> LRDBUG	NP+5, EN5+11, END, PCE+17, TEST+3*
>> LRDLOC	LOC+2, TEST+2*
>> LRDPRAC	NP+11, TEST+1*
LRDSSID	EN5+13, EN5+14, END0+1!, LOC+4*, LOC+5, SEND+8
>> LRDSSLOC	LOC+2*, LOC+3, LOC+4, SEND+10
LRDUZ	NP+3~, NP+9*, PCE+9, PCE+12
LREDT	EN3+1~, NP+2, NP+4, NP+5, NP+6, NP+7*, EN6+17, SEND+3
LREN5	EN5+4*, EN5+5, EN5+6, END0+1!
LRENCDT	SEND+2~, SEND+3, SEND+7, SEND+9
LRENCDT(1	SEND+3, SEND+4, SEND+5, SEND+6, SEND+7
>> LRES	SET+25
>> LRESCPT	SEND+1, PCE+18
LRFLG	EN6+5~, EN6+12, EN6+14, EN6+15*, EN6+16
LRFND	EN7~, EN7+4, EN7+5, DELCAN+5, DELCAN+6, DELCAN+8*, DELCAN+9
LRI	END0+1!
LRICPT	END0!, EN6+6, EN6+10, EN6+13, EN6+18
LRIDT	END0+2!
LRINA	END0!, EN6+13, EN6+14, EN6+15, EN6+18, EN6+19, EN6+20
>> LRINS	NP+10
LRLNOW	PCE+1~, PCE+14*, PCE+15, PCE+16
LRNINS	NP+8, NP+10, NP+14, END0+1!, SEND+11
LRNLT	END0!, EN6+6*, EN6+7, EN6+8, EN6+10, EN6+13, EN6+18
LRNLTN	END0+2!, EN6+8*, EN6+9, SET+29
LRNOP	EN3+1~, NP+13, NP+14, NP+15, LOC+1, LOC+3, LOC+5
>> LRNP	NP+16, SET+1, SET+10, SET+11, SET+16, SET+21, PCE+19, EN7+1
>> LRNPX(	SET+1, SET+12, SET+13*
>> LROA	NP+1, NP+13, NP+14, NP+15, EN5+16, EN6+17, LOC+3, LOC+5, SET+34, SEND+1 , PCE+20
LROK	END0+1!, PCE+2, PCE+4, PCE+9, PCE+12, PCE+17, PCE+19, PCE+20, EN7+1, CHK+5* , CHK+6*, CHK+7
LRPCE	EN7~, EN7+2, EN7+3, EN7+4, EN7+5, EN7+6, DELCAN+2, DELCAN+4, DELCAN+5, DELCAN+6 , DELCAN+7, DELCAN+8, DELCAN+9*, DELCAN+10
>> LRPKG	PCE+9, PCE+12, CHK+5, TEST+3*
LRPRO	NP+8, NP+11, NP+15, END0!, SET+14
LRREL	END0!, EN6+13, EN6+14, EN6+15, EN6+18, EN6+19, EN6+20
LRSN	NP+2, EN5+1, EN5+3, EN5+4, EN5+10, EN5+11, EN6+4, SET+33, PCE+8, PCE+19 , EN7+2, EN7+6, CHK+8~, CHK+9, CHK+10, DELCAN+2, DELCAN+7, DELCAN+10, TEST+4*, TEST+5
>> LRSS	PCE+11
LRSTP	END0+1!
LRTST	EN5+2, EN5+3, EN5+4, EN5+10, EN5+11, END0!, SET+29, SET+33
>> LRTSTP	EN5+6*, EN6+6, SET+29
>> LRVSIT	TEST+3*
LRVSITN	EN3+2!, PCE+2!, PCE+4, PCE+9, PCE+12, PCE+15, PCE+17, PCE+19, EN7+1, EN7+3 , EN7+4, CHK+2, CHK+3, CHK+5, DELCAN+3, DELCAN+4, DELCAN+5, DELCAN+8
LRXAA	EN5+2, EN5+12, EN5+14*, END0+1!
LRXCPT	EN3+2!, END0+2!
LRXCPT(	SET+7, SET+8, SET+10, SET+12, SET+17, SET+18, SET+20, SET+22
LRXTST	EN3+2!, EN5+2!*, END0+1!
LRXTST(	SET+29*
LRXTSTU	END0+2!
MOD	SET+27*, SET+28!
>> NODE	NP+4, NP+8, NP+9, TEST+4*, TEST+6
>> NODE(1	NP+8, TEST+5*
U	NP+2, NP+8, NP+9, NP+10, NP+12, EN5+5, EN5+6, EN5+9, EN5+10, EN5+11 , EN6+3, EN6+6, EN6+8, EN6+10, EN6+13, EN6+17, EN6+18, LOC+4, SET+29, SET+30 , PCE+3, PCE+15, TEST+6
X	SET+3~, SET+4*

Customize PDF page

Package: Lab Service

Routine: LRCAPPH1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: