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
Print Page as PDF
Routine: ECXDRUG1

Package: DSS Extracts

Routine: ECXDRUG1


Information

ECXDRUG1 ;ALB/TMD-Pharmacy Extracts Incomplete Feeder Key Report ;5/9/19 16:47

Source Information

Source file <ECXDRUG1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point
BEGIN ; display report description
SELECT ; user inputs for report option and date range
PROCESS ; entry point for queued report
PRINT ; process temp file and print report
CLOSE ;
HEADER ; header and page control

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report requires 132 column format."
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"No device selected...exiting.",!
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: @IOF,!,"This report prints a listing of Drug File (#50) entries that will generate",!,"incomplete Feeder keys in the three Pharmacy Extracts. This listing",!,"can be used to identify and fix Drug File entries. "
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: "The number of extract",!,"records, total, quantity, unit price and total cost for each drug are",!,"included to aid in determining the impact of the incomplete Feeder Keys."
  • Line Location: BEGIN+2
Function Call: WRITE
  • Prompt: !!,"This report is broken into 3 sections as follows:"
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !!,"Section 1: No PSNDF VA Product Name Entry (first 5 digits are zero)."
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !!,"Section 2: No National Drug Code (NDC) (last 12 digits are zero) or the NDC",!,?12,"is prefixed with an 'S', indicating possible supply item number",!,?12,"or UPC."
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !!,"Section 3: No PSNDF VA Product Name Entry or NDC."
  • Line Location: BEGIN+10
Function Call: WRITE
  • Prompt: !!,"Run times for this report will vary depending upon the size of the extract and",!,"could take as long as 30 minutes or more to complete. This report has no effect",!,"on the actual extracts and can be run as needed."
  • Line Location: BEGIN+11
Function Call: WRITE
  • Prompt: "Choose the report you would like to run."
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !!,"Enter the date range for which you would like to scan the ",ECXTL,!,"Extract records."
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !!,?8,"No drugs to report for this section",!
  • Line Location: PRINT+22
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 Incomplete Feeder Key Report",?124,"Page: "_PG
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Start Date: ",ECSTART
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"End Date: ",ECEND,?97,"Report Run Date/Time: "_ECRUN
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !!,"Drug",?8,"Generic Name",?60,"Feeder Key",?79,"# of",?89,"Total",?107,"Unit",?122,"Total"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Entry",?79,"Records",?89,"Quantity",?107,"Price",?122,"Cost"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !!,"No PSNDF VA Product Name Entry (Five leading zeros)",!
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !!,"No National Drug Code (NDC) (Last 12 zeros, 'N/A', or 'S' prefix)",!
  • Line Location: HEADER+14
Function Call: WRITE
  • Prompt: !!,"No PSNDF VA Product Name Entry or National Drug Code (NDC)",!
  • Line Location: HEADER+15
Info |  Source |  Entry Points |  Interaction Calls