©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBCEMRA ;ALB/TMP - 837 MEDICARE MRA UTILITIES ;30-JUL-98
Source file <IBCEMRA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| MRA(IBEOB) | ; Print the MRA for entry # IBEOB in file 361.1
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(355.3 - [#355.3] | CATOK+10 |
| ^IBE(355.1 - [#355.1] | CATOK+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | CATOK+10 |
| IBEOB | MRA~ |
| IOF | MRA+1 |
| PLTYP | CATOK+9~, CATOK+10*, CATOK+11 |
| U | CATOK+10 |
| X | CATOK~, CATOK+11 |