Routine: LRCAPPH

Information

LRCAPPH ;DALOI/VA/FHS - PROCESS PHLEBOTOMY WORKLOAD DATA ; 04-Apr-2016 07:38 ; MKK

Source Information

Source file <LRCAPPH.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	3	(T0,T1)^%ZOSV $$NOW^XLFDT $$GET^XUA4A72
Lab Service	3	EN3^LRCAPPH1 (BLDIN,STORE)^LRCAPV3 $$INSN^LRU
PCE Patient Care Encounter	1	$$PKGON^VSIT
Scheduling	1	EN3^SDACS
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Lab Service	3	LRCAPPHX LRCAPPNP LRNIGHT

Entry Points

Name	Comments	DBIA/ICR reference
END0
EN	;
AE	;Process NP specimens and delete CPT procedures
HEAC	;
QUIT
PHLE
QC	;
DSSLOC
EN3	;Called from LRCAPPH
SET1
SET2
SDC	; S SDC=$S($P(^LAB(69.9,1,"NITE"),U,3):$G(^DIC(40.7,+$P(^LAB(69.9,1,"NITE"),U,3),0)),1:"") S LRSDC=$S($P(SDC,U,2):+$P(SDC,U,2),1:108)
NP	;Not performed entry tag Called from LRCAPPNP ; N LRSPEC,LR657,LR658 ; D ; . K DIC S DIC="^LAM(",DIC(0)="ONMX" ; . S X="89343.0000",LR657=657 D ^DIC I Y>1 S LR657=+Y ; . S X="89341.0000",LR658=658 D ^DIC I Y>1 S LR658=+Y ; K ^LRO(69,"AE",0) ; I $G(LRNP) S LRNOPX=1
XTMP	;Clean up XTMP("LRCAP" global ; Called from LRNIGHT
LOOK	;From LRCAPPNP

Name	Field # of Occurrence
T0^%ZOSV	NP+22
T1^%ZOSV	END0+8
^DIC	NP+14, DSSLOC+7, DSSLOC+8, HEAC+3, PHLE+4
EN3^LRCAPPH1	EN3+1
BLDIN^LRCAPV3	PHLE+9, QC+5
STORE^LRCAPV3	PHLE+26
$$INSN^LRU	QC+4
EN3^SDACS	EN3+8
$$PKGON^VSIT	NP+35
$$NOW^XLFDT	NP+32
$$GET^XUA4A72	NP+15

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls
^LAM - [#64]	Classic Fileman Calls
^LRO(68 - [#68]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	NP+35
^DIC(40.7 - [#40.7]	SDC+2
^DIC(9.4 - [#9.4]	NP+23, NP+24
^LAB(69.9 - [#69.9]	NP+10, NP+16, NP+20, NP+21, NP+26, NP+32, SDC+2, DSSLOC, DSSLOC+13, HEAC+6 , END0+9, PHLE+13, PHLE+20
^LAM - [#64]	DSSLOC+11, DSSLOC+12, QC+5
^LR - [#63]	LOOK+3
^LRO("LRCAPPH"	NP+19, END0+9
^LRO(64.1 - [#64.1]	PHLE+9, QC+5, SET1, SET1+2, SET1+3, SET1+6*, SET2
^LRO(68 - [#68]	PHLE+17
^LRO(69 - [#69]	HEAC+8, HEAC+10, HEAC+11, LOOK+2, LOOK+7, LOOK+9, LOOK+10, PHLE+1, PHLE+11, PHLE+12 , PHLE+29
^SC - [#44]	NP+17, EN3+5
^TMP("LRMOD"	NP+9!, NP+39*, END0+7!, QUIT+1!
^TMP("LRPXAPI"	END0+2!, QUIT+1!
^XMB(1 - [#4.3]	DSSLOC+14
^XTMP("LRCAP"	XTMP+2, XTMP+3!, QC+2, QC+3, QC+5, QUIT!, QUIT+2

Name	Line Occurrences
EN3	LOOK+9
END0	NP+16, NP+17, NP+19, NP+25, DSSLOC+14
LOOK	HEAC+10
QC	XTMP+3
QUIT	QC+3
SET1	QC+5
SET2	SET1+1, SET1+2

Name	Field # of Occurrence
^(	HEAC+11!, LOOK+7, PHLE+11
^("NITE"	NP+20*
^("S"	SET1+2*
^(0	LOOK+2, LOOK+3, QC+5*
^(1	LOOK+7
^(20	PHLE+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CPT	END0+3!
DFN	END0+2!, LOOK+3*, LOOK+4, PHLE+18
DIC	NP+12~, NP+13, DSSLOC+6!, HEAC+2~, HEAC+3, END0+5!, PHLE+3~, PHLE+4
DIC(0	NP+13, DSSLOC+6, HEAC+3, PHLE+4
DT	QC+4
DUZ	LOOK+5
DUZ(2	QC+4
EDATE	END0+2!
I	END0+1!
LCWT	DSSLOC+11*, END0+1!
LOC	END0+1!, EN3+5*, EN3+6
>> LR657	DSSLOC+5, DSSLOC+7*, DSSLOC+12, LOOK+6
>> LR658	DSSLOC+5, DSSLOC+8*, DSSLOC+11, LOOK+6
LRAA	END0+1!, PHLE+13*, PHLE+16
>> LRACC	PHLE+17*
LRCC	HEAC+10, END0+1!, LOOK+6, PHLE, PHLE+9, QC+5*, QUIT!, SET1, SET1+2, SET1+3 , SET1+6, SET2
LRCDT	HEAC+10, END0+1!, END0+3!, LOOK+2, LOOK+7, LOOK+9, PHLE+1, PHLE+2, PHLE+3~, PHLE+8 , PHLE+9, PHLE+29, QC+4*, QC+5, SET1, SET1+2, SET1+3, SET1+6, SET2
LRCDTSAV	PHLE+2*, PHLE+11, PHLE+12, PHLE+27!
LRCE	END0+2!, LOOK+7*
LRCEX	HEAC+8*, HEAC+10, HEAC+11, END0+3!, LOOK+9, LOOK+10, PHLE, PHLE+28
LRCEXV	HEAC+8, END0+3!, LOOK+9, PHLE, PHLE+28*
LRCNT	END0+3!, PHLE+15*
LRCQC	QC+4*, QUIT!, SET1+1, SET1+2, SET1+5
LRCSC	DSSLOC+13*, END0+5!, LOOK+9, QUIT!
LRCSQ	END0+2!, XTMP+2*, XTMP+3, QC+2, QC+3, QC+5, QUIT, QUIT+2
>> LRCTM	PHLE+14*
>> LRDAA	HEAC+4, HEAC+5, PHLE+13
LRDBUG	NP+8!, NP+9, HEAC+11, END0, LOOK+9, PHLE+29
LRDFN	END0+5!, LOOK+3*
LRDLOC	DSSLOC*, END0+5!
>> LRDPF	LOOK+3*, LOOK+4
LRDPRAC	NP+10, NP+11, NP+13, NP+14, NP+15*, END0+6!
LRDSSLOC	END0+5!
LRDUZ	LOOK+1~, LOOK+5, XTMP+3, XTMP+4!, QC+2, QC+3, QC+5, QUIT, QUIT+2
LREDT	END0+3!, PHLE+1*, PHLE+8, PHLE+14
>> LREN5	PHLE+12*, PHLE+15, PHLE+17, PHLE+18, PHLE+24
LREND	HEAC+8*, END0+1!
>> LRFILE	PHLE+18*
LRI	END0+3!
LRICPT	END0+3!
>> LRIDT	PHLE+24*
LRIN	END0+1!, LOOK+7, PHLE+3~, PHLE+6, PHLE+7, PHLE+9, PHLE+13, EN3+8, QC+4, QC+5 , SET1, SET1+2, SET1+3, SET1+6, SET2
LRINA	END0+3!
LRINS	DSSLOC+14*, END0+1!, LOOK+7, PHLE+7
LRLD	END0+1!, PHLE+15*
>> LRLSS	PHLE+16*
>> LRMA	PHLE+16*
LRNINS	END0+3!
LRNLT	END0+3!
LRNOP	END0+5!
>> LRNOPX	HEAC+7, LOOK+8
>> LRNP	NP+19, NP+32, HEAC+7, LOOK+8
LRNT	END0+1!, LOOK+7*, EN3+8
LRO	END0+1!
LROA	HEAC+8, HEAC+10, HEAC+11, END0+1!, LOOK+10
>> LROAD	PHLE+18*
>> LROAD1	PHLE+19*
>> LROAD2	PHLE+19*
LROK	NP+16*, NP+17, NP+18!, END0+6!
>> LROL	PHLE+6*
LRPCEON	NP+35, NP+37, END0+2!, EN3+1
LRPKG	NP+23, NP+24, NP+25, END0+3!, EN3+1, QUIT!
LRPRO	END0+4!
LRPWT	END0+1!
LRREL	END0+4!
LRREPC	QC+4*, QUIT!, SET1+1, SET1+2, SET1+4
>> LRRRL	PHLE+21*
>> LRRRL1	PHLE+22*
>> LRRRL2	PHLE+6*
>> LRRRL3	PHLE+23*
>> LRRRL4	PHLE+6*
LRSDC	SDC+2*, END0+1!, EN3+7
LRSDTC	END0+1!
LRSN	HEAC+10*, END0+1!, END0+4!, LOOK+2, LOOK+7, LOOK+9, PHLE+1, PHLE+11, PHLE+12, PHLE+19 , PHLE+29
>> LRSPEC	HEAC+6, PHLE+20
LRSPWT	END0+1!
LRSTDC	QC+4*, QUIT!, SET1+1, SET1+2, SET1+3
LRSTP	END0+4!
>> LRTEC	PHLE+25*
>> LRTS	PHLE+15*
LRTST	END0+4!, PHLE+11*, PHLE+12
LRTSTP	END0+4!
>> LRUG	PHLE+24*
LRVSIT	NP+26*, END0+2!, END0+4!, EN3+1, EN3+3
>> LRWA	PHLE+16*
LRWRKL	NP+21*, END0+1!, LOOK+9
LRWT	QC+5*, QUIT!
LRXCPT	HEAC+9!, END0+6!
LSPWT	DSSLOC+12*, END0+1!
NODE	END0+1!, END0+4!, LOOK+2, LOOK+3, LOOK+5, LOOK+6, PHLE+4, PHLE+19, PHLE+21, PHLE+22 , PHLE+23, PHLE+25, EN3+5, EN3+8, QC+3, QC+4, QUIT!, SET1+3, SET1+4, SET1+5* , SET1+6
NODE(1	LOOK+7*
PXKDONE	END0+5!
SDATE	END0+1!, EN3+8*
SDC	SDC+2, END0+1!, EN3+7
SDCTYPE	END0+1!, EN3+7*
SDERR	END0+5!, EN3+4!
SDIV	END0+1!, EN3+8*
SDMSG	END0+1!, EN3+7*
SDUZ	END0+2!, EN3+8*
U	NP+10, NP+14, NP+17, NP+21, NP+26, NP+32, SDC+2, DSSLOC+11, DSSLOC+12, DSSLOC+14 , HEAC+6, END0+9, LOOK+3, LOOK+5, LOOK+6, LOOK+7, LOOK+9, PHLE+1, PHLE+4, PHLE+6 , PHLE+11, PHLE+17, PHLE+18, PHLE+19, PHLE+20, PHLE+21, PHLE+22, PHLE+23, PHLE+24, PHLE+25 , PHLE+29, EN3+5, EN3+6, EN3+8, QC+4, QC+5, SET1+2, SET1+3, SET1+4, SET1+5
VSIT	END0+5!
X	NP+12~, NP+13, NP+35, DSSLOC+7, DSSLOC+8, HEAC+2~, HEAC+3, END0+1!, PHLE+3~, PHLE+4
>> XRT0	END0+8
>> XRTL	NP+22
>> XRTN	NP+22, END0+8
Y	NP+14, DSSLOC+7, DSSLOC+8, HEAC+2~, HEAC+4, PHLE+3~, PHLE+5, PHLE+6
Y(0	NP+14, PHLE+6
>> ZTQUEUED	NP+8, EN3+7, QC+1
>> ZTREQ	NP+8, QC+1

Customize PDF page

Package: Lab Service

Routine: LRCAPPH

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: