FBFHLS1.m

FBFHLS1 ;OIFO/SAB-BUILD HL7 MESSAGE SEGMENTS (CONTINUED) ;9/9/2003

 ;;3.5;FEE BASIS;**61**;JULY 18, 2003

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

CHKREQ ; Check for required fields

 ; input

 ;   FBAAIN - invoice number (or 0 if number not known)

 ;   FBTTYP - transaction type (C,L, or X)

 ;   FBD( array of invoice data - see FBFHLS for more info

 ; output

 ;   if problems found

 ;   ^TMP($J,"FBE",invoice number,seq number)=error text

 ;

 ; CLX  transaction type

 ; CLX  station number

 ; CLX  FPPS claim

 ; CL   invoice date

 ;   X  cancellation date

 ; CL   FPPS line

 ;

 N FBI

 ;

 ; check for required claim level data

 I "^C^L^X^"'[(U_$P($G(FBD(0,"INV")),U,2)_U) D POST^FBFHLU(FBAAIN,"E","INVALID TRANSACTION TYPE")

 I $P($G(FBD(0,"INV")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING INVOICE NUMBER")

 I $P($G(FBD(0,"FPPS")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING FPPS CLAIM ID")

 I "^C^L^"[(U_FBTTYP_U),$P($G(FBD(0,"DT")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING INVOICE DATE")

 I "^X^"[(U_FBTTYP_U),$P($G(FBD(0,"CAN")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING CANCELLATION DATE")

 ;

 ; check for required line level data

 I "^C^L^"[(U_FBTTYP_U) D

 . S FBI=0 F  S FBI=$O(FBD(FBI)) Q:'FBI  D

 . . I $P($G(FBD(FBI,"FPPS")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING FPPS LINE ITEM")

 . . I $P($G(FBD(FBI,"AMT")),U,2)>0,$P($G(FBD(FBI,"CK")),U)="" D POST^FBFHLU(FBAAIN,"E","MISSING CHECK NUMBER")

 ;

 Q

 ;

 ;FBFHLS1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBFHLS1   1484     printed  Apr 09, 2024@21:03:24                                                                                                                                                                                                     Page 2

FBFHLS1   ;OIFO/SAB-BUILD HL7 MESSAGE SEGMENTS (CONTINUED) ;9/9/2003

 +1       ;;3.5;FEE BASIS;**61**;JULY 18, 2003

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

CHKREQ    ; Check for required fields

 +1       ; input

 +2       ;   FBAAIN - invoice number (or 0 if number not known)

 +3       ;   FBTTYP - transaction type (C,L, or X)

 +4       ;   FBD( array of invoice data - see FBFHLS for more info

 +5       ; output

 +6       ;   if problems found

 +7       ;   ^TMP($J,"FBE",invoice number,seq number)=error text

 +8       ;

 +9       ; CLX  transaction type

 +10      ; CLX  station number

 +11      ; CLX  FPPS claim

 +12      ; CL   invoice date

 +13      ;   X  cancellation date

 +14      ; CL   FPPS line

 +15      ;

 +16       NEW FBI

 +17      ;

 +18      ; check for required claim level data

 +19       IF "^C^L^X^"'[(U_$PIECE($GET(FBD(0,"INV")),U,2)_U)

               DO POST^FBFHLU(FBAAIN,"E","INVALID TRANSACTION TYPE")

 +20       IF $PIECE($GET(FBD(0,"INV")),U)=""

               DO POST^FBFHLU(FBAAIN,"E","MISSING INVOICE NUMBER")

 +21       IF $PIECE($GET(FBD(0,"FPPS")),U)=""

               DO POST^FBFHLU(FBAAIN,"E","MISSING FPPS CLAIM ID")

 +22       IF "^C^L^"[(U_FBTTYP_U)

               IF $PIECE($GET(FBD(0,"DT")),U)=""

                   DO POST^FBFHLU(FBAAIN,"E","MISSING INVOICE DATE")

 +23       IF "^X^"[(U_FBTTYP_U)

               IF $PIECE($GET(FBD(0,"CAN")),U)=""

                   DO POST^FBFHLU(FBAAIN,"E","MISSING CANCELLATION DATE")

 +24      ;

 +25      ; check for required line level data

 +26       IF "^C^L^"[(U_FBTTYP_U)

               Begin DoDot:1

 +27               SET FBI=0

                   FOR 

                       SET FBI=$ORDER(FBD(FBI))

                       if 'FBI

                           QUIT 

                       Begin DoDot:2

 +28                       IF $PIECE($GET(FBD(FBI,"FPPS")),U)=""

                               DO POST^FBFHLU(FBAAIN,"E","MISSING FPPS LINE ITEM")

 +29                       IF $PIECE($GET(FBD(FBI,"AMT")),U,2)>0

                               IF $PIECE($GET(FBD(FBI,"CK")),U)=""

                                   DO POST^FBFHLU(FBAAIN,"E","MISSING CHECK NUMBER")

                       End DoDot:2

               End DoDot:1

 +30      ;

 +31       QUIT 

 +32      ;

 +33      ;FBFHLS1