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

Package: DSS Extracts

Routine: ECXAPHAP


Information

ECXAPHAP ;ALB/TMD-Pharmacy Extracts Unusual Volumes Report ;6/1/17 15:46

Source Information

Source file <ECXAPHAP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
PREV ;Line label added in patch 144. Come here when running previous fiscal year logic for this report
BEGIN ; display report description
SELECT ; user inputs for report option, threshold volume and date range
PROCESS ; entry point for queued report
PRINT ; process temp file and print report
CLOSE ;
HEADER ;header and page control
SIG(ORDNO,PATNO) ;Get ordering instructions for unit dose order. API added in patch 136

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132-column format."
  • Line Location: PREV+3
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: PREV+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"This report prints a listing of unusual volumes that would be"
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !,"generated by the pharmacy extracts (PRE, IVP and UDP) as"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !,"determined by a user defined threshold value. It shoud be run"
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !,"prior to the generation of the actual extract(s) to identify and"
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"fix as necessary any volumes determined to be erroneous."
  • Line Location: BEGIN+6
Function Call: WRITE
  • Prompt: !!,"Unusual volumes are defined as follows:"
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !!,"PRE Extract: Quantity field greater than the threshold value."
  • Line Location: BEGIN+8
Function Call: WRITE
  • Prompt: !,"IVP Extract: Total Doses Per Day field greater than the threshold"
  • Line Location: BEGIN+9
Function Call: WRITE
  • Prompt: !,?14,"or less than the negative of the threshold value."
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !,"UDP Extract: Quantity field greater than threshold value."
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: !!,"Note: The threshold can be set after a report is selected."
  • Line Location: BEGIN+12
Function Call: WRITE
  • Prompt: !!,"Run times for this report will vary depending upon the size of"
  • Line Location: BEGIN+13
Function Call: WRITE
  • Prompt: !,"the extract and could take as long as 30 minutes or more to"
  • Line Location: BEGIN+14
Function Call: WRITE
  • Prompt: !,"complete. This report has no effect on the actual extracts and"
  • Line Location: BEGIN+15
Function Call: WRITE
  • Prompt: !,"can be run as needed."
  • Line Location: BEGIN+16
Function Call: WRITE
  • Prompt: !!,"The report is sorted by Feeder Key, descending Volume, and SSN."
  • Line Location: BEGIN+17
Function Call: WRITE
  • Prompt: "Choose the report you would like to run."
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !!,"The default threshold volume for the ",ECXTL," extract is ",ECTHLD,"."
  • Line Location: SELECT+9
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
  • Line Location: SELECT+17
Function Call: WRITE
  • Prompt: !!,?8,"No unusual volumes to report for this extract"
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CLOSE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,ECXTL_" Pre-Extract Unusual Volume Report - Previous FY logic",?124,"Page: "_PG
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART,?97,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"End Date: ",ECEND,?97,"Threshold Value = ",ECTHLD
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"Name",?11,"SSN",?21,"Day",?29,"Generic Name",?71,"Feeder Key"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: ?93,"Total Doses",?121,"Total Cost",!,?95,"Per Day"
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: ?96,"Quantity",?121,"Total Cost"
  • Line Location: HEADER+15
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
55.06 GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call