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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Event Capture 3 ^ECKILL  $$GETPRV^ECPRVMUT  $$MOD^ECUTL  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  

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 PRO SUM  ECRRPT  

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

External References

Name Field # of Occurrence
^%DT BDATE+1, EDATE
^%ZIS DEV+2
HOME^%ZIS DEV+3
^%ZISC END+3
^%ZTLOAD DEV+3
^DIC ECPRSUM1+8
$$GET1^DIQ EN+17, EN+18
^DIR PAGE+2
^ECKILL EN+53, END
$$GETPRV^ECPRVMUT EN+6
$$MOD^ECUTL EN+32
$$CPT^ICPTCOD EN+25
$$MOD^ICPTMOD PRINT+20, EXPORT+17
$$FMTE^XLFDT HDR+3

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
Routine Call
  • DIC
  • Line Location:
    • ECPRSUM1+8
Routine Call
  • DIR
  • Line Location:
    • PAGE+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^ECD - [#724] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+11
^EC(725 - [#725] EN+23, EN+27
^ECH - [#721] EN+5, EN+31
^ECH("AC" EN+5
^ECH("APRV" EN+5
^ECJ - [#720.3] EN+20
^ECJ("AP" EN+19
^ECL - [#720.5] EN+38
^ECR - [#720.4] EN+40
^TMP("ECTMP" EN+4!, EN+46, EN+47*, EN+50*, EN+51*, EN+53!, PRINT+2, PRINT+3, PRINT+4, PRINT+9
, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+19, PRINT+23, END!, END+1!, EXPORT+5
, EXPORT+6, EXPORT+9, EXPORT+10, EXPORT+11, EXPORT+12, EXPORT+15, EXPORT+17, EXPORT+20
^TMP($J EXPORT+3*, EXPORT+4*, EXPORT+14*, EXPORT+15*, EXPORT+19*, EXPORT+20*

Label References

Name Line Occurrences
EDATE EDATE+1
END ECPRSUM1+8, ECPRSUM1+10, BDATE+1, EDATE, DEV+2, DEV+3, PRINT+2, PRINT+30
EXPORT EN+53
FOOTER PAGE+1
HDR PRINT+2, PRINT+6, PRINT+16, PRINT+25
PAGE PRINT+2, PRINT+16, PRINT+25, PRINT+30
TOT PRINT+12

Naked Globals

Name Field # of Occurrence
^( EN+46*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BDATE!*, EDATE!*
%DT("A" BDATE*, EDATE*
>> %ZIS DEV+2*
>> %ZIS("A" DEV+2*
A EN+1~, PRINT+13*, PRINT+16*, EXPORT+1~
A( EN+3*, EN+7*, EN+9*, EN+46, PRINT+7*, PRINT+16*, TOT+2, TOT+3*
A(1 EN+10
A(2 EN+10
A(3 EN+10
A(4 EN+10
A(5 EN+10
A(6 EN+10
A(7 EN+10
CNT EXPORT+1~, EXPORT+2*, EXPORT+3, EXPORT+4, EXPORT+13*, EXPORT+14, EXPORT+15, EXPORT+19, EXPORT+20
>> DA EN+5*, EN+6, EN+31, EN+32
DIC ECPRSUM1+7*, ECPRSUM1+8!
DIC("A" ECPRSUM1+7*
DIC(0 ECPRSUM1+7*
DIR PAGE+2!
DIR(0 PAGE+2*
>> DIRUT ECPRSUM1+10
>> DUOUT ECPRSUM1+10
EC EN+1~, EN+5*, EN+11, EN+12, EN+14, EN+36, EN+45
EC725 EN+1~, EN+27*, EN+28, EN+51
ECCAT EN+1~, EN+14*, EN+19
>> ECCPT EN+23*, EN+24, EN+25*, EN+29, EN+45, EN+51
>> ECD EN+5*
>> ECDATE EDATE+4*, PRINT+1
>> ECED EDATE+4*, EN+4*, EN+5, EN+25, PRINT+1*, PRINT+20, HDR+3, EXPORT+17
ECEPN EN+1~, EN+28*, EN+51
>> ECFILE EN+21*, EN+22, EN+23, EN+26, EN+27, EN+28, EN+51
ECGT EN+1~
ECGT( EN+3*, PRINT+29, TOT+2*
>> ECGUI END+1
ECI EN+1~, EN+3*, EN+7*, EN+8*, EN+9, PRINT+7*, TOT+3*, EXPORT+1~
ECLNK EN+36*, EN+37, EN+38, EN+41, EN+52!
ECLOC EN+14*, EN+15, EN+17, EN+19, PRINT+2*, PRINT+3*, PRINT+4, PRINT+9, PRINT+10, PRINT+11
, PRINT+12, PRINT+13, PRINT+16, PRINT+19, PRINT+23, HDR+2, EXPORT+1~, EXPORT+5*, EXPORT+6, EXPORT+9
, EXPORT+10, EXPORT+11, EXPORT+12, EXPORT+14, EXPORT+15, EXPORT+17, EXPORT+20
ECLOCN EN+1~, EN+17*, EN+46, EN+47, EN+50, EN+51
ECMOD EN+31!, EN+32
ECMOD( EN+49
>> ECMODF EN+31*, EN+32*
>> ECOUT EN+3*, EN+4*, PRINT+9, PRINT+11, PRINT+12, PRINT+16, PRINT+18, PRINT+19, PRINT+25, PRINT+30
, PAGE+2*
>> ECP EN+12*, EN+13, EN+19, EN+21, EN+23, EN+27
>> ECPAT EN+11*
ECPG EN+1~, EN+3*, HDR+1*, HDR+2
>> ECPN EN+22*, EN+26*, EN+27*, EN+28, EN+29, EN+45
>> ECPRSN EN+36*, EN+38*, EN+39*, EN+40*, EN+41*, EN+42*, EN+46, EN+50, EN+51
ECPRV EN+1~, EN+6!*
ECPRV( EN+8, EN+9
>> ECPSY EN+19*, EN+20
>> ECPSYN EN+20*, EN+28, EN+29
ECPTDS EN+29*, EN+47, EN+52!
>> ECPTYP EN+2, EN+51, EN+53
ECPXD EN+1~, EN+23*, EN+25*, EN+26
ECREAS PRINT+8*, PRINT+11*, PRINT+12, PRINT+13, PRINT+14, PRINT+16, PRINT+19, PRINT+23, EXPORT+1~, EXPORT+8*
, EXPORT+10*, EXPORT+11, EXPORT+12, EXPORT+15, EXPORT+17, EXPORT+20
>> ECRY EN+42, PRINT+14, HDR+4
>> ECSD BDATE+1*, EDATE+1, EDATE+4, EN+4*, EN+5, PRINT+1*, HDR+3
>> ECSLOC EN+15
>> ECSLOC( EN+15
>> ECSUNIT EN+16
>> ECSUNIT( EN+16
>> ECU ECPRSUM1+8*, EN+5, EN+9
>> ECUN ECPRSUM1+8*, PRINT+2, HDR+2, EXPORT+14
ECUNIT EN+14*, EN+16, EN+18, EN+19, PRINT+2*, PRINT+4*, PRINT+9, PRINT+10, PRINT+11, PRINT+12
, PRINT+13, PRINT+16, PRINT+19, PRINT+23, HDR+2, EXPORT+1~, EXPORT+6*, EXPORT+9, EXPORT+10, EXPORT+11
, EXPORT+12, EXPORT+14, EXPORT+15, EXPORT+17, EXPORT+20
ECUNITN EN+1~, EN+18*, EN+46, EN+47, EN+50, EN+51
ECX EN+1~, EN+6*, EN+8*, EN+9, EN+10*
EXPORT EXPORT+1~, EXPORT+12*, EXPORT+14, EXPORT+19
>> IEN PRINT+18*, PRINT+19*, PRINT+20, PRINT+23
IO EN+2
IO("Q" DEV+3
IOF HDR+1, END
IOM PRINT+27, HDR+6, TOT
IOSL PRINT+16, PRINT+25
IOST PAGE+2
>> J EN+46*, PRINT+16*, PRINT+29*, TOT+2*, EXPORT+20*
MOD EN+49*, EN+50, EN+52!, PRINT+21*, PRINT+24, PRINT+26!, EXPORT+1~, EXPORT+15, EXPORT+16*, EXPORT+17*
, EXPORT+18*
MODAMT PRINT+23*, PRINT+24, PRINT+26!, EXPORT+1~, EXPORT+17*, EXPORT+18
MODCNT EXPORT+1~, EXPORT+15*
MODESC PRINT+22*, PRINT+24, PRINT+26!, EXPORT+1~, EXPORT+17*, EXPORT+18
MODI EN+1~, PRINT+20*, PRINT+21, PRINT+22, EXPORT+1~, EXPORT+17*
PA EN+11*, EN+12*, EN+46, EN+50, EN+51, PRINT+8*, PRINT+9*, PRINT+12*, PRINT+13, PRINT+15
, PRINT+16, PRINT+19, PRINT+23, EXPORT+1~, EXPORT+8*, EXPORT+9*, EXPORT+11*, EXPORT+12, EXPORT+15, EXPORT+17
, EXPORT+19, EXPORT+20
>> POP DEV+2
PR PRINT+8*, PRINT+9*, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+19, PRINT+23, EXPORT+1~
, EXPORT+8*, EXPORT+9*, EXPORT+10, EXPORT+11, EXPORT+12, EXPORT+15, EXPORT+17, EXPORT+20
>> PRO EN+45*, EN+46, EN+47, EN+50, EN+51
RK EN+1~, PRINT+27*, HDR+6*, TOT*
>> SS EN+11*, EN+46, EN+50, EN+51
SUB EXPORT+1~, EXPORT+15*, EXPORT+16, EXPORT+17
U EN+9, EN+14, EN+28, EN+51, PRINT+21, PRINT+22, EXPORT+14, EXPORT+15, EXPORT+17, EXPORT+19
, EXPORT+20
>> V EN+45*, EN+46, EN+50
>> Y ECPRSUM1+8, BDATE+1, EDATE, EDATE+1, EDATE+4, PAGE+2
>> ZTDESC DEV+3*
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN DEV+3*
ZTSAVE DEV+3!
ZTSAVE("ECDATE" DEV+3*
ZTSAVE("ECED" DEV+3*
ZTSAVE("ECRY" DEV+3*
ZTSAVE("ECSD" DEV+3*
ZTSAVE("ECU" DEV+3*
ZTSAVE("ECUN" DEV+3*
ZTSK DEV+3!, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All