IBCNOR2 ;AITC/TAZ - IBCN BUFFER DAILY REPORT ;15-AUG-2023
Source file <IBCNOR2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
DBR | ; Send Daily Buffer Report Email
|
|
DBRX | ; Exit
|
|
;Email a summary version of the report to a select email group
|
||
EMAILX | ; Exit
|
|
EN | ; entry point
|
|
TYPE | ;Type of Report
|
|
IBOUT | ;
|
|
DEVICE | ; Device Handler and possible TaskManager calls
|
|
EXIT | ;
|
|
PROCESS(IBCNSPC) | ;
; Entry point called from EN^XUTMDEVQ in either direct or queued mode. ; Input params: ; IBCNSPC = Array passed by ref of the report params |
|
PROCESSX | ; exit
; Kill scratch globals |
|
SNAPSHOT | ;Grab a snapshot of the data right now.
|
|
BACKLOG(DATE,WED) | ;Calculate Backlog Date to T-6 business days so that T-7 inclusive shows on the report.
|
|
BACKLOGX | ;Exit Backlog Date calculation
|
|
INIT | ;Initialize the ^TMP global
|
|
INITX | ;Exit
|
|
COMPILE | ; Compile the report
|
|
COMPILEX | ; Exit Compile
|
|
UPDATE(LVL,NODE) | ;Increase a node
|
|
UPDATEX | ;Exit
|
|
OLDDATE(LVL,NODE,DATE) | ; Calculate the oldest date for the categories tracked.
|
|
OLDDATEX | ; Exit oldest date calculation
|
|
; Print the report
|
||
PRINTX | ; Exit Print
|
|
FMTDT(DATE) | ;Format the date
|
|
FMTDTX | ;Exit
|
|
WRTLN(TITLE,NODE,DTYPE,LEVEL) | ;Write the line
|
|
WRTLNX | ;Exit
|
|
HDR | ;Print Header
|
|
HDRX | ; Header Exit
|
|
EOP(END) | ; display "end of page" message and set exit flag
|
|
EOPQ | ;
|
|
CATNDT | ; Report categories with no oldest date
|
|
CATWDT | ; Report categories with oldest date
|
|
TOTALS | ;Category Totals
|
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 |
|
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 |
^IBA(355.33 - [#355.33] | GETS^DIQ |