IBNCPDRA ;ALB/CFS - ROI EXPIRATION REPORT ;21-SEP-15
Source file <IBNCPDRA.m>
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|