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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ECPRSUM1

Package: Event Capture

Routine: ECPRSUM1


Information

ECPRSUM1 ;BIR/DMA,RHK,JPW - Provider Summary (1 to 7) ;12/2/14 11:09

Source Information

Source file <ECPRSUM1.m>

Entry Points

Name Comments DBIA/ICR reference
BDATE
EDATE
DEV ;dev call
EN ;QUEUED ENTRY POINT
PRINT ;print report
PAGE ; end of page
HDR ;
TOT
FOOTER ;print page footer
END
EXPORT ;Section added in 119

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report is formatted for 132 column output.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,?12,"No Event Capture Provider Summary for "_ECUN_" to report for the date range selected.",!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?10*J+50,$J(A,5,0)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !!,?60
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: "*"
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !,?35,"GRAND TOTAL - PROCEDURES"
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: ?10*J+50,$J(ECGT(J),5,0)
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!?33,"EVENT CAPTURE PROVIDER (1-7) SUMMARY FOR ",ECUN,?118,"Page: ",ECPG,!,?33,"LOCATION: ",$G(ECLOC),!,?33,"DSS UNIT: ",$G(ECUNIT)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?33,"FOR THE DATE RANGE ",$$FMTE^XLFDT(ECSD)," TO ",$$FMTE^XLFDT(ECED),!!,"PROCEDURE",?85,"TOTALS AS PROVIDER #",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "PROCEDURE REASON"
  • Condition for execution: $D(ECRY)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?25,"PATIENT",?52,"SSN",?64,1,?74,2,?84,3,?94,4,?104,5,?114,6,?124,7
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?5,"CPT MODIFIER (Volume of modifiers used)",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?60
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !?35,"TOTAL PROCEDURES"
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: ?10*J+50,$J(A(J),5,0)
  • Line Location: TOT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: TOT+3
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: @IOF
  • Line Location: END+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^ECD - [#724] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call