Last change
on this file since 1581 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
675 bytes
|
Rev | Line | |
---|
[613] | 1 | IBCEMRA ;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 | ;
|
---|
| 5 | CATOK(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 | ;
|
---|
| 18 | MRA(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.