Routine: BWUTL1

Package	Total	Call Graph
VA Fileman	1	(,NOW)^%DTC
Women's Health	1	($$AGENCY,$$SLDT2,$$TXDT)^BWUTL5

Package	Total	Caller Graph
Women's Health	28	BWBRNED BWBRNOT BWBRPCD BWCMGR BWGETALL BWLABLG BWLETPR BWMDE BWMDE2 BWMDE21 BWMDE5 BWMDET BWMDEX0 BWMDEX2 BWMGRP BWNOTIF BWOLD BWPATP BWPROF2 BWRPPCD2 BWRPSCR1 BWRPSNP BWUPRNI BWUTL3 BWUTL5 BWUTL7 BWUTL8 ^BWP
Patient Care Component	3	APCHS11A APCHS9B5 APCHSM04
Health Summary Components	2	BHSDM5 BHSWPROF
Diabetes Registry	1	BDMS9B5

Entry Points

Name	Comments	DBIA/ICR reference
DES(DFN)	;EP ; YIELD PATIENT'S STATUS AS A DES DAUGHTER: 1=YES, 0=NO. ; DFN=IEN PATIENT FILE
REFS(DFN)	;EP ; RETURN REFERRAL SOURCE FOR THIS PATIENT (INTO CDC PROGRAM). ; DFN=IEN PATIENT FILE
CITY(DFN)	;EP ; GET CITY ADDRESS. ; REQ: DFN=IEN PATIENT FILE
PAPRG1(PREG)	;EP ; YIELD PATIENT'S PAP REGIMEN. ; REQ: PREG=IEN IN BW PAP REGIMEN FILE #9002086.03.
BNEED(DFN,TXDT)	;PEP ; YIELD PATIENT'S BR TX NEED AND BR TX NEED DUE DATE. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE TEXT FORMAT.
EDC(DFN)	;EP ; YIELD IF PATIENT IS PREGNANT, AND EDC. ; REQ: DFN=IEN PATIENT FILE
INACT(DFN)	;EP ; DATE THIS PATIENT BECAME INACTIVE ; REQ: DFN=IEN PATIENT FILE
CURCOM(DFN)	;EP ; GET CURRENT COMMUNITY IEN (ITEM 6 ON PAGE 1 OF REGISTRATION). ; REQ: DFN=IEN PATIENT FILE
DECEASED(DFN)	;EP ; RETURN 1 IF PATIENT IS DECEASED, 0 IF NOT DECEASED. ; REQ: DFN=IEN PATIENT FILE
Z(X,Z)	;EP ; SET Z = NUMERIC (1/1/95) OR TEXT (JAN 1,1995) FORMAT OF DATE. ; REQ: X=FILEMAN INTERNAL DATE FORMAT. ; OPT: Z=1 IF TEXT, 0/"" IF NUMERIC.
AGEAT(DFN,DATE)	;EP ; YIELD PATIENT'S AGE IN YEARS AT GIVEN DATE. ; REQ: DFN =IEN PATIENT FILE ; DATE=DATE AT WHICH AGE IS DESIRED.
HRCN(DFN,DUZ2)	;EP ; IHS HEALTH RECORD NUMBER. IF NOT IHS, RETURN SSN. ; REQ: DFN ; OPT: DUZ2 (SITE), IF NOT PASSED, ASSUMED =DUZ(2).
ZIP(DFN)	;EP ; GET ZIPCODE ADDRESS. ; REQ: DFN=IEN PATIENT FILE
SEX(DFN)	;EP ; RETURN 1 IF PATIENT IS FEMALE. ; REQ: DFN=IEN PATIENT FILE
SSN(DFN)	;EP ; SOCIAL SECURITY NUMBER. ; REQ: DFN=IEN PATIENT FILE
NAME(DFN)	;EP ; PATIENT NAME. ; REQ: DFN=IEN PATIENT FILE
CNEED(DFN,TXDT)	;PEP ; YIELD PATIENT'S CX TX NEED AND CX TX NEED DUE DATE. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE TEXT FORMAT.
HPHONE(DFN)	;EP ; GET HOME PHONE#. ; REQ: DFN=IEN PATIENT FILE
PROC1()	;EP ; DISPLAY PROCEDURE TYPE OF THIS PROCEDURE, USING DA. ; CALLED BY BW PROC-HEADER-1, WHICH CANNOT USE X. ; REQ: DA=IEN OF PROCEDURE IN PROC FILE #9002086.1.
STATE(DFN)	;EP ; GET STATE ADDRESS. ; REQ: DFN=IEN PATIENT FILE
NTPROC()	;EP ; CALLED FROM BW NOTIF-EDITBLK-1(?) BLOCK TO DISPLAY PROCEDURE ; NAME, BASED ON ACCESSION# PTR, WHEN FIRST DISPLAYING SCREEN. ; REQ: X=ACCESSION# OF PROCEDURE
PRIOR1()	;EP ; CALLED FROM BW NOTIF-EDITBLK-1 TO GET VALUE AND TEXT OF ; NOTIFICATION PRIORITY FROM PURPOSE OF NOTIFICATION AS AN ; ACTION WHEN EDITING PURPOSE OF NOTIFICATION. ALSO DISPLAY ; WHETHER PURPOSE IS A RESULT OR A REMINDER. ; REQ: X=IEN IN NOTIFICATION PURPOSE FILE.
PRIOR()	;EP ; CALLED FROM BW NOTIF-EDITBLK-1 TO GET VALUE AND TEXT OF ; NOTIFICATION PRIORITY AND RESULT/REMINDER, FROM PURPOSE OF ; NOTIFICATION WHEN FIRST DISPLAYING SCREEN. ; REQ: DA=IEN OF NOTIFICATION.
AGE(DFN)	;EP ; YIELD PATIENT'S AGE IN YEARS. ; REQ: DFN=IEN PATIENT FILE
NAMAGE(DFN)	;EP ; PATIENT NAME CONCAT WITH AGE. ; REQ: DFN=IEN PATIENT FILE
ENRLDT(DFN,TXDT)	;PEP ; YIELD PATIENT'S ENROLLMENT DATE. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE IN TEXT FORMAT.
ACC(IEN)	;EP ; ACCESSION#; CONCATENATE SCREENING PAP IF IT EXISTS. ; IEN=IEN IN BW PROCEDURE FILE #9002086.1).
PERSON(X)	;EP ; RETURN PERSON'S NAME FROM FILE #200.
CDCID(DFN)	;EP ; CDC UNIQUE PATIENT ID. ; REQ: DFN=IEN PATIENT FILE
FAMHX(DFN)	;EP ; RETURN FAMILY HISTORY OF BREAST CANCER. ; DFN=IEN PATIENT FILE
STREET(DFN)	;EP ; GET STREET ADDRESS. ; REQ: DFN=IEN PATIENT FILE
PROC()	;EP ; DISPLAY PROCEDURE TYPE OF THIS PROCEDURE. ; REQ: X=IEN OF PROCEDURE IN PROC FILE #9002086.1.
PAPRG(DFN,TXDT)	;EP ; YIELD PATIENT'S PAP REGIMEN AND DATE IT BEGAN. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE TEXT FORMAT.
CMGR(DFN)	;EP ; YIELD PATIENT'S CASE MANAGER. ; REQ: DFN=IEN PATIENT FILE
CTYSTZ(DFN)	;EP ; GET ZIPCODE ADDRESS. ; REQ: DFN=IEN PATIENT FILE
DOB(DFN)	;EP ; RETURN PATIENT'S DATE OF BIRTH IN FILEMAN FORMAT. ; REQ: DFN=IEN PATIENT FILE
HRCN1(DFN,DUZ2)	;EP ; IHS HEALTH RECORD NUMBER, WITH NO DASHES INSERTED. ; REQUIRED VARIABLES: DFN, DUZ(2)

External References

Name	Field # of Occurrence
^%DTC	AGE+10, AGEAT+10
NOW^%DTC	AGE+8
$$AGENCY^BWUTL5	HRCN+5
$$SLDT2^BWUTL5	AGE+7, EDC+10, Z+4
$$TXDT^BWUTL5	Z+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HRCN1+4, HRCN1+5, HRCN1+6, CURCOM+5, CURCOM+6
^AUTTCOM - [#9999999.05]	CURCOM+8
^BWCUR - [#9002086.5]	CNEED+9, CNEED+11
^BWMAMT - [#9002086.51]	BNEED+10, BNEED+13
^BWNOT - [#9002086.4]	PRIOR+7, PRIOR+8, NTPROC+5
^BWNOTP - [#9002086.404]	PRIOR1+9, PRIOR1+10, PRIOR1+14
^BWP - [#9002086]	INACT+5, CDCID+4, CDCID+5, CMGR+5, CMGR+6, EDC+5, EDC+6, EDC+7, PAPRG+6, PAPRG+7 , PAPRG+8, CNEED+6, CNEED+7, CNEED+10, BNEED+6, BNEED+8, BNEED+12, DES+4, DES+6, FAMHX+5 , FAMHX+7, REFS+4, REFS+6, ENRLDT+6, ENRLDT+7
^BWPCD - [#9002086.1]	ACC+4, ACC+5, ACC+6, ACC+7, PROC+5, PROC+6, PROC+12
^BWPN - [#9002086.2]	PROC+8, PROC+9
^BWPR - [#9002086.03]	PAPRG1+4, PAPRG1+5
^DD(9002086	DES+5, DES+8, FAMHX+6, FAMHX+9, REFS+5, REFS+8
^DD(9002086.404	PRIOR1+12, PRIOR1+13
^DIC(5 - [#5]	STATE+6
^DPT - [#2]	NAME+4, NAME+5, DOB+4, DOB+5, AGE+7, DECEASED+4, DECEASED+5, SEX+4, SEX+5, INACT+4 , SSN+5, SSN+6, HPHONE+4, HPHONE+5, HPHONE+6, STREET+4, STREET+5, STREET+6, CITY+4, CITY+5 , CITY+6, STATE+4, STATE+5, STATE+6, ZIP+4, ZIP+5, ZIP+6
^VA(200 - [#200]	PERSON+3, PERSON+4

Label References

Name	Line Occurrences
$$AGE	NAMAGE+4
$$CITY	CTYSTZ+4
$$DECEASED	AGE+7
$$DOB	AGE+5, AGEAT+7
$$HRCN1	HRCN+6
$$NAME	NAMAGE+4
$$PAPRG1	PAPRG+9
$$PERSON	CMGR+7
$$PRIOR1	PRIOR+10
$$PROC	NTPROC+6, PROC1+5
$$SSN	HRCN+5
$$STATE	CTYSTZ+4
$$ZIP	CTYSTZ+4
Z	PAPRG+8, CNEED+10, BNEED+12, ENRLDT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BWCUTF	AGE+7
BWY	PROC+3~, PROC+6*, PROC+7, PROC+8, PROC+9
BWYY	PROC+3~*, PROC+5, PROC+7, PROC+8
>> DA	PRIOR+6, PRIOR+7, PRIOR+8, NTPROC+5, PROC1+4
DATE	AGEAT~, AGEAT+6, AGEAT+9
DFN	NAME~, NAME+3, NAME+4, NAME+5, DOB~, DOB+3, DOB+4, DOB+5, AGE~, AGE+4 , AGE+5, AGE+7, DECEASED~, DECEASED+3, DECEASED+4, DECEASED+5, SEX~, SEX+3, SEX+4, SEX+5 , INACT~, INACT+3, INACT+4, INACT+5, AGEAT~, AGEAT+5, AGEAT+7, NAMAGE~, NAMAGE+3, NAMAGE+4 , SSN~, SSN+4, SSN+5, SSN+6, CDCID~, CDCID+3, CDCID+4, CDCID+5, HRCN1~, HRCN1+3 , HRCN1+4, HRCN1+5, HRCN1+6, HRCN~, HRCN+5, HRCN+6, HPHONE~, HPHONE+3, HPHONE+4, HPHONE+5 , HPHONE+6, STREET~, STREET+3, STREET+4, STREET+5, STREET+6, CITY~, CITY+3, CITY+4, CITY+5 , CITY+6, STATE~, STATE+3, STATE+4, STATE+5, STATE+6, ZIP~, ZIP+3, ZIP+4, ZIP+5 , ZIP+6, CTYSTZ~, CTYSTZ+3, CTYSTZ+4, CURCOM~, CURCOM+4, CURCOM+5, CURCOM+6, CMGR~, CMGR+4 , CMGR+5, CMGR+6, EDC~, EDC+4, EDC+5, EDC+6, EDC+7, PAPRG~, PAPRG+5, PAPRG+6 , PAPRG+7, PAPRG+8, CNEED~, CNEED+5, CNEED+6, CNEED+7, CNEED+10, BNEED~, BNEED+5, BNEED+6 , BNEED+8, BNEED+12, DES~, DES+3, DES+4, DES+6, FAMHX~, FAMHX+4, FAMHX+5, FAMHX+7 , REFS~, REFS+3, REFS+4, REFS+6, ENRLDT~, ENRLDT+5, ENRLDT+6, ENRLDT+7
DT	AGE+8*, AGE+9
DUZ(2	HRCN+4
DUZ2	HRCN1~, HRCN1+3, HRCN1+4, HRCN1+5, HRCN1+6, HRCN~, HRCN+4*, HRCN+5, HRCN+6
IEN	ACC~, ACC+3, ACC+4, ACC+5, ACC+7
PREG	PAPRG1~, PAPRG1+3, PAPRG1+4, PAPRG1+5
R	PRIOR1+6~, PRIOR1+11, PRIOR1+12, PRIOR1+13*, PRIOR1+15, PRIOR1+16, PRIOR1+17
TXDT	PAPRG~, PAPRG+8, CNEED~, CNEED+10, BNEED~, BNEED+12, ENRLDT~, ENRLDT+8
U	NAME+5, DOB+4, DOB+5, SEX+5, INACT+5, SSN+6, CDCID+5, HPHONE+5, HPHONE+6, STREET+5 , STREET+6, CITY+5, CITY+6, STATE+5, STATE+6, ZIP+5, ZIP+6, CURCOM+6, CMGR+6, PERSON+4 , EDC+6, EDC+7, PAPRG+7, PAPRG+8, PAPRG1+5, CNEED+7, CNEED+10, CNEED+11, BNEED+8, BNEED+12 , BNEED+13, DES+6, FAMHX+7, REFS+6, ENRLDT+7, ACC+5, ACC+6, ACC+7, PRIOR+8, PRIOR1+10 , PRIOR1+14, NTPROC+5, PROC+6, PROC+9, PROC+12
X	AGE+3~, AGE+8, AGE+11, AGEAT+4~, AGEAT+11, SSN+3~, SSN+6, SSN+7, SSN+8, CMGR+3~ , CMGR+6, CMGR+7, PERSON~, PERSON+2, PERSON+3, PERSON+4, EDC+3~, EDC+7, EDC+10, PAPRG+4~ , PAPRG+8, PAPRG+9, CNEED+4~, CNEED+10, CNEED+11, BNEED+4~, BNEED+12, BNEED+13, DES+6, DES+7 , DES+8, FAMHX+3~, FAMHX+7, FAMHX+8, FAMHX+9, REFS+6, REFS+7, REFS+8, ENRLDT+4~, ENRLDT+7 , ENRLDT+8, ENRLDT+9, Z~, Z+4, ACC+5~, ACC+6, ACC+7, PRIOR+5~, PRIOR+8, PRIOR+9 , PRIOR1+7, PRIOR1+8, PRIOR1+9, PRIOR1+10, PRIOR1+14, NTPROC+4~, NTPROC+5, PROC+4, PROC+5, PROC+6 , PROC+12, PROC1+4~
X1	AGE+3~, AGE+9, AGEAT+4~, AGEAT+9
X2	AGE+3~, AGE+5, AGE+6, AGEAT+4~, AGEAT+7, AGEAT+8
Y	HRCN+6~, HRCN+7, HRCN+8, HRCN+9, HRCN+10, HRCN+11, HRCN+12, CURCOM+3~, CURCOM+6, CURCOM+7 , CURCOM+8, CURCOM+9, EDC+3~, EDC+6, EDC+8, EDC+9, EDC+10, PAPRG+4~, PAPRG+7, PAPRG+9 , CNEED+4~, CNEED+7, CNEED+8, CNEED+9, CNEED+11, BNEED+4~, BNEED+8, BNEED+9, BNEED+10, BNEED+13 , PRIOR1+6~, PRIOR1+10, PRIOR1+11, PRIOR1+13, PROC+3~, PROC+12, PROC+13*, PROC+14, PROC+15
Z	BNEED+4~, Z~, Z+4, PRIOR1+6~, PRIOR1+14, PRIOR1+15, PRIOR1+16, PROC+3~, PROC+9, PROC+14 , PROC+15

Customize PDF page

Package: Women's Health

Routine: BWUTL1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 34

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: