| [613] | 1 | FBFHLS1 ;OIFO/SAB-BUILD HL7 MESSAGE SEGMENTS (CONTINUED) ;9/9/2003
|
|---|
| 2 | ;;3.5;FEE BASIS;**61**;JULY 18, 2003
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | CHKREQ ; Check for required fields
|
|---|
| 7 | ; input
|
|---|
| 8 | ; FBAAIN - invoice number (or 0 if number not known)
|
|---|
| 9 | ; FBTTYP - transaction type (C,L, or X)
|
|---|
| 10 | ; FBD( array of invoice data - see FBFHLS for more info
|
|---|
| 11 | ; output
|
|---|
| 12 | ; if problems found
|
|---|
| 13 | ; ^TMP($J,"FBE",invoice number,seq number)=error text
|
|---|
| 14 | ;
|
|---|
| 15 | ; CLX transaction type
|
|---|
| 16 | ; CLX station number
|
|---|
| 17 | ; CLX FPPS claim
|
|---|
| 18 | ; CL invoice date
|
|---|
| 19 | ; X cancellation date
|
|---|
| 20 | ; CL FPPS line
|
|---|
| 21 | ;
|
|---|
| 22 | N FBI
|
|---|
| 23 | ;
|
|---|
| 24 | ; check for required claim level data
|
|---|
| 25 | I "^C^L^X^"'[(U_$P($G(FBD(0,"INV")),U,2)_U) D POST^FBFHLU(FBAAIN,"E","INVALID TRANSACTION TYPE")
|
|---|
| 26 | I $P($G(FBD(0,"INV")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING INVOICE NUMBER")
|
|---|
| 27 | I $P($G(FBD(0,"FPPS")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING FPPS CLAIM ID")
|
|---|
| 28 | I "^C^L^"[(U_FBTTYP_U),$P($G(FBD(0,"DT")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING INVOICE DATE")
|
|---|
| 29 | I "^X^"[(U_FBTTYP_U),$P($G(FBD(0,"CAN")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING CANCELLATION DATE")
|
|---|
| 30 | ;
|
|---|
| 31 | ; check for required line level data
|
|---|
| 32 | I "^C^L^"[(U_FBTTYP_U) D
|
|---|
| 33 | . S FBI=0 F S FBI=$O(FBD(FBI)) Q:'FBI D
|
|---|
| 34 | . . I $P($G(FBD(FBI,"FPPS")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING FPPS LINE ITEM")
|
|---|
| 35 | . . I $P($G(FBD(FBI,"AMT")),U,2)>0,$P($G(FBD(FBI,"CK")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING CHECK NUMBER")
|
|---|
| 36 | ;
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | ;FBFHLS1
|
|---|
