Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BKMRMLB

Package: IHS HIV Management System

Routine: BKMRMLB


Information

BKMRMLB ;PRXM/HC/ALA-HMS Lab Reminders ; 13 Nov 2007 4:04 PM

Source Information

Source file <BKMRMLB.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS HIV Management System 3 (CPTTAX,MEDTAX,PRBTAX)^BKMIXX  (CVXTAX,ICDTAX,NDCTAX,SKNTAX)^BKMIXX1  ($$POSITIVE,$$STDS,ADDLINE,LABCODES)^BKMVF32  
Kernel 1 ($$FMADD,$$SCH)^XLFDT  
Patient Care Component 1 ($$DATE,WRITE)^APCHSMU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS HIV Management System 1 BKMVF3  

Entry Points

Name Comments DBIA/ICR reference
HEPCR(GUI) ;EP - REM.T.14
; Hepatitis C RIBA Test Due
; Numerator: Patients with no Hepatitis C (DX.16) diagnosis (POV or problem list) and positive
; Hepatitis C EIA test (T.13) and no documented Hepatitis C RIBA test (T.14)
; occurring after EIA test date.
; Due date = Today
; If "Now," then text = "A Hepatitis C RIBA test is indicated because your patient had a positive Hepatitis C EIA test result documented on [date]."
HEPBR(GUI) ;EP - REM.T.13
; Hepatitis B Retest Due
; Numerator: All patients with 3 documented Hepatitis B immunizations (IZ.4) and no
; Hepatitis B test (T.27) documented after the final immunization
; Due date = Today
; If "Now," then text = "Hepatitis B retest may be indicated at this time to ensure adequate coverage since this patient has completed all 3 Hepatitis B immunizations; last documented immunization was given on [date]."
HEPB(GUI) ;EP - REM.T.12
; Hepatitis B Test Due
; Numerator: Any patient with no Hepatitis B (DX.15) diagnosis (POV or problem list) ever AND
; no Hepatitis B test results (T.27) ever documented.
; Due date = Today
; If "Now," then text = "This patient may benefit from a Hepatitis B Test."
CHL(GUI) ;EP - REM.T.07
; Chlamydia Test Due
; Numerator: All patients 18 years of age and older
; Due date = Today, if no Chlamydia test (T.3) ever documented OR
; Due date = Today, if most recent test results for any of the following are positive
; since the most recent Chlamydia test and =<365 days from today:
; Gonorrhea (T.10); Syphilis (T.22) or (T.9). OR
; Due date = Today, if patient has any of the following POV diagnoses
; since the most recent Chlamydia test and =<365 days from today:
; Gonorrhea (DX.4), Syphilis (DX.11), Trichomoniasis (DX.13) or other STD (DX.9) OR
; Due date = Date of most recent positive Chlamydia test + 56 days (for retest after cure) OR
; Due date = Date of most recent Chlamydia test + 365 days (or 12 months).
; If "Now," then text = "Chlamydia test may be due now. Please review your patient's recent and past history and consider ordering this test; last documented test was [date].
; *** What happens if a Chlamydia test is done on Monday and a Gonorrhea (etc.) is found positive on Tuesday? When should the next Chlamydia be scheduled?
HEPCE(GUI) ;EP - REM.T.09
; Hepatitis C EIA Test Due
; Numerator: Any patient with no Hepatitis C (DX.16) diagnosis (POV or problem list) ever documented.
; Due date = Today, if no Hepatitis C EIA (T.13) or Hepatitis C RIBA (T.14) ever documented OR
; Due date = if no documented Hepatitis C EIA (T.13) test but a Hepatitis C confirmation test (T.14) is documented, date of most recent confirmation test + 365 days (1 year) OR
; Due date = if most recent EIA test is not positive, date of most recent, not positive Hepatitis C EIA test + 365 days (or 12 months) OR
; Due date = if most recent EIA test is positive followed by a negative Hepatitis C RIBA test, date of EIA test +365 days (or 12 months).
; If most recent EIA test is positive AND is not followed by documented Hep C confirmation test, then go to REM.T.14
; If "Now," then text = "This patient may be due for a Hepatitis C testing; last documented [date]."
GON(GUI) ;EP - REM.T.08
; Gonorrhea Test Due
; Numerator: All patients 18 years of age and older.
; Due date = Today, if no Gonorrhea test (T.10) ever documented. OR
; Due date = Today, if most recent test results for any of the following are positive
; since the most recent Gonorrhea test and =<365 days from today:
; Chlamydia (T.3); Syphilis (T.22) or (T.9). OR
; Due date = Today, if patient has any of the following POV diagnoses
; since the most recent Gonorrhea test and =<365 days from today:
; Chlamydia (DX.2), Syphilis (DX.11), Trichomoniasis (DX.13) or other STD (DX.9) OR
; Due date = Date of most recent Gonorrhea test + 365 days (or 12 months).
; If "Now," then text = "Gonorrhea test may be due now. Please review your patient's recent and past history and consider ordering this test; last documented test was [date]."
WRITE(REM,GUI) ; Write out the reminder
CD4(GUI) ;EP - REM.T.01
; CD4 Due
; Due date = Today, if no CD4 test (T.2) documented ever.
; Due date = Date of most recent CD4 test + 120 days (or 4 months).
; If "Now," then text = "CD4 laboratory test may be due now; last documented [date]."
SYPF(GUI) ;EP - REM.T.04
; FTA-ABS (Syphilis) Due
; Numerator: Patients with a positive RPR laboratory value (T.22) (defined as positive,
; reactive, indeterminate or any number values) and no FTA-ABS (T.9) documented
; after the date of the positive RPR
; Due date = Date of the most recent positive RPR laboratory test + 14 days.
; If "Now," then text = "An FTA-ABS Syphilis test is strongly recommended at this time because your patient had a positive RPR test documented on [date]."
PPD(GUI) ;EP - REM.T.05
; PPD Due
; Numerator: Patients with:
; 1) No TB DX (DX.14) ever
; 2) No positive PPD results (T.21) ever (positive result or no result but PPD reading >=5 mm)
; 3) No TB treatment (M.08) ever
; Due date = Today, if PPD (T.21) never documented OR
; Due date = Date of most recent PPD + 365 days (or 12 months)
; If "Now," then text = "PPD skin test may be due now; last documented [date]."

External References

Name Field # of Occurrence
$$DATE^APCHSMU WRITE+4, WRITE+5
WRITE^APCHSMU WRITE+6
CPTTAX^BKMIXX HEPBR+10
MEDTAX^BKMIXX PPD+17
PRBTAX^BKMIXX HEPB+12, HEPCE+17, HEPCR+13
CVXTAX^BKMIXX1 HEPBR+9, PPD+27
ICDTAX^BKMIXX1 HEPB+10, HEPCE+15, HEPCR+11, PPD+13
NDCTAX^BKMIXX1 PPD+15
SKNTAX^BKMIXX1 PPD+24
$$POSITIVE^BKMVF32 PPD+35, PPD+37
$$STDS^BKMVF32 CHL+24, GON+20
ADDLINE^BKMVF32 CD4+13, CHL+26, SYPF+15, GON+22, HEPBR+19, HEPB+17, HEPCE+34, HEPCR+22, PPD+40
LABCODES^BKMVF32 CD4+8, CD4+9, CHL+18, SYPF+10, SYPF+13, GON+16, HEPBR+16, HEPB+14, HEPCE+20, HEPCE+22
, HEPCR+16, HEPCR+19, PPD+19
$$FMADD^XLFDT CHL+22, SYPF+14
$$SCH^XLFDT CD4+11, CHL+20, GON+18, HEPCE+25, HEPCE+26, HEPCE+28, PPD+39

Label References

Name Line Occurrences
WRITE CD4+14, CHL+27, SYPF+16, GON+23, HEPBR+20, HEPB+18, HEPCE+35, HEPCR+23, PPD+41

Local Variables

Legend:

>> 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!
>> APCHSAGE CHL+17, GON+15
APCHSTEX WRITE+8!
APCHSTEX(1 WRITE+2*, WRITE+4*, WRITE+5*, WRITE+7
BDATE GON+12~, GON+14*, GON+20, GON+21, HEPBR+6~, HEPBR+8*, HEPBR+18, HEPB+6~, HEPB+8*, HEPB+16
, HEPCE+9~, HEPCE+13*, HEPCE+24, HEPCR+7~, HEPCR+9*, HEPCR+21, PPD+9~, PPD+11*, PPD+29
CNT HEPBR+6~, HEPBR+7*, HEPBR+12*, HEPBR+13, HEPBR+14
>> DFN CD4+8, CD4+9, CHL+18, CHL+24, SYPF+10, SYPF+13, GON+16, GON+20, HEPBR+9, HEPBR+10
, HEPBR+16, HEPB+10, HEPB+12, HEPB+14, HEPCE+15, HEPCE+17, HEPCE+20, HEPCE+22, HEPCR+11, HEPCR+13
, HEPCR+16, HEPCR+19, PPD+13, PPD+15, PPD+17, PPD+19, PPD+24, PPD+27
DT CD4+12, CHL+24, CHL+25, GON+14, HEPBR+8, HEPB+8, HEPCE+13, HEPCR+9, PPD+11, WRITE+4
, WRITE+5
DUE CD4+5~, CD4+7*, CD4+11*, CD4+12*, CD4+13, CHL+14~, CHL+16*, CHL+20*, CHL+22*, CHL+24*
, CHL+25*, CHL+26, SYPF+7~, SYPF+9*, SYPF+14*, SYPF+15, GON+12~, GON+13*, GON+18*, GON+20*
, GON+21*, GON+22, HEPBR+6~, HEPBR+7*, HEPBR+18*, HEPBR+19, HEPB+6~, HEPB+7*, HEPB+16*, HEPB+17
, HEPCE+9~, HEPCE+12*, HEPCE+24*, HEPCE+25*, HEPCE+26*, HEPCE+28*, HEPCE+34, HEPCR+7~, HEPCR+8*, HEPCR+21*
, HEPCR+22, PPD+9~, PPD+10*, PPD+29*, PPD+39*, PPD+40
ENDATE HEPCE+9~, HEPCE+12*, HEPCE+20, HEPCE+26
EPDATE HEPCE+9~, HEPCE+12*, HEPCE+20, HEPCE+26, HEPCE+28, HEPCE+29, HEPCR+7~, HEPCR+8*, HEPCR+16, HEPCR+17
, HEPCR+19
GUI CD4~, CD4+6*, CD4+14, CHL~, CHL+15*, CHL+27, SYPF~, SYPF+8*, SYPF+16, GON~
, GON+23, HEPBR~, HEPBR+20, HEPB~, HEPB+18, HEPCE~, HEPCE+35, HEPCR~, HEPCR+23, PPD~
, PPD+41, WRITE~, WRITE+6, WRITE+7
LAST CD4+5~, CD4+7*, CD4+8, CD4+10*, CD4+11, CD4+12, CD4+13, CHL+14~, CHL+16*, CHL+18
, CHL+19, CHL+20, CHL+22, CHL+24, CHL+25, CHL+26, SYPF+7~, SYPF+9*, SYPF+13, SYPF+14
, SYPF+15, GON+12~, GON+13*, GON+16, GON+17, GON+18, GON+20, GON+21, GON+22, HEPBR+6~
, HEPBR+7*, HEPBR+9, HEPBR+11*, HEPBR+13*, HEPBR+16, HEPBR+17*, HEPBR+18*, HEPBR+19, HEPB+6~, HEPB+7*
, HEPB+10, HEPB+11, HEPB+12, HEPB+13, HEPB+14, HEPB+15, HEPB+17, HEPCE+9~, HEPCE+12*, HEPCE+20
, HEPCE+24, HEPCE+25, HEPCE+26, HEPCE+28, HEPCE+29, HEPCE+34, HEPCR+7~, HEPCR+8*, HEPCR+22, PPD+9~
, PPD+10*, PPD+19, PPD+20*, PPD+25*, PPD+28*, PPD+29, PPD+38*, PPD+39, PPD+40
LAST1 CD4+5~, CD4+7*, CD4+9, CD4+10, CHL+14~, CHL+16*, HEPBR+6~, HEPBR+7*, HEPBR+10, HEPBR+11
, HEPBR+15*, HEPBR+16, HEPBR+17, HEPBR+18, HEPCE+9~, HEPCE+12*, HEPCE+15, HEPCE+16, HEPCE+17, HEPCE+18
, HEPCR+7~, HEPCR+8*, HEPCR+11, HEPCR+12, HEPCR+13, HEPCR+14, HEPCR+19, HEPCR+20, PPD+9~, PPD+10*
, PPD+13, PPD+14, PPD+15, PPD+16, PPD+17, PPD+18, PPD+24, PPD+25, PPD+27, PPD+28
LIST CD4+5~, CD4+13, CHL+14~, CHL+26, SYPF+7~, SYPF+15, GON+22, HEPBR+19, HEPB+17, HEPCE+34
, HEPCR+22, PPD+40, WRITE+8!
LIST( WRITE+1, WRITE+3
LRESULT PPD+9~, PPD+10*, PPD+19
ODATE SYPF+7~, SYPF+9*, SYPF+10, SYPF+11
OR SYPF+10, PPD+9~, PPD+10*, PPD+19, PPD+20
PDATE CHL+14~, CHL+16*, CHL+18, CHL+21, CHL+22, SYPF+7~, SYPF+9*, SYPF+10, SYPF+11*, SYPF+12
, SYPF+13, SYPF+14
>> PPD PPD+31*, PPD+32*, PPD+34, PPD+35, PPD+36, PPD+37
PPDPOS PPD+30~, PPD+31*, PPD+32, PPD+35*, PPD+36*, PPD+37*, PPD+38
PPDTEST PPD+22!
PR SYPF+10, PPD+9~, PPD+10*, PPD+19, PPD+20
REM WRITE~, WRITE+1, WRITE+3
>> REMDUE WRITE+7*
>> REMLAST WRITE+7*
>> REMNEXT WRITE+7*
RLAST HEPCE+9~, HEPCE+12*, HEPCE+22, HEPCE+24, HEPCE+25
RNDATE HEPCE+9~, HEPCE+12*, HEPCE+22, HEPCE+28, HEPCE+29
SKIP HEPCE+9~, HEPCE+11*, HEPCE+29*, HEPCE+34
>> TARGET PPD+23*, PPD+24, PPD+26*, PPD+27
TEMP HEPBR+7!
TEMP( HEPBR+12
U PPD+35
VISIT HEPBR+6~, HEPBR+7*, HEPBR+12*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Label References |  Local Variables |  All