IBNCPDRB ;ALB/CFS - ROI EXPIRATION REPORT ;21-SEP-15
Source file <IBNCPDRB.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
REPORT(RPTNAME,DATESEL,AIB,IBEXCEL) | ;
; RPTNAME = Report name ; DATESEL = Earliest and Latest expiration dates selected by user (format: earliest^latest) ; AIB = "A" - User chose to display Active statuses only ; "I" - User chose to display on Inactive statuses only ; "B" - User chose to display Active and Inactive statuses ; IBEXCEL = 1 if the user requested to print in EXCEL format; 0 otherwise |
|
EXCELHDR | ;
; Print headers in EXCEL format. |
|
HEADER | ;
|
|
GETTMP | ;
; Get the data from the scratch global. |
|
EXCELN(PATNAME,DOD,EFFDATE,EXPDATE,STATUS,ADDED,USERNAME,INSNAME,DRUGNAME) | ;
; Display data in EXCEL format |
|
WRTDATA(PATNAME,DOD,EFFDATE,EXPDATE,STATUS,ADDED,USERNAME,INSNAME,DRUGNAME) | ;
; Display the data to screen or to ListMan Queued report depending on user request. |
|
PAUSE() | ;
; Press RETURN to continue or '^' to exit. |
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 |
|