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

Package: DSS Extracts

Routine: ECXPLBB


Information

ECXPLBB ;DALOI/KML - DSS BLOOD BANK PRE-EXTRACT AUDIT REPORT ;5/31/17 16:32

Source Information

Source file <ECXPLBB.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
DSS Extracts 3 ^ECXKILL  (AUDRPT,SETUP)^ECXLBB1  ($$EXPORT,EXPDISP)^ECXUTL1  
Kernel 3 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMTE,$$HL7TFM)^XLFDT  
VA FileMan 3 ^%DT  EN^DIQ1  ^DIR  

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 2 ECX LBB PRE-EXTRACT  ECX LBB SOURCE AUDIT  

Entry Points

Name Comments DBIA/ICR reference
START ; entry point from tasked job
; get LAB DATA and build temporary global ^TMP("ECXLBB",$J)
OUTPUT ; entry point called by EN tag
PRINT ;
HED ;
DATES ;
QUE ;
EN(ECXJOB,ECSD,ECED) ; entry point used primarily for testing
; input:
; ECXJOB = $J that is assigned to the 2nd subscript of
; the temporary global array containing the
; extracted data that feeds the pre-extract
; audit report
; ECSD = starting date range representing the FM
; date used to retrieve data from file #63
; ECED = ending date range representing the FM date
; used to retrieve data from file #63
; syntax of the call: D EN^ECXPLBB(541571372,3000101,3000131)

External References

Name Field # of Occurrence
^%DT DATES+16, DATES+19
^%ZIS QUE+9
HOME^%ZIS QUE+9
^%ZTLOAD QUE+9
EN^DIQ1 DATES+12
^DIR PRINT+3
^ECXKILL ECXPLBB+15, OUTPUT+8
AUDRPT^ECXLBB1 START+9
SETUP^ECXLBB1 ECXPLBB+4
$$EXPORT^ECXUTL1 ECXPLBB+8
EXPDISP^ECXUTL1 ECXPLBB+14
$$FMTE^XLFDT ECXPLBB+10, OUTPUT+3, PRINT+1, PRINT+6, DATES+24, QUE+2
$$HL7TFM^XLFDT PRINT+1, PRINT+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Retrieving records... "
  • Line Location: START+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,$P(ECXSTR,"^",5),?11,$P(ECXSTR,"^",4),?26,$P(ECXSTR,"^",16)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?37,$$FMTE^XLFDT($$HL7TFM^XLFDT($P(ECXSTR,"^",8)),2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?49,$P(ECXSTR,"^",11),?60,$J(+$P(ECXSTR,"^",12),2)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"Laboratory Blood Bank (LBB) Pre-Extract Audit Report",?72,"Page",$J(ECPG,3)
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !,ECSDN," - ",ECEDN,?58,"Run Date:",$J(ECRDT,12)
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,?37,"Transf",?57,"Number"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !,"Name",?14,"SSN",?25,"FDR LOC",?37,"Date",?49,"COMP"
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: ?57,"of Units"
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,ECLINE
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: @IOF,!,"Laboratory Blood Bank (LBB) Pre-Extract Audit Report Information for DSS",!!
  • Line Location: DATES+4
Function Call: WRITE
  • Prompt: !,"**NOTE: This audit can only be run prior to the LBB Extract being generated."
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: !,"If you have already generated your LBB Extract, refer to the Processing "
  • Line Location: DATES+7
Function Call: WRITE
  • Prompt: !,"Guide Chapter 4 section on Regenerating.**",!
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !!,"The ending date cannot be earlier than the starting date.",!,"Please try again.",!!
  • Line Location: DATES+21
Function Call: WRITE
  • Prompt: !!,"Beginning and ending dates must be in the same month and year.",!,"Please try again.",!!
  • Line Location: DATES+22
Function Call: WRITE
  • Prompt: !!,"The Blood Bank information has already been extracted through ",$$FMTE^XLFDT(ECLDT),".",!,"Please enter a new date range.",!!
  • Line Location: DATES+24
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+9
Function Call: WRITE
  • Prompt: !,$C(7),"REQUEST QUEUED",!,"Task #: ",$G(ZTSK)
  • Condition for execution: $D(ZTSK)
  • Line Location: QUE+9
Routine Call
  • DIR
  • Line Location:
    • PRINT+3
Routine Call
  • %ZIS
  • Line Location:
    • QUE+9
Routine Call
  • %ZIS
  • Line Location:
    • QUE+9

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(728 - [#728] DATES+9, DATES+13
^TMP("ECXLBB" START+6!, OUTPUT+1, OUTPUT+5, OUTPUT+6, OUTPUT+7
^TMP($J ECXPLBB+11!, ECXPLBB+12*, PRINT+1*

Label References

Name Line Occurrences
DATES ECXPLBB+6
HED OUTPUT+4, PRINT+4
OUTPUT EN+11
PRINT OUTPUT+7
QUE ECXPLBB+16
START ECXPLBB+13

Naked Globals

Name Field # of Occurrence
^( OUTPUT+7, DATES+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATES+16!*, DATES+19!*
%DT("A" DATES+16*, DATES+19*
>> %ZIS QUE+9*
CHKFLG DATES+1~
CNT ECXPLBB+5~, ECXPLBB+12*, PRINT+1*
DA DATES+11*, DATES+12!
DIC DATES+11*, DATES+12!
DIQ DATES+11*, DATES+12!
DIQ(0 DATES+11*
DIR PRINT+3!
DIR(0 PRINT+3*
DR DATES+11*, DATES+12!
DT OUTPUT+3
EC66 START+3~
ECADMT START+2~
ECARRY START+3~
ECD START+3~
>> ECDATE OUTPUT+2*, OUTPUT+6*, OUTPUT+7
ECED ECXPLBB+7, ECXPLBB+10, OUTPUT+3, DATES+15*, DATES+23*, QUE+2, EN~
>> ECEDN ECXPLBB+10*, OUTPUT+3*, HED+3, QUE+2*, QUE+8
ECERR START+3~
>> ECFILE ECXPLBB+4
>> ECHEAD DATES+3*
ECINOUT START+3~
>> ECINST DATES+9*, DATES+10, DATES+11, DATES+12*
>> ECLDT DATES+13*, DATES+14*, DATES+24
ECLINE START+2~, OUTPUT+2*, HED+7
>> ECNODE DATES+2*, DATES+13
ECOUT START+2~, DATES+15*, DATES+17*, DATES+20*, DATES+25*
>> ECPACK QUE+8
ECPG START+2~, OUTPUT+2*, HED+1*, HED+2
>> ECPIECE DATES+13
ECQUIT START+2~, OUTPUT+2*, OUTPUT+5, OUTPUT+6, OUTPUT+7, PRINT+2, PRINT+3*
ECRDT START+2~, OUTPUT+3*, HED+3
ECSD ECXPLBB+7, ECXPLBB+10, OUTPUT+3, DATES+15*, DATES+18*, DATES+21, DATES+22, DATES+24, QUE+2, EN~
>> ECSD1 ECXPLBB+10*, QUE+2*
>> ECSDN ECXPLBB+10*, OUTPUT+3*, HED+3, QUE+2*, QUE+8
ECTODT START+2~
ECTRFDT START+3~
ECTRFTM START+3~
ECTRSP START+2~
ECX START+3~
ECXDFN START+3~, OUTPUT+2*, OUTPUT+5*, OUTPUT+6, OUTPUT+7
ECXDIC DATES+11!, DATES+12!
ECXDIC(4 DATES+12
ECXINST ECXPLBB+5~, DATES+10*
ECXJOB START+3~, START+5*, START+6, OUTPUT+1, OUTPUT+5, OUTPUT+6, OUTPUT+7, EN~
ECXLOGIC START+4~
ECXPOP ECXPLBB+16~*, QUE+9*
ECXPORT ECXPLBB+5~, ECXPLBB+8*, START+8, OUTPUT+1, OUTPUT+4, OUTPUT+8, PRINT+1
ECXREC START+4~, OUTPUT+2*, OUTPUT+7*
ECXRPT START+2~, START+9*
ECXSTR START+2~, OUTPUT+7*, PRINT+1, PRINT+5, PRINT+6, PRINT+7
I QUE+9!
IO START+7
IO("Q" QUE+9!
IOF OUTPUT+4, PRINT+4, DATES+4
>> IOP QUE+9*
IOSL PRINT+2
IOST START+8, OUTPUT+4, PRINT+3
OUT DATES+1~
>> POP QUE+9
U PRINT+1, DATES+9, DATES+13
>> X QUE+4*, QUE+5*, QUE+6*, QUE+7*
>> Y PRINT+3, DATES+17, DATES+18, DATES+20, DATES+21, DATES+22, DATES+23
>> ZTDESC QUE+8*
ZTIO QUE+8*, QUE+9!
ZTRTN QUE+8*, QUE+9!
ZTSAVE QUE+1!, QUE+3!, QUE+9!
ZTSAVE( QUE+4*, QUE+5*, QUE+6*, QUE+7*
ZTSK QUE+9!
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