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

Package: DSS Extracts

Routine: ECXBSC


Information

ECXBSC ;ALB/DAN - Validate stop codes in extracts ;6/14/18 10:53

Source Information

Source file <ECXBSC.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 5 ^%DT  ^DIC  ($$GET1,GETS)^DIQ  EN^DIQ1  ^DIR  
DSS Extracts 4 $$RADDIV^ECXDEPT  STOP^ECXSTOP  ($$EXPORT,EXPDISP)^ECXUTL1  DEVICE^ECXUTLA  
Kernel 3 HOME^%ZIS  ^%ZISC  ($$FMTE,$$NOW)^XLFDT  

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
DSS Extracts 1 ECXBSC  
Event Capture 1 ECXBSC  

Entry Points

Name Comments DBIA/ICR reference
EN
PROCESS ;
GETFLDS(ARR) ;Get data
HEADER ;

External References

Name Field # of Occurrence
^%DT PROCESS+8
HOME^%ZIS EN+38
^%ZISC EN+37
^DIC EN+9
$$GET1^DIQ GETFLDS+4, GETFLDS+8
GETS^DIQ GETFLDS+3
EN^DIQ1 EN+12
^DIR EN+4, EN+20, HEADER+5
$$RADDIV^ECXDEPT GETFLDS+4
STOP^ECXSTOP PROCESS+9
$$EXPORT^ECXUTL1 EN+22
EXPDISP^ECXUTL1 EN+26
DEVICE^ECXUTLA EN+31
$$FMTE^XLFDT PROCESS+4
$$NOW^XLFDT PROCESS+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"This option will identify extract records with an invalid or inactive",!,"stop code."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,?5,"Extract: ",ECXARR(727,ECXDA,2,"E")," #",ECXDA
  • Line Location: EN+13
Function Call: WRITE
  • Prompt: !!,?5,"Start date: ",ECXARR(727,ECXDA,3,"E")
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !,?5,"End date: ",ECXARR(727,ECXDA,4,"E")
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !,?5,"# of Records: ",ECXARR(727,ECXDA,5,"E")
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: !,"This report requires 132 characters to display correctly.",!
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !,"No data to report."
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !,ECXTYPE," Extract Stop Code Audit"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXDA
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN,?120,"Page: ",$G(PG)
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !!,"SEQUENCE",?10,"FACILITY",?20,"SSN",?25,"NAME",?31,"DAY",?41,"FEEDER KEY",$S(ECXTYPE="Radiology":" (IEN from file 71)",1:""),?72,"FEEDER",?80,"ENCOUNTER",?98,"STOP",?104,"CLINIC",?118,"CLINIC"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,?10,"NUMBER",?72,"LOC",?80,"NUMBER",?98,"CODE",?104,"IEN",?118,"STOP CODE"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+13
Routine Call
  • DIC
  • Line Location:
    • EN+9
Routine Call
  • DIR
  • Line Location:
    • EN+4
    • EN+20
    • HEADER+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(40.8 - [#40.8] GET1^DIQ
^RAMIS(71 - [#71] GET1^DIQ
^ECX(727 - [#727] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX( PROCESS+6, PROCESS+7, PROCESS+8
^TMP($J EN+23!, EN+24*, EN+27!, PROCESS+1!, PROCESS+10*, PROCESS+13, PROCESS+14, PROCESS+17*, PROCESS+18

Label References

Name Line Occurrences
GETFLDS PROCESS+15
HEADER PROCESS+13, PROCESS+19
PROCESS EN+25, EN+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT PROCESS+8*
ARR EN~, PROCESS+15!, GETFLDS~
ARR("CIEN" PROCESS+17, PROCESS+18, GETFLDS+11*
ARR("CSTOP" PROCESS+17, PROCESS+18, GETFLDS+12*
ARR("DAY" PROCESS+17, PROCESS+18, GETFLDS+7*
ARR("EN" PROCESS+17, PROCESS+18, GETFLDS+10*
ARR("FACILITY" PROCESS+17, PROCESS+18, GETFLDS+4*
ARR("FK" PROCESS+17, PROCESS+18, GETFLDS+8*
ARR("FL" PROCESS+17, PROCESS+18, GETFLDS+9*
ARR("NAME" PROCESS+17, PROCESS+18, GETFLDS+6*
ARR("SSN" PROCESS+17, PROCESS+18, GETFLDS+5*
CNT EN~, EN+24*, PROCESS+17*
DA EN~, EN+11*
DIC EN~, EN+8*, EN+11*, PROCESS+2~
DIC("S" EN+8*
DIC(0 EN+8*
DIQ EN~, EN+11*
DIQ(0 EN+11*
DIR EN~, EN+7!, HEADER+1~, HEADER+5!
DIR("?" EN+4*
DIR("A" EN+4*, EN+20*
DIR("B" EN+20*
DIR("L" EN+2*, EN+3*
DIR(0 EN+4*, EN+20*, HEADER+5*
DIRUT EN~, EN+5
DR EN~, EN+11*
DTOUT EN~
DUOUT EN~
ECXARR EN~, GETFLDS+1~
ECXARR( GETFLDS+4, GETFLDS+5, GETFLDS+6, GETFLDS+7, GETFLDS+8, GETFLDS+9, GETFLDS+10, GETFLDS+11, GETFLDS+12
ECXARR(727 EN+13, EN+14, EN+15, EN+16, EN+17, EN+19
ECXDA EN~, EN+11*, EN+13, EN+14, EN+15, EN+16, EN+17, EN+19, PROCESS+6, PROCESS+17
HEADER+9
ECXDESC EN+29*, EN+31, EN+35!
ECXDT PROCESS+2~, PROCESS+8*, PROCESS+9
ECXERR PROCESS+2~, PROCESS+10, PROCESS+11!
ECXFILE PROCESS+2~, PROCESS+5*, PROCESS+6, PROCESS+7, PROCESS+8, GETFLDS+3, GETFLDS+4, GETFLDS+5, GETFLDS+6, GETFLDS+7
, GETFLDS+8, GETFLDS+9, GETFLDS+10, GETFLDS+11, GETFLDS+12
ECXPGM EN+29*, EN+31, EN+35!
ECXPORT EN~, EN+22*, PROCESS+13, PROCESS+16
ECXRUN PROCESS+2~, PROCESS+4*, HEADER+10
ECXSAVE EN+31, EN+35!
ECXSAVE("*" EN+29*
ECXSAVE("POP" EN+32
ECXSAVE("ZTSK" EN+34
ECXSC PROCESS+2~, PROCESS+7*, PROCESS+9, PROCESS+10
ECXSEQ PROCESS+2~, PROCESS+6*, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+14*, PROCESS+17, PROCESS+18, GETFLDS+3, GETFLDS+4
, GETFLDS+5, GETFLDS+6, GETFLDS+7, GETFLDS+8, GETFLDS+9, GETFLDS+10, GETFLDS+11, GETFLDS+12
ECXTYPE EN~, EN+6*, EN+24, PROCESS+5, PROCESS+7, PROCESS+17, GETFLDS+2, GETFLDS+4, GETFLDS+8, GETFLDS+9
, GETFLDS+10, GETFLDS+11, GETFLDS+12, HEADER+8, HEADER+11
ERR PROCESS+2~, PROCESS+11!
FLDS GETFLDS+1~, GETFLDS+2*, GETFLDS+3
IO EN+37
>> IO(0 EN+37
IOF EN+1, HEADER+7
IOSL PROCESS+19
IOST HEADER+3, HEADER+7
JJ HEADER+1~, HEADER+4*
LN HEADER+1~, HEADER+2*, HEADER+13
PG PROCESS+2~, PROCESS+3*, HEADER+5, HEADER+7*, HEADER+10
QFLG PROCESS+2~, PROCESS+3*, PROCESS+14, HEADER+5*, HEADER+6
SS HEADER+1~, HEADER+4*
U PROCESS+7, PROCESS+8, PROCESS+17
WARNING PROCESS+2~, PROCESS+11!
WRN PROCESS+2~, PROCESS+11!
X EN~, PROCESS+2~, PROCESS+8*
Y EN~, EN+10, EN+11, EN+17, PROCESS+2~, PROCESS+8, HEADER+5
Y(0 EN+6
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