source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBFHLS1.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1FBFHLS1 ;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 ;
6CHKREQ ; 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
Note: See TracBrowser for help on using the repository browser.