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.16

Package: Womens Health

WV PATIENT(#790)-->790.16

Sub-Field: 790.16


Information

Parent File Name Number Package
WV PATIENT(#790) LACTATION STATUSES 790.16 Womens Health

Details

Field # Name Loc Type Details
.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,DIH=790.16,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,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)
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 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
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 lactation status data.
  • DESCRIPTION:  
    This field stores the software package used by the user to enter the lactation status data.
4 VISIT 0;4 POINTER TO VISIT FILE (#9000010) VISIT(#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)
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 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)
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)
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.18 790.18

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

  • 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)
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)
Info |  Details