;DUR/PPS code counter - called from set logic in ABSP NCPDP Field Defs
; repeating field on the DUR/PPS 5.1 segment -
; Since this is the .01 field - we also need to set the cross ref
; here as well
FLD475
;DUR Co-agent ID Qualifier - called from set logic in ABSP NCPDP Field
; Defs repeating field on the DUR/PPS 5.1 segment
FLD320
;Employer Phone Number
COLSTATE()
FLD474
;DUR/PPS level of effort - called from set logic in ABSP NCPDP Field
; Defs repeating field on the DUR/PPS 5.1 segment
;Employer Name
; 3.2/5.1 Set Code - called by set command in ABSP NCPDP Field Defs
FLD316
;Employer Street Address
; 3.2/5.1 Set Code - called by set command in ABSP NCPDP Field DEfs
STATE(STATE)
;EP IHS/SD/lwj 10/28/02 retrieve the state license number
; This code will replace the COLSTATE code.
; Incoming - the two character state abbreviation for the state
; license we need
; Outgoing - the licence number if found, or the default Medicaid #
FLD476
;DUR Co-agent ID - called from set logic in ABSP NCPDP Field
; Defs repeating field on the DUR/PPS 5.1 segment
FLD439
;Reason for service code
FLD441
;Result of Service Code
NEW416()
; IHS/SD/lwj 8/30/02 NCPDP 5.1
; Field 416 is obsolete in version 5.1 - BUT - the logic that
; is used in 5.1 is similiar for populating 3.2 claims that
; use field 416. So - we will use this routine only until
; 3.2 is obsolete.
FLD317
;Employer City Address
FLD308
;Other Coverage Code
; 3.2/5.1 Set code - called by set command in ABSP NCPDP Field Defs