PSOREJP5 ;ALB/BNT - Third Party Reject Additional Reject Information Screen ;02/14/11
Source file <PSOREJP5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for PSO REJECT DISPLAY ADDTNL INFO
|
|
| ADDTXT | ; Entry point for DUR Hidden action
|
|
| ISDUR(RX,REJ) | ;
; Returns 1 if there is DUR PPS RESPONSE data for the reject |
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| LABEL(FIELD) | ; Sets the label for the field
|
|
| SET(FIELD,L,UND,TXT) | ; Sets the lines for fields that require text wrapping
|
|
| SETLN(TEXT,REV,UND,HIG) | ; Sets a line to be displayed in the Body section
|
|
| RXCOB(RX,REJ) | ; Return the COB Indicator for the reject
; Input: RX = RX IEN ; REJ = Reject Info multiple IEN |
|
| RESPIEN(RX,REJ) | ; Return the RESPONSE ID from the Reject Info multiple
; Input: RX = RX IEN ; REJ = Reject Info multiple IEN |
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| REJ | ; - DUR Information - called from REJ^PSOREJP1
; this code moved from PSOREJP1, routine was too large |
|
| PSOETEC(RX,FILL) | ; Returns flag for TRICARE or CHAMPVA non-billable claims
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
