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

Package: Event Capture

Routine: ECRDSSU


Information

ECRDSSU ;ALB/ESD - DSS Unit Workload Summary Report ;11/7/12 12:00

Source Information

Source file <ECRDSSU.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;- Get location(s), DSS Unit(s), start & end dates, device
ENQ
STRPT ;- Main entry point
STRPTQ
GETREC ;- Loop thru "ADT" x-ref of EC Patient file (#721)
CRETMP ;- Create ^TMP("ECRPT" array w/format:
; ^TMP("ECRPT",$J,location,DSS Unit,category,count)=procedure^volume^
; CPT modifiers
LOOP ;- Loop through data
LOOPQ
SETMOD ;ALB/JAM - Set CPT modifiers in ECTMP array
CATCHG ;- Category change
CATCHGQ
PRTCAT ;- Print category
PRTCATQ
PRTMOD ;ALB/JAM - Print CPT modifiers
DSSCHG ;- DSS Unit change
HDR ;- Report header
LOCNAM ;- Get location name
DSSUNAM ;- Get DSS Unit name
PAUSE ;- Pause for screen output
FOOTER ;- Print page footer
ASKDEV() ;- Ask device for printing or queuing report
; Input: None

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Location: ",$G(ECLOCNM),!,"DSS Unit: ",$G(ECDSSNM)
  • Line Location: LOOP+13
Function Call: WRITE
  • Prompt: !?3,ECCPT,?9,$E(ECPNAM,1,35),?46,$S(ECSYN]"":$E(ECSYN,1,21),1:""),?69,$J($P($G(ECTMP(ECLOC,ECDSS,ECC,ECPR)),"^"),6)
  • Line Location: PRTCAT+17
Function Call: WRITE
  • Prompt: !?69,"------"
  • Line Location: PRTCAT+22
Function Call: WRITE
  • Prompt: !?6,"Total Procedures for ",ECCNAM,?69,$J(ECCATOT,6),!
  • Line Location: PRTCAT+23
Function Call: WRITE
  • Prompt: !?7,"- ",MOD," ",$E(MODESC,1,40)," ("
  • Line Location: PRTMOD+7
Function Call: WRITE
  • Prompt: ECTMP(ECLOC,ECDSS,ECC,ECPR,IEN),")"
  • Line Location: PRTMOD+8
Function Call: WRITE
  • Prompt: !!?69,"======"
  • Line Location: DSSCHG+5
Function Call: WRITE
  • Prompt: !?6,"Total Procedures for ",$G(ECDSSNM),?69,$J(ECDSSTOT,6)
  • Line Location: DSSCHG+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?((IOM-32)\2),"DSS UNIT WORKLOAD SUMMARY REPORT"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?((IOM-40)\2),"Date Range: "_$$FMTE^XLFDT($P((ECSTDT+.0001),"."))_" to "_$$FMTE^XLFDT($P(ECENDDT,"."))
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,"Run Date: "_$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?65," Page: ",ECPAGE
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?3,"CPT Code",?13,"Description",?46,"Synonym",?69,"Volume"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?7,"CPT Modifier (volume of modifiers use)"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$TR($J("",79)," ","-")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+5
Function Call: WRITE
  • Prompt: !!?4,"Volume totals may represent days, minutes, numbers of procedures"
  • Line Location: FOOTER+1
Function Call: WRITE
  • Prompt: !?4,"and/or a combination of these."
  • Line Location: FOOTER+2
Info |  Source |  Entry Points |  Interaction Calls