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

Package: DSS Extracts

Routine: ECXECMDI


Information

ECXECMDI ;ALB/NCD - Event Capture Pre-Extract Missing DSS Identifier Report ;Apr 28, 2022@21:50:31

Source Information

Source file <ECXECMDI.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Kernel 6 HOME^%ZIS  ^%ZISC  $$S^%ZTLOAD  $$FMTE^XLFDT  ($$RJ,$$TITLE)^XLFSTR  EN^XUTMDEVQ  
DSS Extracts 5 $$RADDIV^ECXDEPT  ^ECXKILL  ($$EXPORT,EXPDISP)^ECXUTL1  $$PATDEM^ECXUTL2  $$TSMAP^ECXUTL4  
VA FileMan 4 (,DD)^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Event Capture 1 $$GETPPRV^ECPRVMUT  

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

Package Total Caller Graph
DSS Extracts 1 ECX ECS MISSING DSS ID  

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
START ; Find EC records in the date range
GETREC ;get data for report
PRINT ; Process the TMP file and print the report
PROCESS ; entry point for queued report
HEADER ;header and page control
SS ;SCROLL STOPS
GETDATE ;Get starting and ending date for sort

External References

Name Field # of Occurrence
^%DT GETDATE+5, GETDATE+9
DD^%DT GETDATE+3, GETDATE+8, GETDATE+18
NOW^%DTC GETDATE+3
HOME^%ZIS EN+22
^%ZISC EN+21
$$S^%ZTLOAD PRINT+4
$$GET1^DIQ GETREC+20, GETREC+22, GETREC+26, GETREC+29, GETREC+30, GETREC+34, GETREC+35
^DIR SS+3
$$GETPPRV^ECPRVMUT GETREC+15
$$RADDIV^ECXDEPT GETREC+5
^ECXKILL PROCESS+5
$$EXPORT^ECXUTL1 EN+9
EXPDISP^ECXUTL1 EN+13
$$PATDEM^ECXUTL2 GETREC+11
$$TSMAP^ECXUTL4 GETREC+37
$$FMTE^XLFDT GETREC+13
$$RJ^XLFSTR GETREC+31, GETREC+34, GETREC+35
$$TITLE^XLFSTR GETREC+17
EN^XUTMDEVQ EN+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints a list of records that are missing the DSS Identifier"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"that would be generated by the Event Capture Extract (ECS), so that corrective"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"action can be taken."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"The running of this report has no effect on the actual extracts and "
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"can be run as needed.",!
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"Enter the date range for which you would like to scan the Event Capture records."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"This report is formatted for 132-column line width."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"Enter 'Q' to queue report to TaskManager, then select printer."
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !!,"Queued as Task #"_ZTSK_"."
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !,?1,ECXSSN,?12,ECXPDIV,?25,ECXDSSU,?42,ECXDATE,?69,ECXPRCN,?83,ECXPROV,?105,ECXCLIN,?122,ECXSSID
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !!,?8,"No Event Capture records with missing DSS Identifier to report for the date range.",!!
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,ECXDESC,?103,"Page: "_PG
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART,?92,"Report Run Date: "_ECRUN
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !," End Date: ",ECEND
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,?1,"SSN",?12,"FACILITY",?25,"DSS UNIT IEN",?45,"DATE/TIME",?68,"PROCEDURE",?83,"PROVIDER",?105,"CLINIC IEN",?122,"DSS ID"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SS+2
Routine Call
  • DIR
  • Line Location:
    • SS+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] GET1^DIQ
^SC - [#44] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECD - [#724] GETREC+9, PRINT+14
^ECH - [#721] GETREC+3
^ECH("AC1" START+5, START+6, START+7
^TMP("ECNOSSID" EN+14!, START+4!, GETREC+40*, PRINT+8, PRINT+9, PRINT+10, PROCESS+5!
^TMP($J EN+10!, EN+11*, EN+14!, PRINT+14*

Label References

Name Line Occurrences
GETDATE EN+8
GETREC START+7
HEADER PRINT+6, PRINT+16
PRINT EN+12, PROCESS+4
SS PRINT+20, HEADER+1
START EN+12, PROCESS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, GETDATE+3
%DT GETDATE+3!, GETDATE+5!*, GETDATE+9!*
%DT("A" GETDATE+5*, GETDATE+9*
%DT(0 GETDATE+5*, GETDATE+9*
CNT EN+1~, EN+11*, PRINT+14*
COUNT EN+1~, START+1~, START+3*, GETREC+21*, GETREC+40, PRINT+1~, PRINT+5*, PRINT+9*, PRINT+10, PRINT+19
DATE EN+1~, PRINT+1~, PRINT+7*, PRINT+8*, PRINT+9, PRINT+10, GETDATE+3*, GETDATE+5, GETDATE+9
DIC EN+1~
DIR EN+1~, SS+3!
DIR(0 SS+3*
DONE GETDATE+1~, GETDATE+4*, GETDATE+19*
DTOUT EN+1~
DUOUT EN+1~
ECAC1 GETREC+2~, GETREC+23*, GETREC+26*, GETREC+28, GETREC+29
ECAC1S GETREC+2~, GETREC+23*, GETREC+28*, GETREC+29*, GETREC+31*, GETREC+32*, GETREC+34*, GETREC+36
ECAC2 GETREC+2~, GETREC+23*, GETREC+26*, GETREC+27, GETREC+30
ECAC2S GETREC+2~, GETREC+23*, GETREC+27*, GETREC+28*, GETREC+30*, GETREC+31*, GETREC+32*, GETREC+35*, GETREC+36
ECCH GETREC+1~, GETREC+3*, GETREC+4, GETREC+6, GETREC+7
ECD START+1~, START+5*, START+6*, START+7
ECDA START+1~, START+3*, START+7*, GETREC+3, GETREC+15
>> ECDSS GETREC+36*, GETREC+37*, GETREC+38, GETREC+40
>> ECDT GETREC+6*, GETREC+11, GETREC+13, GETREC+40
ECDU GETREC+2~, GETREC+9*, GETREC+10, GETREC+35
ECED EN+1~, START+3*, START+6, GETDATE+4*, GETDATE+17*
>> ECEND HEADER+6, GETDATE+18*
ECFILE GETREC+1~, GETREC+12*, GETREC+19, GETREC+20
>> ECL GETREC+4*, GETREC+5
ECLL START+1~, START+2*, START+5*, START+6, START+7
ECP GETREC+6*, GETREC+8, GETREC+12, GETREC+20, PRINT+2~
>> ECPN GETREC+19*
>> ECRUN HEADER+5, GETDATE+3*
ECSD EN+1~, START+5, GETDATE+4*, GETDATE+7*, GETDATE+11, GETDATE+14
>> ECSD1 GETDATE+7*
>> ECSTART HEADER+5, GETDATE+8*
ECUPCE GETREC+2~, GETREC+10*, GETREC+24, GETREC+33
ECUSTOP GETREC+2~, GETREC+10*, GETREC+34
>> ECXA GETREC+14*, GETREC+24, GETREC+33
ECXASIH GETREC+1~, GETREC+14
ECXCLIN GETREC+1~, GETREC+7*, GETREC+22, GETREC+25, GETREC+26, GETREC+32, GETREC+40, PRINT+2~, PRINT+13*, PRINT+14
, PRINT+15
ECXCLINM GETREC+1~, GETREC+22*, GETREC+40, PRINT+2~, PRINT+13*, PRINT+14
ECXDATE GETREC+13*, GETREC+40, PRINT+2~, PRINT+12*, PRINT+14, PRINT+15
>> ECXDESC EN+15*, EN+19, HEADER+4
>> ECXDFN GETREC+4*, GETREC+11
ECXDSSU PRINT+2~, PRINT+11*, PRINT+14, PRINT+15
ECXDU GETREC+1~, GETREC+6*, GETREC+9, GETREC+40
ECXERR EN+1~, PROCESS+3*
ECXPDIV GETREC+1~, GETREC+5*, GETREC+40, PRINT+2~, PRINT+11*, PRINT+14, PRINT+15
ECXPORT EN+1~, EN+9*, PRINT+6, PRINT+14, PRINT+17
ECXPRCN GETREC+1~, GETREC+20*, GETREC+40, PRINT+2~, PRINT+12*, PRINT+14, PRINT+15
ECXPROV GETREC+1~, GETREC+15*, GETREC+16, GETREC+17, GETREC+18*, GETREC+40, PRINT+2~, PRINT+12*, PRINT+14, PRINT+15
ECXPRV GETREC+15!
>> ECXSAVE EN+19
>> ECXSAVE("EC*" EN+16*
ECXSSID GETREC+1~, PRINT+2~, PRINT+13*, PRINT+14, PRINT+15
ECXSSN GETREC+1~, GETREC+40, PRINT+2~, PRINT+11*, PRINT+14, PRINT+15
>> ECXTS GETREC+37
ECXUNIT GETREC+1~, PRINT+2~
IO EN+21, PRINT+3
IO(0 EN+21
IOF HEADER+3
IOSL PRINT+16
IOST HEADER+3, SS+2, SS+3
JJ SS+1~, SS+2*
LN PRINT+1~, PRINT+5*, HEADER+8
>> N1 GETREC+17*, GETREC+18
>> N2 GETREC+17*, GETREC+18
PG PRINT+1~, PRINT+5*, HEADER+1, HEADER+3*, HEADER+4, SS+3
>> POP EN+20
QFLG EN+1~, EN+8, PRINT+1~, PRINT+5*, PRINT+6, PRINT+8, PRINT+16, PRINT+18, PROCESS+1~, PROCESS+4*
, HEADER+1, HEADER+2, SS+3*, GETDATE+2*, GETDATE+4, GETDATE+6*, GETDATE+10*
REC PRINT+1~, PRINT+10*, PRINT+11, PRINT+12, PRINT+13
SS SS+1~, SS+2*
U GETREC+4, GETREC+6, GETREC+7, GETREC+10, GETREC+15, GETREC+35, GETREC+40, PRINT+11, PRINT+12, PRINT+13
, PRINT+14
X EN+1~, START+1~, GETREC+15*, PRINT+1~, GETDATE+3
Y EN+1~, START+1~, PRINT+1~, SS+3, GETDATE+1~, GETDATE+3*, GETDATE+6, GETDATE+7, GETDATE+8, GETDATE+10
, GETDATE+11, GETDATE+14, GETDATE+17, GETDATE+18
ZTQUEUED EN+1~, PRINT+4
ZTREQ PRINT+4!, PROCESS+2*
ZTSK EN+1~, EN+23
>> ZTSTOP PRINT+4*
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 |  Local Variables  | All