Global: ^WV(790

FileMan FileNo	FileMan Filename	Package
790	WV PATIENT	Womens Health

Package	Total	Routines
Womens Health	47	WV1024P WV1026P WV14PST WVBRNED WVBRNOT WVBRNOT2 WVBRPCD WVBRPCD2 WVCMGR WVGETALL WVLABADD WVLABCHK WVMGRP WVMGRP1 WVMGRP2 WVMSTL WVPATE WVPATP WVPRE WVPROF2 WVRALINK WVRPCGF1 WVRPCNO WVRPCOR WVRPCOR1 WVRPCPD WVRPCPT WVRPCPT1 WVRPCVPR WVRPSCR1 WVRPSCR2 WVRPSNP WVRPST WVSNOMED WVTDALRT WVTIU WVUTL1 WVUTL11 WVUTL1A WVUTL3 WVUTL6 WVUTL8 WVUTL9 ^WV(790.04 ^WV(790.1 ^WV(790.3 ^WV(791

Package	Total	Routines
Womens Health	13	WVBRNED WVLABWP WVLRLINK WVMGRP WVPATE WVRADWP WVRALINK WVREFUSE WVRPCPD WVSNOMED WVUTL1 WVUTL1A WVUTL7

Package	Total	FileMan Files
Womens Health	5	WV PAP REGIMEN LOG(#790.04)[.02] WV PROCEDURE(#790.1)[.02] WV REFUSALS(#790.3)[1] WV NOTIFICATION(#790.4)[.01] WV DATA NEEDING REVIEW(#790.8)[.01, #790.801(11)]

Package	Total	FileMan Files
Womens Health	7	WV CASE MANAGER(#790.01)[.1] WV MATERNITY CARE COORDINATOR(#790.011)[.29] WV PAP REGIMEN(#790.03)[.16] WV REFERRAL SOURCE(#790.07)[.22] WV CERVICAL TX NEED(#790.5)[.11] WV BREAST TX NEED(#790.51)[.18] WV CONTRACEPTIVE METHODS(#791)[#790.17(.01)]
Kernel	3	INSTITUTION(#4)[.25, .26] PACKAGE(#9.4)[#790.05(3), #790.16(3)] NEW PERSON(#200)[#790.05(2), #790.05(7), #790.16(2), #790.16(7)]
PCE Patient Care Encounter	1	VISIT(#9000010)[#790.05(4), #790.16(4)]
Registration	1	PATIENT(#2)[.01]
Text Integration Utility	1	TIU DOCUMENT(#8925)[#790.05(5), #790.16(5)]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S:$D(X) DINUM=X I $P(^DPT(DINUM,0),"^",2)'="F" K X D EN^DDIOL("Patient is not female.")` LAST EDITED: `MAY 08, 1998` DESCRIPTION: `This field contains the patient's name. It is a pointer to the Patient (#2) file.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `790^B` `1)= S ^WV(790,"B",$E(X,1,30),DA)=""` `2)= K ^WV(790,"B",$E(X,1,30),DA)`
.02	MAILING ADDRESS-STREET		COMPUTED	MUMPS CODE: `X ^DD(790,.02,9.2) S X=$P(Y(790,.02,101),U,1) S D0=Y(790,.02,80)` `9.2 = S Y(790,.02,80)=$S($D(D0):D0,1:""),Y(790,.02,1)=$S($D(^WV(790,D0,0)):^(0),1:""),D0=$P(Y(790,.02,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.02,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")` ALGORITHM: `.01:.111` LAST EDITED: `MAY 13, 1998` DESCRIPTION: `The street mailing address of this patient. This is computed from data in the Patient file.`
.03	MAILING ADDRESS-CITY		COMPUTED	MUMPS CODE: `X ^DD(790,.03,9.2) S X=$P(Y(790,.03,101),U,4) S D0=Y(790,.03,80)` `9.2 = S Y(790,.03,80)=$S($D(D0):D0,1:""),Y(790,.03,1)=$S($D(^WV(790,D0,0)):^(0),1:""),D0=$P(Y(790,.03,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.03,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")` ALGORITHM: `.01:.114` LAST EDITED: `MAY 13, 1998` DESCRIPTION: `The city mailing address for this patient. This information in this field is obtained from the Patient file.`
.04	MAILING ADDRESS-STATE		COMPUTED	MUMPS CODE: `X ^DD(790,.04,9.3) S X=$P(Y(790,.04,201),U,2) S D0=Y(790,.04,80)` `9.2 = S Y(790,.04,80)=$S($D(D0):D0,1:""),Y(790,.04,1)=$S($D(^WV(790,D0,0)):^(0),1:""),D0=$P(Y(790,.04,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.04,180)=$S($D(D0):D0,1:"")` `9.3 = X ^DD(790,.04,9.2) S Y(790,.04,101)=$S($D(^DPT(D0,.11)):^(.11),1:""),D0=$P(Y(790,.04,101),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(790,.04,201)=$S($D(^DIC(5,D0,0)):^(0),1:"")` ALGORITHM: `.01:.115:1` LAST EDITED: `MAY 13, 1998` DESCRIPTION: `The State portion of this patient's mailing address, obtained from the Patient file.`
.05	MAILING ADDRESS-ZIP		COMPUTED	MUMPS CODE: `X ^DD(790,.05,9.2) S X=$P(Y(790,.05,101),U,6) S D0=Y(790,.05,80)` `9.2 = S Y(790,.05,80)=$S($D(D0):D0,1:""),Y(790,.05,1)=$S($D(^WV(790,D0,0)):^(0),1:""),D0=$P(Y(790,.05,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.05,101)=$S($D(^DPT(D0,.11)):^(.11),1:"")` ALGORITHM: `.01:.116` LAST EDITED: `MAY 13, 1998` DESCRIPTION: `The zip code portion of this patient's mailing address is obtained from the Patient file.`
.06	SSN#		COMPUTED	MUMPS CODE: `X ^DD(790,.06,9.2) S X=$P(Y(790,.06,101),U,9) S D0=Y(790,.06,80)` `9.2 = S Y(790,.06,80)=$S($D(D0):D0,1:""),Y(790,.06,1)=$S($D(^WV(790,D0,0)):^(0),1:""),D0=$P(Y(790,.06,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.06,101)=$S($D(^DPT(D0,0)):^(0),1:"")` ALGORITHM: `.01:SSN` LAST EDITED: `MAY 18, 1998` DESCRIPTION: `This computed field gathers the patient's social security number from the Patient file.`
.1	CASE MANAGER	0;10	POINTER TO WV CASE MANAGER FILE (#790.01)	**********************REQUIRED FIELD********************** WV CASE MANAGER(#790.01) LAST EDITED: `MAY 07, 1998` HELP-PROMPT: `Select the person who is currently managing this patient's breast and cervical treatment needs, letters, follow-up, etc.` DESCRIPTION: `This field contains the name of the person who is currently managing the women's health care needs of this patient.` CROSS-REFERENCE: `790^C` `1)= S ^WV(790,"C",$E(X,1,30),DA)=""` `2)= K ^WV(790,"C",$E(X,1,30),DA)`
.11	CX TX NEED	0;11	POINTER TO WV CERVICAL TX NEED FILE (#790.5)	WV CERVICAL TX NEED(#790.5) LAST EDITED: `MAY 07, 1998` HELP-PROMPT: `Select the current or next cervical procedure needed for this patient.` DESCRIPTION: `This field contains the name of the current or next cervical procedure or treatment need scheduled for this patient.`
.12	CX TX NEED DUE DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 1995` HELP-PROMPT: `Enter the date by which this cervical treatment need should be completed.` DESCRIPTION: `This field contains the date when this cervical procedure or treatment need should be completed.`
.15	DES DAUGHTER	0;15	SET	'1' FOR YES; '0' FOR NO; '9' FOR UNKNOWN; LAST EDITED: `MAY 24, 1999` HELP-PROMPT: `Enter 'Yes' if this patient's mother took DES when she was pregnant with this patient.` DESCRIPTION: `This field indicates if this patient's mother took diethylstilbestrol (DES) when she was pregnant with this patient.`
.16	PAP REGIMEN	0;16	POINTER TO WV PAP REGIMEN FILE (#790.03)	WV PAP REGIMEN(#790.03) LAST EDITED: `MAY 07, 1998` DESCRIPTION: `This field stores the current PAP regimen for the patient.` CROSS-REFERENCE: `790^APRLOG^MUMPS` `1)= S WVLPRG=X,WVLDAT=$P(^WV(790,DA,0),U,17) D STORPAP^WVUTL3` `2)= ;`
.17	PAP REGIMEN START DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 21, 1994` HELP-PROMPT: `Enter the date on which the patient began or will begin the current PAP regimen.` DESCRIPTION: `This field stores a date on which the patient began or will begin her current PAP regimen.` CROSS-REFERENCE: `790^APDLOG^MUMPS` `1)= S WVLDAT=X,WVLPRG=$P(^WV(790,DA,0),U,16) D STORPAP^WVUTL3` `2)= ;`
.18	BR TX NEED	0;18	POINTER TO WV BREAST TX NEED FILE (#790.51)	WV BREAST TX NEED(#790.51) LAST EDITED: `MAY 07, 1998` HELP-PROMPT: `Select the current or next breast study procedure needed for this patient.` DESCRIPTION: `This field contains the name of the the current or next breast study procedure needed for this patient.`
.19	BR TX NEED DUE DATE	0;19	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 17, 1995` HELP-PROMPT: `Enter the date by which this breast Tx procedure should be completed.` DESCRIPTION: `This field contains the date by which the breast treatment procedure should be completed.`
.21	DATE OF FIRST ENCOUNTER	0;21	DATE	INPUT TRANSFORM: `S %DT="EX",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `JUL 23, 1998` HELP-PROMPT: `Enter the date on which this patient was enrolled in the Women's Health package.` DESCRIPTION: `This field contains the date of the patient's first clinic visit. Although a date is automatically stuffed when the Automatically Load Patients [WV AUTOLOAD PATIENTS] option is run, the information can be edited through` `the Edit/Print Patient Case Data option.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.22	REFERRAL SOURCE	0;22	POINTER TO WV REFERRAL SOURCE FILE (#790.07)	WV REFERRAL SOURCE(#790.07) LAST EDITED: `MAY 20, 1998` DESCRIPTION: `This field stores information on who referred the patient or how the patient found out about the womens health care services at the facility. This field points to entries in the WV Referral Source (#790.07) file.`
.23	FAMILY HX OF BR CA	0;23	SET	'0' FOR no family history; '1' FOR 2nd degree relative; '2' FOR 1st degree relative; '3' FOR >1 1st degree relatives; '4' FOR personal history; '9' FOR unknown; LAST EDITED: `MAY 24, 1999` HELP-PROMPT: `Enter the code that describes the category of relative(s) who have had breast cancer. (1st degree relative is a sister/mother, 2nd degree relatives are extended family.)` DESCRIPTION: `This field identifies if the patient or the patient's relatives have had breast cancer. The information may be selected from a set of codes to indicate unknown, personal history, no family history, a 2nd degree relative` `(cousin, aunt, grandmother), a 1st degree relative (mother OR sister) or multiple 1st degree relatives (mother AND sister).`
.24	DATE INACTIVE	0;24	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 1996` HELP-PROMPT: `Enter the date on which this patient became inactive. ANY date (past, present or future) will cause this patient to be excluded from all reports that assess treatment needs.` DESCRIPTION: `This field contains the date on which this patient's record became inactive. ANY date (past, present or future) will cause this patient's data to be excluded from all reports that assess treatment needs (i.e., Snapshot of` `the Program Today report and Browse Patients with Needs Past Due).`
.25	BREAST TX FACILITY	0;25	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAY 26, 1998` HELP-PROMPT: `The name of the facility that has the responsibility to provide the appropriate breast tests/exams for this patient.` DESCRIPTION: `The name of the facility responsible for performing breast diagnostic procedures for this patient if treatment is performed at another facility. Facility choices are limited to entries in the Institution (#4) file.`
.26	CERVICAL TX FACILITY	0;26	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAY 26, 1998` HELP-PROMPT: `The name of the facility that has the responsibility to provide the appropriate cervical tests/exams for this patient.` DESCRIPTION: `The name of the facility that is responsible for providing the gynecological tests/exams for this patient if treatment is performed at another facility. Facility choices are limited to entries in the Institution (#4) file.`
.28	CST	0;28	SET	'Y' FOR Yes; 'N' FOR No; 'D' FOR Declined to Answer; 'U' FOR Unknown; LAST EDITED: `DEC 29, 2000` DESCRIPTION: `This field indicates if the patient has experienced any sexual trauma (rape, sexual assault, etc.) as a civilian.`
.29	MATERNITY CARE COORDINATOR	0;29	POINTER TO WV MATERNITY CARE COORDINATOR FILE (#790.011)	WV MATERNITY CARE COORDINATOR(#790.011) INPUT TRANSFORM: `S DIC("S")="I $P($G(^(0)),U,2)=""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `JUN 12, 2017` HELP-PROMPT: `Select the person who is coordinating this patient's maternity care.` DESCRIPTION: `This field contains the name of the person who is coordinating the maternity care of this patient.` SCREEN: `S DIC("S")="I $P($G(^(0)),U,2)="""""` EXPLANATION: `Only active coordinators are selectable.` CROSS-REFERENCE: `790^D` `1)= S ^WV(790,"D",$E(X,1,30),DA)=""` `2)= K ^WV(790,"D",$E(X,1,30),DA)` `This index allows look-up and sorting of patients by their maternity care coordinator.`
1.01	NOTES	1;0	WORD-PROCESSING #790.06	DESCRIPTION: `This field stores special notes regarding the patient and her health care needs.` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Enter any special notes regarding the patient.` DESCRIPTION: `Enter any special notes regarding the patient`
2	APPOINTMENTS	2;0	Multiple #790.09	790.09 DESCRIPTION: `This multiple contains the patient's future appointments.`
3	COMPLETE ADDRESS	3;0	Multiple #790.12	790.12 LAST EDITED: `JAN 14, 2000` DESCRIPTION: `This multiple field contains the patient's complete mailing address.` TECHNICAL DESCR: `The value for this field is created by calling the ADD^VADPT supported API from the WVUTL9 routine.`
40	PREGNANCY STATUSES	4;0	DATE Multiple #790.05	790.05 LAST EDITED: `AUG 14, 2015` DESCRIPTION: `This field stores the data associated with the patient's pregnancy status.` INDEXED BY: `MEDICALLY UNABLE TO CONCEIVE (AD), PREGNANCY STATE (AF), PREGNANCY STATUS D/T ENTERED & ENTERED IN ERROR & PREGNANCY STATE & MEDICALLY UNABLE TO CONCEIVE & MEDICAL REASON & TRYING TO BECOME PREGNANT & LAST MENSTRUAL PERIOD` `DATE & EDD & OVERRIDE CALCULATED EDD REASON & PREGNANCY END DATE & REASON PREGNANCY ENDED (AH), ENTERED IN ERROR (AN), PREGNANCY STATUS D/T ENTERED & ENTERED IN ERROR & PREGNANCY STATE & LAST MENSTRUAL PERIOD DATE & EDD &` `PREGNANCY END DATE (APREG), VISIT & ENTERED IN ERROR (C), TIU DOCUMENT & ENTERED IN ERROR (D)`
50	LACTATION STATUSES	5;0	DATE Multiple #790.16	790.16 LAST EDITED: `AUG 14, 2015` DESCRIPTION: `This field stores the data associated with the patient's lactation status.` INDEXED BY: `LACTATION STATUS D/T ENTERED & ENTERED IN ERROR & LACTATION STATE & END DATE (AD), ENTERED IN ERROR (AG), LACTATION STATUS D/T ENTERED & ENTERED IN ERROR & LACTATION STATE & END DATE (ALACT), VISIT & ENTERED IN ERROR (C),` `TIU DOCUMENT & ENTERED IN ERROR (D)`

Customize PDF page

Package: Womens Health

Global: ^WV(790

Information

Description

Directly Accessed By Routines, Total: 48

Accessed By FileMan Db Calls, Total: 13

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 13

Fields, Total: 27