©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
BWMDEU ;IHS/ANMC/MWR - MDE FUNCTIONS.;29-Oct-2003 21:34;PLS
Source file <BWMDEU.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | $$FMTE^XLFDT ($$REPEAT,$$RJ)^XLFSTR |
| IHS Patient | 1 | $$AGE^AUPNPAT |
| Women's Health | 1 | $$CDCDT^BWMDEU2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PWKUP(BWIEN,BWBSU,BWPRESLT) | ; EP - Diagnostic workup 1=PLANNED, 2=NOT PLANNED, 3=UNDETERMINED.
; Call with BWIEN = ien of entry in file BW PROCEDURE (#9002086.1) ; BWBSU = Bethesda system used (1-Bethesda 1991) (2-Bethesda 2001) ; BWPRESLT = result of Pap test |
|
| PAID(DFN,PCCDATE,MDATE,RESULT,SITE) | ; EP - Determine if procedure paid with NBCCEDP funds.
; Call with DFN = patient ien in Patient file ; PCCDATE = PCC event date in FileMan format ; MDATE = date of mammogram in MDE date format ; RESULT = mammography test result from item k of MDE ; SITE = pointer to site in BW SITE file |
|
| PABN(BWBSU,BWPRESLT) | ; EP - Abnormal Pap Flag
; Call with BWBSU = Bethesda system used (1-Bethesda 1991) (2-Bethesda 2001) ; BWPRESLT = results of Pap test |
|
| PSCRDT(BWDT,BWBSU,BWRPT) | ; EP - Return date of Pap Test
; Call with BWDT = date of Pap test ; BWBSU = Bethesda system used ; BWRPT = results of Pap test |
|
| POTHR(BWIEN,BWBSU,BWRPT) | ; EP - Text results of Pap Test
; Call with BWIEN = ien of entry in file BW PROCEDURE (#9002086.1) ; BWBSU = Bethesda system used ; BWRPT = Results of Pap Test |
|
| PPAY(BWBSU,BWPRESLT) | ; EP - Pap paid for by NBCCEDP funds
; Call with BWBSU = Bethesda system used (1-Bethesda 1991) (2-Bethesda 2001) ; BWPRESLT = results of Pap test |
|
| MSCRDT(BWDT,BWRPT) | ; EP - Return date of Mammogram Test
; Call with BWDT = date of Mammogram test ; BWRPT = results of Mammogram test |
|
| SAPT(BWIEN,BWBSU,BWMDEV) | ; EP - Specimen Adequacy of Pap Test
; Call with BWIEN = ien of entry in file BW PROCEDURE (#9002086.1) ; BWBSU = Bethesda System Used ; BWMDEV = MDE version |
|
| MPREVDT(BWIEN) | ; EP - Retrieve date of previous mammogram if any in CDC MDE date format
; Call with BWIEN = ien of entry in file BW PROCEDURE (#9002086.1) |
|
| BSU(BWDT,SITE) | ; EP - Determine Bethesda System Used
; Call with BWDT = "as of" date to check ; SITE = site to check (pointer to BW SITE PARAMETER file #9002086.02) |
|
| RACE(BWDFN,MDEVER,MDERACE) | ; EP - CDC's MDE Race classification.
; Call with BWDFN = ien of patient in file PATIENT (#9000001) ; MDEVER = version number of CDC Minimum Data Extraction (MDE) |
|
| PRESLT(BWIEN,BWBSU) | ; EP - Results of Pap Test
; Call with BWIEN = ien of entry in file BW PROCEDURE (#9002086.1) ; BWBSU = Bethesda system used (1-Bethesda 1991) (2-Bethesda 2001) |
|
| HISP(BWDFN) | ; EP - Determine Hispanic/Latino origin
; Call with BWDFN = ien of patient in file PATIENT (#9000001) ; Returns BWY = 1 (yes), 2 (no), 3 (unknown) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | RACE+19, HISP+5 |
| ^BWDIAG - [#9002086.31] | POTHR+9, PRESLT+15, PRESLT+16 |
| ^BWP - [#9002086] | RACE+11, RACE+12 |
| ^BWPCD - [#9002086.1] | SAPT+14, SAPT+15, POTHR+8, PRESLT+9, PWKUP+11, MPREVDT+8, MPREVDT+9, MPREVDT+12 |
| ^BWPCD("C" | MPREVDT+11 |
| ^BWRACE - [#9002086.34] | RACE+13, RACE+28 |
| ^BWRACE(7 | RACE+33 |
| ^BWSITE - [#9002086.02] | BSU+9, PAID+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AGE | PAID+9~, PAID+19*, PAID+20*, PAID+21*, PAID+22 |
| BWBSU | BSU+7~, BSU+10*, BSU+11*, BSU+13, SAPT~, SAPT+16, POTHR~, POTHR+11, POTHR+12, PSCRDT~ , PSCRDT+10, PSCRDT+11, PRESLT~, PRESLT+15, PRESLT+16, PABN~, PABN+8, PABN+13, PPAY~, PPAY+8 , PPAY+11, PWKUP~, PWKUP+9, PWKUP+10 |
| BWDFN | RACE~, RACE+11, RACE+12, RACE+19, HISP~, HISP+5 |
| BWDT | BSU~, BSU+10, PSCRDT~, PSCRDT+13, MSCRDT~, MSCRDT+11 |
| BWI | MPREVDT+5~, MPREVDT+17*, MPREVDT+18 |
| BWIEN | RACE+7~, RACE+12*, RACE+13, RACE+19*, RACE+21*, RACE+22*, RACE+23*, RACE+24*, RACE+25*, RACE+26* , RACE+27, RACE+28, SAPT~, SAPT+14, SAPT+15, POTHR~, POTHR+8, PRESLT~, PRESLT+9, PWKUP~ , PWKUP+11, MPREVDT~, MPREVDT+8, MPREVDT+9 |
| BWMAM | MPREVDT+5~ |
| BWMAM( | MPREVDT+14* |
| BWMAM("" | MPREVDT+17 |
| BWMDEV | SAPT~, SAPT+10, SAPT+13 |
| BWMDT | MPREVDT+5~, MPREVDT+18*, MPREVDT+19*, MPREVDT+20 |
| BWPABN | PABN+6~, PABN+7*, PABN+9*, PABN+10*, PABN+11*, PABN+12*, PABN+14*, PABN+15*, PABN+16*, PABN+18 |
| BWPDT | SAPT+7~, SAPT+15*, SAPT+17, PSCRDT+7~, PSCRDT+13*, PSCRDT+14*, PSCRDT+15, MSCRDT+6~, MSCRDT+11*, MSCRDT+12* , MSCRDT+13 |
| BWPPAY | PPAY+6~, PPAY+7*, PPAY+9*, PPAY+10*, PPAY+12*, PPAY+13*, PPAY+14 |
| BWPRESLT | PABN~, PABN+9, PABN+10, PABN+11, PABN+14, PABN+15, PPAY~, PPAY+9, PPAY+10, PPAY+12 , PPAY+13, PWKUP~, PWKUP+9, PWKUP+10 |
| BWPWKUP | PWKUP+7~, PWKUP+9*, PWKUP+10*, PWKUP+12*, PWKUP+13*, PWKUP+14 |
| BWRES | POTHR+7~, POTHR+8*, POTHR+11*, POTHR+12*, POTHR+14 |
| BWRESLT | PRESLT+7~, PRESLT+9*, PRESLT+11*, PRESLT+15*, PRESLT+16*, PRESLT+18*, PRESLT+20 |
| BWRESN | PRESLT+7~, PRESLT+9*, PRESLT+11, PRESLT+14, PRESLT+15, PRESLT+16 |
| BWRPT | POTHR~, POTHR+11, POTHR+12, PSCRDT~, PSCRDT+10, PSCRDT+11, MSCRDT~, MSCRDT+9 |
| BWSAPT | SAPT+7~, SAPT+10*, SAPT+14*, SAPT+16*, SAPT+17*, SAPT+19 |
| BWY | HISP+4~, HISP+6*, HISP+7*, HISP+8 |
| CODE | RACE+7~, RACE+13*, RACE+14, RACE+28*, RACE+29, RACE+33*, RACE+34 |
| CUTOFF | MPREVDT+5~, MPREVDT+9*, MPREVDT+14 |
| DFN | MPREVDT+5~, MPREVDT+9*, MPREVDT+11, PAID~, PAID+19 |
| FLAG | PSCRDT+7~, PSCRDT+8*, PSCRDT+10*, PSCRDT+11*, PSCRDT+13, MSCRDT+6~, MSCRDT+7*, MSCRDT+9*, MSCRDT+11 |
| I | RACE+7~, RACE+10*, RACE+11*, RACE+12, RACE+14 |
| MDATE | PAID~, PAID+12, PAID+24 |
| MDERACE | RACE~ |
| MDERACE( | RACE+14* |
| MDERACE(0 | RACE+18, RACE+32 |
| MDERACE(1 | RACE+29*, RACE+34* |
| MDEVER | RACE~, RACE+13, RACE+28, RACE+33 |
| N | MPREVDT+5~, MPREVDT+10*, MPREVDT+11*, MPREVDT+12 |
| PAID | PAID+9~, PAID+10*, PAID+12*, PAID+14*, PAID+18, PAID+22*, PAID+24*, PAID+25 |
| PCCDATE | PAID~, PAID+12 |
| RESULT | PAID~, PAID+14 |
| SITE | BSU~, BSU+9, PAID~, PAID+12 |
| TRIBE | RACE+7~, RACE+19*, RACE+20, RACE+21, RACE+22, RACE+23, RACE+24, RACE+25, HISP+4~, HISP+5* , HISP+6 |
| U | RACE+19, RACE+21, RACE+22, HISP+5, MPREVDT+13 |
| X | BSU+7~, BSU+9*, BSU+10, POTHR+7~, POTHR+8*, POTHR+9, PWKUP+7~, PWKUP+11*, PWKUP+12, MPREVDT+5~ , MPREVDT+8*, MPREVDT+9 |
| Y | POTHR+7~, POTHR+8*, POTHR+9*, POTHR+11, POTHR+12, MPREVDT+5~, MPREVDT+12*, MPREVDT+13, MPREVDT+14 |