source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBAGMT.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1IBAGMT ;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 ;~~~~~~~~~~~~~~~~~~
9GMTEFD() 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
16ISGMTTYP(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)
30ISGMTPT(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
42ISGMTBIL(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 ;
48HOLD(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
54REDUCE(IBCRG) Q +$J(IBCRG*.2,"",2)
55 ;
56 ;
57 ; The API Call, used by Enrollment during the GMT Comversion, disabled.
58RELHOLD(DFN,IBFORCE) N IBACT,IBDT,X,IBODT,IBGMTEFD,IBLIMIT,IBCNT
59 Q "-1^The function is disabled"
Note: See TracBrowser for help on using the repository browser.