Global: ^BWPCD

FileMan FileNo	FileMan Filename	Package
9002086.1	BW PROCEDURE	Women's Health

Package	Total	Routines
Women's Health	50	BWBRDUP BWBRMDE BWBRNOT BWBRPCD BWCBE BWCDC BWCVD BWCVD2 BWGRVL1 BWGRVLP BWGRVLU BWLAB BWLABLG BWLETPR BWLOOP BWMDE BWMDE1 BWMDE2 BWMDE21 BWMDE5 BWMDET BWMDET1 BWMDEU BWMDEX BWMDEX2 BWMPEXP BWMPMAIN BWMPUTL BWPATCH8 BWPATCH9 BWPATE BWPCC BWPROC BWPROC1 BWPROF2 BWPRPCD BWRPPCD2 BWRPSCR1 BWRPSNP BWUINC BWUPDISP BWUPRNI BWUPTRAN BWUTL1 BWUTL2 BWUTL3 BWUTL4 ^BWNOT ^BWPCD MP MOLES/SCARS/LUMPS
IHS Uniform Data System	43	BUD0DU BUD0RPC1 BUD0RPTD BUD1DU BUD1RPC1 BUD1RPTD BUD2DU BUD2RPC1 BUD2RPTD BUD4RPC1 BUD4RPTC BUD5RPC1 BUD5RPTC BUD6RPC1 BUD6RPTC BUD7RPC1 BUD7RPTD BUD8DU BUD8RPC1 BUD8RPTD BUD9DU BUD9RPC1 BUD9RPTD BUDADU BUDARPC1 BUDARPTD BUDBDU BUDBRPC1 BUDBRPTD BUDCDU BUDCRPC1 BUDCRPTD BUDDDU BUDDRPC1 BUDDRPTD BUDEDU BUDERP6M BUDERPC1 BUDERPTD BUDHDU BUDHRP6M BUDHRPC1 BUDHRPTD
Diabetes Registry	22	BDMD312 BDMD4DU BDMDADU BDMDBDU BDMDCDU BDMDDDU BDMDEDU BDMDFDU BDMDGDU BDMLPM BDMP012 BDMP112 BDMP412 BDMP512 BDMP612 BDMP712 BDMP812 BDMP912 BDMPA12 BDMPB12 BDMPC12 BDMSMU2
IHS GPRA Information System	17	BGP0DU BGP1DU BGP2DU BGP3DU BGP4DU BGP5D3 BGP5DU BGP6D3 BGP6DU BGP7D3 BGP7DU BGP8D3 BGP8D31 BGP8DU BGP9DU BGPDU BGPMUUT1
Patient Care Component Reports	6	APCLAPI1 APCLD312 APCLP512 APCLP612 APCLP712 APCLP812
Tracking Procedure Workflow	3	BTPWPFNC BTPWPFND BTPWPTRG
Health Summary Components	2	BHSDM4 BHSMU2
IHS Mods To Text Integration Utilities	2	BTIULO10 BTIULO2
PCC New Encounter Form	2	VENPCC1D VENPCC1E
IHS Mods To Patient Care Encounter	1	BPXRMWH
IHS Mods To Radiology Nuclear Medicine	1	BRAWH
IHS Patient	1	AUPNCIXL
Patient Care Component	1	APCHSMU2

Package	Total	Routines
Women's Health	9	BWCVD BWGRVLU BWGRVLU2 BWLOOP BWMPMAIN BWMPUTL BWOLD BWPATCH6 BWRPPCD2
Tracking Procedure Workflow	3	BTPWPEVT BTPWPFND BTPWRWHP
IHS Mods To Text Integration Utilities	2	BTIULO10 BTIULO2
Patient Care Component	2	APCHS1 APCHSM04
Data Warehouse Export System	1	BDWUTIL2
Health Summary Components	1	BHSDEM
IHS HIV Management System	1	BKMIXX2
IHS Mods To Patient Care Encounter	1	BPXRMWH
IHS Patient	1	AUPNCIXL

Package	Total	FileMan Files
Women's Health	2	BW NOTIFICATION(#9002086.4)[.06] BW PROCEDURE(#9002086.1)[.3, 2.36]

Package	Total	FileMan Files
Women's Health	6	BW CDC CBE CATEGORIES(#9002086.93)[2.32] BW RESULTS/DIAGNOSIS(#9002086.31)[.05, .06, .26, .28, .29, .33] BW MAMMOGRAPHY PROJECT RESPONSES(#9002086.25)[10.22, #9002086.107(.04)] BW PATIENT(#9002086)[.02] BW PROCEDURE(#9002086.1)[.3, 2.36] BW PROCEDURE TYPE(#9002086.2)[.04, 2.37]
Kernel	1	NEW PERSON(#200)[.07, .18, .35]
Scheduling	1	HOSPITAL LOCATION(#44)[.11]
Utility Tables	1	LOCATION(#9999999.06)[.1, .34]

Fields, Total: 277

Field #	Name	Loc	Type	Details
.01	ACCESSION#	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>12!($L(X)<6) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Answer must be 6-12 characters in length.` CROSS-REFERENCE: `9002086.1^B` 1)= S ^BWPCD("B",$E(X,1,30),DA)="" 2)= K ^BWPCD("B",$E(X,1,30),DA)
.02	PATIENT	0;2	POINTER TO BW PATIENT FILE (#9002086)	**********************REQUIRED FIELD********************** BW PATIENT(#9002086) LAST EDITED: `JUL 10, 2003` CROSS-REFERENCE: `9002086.1^C` 1)= S ^BWPCD("C",$E(X,1,30),DA)="" 2)= K ^BWPCD("C",$E(X,1,30),DA) CROSS-REFERENCE: `9002086.1^AATOO^MUMPS` 1)= I $G(X) N D,% S %=$G(^BWPCD(DA,0)),D=$P(%,U,3) I D S D=9999999-(D\1),^BWPCD("AA",X,D,DA)="" 2)= I $G(X) N D,% S %=$G(^BWPCD(DA,0)),D=$P(%,U,3) I D S D=9999999-(D\1) K ^BWPCD("AA",X,D,DA)
.03	PCC DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 15, 1998` HELP-PROMPT: `Enter the the date/time of the PCC VISIT to which this procedure should be linked. The PCC VISIT date/time may be different from the date on which the procedure was actually performed.` CROSS-REFERENCE: `9002086.1^AA^MUMPS` 1)= I $G(X) N P,D S P=$P($G(^BWPCD(DA,0)),U,2) I P S D=9999999-(X\1),^BWPCD("AA",P,D,DA)="" 2)= I $G(X) N P,D S P=$P($G(^BWPCD(DA,0)),U,2) I P S D=9999999-(X\1) K ^BWPCD("AA",P,D,DA) CROSS-REFERENCE: `9002086.1^AC` 1)= S ^BWPCD("AC",$E(X,1,30),DA)="" 2)= K ^BWPCD("AC",$E(X,1,30),DA)
.04	PROCEDURE	0;4	POINTER TO BW PROCEDURE TYPE FILE (#9002086.2)	**********************REQUIRED FIELD********************** BW PROCEDURE TYPE(#9002086.2) LAST EDITED: `JUL 31, 1994` CROSS-REFERENCE: `9002086.1^APCD` 1)= S ^BWPCD("APCD",$E(X,1,30),DA)="" 2)= K ^BWPCD("APCD",$E(X,1,30),DA)
.05	RESULTS/DIAGNOSIS	0;5	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S DIC("S")="D PROCSCRN^BWUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 17, 1994` SCREEN: `S DIC("S")="D PROCSCRN^BWUTL2"` EXPLANATION: `Select the result or diagnosis for this Procedure.` CROSS-REFERENCE: `9002086.1^ABNML^MUMPS` 1)= D XREFP05^BWUTL2 2)= ;
.06	SEC RESULT/DIAGNOSIS	0;6	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S DIC("S")="D PROCSCRN^BWUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 17, 1994` SCREEN: `S DIC("S")="D PROCSCRN^BWUTL2"` EXPLANATION: `Select the result or diagnosis for this Procedure.`
.07	PROVIDER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 08, 1996` HELP-PROMPT: `Select the provider/clinician who performed this procedure.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",Y))"` EXPLANATION: `This person must be listed as a PROVIDER in the NEW PERSON file.`
.08	HPV	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 13, 1994` HELP-PROMPT: `Enter "YES" if the lab reports includes HPV.`
.09	MAM UNILATERAL: LEFT OR RIGHT	0;9	SET	'l' FOR LEFT; 'r' FOR RIGHT; LAST EDITED: `JAN 20, 1995` HELP-PROMPT: `Select left or right for this unilateral mammogram.`
.1	HEALTH CARE FACILITY	0;10	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `JUN 21, 1994` HELP-PROMPT: `Enter the name of the health care facility where this procedure was performed.`
.11	WARD/CLINIC/LOCATION	0;11	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUL 12, 1994` HELP-PROMPT: `Enter the ward, clinic, or location in which the procedure was performed.`
.12	DATE OF PROCEDURE	0;12	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:X>DT X K:Y<1 X` LAST EDITED: `MAR 27, 1995` HELP-PROMPT: `Enter the date on which the procedure was performed. DATES IN THE FUTURE MAY NOT BE ENTERED.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002086.1^ABNML1^MUMPS` 1)= D XREFP12^BWUTL2 2)= K ^BWPCD("ABNML",X,DA) CROSS-REFERENCE: `9002086.1^D` 1)= S ^BWPCD("D",$E(X,1,30),DA)="" 2)= K ^BWPCD("D",$E(X,1,30),DA)
.13	COMPLETE BY (DATE)	0;13	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 18, 1994` HELP-PROMPT: `Enter the date after which this procedure will be marked "DELINQUENT" if it has not been "CLOSED", under the STATUS field.`
.14	STATUS	0;14	SET	'o' FOR OPEN; 'c' FOR CLOSED; 'n' FOR NEW; LAST EDITED: `DEC 09, 1994` HELP-PROMPT: `Enter the Status of this Procedure.` CROSS-REFERENCE: `9002086.1^S` 1)= S ^BWPCD("S",$E(X,1,30),DA)="" 2)= K ^BWPCD("S",$E(X,1,30),DA)
.15	RADIOLOGY MAM CASE#	0;15	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X` LAST EDITED: `MAY 27, 1995` HELP-PROMPT: `Enter the IHS Radiology Case# for this Mammogram.` CROSS-REFERENCE: `9002086.1^E` 1)= S ^BWPCD("E",$E(X,1,30),DA)="" 2)= K ^BWPCD("E",$E(X,1,30),DA) This is the crossreference for the Radiology Case#. If mammograms from the IHS Radiology software are imported into the Women's Health database, field #.15 in the BW PROCEDURES file, this xref will allow one to identify the Radiology Procedure that links to this one.
.16	DATE LAST CDC EXPORT	0;16	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 17, 1995` HELP-PROMPT: `Enter the date of the last time this Procedure was exported to CDC.`
.17	CDC EXPORT STATUS	0;17	SET	'1' FOR ADD A RECORD; '2' FOR UPDATE ENTIRE RECORD; LAST EDITED: `JUL 17, 1995` HELP-PROMPT: `This is the CDC Export Status of this record.` CROSS-REFERENCE: `9002086.1^ACDC^MUMPS` 1)= S ^BWPCD("ACDC",DA)="" 2)= K ^BWPCD("ACDC",DA)
.18	ENTERING USER	0;18	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 30, 1994` HELP-PROMPT: `Enter the name of the user who FIRST entered this Procedure.`
.19	DATE FIRST ENTERED	0;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 30, 1994` HELP-PROMPT: `Enter the date on which this Procedure was first entered.` CROSS-REFERENCE: `9002086.1^ADE` 1)= S ^BWPCD("ADE",$E(X,1,30),DA)="" 2)= K ^BWPCD("ADE",$E(X,1,30),DA)
.2	SATISFACTORY EXAM	0;20	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1994` HELP-PROMPT: `Enter "YES" if this exam was satisfactory.`
.21	T-ZONE SEEN ENTIRELY	0;21	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1994` HELP-PROMPT: `Enter "YES" if the entire T-Zone was seen.`
.22	LESION OUTSIDE CANAL	0;22	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1994` HELP-PROMPT: `Enter "YES" if the lesion was outside the canal.`
.23	MULTIFOCAL	0;23	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1994` HELP-PROMPT: `Was the lesion multifocal (as opposed to unifocal)?`
.24	NUMBER OF QUADRANTS	0;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>4)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 17, 1994` HELP-PROMPT: `Enter the number of quadrants occupied by the lesion (0-4).`
.25	ECC DYSPLASIA	0;25	SET	'y' FOR YES; 'n' FOR NO; 'nd' FOR Not Done; 'i' FOR Insufficient Tissue; LAST EDITED: `OCT 19, 1994` HELP-PROMPT: `Choose Yes, No, Not Done, or Insufficient Tissue.`
.26	ECTOCERVICAL BIOPSY	0;26	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S DIC("S")="D PROCSCRN^BWUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 17, 1994` SCREEN: `S DIC("S")="D PROCSCRN^BWUTL2"` EXPLANATION: `Select the diagnosis for the Ectocervical Biopsy.`
.27	MARGINS CLEAR	0;27	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 17, 1994` HELP-PROMPT: `Enter "YES" if the pathology report states that the margins were clear; enter "NO" if not.`
.28	STD EVALUATION	0;28	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S DIC("S")="D PROCSCRN^BWUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 17, 1994` SCREEN: `S DIC("S")="D PROCSCRN^BWUTL2"` EXPLANATION: `Select the diagnosis for the STD Evaluation.`
.29	IMPRESSION	0;29	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S DIC("S")="D PROCSCRN^BWUTL2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 20, 1995` SCREEN: `S DIC("S")="D PROCSCRN^BWUTL2"` EXPLANATION: `Select the Result/Diagnosis that best matches the Care Provider's Impression..`
.3	SCREENING PAP	0;30	POINTER TO BW PROCEDURE FILE (#9002086.1)	BW PROCEDURE(#9002086.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)=1&($P(^(0),U,2)=$P(^BWPCD(DA,0),U,2))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `JAN 07, 2009` SCREEN: `S DIC("S")="I $P(^(0),U,4)=1&($P(^(0),U,2)=$P(^BWPCD(DA,0),U,2))"` EXPLANATION: `Select the Screening PAP that initiated this Colposcopy.` CROSS-REFERENCE: `9002086.1^ACOLP^MUMPS` 1)= I $P(^BWPCD(DA,0),U,4)=2!($P(^BWPCD(DA,0),U,4)=37) S ^BWPCD("ACOLP",X,(9999999-$P(^BWPCD(DA,0),U,12)),DA)="" 2)= K ^BWPCD("ACOLP",X,(9999999-$P(^BWPCD(DA,0),U,12)),DA) If this procedure is a Colposcopy, set a crossreference on the PAP that it points to and the inverse date. This will allow the PAP to bring up the most recent Colp related to it. CROSS-REFERENCE: `9002086.1^AHPV^MUMPS` 1)= I $P(^BWPCD(DA,0),U,4)=40 S ^BWPCD("AHPV",X,(9999999-$P(^BWPCD(DA,0),U,12)),DA)="" 2)= K ^BWPCD("AHPV",X,(9999999-$P(^BWPCD(DA,0),U,12)),DA) If this procedure is an HPV Screen, set a crossreference on the PAP that it points to and the inverse date. This will allow the PAP to bring up the most recent HPV Screen related to it.
.301	SPECIMEN ADEQUACY OF PAP TEST	.3;1	SET	'1' FOR SATISFACTORY; '2' FOR SATISFACTORY FOR EVALUATION BUT LIMITED BY...; '3' FOR UNSATISIFACTORY; '4' FOR UNKNOWN; LAST EDITED: `JUL 09, 2003` HELP-PROMPT: `Report the specimen adequacy as noted under the Bethesda system used.` DESCRIPTION: This field gives programs a way to report specimen adequacy as noted under the Bethesda system. SCREEN: `S DIC("S")="I $S(Y'=2:1,'$G(D0):1,$$BSU^BWMDEX2($P(^BWPCD(D0,0),U,12),$G(DUZ(2)))<2:1,1:0)"` EXPLANATION: `Selection of code 2 only allowed when using Bethesda 1991.`
.302	SPECIMEN TYPE FOR PAP TEST	.3;2	SET	'1' FOR CONVENTIONAL SMEAR; '2' FOR LIQUID BASED; '3' FOR OTHER; '4' FOR UNKNOWN; LAST EDITED: `DEC 23, 2002` HELP-PROMPT: `Indicate how the Pap test specimen was collected.` DESCRIPTION: Indicates how the Pap test specimen was collected. If Bethesda System Used is 2001, then this field must be completed. Otherwise, leave blank.
.31	STAGE AT FINAL DX	0;31	SET	'1' FOR I; '2' FOR II; '3' FOR III; '4' FOR IV; '5' FOR S-Local; '6' FOR S-Regional; '7' FOR S-Distant; '8' FOR Unknown; LAST EDITED: `JUL 31, 1995` HELP-PROMPT: `If the Final Diagnosis is "Invasive Carcinoma" enter the Pathologic or Clinical Stage. If Clinical Stage is unknown, enter the Summary ("S-") Stage.`
.32	DATE RESULTS RECEIVED	0;32	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 15, 1995` HELP-PROMPT: `Enter the date that the results were received/uploaded from the lab.`
.33	FINAL DX PAP/COLP	0;33	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 15, 1995` HELP-PROMPT: `Enter the Final Diagnosis for this PAP/Colp case.` SCREEN: `S DIC("S")="I $P(^(0),U,26)"` EXPLANATION: `Only CDC Pap/Colp Final Diagnoses may be selected.`
.34	FACILITY WHERE ACCESSIONED	0;34	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `MAR 09, 1996` HELP-PROMPT: `Select the facility where this Procedure was accessioned.`
.35	INTERPRETING RADIOLOGIST	0;35	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `FEB 09, 1999`
1.01	RESULTS TEXT	1;0	WORD-PROCESSING #9002086.11
2.01	LAST MENSTRUAL PERIOD	2;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the date of the last menstrual period.`
2.02	LAST NEGATIVE HCG TEST	2;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the date of the last negative HCG test.`
2.03	MENARCHE	2;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<6)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Type a Number between 6 and 20, 0 Decimal Digits`
2.04	COITARCHE	2;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
2.05	PAST/PRESENT STD	2;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter "YES" if the patient has or has had any sexually transmitted diseases.`
2.06	NUMBER OF PARTNERS	2;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
2.07	MARITAL STATUS	2;7	SET	's' FOR SINGLE; 'm' FOR MARRIED; 'd' FOR DIVORCED; LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the patient's marital status.`
2.08	SMOKER	2;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter "YES" if the patient is a smoker.`
2.09	ALCOHOL ABUSE	2;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter "YES" if the patient abuses alcohol.`
2.1	SUBSTANCE ABUSE	2;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter "YES" if the patient abuses illicit substances.`
2.11	GRAVIDA	2;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the number of times the patient has been pregnant.`
2.12	PARA	2;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the number of live births the patient has had.`
2.13	SAB	2;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the number of spontaneous abortions or miscarriages the patient has had.`
2.14	TAB	2;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the number of therapeutic abortions the patient has had.`
2.15	L.C.	2;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 29, 1994` HELP-PROMPT: `Enter the number of living children the patient has.`
2.2	DIAGNOSTIC WORKUP PLANNED	2;20	SET	'1' FOR Planned; '2' FOR Not Planned; '3' FOR Undetermined; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Indicate whether further diagnostic workup procedures are planned to followup on this procedure. (If the result was Normal or WNL, enter 2.)`
2.21	OTHER PROCEDURES PERFORMED	2;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<2) X` LAST EDITED: `JAN 14, 2003` HELP-PROMPT: `Answer must be 2-20 characters in length.`
2.22	STATUS OF FINAL DIAGNOSIS	2;22	SET	'1' FOR Workup Complete; '2' FOR Workup Pending; '3' FOR Lost to Followup; '4' FOR Workup Refused; '9' FOR Irreconcilable; LAST EDITED: `JAN 05, 2009` HELP-PROMPT: `Enter the status of the Final Diagnosis. If a woman dies before workup has started, enter 3, Lost to Followup.`
2.23	DATE OF FINAL DIAGNOSIS	2;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter the date that the Final Diagnosis was made. If the patient was lost to followup or refused workup, enter the date of closeout of this procedure.`
2.24	STATUS OF TREATMENT	2;24	SET	'1' FOR Tx started; '2' FOR Tx pending; '3' FOR Lost to followup; '4' FOR Tx refused; '5' FOR Tx not needed; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter the current status of treatment for this patient. If the woman dies before treatment has begun, enter 3, Lost to followup.`
2.25	DATE OF TREATMENT STATUS	2;25	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 02, 1995` HELP-PROMPT: `If treatment for cancer has begun, enter the date on which the treatment began. If treatment is pending, leave blank. If this procedure is closed, enter date of closeout.`
2.26	REPEAT BREAST EXAM	2;26	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter "YES" if a second or repeat breast exam (CBE) was performed as a followup to the abnormal result from this MAM or CBE.`
2.27	ULTRASOUND	2;27	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter "YES" if an ultrasound was performed as a followup to the abnormal result for this procedure.`
2.28	BIOPSY/LUMPECTOMY	2;28	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter "YES" if a biopsy/lumpectomy was performed as a followup to the abnormal result from this MAM or CBE.`
2.29	FINE NEEDLE/CYST ASPIRATION	2;29	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter "YES" if a fine needle/cyst aspiration was performed as a followup to the abnormal result from this MAM or CBE.`
2.3	FINAL DX FOR BREAST	2;30	SET	'1' FOR Carcinoma In Situ, Other (Stage 0); '2' FOR Invasive Breast Cancer; '3' FOR Breast Cancer Not Diagnosed; '4' FOR Lobular Carcinoma In Situ (LCIS) (Stage 0); '5' FOR Ductal Carcinoma In Situ (DCIS) (Stage 0); LAST EDITED: `MAR 05, 2000` HELP-PROMPT: `Enter the final diagnosis that was made following the workup of this MAM.`
2.31	TUMOR SIZE	2;31	SET	'1' FOR 0cm to <1cm; '2' FOR 1cm to <2cm; '3' FOR 2cm to <5cm; '4' FOR 5cm and greater; '5' FOR Unknown; LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Answer this field ONLY IF the final diagnosis was "Cancer, invasive"; otherwise, it should be left blank.`
2.32	CBE	2;32	POINTER TO BW CDC CBE CATEGORIES FILE (#9002086.93)	BW CDC CBE CATEGORIES(#9002086.93) LAST EDITED: `APR 16, 1996` HELP-PROMPT: `If a CBE was associated with this Mammogram, enter the result. If a CBE was NOT performed, select one of the "Not Done,..." reasons provided.`
2.33	DATE OF CBE	2;33	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 01, 1995` HELP-PROMPT: `Enter the date of the CBE associated with this Mammogram.`
2.34	FOLLOWUP DX MAM VIEWS	2;34	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `AUG 02, 1995` HELP-PROMPT: `Enter "YES" if followup diagnostic mammograms have been taken as a followup to the abnormal result from this MAM or CBE.`
2.35	BREAST SYMPTOMS	2;35	SET	'1' FOR YES; '2' FOR NO; '3' FOR Unknown; LAST EDITED: `DEC 04, 1995` HELP-PROMPT: `Enter whether breast symptoms were present or not.`
2.36	PAP ASSOCIATED WITH THIS CBE	2;36	POINTER TO BW PROCEDURE FILE (#9002086.1)	BW PROCEDURE(#9002086.1) LAST EDITED: `MAR 12, 1996` HELP-PROMPT: `If this procedure is a CBE and if it was added via the PROCEDURE FOLLOW-UP Menu for a PAP, store the IEN of the PAP here, in case this CBE is updated.`
2.37	TREATMENT PROCEDURE	2;37	POINTER TO BW PROCEDURE TYPE FILE (#9002086.2)	BW PROCEDURE TYPE(#9002086.2) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,18)" D ^DIC K DIC S DIC=DIE,X=+Y S Y=-1 K:Y<0 X` LAST EDITED: `SEP 02, 2003` HELP-PROMPT: `Input not available at this time.` SCREEN: `S DIC("S")="I '$P(^(0),U,18)"` EXPLANATION: `Restrict to active procedure types.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.38	PAID BY NBCCEDP	2;38	SET	'1' FOR YES; '2' FOR NO; '3' FOR UNKNOWN; LAST EDITED: `OCT 14, 2010` HELP-PROMPT: `Answer YES if this procedure was paid for by NBCCEDP funding.`
2.39	STANDALONE CBE	2;39	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 19, 2003` HELP-PROMPT: `If this procedure is to be included in MDE Extract enter YES.`
3.01	CLINICAL HISTORY	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>78!($L(X)<1) X` LAST EDITED: `JAN 20, 1995` HELP-PROMPT: `You may enter a one-line clinical history note (limited to 78 characters).`
3.02	CDC EXPORT FLAG	3;2	SET	'0' FOR EXPORT; '1' FOR DO NOT EXPORT; LAST EDITED: `OCT 18, 2000` HELP-PROMPT: `Enter the appropriate code from the list.` DESCRIPTION: Enter the appropriate code from the list to indicate whether or not the procedure should be exported to CDC.
4.01	CVD TYPE OF VISIT	4;1	SET	'1' FOR ENROLLMENT; '2' FOR ANNUAL FOLLOW-UP; '3' FOR ERROR DISREGARD; LAST EDITED: `JUN 20, 2002` HELP-PROMPT: `Enter the appropriate code from the list.`
4.02	CVD VISIT DATE	4;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 2001`
4.03	CVD EDUCATION	4;3	SET	'1' FOR LESS THAN 9 YRS; '2' FOR SOME HIGH SCHOOL; '3' FOR HIGH SCHOOL GRAD OR EQUIV; '4' FOR SOME COLLEGE OR HIGHER; '88' FOR REFUSED; '99' FOR UNKNOWN; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.04	CVD TOLD HIGH CHOLESTEROL	4;4	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.05	CVD TOLD HIGH BLOOD PRESSURE	4;5	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.06	CVD TOLD DIABETES	4;6	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.07	CVD RX HIGH CHOLESTEROL	4;7	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.08	CVD RX HIGH BLOOD PRESSURE	4;8	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.09	CVD RX DIABETES	4;9	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.1	CVD SYSTOLIC BP 1	4;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.11	CVD DIASTOLIC BP 1	4;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.12	CVD SYSTOLIC BP 2	4;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.13	CVD DIASTOLIC BP 2	4;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.14	CVD TOTAL CHOLESTEROL	4;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.15	CVD HDL CHOLESTEROL	4;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.16	CVD LDL CHOLESTEROL	4;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.17	CVD TRIGLYCERIDES	4;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.18	CVD BLOOD GLUCOSE	4;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.19	CVD FASTING STATUS	4;19	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.2	CVD HEIGHT (INCHES)	4;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
4.21	CVD HEIGHT UNITS	4;21	SET	'1' FOR INCHES; '2' FOR CENTIMETERS; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.22	CVD WEIGHT	4;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.23	CVD WEIGHT UNITS	4;23	SET	'1' FOR LBS; '2' FOR KG; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.24	CVD SMOKING STATUS	4;24	SET	'1' FOR EVERYDAY; '2' FOR SOME DAYS; '3' FOR NOT AT ALL; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.25	CVD WAIST (IN)	4;25	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 12, 2003` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.26	CVD HIP (CM)	4;26	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.27	CVD TOBACCO PRODUCT	4;27	SET	'1' FOR CIGARETTES; '2' FOR CIGARS; '3' FOR PIPE; '4' FOR SNUFF; '5' FOR CHEW; '6' FOR MULTIPLE; '7' FOR DON'T USE; LAST EDITED: `NOV 26, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.28	CVD TRYING TO QUIT LAST 12 MO	4;28	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.29	CVD LIKE TO STOP TOBACCO	4;29	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.3	CVD STOP TOBACCO NEXT 30 DAYS	4;30	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.31	CVD COMPLETE BY (DATE)	4;31	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the complete by date.`
4.32	CVD EXPORT TO CDC	4;32	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.33	CVD STATUS	4;33	SET	'1' FOR OPEN; '2' FOR CLOSED; LAST EDITED: `JUL 20, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.34	CVD HISPANIC ORIGIN	4;34	SET	'1' FOR YES; '2' FOR NO; '3' FOR UNKNOWN; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.35	CVD CHOLESTECH TC	4;35	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.36	CVD CHOLESTECH HDL	4;36	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.37	CVD CHOLESTECH BG	4;37	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
4.38	CVD FAMILY HX CHD	4;38	SET	'1' FOR <55; '2' FOR <65; '3' FOR NO; '4' FOR DON'T KNOW; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.39	CVD PAST DX CHD	4;39	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; LAST EDITED: `JAN 15, 2003` HELP-PROMPT: `Enter the appropriate code from the list.`
4.4	CVD TOBACCO STAGE	4;40	SET	'1' FOR 1.PRECONT; '2' FOR 2.CONT; '3' FOR 3.PREP; '4' FOR 4.ACTION; '5' FOR 5.MAINT; '6' FOR 6.NEVER; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.41	CVD TOBACCO RELAPSE	4;41	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.42	CVD PHYSICAL ACTIVITY CAUTION	4;42	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.43	CVD PHYSICAL ACTIVITY STAGE	4;43	SET	'1' FOR 1.PRECONT; '2' FOR 2.CONT; '3' FOR 3.PREP; '4' FOR 4.ACTION; '5' FOR 5.MAINT; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.44	CVD PHYSICAL ACTIVITY RELAPSE	4;44	SET	'1' FOR YES; '2' FOR NO; '0' FOR DON'T KNOW; LAST EDITED: `DEC 22, 2002` HELP-PROMPT: `Enter the appropriate code from the list.`
4.45	CVD NUTRITION STAGE	4;45	SET	'1' FOR 1.PRECONT; '2' FOR 2.CONT; '3' FOR 3.PREP; '4' FOR 4.ACTION; '5' FOR 5.MAINT; LAST EDITED: `NOV 18, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
4.46	CVD NUTRITION RELAPSE	4;46	SET	'1' FOR YES; '2' FOR NO; '0' FOR DON'T KNOW; LAST EDITED: `DEC 22, 2002` HELP-PROMPT: `Enter the appropriate code from the list.`
4.47	CVD LAB SOURCE	4;47	SET	'1' FOR LAB; '2' FOR CHOLESTECH; LAST EDITED: `NOV 26, 2001` HELP-PROMPT: `Enter the appropriate code from the list.`
5.01	PCC VISIT FILE IEN	PCC;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 21, 1998` HELP-PROMPT: `Enter the IEN of the VISIT file entry for this procedure.` CROSS-REFERENCE: `9002086.1^AD` 1)= S ^BWPCD("AD",$E(X,1,30),DA)="" 2)= K ^BWPCD("AD",$E(X,1,30),DA)
5.02	PCC V FILE IEN	PCC;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 22, 1996` HELP-PROMPT: `Enter the IEN of the V File entry for this procedure.`
6.01	CVD PHYSICAL ACTIVITY 1	6;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: Entere the statement regarding patient's physical activity. CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.01,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=DIV+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.02	CVD PHYSICAL ACTIVITY 2	6;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: Enter the statement regarding the patient's nutrition. CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.02,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+DIV+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.03	CVD PHYSICAL ACTIVITY 3	6;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.03,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+DIV+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.04	CVD PHYSICAL ACTIVITY 4	6;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.04,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+DIV+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.05	CVD PHYSICAL ACTIVITY 5	6;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.05,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+DIV+$P(Y(1),U,6)+$P(Y(1),U,7)+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.06	CVD PHYSICAL ACTIVITY 6	6;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 12, 2003` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.06,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+DIV+$P(Y(1),U,7)+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.07	CVD PHYSICAL ACTIVITY 7	6;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<-99)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 06, 2002` HELP-PROMPT: `Type a Number between -99 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.07,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+DIV+$P(Y(1),U,8) 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.08	CVD PHYSICAL ACTIVITY 8	6;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^6.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9002086.1,6.08,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),6)),DIV=X S $P(^(6),U,9)=DIV,DIH=9002086.1,DIG=6.09 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+DIV 2)= Q CREATE VALUE)= #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 DELETE VALUE)= NO EFFECT FIELD)= #6.09
6.09	CVD PHYSICAL ACTIVITY TOTAL	6;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` 9.2 = S Y(9002086.1,6.09,1)=$S($D(^BWPCD(D0,6)):^(6),1:"") S X=$P(Y(9002086.1,6.09,1),U,1)+$P(Y(9002086.1,6.09,1),U,2)+$P(Y(9002086.1,6.09,1),U,3)+$P(Y(9002086.1,6.09,1),U,4) 9.1 = #6.01+#6.02+#6.03+#6.04+#6.05+#6.06+#6.07+#6.08 LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the CVD PHYSICAL ACTIVITY 1 field of the BW PROCEDURE File` TRIGGERED by the CVD PHYSICAL ACTIVITY 2 field of the BW PROCEDURE File TRIGGERED by the CVD PHYSICAL ACTIVITY 3 field of the BW PROCEDURE File TRIGGERED by the CVD PHYSICAL ACTIVITY 4 field of the BW PROCEDURE File TRIGGERED by the CVD PHYSICAL ACTIVITY 5 field of the BW PROCEDURE File TRIGGERED by the CVD PHYSICAL ACTIVITY 6 field of the BW PROCEDURE File TRIGGERED by the CVD PHYSICAL ACTIVITY 7 field of the BW PROCEDURE File TRIGGERED by the CVD PHYSICAL ACTIVITY 8 field of the BW PROCEDURE File
6.1	CVD TOH NUTRITION	6;10	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `FEB 15, 2003` HELP-PROMPT: `Enter the appropriate code from the list.`
6.11	CVD TOH PA	6;11	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `FEB 15, 2003` HELP-PROMPT: `Enter the appropriate code from the list.`
6.12	CVD TOH SMOKING	6;12	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `FEB 15, 2003` HELP-PROMPT: `Enter the appropirate code from the list.`
6.13	CVD 10,000 STEPS	6;13	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `FEB 15, 2003` HELP-PROMPT: `Enter the appropriate code from the list.`
6.14	CVD WALK DAYS/WEEK	6;14	SET	'M' FOR MISSING; 'R' FOR RARELY; '0' FOR NONE; '1' FOR 1; '2' FOR 2; '3' FOR 3; '4' FOR 4; '5' FOR 5; '6' FOR 6; '7' FOR 7; LAST EDITED: `AUG 27, 2003` HELP-PROMPT: `Enter the number of days per week patient walks briskly.`
6.15	CVD EAT FRUIT&VEGE TIMES/DAY	6;15	SET	'M' FOR MISSING; 'R' FOR RARELY; '0' FOR NONE; '1' FOR 1; '2' FOR 2; '3' FOR 3; '4' FOR 4; '5' FOR 5; '6' FOR 6; '7' FOR 7; '8' FOR 8; '9' FOR 9; '>9' FOR >9; LAST EDITED: `AUG 27, 2003` HELP-PROMPT: `Enter the number of times per day that the patient consumes fruits and/or vegetables.`
6.16	CVD HGBA1C	6;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Type a Number between 0 and 9999, 1 Decimal Digit`
6.17	CVD BPREFER	6;17	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; '4' FOR NOT AN ALERT READING; LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Was patient referred for diagnostic follow-up?`
6.18	CVD BPREDATE	6;18	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1!(DT` `OUTPUT TRANSFORM: S Y=$$FMTE^XLFDT(Y,"5Z0")` `LAST EDITED: DEC 28, 2003` `HELP-PROMPT: Enter date patient was referred for diagnostic follow-up.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.19	CVD BPDIDATE	6;19	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1!(DT` `OUTPUT TRANSFORM: S Y=$$FMTE^XLFDT(Y,"5Z0")` `LAST EDITED: DEC 04, 2003` `HELP-PROMPT: Enter date patient received diagnostic follow-up.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.2	CVD BPMEDS	6;20	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; '4' FOR NOT AN ALERT READING; LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Was patient prescribed Rx?`
6.21	CVD TCREFER	6;21	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; '4' FOR NOT AN ALERT READING; LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Was patient referred for diagnostic follow-up?`
6.22	CVD TCREDATE	6;22	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1!(DT` `OUTPUT TRANSFORM: S Y=$$FMTE^XLFDT(Y,"5Z0")` `LAST EDITED: DEC 04, 2003` `HELP-PROMPT: Enter date patient was referred for diagnostic follow-up.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.23	CVD TCDIDATE	6;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1!(DT` `OUTPUT TRANSFORM: S Y=$$FMTE^XLFDT(Y,"5Z0")` `LAST EDITED: DEC 04, 2003` `HELP-PROMPT: Enter date patient received diagnostic follow-up.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.24	CVD TCMEDS	6;24	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; '4' FOR NOT AN ALERT READING; LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Was patient prescribed Rx?`
6.25	CVD BGREFER	6;25	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; '4' FOR NOT AN ALERT READING; LAST EDITED: `DEC 03, 2003` HELP-PROMPT: `Was patient referred for diagnostic follow-up?`
6.26	CVD BGREDATE	6;26	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1!(DT` `OUTPUT TRANSFORM: S Y=$$FMTE^XLFDT(Y,"5Z0")` `LAST EDITED: DEC 04, 2003` `HELP-PROMPT: Enter date patient was referred for diagnostic follow-up.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.27	CVD BGDIDATE	6;27	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1!(DT` `OUTPUT TRANSFORM: S Y=$$FMTE^XLFDT(Y,"5Z0")` `LAST EDITED: DEC 04, 2003` `HELP-PROMPT: Enter date patient received diagnostic follow-up.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.28	CVD BGMEDS	6;28	SET	'1' FOR YES; '2' FOR NO; '3' FOR DON'T KNOW; '4' FOR NOT AN ALERT READING; LAST EDITED: `DEC 04, 2003` HELP-PROMPT: `Was patient prescribed Rx?`
7.01	CVD INTERVENTION A	7;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 21, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Enter the CVD information.
7.02	CVD INTERVENTION B	7;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 21, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Enter the CVD information.
7.03	CVD INTERVENTION C	7;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 21, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Enter the CVD information.
7.04	CVD INTERVENTION D	7;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 03, 2002` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Enter the CVD information.
7.05	CVD INTERVENTION E	7;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `SEP 21, 2001` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: Enter the CVD information.
8.01	CVD NUTRITION 1	8;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 22, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^8.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002086.1,8.01,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),8)),DIV=X S $P(^(8),U,6)=DIV,DIH=9002086.1,DIG=8.06 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=DIV+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5) 2)= Q CREATE VALUE)= #8.01+#8.02+#8.03+#8.04+#8.05 DELETE VALUE)= NO EFFECT FIELD)= #8.06
8.02	CVD NUTRITION 2	8;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^8.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002086.1,8.02,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),8)),DIV=X S $P(^(8),U,6)=DIV,DIH=9002086.1,DIG=8.06 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,1)+DIV+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5) 2)= Q CREATE VALUE)= #8.01+#8.02+#8.03+#8.04+#8.05 DELETE VALUE)= NO EFFECT FIELD)= #8.06
8.03	CVD NUTRITION 3	8;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^8.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002086.1,8.03,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),8)),DIV=X S $P(^(8),U,6)=DIV,DIH=9002086.1,DIG=8.06 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+DIV+$P(Y(1),U,4)+$P(Y(1),U,5) 2)= Q CREATE VALUE)= #8.01+#8.02+#8.03+#8.04+#8.05 DELETE VALUE)= NO EFFECT FIELD)= #8.06
8.04	CVD NUTRITION 4	8;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 12, 2003` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^8.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002086.1,8.04,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),8)),DIV=X S $P(^(8),U,6)=DIV,DIH=9002086.1,DIG=8.06 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+DIV+$P(Y(1),U,5) 2)= Q CREATE VALUE)= #8.01+#8.02+#8.03+#8.04+#8.05 DELETE VALUE)= NO EFFECT FIELD)= #8.06
8.05	CVD NUTRITION 5	8;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` CROSS-REFERENCE: `^^TRIGGER^9002086.1^8.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002086.1,8.05,1,1,1.1) S DIH=$G(^BWPCD(DIV(0),8)),DIV=X S $P(^(8),U,6)=DIV,DIH=9002086.1,DIG=8.06 D ^DICR 1.1)= S X=DIV S Y(1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(1),U,1)+$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+DIV 2)= Q CREATE VALUE)= #8.01+#8.02+#8.03+#8.04+#8.05 DELETE VALUE)= NO EFFECT FIELD)= #8.06
8.06	CVD NUTRITION TOTAL	8;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` 9.2 = S Y(9002086.1,8.06,1)=$S($D(^BWPCD(D0,8)):^(8),1:"") S X=$P(Y(9002086.1,8.06,1),U,1)+$P(Y(9002086.1,8.06,1),U,2)+$P(Y(9002086.1,8.06,1),U,3)+$P(Y(9002086.1,8.06,1),U,4) 9.1 = #8.01+#8.02+#8.03+#8.04+#8.05 LAST EDITED: `JAN 21, 2002` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the CVD NUTRITION 1 field of the BW PROCEDURE File` TRIGGERED by the CVD NUTRITION 2 field of the BW PROCEDURE File TRIGGERED by the CVD NUTRITION 3 field of the BW PROCEDURE File TRIGGERED by the CVD NUTRITION 5 field of the BW PROCEDURE File TRIGGERED by the CVD NUTRITION 4 field of the BW PROCEDURE File
10.01	MP VISIT REASON	10;1	SET	'1' FOR ROUTINE SCREENING; '2' FOR FOLLOW-UP TO ROUTINE SCREENING EXAM; '3' FOR CONCERNS ABOUT BREAST PROBLEMS; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003` HELP-PROMPT: `Select the main reason for the patient visit.`
10.02	MP NEVER MAMMOGRAM	10;2	SET	'0' FOR UNCHECKED; '1' FOR CHECKED; LAST EDITED: `APR 02, 2003`
10.03	MP LAST MAMMOGRAM DATE	10;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 02, 2003`
10.04	MP LAST MAMMOGRAM LOCATION	10;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JUL 18, 2003` HELP-PROMPT: `Answer must be 1-15 characters in length.`
10.05	MP CBE IN 3 MONTHS	10;5	SET	'0' FOR NO; '1' FOR YES; '7' FOR NOT SURE; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.06	MP HISTORY OF BC	10;6	SET	'0' FOR NO; '1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.07	MP MOTHER BC	10;7	SET	'0' FOR NO; '3' FOR YES; '7' FOR NOT SURE; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.08	MP SISTER BC	10;8	SET	'0' FOR NO; '1' FOR ONE; '2' FOR 2 OR MORE; '7' FOR NOT SURE; '9' FOR UNKNOWN; LAST EDITED: `APR 24, 2003`
10.09	MP DAUGHTER BC	10;9	SET	'0' FOR NO; '1' FOR ONE; '2' FOR 2 OR MORE; '7' FOR NOT SURE; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.1	MP BC BEFORE 50	10;10	SET	'0' FOR NO; '1' FOR ONE; '2' FOR 2 OR MORE; '7' FOR NOT SURE; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.11	MP MENOPAUSE	10;11	SET	'0' FOR NO; '1' FOR YES, NATURAL; '2' FOR YES, SURGICAL; '7' FOR YES, OTHER; '5' FOR NOT SURE; '9' FOR UNKNOWN; LAST EDITED: `APR 11, 2003`
10.12	MP MENOPAUSE AGE	10;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 02, 2003` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
10.13	MP GIVEN BIRTH	10;13	SET	'0' FOR NO; '1' FOR YES; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.14	MP AGE 1ST BIRTH	10;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<9)!(X?.E1"."1N.N) X` LAST EDITED: `APR 14, 2003` HELP-PROMPT: `Type a Number between 9 and 99, 0 Decimal Digits`
10.15	MP HEIGHT (IN)	10;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>96)!(X<30)!(X?.E1"."1N.N) X` LAST EDITED: `APR 02, 2003` HELP-PROMPT: `Enter patient's height in inches.`
10.16	MP WEIGHT (LB)	10;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 02, 2003` HELP-PROMPT: `Enter patient's weight in pounds.`
10.18	MP EDUCATION LEVEL	10;18	SET	'1' FOR '2' FOR HIGH SCHOOL GRADUATE OR GED; '3' FOR SOME COLLEGE OR TECHNICAL SCHOOL; '4' FOR COLLEGE OR POST-COLLEGE GRADUATE; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.19	MP RT INITIALS	10;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `APR 02, 2003` HELP-PROMPT: `Answer must be 1-3 characters in length.`
10.2	MP XRAY NUMBER	10;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 02, 2003` HELP-PROMPT: `Answer must be 1-10 characters in length.`
10.21	MP INDICATION FOR EXAM	10;21	SET	'1' FOR SCREENING (ASYMPTOMATIC); '4' FOR EVALUATION OF BREAST PROBLEM (SYMPTOMATIC); '2' FOR ADDITIONAL EVALUATION OF RECENT EXAM; '3' FOR SHORT INTERVAL FOLLOW-UP; LAST EDITED: `APR 02, 2003`
10.22	MP LOCATION	10;22	POINTER TO BW MAMMOGRAPHY PROJECT RESPONSES FILE (#9002086.25)	BW MAMMOGRAPHY PROJECT RESPONSES(#9002086.25) INPUT TRANSFORM: `S DIC("S")="I $$LOC^BWMPSCRN(10.22,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 03, 2003` HELP-PROMPT: `Select a location where this procedure was performed.` SCREEN: `S DIC("S")="I $$LOC^BWMPSCRN(10.22,Y)"` EXPLANATION: `Restrict to location type entries.`
10.23	MP BREAST DENSITY	10;23	SET	'1' FOR ALMOST ENTIRELY FAT; '2' FOR SCATTERED FIBROGLANDULAR DENSITIES; '3' FOR HETEROGENOUSLY DENSE; '4' FOR EXTREMELY DENSE; '9' FOR UNKNOWN; LAST EDITED: `APR 02, 2003`
10.24	MP RAD READER CODE	10;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 21, 2003` HELP-PROMPT: `Answer must be 2 characters in length.`
10.25	MP RAD READ DATE	10;25	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 02, 2003`
10.26	MP DRAD READER CODE	10;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 21, 2003` HELP-PROMPT: `Answer must be 2 characters in length.`
10.27	MP DRAD READ DATE	10;27	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 02, 2003`
10.28	MP RAD AGREE ASSESSMENT	10;28	SET	'O' FOR OTHER ASSESSMENT OR RECOMMENDATIONS; '1' FOR AGREE WITH ASSESSMENT & RECOMMENDATIONS; LAST EDITED: `APR 02, 2003`
10.29	MP BREASTFED	10;29	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 03, 2003`
10.291	MP AGE AT 1ST BREAST FEEDING	10;30	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<9)!(X?.E1"."1N.N) X` LAST EDITED: `APR 14, 2003` HELP-PROMPT: `Type a Number between 9 and 99, 0 Decimal Digits`
10.292	MP # OF INFANTS BREASTFED	10;31	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 03, 2003` HELP-PROMPT: `Type a Number between 1 and 20, 0 Decimal Digits`
10.293	MP BREASTFED AVG MONTHS/INFANT	10;32	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 03, 2003` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits`
10.33	MP BCHG NONE LAST 3 MONTHS	10;33	SET	'0' FOR UNCHECKED; '1' FOR CHECKED; '9' FOR UNKNOWN; LAST EDITED: `JUL 17, 2003`
10.34	MP BCHG LUMP	10;34	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
10.35	MP BCHG DISCHARGE	10;35	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
10.36	MP BCHG PAIN	10;36	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
10.37	MP BCHG OTHER SYMPTOM	10;37	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
10.38	MP BCHG OTHER TEXT	10;38	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 04, 2003` HELP-PROMPT: `Answer must be 1-15 characters in length.`
10.7	MP MOLES/SCARS/LUMPS	10.7;0	SET Multiple #9002086.107	9002086.107 LAST EDITED: `AUG 26, 2003`
11.01	MP RAD INFO AVAIL (FILMS)	11;1	SET	'0' FOR NOT MARKED; '1' FOR MARKED; LAST EDITED: `APR 03, 2003`
11.02	MP RAD INFO AVAIL (CBE)	11;2	SET	'0' FOR NOT MARKED; '1' FOR MARKED; LAST EDITED: `APR 03, 2003`
11.03	MP PBP ASPIRATE	11;3	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.04	MP PBP BIOPSY	11;4	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.05	MP PBP LUMPECT	11;5	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.06	MP PBP MASTECTOMY	11;6	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.07	MP PBP RADTHERAPY	11;7	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.08	MP PBP RECONSTRUCTION	11;8	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.09	MP PBP REDUCTION	11;9	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.1	MP PBP AUGMENTATION	11;10	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.11	MP PBP NO PROCEDURES	11;11	SET	'0' FOR UNCHECKED; '1' FOR CHECKED; LAST EDITED: `MAY 01, 2003`
11.2	MP HM NONE	11;20	SET	'0' FOR NO; '1' FOR YES; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.21	MP HM HORMONE RT	11;21	SET	'0' FOR NO; '1' FOR YES; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.22	MP HM TAMOXIFEN	11;22	SET	'0' FOR NO; '1' FOR YES; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.23	MP HM BIRTH CONTROL	11;23	SET	'0' FOR NO; '1' FOR YES; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.24	MP HM OTHER	11;24	SET	'0' FOR NO; '1' FOR YES; '9' FOR UNKNOWN; LAST EDITED: `APR 04, 2003`
11.25	MP HM OTHER TEXT	11;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 04, 2003` HELP-PROMPT: `Answer must be 1-20 characters in length.`
11.26	MP RAD EP ROUTINEVW	11;26	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.27	MP RAD EP DIAGVIEW	11;27	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.28	MP RAD EP ULTRASOUND	11;28	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.29	MP RAD EP MRI	11;29	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.3	MP RAD EP NUC MED	11;30	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.31	MP RAD EP OTHER IMAGING	11;31	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.32	MP PP NEEDLE LOCALIZATION	11;32	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.33	MP PP CORE BIOPSY	11;33	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.34	MP PP CYST ASPIRATION	11;34	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.35	MP PP FNA	11;35	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
11.36	MP PP DUCTOGRAM	11;36	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 04, 2003`
12.01	MP RAD ASSMNT NEEDS EVAL	12;1	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.02	MP RAD ASSMNT NEGATIVE	12;2	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.03	MP RAD ASSMNT BENIGN	12;3	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.04	MP RAD ASSMNT PROBABLY BENIGN	12;4	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.05	MP RAD ASSMNT SUSP ABNORMALITY	12;5	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.06	MP RAD ASSMNT MALIGANCY	12;6	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.08	MP RAD REC NBI SI (MONTHS)	12;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 18, 2003` HELP-PROMPT: `Enter number of months for short interval`
12.09	MP RAD REC NBI US SI	12;9	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `JUL 18, 2003` HELP-PROMPT: `Next Breast Imaging - Short Interval - Ultrasound`
12.1	MP RAD REC NBI MAM NI	12;10	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `JUL 18, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - NEXT MAMMOGRAM - NORMAL INTERVAL`
12.11	MP RAD REC NMAM SHORT INTERVAL	12;11	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.12	MP RAD REC IWUP ADDL VIEWS	12;12	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003`
12.13	MP RAD REC IWUP ULTRASOUND	12;13	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE WORKUP - ULTRASOUND`
12.14	MP RAD REC IWUP BIOPSY	12;14	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE WORKUP - BIOPSY`
12.15	MP RAD REC IWUP SURG CONSULT	12;15	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE FOLLOWUP - SURGERY CONSULT`
12.16	MP RAD REC IWUP CLINICAL EXAM	12;16	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE WORKUP - CLINICAL EXAM`
12.17	MP RAD REC IWUP FNA	12;17	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE WORKUP - FNA`
12.18	MP RAD REC IWUP MRI	12;18	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE WORKUP - MRI`
12.19	MP RAD REC IWUP NUC MED	12;19	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATIONS - IMMEDIATE WORKUP - NUCLEAR MEDICINE`
12.2	MP RAD REC IWUP OTHER	12;20	SET	'1' FOR RIGHT; '2' FOR LEFT; '4' FOR BOTH; '0' FOR NOT MARKED; LAST EDITED: `APR 07, 2003` HELP-PROMPT: `RADIOLOGIST RECOMMENDATION - IMMEDIATE WORKUP - OTHER`
12.21	MP RAD REC IWUP OTHER TEXT	12;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 07, 2003` HELP-PROMPT: `Answer must be 1-20 characters in length.`
12.3	MP PREVIOUS EXAM DATE	12;30	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 21, 2003`
14.01	REGISTRY LINK STATUS	14;1	SET	'1' FOR PENDING; '2' FOR COMPLETE, RECORD MATCHED; '3' FOR ATTEMPTED, RECORD NOT MATCHED; LAST EDITED: `DEC 19, 2008`
14.02	REGISTRY DATE OF DIAGNOSIS	14;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 04, 2008`
14.03	REGISTRY HISTOLOGIC TYPE	14;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9758)!(X<8000)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 2009` HELP-PROMPT: `Type a Number between 8000 and 9758, 0 Decimal Digits`
14.04	REGISTRY BEHAVIOR	14;4	SET	'0' FOR BENIGN; '1' FOR UNCERTAIN WHETHER BENIGN OR MALIGNANT/BORDERLINE MALIGNANCY; '2' FOR CARCINOMA IN SITU; '3' FOR MALIGNANT; LAST EDITED: `DEC 04, 2008`
14.05	REGISTRY SUMMARY STAGE	14;5	SET	'0' FOR IN SITU; '1' FOR LOCALIZED; '2' FOR REGIONAL, DIRECT EXTENSION ONLY; '3' FOR REGIONAL, REGIONAL LYMPH NODES ONLY; '4' FOR REGIONAL, EXTENSION AND NODES; '5' FOR REGIONAL, NOS; '7' FOR DISTANT; '8' FOR NOT APPLICABLE; '9' FOR UNKNOWN/UNSTAGED; LAST EDITED: `DEC 04, 2008`
14.06	REGISTRY CS GROUP	14;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `JAN 22, 2009` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Registry Collaborative Stage (CS) - Derived AJCC Stage Group
14.07	REGISTRY CS TUMOR SIZE	14;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `JAN 22, 2009` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: Registry Collaborative Stage (CS) Tumor Size
14.08	REGISTRY CS EXTENSION	14;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `JAN 22, 2009` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Registry Collaborative Stage (CS) Extension
14.09	REGISTRY CS LYMPH NODES	14;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `JAN 22, 2009` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Registry Collaborative Stage (CS) Lymph Nodes
14.1	REGISTRY CS METS AT DIAGNOSIS	14;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `JAN 22, 2009` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: Registry Collaborative Stage (CS) Mets at Diagnosis
14.11	REGISTRY PRIMARY SITE	14;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?1A.3N) X` LAST EDITED: `JAN 22, 2009` HELP-PROMPT: `Answer must be 4 characters in length.`
15.01	INDICATION FOR PAP TEST	15;1	SET	'1' FOR ROUTINE; '2' FOR SURVEILLANCE; '3' FOR REFERRED; '4' FOR PAP TEST NOT DONE; '5' FOR BREAST RECORD ONLY; '9' FOR UNKNOWN; LAST EDITED: `JAN 12, 2009`
15.02	CERVICAL DIAG REFERRAL DATE	15;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2008` DESCRIPTION: Cervical Diagnostic Referral Date. If 'Indication for Pap Test is 'REFERRED', enter the date; otherwise leave blank.
15.03	HPV TEST RESULT	15;3	SET	'1' FOR POSITIVE; '2' FOR NEGATIVE; '3' FOR TEST NOT DONE; '9' FOR UNKNOWN; LAST EDITED: `DEC 18, 2008` DESCRIPTION: This field should be left blank if 'INDICATION FOR PAP TEST' is 'BREAST RECORD ONLY'.
15.04	DATE OF HPV TEST	15;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2008` HELP-PROMPT: `This field should be left blank if 'Indication for Pap Test' is BREAST RECORD ONLY.`
15.05	HPV TEST PAID BY NBCCEDP FUNDS	15;5	SET	'1' FOR YES; '2' FOR NO; '9' FOR UNKNOWN; LAST EDITED: `DEC 18, 2008` HELP-PROMPT: `This field should be left blank if 'Indication for Pap Test' is 'BREAST RECORD ONLY'.`
15.06	LEEP	15;6	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `DEC 18, 2008`
15.07	CKC	15;7	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `DEC 18, 2008`
15.08	PAP - ECC	15;8	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `DEC 18, 2008`
15.09	PAP DX PAID BY NBCCEDP FUNDS	15;9	SET	'1' FOR YES; '2' FOR NO; '3' FOR UNKNOWN; LAST EDITED: `SEP 03, 2010`
16.01	IND. FOR INITIAL MAMMOGRAM	16;1	SET	'1' FOR SCREENING; '2' FOR EVALUATE SYMPTOMS; '3' FOR REFERRED; '4' FOR INITIAL MAMMOGRAM NOT DONE; '5' FOR CERVICAL RECORD ONLY; '9' FOR UNKNOWN; LAST EDITED: `JAN 12, 2009`
16.02	BREAST DIAG REFERRAL DATE	16;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2008`
16.03	FILM COMP TO EVAL ASS. INCOMP	16;3	SET	'1' FOR YES; '2' FOR NO/NOT APPLICABLE; LAST EDITED: `DEC 18, 2008`
16.04	FINAL IMAGING OUTCOME	16;4	SET	'1' FOR BI-RADS 1; '2' FOR BI-RADS 2; '3' FOR BI-RADS 3; '4' FOR BI-RADS 4; '5' FOR BI-RADS 5; '7' FOR UNSATISFACTORY; '8' FOR ADDITIONAL IMAGING PENDING; LAST EDITED: `DEC 18, 2008`
16.05	FINAL IMAGING OUTCOME DT	16;5	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 2008`
16.06	MAM DX PAID BY NBCCEDP FUNDS	16;6	SET	'1' FOR YES; '2' FOR NO; '3' FOR UNKNOWN; LAST EDITED: `SEP 03, 2010`
16.07	CBE OF CBE/MAM PAID	16;7	SET	'1' FOR YES; '2' FOR NO; '3' FOR UNKNOWN; LAST EDITED: `MAR 01, 2011` HELP-PROMPT: `Answer YES if this procedure was paid for by NBCCEDP funding.`

Name	Field # of Occurrence
^%DT	.03+1, .12+1, .13+1, .16+1, .19+1, .32+1, 2.01+1, 2.02+1, 2.23+1, 2.25+1 , 2.33+1, 4.02+1, 4.31+1, 6.18+1, 6.19+1, 6.22+1, 6.23+1, 6.26+1, 6.27+1, 10.03+1 , 10.25+1, 10.27+1, 12.3+1, 14.02+1, 15.02+1, 15.04+1, 16.02+1, 16.05+1
XREFP05^BWUTL2	.05(XREF 1S)
XREFP12^BWUTL2	.12(XREF 1S)
^DIC	.05+1, .06+1, .07+1, .26+1, .28+1, .29+1, .3+1, .33+1, 2.37+1, 10.22+1
^DICR	6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S) , 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S)
Y^DIQ	ID.02+1
$$FMTE^XLFDT	6.18OT+1, 6.19OT+1, 6.22OT+1, 6.23OT+1, 6.26OT+1, 6.27OT+1

Name	Line Occurrences (* Changed, ! Killed)
^BWP - [#9002086]	ID.02+1
^BWPCD - [#9002086.1]	.02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .3(XREF 1S), .3(XREF 1K), .3(XREF 2S), .3(XREF 2K), 6.01(XREF 1S), 6.01(XREF 1n1.1) , 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05(XREF 1S), 6.05(XREF 1n1.1), 6.06(XREF 1S), 6.06(XREF 1n1.1) , 6.07(XREF 1S), 6.07(XREF 1n1.1), 6.08(XREF 1S), 6.08(XREF 1n1.1), 6.09OF9.2+1, 8.01(XREF 1S), 8.01(XREF 1n1.1), 8.02(XREF 1S), 8.02(XREF 1n1.1), 8.03(XREF 1S) , 8.03(XREF 1n1.1), 8.04(XREF 1S), 8.04(XREF 1n1.1), 8.05(XREF 1S), 8.05(XREF 1n1.1), 8.06OF9.2+1
^BWPCD("AA"	.02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
^BWPCD("ABNML"	.12(XREF 1K)
^BWPCD("AC"	.03(XREF 2S), .03(XREF 2K)
^BWPCD("ACDC"	.17(XREF 2S), .17(XREF 2K)
^BWPCD("ACOLP"	.3(XREF 1S), .3(XREF 1K)
^BWPCD("AD"	5.01(XREF 1S), 5.01(XREF 1K)
^BWPCD("ADE"	.19(XREF 1S), .19(XREF 1K)
^BWPCD("AHPV"	.3(XREF 2S), .3(XREF 2K)
^BWPCD("APCD"	.04(XREF 1S), .04(XREF 1K)
^BWPCD("B"	.01(XREF 1S), .01(XREF 1K)
^BWPCD("C"	.02(XREF 1S), .02(XREF 1K)
^BWPCD("D"	.12(XREF 2S), .12(XREF 2K)
^BWPCD("E"	.15(XREF 1S), .15(XREF 1K)
^BWPCD("S"	.14(XREF 1S), .14(XREF 1K)
^DD(9002086	ID.02+1
^DD(9002086.1	6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S) , 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	.02(XREF 2S), .02(XREF 2K)
>> %DT	.03+1, .12+1, .13+1, .16+1, .19+1, .32+1, 2.01+1, 2.02+1, 2.23+1, 2.25+1 , 2.33+1, 4.02+1, 4.31+1, 6.18+1, 6.19+1, 6.22+1, 6.23+1, 6.26+1, 6.27+1, 10.03+1 , 10.25+1, 10.27+1, 12.3+1, 14.02+1, 15.02+1, 15.04+1, 16.02+1, 16.05+1
%I	ID.02+1*!
>> C	ID.02+1*
D	.02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K)
>> D0	6.01(XREF 1S), 6.01(XREF 1n1.1), 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05(XREF 1S), 6.05(XREF 1n1.1) , 6.06(XREF 1S), 6.06(XREF 1n1.1), 6.07(XREF 1S), 6.07(XREF 1n1.1), 6.08(XREF 1S), 6.08(XREF 1n1.1), 6.09OF9.2+1, 8.01(XREF 1S), 8.01(XREF 1n1.1), 8.02(XREF 1S) , 8.02(XREF 1n1.1), 8.03(XREF 1S), 8.03(XREF 1n1.1), 8.04(XREF 1S), 8.04(XREF 1n1.1), 8.05(XREF 1S), 8.05(XREF 1n1.1), 8.06OF9.2+1
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K) , .04(XREF 1S), .04(XREF 1K), .12(XREF 1K), .12(XREF 2S), .12(XREF 2K), .14(XREF 1S), .14(XREF 1K), .15(XREF 1S), .15(XREF 1K), .17(XREF 2S) , .17(XREF 2K), .19(XREF 1S), .19(XREF 1K), .3(XREF 1S), .3(XREF 1K), .3(XREF 2S), .3(XREF 2K), 5.01(XREF 1S), 5.01(XREF 1K), 6.01(XREF 1S) , 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S), 8.03(XREF 1S) , 8.04(XREF 1S), 8.05(XREF 1S)
DIC	ID.02+1, .05+1!, .06+1!, .07+1!, .26+1!, .28+1!, .29+1!, .3+1!, .33+1!, 2.37+1!* , 10.22+1!*
DIC("S"	.05+1, .05SCR+1, .06+1, .06SCR+1, .07+1, .07SCR+1, .26+1, .26SCR+1, .28+1, .28SCR+1 , .29+1, .29SCR+1, .3+1, .3SCR+1, .301SCR+1, .33+1, .33SCR+1, 2.37+1, 2.37SCR+1, 10.22+1 , 10.22SCR+1*
>> DIE	.05+1, .06+1, .07+1, .26+1, .28+1, .29+1, .3+1, .33+1, 2.37+1, 10.22+1
>> DIG	6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S) , 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S)
>> DIH	6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S) , 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S)
>> DIU	6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S) , 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S)
DIV	6.01(XREF 1S), 6.01(XREF 1n1.1), 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05(XREF 1S), 6.05(XREF 1n1.1) , 6.06(XREF 1S), 6.06(XREF 1n1.1), 6.07(XREF 1S), 6.07(XREF 1n1.1), 6.08(XREF 1S), 6.08(XREF 1n1.1), 8.01(XREF 1S), 8.01(XREF 1n1.1), 8.02(XREF 1S), 8.02(XREF 1n1.1) , 8.03(XREF 1S), 8.03(XREF 1n1.1), 8.04(XREF 1S), 8.04(XREF 1n1.1), 8.05(XREF 1S), 8.05(XREF 1n1.1)
DIV(0	6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S), 6.08(XREF 1S), 8.01(XREF 1S), 8.02(XREF 1S) , 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S)
DT	.12+1, 6.18+1, 6.19+1, 6.22+1, 6.23+1, 6.26+1, 6.27+1
P	.03(XREF 1S), .03(XREF 1K)
U	ID.02+1, ID.12+1, .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K), .3(XREF 1S), .3(XREF 1K), .3(XREF 2S), .3(XREF 2K) , 6.01(XREF 1S), 6.01(XREF 1n1.1), 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05(XREF 1S), 6.05(XREF 1n1.1) , 6.06(XREF 1S), 6.06(XREF 1n1.1), 6.07(XREF 1S), 6.07(XREF 1n1.1), 6.08(XREF 1S), 6.08(XREF 1n1.1), 6.09OF9.2+1, 8.01(XREF 1S), 8.01(XREF 1n1.1), 8.02(XREF 1S) , 8.02(XREF 1n1.1), 8.03(XREF 1S), 8.03(XREF 1n1.1), 8.04(XREF 1S), 8.04(XREF 1n1.1), 8.05(XREF 1S), 8.05(XREF 1n1.1), 8.06OF9.2+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1!, .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .05+1!, .06+1!, .07+1!, .12+1!, .12(XREF 1K), .12(XREF 2S) , .12(XREF 2K), .13+1!, .14(XREF 1S), .14(XREF 1K), .15+1!, .15(XREF 1S), .15(XREF 1K), .16+1!, .19+1!, .19(XREF 1S) , .19(XREF 1K), .24+1!, .26+1!, .28+1!, .29+1!, .3+1!, .3(XREF 1S), .3(XREF 1K), .3(XREF 2S), .3(XREF 2K) , .32+1!, .33+1!, 2.01+1!, 2.02+1!, 2.03+1!, 2.04+1!, 2.06+1!, 2.11+1!, 2.12+1!, 2.13+1! , 2.14+1!, 2.15+1!, 2.21+1!, 2.23+1!, 2.25+1!, 2.33+1!, 2.37+1!, 3.01+1!, 4.02+1!, 4.1+1! , 4.11+1!, 4.12+1!, 4.13+1!, 4.14+1!, 4.15+1!, 4.16+1!, 4.17+1!, 4.18+1!, 4.2+1!, 4.22+1! , 4.25+1!, 4.26+1!, 4.31+1!, 4.35+1!, 4.36+1!, 4.37+1!, 5.01+1!, 5.01(XREF 1S), 5.01(XREF 1K), 5.02+1! , 6.01+1!, 6.01(XREF 1S), 6.01(XREF 1n1.1), 6.02+1!, 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03+1!, 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04+1! , 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05+1!, 6.05(XREF 1S), 6.05(XREF 1n1.1), 6.06+1!, 6.06(XREF 1S), 6.06(XREF 1n1.1), 6.07+1!, 6.07(XREF 1S) , 6.07(XREF 1n1.1), 6.08+1!, 6.08(XREF 1S), 6.08(XREF 1n1.1), 6.09+1!, 6.09OF9.2+1, 6.16+1!, 6.18+1!, 6.19+1!, 6.22+1! , 6.23+1!, 6.26+1!, 6.27+1!, 7.01+1!, 7.02+1!, 7.03+1!, 7.04+1!, 7.05+1!, 8.01+1!, 8.01(XREF 1S) , 8.01(XREF 1n1.1), 8.02+1!, 8.02(XREF 1S), 8.02(XREF 1n1.1), 8.03+1!, 8.03(XREF 1S), 8.03(XREF 1n1.1), 8.04+1!, 8.04(XREF 1S), 8.04(XREF 1n1.1) , 8.05+1!, 8.05(XREF 1S), 8.05(XREF 1n1.1), 8.06+1!, 8.06OF9.2+1, 10.03+1!, 10.04+1!, 10.12+1!, 10.14+1!, 10.15+1! , 10.16+1!, 10.19+1!, 10.2+1!, 10.22+1!, 10.24+1!, 10.25+1!, 10.26+1!, 10.27+1!, 10.291+1!, 10.292+1! , 10.293+1!, 10.38+1!, 11.25+1!, 12.08+1!, 12.21+1!, 12.3+1!, 14.02+1!, 14.03+1!, 14.06+1!, 14.07+1! , 14.08+1!, 14.09+1!, 14.1+1!, 14.11+1!, 15.02+1!, 15.04+1!, 16.02+1!, 16.05+1!
Y	ID.02+1, .03+1, .05+1, .06+1, .07+1, .12+1, .13+1, .16+1, .19+1, .26+1 , .28+1, .29+1, .3+1, .32+1, .33+1, 2.01+1, 2.02+1, 2.23+1, 2.25+1, 2.33+1 , 2.37+1, 4.02+1, 4.31+1, 6.01(XREF 1S), 6.02(XREF 1S), 6.03(XREF 1S), 6.04(XREF 1S), 6.05(XREF 1S), 6.06(XREF 1S), 6.07(XREF 1S) , 6.08(XREF 1S), 6.18+1, 6.18OT+1, 6.19+1, 6.19OT+1, 6.22+1, 6.22OT+1, 6.23+1, 6.23OT+1, 6.26+1 , 6.26OT+1, 6.27+1, 6.27OT+1, 8.01(XREF 1S), 8.02(XREF 1S), 8.03(XREF 1S), 8.04(XREF 1S), 8.05(XREF 1S), 10.03+1, 10.22+1 , 10.25+1, 10.27+1, 12.3+1, 14.02+1, 15.02+1, 15.04+1, 16.02+1, 16.05+1
Y(	6.09OF9.2+1, 8.06OF9.2+1
Y(0	6.18OT+1, 6.19OT+1, 6.22OT+1, 6.23OT+1, 6.26OT+1, 6.27OT+1
Y(1	6.01(XREF 1S), 6.01(XREF 1n1.1), 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05(XREF 1S), 6.05(XREF 1n1.1) , 6.06(XREF 1S), 6.06(XREF 1n1.1), 6.07(XREF 1S), 6.07(XREF 1n1.1), 6.08(XREF 1S), 6.08(XREF 1n1.1), 8.01(XREF 1S), 8.01(XREF 1n1.1), 8.02(XREF 1S), 8.02(XREF 1n1.1) , 8.03(XREF 1S), 8.03(XREF 1n1.1), 8.04(XREF 1S), 8.04(XREF 1n1.1), 8.05(XREF 1S), 8.05(XREF 1n1.1)

Customize PDF page

Package: Women's Health

Global: ^BWPCD

Information

Description

Directly Accessed By Routines, Total: 152

Accessed By FileMan Db Calls, Total: 21

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 9

Fields, Total: 277

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^(0	ID.02+1, ID.12+1
^(6	6.01(XREF 1S), 6.01(XREF 1n1.1), 6.02(XREF 1S), 6.02(XREF 1n1.1), 6.03(XREF 1S), 6.03(XREF 1n1.1), 6.04(XREF 1S), 6.04(XREF 1n1.1), 6.05(XREF 1S), 6.05(XREF 1n1.1) , 6.06(XREF 1S), 6.06(XREF 1n1.1), 6.07(XREF 1S), 6.07(XREF 1n1.1), 6.08(XREF 1S), 6.08(XREF 1n1.1), 6.09OF9.2+1
^(8	8.01(XREF 1S), 8.01(XREF 1n1.1), 8.02(XREF 1S), 8.02(XREF 1n1.1), 8.03(XREF 1S), 8.03(XREF 1n1.1), 8.04(XREF 1S), 8.04(XREF 1n1.1), 8.05(XREF 1S), 8.05(XREF 1n1.1) , 8.06OF9.2+1