| [613] | 1 | IBCBB4 ;ALB/BGA - CONT OF MEDICARE EDIT CHECKS ;08/05/98
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**51,137**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified
|
|---|
| 4 | ;
|
|---|
| 5 | ; Admission Date
|
|---|
| 6 | ; Required when type of bill 11x,18x, or 21x
|
|---|
| 7 | ; If admit date>IBFDT then error
|
|---|
| 8 | I IBCTYP D Q:IBQUIT
|
|---|
| 9 | . I (IBEVDT\1)>(IBFDT\1) S IBQUIT=$$IBER^IBCBB3(.IBER,125) Q:IBQUIT
|
|---|
| 10 | . I $P(IBEVDT,".",2)="",$P(IBNDU,U,20)="" D WARN^IBCBB11("Admit time is still the default of midnight - update to actual time")
|
|---|
| 11 | ;
|
|---|
| 12 | ; Type of Admission
|
|---|
| 13 | ; required when bill type is 11x
|
|---|
| 14 | I IBTOB12=11,'$P(IBNDU,U,8) S IBQUIT=$$IBER^IBCBB3(.IBER,126) Q:IBQUIT
|
|---|
| 15 | ;
|
|---|
| 16 | ; Source of Admission
|
|---|
| 17 | ; If bill type 11x,12x,13x,14x,18x,83x
|
|---|
| 18 | I "^11^12^13^14^18^83^"[(U_IBTOB12_U),'$P(IBNDU,U,9) D
|
|---|
| 19 | . I '$$INPAT^IBCEF(IBIFN,1) D WARN^IBCBB11("No source of admission: '2 - CLINIC REFERRAL' will be used") Q ; Outpatient default
|
|---|
| 20 | . S IBQUIT=$$IBER^IBCBB3(.IBER,127) Q:IBQUIT ; Inpatient required
|
|---|
| 21 | ;
|
|---|
| 22 | ; Patient Status (discharge status)
|
|---|
| 23 | ; required when bill type 11x,13x,18x,21x,32x,33x,81x,82x,83x
|
|---|
| 24 | I IBPATST="" D Q:IBQUIT
|
|---|
| 25 | . Q:"^11^13^18^21^32^33^81^82^83^"'[(U_IBTOB12_U)
|
|---|
| 26 | . ;
|
|---|
| 27 | . I '$$INPAT^IBCEF(IBIFN,1),$$FT^IBCEF(IBIFN)=3 D Q
|
|---|
| 28 | .. D WARN^IBCBB11("No discharge status: '01 - DISCHARGED TO HOME OR SELF CARE' will be used")
|
|---|
| 29 | .. S IBPATST="01"
|
|---|
| 30 | . ;
|
|---|
| 31 | . S IBQUIT=$$IBER^IBCBB3(.IBER,128)
|
|---|
| 32 | ; Check valid values for patient status
|
|---|
| 33 | 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
|
|---|
| 34 | ;
|
|---|
| 35 | D ^IBCBB5
|
|---|
| 36 | Q
|
|---|
