Routine: ECRPRSN

Package	Total	Call Graph
Event Capture	4	^ECKILL $$GETPPRV^ECPRVMUT ($$ASKDSS,$$ASKLOC,$$ENDDT,$$STDT)^ECRUTL $$MOD^ECUTL
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	4	DD^%DT NOW^%DTC ^DIC ^DIR
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD

Package	Total	Caller Graph
Event Capture	1	ECRPRSN

Name	Comments	DBIA/ICR reference
EN	;entry point from menu option
START	;queued entry point or continuation
ASKREAS()
SPECR	;specific reasons
RANGE	;get any date range
DEVICE	;select output device
PROCESS	;get data to print
PRINT	;output report
LOOP	;print the section of the ^tmp global for a specific location/unit
LOOP1
MODPRT	;ALB/JAM - print CPT procedure modifiers
HEAD	;header
EXIT	;common exit point

Name	Field # of Occurrence
DD^%DT	PRINT+4, PRINT+5, LOOP1+4
NOW^%DTC	PRINT+5
^%ZIS	DEVICE+1
HOME^%ZIS	EN+11, DEVICE+6
^%ZISC	START+3, EXIT+1
^%ZTLOAD	DEVICE+6
^DIC	SPECR+11
^DIR	ASKREAS+21, ASKREAS+27, ASKREAS+30, SPECR+5, DEVICE+2, DEVICE+7, DEVICE+8, PRINT+10, PRINT+25, HEAD+2
^ECKILL	EXIT+1
$$GETPPRV^ECPRVMUT	PROCESS+35
$$ASKDSS^ECRUTL	EN+3
$$ASKLOC^ECRUTL	EN+2
$$ENDDT^ECRUTL	RANGE+10
$$STDT^ECRUTL	RANGE+6
$$MOD^ECUTL	PROCESS+37
$$CPT^ICPTCOD	PROCESS+25
$$MOD^ICPTMOD	MODPRT+4
$$FMTE^XLFDT	HEAD+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+8
Function Call: WRITE	Prompt: !!,"Just a moment please..." Line Location: ASKREAS+4
Function Call: WRITE	Prompt: !,?5,"...finding Procedure Reasons related to the" Line Location: ASKREAS+5
Function Call: WRITE	Prompt: !,?5," Location(s) and DSS Unit(s) you selected...",! Line Location: ASKREAS+6
Function Call: WRITE	Prompt: !,"Selected Procedure Reasons --",! Line Location: ASKREAS+25
Function Call: WRITE	Prompt: ! Line Location: ASKREAS+31
Function Call: WRITE	Prompt: ! Line Location: SPECR+5
Function Call: WRITE	Prompt: !!!,?5,"Enter a Begin Date and End Date for the Event Capture " Line Location: RANGE+2
Function Call: WRITE	Prompt: !,?5,"Procedure Reason Report.",! Line Location: RANGE+3
Function Call: WRITE	Prompt: ! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !!,"No device selected. Exiting...",!! Line Location: DEVICE+2
Function Call: WRITE	Prompt: ! Line Location: DEVICE+2
Function Call: WRITE	Prompt: !,"Report canceled..." Line Location: DEVICE+7
Function Call: WRITE	Prompt: ! Line Location: DEVICE+7
Function Call: WRITE	Prompt: ! Line Location: DEVICE+8
Function Call: WRITE	Prompt: ! Line Location: PRINT+11
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+25
Function Call: WRITE	Prompt: ! Line Location: PRINT+26
Function Call: WRITE	Prompt: !!,"Reason: ",ECREASN,! Line Location: LOOP+3
Function Call: WRITE	Prompt: !,?6,PTNAME,?30,SSN,?37,DATE,?57,PROVN Line Location: LOOP1+5
Function Call: WRITE	Prompt: ! Line Location: LOOP1+6
Function Call: WRITE	Prompt: !?4,"Modifier: " Line Location: MODPRT+2
Function Call: WRITE	Prompt: ! Condition for execution: I>1 Line Location: MODPRT+6
Function Call: WRITE	Prompt: ?18,"- ",MOD," ",MODESC Line Location: MODPRT+6
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,?12,"Event Capture Procedure Reason Report" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,?12,"for the Date Range ",$$FMTE^XLFDT(ECSD2)," to ",$$FMTE^XLFDT(ECED2),! Line Location: HEAD+6
Function Call: WRITE	Prompt: !,?3,"DSS Unit: ",UNIT,?55,"Page: ",PAGE Line Location: HEAD+7
Function Call: WRITE	Prompt: !,?3,"Location: ",LOC,?52,"Printed: "_PRNTDT,! Line Location: HEAD+8
Function Call: WRITE	Prompt: !?6,"Patient",?30,"SSN",?37,"Date/Time",?57,"Provider" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,DASH Line Location: HEAD+10
Routine Call	DIC Line Location: SPECR+11
Routine Call	DIR Line Location: ASKREAS+21 ASKREAS+27 ASKREAS+30 SPECR+5 DEVICE+2 DEVICE+7 DEVICE+8 PRINT+10 PRINT+25 HEAD+2
Routine Call	%ZIS Line Location: DEVICE+1
Routine Call	%ZIS Line Location: EN+11 DEVICE+6

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROCESS+31
^EC(725 - [#725]	PROCESS+23, PROCESS+28
^ECH - [#721]	PROCESS+13, PROCESS+36
^ECH("AC"	PROCESS+12, PROCESS+13
^ECJ - [#720.3]	PROCESS+21
^ECJ("AP"	PROCESS+20
^ECJ("B"	ASKREAS+11
^ECL("AD"	ASKREAS+12, ASKREAS+13, ASKREAS+14
^ECR - [#720.4]	ASKREAS+15, PROCESS+18
^TMP("ECREAS"	PROCESS+4!, PROCESS+40, PROCESS+41, PRINT+7, PRINT+23, LOOP+2, LOOP+4, LOOP+5, LOOP+6, LOOP1 , LOOP1+1, EXIT+2!

Name	Line Occurrences
$$ASKREAS	EN+4
DEVICE	EN+8
EXIT	EN+2, EN+3, EN+4, EN+7, EN+8, EN+9, EN+10, EN+12, START+4
HEAD	PRINT+8, PRINT+23, LOOP+3, LOOP1+5, MODPRT+6
LOOP	PRINT+23
LOOP1	LOOP+7
MODPRT	LOOP+7
PRINT	START+2
PROCESS	START+1
RANGE	EN+6
SPECR	ASKREAS+21
START	EN+11

Name	Field # of Occurrence
^(	LOOP1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT+5
>> %ZIS	DEVICE+1*
A	ASKREAS+2~, ASKREAS+12!
A(	ASKREAS+9*, ASKREAS+11
ALOC	PRINT+2~
ALOC(	PRINT+16*, PRINT+20
ASK	ASKREAS+19, ASKREAS+22, ASKREAS+32, EXIT+3!
AUNIT	PRINT+2~
AUNIT(	PRINT+18*, PRINT+21
DASH	PRINT+2~, PRINT+3*, HEAD+10
DATE	PRINT+2~, LOOP1+4*, LOOP1+5
DIC	SPECR+9*, EXIT+3!
DIC("A"	SPECR+9*
DIC("S"	SPECR+10*
DIC(0	SPECR+9*
DIR	ASKREAS+2~, ASKREAS+21!, ASKREAS+27!, ASKREAS+30!, SPECR+5!, DEVICE+2!, DEVICE+7!, DEVICE+8!, PRINT+10!, HEAD+2! , EXIT+2!
DIR("?"	SPECR+4*
DIR("A"	ASKREAS+20, SPECR+3
DIR("B"	ASKREAS+21, SPECR+3
DIR(0	ASKREAS+20, ASKREAS+27, ASKREAS+30, SPECR+3, DEVICE+2, DEVICE+7, DEVICE+8, PRINT+10, PRINT+25, HEAD+2
DIRUT	ASKREAS+2~, ASKREAS+21, ASKREAS+22, SPECR+2!, SPECR+5, SPECR+7!, SPECR+8, SPECR+13*, SPECR+14, EXIT+2!
DT	RANGE+12
DTOUT	ASKREAS+2~, SPECR+1~, SPECR+7!, SPECR+11, SPECR+13, EXIT+2!
DUOUT	ASKREAS+2~, SPECR+1~, SPECR+7!, SPECR+11, SPECR+13, EXIT+2!
E	ASKREAS+2~, ASKREAS+25, ASKREAS+26, ASKREAS+27, ASKREAS+30
EC	PROCESS+1~, PROCESS+13*, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+31
EC725	PROCESS+3~, PROCESS+28*
ECCAT	PROCESS+2~, PROCESS+20*
ECCPT	PROCESS+2~, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+30
ECD	PROCESS+1~, PROCESS+12*, PROCESS+13, PROCESS+41
ECDA	PROCESS+1~, PROCESS+13*, PROCESS+35, PROCESS+36, PROCESS+37
ECDESC	PROCESS+2~, PROCESS+30, PROCESS+40, PRINT+2~, LOOP+5, LOOP+7
ECDFN	PROCESS+2~, PROCESS+14*, PROCESS+41
ECDSSU	EXIT+3!
ECDSSU(	ASKREAS+9, PROCESS+10, PROCESS+11, PRINT+17, PRINT+18
ECDT	PRINT+1~, LOOP1+1*, LOOP1+2, LOOP1+4
ECED	EN+7, RANGE+4, RANGE+9, RANGE+11, RANGE+12, RANGE+15*, PROCESS+12, PROCESS+15, PROCESS+25, PRINT+4 , MODPRT+4, EXIT+3!
ECED2	PRINT+1~, PRINT+4*, HEAD+6
ECENDDT	RANGE+1~, RANGE+11
ECFILE	PROCESS+2~, PROCESS+22*, PROCESS+23, PROCESS+26, PROCESS+27, PROCESS+28
>> ECGUI	START+2, EXIT+1
ECLINK	PROCESS+6, EXIT+3!
ECLINK(	ASKREAS+14*, ASKREAS+16!, SPECR+19!, PROCESS+18
ECLOC	EXIT+3!
ECLOC(	ASKREAS+7, ASKREAS+8, PROCESS+8, PROCESS+9, PRINT+15, PRINT+16
ECLOCA	PROCESS+1~, PROCESS+16, PROCESS+17, PROCESS+20, PROCESS+40, PROCESS+41, PRINT+1~, PRINT+20, PRINT+23, LOOP+2 , LOOP+4, LOOP+5, LOOP+6, LOOP1, LOOP1+1
ECLOOP	EN+7, RANGE+5, RANGE+6, RANGE+8, RANGE+9, RANGE+10, EXIT+3!
ECMD	PROCESS+3~, PROCESS+36, PROCESS+38, PROCESS+39*, PROCESS+41
ECMOD	PROCESS+3~, PROCESS+37!, LOOP+5, LOOP+6, LOOP+7, LOOP1, LOOP1+1, MODPRT+3
ECMOD(	PROCESS+38
ECMODF	PROCESS+3~, PROCESS+37*
ECP	PROCESS+1~, PROCESS+19*, PROCESS+20, PROCESS+22, PROCESS+23, PROCESS+28
ECPA	PROCESS+1~, PROCESS+31*, PROCESS+32
ECPATN	PROCESS+1~, PROCESS+31, PROCESS+32, PROCESS+34, PROCESS+41, PRINT+1~, LOOP1, LOOP1+1
>> ECPI	PROCESS+21, PROCESS+25, PROCESS+27
ECPN	PROCESS+1~, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30, PROCESS+40, PROCESS+41, PRINT+1~, LOOP+3 , LOOP+4*, LOOP+5, LOOP+6, LOOP1, LOOP1+1
ECPRV	PROCESS+2~, PROCESS+35*
ECPRVN	PROCESS+2~, PROCESS+35, PROCESS+41, PRINT+1~, LOOP1+2, LOOP1+3*, LOOP1+4
ECPSY	PROCESS+2~, PROCESS+20*, PROCESS+21
ECPSYN	PROCESS+2~, PROCESS+21*, PROCESS+30
ECR	PROCESS+1~, PROCESS+18*
ECREAS	ASKREAS+2~, ASKREAS+22!, ASKREAS+24
ECREAS(	ASKREAS+15*, ASKREAS+16!, ASKREAS+26, ASKREAS+29, SPECR+17!, SPECR+19
ECREASN	PRINT+1~, LOOP+1, LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+6, LOOP1, LOOP1+1
ECRL	PROCESS+1~, PROCESS+18*
ECRN	PROCESS+1~, PROCESS+18*, PROCESS+40, PROCESS+41
ECSD	EN+7, RANGE+4, RANGE+5, RANGE+7, RANGE+8, PROCESS+12, PROCESS+15, PRINT+4, EXIT+2!
ECSD2	PRINT+1~, PRINT+4*, HEAD+6
ECSS	PROCESS+1~, PROCESS+31, PROCESS+32, PROCESS+33
ECSSN	PROCESS+1~, PROCESS+33*, PROCESS+34
ECSTDT	RANGE+1~, RANGE+7, RANGE+10
ECUNIT	PROCESS+2~, PROCESS+16, PROCESS+17, PROCESS+20, PROCESS+40, PROCESS+41, PRINT+1~, PRINT+21, PRINT+23, LOOP+2 , LOOP+4, LOOP+5, LOOP+6, LOOP1, LOOP1+1
I	ASKREAS+11, MODPRT+1~, MODPRT+3, MODPRT+6
IEN	MODPRT+1~, MODPRT+3*, MODPRT+4
IO	START+2, START+3
IO("Q"	EN+10, DEVICE+3, EXIT+2!
IO(0	START+3
IOF	ASKREAS+25, ASKREAS+28, PRINT+12, PRINT+25, PRINT+27, HEAD+3
IOP	DEVICE+1!
IOSL	ASKREAS+27, LOOP+3, LOOP1+5, MODPRT+6
IOST	PRINT+10, PRINT+12, PRINT+25, PRINT+27, HEAD+1, HEAD+2, HEAD+3
JJ	EN+1~, EN+2, EN+3, EN+4, ASKREAS+2~, ASKREAS+7, ASKREAS+8, ASKREAS+31, PROCESS+3~, PROCESS+8 , PROCESS+9, PROCESS+10, PROCESS+11, PRINT+2~, PRINT+11, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+26* , HEAD+1*, EXIT+2!
KK	ASKREAS+2~, ASKREAS+9*
LINK	ASKREAS+2~, ASKREAS+14, ASKREAS+16, SPECR+19
LOC	PRINT+2~, PRINT+8, PRINT+20, HEAD+8
MOD	MODPRT+1~, MODPRT+4*, MODPRT+6
MODESC	MODPRT+1~, MODPRT+5*, MODPRT+6
MODI	MODPRT+1~, MODPRT+4*, MODPRT+5
NLOC	ASKREAS+2~, ASKREAS+8*, ASKREAS+9, PROCESS+3~
NLOC(	PROCESS+9*, PROCESS+17
NUNIT	ASKREAS+2~, ASKREAS+9*, PROCESS+3~
NUNIT(	PROCESS+11*, PROCESS+17
P	ASKREAS+2~, ASKREAS+10, ASKREAS+11, ASKREAS+12*, ASKREAS+13, ASKREAS+14
PAGE	PRINT+2~, PRINT+3, HEAD+2, HEAD+4, HEAD+7
>> POP	EN+8, DEVICE+2
PRNTDT	PRINT+2~, PRINT+5*, HEAD+8
PROVN	PRINT+2~, LOOP1+4*, LOOP1+5
PTNAME	PRINT+2~, LOOP1+2*, LOOP1+5
QFLAG	PRINT+2~, PRINT+3, PRINT+10, PRINT+20, PRINT+21, PRINT+25, LOOP+2, LOOP+3, LOOP+4, LOOP+6 , LOOP+7, LOOP1, LOOP1+1, LOOP1+5, MODPRT+3, HEAD+2
R	ASKREAS+2~, ASKREAS+12, ASKREAS+13, ASKREAS+14, ASKREAS+15, ASKREAS+16, ASKREAS+26, ASKREAS+29, SPECR+1~, SPECR+16 , SPECR+17, SPECR+19*
R(	SPECR+12*, SPECR+17
S	ASKREAS+2~, ASKREAS+17!
S(	ASKREAS+11*, ASKREAS+12
SEQ	PROCESS+37, PROCESS+38, PRINT+1~
SS	ASKREAS+31, PRINT+2~, PRINT+11, PRINT+26, HEAD+1
SSN	PRINT+1~, LOOP1+3*, LOOP1+5
U	PROCESS+16, PROCESS+19, PROCESS+20
UNIT	PRINT+2~, PRINT+8, PRINT+21, HEAD+7
X	PRINT+1~, EXIT+2!
Y	ASKREAS+2~, ASKREAS+21, ASKREAS+22, ASKREAS+27, SPECR+2!, SPECR+5, SPECR+7!, SPECR+8, SPECR+11, SPECR+12 , SPECR+16, SPECR+20, PRINT+1~, PRINT+4, PRINT+5, LOOP1+4*, HEAD+2, EXIT+2!
>> ZTDESC	DEVICE+4*
>> ZTQUEUED	START+4
>> ZTREQ	START+4*
>> ZTRTN	DEVICE+4*
>> ZTSAVE("ECDSSU("	DEVICE+5*
>> ZTSAVE("ECED"	DEVICE+5*
>> ZTSAVE("ECLINK("	DEVICE+5*
>> ZTSAVE("ECLOC("	DEVICE+5*
>> ZTSAVE("ECSD"	DEVICE+5*
ZTSK	EN+9, EN+10, DEVICE+1!, DEVICE+7, DEVICE+8, EXIT+2!

Customize PDF page

Package: Event Capture

Routine: ECRPRSN

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: