Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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)

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call