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 |