Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECXUPRO

Package: DSS Extracts

Routine: ECXUPRO


Information

ECXUPRO ;ALB/TJL-Prosthetic Pre-Extract Unusual Cost Report ;6/1/17 15:32

Source Information

Source file <ECXUPRO.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All