IBCNERPC ;DAOU/RO - PAYER LINK REPORT - Compile & Print;AUG-2003
Source file <IBCNERPC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COMPILE(IBCNERTN,IBCNESPC) | ; Entry point called from EN^XUTMDEVQ.
; IBCNERTN = Routine name for ^TMP($J,... ; IBCNESPC = Array of params |
|
| COMPILEX | ; COMPILE exit
|
|
| GETDATA | ; Compile the data.
|
|
| GETDATA1 | ; Process the current payer.
|
|
| SORTIT | ; Set SORT params...use the negative of IBCT to sort in reverse order.
|
|
| SAVDATA(APP) | ; Save data to print
|
|
| ;
|
||
| PRINT1 | ; Print report
|
|
| PRINT2 | ;
|
|
| HEADER(APP,HDRNAME,HDRDATE) | ; Report header
|
|
| DATA(DIS) | ; Build disp lines
|
|
| EHDR | ; EXCEL header
|
|
| LINE(DIS) | ; Print data
|
|
| LINEX | ||
| CENTER(LINE,XWIDTH) | ;return centered line OFFSET
; IB*2*687/DTG start change for space |
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBE(365.12 - [#365.12] | GET1^DIQ |
| ^IBE(365.13 - [#365.13] | FIND1^DIC |