Routine: ECXUPRO

Package	Total	Call Graph
DSS Extracts	5	AUDIT^ECXKILL FOOTER^ECXPROCT $$PDIV^ECXPUTL EN^ECXUPRO1 ($$EXPORT,EXPDISP)^ECXUTL1
Kernel	5	HOME^%ZIS ^%ZISC $$S^%ZTLOAD ($$REPEAT,$$RJ)^XLFSTR EN^XUTMDEVQ
VA FileMan	3	(,DD)^%DT NOW^%DTC ^DIR

Package	Total	Caller Graph
DSS Extracts	1	ECX PRO COST

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point
BEGIN	; display report description
SELECT	; user inputs for threshold cost and date range
PROCESS	; entry point for queued report
PRINT	; process temp file and print report
CLOSE	;
HEADER	;header and page control

External References

Name	Field # of Occurrence
^%DT	SELECT+12, SELECT+16
DD^%DT	EN+7, SELECT+15, SELECT+25
NOW^%DTC	EN+7
HOME^%ZIS	EN+25
^%ZISC	EN+24
$$S^%ZTLOAD	PRINT+3
^DIR	BEGIN+17, SELECT+5, SELECT+8, CLOSE+3, HEADER+4
AUDIT^ECXKILL	EN+26
FOOTER^ECXPROCT	PRINT+21
$$PDIV^ECXPUTL	EN+5
EN^ECXUPRO1	PROCESS+2
$$EXPORT^ECXUTL1	EN+10
EXPDISP^ECXUTL1	EN+17
$$REPEAT^XLFSTR	PRINT+22, PRINT+25
$$RJ^XLFSTR	PRINT+16
EN^XUTMDEVQ	EN+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report requires 132-column format." Line Location: EN+21
Function Call: WRITE	Prompt: !!,"No device selected...exiting.",! Line Location: EN+23
Function Call: WRITE	Prompt: @IOF Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"This report prints a listing of unusual costs that would be" Line Location: BEGIN+2
Function Call: WRITE	Prompt: !,"generated by the Prosthetic extract (PRO) as determined by a" Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"user-defined threshold value. It should be run prior to the" Line Location: BEGIN+4
Function Call: WRITE	Prompt: !,"generation of the actual extract(s) to identify and fix, as" Line Location: BEGIN+5
Function Call: WRITE	Prompt: !,"necessary, any costs determined to be erroneous." Line Location: BEGIN+6
Function Call: WRITE	Prompt: !!,"Unusual costs are those where the Cost of Transaction is" Line Location: BEGIN+7
Function Call: WRITE	Prompt: !,"greater than the threshold value." Line Location: BEGIN+8
Function Call: WRITE	Prompt: !!,"Note: The threshold can be set after a report is selected." Line Location: BEGIN+9
Function Call: WRITE	Prompt: !!,"Run times for this report will vary depending upon the size of" Line Location: BEGIN+10
Function Call: WRITE	Prompt: !,"the extract and could take as long as 30 minutes or more to" Line Location: BEGIN+11
Function Call: WRITE	Prompt: !,"complete. This report has no effect on the actual extracts and" Line Location: BEGIN+12
Function Call: WRITE	Prompt: !,"can be run as needed." Line Location: BEGIN+13
Function Call: WRITE	Prompt: !!,"The report is sorted by Feeder Key, then by descending Cost of" Line Location: BEGIN+14
Function Call: WRITE	Prompt: !,"Transaction and SSN." Line Location: BEGIN+15
Function Call: WRITE	Prompt: !!,"**NOTE: The feeder key on this report will match what appears in DSS.",!,"However, the feeder key on the report will be different than the feeder",!,"key on the PRO extract." Line Location: BEGIN+16
Function Call: WRITE	Prompt: !!,"The default threshold cost for the Prosthetic extract is $"_ECTHLD_".00." Line Location: SELECT+4
Function Call: WRITE	Prompt: !!,"Enter the date range for which you would like to scan the Prosthetic",!,"Extract records.",! Line Location: SELECT+10
Function Call: WRITE	Prompt: !!,?8,"No unusual costs to report for this extract" Line Location: PRINT+18
Function Call: WRITE	Prompt: ! Line Location: CLOSE+2
Function Call: WRITE	Prompt: ! Line Location: CLOSE+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"Prosthetic Pre-Extract Unusual Cost Report",?124,"Page: "_PG Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN Line Location: HEADER+8
Function Call: WRITE	Prompt: !," End Date: ",ECEND,?97," Threshold Value: ",ECTHLD Line Location: HEADER+9
Function Call: WRITE	Prompt: !!,?19,"Date of",?62,"PSAS HCPCS",?98,"Tran",?109,"Unit of",?119,"Cost of" Line Location: HEADER+13
Function Call: WRITE	Prompt: !,"Name",?11,"SSN",?19,"Service",?30,"FORM",?36,"Feeder Key",?58,"CODE Description",?98,"Type" Line Location: HEADER+14
Function Call: WRITE	Prompt: ?104,"QTY",?109,"Issue",?119,"Transaction" Line Location: HEADER+15
Function Call: WRITE	Prompt: !,LN,! Line Location: HEADER+16
Routine Call	DIR Line Location: BEGIN+17 SELECT+5 SELECT+8 CLOSE+3 HEADER+4
Routine Call	%ZIS Line Location: EN+25

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EN+11!, EN+13, EN+14, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11*

Label References

Name	Line Occurrences
BEGIN	EN+8
HEADER	PRINT+5, PRINT+13, PRINT+20
PRINT	PROCESS+3
PROCESS	EN+16
SELECT	EN+9

Naked Globals

Name	Field # of Occurrence
^(	PRINT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+7
%DT	EN+7!, SELECT+12!, SELECT+16!
%DT("A"	SELECT+12, SELECT+16
%DT(0	SELECT+12, SELECT+16
CNT	EN+1~, EN+15, PRINT+11
COST	PRINT+1~, PRINT+8*, PRINT+9, PRINT+10
COUNT	PRINT+1~, PRINT+6, PRINT+12, PRINT+18, PRINT+19
DATE	EN+1~, EN+7*, SELECT+12, SELECT+16
DIR	BEGIN+17!, SELECT+5!, SELECT+8!, CLOSE+3!, HEADER+4!
DIR("A"	SELECT+5, SELECT+8
DIR("B"	SELECT+5*
DIR(0	BEGIN+17, SELECT+5, SELECT+8, CLOSE+3, HEADER+4*
DONE	SELECT+1~, SELECT+11, SELECT+26
ECED	EN+2~, SELECT+11, SELECT+24
ECEND	EN+2~, SELECT+25*, HEADER+9
ECINST	EN+2~, EN+5*
ECRUN	EN+1~, EN+7*, HEADER+8
ECSD	EN+2~, SELECT+11, SELECT+14, SELECT+18, SELECT+21
ECSD1	EN+2~, SELECT+14*
ECSTART	EN+2~, SELECT+15*, HEADER+8
ECTHLD	EN+1~, SELECT+3, SELECT+4, SELECT+8, HEADER+9
ECXDESC	EN+1~, EN+19*, EN+22
ECXERR	EN+2~, PROCESS+2*
ECXPORT	EN+1~, EN+10*, PRINT+5, PRINT+11, PRINT+17
ECXPROUN	EN+3~
ECXPROUN(	PRINT+27, PRINT+28
ECXSAVE	EN+1~, EN+22
ECXSAVE("EC*"	EN+20*
ECXTL	EN+1~
FKEY	PRINT+1~, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10
GTOT	PRINT+1~, PRINT+4*
I	PRINT+1~
IO	EN+24, PRINT+2
IO(0	EN+24
IOF	BEGIN+1, BEGIN+18, HEADER+6
IOSL	PRINT+13, PRINT+20
IOST	BEGIN+18, CLOSE+1, HEADER+2, HEADER+6
JJ	CLOSE+2, HEADER+1~, HEADER+3
LN	PRINT+1~, PRINT+4*, HEADER+16
OUT	SELECT+1~
PG	PRINT+1~, PRINT+4, HEADER+4, HEADER+6, HEADER+7
>> POP	EN+23
QFLG	EN+2~, EN+4, EN+8, EN+9, BEGIN+17, SELECT+5, SELECT+8, SELECT+11, SELECT+13, SELECT+17 , PROCESS+3, PRINT+1~, PRINT+4, PRINT+5, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+13, PRINT+17 , PRINT+20, CLOSE+1, HEADER+4*, HEADER+5
REC	PRINT+1~, PRINT+10*, PRINT+11, PRINT+15, PRINT+16
SDAY	PRINT+1~, PRINT+9*, PRINT+10
SPACE	PRINT+1~, PRINT+22, PRINT+23, PRINT+25, PRINT+28
SS	CLOSE+2, HEADER+1~, HEADER+3
SSN	PRINT+1~, PRINT+10*
U	PRINT+15, PRINT+16
UNIT	PRINT+1~, PRINT+26, PRINT+27, PRINT+28
X	EN+1~, EN+7, SELECT+5, SELECT+8
Y	EN+1~, EN+7*, BEGIN+17, SELECT+6, SELECT+8, SELECT+13, SELECT+14, SELECT+15, SELECT+17, SELECT+18 , SELECT+21, SELECT+24, SELECT+25, HEADER+4
>> ZTQUEUED	PRINT+3
ZTREQ	PROCESS+1*, PRINT+3!
>> ZTSTOP	PRINT+3*

Customize PDF page

Package: DSS Extracts

Routine: ECXUPRO

Information

Source Information

Call Graph

Call Graph Total: 13

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: