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: ECRPROC

Package: Event Capture

Routine: ECRPROC


Information

ECRPROC ;ALB/CMD - Event Code Procedure Used Report ;09/24/21 20:47

Source Information

Source file <ECRPROC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Main entry point for report
PROCESS ;Get data for the report
SETTMP ;Set data into TMP global for print
EXPORT ;Convert data to exportable format
PRINT ;output report
PAGE ; end of page
TOTPRV ; Total line for Provider
TOTDSS ; Total line for DSS UNIT
HDR ; print heading
FOOTER ;print page footer
PRTMOD ;Print CPT Modifier
ECPCHK(PROC,ECPROC) ;Procedure Code check
EXIT ;common exit point

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?12,"No data to report for the date range selected.",!!
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !!,"Location: "_ECLOC
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,"DSS Unit: "_ECUNIT
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !!,ECPROVN,!,?3,ECCAT,!
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,?6,$J(PCPT_" ",6),$J(PCODE_" ",6),?18,$E(PCNAM,1,40),?70,$J(UNIQ,6),?95,$J(VOL,6)
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,?70,"--------",?95,"--------",!,"Totals for ",ECPROVN,?70,$J(PROVUNIQ,6),?95,$J(PROVOL,6),!
  • Line Location: TOTPRV+1
Function Call: WRITE
  • Prompt: !!,?70,"--------",?95,"--------",!,?70,"--------",?95,"--------"
  • Line Location: TOTDSS+1
Function Call: WRITE
  • Prompt: !,"Grand Totals for ",ECUNIT,?70,$J($P(DSSTOT,U),6),?95,$J($P(DSSTOT,U,2),6)
  • Line Location: TOTDSS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOTDSS+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $G(PAGE)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?49,"EVENT CAPTURE PROCEDURE SUMMARY REPORT",?122,"Page:",PAGE,!,?49,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!,?49,"Run Date : ",ECRDT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?3,"Category",!,?6,"CPT",?12,"Proc",?18,"Procedure Name"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?70,"# UNIQUES",?95,"Volume*"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !?6,"Code",?12,"Code",!?10,"CPT Modifier (volume)",!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: DASH
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?4,"*Volume totals may represent days, minutes, numbers of procedures"
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: " and/or a combination of these."
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: !?4,"UNIQUES totals may present the number of times a provider has used the given procedure code on a patient"
  • Line Location: FOOTER+3
Function Call: WRITE
  • Prompt: !?4,"during the selected time period. The Grand Total number of UNIQUES may not equal the sum of UNIQUES, as a "
  • Line Location: FOOTER+4
Function Call: WRITE
  • Prompt: !?4,"patient may have been seen by more than one Provider."
  • Line Location: FOOTER+5
Function Call: WRITE
  • Prompt: !?10,MODSTR_" ("_^TMP("ECRPROC",$J,ECLOC,ECUNIT,ECPROV,ECCAT,ECPRC,"MOD",MODSTR)_")"
  • Line Location: PRTMOD+5
Info |  Source |  Entry Points |  Interaction Calls