Routine: ECXAPHAP

Package	Total	Call Graph
Kernel	5	HOME^%ZIS ^%ZISC $$S^%ZTLOAD $$RJ^XLFSTR EN^XUTMDEVQ
VA FileMan	4	(,DD)^%DT NOW^%DTC GETS^DIQ ^DIR
DSS Extracts	2	EN^ECXAPHP2 AUDIT^ECXKILL

Package	Total	Caller Graph
DSS Extracts	1	ECXAPHP2

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point
PREV	;Line label added in patch 144. Come here when running previous fiscal year logic for this report
BEGIN	; display report description
SELECT	; user inputs for report option, threshold volume and date range
PROCESS	; entry point for queued report
PRINT	; process temp file and print report
CLOSE	;
HEADER	;header and page control
SIG(ORDNO,PATNO)	;Get ordering instructions for unit dose order. API added in patch 136

External References

Name	Field # of Occurrence
^%DT	SELECT+19, SELECT+23
DD^%DT	EN+5, SELECT+22, SELECT+32
NOW^%DTC	EN+5
HOME^%ZIS	PREV+7
^%ZISC	PREV+6
$$S^%ZTLOAD	PRINT+3
GETS^DIQ	SIG+5
^DIR	BEGIN+18, SELECT+5, SELECT+10, SELECT+13, SELECT+15, CLOSE+3, HEADER+4
EN^ECXAPHP2	PROCESS+2
AUDIT^ECXKILL	PREV+8
$$RJ^XLFSTR	PRINT+15, PRINT+17, PRINT+19
EN^XUTMDEVQ	PREV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report requires 132-column format." Line Location: PREV+3
Function Call: WRITE	Prompt: !!,"No device selected...exiting.",! Line Location: PREV+5
Function Call: WRITE	Prompt: @IOF Line Location: BEGIN+1
Function Call: WRITE	Prompt: !,"This report prints a listing of unusual volumes that would be" Line Location: BEGIN+2
Function Call: WRITE	Prompt: !,"generated by the pharmacy extracts (PRE, IVP and UDP) as" Line Location: BEGIN+3
Function Call: WRITE	Prompt: !,"determined by a user defined threshold value. It shoud be run" Line Location: BEGIN+4
Function Call: WRITE	Prompt: !,"prior to the generation of the actual extract(s) to identify and" Line Location: BEGIN+5
Function Call: WRITE	Prompt: !,"fix as necessary any volumes determined to be erroneous." Line Location: BEGIN+6
Function Call: WRITE	Prompt: !!,"Unusual volumes are defined as follows:" Line Location: BEGIN+7
Function Call: WRITE	Prompt: !!,"PRE Extract: Quantity field greater than the threshold value." Line Location: BEGIN+8
Function Call: WRITE	Prompt: !,"IVP Extract: Total Doses Per Day field greater than the threshold" Line Location: BEGIN+9
Function Call: WRITE	Prompt: !,?14,"or less than the negative of the threshold value." Line Location: BEGIN+10
Function Call: WRITE	Prompt: !,"UDP Extract: Quantity field greater than threshold value." Line Location: BEGIN+11
Function Call: WRITE	Prompt: !!,"Note: The threshold can be set after a report is selected." Line Location: BEGIN+12
Function Call: WRITE	Prompt: !!,"Run times for this report will vary depending upon the size of" Line Location: BEGIN+13
Function Call: WRITE	Prompt: !,"the extract and could take as long as 30 minutes or more to" Line Location: BEGIN+14
Function Call: WRITE	Prompt: !,"complete. This report has no effect on the actual extracts and" Line Location: BEGIN+15
Function Call: WRITE	Prompt: !,"can be run as needed." Line Location: BEGIN+16
Function Call: WRITE	Prompt: !!,"The report is sorted by Feeder Key, descending Volume, and SSN." Line Location: BEGIN+17
Function Call: WRITE	Prompt: "Choose the report you would like to run." Line Location: SELECT+4
Function Call: WRITE	Prompt: !!,"The default threshold volume for the ",ECXTL," extract is ",ECTHLD,"." Line Location: SELECT+9
Function Call: WRITE	Prompt: !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records." Line Location: SELECT+17
Function Call: WRITE	Prompt: !!,?8,"No unusual volumes to report for this extract" Line Location: PRINT+23
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: !,ECXTL_" Pre-Extract Unusual Volume Report - Previous FY logic",?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: !!,"Name",?11,"SSN",?21,"Day",?29,"Generic Name",?71,"Feeder Key" Line Location: HEADER+10
Function Call: WRITE	Prompt: ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day" Line Location: HEADER+14
Function Call: WRITE	Prompt: ?96,"Quantity",?121,"Total Cost" Line Location: HEADER+15
Function Call: WRITE	Prompt: !,LN,! Line Location: HEADER+16
Routine Call	DIR Line Location: BEGIN+18 SELECT+5 SELECT+10 SELECT+13 SELECT+15 CLOSE+3 HEADER+4
Routine Call	%ZIS Line Location: PREV+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
55.06	GETS^DIQ

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
BEGIN	EN+6
HEADER	PRINT+5, PRINT+13
PRINT	PROCESS+3
SELECT	EN+7

Naked Globals

Name	Field # of Occurrence
^(	PRINT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+5
%DT	EN+5!, SELECT+19!, SELECT+23!
%DT("A"	SELECT+19, SELECT+23
%DT(0	SELECT+19, SELECT+23
COUNT	PRINT+1~, PRINT+6, PRINT+12, PRINT+23
DATA	SIG+1~
DATA(	SIG+6
DATE	EN+1~, EN+5*, SELECT+19, SELECT+23
DIR	BEGIN+18!, SELECT+5!, SELECT+10!, SELECT+13!, SELECT+15!, CLOSE+3!, HEADER+4!
DIR("A"	SELECT+5, SELECT+10, SELECT+13, SELECT+15
DIR("B"	SELECT+5, SELECT+10, SELECT+15*
DIR(0	BEGIN+18, SELECT+5, SELECT+10, SELECT+13, SELECT+15, CLOSE+3, HEADER+4*
DONE	SELECT+1~, SELECT+18, SELECT+33
ECED	EN+2~, SELECT+18, SELECT+31
ECEND	EN+2~, SELECT+32*, HEADER+9
ECRUN	EN+1~, EN+5*, HEADER+8
ECSD	EN+1~, SELECT+18, SELECT+21, SELECT+25, SELECT+28
ECSD1	EN+2~, SELECT+21*
ECSTART	EN+2~, SELECT+22*, HEADER+8
ECTHLD	EN+1~, SELECT+8, SELECT+9, SELECT+13, HEADER+9
ECXCOUNT	PRINT+1~, PRINT+9*, PRINT+11
ECXDESC	EN+1~, PREV+1*, PREV+4
ECXERR	EN+2~, PROCESS+2*
ECXISIG	EN+2~, SELECT+2, SELECT+15, PRINT+20
ECXOPT	EN+1~, SELECT+5*, SELECT+6, SELECT+8, SELECT+12, SELECT+15, PRINT+16, PRINT+18, PRINT+20, HEADER+11 , HEADER+14, HEADER+15
ECXSAVE	EN+1~, PREV+4
ECXSAVE("EC*"	PREV+2*
ECXTL	EN+1~, PREV+1, SELECT+6*, SELECT+9, SELECT+17, HEADER+7
EDAY	PRINT+1~, PRINT+8*, PRINT+9, PRINT+11
FKEY	PRINT+1~, PRINT+6*, PRINT+7, PRINT+8, PRINT+9, PRINT+11
GTOT	PRINT+1~, PRINT+4*
I	SIG+1~, SIG+6*
IO	PREV+6, PRINT+2
IO(0	PREV+6
IOF	BEGIN+1, BEGIN+19, HEADER+6
IOSL	PRINT+13
IOST	BEGIN+19, CLOSE+1, HEADER+2, HEADER+6
JJ	CLOSE+2, HEADER+1~, HEADER+3
LN	PRINT+1~, PRINT+4*, HEADER+16
ORDNO	SIG~, SIG+3, SIG+4
OUT	SELECT+1~
PATNO	SIG~, SIG+3, SIG+4
PG	PRINT+1~, PRINT+4, HEADER+4, HEADER+6, HEADER+7
>> POP	PREV+5
QFLG	EN+2~, EN+3, EN+6, EN+7, BEGIN+18, SELECT+5, SELECT+10, SELECT+13, SELECT+15, SELECT+18 , SELECT+20, SELECT+24, PROCESS+3, PRINT+1~, PRINT+4, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9 , PRINT+11, PRINT+13, PRINT+22, CLOSE+1, HEADER+4*, HEADER+5
QTY	PRINT+1~, PRINT+7*, PRINT+8, PRINT+9, PRINT+11
REC	PRINT+1~, PRINT+11*, PRINT+14, PRINT+15, PRINT+17, PRINT+19, PRINT+21
RECNO	SIG+1~, SIG+4*, SIG+5, SIG+6
SIG	SIG+1~, SIG+2, SIG+3, SIG+6, SIG+7
SS	CLOSE+2, HEADER+1~, HEADER+3
SSN	PRINT+1~, PRINT+10, PRINT+11
U	PRINT+14, PRINT+15, PRINT+17, PRINT+19, PRINT+21
X	EN+1~, EN+5, SELECT+5, SELECT+10, SELECT+13, SELECT+15
Y	EN+1~, EN+5*, BEGIN+18, SELECT+5, SELECT+11, SELECT+13, SELECT+15, SELECT+20, SELECT+21, SELECT+22 , SELECT+24, SELECT+25, SELECT+28, SELECT+31, SELECT+32, HEADER+4
>> ZTQUEUED	PRINT+3
ZTREQ	PROCESS+1*, PRINT+3!
>> ZTSTOP	PRINT+3*

Customize PDF page

Package: DSS Extracts

Routine: ECXAPHAP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: