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

Package: Integrated Billing

Routine: IBNCPDRA


Information

IBNCPDRA ;ALB/CFS - ROI EXPIRATION REPORT ;21-SEP-15

Source Information

Source file <IBNCPDRA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE() ; Beginning expiration date and ending expiration date selection prompts.
SELAIB() ; (A)ctive, (I)nactive or (B)oth selection prompt.
EXCEL() ; Export the report to MS Excel?
; Function return values:
; 0 - User selected "No" at prompt.
; 1 - User selected "Yes" at prompt.
; ^ - User aborted.
; This function allows the user to indicate whether the report should be
; printed in a format that could easily be imported into an Excel
; spreadsheet. If the user wants to print in EXCEL format, the variable
; IBEXCEL will be set to '1', otherwise IBEXCEL will be set to '0' for "No"
; or "^" to abort.
DEVICE() ; Device selection.
COMPILE(RPTNAME,DATESEL,AIB,IBEXCEL) ; Compile the report.
; RPTNAME = Report Name
; DATESEL = The earliest and latest expiration dates (format: earliest^latest).
; AIB = Active, Inactive or Both.
; IBEXCEL = 1 if user requested to display in EXCEL format; 0 otherwise.
GETDATA(DATES,AIB) ; Get the data from ^IBT(356.25)
; DATES = The earliest and latest expiration dates (format: earliest^latest).
; AIB = Active, Inactive or Both
DRUG(DRUGIEN) ; Get drug name
; DRUGIEN = drug ien pointer

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Release of Information Expiration Report",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+19
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS REPORT REQUIRES THAT A DEVICE WITH 132 COLUMN WIDTH BE USED."
  • Line Location: DEVICE+5
Function Call: WRITE
  • Prompt: !,"IT WILL NOT DISPLAY CORRECTLY USING 80 COLUMN WIDTH DEVICES",!
  • Line Location: DEVICE+6
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: DEVICE+8
Function Call: WRITE
  • Prompt: !?5,"detail report data and save the detail report data in a text file"
  • Line Location: DEVICE+9
Function Call: WRITE
  • Prompt: !?5,"to a local drive. This report may take a while to run."
  • Line Location: DEVICE+10
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the file,"
  • Line Location: DEVICE+11
Function Call: WRITE
  • Prompt: !?11,"please enter '0;256;99999' at the 'DEVICE:' prompt.",!
  • Line Location: DEVICE+12
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: DEVICE+22
Function Call: WRITE
  • Prompt: !,"Compiling Release of Information Expiration Report. Please wait..."
  • Line Location: COMPILE+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDATA+10
Info |  Source |  Entry Points |  Interaction Calls