©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
BKMRMWH ;PRXM/HC/ALA-HMS Women's Health Reminders ; 13 Nov 2007 4:13 PM
Source file <BKMRMWH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAM(GUI) | ;EP - REM.P.03
; Mammogram Due ; Numerator: All female patients ages 50-69 without documented bilateral mastectomy (P.01) ; Due date = Today, if no Mammogram (P.05) ever documented. ; Due date = Date of most mammogram + 365 days (or 12 months). ; If "Now," then text = "Mammogram may be due now; last documented [date]." |
|
| WRITE(REM,GUI) | ; Write out the reminder
|
|
| PAP(GUI) | ;EP - REM.T.06
; Pap Smear Due ; Numerator: All female patients ages 18 through 64 (on Report end date) without documented hysterectomy (P.04) ; Due date = Today, if Pap smear (T.20) not ever documented. OR ; ** EN/KH - Next two lines conflict (<= and >=) and Eric P. agreed, go with 6/4/2004 logic (+183 days if <200, else +365) ; Due date = Most recent Pap smear + 183 days (or 6 months) if most recent CD4 Absolute laboratory (T.30) value is <= 200. OR ; Due date = Most recent Pap smear + 365 days (or 12 months) if most recent CD4 Absolute laboratory (T.30) value is >= 200. ; Above two lines were changed from CD4 (T.2) to CD4 Absolute (T.30) ; If "Now," then text = "A Pap smear may be due now; last documented [date]." |
| Name | Field # of Occurrence |
|---|---|
| $$DATE^APCHSMU | WRITE+4, WRITE+5 |
| WRITE^APCHSMU | WRITE+6 |
| CPTTAX^BKMIXX | MAM+17, PAP+16 |
| ICDTAX^BKMIXX1 | MAM+16 |
| PRCTAX^BKMIXX1 | MAM+13, MAM+21, PAP+18, PAP+21 |
| RADTAX^BKMIXX1 | MAM+19 |
| WHTAX^BKMIXX2 | MAM+23, MAM+25, MAM+27, PAP+23 |
| ADDLINE^BKMVF32 | MAM+31, PAP+30 |
| LABCODES^BKMVF32 | PAP+20, PAP+27 |
| $$AGE^BQIAGE | MAM+10, PAP+13 |
| $$SCH^XLFDT | MAM+29, PAP+28, PAP+29 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MAM+9, MAM+11, PAP+12, PAP+14 |
| Name | Line Occurrences |
|---|---|
| WRITE | MAM+32, PAP+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCHLAST | WRITE+1*, WRITE+7, WRITE+9! |
| APCHNEXT | WRITE+3*, WRITE+4, WRITE+5, WRITE+7, WRITE+9! |
| >> APCHSAGE | MAM+10*, MAM+12, PAP+13*, PAP+15 |
| >> APCHSDOB | MAM+9*, PAP+12* |
| >> APCHSEX | MAM+11*, MAM+12, PAP+14*, PAP+15 |
| >> APCHSPAT | MAM+9, MAM+10, MAM+11, MAM+13, MAM+16, MAM+17, MAM+19, MAM+21, MAM+23, MAM+25 , MAM+27, PAP+12, PAP+13, PAP+14, PAP+16, PAP+18, PAP+20, PAP+21, PAP+23, PAP+27 |
| APCHSTEX | WRITE+9! |
| APCHSTEX(1 | WRITE+4*, WRITE+5*, WRITE+7 |
| >> BDATE | PAP+11*, PAP+25 |
| >> BKMSUP | WRITE+8 |
| DT | MAM+30, PAP+11, WRITE+4, WRITE+5 |
| DUE | MAM+6~, MAM+8*, MAM+29*, MAM+30*, MAM+31, PAP+9~, PAP+10*, PAP+25*, PAP+28*, PAP+29* , PAP+30 |
| GUI | MAM~, MAM+7*, MAM+32, PAP~, PAP+31, WRITE~, WRITE+6, WRITE+7 |
| LAST | MAM+6~, MAM+8*, MAM+13, MAM+15, MAM+16, MAM+18*, MAM+20*, MAM+22*, MAM+24*, MAM+26* , MAM+28*, MAM+29, MAM+30, MAM+31, PAP+9~, PAP+10*, PAP+20, PAP+22*, PAP+24*, PAP+25 , PAP+28, PAP+29, PAP+30 |
| LAST1 | MAM+6~, MAM+8*, MAM+17, MAM+18, MAM+19, MAM+20, MAM+21, MAM+22, MAM+23, MAM+24 , MAM+25, MAM+26, MAM+27, MAM+28, PAP+9~, PAP+10*, PAP+16, PAP+17, PAP+18, PAP+19 , PAP+21, PAP+22, PAP+23, PAP+24 |
| LIST | MAM+6~, MAM+31, PAP+30, WRITE+8, WRITE+9! |
| LIST( | WRITE+1, WRITE+3 |
| LRESULT | PAP+9~, PAP+10*, PAP+27, PAP+28 |
| REM | WRITE~, WRITE+1, WRITE+3 |
| >> REMDUE | WRITE+7* |
| >> REMLAST | WRITE+7* |
| >> REMLIST | WRITE+8* |
| >> REMNEXT | WRITE+7* |
| U | MAM+9, MAM+11, PAP+12, PAP+14 |