Routine: ECNTPCE

Information

ECNTPCE ;ALB/JAM-Event Capture Records failing transmission to PCE;Sep 24, 2020@14:55:55

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	3	^%DT YX^%DTC ^DIR
Event Capture	2	^ECKILL $$GETPRV^ECPRVMUT
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Registration	1	DEM^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: 2

Package	Total	Caller Graph
Event Capture	2	EC NTPCE REPORT ECRRPT1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point
START	; entry when queued
GET	; start processing or records
END
PAGE	; end of page
HDR	; print header
PRT
PR2
PROV	;Set provider 1-3 in variables
EXPORT	;Section added in patch 119

External References

Name	Field # of Occurrence
^%DT	EN+1, EN+2
YX^%DTC	START+3
^%ZIS	EN+7
HOME^%ZIS	EN+11
^%ZISC	END+5
^%ZTLOAD	EN+11
^DIR	PAGE+1
^ECKILL	START+6, END+1, END+5
$$GETPRV^ECPRVMUT	GET+21
$$CPT^ICPTCOD	PR2+7
DEM^VADPT	PRT+10
$$FMTE^XLFDT	EN+4, PRT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"End date must be after start date",! Line Location: EN+3
Function Call: WRITE	Prompt: !,?5,"Please be patient, this may take a few moments..." Line Location: EN+12
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: !!,"Press <RET> to continue" Line Location: END+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: ECRDT,?70,"Page: ",ECPG,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?17,"ECS RECORDS FAILING TRANSMISSION TO PCE REPORT",!,?24 Line Location: HDR+3
Function Call: WRITE	Prompt: "FROM "_$P(ECDATE,U)_" TO "_$P(ECDATE,U,2),!! Line Location: HDR+4
Function Call: WRITE	Prompt: "DATE/TIME",?16,"PATIENT",?39,"SSN",?44,"PROVIDER(S)",?61,"REASONS" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"LOCATION",?16,"PROCEDURE",!,"DSS UNIT",?16,"CATEGORY",! Line Location: HDR+6
Function Call: WRITE	Prompt: "-" Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Function Call: WRITE	Prompt: ECDT,?16,$E(ECPAT,1,20),?39,ECSSN,?44,$E(ECUN1,1,16),?61,$E($P(ECRS,";"),1,19),! Line Location: PR2+11
Function Call: WRITE	Prompt: $E(ECLN,1,15),?16,$E(ECPS,1,27),?44,$E(ECUN2,1,16) Line Location: PR2+12
Function Call: WRITE	Prompt: ?61,$E($P(ECRS,";",2),1,19),! Line Location: PR2+13
Function Call: WRITE	Prompt: $E(ECDN,1,15),?16,$E(ECAT,1,27),?44,$E(ECUN3,1,16) Line Location: PR2+14
Function Call: WRITE	Prompt: ?61,$E($P(ECRS,";",3),1,198) Line Location: PR2+15
Function Call: WRITE	Prompt: ?44,$E($P(ECPRV(ECUN),"^",2),1,16) Line Location: PR2+19
Function Call: WRITE	Prompt: !! Line Location: PR2+21
Routine Call	DIR Line Location: PAGE+1
Routine Call	%ZIS Line Location: EN+7
Routine Call	%ZIS Line Location: EN+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	PRT+5
^EC(725 - [#725]	PR2+6
^EC(726 - [#726]	PR2+3
^ECD - [#724]	PRT+7
^ECH - [#721]	GET+14, PR2+9
^ECH("AC"	GET+12, GET+13
^TMP("ECNTPCE"	GET+3!, GET+20, GET+22, GET+25, PAGE+2, PRT+2, PRT+4, PRT+6, PRT+9, PRT+12 , PR2, PROV+1
^TMP($J	START+5, EXPORT+3, EXPORT+4, EXPORT+5

Label References

Name	Line Occurrences
EN	EN+3
END	EN+1, EN+2, EN+7, EN+8, START+8
EXPORT	PR2+10
GET	START+6, START+7
HDR	GET+24, PAGE+2
PAGE	PR2+18, PR2+22
PR2	PRT+12
PROV	PR2+2
PRT	GET+23, GET+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+1!*
%DT("A"	EN+1, EN+2
%H	START+1~, START+3*
%ZIS	EN+6!*
%ZIS("A"	EN+6*
CNT	START+1~, START+5, EXPORT+2, EXPORT+3, EXPORT+4, EXPORT+5
DATE	GET+1~, GET+11, GET+12, GET+13, GET+20, GET+22
DFN	PRT+1~, PRT+10*
DIR	START+1~, PAGE+1!
DIR(0	PAGE+1*
DTIME	END+3
ECAT	PRT+1~, PR2+3*, PR2+14, EXPORT+3
ECD	GET+1~, GET+15, GET+17, GET+18, GET+20, GET+22, PAGE+2, PRT+5, PRT+6*, PRT+7 , PRT+9, PRT+12, PR2, PROV+1
>> ECDATE	EN+4*, HDR+4
ECDE	PRT~, PR2+4*, PR2+6, PR2+7
ECDFN	GET+16, GET+17, GET+20, GET+22, PAGE+2, PRT~, PRT+8, PRT+9*, PRT+10, PRT+12 , PR2, PROV+1
ECDN	PRT~, PRT+7*, PR2+14, EXPORT+3
>> ECDSSU(	GET+8, GET+9
ECDT	PRT~, PRT+3*, PR2+11, EXPORT+3
ECDTE	PAGE+2, PRT~, PRT+2*, PRT+3, PRT+4, PRT+6, PRT+9, PRT+12, PR2, PR2+7 , PROV+1
ECEC	GET+1~, GET+14, GET+15, GET+16, GET+19, PRT~, PR2, PR2+1, PR2+3, PR2+4 , PR2+5
ECECPT	PRT+1~, PR2+6, PR2+7, EXPORT+3
ECED	EN+2, EN+3, EN+4, EN+5, GET+12, END!
ECEPN	PRT+1~, PR2+6, PR2+7, EXPORT+3
ECFN	GET+1~, GET+13, GET+14, GET+19, GET+21, PR2+1, PR2+9
>> ECGUI	END+1
ECL	GET+1~, GET+15, GET+17, GET+18, GET+20, GET+22, PAGE+2, PRT+3, PRT+4*, PRT+5 , PRT+6, PRT+9, PRT+12, PR2, PROV+1
ECLN	PRT~, PRT+5*, PR2+12, EXPORT+3
>> ECLOC(	GET+6, GET+7
ECNT	GET+1~, GET+11, GET+20, GET+22, PAGE+2, PRT+11, PRT+12, PR2, PROV+1
ECOUT	START+1~, START+2, END+3, PAGE+1, PRT+2, PRT+4, PRT+6, PRT+9, PRT+12, PR2+16 , PR2+18, PR2+22
ECPAT	PRT~, PRT+11*, PR2+11, EXPORT+3
ECPG	START+1~, START+2, HDR+2, HDR+9
ECPRV	GET+21!, GET+22, PR2+10!, PROV+1
ECPRV(	PR2+16, PR2+19!, PROV+3, PROV+4!, EXPORT+4
ECPS	PRT~, PR2+1, PR2+6, PR2+7, PR2+8, PR2+12
>> ECPTYP	START+5, START+6, GET+23, PR2+10
ECPX	GET+1~, GET+15*, GET+17, GET+19
ECRDT	START+1~, START+3*, HDR+2
ECRS	PRT~, PR2+9*, PR2+11, PR2+13, PR2+15, PR2+16, PR2+20, EXPORT+5
ECSD	EN+2, EN+3, EN+4, EN+5, GET+11, END!
ECSSN	PRT+1~, PRT+11*, PR2+11, EXPORT+3
ECSTR	GET+1~, GET+19*, GET+20
ECUN	PRT~, PR2+16, PR2+19, PROV+2, PROV+3*, PROV+4
ECUN1	PRT~, PR2+11, PROV+2*, EXPORT+3
ECUN2	PRT~, PR2+12, PROV+2*, EXPORT+3
>> ECUN3	PR2+14, PROV+2*, EXPORT+3
ECX	PRT+1~, PR2+16*, PR2+20
>> I	PROV+3*, PROV+4
IO	START+4
IO("Q"	EN+6!, EN+8!
IOF	HDR+1
ION	EN+11
IOP	EN+6!
IOSL	PR2+18, PR2+22
IOST	END+3, PAGE+1
J	EXPORT+1~, EXPORT+4, EXPORT+5
JJ	GET+2~, GET+6, GET+7, GET+8, GET+9
LINE	START+1~, HDR+7*
NDSSUNT	GET+2~
NDSSUNT(	GET+9*, GET+18
NLOC	GET+2~
NLOC(	GET+7*, GET+18
POP	EN+6!, EN+7
U	EN+4, GET+7, GET+9, GET+15, GET+16, GET+19, HDR+4, PRT+5, PRT+7, PRT+11 , PR2+1, PR2+3, PR2+4, PR2+5, PR2+6, PR2+7, PR2+8, EXPORT+3, EXPORT+4, EXPORT+5
VA	PRT+1~
VADM	PRT+1~
VADM(1	PRT+11
VADM(2	PRT+11
X	START+1~, END+3*
Y	EN+1, EN+2, START+1~, START+3, PAGE+1
>> ZTDESC	EN+10*
>> ZTIO	EN+11*
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
>> ZTRTN	EN+10*
>> ZTSAVE("ECDATE"	EN+9*
>> ZTSAVE("ECDFN"	EN+9*
>> ZTSAVE("ECED"	EN+9*
>> ZTSAVE("ECSD"	EN+9*

Customize PDF page

Package: Event Capture