©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
BWMDEU2 ;IHS/ANMC/MWR - MDE FUNCTIONS. BWMDEU CON'T;29-Oct-2003 21:36;PLS
Source file <BWMDEU2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BDXPAID() | ;EP
|
|
| CONOBX() | ; EP
; Colposcopy Impression (No Biopsy) ; BWC0 holds the zero node of the Colposcopy procedure ; Procedure must be a Colposcopy Impression ; Return: 1 = Yes, 2 = No |
|
| CDXPAID() | ;EP
|
|
| MPAY() | ;EP
|
|
| CBEPAID() | ;EP
|
|
| MRESLT() | ;EP
|
|
| PFNDX() | ;EP
|
|
| PFNDXO() | ; EP - FREE TEXT DIAGNOSIS OF "OTHER" FOR ASSOC'D COLP.
|
|
| PSTGDX(BWFNDX,BWX) | ; EP - Stage at final diagnosis. GET FROM ASSOC'D COLP.
; Call with BWFNDX = final diagnosis ; BWX = zeroth node of assoc'd colp. |
|
| MWKUP() | ;EP
|
|
| CDCDT(BWDT) | ; EP: Convert FileMan date to CDC date format
; Call with BWDT = FileMan date |
|
| COLPBX() | ;EP
; Colposcopy w/Biopsy ; BWC0 holds the zero node of the Colposcopy procedure ; Procedure must be a Colposcopy Biopsy ; Return: 1 = Yes, 2 = No |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BWDIAG - [#9002086.31] | MRESLT+14, PFNDX+6, PFNDX+7, PFNDXO+6, PFNDXO+7 |
| Name | Line Occurrences |
|---|---|
| $$COLPBX | CDXPAID+2 |
| $$CONOBX | CDXPAID+2 |
| $$MRESLT | MPAY+3, BDXPAID+2, CBEPAID+3 |
| $$PFNDX | PFNDXO+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BW0 | PFNDX+3, PFNDXO+3 |
| >> BW2 | MWKUP+3 |
| >> BWC0 | CONOBX+5, COLPBX+5, PFNDX+4, PFNDXO+4 |
| BWDT | CDCDT~, CDCDT+5 |
| BWFNDX | PSTGDX~, PSTGDX+8 |
| >> BWMABN | MRESLT+8*, MRESLT+11*, MRESLT+15* |
| >> BWMAM | MRESLT+8, BDXPAID+4, CBEPAID+5 |
| >> BWRESN | MRESLT+11, MRESLT+14 |
| BWSTAGE | PSTGDX+6~, PSTGDX+7*, PSTGDX+8*, PSTGDX+9 |
| BWX | PSTGDX~, PSTGDX+8 |
| >> BWY | CDCDT+5*, CDCDT+6*, CDCDT+7 |
| U | MRESLT+14, MWKUP+3, CONOBX+5, COLPBX+5, PFNDX+3, PFNDX+4, PFNDX+7, PSTGDX+8, PFNDXO+3, PFNDXO+4 , PFNDXO+7 |
| X | MRESLT+14~*, MRESLT+15, MRESLT+16, MWKUP+2~, MWKUP+3*, MWKUP+4, MPAY+2~, MPAY+3*, MPAY+4, BDXPAID+2~* , BDXPAID+3, CBEPAID+2~, CBEPAID+3*, CBEPAID+4, PFNDX+3~*, PFNDX+4*, PFNDX+5, PFNDX+6, PFNDX+7, PFNDXO+2~ , PFNDXO+3*, PFNDXO+4*, PFNDXO+5, PFNDXO+6, PFNDXO+7 |