STANDARD DATA DICTIONARY #790 -- WV PATIENT FILE 6/27/25 PAGE 1 STORED IN ^WV(790, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file contains the names of patient's tracked by the Women's Health application. Patient names may be either manually entered by a case manager or loaded through the Automatically Load Patients [WV AUTOLOAD PATIENTS] option. Other data stored in this file can be categorized as demographic, administrative, and clinical information. The clinical data reflects current breast and cervical treatment needs, pregnancy information, breast and cervical treatment regimes, family history of breast cancer and DES, name of facility responsible for breast and treatment needs, and personal history of sexual trauma. Information specific to the results of breast and cervical exams and procedures are stored in the WV Procedure (#790.1) file. Administrative data is limited to the name of the current case manager, the date of first encounter, and the date the patient record was inactivated. DD ACCESS: @ RD ACCESS: WR ACCESS: DEL ACCESS: LAYGO ACCESS: AUDIT ACCESS: @ IDENTIFIED BY: CASE MANAGER (#.1)[R] POINTED TO BY: PATIENT field (#.02) of the WV PAP REGIMEN LOG File (#790.04) PATIENT field (#.02) of the WV PROCEDURE File (#790.1) PATIENT field (#1) of the WV REFUSALS File (#790.3) PATIENT field (#.01) of the WV NOTIFICATION File (#790.4) PATIENT field (#.01) of the WV DATA NEEDING REVIEW File (#790.8) NEW PATIENT field (#11) of the ACTIVITIES sub-field (#790.801) of the WV DATA NEEDING REVIEW File (#790.8) CROSS REFERENCED BY: VISIT(ALVSIT), PAP REGIMEN START DATE(APDLOG), PAP REGIMEN(APRLOG), VISIT(APVSIT), NAME(B), CASE MANAGER(C), MATERNITY CARE COORDINATOR(D) LAST MODIFIED: JUN 24,2020@12:13:58 790,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required) 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) 790,.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. 790,.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. 790,.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. 790,.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. 790,.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. 790,.1 CASE MANAGER 0;10 POINTER TO WV CASE MANAGER FILE (#790.01) (Required) 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) 790,.11 CX TX NEED 0;11 POINTER TO WV CERVICAL TX NEED FILE (#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. 790,.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. 790,.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. 790,.16 PAP REGIMEN 0;16 POINTER TO WV PAP REGIMEN FILE (#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)= ; 790,.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)= ; 790,.18 BR TX NEED 0;18 POINTER TO WV BREAST TX NEED FILE (#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. 790,.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. 790,.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 790,.22 REFERRAL SOURCE 0;22 POINTER TO WV REFERRAL SOURCE FILE (#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. 790,.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). 790,.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). 790,.25 BREAST TX FACILITY 0;25 POINTER TO INSTITUTION FILE (#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. 790,.26 CERVICAL TX FACILITY 0;26 POINTER TO INSTITUTION FILE (#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. 790,.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. 790,.29 MATERNITY CARE COORDINATOR 0;29 POINTER TO WV MATERNITY CARE COORDINATOR FILE (#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. 790,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 790,2 APPOINTMENTS 2;0 Multiple #790.09 (Add New Entry without Asking) DESCRIPTION: This multiple contains the patient's future appointments. 790.09,.01 APPOINTMENTS 0;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X LAST EDITED: MAR 18, 1999 HELP-PROMPT: Answer must be 3-80 characters in length. DESCRIPTION: This field contains the external date of the appointment concatenated to the name of the clinic. This field value is set by the WVUTL9 routine when a WH user displays/prints a notification letter. If there are no future appointments scheduled, then the value "No Future Appointments" is stored in this field. The future appointments are displayed in the text of the letter only when "|APPOINTMENTS|" (without the quotes) appears in the form letter template. CROSS-REFERENCE: 790.09^B 1)= S ^WV(790,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(1),2,"B",$E(X,1,30),DA) 790,3 COMPLETE ADDRESS 3;0 Multiple #790.12 (Add New Entry without Asking) 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. 790.12,.01 COMPLETE ADDRESS 0;1 FREE TEXT INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X LAST EDITED: JAN 14, 2000 HELP-PROMPT: Answer must be 3-50 characters in length. DESCRIPTION: This field contains the patient's complete address (street, city, state and zip code). This information is computed by a call to the ADD^VADPT API and stuffed into this multiple field whenever a notification letter is printed. This address information is displayed in the text of the letter only when "|COMPLETE ADDRESS|" (without the quotes) appears in the form letter template. Example: STREET ADDRESS [LINE 1] <---if there is a value STREET ADDRESS [LINE 2] <---if there is a value STREET ADDRESS [LINE 3] <---if there is a value CITY, STATE ZIP CODE CROSS-REFERENCE: 790.12^B 1)= S ^WV(790,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(1),3,"B",$E(X,1,30),DA) 790,40 PREGNANCY STATUSES 4;0 DATE Multiple #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) 790.05,.01 PREGNANCY STATUS D/T ENTERED 0;1 DATE INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 12, 2019 HELP-PROMPT: Enter the date and time the pregnancy status data was collected. DESCRIPTION: This field stores the date and time the pregnancy status data was entered by the user. CROSS-REFERENCE: 790.05^B 1)= S ^WV(790,DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(1),4,"B",$E(X,1,30),DA) CROSS-REFERENCE: ^^TRIGGER^790.05^2 1)= X ^DD(790.05,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,0)):^(0),1:"") S X=$P(Y(1),U ,2),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^WV(790,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,D IH=790.05,DIG=2 D ^DICR 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^WV(790,D0,4,D1,0)):^( 0),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U)="" 2)= Q CREATE CONDITION)= DATA ENTERED BY="" CREATE VALUE)= S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= DATA ENTERED BY This cross-reference populates the DATA ENTERED BY field (#2) when a new record is created. RECORD INDEXES: AH (#1577), APREG (#1579) 790.05,2 DATA ENTERED BY 0;2 POINTER TO NEW PERSON FILE (#200) LAST EDITED: AUG 14, 2015 HELP-PROMPT: Select the user that obtained the patient's pregnancy status. DESCRIPTION: This field stores the user that obtained the patient's pregnancy status. WRITE AUTHORITY:^ UNEDITABLE NOTES: TRIGGERED by the PREGNANCY STATUS D/T ENTERED field of the PREGNANCY STATUSES sub-field of the WV PATIENT File 790.05,3 DATA SOURCE 0;3 POINTER TO PACKAGE FILE (#9.4) (Required) LAST EDITED: DEC 21, 2017 HELP-PROMPT: Select the software package that was used to collect the pregnancy status data. DESCRIPTION: This field stores the software package used by the user to enter the pregnancy status data. 790.05,4 VISIT 0;4 POINTER TO VISIT FILE (#9000010) LAST EDITED: JAN 13, 2017 HELP-PROMPT: Select the visit associated with this pregnancy status. DESCRIPTION: This field stores a reference to the visit that was selected by the user when the patient's pregnancy status was obtained. CROSS-REFERENCE:790.05^AC^MUMPS 1)= D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT 2)= D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT NOREINDEX)= 1 This cross-reference maintains the dependent entry count in the VISIT file (#9000010). CROSS-REFERENCE:790^APVSIT 1)= S ^WV(790,"APVSIT",$E(X,1,30),DA(1),DA)="" 2)= K ^WV(790,"APVSIT",$E(X,1,30),DA(1),DA) This is the standard cross-reference set for the Visit Tracking application. It allows that application to identify entries that point to the VISIT file. RECORD INDEXES: C (#1580) 790.05,5 TIU DOCUMENT 0;5 POINTER TO TIU DOCUMENT FILE (#8925) LAST EDITED: JUN 13, 2017 HELP-PROMPT: Select the TIU document associated with this pregnancy status. DESCRIPTION: This field stores a reference to the document that was selected by the user when the patient's pregnancy status was obtained. RECORD INDEXES: D (#1581) 790.05,6 ENTERED IN ERROR 0;6 SET '1' FOR YES; LAST EDITED: SEP 12, 2019 HELP-PROMPT: Select whether this record is entered in error or not. DESCRIPTION: This field stores whether the record was entered in error by the user. UNEDITABLE CROSS-REFERENCE:790.05^AK^MUMPS 1)= I X=1 D DELALERT^WVTDALRT("Pregnan",DA(1)) 2)= Q NOREINDEX)= 1 This cross-reference will remove notifications within the Computerized Patient Record System (CPRS) if the current entry is marked as entered in error and notifications were sent for this entry. FIELD INDEX: AN (#1578) MUMPS IR ACTION Short Descr: Populate related fields when the ENTERED IN ERROR field value is entered. Description: This cross-reference populates the MARKED ENTERED IN ERROR BY (#7) and MARKED ENTERED IN ERORR D/T (#8) fields when the ENTERED IN ERROR field (#6) is populated. It will also clear the VISIT (#4) and TIU DOCUMENT (#5) fields. Set Logic: D EIECHG^WVUTL3($G(X1(1)),$G(X2(1)),.DA,4) Kill Logic: Q X(1): ENTERED IN ERROR (790.05,6) (forwards) NO RE-INDEXING ALLOWED! RECORD INDEXES: AH (#1577), APREG (#1579), C (#1580), D (#1581) 790.05,7 MARKED ENTERED IN ERROR BY 0;7 POINTER TO NEW PERSON FILE (#200) LAST EDITED: JAN 05, 2017 HELP-PROMPT: Select the user that marked this record as entered in error. DESCRIPTION: This field stores the user that marked this record as entered in error. UNEDITABLE 790.05,8 MARKED ENTERED IN ERROR D/T 0;8 DATE INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:X<1 X LAST EDITED: JUN 13, 2017 HELP-PROMPT: Enter the date and time this record was marked as entered in error. DESCRIPTION: This field stores the date and time this record was marked as entered in error. UNEDITABLE 790.05,10 REASONS ENTERED IN ERROR 1;0 Multiple #790.15 LAST EDITED: SEP 10, 2015 DESCRIPTION: This field stores the reasons why this record was entered in error. 790.15,.01 REASON ENTERED IN ERROR 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM:K:$L(X)>150!($L(X)<5) X MAXIMUM LENGTH: 150 LAST EDITED: MAY 12, 2017 HELP-PROMPT: Enter the reason why this record was entered in error (5 to 150 characters in length). DESCRIPTION: This field stores the reason why this record was entered in error. UNEDITABLE CROSS-REFERENCE:790.15^B 1)= S ^WV(790,DA(2),4,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(2),4,DA(1),1,"B",$E(X,1,30),DA) 790.05,21 PREGNANCY STATE 2;1 SET '1' FOR PREGNANT; '0' FOR NOT PREGNANT; '2' FOR DO NOT KNOW; LAST EDITED: SEP 12, 2019 HELP-PROMPT: Select the patient's current pregnancy state. DESCRIPTION: This field stores the patient's pregnancy state. NOTES: TRIGGERED by the MEDICALLY UNABLE TO CONCEIVE field of the PREGNANCY STATUSES sub-field of the WV PATIENT File CROSS-REFERENCE:790.05^AE^MUMPS 1)= D PREG^WVTDALRT(DA(1),X) 2)= Q NOREINDEX)= 1 This cross-reference will send a notification within the Computerized Patient Record System (CPRS) if the patient becomes pregnant and the patient has a prescription for a teratogenic drug or an order for an imaging procedure. FIELD INDEX: AF (#1576) MUMPS IR ACTION Short Descr: Update related fields when PREGNANCY STATE field value changes. Description: This cross-reference will update the TRYING TO BECOME PREGNANT (#24) and the CONTRACEPTIVE METHODS USED (#20) fields when the PREGNANCY STATE (#21) field value is changed. Set Logic: D PSTATCHG^WVUTL3(X1(1),X2(1),.DA) Kill Logic: Q X(1): PREGNANCY STATE (790.05,21) (forwards) NO RE-INDEXING ALLOWED! RECORD INDEXES: AH (#1577), APREG (#1579) 790.05,22 MEDICALLY UNABLE TO CONCEIVE 2;2 SET '1' FOR YES; '0' FOR NO; LAST EDITED: SEP 12, 2019 HELP-PROMPT: Select whether the patient is unable to conceive. DESCRIPTION: This field stores whether the patient is medically unable to conceive. NOTES: TRIGGERED by the MEDICAL REASON field of the PREGNANCY STATUSES sub-field of the WV PATIENT File TRIGGERED by the MEDICAL REASON field of the PREGNANCY STATUSES sub-field of the WV PATIENT File CROSS-REFERENCE:790.05^AG^MUMPS 1)= I X=1 D DELALERT^WVTDALRT("Pregnan",DA(1)) 2)= Q NOREINDEX)= 1 This cross-reference will remove all pregnancy-related Computerized Patient Record System (CPRS) notifications for a patient when she is no longer able to medically conceive. CROSS-REFERENCE:^^TRIGGER^790.05^21 1)= X ^DD(790.05,22,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P(Y(1),U, 1),X=X S DIU=X K Y S X="" S DIH=$G(^WV(790,DIV(0),4,DIV(1),2)),DIV=X S $P(^(2),U,1)=DIV,DIH=790.05, DIG=21 D ^DICR 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(790.05,22,0 )),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="YES" 2)= Q CREATE CONDITION)= MEDICALLY UNABLE TO CONCEIVE="YES" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= PREGNANCY STATE NOREINDEX)= 1 This cross-reference clears the PREGNANCY STATE field (#21) when the MEDICALLY UNABLE TO CONCEIVE field (#22) is set to YES. CROSS-REFERENCE:^^TRIGGER^790.05^24 1)= X ^DD(790.05,22,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P(Y(1),U, 4),X=X S DIU=X K Y S X="" S DIH=$G(^WV(790,DIV(0),4,DIV(1),2)),DIV=X S $P(^(2),U,4)=DIV,DIH=790.05, DIG=24 D ^DICR 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(790.05,22,0 )),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_":",2),$C(59))="YES" 2)= Q CREATE CONDITION)= MEDICALLY UNABLE TO CONCEIVE="YES" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= TRYING TO BECOME PREGNANT NOREINDEX)= 1 This cross-reference clears the TRYING TO BECOME PREGNANT field (#24) when the MEDICALLY UNABLE TO CONCEIVE field (#22) is set to YES. CROSS-REFERENCE:^^TRIGGER^790.05^23 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(790.05,22,1,4,69.2) S Y=X,X=Y(2 ),X=X&Y I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(790.05,22,1,4,1.4) 1.4)= S DIH=$G(^WV(790,DIV(0),4,DIV(1),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=790.05,DIG=23 D ^DICR 2)= Q 69.2)= S Y(1)=$C(59)_$P($G(^DD(790.05,22,0)),U,3),Y(3)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P( $P(Y(1),$C(59)_Y(0)_":",2),$C(59))="NO",Y(2)=$G(X) S X=$P(Y(3),U,3)'="" CREATE CONDITION)= (MEDICALLY UNABLE TO CONCEIVE="NO")&(MEDICAL REASON'="") CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= MEDICAL REASON This cross-reference clears the MEDICAL REASON field (#23) when the MEDICALLY UNABLE TO CONCEIVE field (#22) is set to NO. FIELD INDEX: AD (#1575) MUMPS IR ACTION Short Descr: Update CONTRACEPTIVE METHODS field. Description: This cross-reference clears all entries from the CONTRACEPTIVE METHODS multiple field (#30) and removes all Computerized Patient Record System (CPRS) notifications pertaining to the patient's likelihood of becoming pregnant. Set Logic: D METHOD^WVTDALRT(DA(1),.DA,0) Set Cond: S X=0 I $G(X2(1))=1 S X=1 Kill Logic: Q X(1): MEDICALLY UNABLE TO CONCEIVE (790.05,22) (forwards) NO RE-INDEXING ALLOWED! RECORD INDEXES: AH (#1577) 790.05,23 MEDICAL REASON 2;3 FREE TEXT INPUT TRANSFORM:K:$L(X)>100!($L(X)<5) X LAST EDITED: SEP 12, 2019 HELP-PROMPT: Enter the reason(s) why the patient is medically unable to conceive (5 to 100 characters in length). DESCRIPTION: This field stores why the patient is medically unable to conceive. NOTES: TRIGGERED by the MEDICALLY UNABLE TO CONCEIVE field of the PREGNANCY STATUSES sub-field of the WV PATIENT File CROSS-REFERENCE:^^TRIGGER^790.05^22 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(790.05,23,1,1,69.2) S Y=X,X=Y(1 ),X=X&Y I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(790.05,23,1,1,1.4) 1.4)= S DIH=$G(^WV(790,DIV(0),4,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=790.05,DIG=22 D ^DICR 2)= Q 69.2)= S Y(3)=$C(59)_$P($G(^DD(790.05,22,0)),U,3),Y(2)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=Y(0 )'="",Y(1)=$G(X) S X=$P($P(Y(3),$C(59)_$P(Y(2),U,2)_":",2),$C(59))'="YES" CREATE CONDITION)= (MEDICAL REASON'="")&(MEDICALLY UNABLE TO CONCEIVE'="YES") CREATE VALUE)= S X=1 DELETE VALUE)= NO EFFECT FIELD)= MEDICALLY UNABLE TO CONCEIVE This cross-reference will set the MEDICALLY UNABLE TO CONCEIVE field (#22) to YES when the MEDICAL REASON field (#23) has a value and the MEDICALLY UNABLE TO CONCEIVE field is not YES. CROSS-REFERENCE:^^TRIGGER^790.05^22 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(790.05,23,1,2,69.2) S Y=X,X=Y(1 ),X=X&Y I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(790.05,23,1,2,1.4) 1.4)= S DIH=$G(^WV(790,DIV(0),4,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=790.05,DIG=22 D ^DICR 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(790.05,23,1,2,79.2) S Y=X,X=Y(2 ),X=X&Y I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(790.05,23,1,2,2.4) 2.4)= S DIH=$G(^WV(790,DIV(0),4,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=790.05,DIG=22 D ^DICR 69.2)= S Y(3)=$C(59)_$P($G(^DD(790.05,22,0)),U,3),Y(2)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=Y(0 )="",Y(1)=$G(X) S X=$P($P(Y(3),$C(59)_$P(Y(2),U,2)_":",2),$C(59))'="NO" 79.2)= S Y(3)=$C(59)_$P($G(^DD(790.05,22,0)),U,3),Y(1)=$S($D(^WV(790,D0,4,D1,2)):^(2),1:"") S X=$P( Y(1),U,3)="",Y(2)=$G(X) S X=$P($P(Y(3),$C(59)_$P(Y(1),U,2)_":",2),$C(59))'="NO" CREATE CONDITION)= (MEDICAL REASON="")&(MEDICALLY UNABLE TO CONCEIVE'="NO") CREATE VALUE)= S X=0 DELETE CONDITION)= (MEDICAL REASON="")&(MEDICALLY UNABLE TO CONCEIVE'="NO") DELETE VALUE)= S X=0 FIELD)= MEDICALLY UNABLE TO CONCEIVE This cross-reference will set the MEDICALLY UNABLE TO CONCEIVE field (#22) to NO when the MEDICAL REASON field (#23) does not have a value and the MEDICALLY UNABLE TO CONCEIVE field is not NO. RECORD INDEXES: AH (#1577) 790.05,24 TRYING TO BECOME PREGNANT 2;4 SET '1' FOR YES; '0' FOR NO; '2' FOR NOT SURE; LAST EDITED: SEP 12, 2019 HELP-PROMPT: Select whether the patient is trying to become pregnant. DESCRIPTION: This field stores whether the patient is trying to become pregnant. NOTES: TRIGGERED by the MEDICALLY UNABLE TO CONCEIVE field of the PREGNANCY STATUSES sub-field of the WV PATIENT File CROSS-REFERENCE:790.05^AJ^MUMPS 1)= D TRY^WVTDALRT(DA(1),X) 2)= Q NOREINDEX)= 1 This cross-reference will send a notification within the Computerized Patient Record System (CPRS) if the patient is trying to become pregnant and the patient has a prescription for a teratogenic drug or an order for an imaging procedure. RECORD INDEXES: AH (#1577) 790.05,30 CONTRACEPTIVE METHODS USED 3;0 POINTER Multiple #790.17 LAST EDITED: SEP 10, 2015 DESCRIPTION: This field stores the contraceptive methods the patient uses to avoid pregnancy. 790.17,.01 CONTRACEPTIVE METHOD USED 0;1 POINTER TO WV CONTRACEPTIVE METHODS FILE (#791) (Multiply asked) INPUT TRANSFORM:I $G(DIUTIL)'="VERIFY FIELDS",'$G(WVFILE) K X LAST EDITED: SEP 10, 2015 HELP-PROMPT: Select the contraceptive method the patient uses to avoid pregnancy (only a programmer can directly edit this field). DESCRIPTION: This field stores the contraceptive method the patient uses to avoid pregnancy. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:790.17^B 1)= S ^WV(790,DA(2),4,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(2),4,DA(1),3,"B",$E(X,1,30),DA) 790.05,41 LAST MENSTRUAL PERIOD DATE 4;1 DATE INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:X<1!(X>DT) X LAST EDITED: SEP 12, 2019 HELP-PROMPT: Enter the date when the patient's last menstrual period ended (exact or approximate dates in the past only). DESCRIPTION: This field stores the end date of the patient's last menstrual period. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER RECORD INDEXES: AH (#1577), APREG (#1579) 790.05,42 EDD 4;2 DATE INPUT TRANSFORM:N VAL,X1,X2,DATE,%H S %DT="EX" D ^%DT K:Y<1 X Q:'$D(X) S (X,VAL)=Y,X1=DT,X2=-14 Q:$G(DIUTIL)=" VERIFY FIELDS" D C^%DTC K:X>VAL X Q:'$D(X) S X=VAL LAST EDITED: SEP 12, 2019 HELP-PROMPT:Enter the estimated due date (EDD) for the patient (exact date no more than two weeks in the past or any future date). DESCRIPTION: This field stores the estimated due date (EDD) of the patient. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:^^TRIGGER^790.05^43 1)= Q 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^WV(790,D0,4,D1,4)):^(4) ,1:"") S X=$P(Y(1),U,2)="" I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,4)):^(4),1:"") S X=$P(Y(1),U,3) ,X=X S DIU=X K Y S X="" X ^DD(790.05,42,1,1,2.4) 2.4)= S DIH=$G(^WV(790,DIV(0),4,DIV(1),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=790.05,DIG=43 D ^DICR CREATE VALUE)= NO EFFECT DELETE CONDITION)= EDD="" DELETE VALUE)= @ FIELD)= OVERRIDE CALCULATED EDD REASON NOREINDEX)= 1 This cross-reference will delete the OVERRIDE CALCULATED EDD REASON field (#43) when the EDD field (#42) is deleted. RECORD INDEXES: AH (#1577), APREG (#1579) 790.05,43 OVERRIDE CALCULATED EDD REASON 4;3 FREE TEXT INPUT TRANSFORM:K:$L(X)>100!($L(X)<5) X LAST EDITED: SEP 12, 2019 HELP-PROMPT:Enter the reason why you are overriding the calculated expected due date (5 to 100 characters in length). DESCRIPTION: This field stores why the user changed the calculated expected due date. NOTES: TRIGGERED by the EDD field of the PREGNANCY STATUSES sub-field of the WV PATIENT File RECORD INDEXES: AH (#1577) 790.05,44 PREGNANCY END DATE 4;4 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:X<1!(X>DT) X LAST EDITED: SEP 12, 2019 HELP-PROMPT:Enter the date when the patient's pregnancy ended (exact date in the past only). DESCRIPTION: This field stores the date the patient's pregnancy ended. NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER CROSS-REFERENCE:^^TRIGGER^790.05^45 1)= Q 2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^WV(790,D0,4,D1,4)):^(4) ,1:"") S X=$P(Y(1),U,4)="" I X S X=DIV S Y(1)=$S($D(^WV(790,D0,4,D1,4)):^(4),1:"") S X=$P(Y(1),U,5) ,X=X S DIU=X K Y S X="" X ^DD(790.05,44,1,1,2.4) 2.4)= S DIH=$G(^WV(790,DIV(0),4,DIV(1),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=790.05,DIG=45 D ^DICR CREATE VALUE)= NO EFFECT DELETE CONDITION)= PREGNANCY END DATE="" DELETE VALUE)= @ FIELD)= REASON PREGNANCY ENDED NOREINDEX)= 1 This cross-reference will delete the REASON PREGNANCY ENDED field (#45) value when the PREGNANCY END DATE field (#44) value is deleted. RECORD INDEXES: AH (#1577), APREG (#1579) 790.05,45 REASON PREGNANCY ENDED 4;5 FREE TEXT INPUT TRANSFORM:K:$L(X)>75!($L(X)<5) X LAST EDITED: SEP 12, 2019 HELP-PROMPT:Enter the reason why the patient's pregnancy ended (5 to 75 characters in length). DESCRIPTION: This field stores the reason why the patient's pregnancy ended. NOTES: TRIGGERED by the PREGNANCY END DATE field of the PREGNANCY STATUSES sub-field of the WV PATIENT File RECORD INDEXES: AH (#1577) 790,50 LACTATION STATUSES 5;0 DATE Multiple #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) 790.16,.01 LACTATION STATUS D/T ENTERED 0;1 DATE INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 12, 2019 HELP-PROMPT: Enter the date and time the lactation status data was collected. DESCRIPTION: This field stores the date and time the lactation status data was entered by the user. CROSS-REFERENCE: 790.16^B 1)= S ^WV(790,DA(1),5,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(1),5,"B",$E(X,1,30),DA) CROSS-REFERENCE: ^^TRIGGER^790.16^2 1)= X ^DD(790.16,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^WV(790,D0,5,D1,0)):^(0),1:"") S X=$P(Y(1),U ,2),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^WV(790,DIV(0),5,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,D IH=790.16,DIG=2 D ^DICR 1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^WV(790,D0,5,D1,0)):^( 0),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U)="" 2)= Q CREATE CONDITION)= DATA ENTERED BY="" CREATE VALUE)= S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= DATA ENTERED BY This cross-reference populates the DATA ENTERED BY field (#2) when a new record is created. RECORD INDEXES: AD (#1582), ALACT (#1584) 790.16,2 DATA ENTERED BY 0;2 POINTER TO NEW PERSON FILE (#200) LAST EDITED: AUG 14, 2015 HELP-PROMPT: Select the user that obtained the patient's lactation status. DESCRIPTION: This field stores the user that obtained the patient's pregnancy status. WRITE AUTHORITY:^ UNEDITABLE NOTES: TRIGGERED by the LACTATION STATUS D/T ENTERED field of the LACTATION STATUSES sub-field of the WV PATIENT File 790.16,3 DATA SOURCE 0;3 POINTER TO PACKAGE FILE (#9.4) (Required) LAST EDITED: DEC 21, 2017 HELP-PROMPT: Select the software package that was used to collect the lactation status data. DESCRIPTION: This field stores the software package used by the user to enter the lactation status data. 790.16,4 VISIT 0;4 POINTER TO VISIT FILE (#9000010) LAST EDITED: JUN 13, 2017 HELP-PROMPT: Select the visit associated with this lactation status. DESCRIPTION: This field stores a reference to the visit that was selected by the user when the patient's lactation status was obtained. CROSS-REFERENCE:790.16^AC^MUMPS 1)= D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT 2)= D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT NOREINDEX)= 1 This cross-reference maintains the dependent entry count in the VISIT file. CROSS-REFERENCE:790^ALVSIT 1)= S ^WV(790,"ALVSIT",$E(X,1,30),DA(1),DA)="" 2)= K ^WV(790,"ALVSIT",$E(X,1,30),DA(1),DA) This is the standard cross-reference set for the Visit Tracking application. It allows that application to identify entries that point to the VISIT file. RECORD INDEXES: C (#1585) 790.16,5 TIU DOCUMENT 0;5 POINTER TO TIU DOCUMENT FILE (#8925) LAST EDITED: JUN 13, 2017 HELP-PROMPT: Select the TIU document associated with this lactation status. DESCRIPTION: This field stores a reference to the document that was selected by the user when the patient's lactation status was obtained. RECORD INDEXES: D (#1586) 790.16,6 ENTERED IN ERROR 0;6 SET '1' FOR YES; LAST EDITED: SEP 12, 2019 HELP-PROMPT: Select whether this record is entered in error or not. DESCRIPTION: This field stores whether the record was entered in error by the user. UNEDITABLE CROSS-REFERENCE:790.16^AH^MUMPS 1)= I X=1 D DELALERT^WVTDALRT("Lactating.",DA(1)) 2)= Q NOREINDEX)= 1 This cross-reference will remove notifications within the Computerized Patient Record System (CPRS) if the current entry is marked as entered in error and notifications were sent for this entry. FIELD INDEX: AG (#1583) MUMPS IR ACTION Short Descr: Populate related fields when the ENTERED IN ERROR field value is entered. Description: This cross-reference populates the MARKED ENTERED IN ERROR BY (#7) and MARKED ENTERED IN ERROR D/T (#8) fields when the ENTERED IN ERROR field (#6) is populated. It will also clear the VISIT (#4) and TIU DOCUMENT fields (#5). Set Logic: D EIECHG^WVUTL3($G(X1(1)),$G(X2(1)),.DA,5) Kill Logic: Q X(1): ENTERED IN ERROR (790.16,6) (forwards) NO RE-INDEXING ALLOWED! RECORD INDEXES: AD (#1582), ALACT (#1584), C (#1585), D (#1586) 790.16,7 MARKED ENTERED IN ERROR BY 0;7 POINTER TO NEW PERSON FILE (#200) LAST EDITED: JAN 05, 2017 HELP-PROMPT: Select the user that marked this record as entered in error. DESCRIPTION: This field stores the user that marked this record as entered in error. UNEDITABLE 790.16,8 MARKED ENTERED IN ERROR D/T 0;8 DATE INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:X<1 X LAST EDITED: JUN 13, 2017 HELP-PROMPT: Enter the date and time this record was marked as entered in error. DESCRIPTION: This field stores the date and time this record was marked as entered in error. UNEDITABLE 790.16,10 REASONS ENTERED IN ERROR 1;0 Multiple #790.18 LAST EDITED: SEP 10, 2015 DESCRIPTION: This field stores the reasons why this record was entered in error. 790.18,.01 REASON ENTERED IN ERROR 0;1 FREE TEXT (Multiply asked) INPUT TRANSFORM:K:$L(X)>50!($L(X)<5) X LAST EDITED: SEP 10, 2015 HELP-PROMPT: Enter the reason why this record was entered in error (5 to 50 characters in length). DESCRIPTION: This field stores the reason why this record was entered in error. UNEDITABLE CROSS-REFERENCE:790.18^B 1)= S ^WV(790,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^WV(790,DA(2),5,DA(1),1,"B",$E(X,1,30),DA) 790.16,21 LACTATION STATE 2;1 SET '1' FOR LACTATING; '0' FOR NOT LACTATING; LAST EDITED: SEP 12, 2019 HELP-PROMPT: Select the patient's current lactation state. DESCRIPTION: This field stores the patient's current lactation state. CROSS-REFERENCE:790.16^AE^MUMPS 1)= D LACT^WVTDALRT(DA(1),X) 2)= Q NOREINDEX)= 1 This cross-reference will send a notification within the Computerized Patient Record System (CPRS) if the patient starts lactating and the patient has a prescription for an unsafe drug or an order for an imaging procedure. CROSS-REFERENCE:^^TRIGGER^790.16^22 1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(790.16,21,1,2,69.2) S X=X>0 I X S X=DIV S Y(1)=$S($D(^WV(790,D0,5,D1,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD( 790.16,21,1,2,1.4) 1.4)= S DIH=$G(^WV(790,DIV(0),5,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=790.16,DIG=22 D ^DICR 2)= Q 69.2)= S Y(1)=$C(59)_$P($G(^DD(790.16,21,0)),U,3),Y(2)=$S($D(^WV(790,D0,5,D1,2)):^(2),1:"") S X=$P( $P(Y(1),$C(59)_Y(0)_":",2),$C(59))="LACTATING"&$P(Y(2),U,2) CREATE CONDITION)= LACTATION STATE="LACTATING"&END DATE>0 CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= END DATE NOREINDEX)= 1 This cross-reference will delete the END DATE field (#22) value when the LACTATION STATE field (#21) value is set to LACTATING. RECORD INDEXES: AD (#1582), ALACT (#1584) 790.16,22 END DATE 2;2 DATE INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:X<1 X LAST EDITED: SEP 12, 2019 HELP-PROMPT: Enter the date the patient stopped lactating (exact date in the past only). DESCRIPTION: This field stores the date the patient stopped lactating. NOTES: TRIGGERED by the LACTATION STATE field of the LACTATION STATUSES sub-field of the WV PATIENT File RECORD INDEXES: AD (#1582), ALACT (#1584) FILES POINTED TO FIELDS INSTITUTION (#4) BREAST TX FACILITY (#.25) CERVICAL TX FACILITY (#.26) NEW PERSON (#200) PREGNANCY STATUSES:DATA ENTERED BY (#2) MARKED ENTERED IN ERROR BY (#7) LACTATION STATUSES:DATA ENTERED BY (#2) MARKED ENTERED IN ERROR BY (#7) PACKAGE (#9.4) PREGNANCY STATUSES:DATA SOURCE (#3) LACTATION STATUSES:DATA SOURCE (#3) PATIENT (#2) NAME (#.01) TIU DOCUMENT (#8925) PREGNANCY STATUSES:TIU DOCUMENT (#5) LACTATION STATUSES:TIU DOCUMENT (#5) VISIT (#9000010) PREGNANCY STATUSES:VISIT (#4) LACTATION STATUSES:VISIT (#4) WV BREAST TX NEED (#790.51) BR TX NEED (#.18) WV CASE MANAGER (#790.01) CASE MANAGER (#.1) WV CERVICAL TX NEED (#790.5) CX TX NEED (#.11) WV CONTRACEPTIVE METHODS (#791) CONTRACEPTIVE METHODS USED:CONTRACEPTIVE METHOD USED (#.01) WV MATERNITY CARE COORDINATOR (#790.011) MATERNITY CARE COORDINATOR (#.29) WV PAP REGIMEN (#790.03) PAP REGIMEN (#.16) WV REFERRAL SOURCE (#790.07) REFERRAL SOURCE (#.22) Subfile #790.05 Record Indexes: AH (#1577) RECORD MUMPS IR ACTION Short Descr: Clear CPRS Cover Sheet tab data cache Description: This index is used to clear the Computerized Patient Record System (CPRS) Cover Sheet tab data cache whenever data is modified, added or deleted from the PREGNANCY STATUSES multiple field. Set Logic: Q:'+$G(DA(1))!($G(X1(1))'="") N WVSUB S WVSUB=$$GETSUB^WVRPCOR(DA(1)) Q:WVSUB="" K:$D(^XTMP(WVSUB)) ^XTMP(WVS UB) Kill Logic: Q:'+$G(DA(1)) N WVSUB S WVSUB=$$GETSUB^WVRPCOR(DA(1)) Q:WVSUB="" K:$D(^XTMP(WVSUB)) ^XTMP(WVSUB) X(1): PREGNANCY STATUS D/T ENTERED (790.05,.01) (forwards) X(2): ENTERED IN ERROR (790.05,6) (forwards) X(3): PREGNANCY STATE (790.05,21) (forwards) X(4): MEDICALLY UNABLE TO CONCEIVE (790.05,22) (forwards) X(5): MEDICAL REASON (790.05,23) (forwards) X(6): TRYING TO BECOME PREGNANT (790.05,24) (forwards) X(7): LAST MENSTRUAL PERIOD DATE (790.05,41) (forwards) X(8): EDD (790.05,42) (forwards) X(9): OVERRIDE CALCULATED EDD REASON (790.05,43) (forwards) X(10): PREGNANCY END DATE (790.05,44) (forwards) X(11): REASON PREGNANCY ENDED (790.05,45) (forwards) NO RE-INDEXING ALLOWED! APREG (#1579) RECORD MUMPS IR ACTION Short Descr: Timeline of pregnancy statuses. Description: This index allows lookup of records by the dates on which they are applicable. The index is structured as follows: ^WV(790,DA(1),4,"APREG",START_DATE,END_DATE,IEN)="" START_DATE: The first date on which the specified record is applicable. END_DATE: The last date on which the specified record is applicable. IEN: Internal Entry Number of the specified record. Set Logic: N WVINDEX D PREGS^WVUTL11(DA(1),.WVINDEX) Kill Logic: N WVINDEX D PREGS^WVUTL11(DA(1),.WVINDEX) X(1): PREGNANCY STATUS D/T ENTERED (790.05,.01) (forwards) X(2): ENTERED IN ERROR (790.05,6) (forwards) X(3): PREGNANCY STATE (790.05,21) (forwards) X(4): LAST MENSTRUAL PERIOD DATE (790.05,41) (forwards) X(5): EDD (790.05,42) (forwards) X(6): PREGNANCY END DATE (790.05,44) (forwards) C (#1580) RECORD REGULAR IR LOOKUP & SORTING Short Descr: Allows lookup by VISIT field. Description: This cross reference enables the user to lookup status records based on the VISIT field (#4) value. Set Logic: S ^WV(790,DA(1),4,"C",X(1),DA)="" Set Cond: S X=$S(X2(2)="":1,1:0) Kill Logic: K ^WV(790,DA(1),4,"C",X(1),DA) Whole Kill: K ^WV(790,DA(1),4,"C") X(1): VISIT (790.05,4) (Subscr 1) (forwards) X(2): ENTERED IN ERROR (790.05,6) (forwards) D (#1581) RECORD REGULAR IR LOOKUP & SORTING Short Descr: Allows lookup by TIU DOCUMENT field. Description: This cross reference enables the user to lookup status records based on the TIU DOCUMENT field (#5) value. Set Logic: S ^WV(790,DA(1),4,"D",X(1),DA)="" Set Cond: S X=$S(X2(2)="":1,1:0) Kill Logic: K ^WV(790,DA(1),4,"D",X(1),DA) Whole Kill: K ^WV(790,DA(1),4,"D") X(1): TIU DOCUMENT (790.05,5) (Subscr 1) (forwards) X(2): ENTERED IN ERROR (790.05,6) (forwards) Subfile #790.16 Record Indexes: AD (#1582) RECORD MUMPS IR ACTION Short Descr: Clear CPRS Cover Sheet tab data cache Description: This index is used to clear the Computerized Patient Record System (CPRS) Cover Sheet tab data cache whenever data is modified, added or deleted from the LACTATION STATUSES multiple field. Set Logic: Q:'+$G(DA(1))!($G(X1(1))'="") N WVSUB S WVSUB=$$GETSUB^WVRPCOR(DA(1)) Q:WVSUB="" K:$D(^XTMP(WVSUB)) ^XTMP(WVS UB) Kill Logic: Q:'+$G(DA(1)) N WVSUB S WVSUB=$$GETSUB^WVRPCOR(DA(1)) Q:WVSUB="" K:$D(^XTMP(WVSUB)) ^XTMP(WVSUB) X(1): LACTATION STATUS D/T ENTERED (790.16,.01) (forwards) X(2): ENTERED IN ERROR (790.16,6) (forwards) X(3): LACTATION STATE (790.16,21) (forwards) X(4): END DATE (790.16,22) (forwards) NO RE-INDEXING ALLOWED! ALACT (#1584) RECORD MUMPS IR ACTION Short Descr: Timeline of lactation statuses. Description: This index allows lookup of records by the dates on which they are applicable. The index is structured as follows: ^WV(790,DA(1),5,"ALACT",START_DATE,END_DATE,IEN)="" START_DATE: The first date on which the specified record is applicable. END_DATE: The last date on which the specified record is applicable. IEN: Internal Entry Number of the specified record. Set Logic: N WVINDEX D LACTS^WVUTL11(DA(1),.WVINDEX) Kill Logic: N WVINDEX D LACTS^WVUTL11(DA(1),.WVINDEX) X(1): LACTATION STATUS D/T ENTERED (790.16,.01) (forwards) X(2): ENTERED IN ERROR (790.16,6) (forwards) X(3): LACTATION STATE (790.16,21) (forwards) X(4): END DATE (790.16,22) (forwards) C (#1585) RECORD REGULAR IR LOOKUP & SORTING Short Descr: Allows lookup by VISIT field. Description: This cross reference enables the user to lookup status records based on the VISIT field (#4) value. Set Logic: S ^WV(790,DA(1),5,"C",X(1),DA)="" Set Cond: S X=$S(X2(2)="":1,1:0) Kill Logic: K ^WV(790,DA(1),5,"C",X(1),DA) Whole Kill: K ^WV(790,DA(1),5,"C") X(1): VISIT (790.16,4) (Subscr 1) (forwards) X(2): ENTERED IN ERROR (790.16,6) (forwards) D (#1586) RECORD REGULAR IR LOOKUP & SORTING Short Descr: Allows lookup by TIU DOCUMENT field. Description: This cross reference enables the user to lookup status records based on the TIU DOCUMENT field (#5) value. Set Logic: S ^WV(790,DA(1),5,"D",X(1),DA)="" Set Cond: S X=$S(X2(2)="":1,1:0) Kill Logic: K ^WV(790,DA(1),5,"D",X(1),DA) Whole Kill: K ^WV(790,DA(1),5,"D") X(1): TIU DOCUMENT (790.16,5) (Subscr 1) (forwards) X(2): ENTERED IN ERROR (790.16,6) (forwards) INPUT TEMPLATE(S): PRINT TEMPLATE(S): SORT TEMPLATE(S): FORM(S)/BLOCK(S): WV PATIENT-FORM-1 SEP 17, 1994 USER #0 WV PATIENT-EDITBLK-1 DD #790 WV PATIENT-HEADER-2 DD #790