source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCBB4.m@ 811

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

initial load of FOIAVistA 6/30/08 version

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