IBUCMM ;WOIFO/AAT-IBUC VISIT SUMMARY/DETAIL REPORT;30-JUL-02
Source file <IBUCMM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ASKDEV | ; Ask about output device and print the report (or run task)
|
|
RUNTASK | ; Start Taskman job
|
|
DATE | ||
DATAGN | ;Loop entry point
|
|
FIRST(IBDT) | ||
LAST(IBDT) | ||
NOW() | ||
ASKDT(IBPRMT,IBDFLT) | ;Date input
|
|
GETPRMPT(IBPRMPT) | ;
|
|
GETEXCEL() | ; 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. |
|
PRTEXCEL() | ;Print the MS Excel instructions.
|
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 |
|