Routine: LRCAPES

Information

LRCAPES ;DALOI/FHS/KLL -MANUAL PCE CPT WORKLOAD CAPTURE ; 22-Oct-2013 09:22 ; MKK

Call Graph

Call Graph Total: 18

Package	Total	Call Graph
Lab Service	6	(CHKCPT,DEM,DIS,EN,READ,SEND)^LRCAPES1 SET^LRCAPPH1 ^LRPARAM (,UID)^LRVERA $$SELBY^LRWU4 PT^LRX
VA Fileman	4	EN^DDIOL (,$$FIND1)^DIC $$GET1^DIQ ^DIR
Kernel	3	($$FMADD,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$GET^XUA4A72
PCE Patient Care Encounter	2	GETCPT^PXAPIOE $$PKGON^VSIT
DRG Grouper	1	$$CPT^ICPTCOD
IHS Changes To Lab	1	$$PATCH^BLRUTIL4
Registration	1	(KVA,KVAR)^VADPT

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
Lab Service	8	LRAPDA LRAPMRL LRAPMRL1 LRAPRES LRAPRES2 LRAPUTL LRCAPES LRCAPES1

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;Reporting Location
CPTEN	; EP - Entry point from CPT API call
WLN	;Interactive entry point
ES()	; EP - Entry point for front end application.
PCE	;Check to see if PCE is turned on
END1	;
PRO	;Get provider,patient/location information
PKG	;Check to see if Lab Package is installed
ASK	; Option entry point - Check and setup PCE reporting variables
LOAD	;Setup ^TMP("LRPXAPI" to load CPT workload
EN	; EP
END	;
ADDPREV	;Add CPT quantities from PCE to current totals
CLEAN	;Final Cleanup
SENDWKL	; Store LMIP workload
CPT(LRAA,LRAD,LRAN,LRPRO)	;AP Release entry point
WKL	; S (LRNOP,LREND)=0 D READ^LRCAPES1 ; IHS/MSC/MKK - LR5.21033
ASKLOC	;Check to see if outpatient location
OOS	;Check to see if the LRDLOC is an OOS location
EX1	;Parse the read entry
LCK	;
LOOP	;

External References

Name	Field # of Occurrence
$$PATCH^BLRUTIL4	EN+1, EX1+1, WLN+1, LCK+1, PRO+1, ASKLOC+1, ES+1, ASK+1, PCE+1, OOS+1 , LOOP+1, CPTEN+1, WKL+1, LOAD+1, SENDWKL+1, ADDPREV+1, CPT+1
EN^DDIOL	CPT+30
^DIC	CPT+7, CPT+10
$$FIND1^DIC	LOC+4
$$GET1^DIQ	WLN+15, LCK+7, LCK+8, LCK+9, LCK+11, LCK+16, LCK+18, LCK+19, PRO+6, LOC+3 , ASKLOC+11, ASKLOC+12, PCE+8, CPT+6, CPT+16, CPT+18, CPT+19, CPT+21, CPT+22, CPT+23 , CPT+24, CPT+26
^DIR	PRO+12, ASKLOC+7
$$CPT^ICPTCOD	EX1+7, EX1+14, EX1+24, EX1+30
CHKCPT^LRCAPES1	EX1+8, EX1+25
DEM^LRCAPES1	LCK+21
DIS^LRCAPES1	WKL+5
EN^LRCAPES1	EN+3, ASK+3
READ^LRCAPES1	WKL+3
SEND^LRCAPES1	SENDWKL+3
SET^LRCAPPH1	LOAD+16
^LRPARAM	ASK+6
^LRVERA	WLN+13
UID^LRVERA	WLN+13
$$SELBY^LRWU4	WLN+12
PT^LRX	LCK+6
GETCPT^PXAPIOE	ADDPREV+9
KVA^VADPT	WLN+3
KVAR^VADPT	CLEAN+15
$$PKGON^VSIT	PCE+5
$$FMADD^XLFDT	ASK+8
$$FMTE^XLFDT	LCK+17, CPT+28
$$NOW^XLFDT	CPT+27
$$CJ^XLFSTR	LOAD+8
$$GET^XUA4A72	PRO+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"END ",! Line Location: END+3
Function Call: WRITE	Prompt: !?5,"This accession is corrupt",! Line Location: WLN+17
Function Call: WRITE	Prompt: !?5,"Someone else is editing this accession",! Line Location: LCK+4
Function Call: WRITE	Prompt: !?5,"This accession does not have a Collection Date/Time",! Line Location: LCK+13
Function Call: WRITE	Prompt: !?10,"CAN NOT PROCEED",! Line Location: LCK+14
Function Call: WRITE	Prompt: !?5,"No Active Provider Selected",! Line Location: PRO+15
Function Call: WRITE	Prompt: !?5,"The accession is corrupt - missing zero node",! Line Location: PRO+18
Function Call: WRITE	Prompt: !?5,"LAB SERVICE PACKAGE is not loaded",! Line Location: PKG+2
Function Call: WRITE	Prompt: !?5,"PCE Is not installed",! Line Location: PCE+4
Function Call: WRITE	Prompt: !?5,"PCE is not turned on",! Line Location: PCE+7
Function Call: WRITE	Prompt: !?5,"DEFAULT LAB OOS LOCATION is not defined correctly",! Line Location: OOS+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PCE Wkld Abort "_$P(LRNOP,U,2),IOM) Line Location: LOAD+8
Routine Call	DIC Line Location: LOC+4
Routine Call	DIC Line Location: CPT+7 CPT+10
Routine Call	DIR Line Location: PRO+12 ASKLOC+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^SC - [#44]	FIND1^DIC, GET1^DIQ
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
^LAB(69.9 - [#69.9]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PCE+3
^DIC(9.4 - [#9.4]	ASK+9, ASK+10
^LRO(68 - [#68]	END+1, LCK+3, PRO+17, LOC+1, SENDWKL+4, ADDPREV+4, CPT+32
^SC - [#44]	ASKLOC+3, OOS+3
^TMP("LR"	EX1+6, EX1+16, EX1+20, EX1+32, EX1+36, END+2!, WLN+7!, ASK+7!, ASK+8*, OOS+6 , WKL+6, LOAD+14, LOAD+15, CLEAN+13!
^TMP("LRMOD"	CLEAN+12!
^TMP("LRPXAPI"	ASK+7!, LOAD+3!, ADDPREV+17, ADDPREV+18, ADDPREV+21, ADDPREV+22*, CLEAN+14!
^VA(200 - [#200]	PRO+7

Label References

Name	Line Occurrences
ADDPREV	LOAD+17
CLEAN	LOOP+5
CPTEN	LOOP+4, CPT+33
EN	OOS+6
END	END1+1, WLN+14, WLN+16, WKL+6
END1	PRO+14, PRO+17, ASKLOC+10
SENDWKL	LOAD+7
WKL	PKG+1, PCE+3, PCE+6, OOS+3
WLN	PRO+17, LOOP+4

Naked Globals

Name	Field # of Occurrence
^(	LOAD+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AFTER812	LOAD+10~, CLEAN+1!
AGE	WLN+9!, CLEAN+1!
ANS	CLEAN+5!
CLN	CLEAN+5!
CNT	CLEAN+5!
CPT	LOAD+15*, CLEAN+1!
D	LOAD+10~, CLEAN+1!
D0	LOAD+10~, CLEAN+1!
DDER	LOAD+10~, CLEAN+1!
DFN	ES+3~, CLEAN+1!
DI	LOAD+10~, CLEAN+1!
DIC	WLN+5!, WLN+6!, LOAD+10~, CLEAN+1!, CPT+5~, CPT+7*
DIC(0	CPT+7, CPT+10
DIG	LOAD+10~, CLEAN+1!
DIH	LOAD+10~, CLEAN+1!
DIR	WLN+5!, WLN+6!, PRO+5~, ASKLOC+4~, CLEAN+1!
DIR("A"	PRO+9, ASKLOC+6
DIR("B"	PRO+7*
DIR("S"	PRO+11*
DIR(0	PRO+10, ASKLOC+6
DIRUT	PRO+5~, CLEAN+1!, CLEAN+2!
DISL	LOAD+10~, CLEAN+2!
DIU	CLEAN+2!
DIV	LOAD+10~, CLEAN+2!
DOB	CLEAN+1!
DQ	CLEAN+2!
DT	EX1+7, EX1+14, EX1+24, EX1+30, PRO+7, ASK+8, OOS+6
DUOUT	PRO+5~, CLEAN+2!
DUZ	WLN+11, OOS+6
DUZ(2	ASKLOC+13, CPT+20
FPRI	CLEAN+5!
HRCN	CLEAN+16!
I	LOAD+11~, CLEAN+3!, CPT+5~
IOM	LOAD+8
J	CLEAN+3!
LRAA	END+1, WLN+8!, WLN+10*, WLN+14, WLN+15, LCK+3, LCK+7, LCK+8, LCK+9, LCK+11 , LCK+16, LCK+18, LCK+19, PRO+17, LOC+1, LOC+3, SENDWKL+4, ADDPREV+4, CLEAN+5!, CPT~ , CPT+6, CPT+16, CPT+21, CPT+22, CPT+23, CPT+24, CPT+26, CPT+31, CPT+32
LRACC	WLN+8!, WLN+10*, LOAD+11~, CLEAN+3!
LRACTV	EX1+3~, EX1+13, EX1+29
LRAD	END+1, WLN+8!, WLN+10*, WLN+15, LCK+3, LCK+7, LCK+8, LCK+9, LCK+11, LCK+16 , PRO+17, LOC+1, LOC+3, SENDWKL+4, ADDPREV+4, CLEAN+5!, CPT~, CPT+6, CPT+21, CPT+22 , CPT+23, CPT+24, CPT+26, CPT+31, CPT+32
LRAN	END+1, WLN+8!, WLN+10*, WLN+15, LCK+3, LCK+7, LCK+8, LCK+9, LCK+11, LCK+16 , PRO+17, LOC+1, LOC+3, SENDWKL+4, ADDPREV+4, CLEAN+5!, CPT~, CPT+6, CPT+21, CPT+22 , CPT+23, CPT+24, CPT+26, CPT+31, CPT+32
LRANSX	CLEAN+5!
LRANSY	CLEAN+5!
LRCCT	LOAD+11~
LRCDT	LCK+17, CLEAN+5!, CPT+5~, CPT+28
LRCNT	EX1+15, EX1+16, EX1+19, EX1+20, EX1+31, EX1+32, EX1+35, EX1+36, LOAD+11~, CLEAN+3! , CLEAN+5!
LRCPT	ADDPREV+3~
LRCPT(	ADDPREV+11, ADDPREV+12, ADDPREV+14, ADDPREV+20
LRCPT1	ADDPREV+3~, ADDPREV+18*, ADDPREV+19
LRCPT2	ADDPREV+3~, ADDPREV+13, ADDPREV+14, ADDPREV+15, ADDPREV+19
LRCT	ADDPREV+3~, ADDPREV+7*
LRD2	EX1+3~
>> LRDEBUG	END+3
LRDFN	WLN+8!, WLN+15*, WLN+16, ES+3~, CLEAN+6!, CPT+32
LRDLOC	LCK+20, PCE+8*, OOS+3, CLEAN+6!, CPT+17
LRDPF	WLN+8!, CLEAN+6!
LRDSSID	ASKLOC+11, CLEAN+6!, CPT+18
LRDSSLOC	LCK+19, LCK+20, CLEAN+6!, CPT+16, CPT+17
LRDUZ	ES+3~, LOAD+5*, CLEAN+6!
LREDT	LCK+11, LCK+12, LCK+17, CLEAN+6!, CPT+5~, CPT+26, CPT+27*, CPT+28
LRENCDT	ES+3~
LREND	END1+1, WLN+6!, WLN+10, WLN+14, PRO+3, ASK+5, ASK+6, LOOP+3, LOOP+4, WKL+3 , CLEAN+6!, CPT+5~, CPT+9, CPT+11*
LRES	ES+4!, ES+5*, PCE+3, PCE+6, OOS+3, OOS+7, CLEAN+6!, CPT+5~
LRESCPT	END+2, WLN+12, ES+3~, ES+4!, OOS+5*, OOS+7, LOAD+6, LOAD+9, CLEAN+6!, CPT+29
LRI	LOAD+11~, CLEAN+3!, CPT+5~
LRIDIV	CLEAN+7!
LRIDT	WLN+8!, LCK+16, CLEAN+7!, CPT+5~, CPT+21
LRIEN2	ADDPREV+3~, ADDPREV+8*, ADDPREV+9
LRINA2	EX1+3~
LRLLOC	LOC+3, LOC+4, ASKLOC+3, ASKLOC+5, ASKLOC+9, ASKLOC+10, ASKLOC+11, ASKLOC+12, ES+3~, CLEAN+7! , CPT+6, CPT+7, CPT+8, CPT+12*, CPT+18, CPT+19
LRLLOCX	LCK+8, LOC+3, ES+3~, CLEAN+7!, CPT+5~, CPT+6, CPT+23
LRLST	CLEAN+7!
LRNINS	ASKLOC+12, ASKLOC+13, ES+3~, CLEAN+7!, CPT+19, CPT+20
LRNLT	CLEAN+7!
LRNLTN	LOAD+15*, CLEAN+7!
LRNODE0	LOC+1*, CLEAN+7!
LRNOP	WLN+10, WLN+16, LCK+5, LCK+15, PRO+16, PRO+19, LOC+2, LOOP+4, WKL+3, LOAD+6* , LOAD+7, LOAD+8, LOAD+9, SENDWKL+5, CLEAN+7!, CPT+5~, CPT+11
LRNR	EX1+3~, EX1+10, EX1+26
LROK	CLEAN+7!
LRPCEN	LOAD+11~, CLEAN+8!
LRPCENON	CLEAN+8!
>> LRPCEON	PCE+5*, PCE+6
LRPCEVSO	CLEAN+8!
LRPKG	ASK+9, ASK+10, PKG+1, CLEAN+8!
LRPRAC	CLEAN+8!
LRPRO	WLN+11, PRO+6, PRO+7, PRO+10, PRO+13*, PRO+14, LOAD+5, CLEAN+8!, CPT~, CPT+31
LRPRONM	PRO+5~, PRO+6*, PRO+7
LRPX	ADDPREV+3~, ADDPREV+8*
LRQ	EX1+3~, EX1+22, EX1+23, EX1+24, EX1+36, CLEAN+8!
LRQ1	ADDPREV+3~, ADDPREV+20*, ADDPREV+22
LRQ2	ADDPREV+3~, ADDPREV+21*, ADDPREV+22
LRQT	ADDPREV+3~, ADDPREV+16, ADDPREV+17, ADDPREV+23
>> LRQUIET	LOAD+8
LRRB	WLN+9!, CLEAN+8!
LRREL2	EX1+3~
>> LRRF64	EX1+17, EX1+33
LRSPECID	LCK+9, LCK+10, CLEAN+9!, CPT+5~, CPT+24, CPT+25
LRSS	WLN+9!, LCK+18*, CLEAN+8!
LRSTR2	ADDPREV+3~, ADDPREV+4*, ADDPREV+5, ADDPREV+7, ADDPREV+8
LRTIME	WLN+9!
LRTREA	WLN+9!, CLEAN+8!
LRTST	ES+3~, LOAD+13, LOAD+14, LOAD+15, CLEAN+8!
LRTSTP	LOAD+15*, CLEAN+9!
LRUID	WLN+6!, WLN+9!, WLN+10, LCK+7, LCK+10, CLEAN+9!, CPT+22*, CPT+25
LRURG	CLEAN+8!
LRVBY	WLN+6!, WLN+10, WLN+12, WLN+13, WLN+14, CLEAN+9!
LRVIS	ADDPREV+6!, ADDPREV+7, ADDPREV+12
LRVSITN	CLEAN+10!
LRWL2	EX1+3~, EX1+16, EX1+32
LRWRD	WLN+9!, CLEAN+10!
LRX	EX1+4, EX1+6, EX1+7, EX1+22, CLEAN+10!
LRX1	ADDPREV+3~, ADDPREV+16, ADDPREV+17, ADDPREV+18, ADDPREV+21, ADDPREV+22
LRXCPT	LOAD+3!, CLEAN+10!
LRXTST	LOAD+3!, CLEAN+10!
LRXX	ADDPREV+3~, ADDPREV+10, ADDPREV+11, ADDPREV+12, ADDPREV+14, ADDPREV+20
LRXY	EX1+3~, EX1+7, EX1+10, EX1+14, EX1+16, EX1+20, EX1+24, EX1+26, EX1+30, EX1+32
LRXY1	EX1+3~, EX1+17, EX1+33
LRXY2	EX1+3~, EX1+14, EX1+17, EX1+30, EX1+33
NODE	CLEAN+11!
NODE0	CLEAN+11!
PNM	WLN+9!, CLEAN+11!
POP	CLEAN+3!
PXALOOK	LOAD+11~, CLEAN+3!
PXASUB	LOAD+11~, CLEAN+3!
PXJ	LOAD+11~, CLEAN+3!
PXJJ	LOAD+11~, CLEAN+3!
SDFLAG	CLEAN+11!
SDT1	LOAD+12~, CLEAN+4!
SEX	WLN+9!, CLEAN+11!
SPEL	LOAD+12~, CLEAN+4!
SSN	WLN+9!, CLEAN+11!
SUBL	LOAD+12~, CLEAN+4!
T1	ASK+4~, CLEAN+4!
TYPEI	LOAD+12~, CLEAN+4!
U	EX1+10, EX1+16, EX1+20, EX1+26, EX1+32, EX1+36, ASK+8, OOS+3, OOS+6, LOAD+8 , LOAD+15
VA	CLEAN+11!
X	PRO+5~, ASKLOC+4~, ASK+4~, PCE+3, LOAD+12~, CLEAN+4!, CPT+5~, CPT+7
X1	CLEAN+11!
X2	CLEAN+11!
X3	CLEAN+11!
XPARSYS	LOAD+12~, CLEAN+4!
Y	PRO+5~, PRO+13, ASKLOC+4~, ASKLOC+8, ASKLOC+9, ASK+4~, CPT+5~, CPT+8, CPT+9, CPT+11 , CPT+12

Customize PDF page

Package: Lab Service

Routine: LRCAPES

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: