Routine: LRCAPES

Information

LRCAPES ;DALOI/FHS/KLL -MANUAL PCE CPT WORKLOAD CAPTURE ;11/18/11 15:21

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
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Registration	1	(KVA,KVAR)^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Lab Service	7	LRAPDA LRAPMRL LRAPMRL1 LRAPRES LRAPUTL LRCAPES LRCAPES1
Kernel	1	^DIC(19

Entry Points

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

External References

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

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+14
Function Call: WRITE	Prompt: !?5,"Someone else is editing this accession",! Line Location: LCK+2
Function Call: WRITE	Prompt: !?5,"This accession does not have a Collection Date/Time",! Line Location: LCK+11
Function Call: WRITE	Prompt: !?10,"CAN NOT PROCEED",! Line Location: LCK+12
Function Call: WRITE	Prompt: !?5,"No Active Provider Selected",! Line Location: PRO+13
Function Call: WRITE	Prompt: !?5,"The accession is corrupt - missing zero node",! Line Location: PRO+16
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+2
Function Call: WRITE	Prompt: !?5,"PCE is not turned on",! Line Location: PCE+5
Function Call: WRITE	Prompt: !?5,"DEFAULT LAB OOS LOCATION is not defined correctly",! Line Location: OOS+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("PCE Wkld Abort "_$P(LRNOP,U,2),IOM) Line Location: LOAD+9
Routine Call	DIC Line Location: CPT+5 CPT+8
Routine Call	DIC Line Location: LOC+4
Routine Call	DIR Line Location: PRO+10 ASKLOC+5

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+1
^DIC(9.4 - [#9.4]	ASK+7, ASK+8
^LRO(68 - [#68]	END+1, LCK+1, PRO+15, LOC+1, SENDWKL+2, ADDPREV+2, CPT+30
^SC - [#44]	ASKLOC+1, OOS+1
^TMP("LR"	EX1+4, EX1+14, EX1+18, EX1+31, EX1+35, END+2!, WLN+4!, ASK+5!, ASK+6*, OOS+4 , WKL+2, LOAD+15, LOAD+16, CLEAN+13!
^TMP("LRMOD"	CLEAN+12!
^TMP("LRPXAPI"	ASK+5!, LOAD+1!, ADDPREV+15, ADDPREV+16, ADDPREV+19, ADDPREV+20*, CLEAN+14!
^VA(200 - [#200]	PRO+5

Label References

Name	Line Occurrences
ADDPREV	LOAD+18
CLEAN	LOOP+3
CPTEN	LOOP+2, CPT+31
EN	OOS+4
END	END1+1, WLN+11, WLN+13, WKL+2
END1	PRO+12, PRO+15, ASKLOC+8
SENDWKL	LOAD+8
WKL	PKG+1, PCE+1, PCE+4, OOS+1
WLN	PRO+15, LOOP+2

Naked Globals

Name	Field # of Occurrence
^(	LOAD+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Lab Service