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

Package: Event Capture

Routine: ECPCER


Information

ECPCER ;BIR/JPW - Event Capture PCE Data Summary ;10/11/17 11:07

Source Information

Source file <ECPCER.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  YX^%DTC  ^DIC  $$GET1^DIQ  
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MODP^ICPTMOD  
Event Capture 2 ^ECKILL  $$GETPPRV^ECPRVMUT  
DRG Grouper 1 ($$ICDDX,$$SINFO)^ICDEX  

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 PCE REPORT  ECRRPT  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
DATE
SUM ; entry when queued
END
PAGE ; end of page
HDR1 ; print heading without categories
FOOTER ;print page footer
SET ; set data
PRT
EXPORT ;Produce exportable version, added in patch 119

External References

Name Field # of Occurrence
^%DT DATE
YX^%DTC SUM+3
^%ZIS DATE+2
HOME^%ZIS DATE+3
^%ZISC END+2
^%ZTLOAD DATE+3
^DIC EN+1
$$GET1^DIQ SET+6, SET+7, SET+8, SET+19
^ECKILL SUM+2, END, END+2
$$GETPPRV^ECPRVMUT SET+20
$$ICDDX^ICDEX SET+15, SET+26
$$SINFO^ICDEX SET+14
$$CPT^ICPTCOD SET+9
$$MODP^ICPTMOD PRT+5, EXPORT+12
$$FMTE^XLFDT DATE+1, SET+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"End date must be after start date",!
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !!,"No Data for "_ECPAT_" during the time selected."
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !!,"If you want to continue with this report, press <RET>. Entering an ^ will",!,"exit you from this option."
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: !,?31,"ECS/PCE PATIENT SUMMARY FOR "_ECPAT,!,?36,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!!,"PROCEDURE DATE/TIME",?25,"PROCEDURE NAME SENT (VOLUME)",?78,"PROVIDER"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"LOCATION",?25,"CLINIC (STOP CODE/CREDIT STOP/CHAR4/MCA LABOR CODE)",?78,"CPT CODE"
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,?25,"DIAGNOSIS",?78,"PROCEDURE (CPT) MODIFIER",!
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+6
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
Function Call: WRITE
  • Prompt: !,ECDT,?25,ECPN_" ("_ECV_")",?78,ECUN,!
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: $E(ECLN,1,22),?25,ECDN_" ("_ECID_"/"_ECCSC_"/"_ECCHAR_"/"_ECMCA_")",?78,ECCPT,!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?25,"Primary DX: ",ECDXN
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?25,$S(I>1:$G(ECDXS(I)),1:""),?79,"- ",MOD," ",$P(MODESC,"^",2),!
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: ?25,ECDXS(DXS),!
  • Line Location: PRT+9
Routine Call
  • DIC
  • Line Location:
    • EN+1
Routine Call
  • %ZIS
  • Line Location:
    • DATE+2
Routine Call
  • %ZIS
  • Line Location:
    • DATE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECH - [#721] GET1^DIQ
^ECX(728.44 - [#728.44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SET+10
^DIC(40.7 - [#40.7] SET+11
^ECH - [#721] SUM+5, SET+2, SET+3, SET+19, SET+24, SET+25, SET+32, EXPORT+6, EXPORT+7
^ECH("APAT" SUM+4, SUM+5, SUM+6, EXPORT+5
^SC - [#44] SET+5
^TMP($J EXPORT+3*, EXPORT+4*, EXPORT+10*, EXPORT+13*, EXPORT+14*, EXPORT+15*

Label References

Name Line Occurrences
DATE DATE
END EN+1, DATE, DATE+2, DATE+3, SUM+4
EXPORT SUM+2
FOOTER SUM+7, PAGE+1
HDR1 SUM+5, PAGE+4
PAGE PAGE+3, SET+1, PRT+7
SET SUM+6, EXPORT+8

Naked Globals

Name Field # of Occurrence
^("PCE1" SET+32
^(0 SET+5, SET+10, SET+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
>> %H SUM+3*
%ZIS DATE+2!*
%ZIS("A" DATE+2*
CNT EXPORT+1~, EXPORT+2*, EXPORT+3, EXPORT+4, EXPORT+9*, EXPORT+10, EXPORT+13, EXPORT+14, EXPORT+15
DATE SUM+4*, SUM+5, SUM+6*, EXPORT+1~, EXPORT+5*
DIC EN+1!*
DIC("A" EN+1*
DIC(0 EN+1*
DTIME END+1, PAGE+2
DXS SET+24*, SET+25, PRT+8*, PRT+9*, PRT+10!
DXSIEN SET+25*, SET+26, PRT+10!
ECCHAR SUM+1~, SET+7*, PRT+1, EXPORT+10
>> ECCPT SET+4*, SET+9*, PRT+1, PRT+5, EXPORT+10, EXPORT+12
ECCS SET+13~, SET+14*, SET+15, SET+26
ECCSC SUM+1~, SET+6*, PRT+1, EXPORT+10
>> ECD SET+4*, SET+5, SET+6, SET+7, SET+8
>> ECDATE DATE+1*, HDR1+2
>> ECDFN EN+1*, SUM+4, SUM+5, SUM+6, EXPORT+5
>> ECDN SET+5*, PRT+1, EXPORT+10
>> ECDT SET+4*, SET+22*, PRT, EXPORT+10
>> ECDX SET+4*, SET+15
ECDXN SET+15*, SET+16*, PRT+2, PRT+10!, EXPORT+14
ECDXS PRT+10!
ECDXS( SET+28, SET+29*, SET+30*, PRT+6, PRT+7!, PRT+9
ECDXSN SET+26*, SET+27*, SET+28, SET+30, SET+31, PRT+10!
>> ECEC SET+2*, SET+4, SET+9, SET+14, SET+15, SET+17, SET+19, SET+26, PRT+5, EXPORT+12
>> ECED DATE*, DATE+1*, SUM+6, EXPORT+5
ECEI SUM+1~, SET+24*, SET+31*
ECEPN SUM+1~, SET+9*, SET+19*, EXPORT+10
ECEXDS SUM+1~, EXPORT+8!
ECEXDS( SET+31*, EXPORT+15
ECFN SUM+5*, SUM+6*, SET+2, SET+3, SET+19, SET+20, SET+24, SET+25, SET+32, EXPORT+1~
, EXPORT+5*, EXPORT+6, EXPORT+7
>> ECGUI END
ECI SET+24*, SET+28*, SET+29, SET+30, PRT+10!
>> ECID SET+4*, SET+11*, PRT+1, EXPORT+10
>> ECL SUM+5*, SET+4*, SET+10
>> ECLN SET+10*, PRT+1, EXPORT+10
ECMCA SUM+1~, SET+8*, PRT+1, EXPORT+10
>> ECMOD SET+32*, PRT+4, PRT+8, EXPORT+12
>> ECOUT SUM+6*, PAGE+2*, SET+1, PRT+4, PRT+7
>> ECPAT EN+1*, SUM+4, HDR1+2, EXPORT+10
ECPCODE SUM+1~, SET+18*, SET+19*, EXPORT+10
>> ECPN SET+17*, PRT
>> ECPS SET+9*, SET+17
>> ECPTYP SUM+2, SET+1, SET+33
>> ECRDT SUM+3*
>> ECSD DATE*, DATE+1*, SUM+4, SUM+6, EXPORT+5
>> ECU SET+20*
>> ECUN SET+20*, SET+21*, PRT, EXPORT+14
>> ECV SET+4*, PRT, EXPORT+10
I PRT+4*, PRT+6, PRT+7, PRT+10!, EXPORT+1~, EXPORT+11*, EXPORT+12, EXPORT+15*
IO SUM+4
IO("Q" DATE+2!, DATE+3!
IOF SUM+4, END+2, HDR1+1
ION DATE+3
IOP DATE+2!
IOSL SET+1, PRT+7
IOST END+1, PAGE+2
>> LINE HDR1+5*
MOD PRT+4*, PRT+5, PRT+6, PRT+10!, EXPORT+1~, EXPORT+12*
MODESC PRT+5*, PRT+6, PRT+10!, EXPORT+1~, EXPORT+12*, EXPORT+13
POP DATE+2!
U SET+9, SET+16, SET+19, SET+27, EXPORT+7, EXPORT+10, EXPORT+12, EXPORT+13, EXPORT+14, EXPORT+15
>> X END+1*, PAGE+1, PAGE+2*, PAGE+3
>> Y EN+1, DATE, SUM+3
>> ZTDESC DATE+3*
>> ZTIO DATE+3*
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN DATE+3*
>> ZTSAVE("ECDATE" DATE+3*
>> ZTSAVE("ECDFN" DATE+3*
>> ZTSAVE("ECED" DATE+3*
>> ZTSAVE("ECPAT" DATE+3*
>> ZTSAVE("ECSD" DATE+3*
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