|
Last change
on this file since 619 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.
