©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
BKMRMLB1 ;PRXM/HC/ALA-HMS Lab Reminders continued ; 13 Nov 2007 4:32 PM
Source file <BKMRMLB1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS HIV Management System | 1 | ($$STDS,ADDLINE,LABCODES)^BKMVF32 |
| Kernel | 1 | ($$FMDIFF,$$SCH)^XLFDT |
| Patient Care Component | 1 | ($$DATE,WRITE)^APCHSMU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SYPR(GUI) | ;EP - REM.T.03
; RPR (Syphilis) Due ; Due date = Today, if no RPR (T.22) or FTA-ABS (T.9) tests ever documented. OR ; Due date = Date of last FTA-ABS (T.9) test + 365 days (or 12 months) if no RPR (T.22) ever documented. OR ; Due date = RPR test date + 90 days (or 3 months) ; if most recent RPR is positive and =<365 days from today. OR ; Due date = Today, if most recent RPR is not positive (negative or undetermined) ; AND if most recent test results for any of the following are positive ; since the most recent RPR test and =<365 days from today: ; Gonorrhea (T.10); Chlamydia (T.3). OR ; Due date = Today, if most recent RPR is not positive (negative or undetermined) ; AND if patient has any of the following POV diagnoses ; since the most recent RPR test and =<365 days from today: ; Gonorrhea (DX.4), Chlamydia (DX.2), Trichomoniasis (DX.13) or other STD (DX.9) OR ; Due date = Date of last RPR + 365 days (or 12 months) ; If "Now," then text = "An RPR Syphilis test may be due. Please review your patient's history; last documented [date]." |
|
| WRITE(REM,GUI) | ; Write out the reminder
|
|
| TOX(GUI) | ;EP - REM.T.11
; Toxoplasmosis ; Numerator: All patients with no history of positive Toxoplasmosis test (T.28) ; Due date = Today, if no Toxoplasmosis test (T.28) ever documented. OR ; Due date = Date of most recent Toxoplasmosis test + 365 days (or 12 months). ; If "Now," then text = "A Toxoplasmosis test may be due now; last documented [date]." |
|
| VIR(GUI) | ; REM.T.02
; Viral Load Due ; Due date = Today, if no Viral Load Test (T.26) ever documented. OR ; Due date = Most recent Viral Load Test + 120 days (or 4 months). ; If "Now," then text = "A Viral Load test may be due now; last documented [date]." |
| Name | Line Occurrences |
|---|---|
| WRITE | TOX+15, VIR+13, SYPR+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCHLAST | WRITE+1*, WRITE+2, WRITE+7, WRITE+8! |
| APCHNEXT | WRITE+3*, WRITE+4, WRITE+5, WRITE+7, WRITE+8! |
| APCHSTEX | WRITE+8! |
| APCHSTEX(1 | WRITE+2*, WRITE+4*, WRITE+5*, WRITE+7 |
| BDATE | TOX+6~, TOX+8*, TOX+11, VIR+5~, VIR+7*, VIR+9, SYPR+16~, SYPR+18*, SYPR+22, SYPR+28 , SYPR+30 |
| >> DFN | TOX+9, VIR+8, SYPR+19, SYPR+20, SYPR+30 |
| DIFF | SYPR+16~, SYPR+17* |
| DT | TOX+8, VIR+7, SYPR+18, WRITE+4, WRITE+5 |
| DUE | TOX+6~, TOX+7*, TOX+11*, TOX+12*, TOX+14, VIR+5~, VIR+6*, VIR+9*, VIR+11*, VIR+12 , SYPR+16~, SYPR+17*, SYPR+22*, SYPR+24*, SYPR+28*, SYPR+30*, SYPR+32*, SYPR+33 |
| GUI | TOX~, TOX+15, VIR~, VIR+13, SYPR~, SYPR+34, WRITE~, WRITE+6, WRITE+7 |
| LAST | TOX+6~, TOX+7*, TOX+9, TOX+11, TOX+12, TOX+13*, TOX+14, VIR+5~, VIR+6*, VIR+8 , VIR+9, VIR+10, VIR+11, VIR+12, SYPR+16~, SYPR+17*, SYPR+19, SYPR+22, SYPR+24 |
| LAST1 | SYPR+16~, SYPR+17*, SYPR+20, SYPR+22, SYPR+24, SYPR+26, SYPR+28, SYPR+30, SYPR+32, SYPR+33 |
| LAST2 | SYPR+16~, SYPR+17* |
| LIST | TOX+14, VIR+12, SYPR+33, WRITE+8! |
| LIST( | WRITE+1, WRITE+3 |
| MLAST | SYPR+16~, SYPR+17* |
| PDATE | TOX+6~, TOX+7*, TOX+9, TOX+10, TOX+13, SYPR+16~, SYPR+17*, SYPR+20, SYPR+28, SYPR+30 |
| REM | WRITE~, WRITE+1, WRITE+3 |
| >> REMDUE | WRITE+7* |
| >> REMLAST | WRITE+7* |
| >> REMNEXT | WRITE+7* |