;NCPDP 5.1 - this subroutine will loop through the DUR/PPS repeating
; fields and load their values into the ABSP array for the claim
; generation process
PAVALUE()
;NCPDP 5.1 - IHS/SD/lwj 9/4/03 Payors do not want the Prior Auth
; segment if there is no data on it (contrary to other segments)
; This routine will check to see if there is information for processing.
ASCII(CLAIMIEN)
;EP - from ABSPOSQH from ABSPOSQG from ABSPOSQ2
DIAGVAL
;NCPDP 5.1 - loops through the diagnosis code repeating
; fields and loads their values into the ABSP array for the claim
; generation process