Routine: BKMRMWH

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

BKMRMWH ;PRXM/HC/ALA-HMS Women's Health Reminders ; 13 Nov 2007 4:13 PM

Source file <BKMRMWH.m>

Package	Total	Call Graph
IHS HIV Management System	4	CPTTAX^BKMIXX (ICDTAX,PRCTAX,RADTAX)^BKMIXX1 WHTAX^BKMIXX2 (ADDLINE,LABCODES)^BKMVF32
Kernel	1	$$SCH^XLFDT
Patient Care Component	1	($$DATE,WRITE)^APCHSMU
iCare	1	$$AGE^BQIAGE

Package	Total	Caller Graph
IHS HIV Management System	1	BKMVF3

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	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	MAM+9, MAM+11, PAP+12, PAP+14

Name	Line Occurrences
WRITE	MAM+32, PAP+31

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