IBCBB4.m

IBCBB4 ;ALB/BGA - CONT OF MEDICARE EDIT CHECKS ;08/05/98

 ;;2.0;INTEGRATED BILLING;**51,137**;21-MAR-94

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

 ;

 ; Admission Date

 ;   Required when type of bill 11x,18x, or 21x 

 ; If admit date>IBFDT then error

 I IBCTYP D  Q:IBQUIT

 . I (IBEVDT\1)>(IBFDT\1) S IBQUIT=$$IBER^IBCBB3(.IBER,125) Q:IBQUIT

 . I $P(IBEVDT,".",2)="",$P(IBNDU,U,20)="" D WARN^IBCBB11("Admit time is still the default of midnight - update to actual time")

 ;

 ; Type of Admission

 ;    required when bill type is 11x 

 I IBTOB12=11,'$P(IBNDU,U,8) S IBQUIT=$$IBER^IBCBB3(.IBER,126) Q:IBQUIT

 ;

 ; Source of Admission

 ;   If bill type 11x,12x,13x,14x,18x,83x

 I "^11^12^13^14^18^83^"[(U_IBTOB12_U),'$P(IBNDU,U,9) D

 . I '$$INPAT^IBCEF(IBIFN,1) D WARN^IBCBB11("No source of admission: '2 - CLINIC REFERRAL' will be used") Q  ; Outpatient default

 . S IBQUIT=$$IBER^IBCBB3(.IBER,127) Q:IBQUIT  ; Inpatient required

 ;

 ; Patient Status (discharge status)

 ;   required when bill type 11x,13x,18x,21x,32x,33x,81x,82x,83x

 I IBPATST="" D  Q:IBQUIT

 . Q:"^11^13^18^21^32^33^81^82^83^"'[(U_IBTOB12_U)

 . ;

 . I '$$INPAT^IBCEF(IBIFN,1),$$FT^IBCEF(IBIFN)=3 D  Q

 .. D WARN^IBCBB11("No discharge status: '01 - DISCHARGED TO HOME OR SELF CARE' will be used")

 .. S IBPATST="01"

 . ;

 . S IBQUIT=$$IBER^IBCBB3(.IBER,128)

 ; Check valid values for patient status

 I IBPATST'="",("^01^02^03^04^05^06^07^08^09^20^30^50^51^"'[(U_IBPATST_U)) S IBQUIT=$$IBER^IBCBB3(.IBER,131) Q:IBQUIT

 ;

 D ^IBCBB5

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCBB4   1561     printed  Apr 09, 2024@21:21:50                                                                                                                                                                                                      Page 2

IBCBB4    ;ALB/BGA - CONT OF MEDICARE EDIT CHECKS ;08/05/98

 +1       ;;2.0;INTEGRATED BILLING;**51,137**;21-MAR-94

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

 +3       ;

 +4       ; Admission Date

 +5       ;   Required when type of bill 11x,18x, or 21x 

 +6       ; If admit date>IBFDT then error

 +7        IF IBCTYP

               Begin DoDot:1

 +8                IF (IBEVDT\1)>(IBFDT\1)

                       SET IBQUIT=$$IBER^IBCBB3(.IBER,125)

                       if IBQUIT

                           QUIT 

 +9                IF $PIECE(IBEVDT,".",2)=""

                       IF $PIECE(IBNDU,U,20)=""

                           DO WARN^IBCBB11("Admit time is still the default of midnight - update to actual time")

               End DoDot:1

               if IBQUIT

                   QUIT 

 +10      ;

 +11      ; Type of Admission

 +12      ;    required when bill type is 11x 

 +13       IF IBTOB12=11

               IF '$PIECE(IBNDU,U,8)

                   SET IBQUIT=$$IBER^IBCBB3(.IBER,126)

                   if IBQUIT

                       QUIT 

 +14      ;

 +15      ; Source of Admission

 +16      ;   If bill type 11x,12x,13x,14x,18x,83x

 +17       IF "^11^12^13^14^18^83^"[(U_IBTOB12_U)

               IF '$PIECE(IBNDU,U,9)

                   Begin DoDot:1

 +18      ; Outpatient default

                       IF '$$INPAT^IBCEF(IBIFN,1)

                           DO WARN^IBCBB11("No source of admission: '2 - CLINIC REFERRAL' will be used")

                           QUIT 

 +19      ; Inpatient required

                       SET IBQUIT=$$IBER^IBCBB3(.IBER,127)

                       if IBQUIT

                           QUIT 

                   End DoDot:1

 +20      ;

 +21      ; Patient Status (discharge status)

 +22      ;   required when bill type 11x,13x,18x,21x,32x,33x,81x,82x,83x

 +23       IF IBPATST=""

               Begin DoDot:1

 +24               if "^11^13^18^21^32^33^81^82^83^"'[(U_IBTOB12_U)

                       QUIT 

 +25      ;

 +26               IF '$$INPAT^IBCEF(IBIFN,1)

                       IF $$FT^IBCEF(IBIFN)=3

                           Begin DoDot:2

 +27                           DO WARN^IBCBB11("No discharge status: '01 - DISCHARGED TO HOME OR SELF CARE' will be used")

 +28                           SET IBPATST="01"

                           End DoDot:2

                           QUIT 

 +29      ;

 +30               SET IBQUIT=$$IBER^IBCBB3(.IBER,128)

               End DoDot:1

               if IBQUIT

                   QUIT 

 +31      ; Check valid values for patient status

 +32       IF IBPATST'=""

               IF ("^01^02^03^04^05^06^07^08^09^20^30^50^51^"'[(U_IBPATST_U))

                   SET IBQUIT=$$IBER^IBCBB3(.IBER,131)

                   if IBQUIT

                       QUIT 

 +33      ;

 +34       DO ^IBCBB5

 +35       QUIT