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

Package: DSS Extracts

Routine: ECXLBBC


Information

ECXLBBC ;ALB/MRY - LBB Extract Audit Comparative Report ;2/5/15 15:25

Source Information

Source file <ECXLBBC.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
DSS Extracts 5 (,AUDIT)^ECXKILL  (AUDRPT,SETUP)^ECXLBB1  START^ECXLBBC  ($$EXPORT,EXPDISP)^ECXUTL1  (AUDIT,DEVICE)^ECXUTLA  
VA FileMan 4 ^%DT  $$OREF^DILF  EN^DIQ1  ^DIR  
Kernel 3 HOME^%ZIS  ^%ZISC  ($$FMTE,$$HL7TFM)^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: 3

Package Total Caller Graph
DSS Extracts 2 ECX LBB SOURCE AUDIT COMPAR  ECXLBBC  
Event Capture 1 ECX LBB SOURCE AUDIT COMPAR  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point for LBB extract audit comparative report
START ; entry point from tasked job
; get LAB DATA and build temporary global ^TMP("ECXLBB",$J)
OUTPUT ; entry point called by EN tag
PRINT ;
TOTAL ;
HED ;
QUE ;
EXTRACT ;build extract tmp

External References

Name Field # of Occurrence
^%DT EN+39, QUE+3
HOME^%ZIS QUE+21
^%ZISC QUE+20
$$OREF^DILF QUE+9
EN^DIQ1 EN+26
^DIR EN+29, PRINT+5
^ECXKILL EN+44, OUTPUT+27
AUDIT^ECXKILL EN+35, QUE+16, QUE+22
AUDRPT^ECXLBB1 START+7
SETUP^ECXLBB1 EN+2
START^ECXLBBC QUE+19
$$EXPORT^ECXUTL1 EN+38
EXPDISP^ECXUTL1 EN+43
AUDIT^ECXUTLA EN+13
DEVICE^ECXUTLA QUE+12
$$FMTE^XLFDT OUTPUT+6, PRINT+2, PRINT+3, PRINT+10, PRINT+15, QUE+4
$$HL7TFM^XLFDT PRINT+2, PRINT+3, PRINT+10, PRINT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Setup for ",ECXHEAD," Extract Comparative Report --",!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !,"Retrieving records... "
  • Line Location: START+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?3,"***************N*O***D*A*T*A*****************"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,$P(ECXSTRS,"^",5),?11,$P(ECXSTRS,"^",4),?26,$P(ECXSTRS,"^",16)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?37,$$FMTE^XLFDT($$HL7TFM^XLFDT($P(ECXSTRS,"^",8)),2)
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: ?49,$P(ECXSTRS,"^",11),?60,$J(+$P(ECXSTRS,"^",12),2)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?83,"*******N*O***D*A*T*A*********"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: ?80,$P(ECXSTRX,"^",4)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: ?92,$$FMTE^XLFDT($$HL7TFM^XLFDT($P(ECXSTRX,"^",8)),2)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?102,$P(ECXSTRX,"^",11),?113,$J(+$P(ECXSTRX,"^",12),2)
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOTAL+3
Function Call: WRITE
  • Prompt: !,ECLINE1
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !,?47,$J(ECXCLAST_" TOTAL",12),?60,$J(+$G(ECXCOMP(ECXCLAST,"S")),4),?100,$J(ECXCLAST_" TOTAL",12),?113,$J(+$G(ECXCOMP(ECXCLAST,"X")),4)
  • Line Location: TOTAL+9
Function Call: WRITE
  • Prompt: !,"TOTAL",?60,$J(+$G(ECXCOMP("TOTAL","S")),4),?113,$J(+$G(ECXCOMP("TOTAL","X")),4)
  • Line Location: TOTAL+10
Function Call: WRITE
  • Prompt: !,"LBB Extract Comparative Report",?124,"Page",$J(ECPG,3)
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !,ECSDN," - ",ECEDN,?111,"Run Date:",$J(ECRDT,12)
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !!,"------------------ LOCAL BLOOD BANK SOURCE ----------------------"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: ?80,"------------- LBB EXTRACT (#"_ECXARRAY("EXTRACT")_") ---------------"
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,?37,"Transf",?57,"Number",?92,"Transf",?113,"Number"
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,"Name",?14,"SSN",?25,"FDR LOC",?37,"Date",?49,"COMP",?57,"of Units",?80,"SSN",?92,"Date",?102,"COMP",?113,"of Units"
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: !,ECLINE
  • Line Location: HED+8
Function Call: WRITE
  • Prompt: !!,"This report requires a print width of 132 characters.",!!
  • Line Location: QUE+11
Routine Call
  • DIR
  • Line Location:
    • EN+29
    • PRINT+5
Routine Call
  • %ZIS
  • Line Location:
    • QUE+21

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECX(727.829 - [#727.829] EXTRACT+3, EXTRACT+4
^ECX(728 - [#728] EN+23
^TMP("ECXLBBC" START+4!, OUTPUT+2, OUTPUT+8, OUTPUT+14, OUTPUT+15, OUTPUT+16, OUTPUT+17, EXTRACT+10, EXTRACT+11*
^TMP($J EN+40!, EN+41*, PRINT+2*, PRINT+3*, TOTAL+5*, TOTAL+6*, TOTAL+7*

Label References

Name Line Occurrences
EXTRACT START+8
HED OUTPUT+7, PRINT+6
PRINT OUTPUT+24
QUE EN+45
START EN+42
TOTAL OUTPUT+9, OUTPUT+11, OUTPUT+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QUE+2~
%DT EN+3~, QUE+2~
%X EN+3~
%Y EN+3~
CNT EN+1~, EN+41*, PRINT+2, PRINT+3*, TOTAL+5*, TOTAL+6*, TOTAL+7*
DA EN+3~, EN+25*, EN+26!
DIC EN+3~, EN+25*, EN+26!
DIQ EN+3~, EN+25*, EN+26!
DIQ(0 EN+25*
DIR EN+3~, EN+29!, PRINT+5!
DIR("A" EN+28*
DIR("B" EN+29*
DIR(0 EN+28*, PRINT+5*
DIRUT EN+3~, EN+30
DR EN+3~, EN+25*, EN+26!
DT OUTPUT+6
DTOUT EN+3~
DUOUT EN+3~
ECCOUNT EXTRACT+9~*, EXTRACT+10*, EXTRACT+11
ECDATE OUTPUT+1~, OUTPUT+3*, OUTPUT+15*, OUTPUT+16, OUTPUT+17
ECED EN+1~, EN+39*, OUTPUT+6, QUE+3*, QUE+4, EXTRACT+6
ECEDN EN+1~, OUTPUT+6*, HED+3, QUE+4*
>> ECFILE EN+2
>> ECINST EN+23*, EN+24, EN+25, EN+26*
ECLINE OUTPUT+1~, OUTPUT+5*, HED+8
ECLINE1 OUTPUT+1~, OUTPUT+5*, TOTAL+8
ECPG OUTPUT+1~, OUTPUT+3*, HED+1*, HED+2
ECQUIT OUTPUT+1~, OUTPUT+3*, OUTPUT+8, OUTPUT+14, OUTPUT+15, PRINT+4, PRINT+5*
ECRDT OUTPUT+1~, OUTPUT+6*, HED+3
ECSD EN+1~, EN+39*, OUTPUT+6, QUE+3*, QUE+4, EXTRACT+7
>> ECSD1 EN+39*, QUE+4*
ECSDN EN+1~, OUTPUT+6*, HED+3, QUE+4*
ECXALL EN+4~
ECXARRAY EN+4~, EN+13
ECXARRAY("END" EN+37, EN+39, QUE+3
ECXARRAY("EXTRACT" PRINT+3, HED+5, EXTRACT+2
ECXARRAY("START" EN+37, EN+39, QUE+3
ECXAUD EN+4~, EN+10*, EN+13
>> ECXCFLG EN+32*, OUTPUT+9, OUTPUT+11, TOTAL+5, EXTRACT+10, EXTRACT+11
ECXCLAST OUTPUT+1~, OUTPUT+4*, OUTPUT+9, OUTPUT+11, OUTPUT+12*, TOTAL+6, TOTAL+9
ECXCOMP OUTPUT+3*, OUTPUT+8*, OUTPUT+9, OUTPUT+10, OUTPUT+11, OUTPUT+12, OUTPUT+13, OUTPUT+14, OUTPUT+15, OUTPUT+16
OUTPUT+17, OUTPUT+19, OUTPUT+22, EXTRACT+1~, EXTRACT+8*, EXTRACT+10, EXTRACT+11
ECXCOMP( OUTPUT+13*, OUTPUT+19*, OUTPUT+22*, TOTAL+6, TOTAL+9
ECXCOMP("TOTAL" OUTPUT+4*, OUTPUT+20*, OUTPUT+23*, TOTAL+6, TOTAL+10
ECXCRPT START+2~, START+7*
ECXDESC QUE+10*, QUE+12, QUE+18!
ECXDFN OUTPUT+14*, OUTPUT+15, OUTPUT+16, OUTPUT+17, EXTRACT+1~, EXTRACT+4*, EXTRACT+10, EXTRACT+11
ECXDIC EN+25!, EN+26!
ECXDIC(4 EN+26
ECXERR EN+4~, EN+8*, EN+13, EN+14, EN+30*, EN+33
ECXEXT EXTRACT+1~, EXTRACT+2*, EXTRACT+3
ECXHEAD EN+4~, EN+10*, EN+11, EN+13, EN+28
>> ECXINST EN+24*
ECXJOB START+2~, START+3*, START+4, OUTPUT+2, OUTPUT+8, OUTPUT+14, OUTPUT+15, OUTPUT+16, OUTPUT+17
ECXLOGIC START+2~
ECXPGM QUE+10*, QUE+12, QUE+18!
ECXPOP EN+45~*, QUE+13*, QUE+21*
ECXPORT EN+1~, EN+38*, START+6, OUTPUT+2, OUTPUT+7, OUTPUT+26, PRINT+1, TOTAL+4
ECXRPT START+2~, START+7*
ECXSAVE QUE+12, QUE+18!
ECXSAVE( QUE+5*, QUE+6*, QUE+7*, QUE+9*
ECXSAVE("ECXARRAY(" QUE+9*
ECXSAVE("POP" QUE+13
ECXSAVE("SCRNARR" QUE+9*
ECXSAVE("ZTSK" QUE+17
ECXSTOT OUTPUT+1~, OUTPUT+3*, OUTPUT+9*, OUTPUT+11*, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+9
ECXSTRS OUTPUT+1~, OUTPUT+16*, OUTPUT+18, OUTPUT+19, OUTPUT+20, PRINT+2, PRINT+7, PRINT+8, PRINT+9, PRINT+10
PRINT+11
ECXSTRX OUTPUT+1~, OUTPUT+17*, OUTPUT+21, OUTPUT+22, OUTPUT+23, PRINT+3, PRINT+12, PRINT+13, PRINT+14, PRINT+15
PRINT+16
ECXTDT EXTRACT+1~, EXTRACT+5*, EXTRACT+6, EXTRACT+7, EXTRACT+10, EXTRACT+11
ECXTOT OUTPUT+1~, OUTPUT+3*, OUTPUT+25*, TOTAL+5, TOTAL+10
ECXTTM EXTRACT+1~, EXTRACT+8*, EXTRACT+10, EXTRACT+11
FLAG EN+4~, EN+8*
IEN EXTRACT+1~, EXTRACT+3*, EXTRACT+4
IO START+5, QUE+20
IO(0 QUE+20
IOF OUTPUT+7, PRINT+6
IOSL PRINT+4
IOST START+6, OUTPUT+7, PRINT+5
NODE0 EXTRACT+1~, EXTRACT+4*, EXTRACT+5, EXTRACT+8, EXTRACT+11
REPORT EN+3~
SCRNARR EN+3~, EN+4~, EN+6*, EN+7, QUE+9, QUE+15
STATUS EN+4~
TMP EN+4~, QUE+9*
U EN+23, PRINT+2, PRINT+3
X EN+3~, EN+39*, QUE+2~, QUE+3*, QUE+5*, QUE+6*, QUE+7*
Y EN+3~, EN+32, EN+39, PRINT+5, QUE+3
ZTQUEUED EN+5~
ZTSTOP EN+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 |  Local Variables  | All