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 ---[H[J[2J[HIBCBB4 1561 printed Oct 16, 2024@18:09:35 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
