| 1 | IBAGMT ;WOIFO/AAT-GEOGRAPHIC MEANS TEST UTILITIES ;7-JUN-02
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**179,183,202**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | ;GMT Effective Date
|
|---|
| 8 | ;~~~~~~~~~~~~~~~~~~
|
|---|
| 9 | GMTEFD() Q 3021001
|
|---|
| 10 | ;
|
|---|
| 11 | ;
|
|---|
| 12 | ;Is this a GMT Action Type?
|
|---|
| 13 | ;~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|---|
| 14 | ;Input: IBATYP - IEN of Action Type file (#350.1)
|
|---|
| 15 | ;Output: 1- yes, 0-no
|
|---|
| 16 | ISGMTTYP(IBATYP) N IBBG ; Billing group
|
|---|
| 17 | S IBBG=+$P($G(^IBE(350.1,+$G(IBATYP),0)),"^",11)
|
|---|
| 18 | ;All Inpatient Means Test Billing Groups:
|
|---|
| 19 | ;IBBG=1: INPT/NHCU FEE SERVICE
|
|---|
| 20 | ;IBBG=2: INPT/NHCU COPAY
|
|---|
| 21 | ;IBBG=3: INPT/NHCU PER DIEM
|
|---|
| 22 | Q (IBBG>0)&(IBBG<4) ; Return 'true' for MT Inpatient types
|
|---|
| 23 | ;
|
|---|
| 24 | ;
|
|---|
| 25 | ;Does the patient have GMT Copayment Status?
|
|---|
| 26 | ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|---|
| 27 | ;Input: DFN - IEN of the Patient
|
|---|
| 28 | ; IBDT - date of status
|
|---|
| 29 | ;Output: Boolean value (1- yes, 0-no)
|
|---|
| 30 | ISGMTPT(DFN,IBDT) N IBGMT ;
|
|---|
| 31 | S DFN=+DFN
|
|---|
| 32 | I '$G(IBDT) S IBDT=DT
|
|---|
| 33 | I IBDT<$$GMTEFD() Q 0 ;Prior to the GMT effective date
|
|---|
| 34 | I $T(GMT^DGMTUB)="" Q 0
|
|---|
| 35 | S IBGMT=$$GMT^DGMTUB(DFN,IBDT)
|
|---|
| 36 | Q $S(IBGMT<0:0,1:IBGMT)
|
|---|
| 37 | ;
|
|---|
| 38 | ; Is the bill GMT-related? (That means 'True' if at least one charge is GMT-related).
|
|---|
| 39 | ; ~~~~~~~~~~~~~~~~~~~~~~~~
|
|---|
| 40 | ; Input: IBNAM - the Bill's Name (not IEN !)
|
|---|
| 41 | ; Output: 1 - Yes, 0 - No
|
|---|
| 42 | ISGMTBIL(IBNAM) N IBACT,IBRES
|
|---|
| 43 | S IBRES=0 ;Default Result
|
|---|
| 44 | I IBNAM'="" S IBACT=0 F S IBACT=$O(^IB("ABIL",IBNAM,IBACT)) Q:'IBACT D Q:IBRES
|
|---|
| 45 | . I $P($G(^IB(IBACT,0)),"^",21) S IBRES=1
|
|---|
| 46 | Q IBRES
|
|---|
| 47 | ;
|
|---|
| 48 | HOLD(X) ;The function is disabled
|
|---|
| 49 | Q 0 ; Stub function
|
|---|
| 50 | ;
|
|---|
| 51 | ; The rule to convert MT Charge to GMT rate (20%, rounded).
|
|---|
| 52 | ; Input: MT Charge
|
|---|
| 53 | ; Output: GMT Charge
|
|---|
| 54 | REDUCE(IBCRG) Q +$J(IBCRG*.2,"",2)
|
|---|
| 55 | ;
|
|---|
| 56 | ;
|
|---|
| 57 | ; The API Call, used by Enrollment during the GMT Comversion, disabled.
|
|---|
| 58 | RELHOLD(DFN,IBFORCE) N IBACT,IBDT,X,IBODT,IBGMTEFD,IBLIMIT,IBCNT
|
|---|
| 59 | Q "-1^The function is disabled"
|
|---|
