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

Package: Event Capture

Routine: ECPROV3


Information

ECPROV3 ;BIR/MAM,JPW - Event Capture Provider Summary (cont'd) ;11/20/12 13:49

Source Information

Source file <ECPROV3.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Changes below were made by VMP to correct NOIS ATG-1003-32545
CATS ; continue looping
PRO
MORE ;
LOC
GECD
GMM
LOC1
UTL ; set ^TMP("ECTMP",$J
PAGE ; end of page
HDR ; print heading
FOOTER ;print page footer
TOTP
UNIT ; set units
NOUNIT ;Nothing there
EXPORT ;119 Entire section added in patch 119 for exporting data to excel
ORDMODS ;Find first three mods by volume
MODNM(IEN) ;Get modifier name

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,?12,"NO PROCEDURES"
  • Line Location: CATS+1
Function Call: WRITE
  • Prompt: !!,ECUN
  • Line Location: PRO+1
Function Call: WRITE
  • Prompt: !,?3,ECCN
  • Line Location: MORE+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?49,"EVENT CAPTURE PROVIDER SUMMARY",!,?49,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!,?49,"Run Date : ",ECRDT
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?3,"Category",?105,"Procedure/Reason",!,?6,"CPT",?12,"Proc",?18,"Procedure Name"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?105,"Volume*",!,?6,"Code",?12,"Code",!,?10,"CPT Modifier (volume)",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"Location: "_ECLN,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "DSS Unit: "_ECDN
  • Condition for execution: ECDN]""
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,ECUN,!,ECCN
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?4,"*Volume totals may represent days, minutes, numbers of procedures and/or a combination of these."
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: !?4,"Procedure/Reason Volume = count of unique combinations of procedure code and procedure reason"
  • Line Location: FOOTER+2
Function Call: WRITE
  • Prompt: !,?105,"------",!,"Total Procedures for "_ECUN,?105,$J(^TMP("ECTMP",$J,ECLN,ECDN,ECUN),6)
  • Line Location: TOTP+0
Function Call: WRITE
  • Prompt: !!!,?12,"NO PROCEDURES",!
  • Line Location: NOUNIT+1
Info |  Source |  Entry Points |  Interaction Calls