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

Package: DSS Extracts

Routine: ECXPHAA


Information

ECXPHAA ;ALB/JRC Pharmacy DSS Extract UDP/IVP Source Audit Report ;3/13/18 14:33

Source Information

Source file <ECXPHAA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
EN1 ;Init variables
EXIT
REPORT ;Select report
DIVISION ;Prompt for division
; Set Divisions into screen array (prompt is one/many/all)
DATES ;Prompt for start date
HEADER ;Print header
GETIDATA ;Get data from pharmacy IVP intermediate files
GETUDATA ;Get unit dose data from intermediate file 728.904
DETAIL ;Print report
WAIT ;End of page logic
GETWARD() ;170 Section added to find ward at time of IV when ward is incorrectly set to 0 in pharmacy

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$S(REPORT=2:"UDP",REPORT=1:"IVP",1:"")_" Source Audit Report",?70,"PAGE: "_PAGE
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"Run Date: "_$$FMTE^XLFDT(DT)
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!,"Start Date: "_$$FMTE^XLFDT(SDATE)
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"End Date: "_$$FMTE^XLFDT(EDATE)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,?1,"Division",?24,"Date",?39,"Record Count"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(42 - [#42] GET1^DIQ
^SC - [#44] Classic Fileman Calls
55.01 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call