Routine: BKMRMLB

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

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]."

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

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

Customize PDF page

Package: IHS HIV Management System

Routine: BKMRMLB

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Label References

Local Variables

Legend: