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