Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Event Capture 5 ^ECKILL  STRPT^ECRDSSU  EXPORT^ECRDSSU2  ($$ASKDSS,$$ASKLOC,$$ENDDT,$$STDT)^ECRUTL  $$MOD^ECUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Event Capture 2 ECRDSSU  ECRRPT  

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

External References

Name Field # of Occurrence
^%ZIS ASKDEV+9
HOME^%ZIS ASKDEV+15
^%ZISC STRPT+17
^%ZTLOAD ASKDEV+14
^DIR PAUSE+5
^ECKILL STRPT+4, STRPTQ
STRPT^ECRDSSU EN+7
EXPORT^ECRDSSU2 STRPT+4
$$ASKDSS^ECRUTL EN+4
$$ASKLOC^ECRUTL EN+3
$$ENDDT^ECRUTL EN+6
$$STDT^ECRUTL EN+5
$$MOD^ECUTL CRETMP+9
$$CPT^ICPTCOD PRTCAT+12
$$MOD^ICPTMOD PRTMOD+4
$$FMTE^XLFDT HDR+5, HDR+6
$$NOW^XLFDT HDR+6

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
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+9
Routine Call
  • %ZIS
  • Line Location:
    • ASKDEV+15
Routine Call
  • DIR
  • Line Location:
    • PAUSE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] PRTCAT+11, PRTCAT+13
^EC(726 - [#726] PRTCAT+7
^ECH - [#721] GETREC+10, CRETMP+8
^ECH("ADT" GETREC+6, GETREC+9
^ECJ - [#720.3] PRTCAT+9
^ECJ("AP" PRTCAT+9
^TMP("ECRPT" STRPTQ!, CRETMP+12*, LOOP+4, LOOP+5, LOOP+6, LOOP+14, LOOP+17, LOOP+19, LOOP+20, LOOP+21

Label References

Name Line Occurrences
$$ASKDEV EN+7
CATCHG LOOP+15
CATCHGQ CATCHG+2, CATCHG+3
CRETMP GETREC+11
DSSCHG STRPT+13, LOOP+9
DSSUNAM LOOP+12
ENQ EN+3, EN+4, EN+5, EN+6
FOOTER PAUSE+1
GETREC STRPT+8
HDR LOOP+11, PRTCAT+15, PRTCAT+21, PRTMOD+3, DSSCHG+4
LOCNAM LOOP+12
LOOP STRPT+9
LOOPQ LOOP+4
PAUSE PRTCAT+15, PRTCAT+21, PRTMOD+3, DSSCHG+4, DSSCHG+8
PRTCAT STRPT+11, LOOP+8, CATCHG+5
PRTCATQ PRTCAT+20, PRTCAT+21
PRTMOD PRTCAT+19
SETMOD LOOP+22, LOOP+23
STRPTQ STRPT+10, STRPT+12, STRPT+14, STRPT+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKDEV+8!*
DIR PAUSE+3~
DIR(0 PAUSE+5*
DIRUT PAUSE+3~, PAUSE+5
DUOUT PAUSE+3~, PAUSE+5
ECC PRTCAT+3~, PRTCAT+5*, PRTCAT+6*, PRTCAT+7, PRTCAT+9, PRTCAT+17, PRTCAT+18, PRTCAT+19, PRTMOD+2, PRTMOD+8
ECCAT LOOP+2~, LOOP+3*, LOOP+14*, LOOP+17, LOOP+19, LOOP+20, LOOP+21, LOOP+22, LOOP+23, SETMOD+3
CATCHG+2, CATCHG+3, CATCHG+4, CATCHG+6
ECCATOT PRTCAT+3~, PRTCAT+5*, PRTCAT+18*, PRTCAT+23, PRTCAT+24
ECCNAM PRTCAT+3~, PRTCAT+5*, PRTCAT+7*, PRTCAT+16, PRTCAT+23
ECCPT PRTCAT+4~, PRTCAT+11*, PRTCAT+12*, PRTCAT+17
ECCRT STRPT+2~, STRPT+6*, HDR+2, PAUSE+2
ECD GETREC+2~, GETREC+6*, GETREC+9, GETREC+11
ECDFN GETREC+2~, GETREC+5*, GETREC+6*, GETREC+9
ECDSS LOOP+2~, LOOP+3*, LOOP+6*, LOOP+14, LOOP+17, LOOP+19, LOOP+20, LOOP+21, LOOP+22, LOOP+23
SETMOD+3, PRTCAT+3~, PRTCAT+5*, PRTCAT+6*, PRTCAT+9, PRTCAT+17, PRTCAT+18, PRTCAT+19, PRTMOD+2, PRTMOD+8
DSSUNAM+3
ECDSSNM STRPT+2~, STRPT+3*, LOOP+13, DSSCHG+6, DSSCHG+7*, DSSUNAM+3*
ECDSSTOT STRPT+2~, STRPT+3*, PRTCAT+24*, DSSCHG+2, DSSCHG+3, DSSCHG+6, DSSCHG+7*
ECDSSU EN+2~
ECDSSU( GETREC+6, DSSUNAM+3
ECENDDT EN+2~, GETREC+9, PRTCAT+12, PRTMOD+4, HDR+5
ECFLG PRTCAT+3~, PRTCAT+5*, PRTCAT+16*
>> ECGUI STRPT+15
ECIEN GETREC+2~, GETREC+7*, GETREC+9*, GETREC+10, CRETMP+8, CRETMP+9
ECL GETREC+2~, GETREC+4*, GETREC+6, GETREC+9
ECLOC EN+2~, PRTCAT+3~, PRTCAT+5*, PRTCAT+6*, PRTCAT+9, PRTCAT+17, PRTCAT+18, PRTCAT+19, PRTMOD+2, PRTMOD+8
ECLOC( GETREC+4, LOCNAM+3
ECLOCAT LOOP+2~, LOOP+3*, LOOP+5*, LOOP+6, LOOP+14, LOOP+17, LOOP+19, LOOP+20, LOOP+21, LOOP+22
LOOP+23, SETMOD+3, LOCNAM+3
ECLOCNM STRPT+2~, STRPT+3*, LOOP+13, DSSCHG+7*, LOCNAM+3*
ECMOD CRETMP+4~, CRETMP+9!, LOOP+2~, LOOP+21*, LOOP+22, LOOP+23, SETMOD+2
ECMOD( CRETMP+10
ECMODF CRETMP+4~, CRETMP+9*
ECMODS CRETMP+4~, CRETMP+8*, CRETMP+11*, CRETMP+12
ECNT GETREC+2~, GETREC+3*, CRETMP+6*, CRETMP+12, LOOP+2~, LOOP+3*, LOOP+17*, LOOP+19, LOOP+20, LOOP+21
ECOCAT LOOP+2~, LOOP+3*, LOOP+10*, CATCHG+2, CATCHG+3*, CATCHG+4, CATCHG+6*
ECPAGE STRPT+2~, STRPT+3*, HDR+2, HDR+3*, HDR+7
ECPI PRTCAT+4~, PRTCAT+10*, PRTCAT+12*, PRTCAT+13
ECPNAM PRTCAT+3~, PRTCAT+13*, PRTCAT+17
ECPR LOOP+2~, LOOP+18*, LOOP+19*, LOOP+22, LOOP+23, SETMOD+3, PRTCAT+3~, PRTCAT+5*, PRTCAT+6*, PRTCAT+8
PRTCAT+11, PRTCAT+13, PRTCAT+17, PRTCAT+18, PRTCAT+19, PRTMOD+2, PRTMOD+8
ECPRN PRTCAT+3~, PRTCAT+8*, PRTCAT+9
>> ECPTYP STRPT+4
ECQUIT STRPT+2~, STRPT+3*, STRPT+10, STRPT+12, STRPT+14, LOOP+7, LOOP+8, LOOP+9, LOOP+16, PRTCAT+6
PRTCAT+14, PRTCAT+15, PRTCAT+19, PRTCAT+20, PRTCAT+21, PRTMOD+3, DSSCHG+4, PAUSE+5*
ECREC GETREC+2~, GETREC+10*, GETREC+11, CRETMP+5, CRETMP+12
ECST GETREC+2~, GETREC+8*, GETREC+9*
ECSTDT EN+2~, EN+6, GETREC+8, HDR+5
ECSYI PRTCAT+3~, PRTCAT+9*
ECSYN PRTCAT+3~, PRTCAT+9*, PRTCAT+17
ECTC CRETMP+4~, CRETMP+5*, CRETMP+12
ECTMP STRPT+2~, PRTCAT+2, PRTCATQ!
ECTMP( LOOP+22*, LOOP+23*, SETMOD+3*, PRTCAT+6, PRTCAT+17, PRTCAT+18, PRTCAT+19, PRTMOD+2, PRTMOD+8
ECTP CRETMP+4~, CRETMP+5*, CRETMP+6*, CRETMP+12
ECVOL LOOP+2~, LOOP+18*, LOOP+20*, LOOP+22, LOOP+23, SETMOD+3
ECX ASKDEV+6~, ASKDEV+7*, ASKDEV+10*, ASKDEV+11, ASKDEV+16*, ASKDEV+17
I GETREC+2~, GETREC+4*, SETMOD+1~, SETMOD+2*, LOCNAM+2~, LOCNAM+3*, DSSUNAM+2~, DSSUNAM+3*
IEN PRTMOD+1~*, PRTMOD+2*, PRTMOD+4, PRTMOD+8
IO STRPT+7
>> IO("Q" ASKDEV+11
IOF HDR+2
IOM HDR+4, HDR+5
IOSL PRTCAT+15, PRTCAT+21, PRTMOD+3, DSSCHG+4, PAUSE+4
IOST STRPT+6
J GETREC+2~, GETREC+6*
MOD SETMOD+1~, SETMOD+2*, SETMOD+3, PRTMOD+1~, PRTMOD+5*, PRTMOD+7
MODESC PRTMOD+1~, PRTMOD+6*, PRTMOD+7
MODI PRTMOD+1~, PRTMOD+4*, PRTMOD+5, PRTMOD+6
>> POP ASKDEV+10
SEQ CRETMP+4~, CRETMP+10*, CRETMP+11
U GETREC+4, GETREC+6
ZTDESC ASKDEV+6~, ASKDEV+12*
>> ZTQUEUED STRPT+16
>> ZTREQ STRPT+16*
ZTRTN ASKDEV+6~, ASKDEV+12*
ZTSAVE ASKDEV+6~
ZTSAVE("ECDSSU(" ASKDEV+13*
ZTSAVE("ECENDDT" ASKDEV+13*
ZTSAVE("ECLOC(" ASKDEV+13*
ZTSAVE("ECSTDT" ASKDEV+13*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All