BPSOPR2 ;ALB/PHH - OPECC Productivity Report Compiler ;9/21/2015
Source file <BPSOPR2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COMPILE | ; Entry point for the compile to build the scratch global
; This may be a background task if the job is queued. |
|
| BUILD | ; Build report
|
|
| PRTSGTOT(BPSIDX,BPSDIV,BPSUSER) | ; Print grand/subtotals
|
|
| PRTUTOT(BPSIDX,BPSDIV,BPSUSER) | ; Print user totals
|
|
| TOTTRN(BPSDIV,BPSUSER) | ; Get total transactions for a user
|
|
| PRTSGHDR(BPSSHDR,BPSIDX,BPSSGHTX) | ; Print subtotals/grand header
|
|
| SUBINIT(BPSSHDR) | ; Set up subtotals header
|
|
| FIND | ; Find records
|
|
| CALCREJ(BPSDIV,BPSUSER,BPRX,BPREF,BPSCOB) | ; Calculate reject counts
; Returns 1 if reject found, otherwise returns 0 |
|
| ECMENUM(BP57) | ; ECME number
; Returns ECME number from 9002313.02 as: ; 7 or 12 digits of the prescription IEN file 52 ; or 12 spaces |
|
| GETRXFCI(BPSDIV,BPRX,BPREF,BPSCOB) | ; Get general RXFC info
; Returns: paid amount ^ total transactions ^ IEN of 57 ^ transaction ; type of last matching BP57 found |
|
| SORT | ; Sort report based on divison or user
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
