IBCEMRA.m

IBCEMRA ;ALB/TMP - 837 MEDICARE MRA UTILITIES ;30-JUL-98

 ;;2.0;INTEGRATED BILLING;**103,137**;21-MAR-94

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

 ;

CATOK(X) ; Screen executed for data in plan category field in field 355.3

 ;  Required Input:

 ;    X = PLAN CATEGORY CODE ENTERED

 ;   DA = File 355.3 IEN

 ;  Output:

 ; Returns 1 if valid (TYPE OF PLAN'S MAJOR CATEGORY = 5  MEDICARE)

 ;         0 if not valid

 ;         0 if TYPE OF PLAN is blank

 ;

 N PLTYP

 S PLTYP=$P($G(^IBE(355.1,+$P($G(^IBA(355.3,DA,0)),U,9),0)),U,3)

 Q $S(PLTYP="":0,"ABC"[X:PLTYP=5,1:PLTYP'=5)

 ;

MRA(IBEOB) ; Print the MRA for entry # IBEOB in file 361.1

 W @IOF

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCEMRA   696     printed  Mar 13, 2025@21:15:46                                                                                                                                                                                                      Page 2

IBCEMRA   ;ALB/TMP - 837 MEDICARE MRA UTILITIES ;30-JUL-98

 +1       ;;2.0;INTEGRATED BILLING;**103,137**;21-MAR-94

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

 +3       ;

CATOK(X)  ; Screen executed for data in plan category field in field 355.3

 +1       ;  Required Input:

 +2       ;    X = PLAN CATEGORY CODE ENTERED

 +3       ;   DA = File 355.3 IEN

 +4       ;  Output:

 +5       ; Returns 1 if valid (TYPE OF PLAN'S MAJOR CATEGORY = 5  MEDICARE)

 +6       ;         0 if not valid

 +7       ;         0 if TYPE OF PLAN is blank

 +8       ;

 +9        NEW PLTYP

 +10       SET PLTYP=$PIECE($GET(^IBE(355.1,+$PIECE($GET(^IBA(355.3,DA,0)),U,9),0)),U,3)

 +11       QUIT $SELECT(PLTYP="":0,"ABC"[X:PLTYP=5,1:PLTYP'=5)

 +12      ;

MRA(IBEOB) ; Print the MRA for entry # IBEOB in file 361.1

 +1        WRITE @IOF

 +2        QUIT 

 +3       ;