IBCNERP7 ;DAOU/BHS - eIV STATISTICAL REPORT ;10-JUN-2002
Source file <IBCNERP7.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
; Init vars |
|
S10 | ||
S20 | ||
S30 | ||
S50 | ;D DEVICE^IBCNERP1(IBCNERTN,.IBCNESPC,IBOUT) I STOP G:$$STOP^IBCNERP1 EXIT G S20
|
|
EXIT | ; Quit this routine
|
|
DTMRNG | ; Determine the start and end date/times for the report
; Init vars |
|
DTMRNG0 | ;/ckb - IB*2*687 - Added the DTMRNG0 tag.
|
|
DTMRNG1 | ||
DTMRNGX | ; DTMRNG exit pt
|
|
SECTS | ; Prompt to allow users to include the available sections in the report
; Init vars |
|
SECTSX | ; SECTS exit pt
|
|
MAILMSG | ; Tag to be called by TaskMan to generate report with default values
; and send as MailMan message ; Init vars |
|
OUT() | ; Prompt to allow users to select output format
|
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 |
|
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | GET1^DIQ |