Routine: LRCAPES1

Information

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

Source Information

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Lab Service	6	(CLEAN,EN,LOAD)^LRCAPES (LSTCPT,READ)^LRCAPES1 SEND^LRCAPPH1 STUFI^LRCAPV1 SET^LRCAPV1S RANGE^LRWU2
Kernel	3	($$FMADD,$$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR $$GET^XUA4A72
VA Fileman	2	($$GET1,EN)^DIQ ^DIR
DRG Grouper	1	($$CPT,$$CPTD)^ICPTCOD
IHS Changes To Lab	1	$$PATCH^BLRUTIL4
PCE Patient Care Encounter	1	GETCPT^PXAPIOE

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRCAPES LRCAPES1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; EP - Setup the order of defined NLT codes
READ	;Select CPT codes for accession ; Ask if want to see previously loaded CPT codes
SETWKL(LRAA,LRAD,LRAN)	;Set workload into 68 from CPT coding
CHK	;User accepts CPT list
SEND	;Send data to PCE via DATA2PCE^PXAPI API
SET(DFN,LRPRO,LREDT,LRLOC,LRINS,LRCPT,LRAA,LRAD,LRAN)	; Call to check variable
RD	;DIR read
CHKCPT	;Edit CPT code - does it exist,active in 81 or 64, linked to workload?
LSTCPT(LRAA,LRAD,LRAN)
PG	;Page break
DEM	;
HLP	;Help display for CPT selection
DIS	;

External References

Name	Field # of Occurrence
$$PATCH^BLRUTIL4	EN+1, SET+1, SEND+1, SETWKL+1, DIS+1, CHK+1, DEM+1, CHKCPT+1, LSTCPT+1, HLP+1
$$GET1^DIQ	EN+19, EN+20, SEND+3, DEM+11, DEM+24, DEM+28, DEM+29
EN^DIQ	LSTCPT+16
^DIR	PG+2, RD+4, LSTCPT+9
$$CPT^ICPTCOD	EN+15
$$CPTD^ICPTCOD	EN+17
CLEAN^LRCAPES	SET+14
EN^LRCAPES	SET+12
LOAD^LRCAPES	SET+14
LSTCPT^LRCAPES1	HLP+13
READ^LRCAPES1	SET+12
SEND^LRCAPPH1	SEND+8
STUFI^LRCAPV1	SETWKL+19
SET^LRCAPV1S	SETWKL+19
RANGE^LRWU2	DIS+8
GETCPT^PXAPIOE	LSTCPT+13
$$FMADD^XLFDT	EN+8, CHK+8
$$FMTE^XLFDT	DEM+7
$$NOW^XLFDT	SEND+6
$$CJ^XLFSTR	SEND+4, SEND+9, SETWKL+6, DEM+34, HLP+6, HLP+7
$$GET^XUA4A72	SET+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Sending PCE Workload",IOM) Line Location: SEND+4
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Visit # "_LRVSITN,80) Line Location: SEND+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Storing LMIP Workload",IOM) Line Location: SETWKL+6
Function Call: WRITE	Prompt: !!!,?5,"The following CPT Code(s) are not selected:" Line Location: DIS+11
Function Call: WRITE	Prompt: ! Line Location: DIS+16
Function Call: WRITE	Prompt: @IOF Line Location: PG+4
Function Call: WRITE	Prompt: ! Line Location: RD+3
Function Call: WRITE	Prompt: @IOF Line Location: DEM+5
Function Call: WRITE	Prompt: !?3,PNM,?35,SSN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1) Line Location: DEM+6
Function Call: WRITE	Prompt: !?3,PNM,?35,HRCN,?55,"DOB: ",$$FMTE^XLFDT(DOB,1) Line Location: DEM+7
Function Call: WRITE	Prompt: !?5,LRCDT Line Location: DEM+8
Function Call: WRITE	Prompt: !?10,LRSPECID,?60,"Loc: ",$G(LRLLOCX) Line Location: DEM+9
Function Call: WRITE	Prompt: !?15,"PCE ENC # "_^("PCE") Line Location: DEM+10
Function Call: WRITE	Prompt: !?15,"Specimen: ",$$GET1^DIQ(68.05,"1,"_LRIENS,.01,"E") Line Location: DEM+11
Function Call: WRITE	Prompt: !?5,"Tissue Specimens: " Line Location: DEM+14
Function Call: WRITE	Prompt: !,?15,$P($G(^(LRX,0)),U) Line Location: DEM+15
Function Call: WRITE	Prompt: !?5,"Test(s); " Line Location: DEM+16
Function Call: WRITE	Prompt: ?15,$P($G(^LAB(60,+LRX,0)),U)_"/ " Line Location: DEM+21
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Selected CPT Codes",IOM) Line Location: DEM+34
Function Call: WRITE	Prompt: ! Line Location: DEM+35
Function Call: WRITE	Prompt: !?5,"("_LRX_") "_$P(LRTMP,U)_" "_$E($P(LRTMP,U,3),1,50),! Line Location: DEM+41
Function Call: WRITE	Prompt: !!!?5,"The following CPT Codes are NOT Selected" Line Location: DEM+44
Function Call: WRITE	Prompt: @IOF Line Location: LSTCPT+11
Function Call: WRITE	Prompt: @IOF Line Location: LSTCPT+15
Function Call: WRITE	Prompt: @IOF Line Location: HLP+4
Function Call: WRITE	Prompt: $$CJ^XLFSTR("List or range e.g, 1,3,5-7,88300.",IOM) Line Location: HLP+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Select from the following or enter CPT separated by a comma",IOM),! Line Location: HLP+7
Function Call: WRITE	Prompt: !?3,$QS(LRX,4),?6," = "_$QS(LRX,6)_" "_$E($P(LRY,U,2),1,60),! Line Location: HLP+10
Function Call: WRITE	Prompt: @IOF Line Location: HLP+12
Routine Call	DIR Line Location: PG+2 RD+4 LSTCPT+9

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^LR - [#63]	GET1^DIQ
^LAM - [#64]	GET1^DIQ
68.05	GET1^DIQ
^AUPNVCPT - [#9000010.18]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SET+10
^DPT - [#2]	SET+4
^LAB(60 - [#60]	DEM+21
^LAM - [#64]	EN+14, EN+15, SETWKL+15, SETWKL+16, CHKCPT+14, CHKCPT+18, CHKCPT+21, CHKCPT+22, CHKCPT+24
^LAM("AB"	SETWKL+14, CHKCPT+7, CHKCPT+10, CHKCPT+13
^LR - [#63]	DEM+12, DEM+15
^LRO(68 - [#68]	SEND+5, SEND+10*, SETWKL+3, SETWKL+4, SETWKL+10, SETWKL+17, DEM+10, DEM+19, LSTCPT+6
^SC - [#44]	SET+7, SET+8
^TMP("LR"	EN+4, EN+6!, EN+8, EN+9, EN+19, EN+20, SET+13, SETWKL+5!, SETWKL+11, SETWKL+12 , SETWKL+14, SETWKL+20!, DIS+5!, DIS+10, CHK+7!, CHK+8*, DEM+33, DEM+38, DEM+40
^TMP("LRPXAPI"	SEND+3

Name	Line Occurrences
DEM	DIS+18
DIS	SET+13
LSTCPT	READ+2
PG	DEM+20, DEM+39, LSTCPT+15
RD	CHK+5, READ+8, HLP+12
SETWKL	SEND+11

Name	Field # of Occurrence
^(	DEM+15
^("PCE"	SEND+5*, DEM+10
^(0	CHKCPT+14, CHKCPT+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DEM+3~, LSTCPT+7~, LSTCPT+16*
DFN	SET~, SET+4
DIC	LSTCPT+7~, LSTCPT+16*
DIR	CHK+3~, PG+1~, READ+3~, LSTCPT+7~, HLP+3~
DIR("?"	READ+6*
DIR("??"	READ+7*
DIR("A"	CHK+4, READ+5, LSTCPT+8*
DIR("B"	CHK+5, LSTCPT+9
DIR(0	CHK+5, PG+2, READ+4, LSTCPT+8, HLP+12*
DIROUT	RD+1~
DIRUT	PG+1~, PG+3, RD+1~, RD+4, LSTCPT+7~, LSTCPT+9, HLP+3~
>> DOB	DEM+7
DR	LSTCPT+7~, LSTCPT+16*
DT	EN+4, EN+8, EN+9, EN+15, SET+5, CHK+8
DTOUT	PG+1~, RD+1~, HLP+3~
DUOUT	PG+1~, RD+1~, LSTCPT+7~, HLP+3~
DUZ	EN+4, EN+9
ERR	LSTCPT+7~
>> HRCN	DEM+7
IEN	LSTCPT+7~, LSTCPT+12*, LSTCPT+13
IOF	PG+4, DEM+5, LSTCPT+11, LSTCPT+15, HLP+4, HLP+12
IOM	SEND+4, SETWKL+6, DEM+34, HLP+6, HLP+7
IOSL	DEM+20, DEM+39, LSTCPT+15, HLP+12
LRAA	SET~, SET+3*, SEND+5, SEND+10, SEND+11, SETWKL~, SETWKL+3, SETWKL+4, SETWKL+10, SETWKL+17 , READ+2, DEM+4, DEM+10, DEM+19, LSTCPT~, LSTCPT+3, LSTCPT+6, HLP+13
>> LRACTV	CHKCPT+4, CHKCPT+21, CHKCPT+25, CHKCPT+26*, CHKCPT+28
LRAD	SET~, SET+3*, SEND+5, SEND+10, SEND+11, SETWKL~, SETWKL+4, SETWKL+10, SETWKL+17, READ+2 , DEM+4, DEM+10, DEM+19, LSTCPT~, LSTCPT+3, LSTCPT+6, HLP+13
LRADD	SETWKL+7~, SETWKL+9*
LRAN	SET~, SET+3*, SEND+5, SEND+10, SEND+11, SETWKL~, SETWKL+4, SETWKL+10, SETWKL+17, READ+2 , DEM+4, DEM+10, DEM+19, LSTCPT~, LSTCPT+3, LSTCPT+6, HLP+13
>> LRANSX	DIS+7, DIS+8, RD+2, RD+5
>> LRANSY	DIS+17, CHK+6, RD+2, RD+5*
LRCDEF	SETWKL+7~, SETWKL+9*
>> LRCDT	DEM+8
LRCNT	EN+5~, EN+7, EN+18, SETWKL+7~, SETWKL+9*, DIS+4!
LRCPT	SET~
LRCPT(0	SET+11
>> LRD2	CHKCPT+4, CHKCPT+13, CHKCPT+14, CHKCPT+18*, CHKCPT+19
LRDA	LSTCPT+7~, LSTCPT+14*, LSTCPT+16
LRDES	EN+5~, EN+11~, EN+17!*
LRDES(1	EN+19
>> LRDFN	SEND+3, DEM+12, DEM+15, DEM+24, DEM+27
>> LRDSSID	SET+9, SEND+3
LREDT	SET~, SET+6, SEND+6, SEND+7, CHKCPT+16, CHKCPT+26
LRENC	LSTCPT+7~
LRENC(	LSTCPT+14
LREND	SET+3, PG+3, RD+3, RD+4, READ+3~, READ+4, DEM+17, DEM+18~, DEM+19, DEM+20 , DEM+35, DEM+36~, DEM+38, DEM+39, LSTCPT+7~, LSTCPT+14, LSTCPT+15, HLP+3~, HLP+8, HLP+12
LRFL	DEM+23~, DEM+26*, DEM+28
LRI	EN+5~, EN+14, EN+15, EN+19, EN+20, SETWKL+7~, SETWKL+11, SETWKL+12, SETWKL+14, DIS+4!
LRIA64	DIS+6~, DIS+14, DEM+43, DEM+47, CHKCPT+28*
LRIA81	DIS+6~, DIS+13, DEM+43, DEM+46, CHKCPT+6*
>> LRIDT	DEM+12, DEM+15, DEM+27
LRIENS	DEM+3~, DEM+4, DEM+11, DEM+23~, DEM+27, DEM+28
LRII	CHKCPT+3~, CHKCPT+20, CHKCPT+21, CHKCPT+22, CHKCPT+24
>> LRINA2	CHKCPT+14, CHKCPT+15, CHKCPT+16, CHKCPT+20, CHKCPT+24*, CHKCPT+25, CHKCPT+26
LRINACT	CHKCPT+3~
LRINS	SET~, SET+10
>> LRLLOCX	DEM+9
LRLOC	SET~, SET+7, SET+8
LRLST	DIS+4!
LRNOLK	DIS+6~, DIS+15, DEM+43, DEM+48, CHKCPT+8*
LRNOTFD	DIS+6~, DIS+12, DEM+43, DEM+45, CHKCPT+5*
>> LRNR	CHKCPT+4, CHKCPT+8, CHKCPT+28*
>> LROK	SET+3, SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+13 , SET+15
LRP	SETWKL+7~, SETWKL+12, SETWKL+13, SETWKL+14, SETWKL+15, SETWKL+16, LSTCPT+7~, LSTCPT+12*
>> LRPARAM	SETWKL+3
LRPATH	DEM+23~, DEM+24, DEM+28, DEM+29*, DEM+30, DEM+31
>> LRPCEN	SEND+5*, SEND+10
LRPRO	SET~, SET+5
>> LRQ	CHKCPT+11
>> LRQUIET	SEND+4, SEND+9, SETWKL+6
>> LRREL2	CHKCPT+14, CHKCPT+15, CHKCPT+16, CHKCPT+20, CHKCPT+24*, CHKCPT+25, CHKCPT+26
LRRF64	DIS+6~, DEM+43, DEM+49
>> LRSPECID	DEM+9
>> LRSS	DEM+12, DEM+15, DEM+24, DEM+25, DEM+26, DEM+30, DEM+31
LRSTR	LSTCPT+5~, LSTCPT+6*, LSTCPT+12
LRT	SETWKL+7~, SETWKL+16, SETWKL+17, SETWKL+18
LRT("P"	SETWKL+10*
LRTIME	SETWKL+7~
LRTMP	DEM+36~, DEM+37, DEM+40, DEM+41, DEM+42
>> LRURG	SETWKL+8*, SETWKL+9
LRURGW	SETWKL+7~, SETWKL+9*
>> LRVSITN	SEND+9, SEND+10
>> LRWL2	CHKCPT+4, CHKCPT+10, CHKCPT+11*, CHKCPT+12, CHKCPT+13, CHKCPT+14, CHKCPT+18, CHKCPT+21, CHKCPT+22, CHKCPT+24
LRX	EN+5~, EN+15, EN+16, EN+17, EN+19, EN+20, DIS+4!, DEM+13~, DEM+15, DEM+17* , DEM+19, DEM+21, DEM+35, DEM+38, DEM+40, DEM+41, CHKCPT+5, HLP+3~, HLP+5, HLP+8* , HLP+9, HLP+10
LRX2	EN+5~, EN+12*, EN+13, EN+19, EN+20
LRX3	EN+5~, EN+12*, EN+13, EN+14, EN+15, EN+19, EN+20
LRXTST	DIS+4!
LRXY	DIS+4!, CHKCPT+4, CHKCPT+6
>> LRXY1	CHKCPT+4*, CHKCPT+5, CHKCPT+6, CHKCPT+7, CHKCPT+8, CHKCPT+10, CHKCPT+13, CHKCPT+23, CHKCPT+28
>> LRXY2	CHKCPT+4, CHKCPT+22, CHKCPT+23
LRY	EN+5~, EN+10, EN+12, HLP+3~, HLP+9, HLP+10, HLP+11
>> PNM	DEM+7
S	LSTCPT+7~, LSTCPT+16*
U	EN+4, EN+8, EN+9, EN+16, EN+19, EN+20, SET+8, SETWKL+3, SETWKL+12, SETWKL+14 , CHK+8, DEM+15, DEM+21, DEM+41, DEM+42, CHKCPT+4, CHKCPT+6, CHKCPT+14, CHKCPT+22, CHKCPT+24 , HLP+10, HLP+11
X	DIS+4!, DIS+8*, RD+1~, RD+5, LSTCPT+7~
X9	DIS+3~, DIS+9
Y	RD+1~, RD+5, LSTCPT+7~, LSTCPT+9

Customize PDF page

Package: Lab Service

Routine: LRCAPES1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: