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

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

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

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