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

Package: Event Capture

Routine: ECRPCLS


Information

ECRPCLS ;ALB/JAP - Event Capture Invalid Provider Report ;12/10/12 16:10

Source Information

Source file <ECRPCLS.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$LJ,$$RJ)^XLFSTR  $$GET^XUA4A72  
VA FileMan 3 DD^%DT  (,NOW)^%DTC  ^DIR  
Event Capture 2 ^ECKILL  ($$ENDDT,$$STDT)^ECRUTL  

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 ECRPERS  ECRRPT1  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from menu option
START ;queued entry point or continuation
RANGE ;get any date range between T and T-365
SORT ;ask user if report should be alpha by patient (P) or
; alpha by provider (R)
DEVICE ;get device and queue
PROCESS ;process the "AC" x-ref in file #721
PRINT ;output report
HEAD ;report header
SUBHDA ;subheader for sort by patient
SUBHDB ;subheader for sort by provider
EXIT ;common exit point & clean-up
EXPORT ;119 Put data in excel format

External References

Name Field # of Occurrence
DD^%DT PRINT+5, PRINT+6
^%DTC RANGE+9
NOW^%DTC PRINT+6
^%ZIS DEVICE+1
HOME^%ZIS EN+15
^%ZISC START+5, EXIT+2
^%ZTLOAD DEVICE+6
^DIR SORT+13, DEVICE+2, DEVICE+7, DEVICE+8, PRINT+10, PRINT+24, HEAD+3
^ECKILL EXIT+1
$$ENDDT^ECRUTL RANGE+15
$$STDT^ECRUTL RANGE+7
$$LJ^XLFSTR PROCESS+19, PRINT+19, PRINT+20
$$RJ^XLFSTR PROCESS+23
$$GET^XUA4A72 PROCESS+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,?5,"Enter a Begin Date and End Date for this Event Capture "
  • Line Location: RANGE+2
Function Call: WRITE
  • Prompt: !,?5,"provider report -- both dates must be within the past "
  • Line Location: RANGE+3
Function Call: WRITE
  • Prompt: !,?5,"365 days.",!
  • Line Location: RANGE+4
Function Call: WRITE
  • Prompt: !!,"No device selected. Exiting...",!!
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"Report canceled..."
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,PATIENT_" "_PROVIDER
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,PROVIDER_" "_PATIENT
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,?12,"Event Capture Providers with Inactive/Missing Person Class"
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,?12,"for the Date Range "_ECBEGIN_" through "_ECEND
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !!,"Printed: "_PRNTDT,?65,"Page: "_PAGE,!
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: !,?27,"Date of"
  • Line Location: SUBHDA+1
Function Call: WRITE
  • Prompt: !,"Patient",?21,"SSN",?27,"Procedure",?43,"Provider",?75,"Err."
  • Line Location: SUBHDA+2
Function Call: WRITE
  • Prompt: !,DASH,!
  • Line Location: SUBHDA+3
Function Call: WRITE
  • Prompt: !,?65,"Date of"
  • Line Location: SUBHDB+1
Function Call: WRITE
  • Prompt: !,"Provider",?32,"Err.",?38,"Patient",?59,"SSN",?65,"Procedure"
  • Line Location: SUBHDB+2
Function Call: WRITE
  • Prompt: !,DASH,!
  • Line Location: SUBHDB+3
Routine Call
  • DIR
  • Line Location:
    • SORT+13
    • DEVICE+2
    • DEVICE+7
    • DEVICE+8
    • PRINT+10
    • PRINT+24
    • HEAD+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+1
Routine Call
  • %ZIS
  • Line Location:
    • EN+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+20
^ECH - [#721] PROCESS+11
^ECH("AC" PROCESS+8, PROCESS+10
^TMP("ECRPCLS" PROCESS+7!, PROCESS+25*, PROCESS+27*, PRINT+8, PRINT+13, PRINT+15, PRINT+17, EXIT+3!, EXPORT+4, EXPORT+5
EXPORT+7, EXPORT+9
^TMP($J EXPORT+3*, EXPORT+11*
^VA(200 - [#200] PROCESS+22

Label References

Name Line Occurrences
DEVICE EN+10
EXIT EN+3, EN+6, EN+7, EN+11, EN+12, EN+13, EN+16, START+2, START+4, START+6
EXPORT START+2
HEAD PRINT+7, PRINT+21
PRINT START+3
PROCESS START+1
RANGE EN+2
SORT EN+5
START EN+14
SUBHDA HEAD+20
SUBHDB HEAD+21

Naked Globals

Name Field # of Occurrence
^( PRINT+17, EXPORT+9
^(0 PROCESS+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+6
>> %ZIS DEVICE+1*
CNT EXPORT+1~, EXPORT+2*, EXPORT+3, EXPORT+11*
DASH PRINT+2~, PRINT+4*, SUBHDA+3, SUBHDB+3
DIR EN+8!, SORT+2!, DEVICE+2!, DEVICE+7!, DEVICE+8!, PRINT+10!, HEAD+3!, EXIT+4!
DIR("?" SORT+4*
DIR("A" SORT+5*, SORT+6*, SORT+7*, SORT+8*, SORT+9*, SORT+10*, SORT+11*, SORT+12*
DIR(0 SORT+3*, DEVICE+2*, DEVICE+7*, DEVICE+8*, PRINT+10*, PRINT+24*, HEAD+3*
DIRUT EN+6, EN+8!, SORT+14, EXIT+4!
DT RANGE+9, RANGE+17
DTOUT EXIT+4!
DUOUT EN+8!, EXIT+4!
ECBEGIN EN+3, RANGE+5*, RANGE+6, RANGE+8*, RANGE+9, RANGE+12*, RANGE+13, PROCESS+7, PROCESS+13, PRINT+5*
HEAD+7, EXIT+4!
ECD PROCESS+6~, PROCESS+18*, PROCESS+19
ECDATA PROCESS+6~, PROCESS+11*, PROCESS+12, PROCESS+14, PROCESS+20, PRINT+3~, PRINT+17*, PRINT+18, EXPORT+1~, EXPORT+9*
EXPORT+10
ECDATE PROCESS+6~, PROCESS+19*, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+18*, PRINT+20, EXPORT+1~, EXPORT+10*, EXPORT+11
ECDDT PROCESS+6~, PROCESS+12*, PROCESS+18
ECDT PROCESS+6~, PROCESS+7*, PROCESS+8*, PROCESS+10, PROCESS+12
ECEND EN+3, RANGE+5*, RANGE+14, RANGE+16*, RANGE+17, RANGE+20*, PROCESS+8, PROCESS+13, PRINT+5*, HEAD+7
EXIT+4!
ECENDDT RANGE+1~, RANGE+16
ECERR PROCESS+6~, PROCESS+17*, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+18*, PRINT+19, EXPORT+1~, EXPORT+10*, EXPORT+11
>> ECGUI START+4, EXIT+2
ECIEN PROCESS+6~, PROCESS+9*, PROCESS+10*, PROCESS+11, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+17*, EXPORT+1~, EXPORT+9*
ECLOOP EN+3, RANGE+6, RANGE+7*, RANGE+13, RANGE+14, RANGE+15*, EXIT+4!
ECPIEN PROCESS+6~, PROCESS+15*, PROCESS+16, PROCESS+17, PROCESS+22, PROCESS+23
ECPRDT PROCESS+6~, PROCESS+12*, PROCESS+13, PROCESS+17
ECPRIEN PROCESS+6~, PROCESS+23*, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+18*, PRINT+19, EXPORT+1~, EXPORT+10*, EXPORT+11
ECPRVN PROCESS+6~, PROCESS+22*, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+14*, PRINT+16*, PRINT+19, EXPORT+1~, EXPORT+6*
EXPORT+8*, EXPORT+11
ECPT PROCESS+6~, PROCESS+20*
ECPTN PROCESS+6~, PROCESS+20*, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+14*, PRINT+16*, PRINT+20, EXPORT+1~, EXPORT+6*
EXPORT+8*, EXPORT+11
>> ECPTYP START+2
ECS PROCESS+6~, PROCESS+21*
ECSORT EN+7, SORT+15*, PROCESS+25, PROCESS+27, PRINT+14, PRINT+16, PRINT+22, PRINT+23, HEAD+20, HEAD+21
EXIT+4!, EXPORT+6, EXPORT+8
ECSSN PROCESS+6~, PROCESS+21*, PROCESS+25, PROCESS+27, PRINT+3~, PRINT+18*, PRINT+20, EXPORT+1~, EXPORT+10*, EXPORT+11
ECSTDT RANGE+1~, RANGE+8, RANGE+15
ECT PROCESS+6~, PROCESS+18*, PROCESS+19*
ECU PROCESS+6~, PROCESS+14*, PROCESS+15
ECU2 PROCESS+6~, PROCESS+14*, PROCESS+15
ECU3 PROCESS+6~, PROCESS+14*, PROCESS+15
IO START+3, START+5
IO("Q" EN+13, DEVICE+3, EXIT+5!
IO(0 START+5
IOF PRINT+12, PRINT+24, PRINT+26, HEAD+4
IOP DEVICE+1!
IOSL PRINT+21
IOST PRINT+10, PRINT+12, PRINT+24, PRINT+26, HEAD+2, HEAD+3, HEAD+4
JJ PRINT+2~, PRINT+11*, PRINT+25*, HEAD+2*, EXPORT+1~
PAGE PRINT+2~, PRINT+4*, HEAD+3, HEAD+5*, HEAD+8, HEAD+9
PATIENT PRINT+2~, PRINT+20*, PRINT+22, PRINT+23
POP EN+11, DEVICE+2, EXIT+5!
PRNTDT PRINT+2~, PRINT+6*, HEAD+8
PROVIDER PRINT+2~, PRINT+19*, PRINT+22, PRINT+23
QFLAG PRINT+2~, PRINT+4*, PRINT+10, PRINT+24, HEAD+3*
SS PRINT+2~, PRINT+11*, PRINT+25*, HEAD+2*, EXPORT+1~
U EXPORT+11
X RANGE+9, EXIT+5!
X1 RANGE+1~, RANGE+9*, PRINT+2~, PRINT+13*, PRINT+14, PRINT+15, PRINT+17, EXPORT+1~, EXPORT+5*, EXPORT+6
EXPORT+7, EXPORT+9
X2 RANGE+1~, RANGE+9*, PRINT+2~, PRINT+15*, PRINT+16, PRINT+17, EXPORT+1~, EXPORT+7*, EXPORT+8, EXPORT+9
Y SORT+15, PRINT+5*, PRINT+6*, HEAD+3, EXIT+5!
ZTDESC DEVICE+4*, EXIT+5!
>> ZTQUEUED START+6
>> ZTREQ START+6*
ZTRTN DEVICE+4*, EXIT+5!
ZTSAVE EXIT+5!
ZTSAVE("ECBEGIN" DEVICE+5*
ZTSAVE("ECEND" DEVICE+5*
ZTSAVE("ECSORT" DEVICE+5*
ZTSK EN+12, EN+13, DEVICE+7, DEVICE+8, EXIT+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All