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

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

initial load of WorldVistAEHR

File size: 675 bytes
RevLine 
[613]1IBCEMRA ;ALB/TMP - 837 MEDICARE MRA UTILITIES ;30-JUL-98
2 ;;2.0;INTEGRATED BILLING;**103,137**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5CATOK(X) ; Screen executed for data in plan category field in field 355.3
6 ; Required Input:
7 ; X = PLAN CATEGORY CODE ENTERED
8 ; DA = File 355.3 IEN
9 ; Output:
10 ; Returns 1 if valid (TYPE OF PLAN'S MAJOR CATEGORY = 5 MEDICARE)
11 ; 0 if not valid
12 ; 0 if TYPE OF PLAN is blank
13 ;
14 N PLTYP
15 S PLTYP=$P($G(^IBE(355.1,+$P($G(^IBA(355.3,DA,0)),U,9),0)),U,3)
16 Q $S(PLTYP="":0,"ABC"[X:PLTYP=5,1:PLTYP'=5)
17 ;
18MRA(IBEOB) ; Print the MRA for entry # IBEOB in file 361.1
19 W @IOF
20 Q
21 ;
Note: See TracBrowser for help on using the repository browser.