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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECOSSUM

Package: Event Capture

Routine: ECOSSUM


Information

ECOSSUM ;BIR/DMA,RHK,JPW - Ordering Section Summary ;11/18/14 16:03

Source Information

Source file <ECOSSUM.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  $$RJ^XLFSTR  
Event Capture 4 ^ECKILL  $$GETPRV^ECPRVMUT  ($$ASKDSS,$$ASKLOC,$$ENDDT,$$STDT)^ECRUTL  $$MOD^ECUTL  
VA FileMan 4 DD^%DT  NOW^%DTC  ^DIC  ^DIR  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

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 EC OS SUM  ECRRPT  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from menu option
START ;queued entry point or continuation
RANGE ;get any date range
DEVICE ;select output device
PROCESS ;get data to print
PRINT ;output report
HEAD ;header
FOOTER ;print page footer
EXIT ;common exit point
EXPORT ;119 Section added for exporting data to excel

External References

Name Field # of Occurrence
DD^%DT PRINT+4, PRINT+5
NOW^%DTC PRINT+5
^%ZIS DEVICE+2
HOME^%ZIS EN+19
^%ZISC START+5, EXIT+2
^%ZTLOAD DEVICE+8
^DIC EN+2
^DIR DEVICE+3, DEVICE+9, DEVICE+10, PRINT+11, PRINT+61, HEAD+3
^ECKILL EXIT+1
$$GETPRV^ECPRVMUT PROCESS+37
$$ASKDSS^ECRUTL EN+11
$$ASKLOC^ECRUTL EN+8
$$ENDDT^ECRUTL RANGE+10
$$STDT^ECRUTL RANGE+6
$$MOD^ECUTL PROCESS+31
$$CPT^ICPTCOD PROCESS+24
$$FMTE^XLFDT HEAD+7
$$RJ^XLFSTR PRINT+34, PRINT+49, PRINT+52, PRINT+55, PRINT+58

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,?5,"Enter a Begin Date and End Date for the Event Capture "
  • Line Location: RANGE+2
Function Call: WRITE
  • Prompt: !,?5,"Ordering Section report.",!
  • Line Location: RANGE+3
Function Call: WRITE
  • Prompt: !,"This report is formatted for 132 column output.",!
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: !!,"No device selected. Exiting...",!!
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !,"Report canceled..."
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,UNNAME
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !?54,ECPN
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: ?25,$P($G(PROV(PROVN)),"^",2)
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: ?60,"- ",MOD," ",$P(ECMOD(MOD),U,3)
  • Line Location: PRINT+44
Function Call: WRITE
  • Prompt: !!!,"Grand Total for Ordering Section "_ECOSN_":",?111,$$RJ^XLFSTR(ECV("O"),6," "),!
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+61
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+62
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: !,?26,"Event Capture Ordering Section Summary for ",ECOSN,?105,"Page: ",PAGE
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,?26,"for the Date Range ",$$FMTE^XLFDT(ECSD)," to ",$$FMTE^XLFDT(ECED),?102,"Printed: "_PRNTDT
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?26,"Location: ",LOC,!
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,"DSS Unit",?24,"Patient",?48,"SSN",?54,"Procedure",?114,"Vol."
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,?25,"Provider(s)",?60,"Synonym",!,?60,"- Modifier(s)"
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: HEAD+11
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
  • DIC
  • Line Location:
    • EN+2
Routine Call
  • DIR
  • Line Location:
    • DEVICE+3
    • DEVICE+9
    • DEVICE+10
    • PRINT+11
    • PRINT+61
    • HEAD+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+32
^EC(725 - [#725] PROCESS+22, PROCESS+27
^ECH - [#721] PROCESS+11, PROCESS+30
^ECH("AC" PROCESS+10, PROCESS+11
^ECJ - [#720.3] PROCESS+19
^ECJ("AP" PROCESS+18
^TMP("ECOS" PROCESS+3!, PROCESS+38*, PROCESS+39*, PROCESS+40*, PROCESS+42*, PRINT+8, PRINT+24, PRINT+27, PRINT+30, PRINT+35
PRINT+36, EXIT+3!, EXPORT+4, EXPORT+5, EXPORT+6, EXPORT+7, EXPORT+8, EXPORT+9, EXPORT+11, EXPORT+12
^TMP($J EXPORT+2*, EXPORT+3*, EXPORT+10*, EXPORT+11*, EXPORT+12*

Label References

Name Line Occurrences
DEVICE EN+14
EXIT EN+3, EN+6, EN+9, EN+12, EN+15, EN+16, EN+17, EN+20, START+2, START+4
START+6
EXPORT START+2
FOOTER PRINT+60, HEAD+2
HEAD PRINT+9, PRINT+22, PRINT+26, PRINT+38, PRINT+41, PRINT+47, PRINT+51, PRINT+54, PRINT+57
PRINT START+3
PROCESS START+1
RANGE EN+5
START EN+18

Naked Globals

Name Field # of Occurrence
^( PRINT+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+5
>> %ZIS DEVICE+2*
ALOC PRINT+2~
ALOC( PRINT+17*, PRINT+21
AUNIT PRINT+2~
AUNIT( PRINT+19*, PRINT+23
CNT EXPORT+1~, EXPORT+2*, EXPORT+3, EXPORT+10*, EXPORT+11, EXPORT+12
DASH PRINT+2~, PRINT+3*, HEAD+11
DASH2 PRINT+2~, PRINT+3*, PRINT+48
DATA PRINT+2~, PRINT+30*, PRINT+31, PRINT+32, EXPORT+1~, EXPORT+9*, EXPORT+10
DIC EN+2!*
DIC("A" EN+2*
DIC(0 EN+2*
DIR DEVICE+3!, DEVICE+9!, DEVICE+10!, PRINT+11!, HEAD+3!, EXIT+4!
DIR(0 DEVICE+3*, DEVICE+9*, DEVICE+10*, PRINT+11*, PRINT+61*, HEAD+3*
DIRUT EXIT+4!
DT RANGE+12
DTOUT EXIT+4!
DUOUT EXIT+4!
EC PROCESS+1~, PROCESS+11*, PROCESS+12, PROCESS+13, PROCESS+16, PROCESS+17, PROCESS+24, PROCESS+32, PROCESS+36
EC725 PROCESS+1~, PROCESS+27*
ECCAT PROCESS+1~, PROCESS+17*, PROCESS+18
>> ECCPT PROCESS+22*, PROCESS+23, PROCESS+24*, PROCESS+28, PROCESS+40
ECD PROCESS+1~, PROCESS+9*, PROCESS+10*, PROCESS+11
ECDA PROCESS+1~, PROCESS+11*, PROCESS+30, PROCESS+31, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+42, PRINT+1~
PRINT+30*, PRINT+35, PRINT+36
ECDSSU EXIT+4!
ECDSSU( PROCESS+7, PROCESS+8, PRINT+18, PRINT+19
ECED EN+6, RANGE+4*, RANGE+9, RANGE+11*, RANGE+12, RANGE+15*, PROCESS+10, PROCESS+12, PRINT+4*, HEAD+7
EXIT+4!
ECENDDT RANGE+1~, RANGE+11
ECEPC PROCESS+1~, PROCESS+22*, PROCESS+27*, PROCESS+40
ECEPN PROCESS+1~, PROCESS+21*, PROCESS+25*, PROCESS+27*, PROCESS+40
ECFILE PROCESS+1~, PROCESS+20*, PROCESS+21, PROCESS+22, PROCESS+25, PROCESS+26
>> ECGUI START+4, EXIT+2
ECLOC EXIT+4!
ECLOC( PROCESS+5, PROCESS+6, PRINT+16, PRINT+17
ECLOCA PROCESS+1~, PROCESS+13*, PROCESS+14, PROCESS+15, PROCESS+18, PROCESS+38, PROCESS+39, PROCESS+42, PRINT+1~, PRINT+21*
PRINT+24, PRINT+27, PRINT+30, PRINT+35, PRINT+36
ECLOCN PROCESS+1~, PROCESS+15*, PROCESS+38, PROCESS+40, PROCESS+42
ECLOOP EN+6, RANGE+5, RANGE+6*, RANGE+8, RANGE+9, RANGE+10*, EXIT+4!
ECMOD PROCESS+31!, PROCESS+42, PRINT+36!*
ECMOD( PRINT+40, PRINT+44!
>> ECMODF PROCESS+30*, PROCESS+31*, PROCESS+41
ECOS EN+4*, PROCESS+11, EXIT+4!
ECOSN EN+4*, PRINT+58, HEAD+6, EXIT+4!, EXPORT+10
ECP PROCESS+1~, PROCESS+16*, PROCESS+18, PROCESS+20, PROCESS+22, PROCESS+27
ECPA PROCESS+1~, PROCESS+32*, PROCESS+33
ECPATN PROCESS+1~, PROCESS+32*, PROCESS+33*, PROCESS+35*, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+42, PRINT+1~, PRINT+27*
PRINT+28, PRINT+30, PRINT+35, PRINT+36, PRINT+49
ECPN PROCESS+1~, PROCESS+21*, PROCESS+25*, PROCESS+27*, PROCESS+28*, PROCESS+39, PRINT+1~, PRINT+31*, PRINT+37, PRINT+41
ECPRV PROCESS+1~, PROCESS+37!*, PROCESS+38
ECPRVN PROCESS+1~
ECPSY PROCESS+1~, PROCESS+18*, PROCESS+19
ECPSYN PROCESS+1~, PROCESS+19*, PROCESS+39, PROCESS+40, PRINT+1~, PRINT+32*, PRINT+37
>> ECPTYP START+2, PROCESS+38, PROCESS+39, PROCESS+40, PROCESS+42
ECPXD PROCESS+2~, PROCESS+22*, PROCESS+24*, PROCESS+25
ECSD EN+6, RANGE+4*, RANGE+5, RANGE+7*, RANGE+8, PROCESS+9, PROCESS+12, PRINT+4*, HEAD+7, EXIT+4!
ECSS PROCESS+1~, PROCESS+32*, PROCESS+33*, PROCESS+34
ECSSN PROCESS+1~, PROCESS+34*, PROCESS+35, PROCESS+39, PROCESS+40, PRINT+1~, PRINT+28*, PRINT+29
ECSTDT RANGE+1~, RANGE+7, RANGE+10
ECUNIT PROCESS+1~, PROCESS+13*, PROCESS+14, PROCESS+15, PROCESS+18, PROCESS+38, PROCESS+39, PROCESS+42, PRINT+1~, PRINT+23*
PRINT+24, PRINT+27, PRINT+30, PRINT+35, PRINT+36
ECUNITN PROCESS+1~, PROCESS+15*, PROCESS+38, PROCESS+40, PROCESS+42
ECV PROCESS+36*, PROCESS+39, PROCESS+40, PRINT+1~, PRINT+32*, PRINT+33, PRINT+34*, PRINT+37
ECV( PRINT+33*
ECV("L" PRINT+6*, PRINT+21*, PRINT+55
ECV("O" PRINT+6*, PRINT+58
ECV("P" PRINT+6*, PRINT+27*, PRINT+49
ECV("U" PRINT+6*, PRINT+23*, PRINT+52
IEN EXPORT+1~, EXPORT+8*, EXPORT+9, EXPORT+11, EXPORT+12
IO START+3, START+5
IO("Q" EN+17, DEVICE+4, EXIT+4!
>> IO(0 START+5
IOF PRINT+13, PRINT+61, PRINT+63, HEAD+4
IOP DEVICE+2!
IOSL PRINT+26, PRINT+38, PRINT+41, PRINT+47, PRINT+51, PRINT+54, PRINT+57
IOST PRINT+11, PRINT+13, PRINT+61, PRINT+63, HEAD+1, HEAD+3, HEAD+4
JJ EN+8*, EN+9, EN+11*, EN+12, PROCESS+2~, PROCESS+5*, PROCESS+6, PROCESS+7*, PROCESS+8, PRINT+2~
PRINT+12*, PRINT+16*, PRINT+17, PRINT+18*, PRINT+19, PRINT+62*, HEAD+1*, EXIT+4!
LOC PRINT+2~, PRINT+9*, PRINT+21*, PRINT+55, HEAD+8, EXPORT+1~, EXPORT+5*, EXPORT+6, EXPORT+7, EXPORT+8
EXPORT+9, EXPORT+10, EXPORT+11, EXPORT+12
>> MOD PRINT+40*, PRINT+44
MODCNT EXPORT+1~, EXPORT+11*
NLOC PROCESS+2~
NLOC( PROCESS+6*, PROCESS+14, PROCESS+15
NUNIT PROCESS+2~
NUNIT( PROCESS+8*, PROCESS+14, PROCESS+15
PAGE PRINT+2~, PRINT+3*, HEAD+2, HEAD+3, HEAD+5*, HEAD+6
PAT EXPORT+1~, EXPORT+7*, EXPORT+8, EXPORT+9, EXPORT+10, EXPORT+11, EXPORT+12
>> POP EN+15, DEVICE+3
PRCNT EXPORT+1~, EXPORT+12*
PRNTDT PRINT+2~, PRINT+5*, HEAD+7
PROV PRINT+2~, PRINT+35!*
PROV( PRINT+40, PRINT+43!
PROV(1 PRINT+37!
PROVN PRINT+2~, PRINT+40*, PRINT+43
PTNAME PRINT+2~, PRINT+28*, PRINT+29
QFLAG PRINT+2~, PRINT+3*, PRINT+11, PRINT+21, PRINT+22, PRINT+23, PRINT+26, PRINT+27, PRINT+30, PRINT+38
PRINT+40, PRINT+41, PRINT+47, PRINT+51, PRINT+54, PRINT+57, PRINT+61, HEAD+3*
SS PRINT+2~, PRINT+12*, PRINT+62*, HEAD+1*
SUB EXPORT+1~, EXPORT+11*, EXPORT+12*
U PROCESS+13, PROCESS+16, PROCESS+17, PROCESS+27, PROCESS+40, PRINT+32, PRINT+44, EXPORT+10, EXPORT+11, EXPORT+12
UNIT PRINT+2~, PRINT+23*, PRINT+25, PRINT+52, EXPORT+1~, EXPORT+6*, EXPORT+7, EXPORT+8, EXPORT+9, EXPORT+10
EXPORT+11, EXPORT+12
UNNAME PRINT+2~, PRINT+25*, PRINT+26
V PRINT+2~, PRINT+33*
X PRINT+2~, EXIT+4!
Y EN+3, EN+4, PRINT+2~, PRINT+4*, PRINT+5*, HEAD+3, EXIT+4!
>> ZTDESC DEVICE+5*
>> ZTQUEUED START+6
>> ZTREQ START+6*
>> ZTRTN DEVICE+5*
>> ZTSAVE("ECDSSU(" DEVICE+7*
>> ZTSAVE("ECED" DEVICE+6*
>> ZTSAVE("ECLOC(" DEVICE+7*
>> ZTSAVE("ECOS" DEVICE+6*
>> ZTSAVE("ECOSN" DEVICE+6*
>> ZTSAVE("ECSD" DEVICE+6*
ZTSK EN+16, EN+17, DEVICE+9, DEVICE+10, EXIT+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All