IBAGMT.m

IBAGMT ;WOIFO/AAT-GEOGRAPHIC MEANS TEST UTILITIES ;7-JUN-02

 ;;2.0;INTEGRATED BILLING;**179,183,202**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 Q

 ;

 ;GMT Effective Date

 ;~~~~~~~~~~~~~~~~~~

GMTEFD() Q 3021001

 ;

 ;

 ;Is this a GMT Action Type?

 ;~~~~~~~~~~~~~~~~~~~~~~~~~~

 ;Input: IBATYP - IEN of Action Type file (#350.1)

 ;Output: 1- yes, 0-no

ISGMTTYP(IBATYP) N IBBG ; Billing group

 S IBBG=+$P($G(^IBE(350.1,+$G(IBATYP),0)),"^",11)

 ;All Inpatient Means Test Billing Groups:

 ;IBBG=1: INPT/NHCU FEE SERVICE

 ;IBBG=2: INPT/NHCU COPAY

 ;IBBG=3: INPT/NHCU PER DIEM

 Q (IBBG>0)&(IBBG<4) ; Return 'true' for MT Inpatient types

 ;

 ;

 ;Does the patient have GMT Copayment Status?

 ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 ;Input: DFN - IEN of the Patient

 ;       IBDT - date of status

 ;Output: Boolean value (1- yes, 0-no)

ISGMTPT(DFN,IBDT) N IBGMT ;

 S DFN=+DFN

 I '$G(IBDT) S IBDT=DT

 I IBDT<$$GMTEFD() Q 0  ;Prior to the GMT effective date

 I $T(GMT^DGMTUB)="" Q 0

 S IBGMT=$$GMT^DGMTUB(DFN,IBDT)

 Q $S(IBGMT<0:0,1:IBGMT)

 ;

 ; Is the bill GMT-related? (That means 'True' if at least one charge is GMT-related).

 ; ~~~~~~~~~~~~~~~~~~~~~~~~

 ; Input: IBNAM - the Bill's Name (not IEN !)

 ; Output: 1 - Yes, 0 - No

ISGMTBIL(IBNAM) N IBACT,IBRES

 S IBRES=0 ;Default Result

 I IBNAM'="" S IBACT=0 F  S IBACT=$O(^IB("ABIL",IBNAM,IBACT)) Q:'IBACT  D  Q:IBRES

 . I $P($G(^IB(IBACT,0)),"^",21) S IBRES=1

 Q IBRES

 ;

HOLD(X) ;The function is disabled

 Q 0 ; Stub function

 ;

 ; The rule to convert MT Charge to GMT rate (20%, rounded).

 ; Input: MT Charge

 ; Output: GMT Charge

REDUCE(IBCRG) Q +$J(IBCRG*.2,"",2)

 ;

 ;

 ; The API Call, used by Enrollment during the GMT Comversion, disabled.

RELHOLD(DFN,IBFORCE) N IBACT,IBDT,X,IBODT,IBGMTEFD,IBLIMIT,IBCNT

 Q "-1^The function is disabled"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBAGMT   1891     printed  Apr 09, 2024@21:19:27                                                                                                                                                                                                      Page 2

IBAGMT    ;WOIFO/AAT-GEOGRAPHIC MEANS TEST UTILITIES ;7-JUN-02

 +1       ;;2.0;INTEGRATED BILLING;**179,183,202**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;GMT Effective Date

 +7       ;~~~~~~~~~~~~~~~~~~

GMTEFD()   QUIT 3021001

 +1       ;

 +2       ;

 +3       ;Is this a GMT Action Type?

 +4       ;~~~~~~~~~~~~~~~~~~~~~~~~~~

 +5       ;Input: IBATYP - IEN of Action Type file (#350.1)

 +6       ;Output: 1- yes, 0-no

ISGMTTYP(IBATYP) ; Billing group

           NEW IBBG

 +1        SET IBBG=+$PIECE($GET(^IBE(350.1,+$GET(IBATYP),0)),"^",11)

 +2       ;All Inpatient Means Test Billing Groups:

 +3       ;IBBG=1: INPT/NHCU FEE SERVICE

 +4       ;IBBG=2: INPT/NHCU COPAY

 +5       ;IBBG=3: INPT/NHCU PER DIEM

 +6       ; Return 'true' for MT Inpatient types

           QUIT (IBBG>0)&(IBBG<4)

 +7       ;

 +8       ;

 +9       ;Does the patient have GMT Copayment Status?

 +10      ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

 +11      ;Input: DFN - IEN of the Patient

 +12      ;       IBDT - date of status

 +13      ;Output: Boolean value (1- yes, 0-no)

ISGMTPT(DFN,IBDT) ;

           NEW IBGMT

 +1        SET DFN=+DFN

 +2        IF '$GET(IBDT)

               SET IBDT=DT

 +3       ;Prior to the GMT effective date

           IF IBDT<$$GMTEFD()

               QUIT 0

 +4        IF $TEXT(GMT^DGMTUB)=""

               QUIT 0

 +5        SET IBGMT=$$GMT^DGMTUB(DFN,IBDT)

 +6        QUIT $SELECT(IBGMT<0:0,1:IBGMT)

 +7       ;

 +8       ; Is the bill GMT-related? (That means 'True' if at least one charge is GMT-related).

 +9       ; ~~~~~~~~~~~~~~~~~~~~~~~~

 +10      ; Input: IBNAM - the Bill's Name (not IEN !)

 +11      ; Output: 1 - Yes, 0 - No

ISGMTBIL(IBNAM)  NEW IBACT,IBRES

 +1       ;Default Result

           SET IBRES=0

 +2        IF IBNAM'=""

               SET IBACT=0

               FOR 

                   SET IBACT=$ORDER(^IB("ABIL",IBNAM,IBACT))

                   if 'IBACT

                       QUIT 

                   Begin DoDot:1

 +3                    IF $PIECE($GET(^IB(IBACT,0)),"^",21)

                           SET IBRES=1

                   End DoDot:1

                   if IBRES

                       QUIT 

 +4        QUIT IBRES

 +5       ;

HOLD(X)   ;The function is disabled

 +1       ; Stub function

           QUIT 0

 +2       ;

 +3       ; The rule to convert MT Charge to GMT rate (20%, rounded).

 +4       ; Input: MT Charge

 +5       ; Output: GMT Charge

REDUCE(IBCRG)  QUIT +$JUSTIFY(IBCRG*.2,"",2)

 +1       ;

 +2       ;

 +3       ; The API Call, used by Enrollment during the GMT Comversion, disabled.

RELHOLD(DFN,IBFORCE)  NEW IBACT,IBDT,X,IBODT,IBGMTEFD,IBLIMIT,IBCNT

 +1        QUIT "-1^The function is disabled"