Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 790.05

Package: Womens Health

WV PATIENT(#790)-->790.05

Sub-Field: 790.05


Information

Parent File Name Number Package
WV PATIENT(#790) PREGNANCY STATUSES 790.05 Womens Health

Details

Field # Name Loc Type Details
.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,DIH=790.05,DIG=2 D ^DIC
    R
    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)
2 DATA ENTERED BY 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
3 DATA SOURCE 0;3 POINTER TO PACKAGE FILE (#9.4)
************************REQUIRED FIELD************************
PACKAGE(#9.4)

  • 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.
4 VISIT 0;4 POINTER TO VISIT FILE (#9000010) VISIT(#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)
5 TIU DOCUMENT 0;5 POINTER TO TIU DOCUMENT FILE (#8925) TIU DOCUMENT(#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)
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)
7 MARKED ENTERED IN ERROR BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
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
10 REASONS ENTERED IN ERROR 1;0 Multiple #790.15 790.15

  • LAST EDITED:  SEP 10, 2015
  • DESCRIPTION:  
    This field stores the reasons why this record was entered in error.
21 PREGNANCY STATE 2;1 SET

  • 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)
22 MEDICALLY UNABLE TO CONCEIVE 2;2 SET
  • 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.

  • 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)
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)
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)
30 CONTRACEPTIVE METHODS USED 3;0 POINTER Multiple #790.17 790.17

  • LAST EDITED:  SEP 10, 2015
  • DESCRIPTION:  
    This field stores the contraceptive methods the patient uses to avoid pregnancy.
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)
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)
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)
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)
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)
Info |  Details