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 |