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

Package: Event Capture

Routine: ECPAT


Information

ECPAT ;BIR/MAM,JPW - Event Capture Patient Summary ;10/12/17 08:47

Source Information

Source file <ECPAT.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Event Capture 4 ^ECKILL  $$GETPPRV^ECPRVMUT  REASON^ECRUTL  $$MOD^ECUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 4 ^%DT  YX^%DTC  ^DIC  ($$GET1,GETS)^DIQ  
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 ECPAT SUM  ECRRPT  

Entry Points

Name Comments DBIA/ICR reference
SET ; set ^TMP($J,"ECPAT")
PAT ; entry point
DATE
SUM ; entry when queued
END
HDR ; print heading
PAGE ; end of page
HDR1 ; print heading without categories
FOOTER ;print page footer
BRO ;ask prt with category or without
EXPORT ;Section added in 119

External References

Name Field # of Occurrence
^%DT DATE
YX^%DTC SUM+3
^%ZIS DATE+3
HOME^%ZIS DATE+5
^%ZISC END+3
^%ZTLOAD DATE+5
^DIC PAT+1
$$GET1^DIQ SET+60, EXPORT+10
GETS^DIQ SET+32
^ECKILL SUM+2, END, END+3
$$GETPPRV^ECPRVMUT SET+5
REASON^ECRUTL DATE+2
$$MOD^ECUTL SET+42
$$CPT^ICPTCOD SET+18
$$FMTE^XLFDT SET+28, DATE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?91,"- ",MD," ",$P(ECMOD(MD),U,3),!
  • Line Location: SET+47
Function Call: WRITE
  • Prompt: ?32,ECON,?87,ECUN
  • Line Location: SET+49
Function Call: WRITE
  • Prompt: !,ECPRSN2
  • Line Location: SET+52
Function Call: WRITE
  • Prompt: !,ECPRSN3
  • Line Location: SET+53
Function Call: WRITE
  • Prompt: ?36,"- ",MD," ",$P(ECMOD(MD),U,3),!
  • Line Location: SET+58
Function Call: WRITE
  • Prompt: ?32,ECON,?94,ECUN
  • Line Location: SET+61
Function Call: WRITE
  • Prompt: !,ECPRSN2
  • Line Location: SET+64
Function Call: WRITE
  • Prompt: !,ECPRSN3
  • Line Location: SET+65
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+3
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: !!,"Press <RET> to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,?32,"EVENT CAPTURE PATIENT SUMMARY FOR "_ECPAT,!,?32,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!,?32,"Run Date : ",ECRDT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"PROCEDURE DATE/TIME",?32,"CATEGORY",?87,"PROCEDURE",!,?87,"PROCEDURE (CPT) MODIFIER",!,"LOCATION",?32,"DSS UNIT NAME (IEN)",!,?32,"SERVICE",?87,"SECTION"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?32,"ORDERING SECTION",?87,"PROVIDER",!
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
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: @IOF,!!,?32,"EVENT CAPTURE PATIENT SUMMARY FOR "_ECPAT,!,?36,"FROM "_$P(ECDATE,"^")_" TO "_$P(ECDATE,"^",2),!,?36,"Run Date : ",ECRDT
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !!,"PROCEDURE DATE/TIME",?32,"PROCEDURE(VOLUME)",!,?32,"PROCEDURE (CPT) MODIFIER",!,"LOCATION",?32,"DSS UNIT NAME (IEN)"
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: !,?32,"CLINIC",?64,"STOP",?70,"CREDIT",?78,"CHAR4",?85,"MCA",!,?32,"SERVICE",?85,"LABOR",?94,"SECTION"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: ?32,"ORDERING SECTION",?85,"CODE",?94,"PROVIDER",!
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR1+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:
    • PAT+1
Routine Call
  • %ZIS
  • Line Location:
    • DATE+3
Routine Call
  • %ZIS
  • Line Location:
    • DATE+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^ECH - [#721] GETS^DIQ
^ECX(728.442 - [#728.442] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] SET+26
^DIC(49 - [#49] SET+11
^EC(725 - [#725] SET+16, SET+22, EXPORT+11
^EC(726 - [#726] SET+12
^ECC(723 - [#723] SET+9, SET+10
^ECD - [#724] SET+25
^ECH - [#721] SET+3, SET+42, SUM+5, EXPORT+6
^ECH("APAT" SUM+4, SUM+5, SUM+6, EXPORT+5, EXPORT+6, EXPORT+7
^ECJ - [#720.3] SET+14
^ECJ("AP" SET+13
^ECX(728.44 - [#728.44] SET+37
^ECX(728.441 - [#728.441] SET+59, EXPORT+10
^TMP($J EXPORT+3*, EXPORT+4*, EXPORT+10*, EXPORT+11*

Label References

Name Line Occurrences
BRO SUM+5, EXPORT+6
DATE DATE
END PAT+1, DATE, DATE+3, DATE+5, SUM+4
EXPORT SUM+2
FOOTER SUM+7, PAGE+1
HDR SUM+5, PAGE+4
HDR1 SUM+5, PAGE+4
PAGE SET+2, SET+47, SET+58, PAGE+3
SET SUM+6, EXPORT+8

Naked Globals

Name Field # of Occurrence
^(0 SET+9, SET+10, SET+11, SET+12, SET+25, SET+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
%H SUM+1~, SUM+3*
%ZIS DATE+3!*
%ZIS("A" DATE+3*
CLNODE SET+37*, SET+59, SET+60, SUM+1~, EXPORT+10
CNT EXPORT+1~, EXPORT+2*, EXPORT+3, EXPORT+4, EXPORT+9*, EXPORT+10, EXPORT+11
DATE SET+28, SUM+4*, SUM+5, SUM+6*, EXPORT+1~, EXPORT+5*, EXPORT+6, EXPORT+7*
DIC PAT+1!*
DIC("A" PAT+1*
DIC(0 PAT+1*
DTIME END+2, PAGE+2
EC725 SET+1~, SET+22*, SET+23
ECACLN SET+36*, SET+59, SUM+1~, EXPORT+10
>> ECC SET+4*, SET+12, SET+13
>> ECCN SET+12*, SET+44
>> ECCPT SET+16*, SET+17, SET+18*, SET+19*, SET+24, EXPORT+11
>> ECD SET+4*, SET+13, SET+25, SET+48, SET+59, EXPORT+10
>> ECDATE DATE+1*, HDR+4, HDR1+3
>> ECDFN PAT+1*, SUM+4, SUM+5, SUM+6, EXPORT+5, EXPORT+6, EXPORT+7, EXPORT+10
>> ECDN SET+25*, SET+48, SET+59, EXPORT+10
>> ECDT SET+28*, SET+44, SET+55, EXPORT+10
>> ECEC SET+3*, SET+4, SET+8, SET+11, SET+18
>> ECED DATE*, DATE+1*, SUM+6, EXPORT+7
ECEPN SET+23*, EXPORT+1~, EXPORT+11
>> ECFILE SET+15*, SET+16, SET+20, SET+21, SET+23, EXPORT+11
>> ECFN SET+3, SET+5, SET+32, SET+33, SET+34, SET+35, SET+36, SET+37, SET+42, SUM+5*
, SUM+6*, EXPORT+6*, EXPORT+7*
>> ECGUI END
>> ECL SET+4*, SET+13, SET+26, SUM+5*, EXPORT+6*
>> ECLN SET+26*, SET+48, SET+59, EXPORT+10
ECLNK SET+31~
>> ECM SET+8*, SET+9
>> ECMN SET+9*, SET+48, SET+60, EXPORT+11
ECMOD SET+41!, SET+42
ECMOD( SET+46, SET+47, SET+57, SET+58
>> ECMODF SET+41*, SET+42*, SET+45, SET+56
>> ECN SET+54, SUM+5, PAGE+4, BRO+1*
>> ECO SET+8*, SET+10
>> ECON SET+10*, SET+49, SET+51, SET+61, SET+63, EXPORT+11
>> ECOUT SET+2, SET+45, SET+46, SET+47, SET+56, SET+57, SET+58, SUM+6*, END+1, PAGE+2*
>> ECP SET+4*, SET+6, SET+13, SET+15, SET+16, SET+22, EXPORT+11
>> ECPAT PAT+1*, SUM+4, HDR+4, HDR1+3, EXPORT+10
>> ECPN SET+20*, SET+22*, SET+23, SET+24*, SET+44, SET+55
ECPRSN SET+33*, SET+51, SET+63, SUM+1~, EXPORT+11
ECPRSN2 SET+34*, SET+52, SET+64, SUM+1~, EXPORT+11
ECPRSN3 SET+35*, SET+53, SET+65, SUM+1~, EXPORT+11
>> ECPSY SET+13*, SET+14
>> ECPSYN SET+14*, SET+23, SET+24
>> ECPTYP SET+2, SET+40, SUM+2
ECPXD SET+1~, SET+16*, SET+18*, SET+20
ECRAR SET+31~
ECRAR(721 SET+33, SET+34, SET+35, SET+36, SET+37
>> ECRDT SUM+3*, HDR+4, HDR1+3
>> ECRY SET+49, SET+50, SET+61, SET+62, DATE+4, HDR+7, HDR1+9, EXPORT+4, EXPORT+11
>> ECS SET+11*
>> ECSD DATE*, DATE+1*, SUM+4, SUM+6, EXPORT+5, EXPORT+7
>> ECSN SET+11*, SET+48, SET+60, EXPORT+11
>> ECU SET+5*
>> ECUN SET+5*, SET+27*, SET+49, SET+51, SET+61, SET+63, EXPORT+11
>> ECV SET+4*, SET+44, SET+55, EXPORT+11
>> ECY SET+43, SUM+5, PAGE+4
>> I SUM+6*, EXPORT+7*
IO SUM+4
IO("Q" DATE+3!, DATE+4, DATE+5!
IOF SUM+4, END+3, HDR+3, HDR1+3
ION DATE+5
IOP DATE+3!
IOSL SET+2, SET+47, SET+58
IOST END+2, PAGE+2
>> LINE HDR+8*, HDR1+10*
MD SET+45*!, SET+46*, SET+47, SET+56*!, SET+57*, SET+58
POP DATE+3!
U SET+23, SET+47, SET+58, SET+59, SET+60, EXPORT+10, EXPORT+11
>> X END+2*, PAGE+1, PAGE+2*, PAGE+3
>> Y PAT+1, DATE, SUM+3
>> ZTDESC DATE+5*
>> ZTIO DATE+5*
>> ZTQUEUED END+3
>> ZTREQ END+3*
>> ZTRTN DATE+5*
>> ZTSAVE("ECDATE" DATE+5*
>> ZTSAVE("ECDFN" DATE+5*
>> ZTSAVE("ECED" DATE+5*
>> ZTSAVE("ECPAT" DATE+5*
>> ZTSAVE("ECRY" DATE+4*
>> ZTSAVE("ECSD" DATE+5*
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