Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls