©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
BKMRMIM ;PRXM/HC/ALA-HMS Immunization Reminders ; 13 Nov 2007 4:05 PM
Source file <BKMRMIM.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS HIV Management System | 3 | (CPTTAX,PRBTAX)^BKMIXX (CVXTAX,ICDTAX,PRCTAX)^BKMIXX1 ADDLINE^BKMVF32 |
| Kernel | 1 | $$SCH^XLFDT |
| Patient Care Component | 1 | ($$DATE,WRITE)^APCHSMU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IZ01(GUI) | ;EP - REM.IZ.01
; Pneumovax Due ; Due date = Today, if no Pneumovax vaccine (IZ.6) ever documented. OR ; Due date = Date of most recent Pneumovax vaccine + 1825 days or 5 years or 60 months). ; If "Now," then text = "Pneumovax immunization may be due now; last documented [date]." |
|
| WRITE(REM,GUI) | ; Write out the reminder
|
|
| IZ03(GUI) | ;EP - REM.IZ.03
; Hepatitis A IZ Due ; Due date = Today, if no Hepatitis A diagnosis (DX.5) POV or Problem list ever documented. OR ; Due date = Today, if no Hepatitis A immunization (IZ.3) ever documented. ; If "Now," then text = "Hepatitis A immunization may be due now. This patient has no documentation of either immunization for or diagnosis of Hepatitis A, and is considered at risk." |
|
| IZ05(GUI) | ;EP - REM.IZ.05
; Tetanus IZ Due ; Due date = Today, if no Tetanus immunization (IZ.7) ever documented. ; Due date = Date of most recent Tetanus immunization + 3650 days or 10 years or 120 months). ; If "Now," then text = "Tetanus immunization may be due now; last documented [date]." |
|
| IZ04(GUI) | ;EP - REM.IZ.04
; Hepatitis B IZ Due ; Due date = Today, if no Hepatitis B diagnosis (DX.15) POV or Problem list ever documented. ; Due date = Today, if no Hepatitis B immunization (IZ.4) ever documented. ; If "Now," then text = "Hepatitis B immunization may be due now. This patient has no documentation of either immunization for or diagnosis of Hepatitis B and is considered at risk." |
|
| IZ02(GUI) | ;EP - REM.IZ.02
; Influenza IZ Due ; Due date = Today, if no Influenza vaccine (IZ.5) ever documented. OR ; Due date = Date of most recent Influenza vaccine + 365 days (or 12 months) ; If "Now," then text = "Influenza immunization may be due now; last documented [date]." |
| Name | Field # of Occurrence |
|---|---|
| $$DATE^APCHSMU | WRITE+4, WRITE+5 |
| WRITE^APCHSMU | WRITE+6 |
| CPTTAX^BKMIXX | IZ01+11, IZ02+11, IZ03+9, IZ04+9, IZ05+11 |
| PRBTAX^BKMIXX | IZ03+14, IZ04+14 |
| CVXTAX^BKMIXX1 | IZ01+8, IZ02+8, IZ03+8, IZ04+8, IZ05+8 |
| ICDTAX^BKMIXX1 | IZ01+9, IZ02+9, IZ03+11, IZ04+11, IZ05+9 |
| PRCTAX^BKMIXX1 | IZ01+13, IZ02+13, IZ05+13 |
| ADDLINE^BKMVF32 | IZ01+17, IZ02+17, IZ03+18, IZ04+18, IZ05+18 |
| $$SCH^XLFDT | IZ01+15, IZ02+15, IZ05+16 |
| Name | Line Occurrences |
|---|---|
| WRITE | IZ01+18, IZ02+18, IZ03+19, IZ04+19, IZ05+19 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APCHLAST | WRITE+1*, WRITE+2, WRITE+7, WRITE+9! |
| APCHNEXT | WRITE+3*, WRITE+4, WRITE+5, WRITE+7, WRITE+9! |
| APCHSTEX | WRITE+9! |
| APCHSTEX(1 | WRITE+2*, WRITE+4*, WRITE+5*, WRITE+7 |
| >> BKMSUP | WRITE+8 |
| >> DFN | IZ01+8, IZ01+9, IZ01+11, IZ01+13, IZ02+8, IZ02+9, IZ02+11, IZ02+13, IZ03+8, IZ03+9 , IZ03+11, IZ03+14, IZ04+8, IZ04+9, IZ04+11, IZ04+14, IZ05+8, IZ05+9, IZ05+11, IZ05+13 |
| DT | IZ01+16, IZ02+16, IZ03+17, IZ04+17, IZ05+17, WRITE+4, WRITE+5 |
| DUE | IZ01+5~, IZ01+7*, IZ01+15*, IZ01+16*, IZ01+17, IZ02+5~, IZ02+7*, IZ02+15*, IZ02+16*, IZ02+17 , IZ03+5~, IZ03+7*, IZ03+17*, IZ03+18, IZ04+5~, IZ04+7*, IZ04+17*, IZ04+18, IZ05+5~, IZ05+7* , IZ05+16*, IZ05+17*, IZ05+18 |
| GUI | IZ01~, IZ01+6*, IZ01+18, IZ02~, IZ02+6*, IZ02+18, IZ03~, IZ03+6*, IZ03+19, IZ04~ , IZ04+6*, IZ04+19, IZ05~, IZ05+6*, IZ05+19, WRITE~, WRITE+6, WRITE+7 |
| LAST | IZ01+5~, IZ01+7*, IZ01+8, IZ01+10*, IZ01+12*, IZ01+14*, IZ01+15, IZ01+16, IZ01+17, IZ02+5~ , IZ02+7*, IZ02+8, IZ02+10*, IZ02+12*, IZ02+14*, IZ02+15, IZ02+16, IZ02+17, IZ03+5~, IZ03+7* , IZ03+8, IZ03+10*, IZ03+12, IZ03+13*, IZ03+15, IZ03+16*, IZ03+17, IZ03+18, IZ04+5~, IZ04+7* , IZ04+8, IZ04+10*, IZ04+12, IZ04+13*, IZ04+15, IZ04+16*, IZ04+17, IZ04+18, IZ05+5~, IZ05+7* , IZ05+8, IZ05+10*, IZ05+12*, IZ05+14*, IZ05+16, IZ05+17, IZ05+18 |
| LAST1 | IZ01+5~, IZ01+7*, IZ01+9, IZ01+10, IZ01+11, IZ01+12, IZ01+13, IZ01+14, IZ02+5~, IZ02+7* , IZ02+9, IZ02+10, IZ02+11, IZ02+12, IZ02+13, IZ02+14, IZ03+5~, IZ03+7*, IZ03+9, IZ03+10 , IZ03+11, IZ03+12, IZ03+13, IZ03+14, IZ03+15, IZ03+16, IZ04+5~, IZ04+7*, IZ04+9, IZ04+10 , IZ04+11, IZ04+12, IZ04+13, IZ04+14, IZ04+15, IZ04+16, IZ05+5~, IZ05+7*, IZ05+9, IZ05+10 , IZ05+11, IZ05+12, IZ05+13, IZ05+14 |
| LASTTXT | IZ03+5~, IZ03+7*, IZ03+12*, IZ03+15*, IZ03+18, IZ04+5~, IZ04+7*, IZ04+12*, IZ04+15*, IZ04+18 |
| LIST | IZ01+5~, IZ01+17, IZ02+5~, IZ02+17, IZ03+5~, IZ03+18, IZ04+5~, IZ04+18, IZ05+5~, IZ05+18 , WRITE+8, WRITE+9! |
| LIST( | WRITE+1, WRITE+3 |
| REM | WRITE~, WRITE+1, WRITE+3 |
| >> REMDUE | WRITE+7* |
| >> REMLAST | WRITE+7* |
| >> REMLIST | WRITE+8* |
| >> REMNEXT | WRITE+7* |