Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNREP

Package: IHS Patient

Global: ^AUPNREP


Information

FileMan FileNo FileMan Filename Package
9000017 REPRODUCTIVE FACTORS IHS Patient

Description

Directly Accessed By Routines, Total: 45

Package Total Routines
IHS GPRA Information System 11 BGP6D714    BGP6UTL2    BGP7D3B    BGP7D714    BGP7UTL2    BGP8D3B    BGP8D53    BGP8D714
BGP8D715    BGP8UTL2    BGPMUD08    
Patient Care Component 7 APCDFH    APCDFH1    APCDRF    APCHPWH8    APCHS85    BJPC2P7    BJPC2PMU    
iCare 5 BQIPTREP    BQIPTRP1    BQIPTRPF    BQIPTRPU    BQIRGPG    
GUI Objects 4 BGOREP    BGOREP1    BGOREPCV    BGOTRG    
IHS Mods To Text Integration Utilities 4 BTIULO13    BTIULO7    BTIULO7A    BTIUPCC3    
Diabetes Registry 3 BDMDE1B    BDMDF1B    BDMDG1B    
Patient Care Component Reports 2 APCLAPI7    APCLVL04    
Clinical Scheduling for Windows 1 BSDX41E    
Health Summary Components 1 BHSFAM1    
IHS Mods To Patient Care Encounter 1 BPXRMWH    
IHS Patient 1 AUPNREP    
IHS RPMS CHR System 1 BCHABC1    
Local Area Programs 1 AZAXDPM1    
PCC New Encounter Form 1 VENPCC1A    
Patient Care Component Data Transmission 1 APCPAOTH    

Accessed By FileMan Db Calls, Total: 28

Package Total Routines
IHS Prenatal Care Module 9 BJPN20PS    BJPNAPI1    BJPNAPIS    BJPNGPIP    BJPNPDET    BJPNPRL    BJPNPSET    BJPNPUP
BJPNPUTL    
IHS Mods To Text Integration Utilities 4 BTIULO13    BTIULO7    BTIULO7A    BTIUPCC3    
Patient Care Component 4 APCDFH    APCDFH1    APCDRF    BJPC2P7    
iCare 4 BQIPTREP    BQIPTRP1    BQIPTRPU    BQIRGPG    
GUI Objects 2 BGOREPCV    BGOTRG    
Health Summary Components 1 BHSFAM1    
IHS GPRA Information System 1 BGPMUD08    
IHS Mods To Patient Care Encounter 1 BPXRMWH    
IHS Patient 1 AUPNREP    
IHS RPMS CHR System 1 BCHABC1    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01]    
Kernel 1 NEW PERSON(#200)[2.03, 1135, 1304, 1307, 1310, 1313, 1316, 1319, #9000017.02101(1.01)]    
Utility Tables 1 CONTRACEPTIVE METHODS(#99999.11)[#9000017.02101(.01)]    

Fields, Total: 71

Field # Name Loc Type Details
.01 NAME 0;1 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^DPT(Y,0),U,2)=""F""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  APR 23, 1987
  • HELP-PROMPT:  Select a female patient
  • SCREEN:  S DIC("S")="I $P(^DPT(Y,0),U,2)=""F"""
  • EXPLANATION:  EXCLUDES NON-FEMALES
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000017^B
    1)= S ^AUPNREP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNREP("B",$E(X,1,30),DA)
.019 REPRODUCTIVE HX COMPUTED

  • MUMPS CODE:  S X=$$RHX^AUPNREP(DA)
  • ALGORITHM:  S X=$$RHX^AUPNREP(DA)
  • LAST EDITED:  NOV 05, 2008
1 *REPRODUCTIVE HISTORY 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<4)!((X'?1"G"1.2N1"P"1.2N)&(X'?1"G"1.2N1"P"1.2N1"LC"1.2N)&(X'?1"G"1.2N1"P"1.2N1"LC"1.2N1"SA"1.2N1"TA"1.2N)) X
  • LAST EDITED:  FEB 20, 2008
  • HELP-PROMPT:  Enter gravidity,parity,live children,SAB,TAB: e.g., G5P3LC1SA1TA1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1.1 *DATE REPRO HX OBTAINED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 12, 2006
  • HELP-PROMPT:  Enter date information on reproductive history was obtained
2 LAST MENSTRUAL PERIOD 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  DEC 07, 2009
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND DT
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^2.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AUPNREP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000017,DIG=2.1 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AUPNREP(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=9000017,DIG=2.1 D ^DICR
    CREATE VALUE)= S X=DT
    DELETE VALUE)= S X=DT
    FIELD)= #2.1
2.01 LACTATION STATUS 2;1 SET
  • '0' FOR NOT LACTATING;
  • '1' FOR LACTATING;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  JUL 04, 2011
  • DESCRIPTION:  
    Record current lactation status
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^2.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=9000017,DIG=2.02 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,2)):^(2),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=9000017,DIG=2.02 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #2.02
2.02 DATE LAST LACTATION STATUS UPD 2;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • NOTES:  TRIGGERED by the LACTATION STATUS field of the REPRODUCTIVE FACTORS File
2.03 PROV DOCUMENTED LACT STAT 2;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 04, 2011
2.1 DATE LMP HX OBTAINED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter date information on LMP was obtained
  • NOTES:  TRIGGERED by the LAST MENSTRUAL PERIOD field of the REPRODUCTIVE FACTORS File
3 CONTRACEPTIVE METHOD 0;6 SET
  • '0' FOR EDUCATION ONLY;
  • '1' FOR ORAL CONTRACEPTIVES;
  • '2' FOR IUD;
  • '3' FOR SURGICAL STERILIZATION;
  • '4' FOR BARRIER METHODS;
  • '5' FOR PARTNER STERILIZED;
  • '6' FOR NATURAL TECHNIQUES;
  • '7' FOR MENOPAUSE;
  • '8' FOR NONE;
  • '9' FOR OTHER;
  • '10' FOR HORMONAL IMPLANT;
  • '11' FOR HORMONE INJECTION;
  • '12' FOR ABSTINENCE;

  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter type of contraception currently employed
3.05 CONTRACEPTION BEGUN 0;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  OCT 26, 2011
  • HELP-PROMPT:  (No range limit on date)
  • CROSS-REFERENCE:  9000017^ASYNCB^MUMPS
    1)= I '$G(APCDINMU) D SETTOMUL^APCDRF
    2)= Q
3.1 DATE METHOD HX OBTAINED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  Enter date information on contraceptive method was obtained
  • CROSS-REFERENCE:  9000017^ASYNC^MUMPS
    1)= I '$G(APCDINMU) D SETTOMUL^APCDRF
    2)= Q
    create multiple 2101 if this is entered or deleted.
4 *EDC 0;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DT+10000X) X
  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1950 AND DT+10000
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^4.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=9000017,DIG=4.1 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=9000017,DIG=4.1 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #4.1
  • CROSS-REFERENCE:  9000017^ASYNC1^MUMPS
    1)= D EDCTONEW^APCDRF
    2)= Q
4.05 *HOW EDC DETERMINED 0;10 SET
  • '0' FOR UNKNOWN METHOD;
  • '1' FOR SONOGRAM;
  • '2' FOR DATES;
  • '3' FOR CLINICAL PARAMETERS;

  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  If known, enter the method used to estimate the EDC.
  • CROSS-REFERENCE:  9000017^ASYNC2^MUMPS
    1)= D EDCTONEW^APCDRF
    2)= Q
4.1 DATE EDC DETERMINED 0;11 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 11, 2011
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1/1/1960 AND DT
  • NOTES:  TRIGGERED by the *EDC field of the REPRODUCTIVE FACTORS File
  • CROSS-REFERENCE:  9000017^ASYNCO^MUMPS
    1)= D EDCTONEW^APCDRF
    2)= Q
1101 CURRENTLY PREGNANT 11;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'R' FOR PT REFUSED TO ANSWER;

  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Is the patient pregnant?
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1102
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,2)=DIV,DIH=9000017,DIG=1102 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,2)=DIV,DIH=9000017,DIG=1102 D ^DICR
    CREATE VALUE)= S X=DT
    DELETE VALUE)= S X=DT
    FIELD)= #1102
1102 CURRENTLY PREGNANT DT UPDATED 11;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the CURRENTLY PREGNANT field of the REPRODUCTIVE FACTORS File
1103 TOTAL # PREGNANCIES 11;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 2009
  • HELP-PROMPT:  Enter the TOTAL number of pregnancies for this patient. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1104
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,4)=DIV,DIH=9000017,DIG=1104 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,4)=DIV,DIH=9000017,DIG=1104 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1104
1104 TOTAL # PREG UPDATED 11;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 20, 2009
  • HELP-PROMPT:  Enter the date obtained.
  • NOTES:  TRIGGERED by the TOTAL # PREGNANCIES field of the REPRODUCTIVE FACTORS File
1105 MULTIPLE BIRTHS 11;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the number of pregnancies resulting in a multiple birth (e.g. twins). If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1106
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,6)=DIV,DIH=9000017,DIG=1106 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,6)=DIV,DIH=9000017,DIG=1106 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1106
1106 MULTIPLE BIRTHS UPDATED 11;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the MULTIPLE BIRTHS field of the REPRODUCTIVE FACTORS File
1107 FULL TERM BIRTHS 11;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the number of full term births. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1108
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,8)=DIV,DIH=9000017,DIG=1108 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,8)=DIV,DIH=9000017,DIG=1108 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1108
1108 FULL TERM BIRTHS DT UPDATED 11;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 12, 2006
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the FULL TERM BIRTHS field of the REPRODUCTIVE FACTORS File
1109 PREMATURE BIRTHS 11;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the number of premature births. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1110
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,10)=DIV,DIH=9000017,DIG=1110 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,10)=DIV,DIH=9000017,DIG=1110 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1110
1110 PREMATURE BIRTHS DT UPDATED 11;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the PREMATURE BIRTHS field of the REPRODUCTIVE FACTORS File
1111 ECTOPIC PREGNANCIES 11;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the number of ectopic pregnancies. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1112
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,12)=DIV,DIH=9000017,DIG=1112 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,12)=DIV,DIH=9000017,DIG=1112 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1112
1112 ECTOPIC DT UPDATED 11;12 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the data obtained
  • NOTES:  TRIGGERED by the ECTOPIC PREGNANCIES field of the REPRODUCTIVE FACTORS File
1113 LIVING CHILDREN 11;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2008
  • HELP-PROMPT:  Enter the number of living children for this patient. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1114
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,14)=DIV,DIH=9000017,DIG=1114 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,14)=DIV,DIH=9000017,DIG=1114 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1114
1114 LIVING CHILDREN DT UPDATED 11;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 12, 2006
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the LIVING CHILDREN field of the REPRODUCTIVE FACTORS File
1117 MENARCHE AGE 11;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the age at which the patient first experienced a menstrual period.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1118
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,18)=DIV,DIH=9000017,DIG=1118 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,18)=DIV,DIH=9000017,DIG=1118 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1118
1118 MENARCHE AGE DT UPDATED 11;18 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the MENARCHE AGE field of the REPRODUCTIVE FACTORS File
1119 COITARCHE AGE 11;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the age at which the patient first experienced vaginal intercourse.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1120
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,20)=DIV,DIH=9000017,DIG=1120 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,20)=DIV,DIH=9000017,DIG=1120 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1120
1120 COITARCHE AGE DT UPDATED 11;20 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the COITARCHE AGE field of the REPRODUCTIVE FACTORS File
1121 MENOPAUSE ONSET AGE 11;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the age at which the patient had the first signs of menopause.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1122
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,22)=DIV,DIH=9000017,DIG=1122 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,22)=DIV,DIH=9000017,DIG=1122 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1122
1122 MENOPAUSE DT UPDATED 11;22 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the data obtained
  • NOTES:  TRIGGERED by the MENOPAUSE ONSET AGE field of the REPRODUCTIVE FACTORS File
1123 *SEXUAL TRAUMA HISTORY 11;23 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'R' FOR PATIENT REFUSED TO ANSWER;

  • LAST EDITED:  OCT 06, 2008
  • HELP-PROMPT:  Enter the patients self report of any incidence of sexual trauma
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1124
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,24)=DIV,DIH=9000017,DIG=1124 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,24)=DIV,DIH=9000017,DIG=1124 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1124
1124 *SEXUAL TRAUMA DT UPDATED 11;24 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 06, 2008
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the *SEXUAL TRAUMA HISTORY field of the REPRODUCTIVE FACTORS File
1125 *MULTIPLE SEXUAL PARTNERS 11;25 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'R' FOR PATIENT REFUSED TO ANSWER;

  • LAST EDITED:  OCT 06, 2008
  • HELP-PROMPT:  Enter whether the patient has >= 5 partners in any 5 year period of time.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1126
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,26)=DIV,DIH=9000017,DIG=1126 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,26)=DIV,DIH=9000017,DIG=1126 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1126
1126 *MULT SEX PART DT UDPATED 11;26 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 06, 2008
  • HELP-PROMPT:  Enter the date obtained
  • NOTES:  TRIGGERED by the *MULTIPLE SEXUAL PARTNERS field of the REPRODUCTIVE FACTORS File
1127 DES DAUGHTER? 11;27 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;
  • 'R' FOR PATIENT REFUSED TO ANSWER;

  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  Enter whether the patient was exposed to DES before birth.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1128
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,28),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,28)=DIV,DIH=9000017,DIG=1128 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,28),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,28)=DIV,DIH=9000017,DIG=1128 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1128
1128 DES DAUGHTER DT UPDATED 11;28 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • HELP-PROMPT:  Enter the data obtained
  • NOTES:  TRIGGERED by the DES DAUGHTER? field of the REPRODUCTIVE FACTORS File
1130 DATE REPROD HX UPDATED 11;30 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 13, 2006
    WRITE AUTHORITY:  ^
1131 ABORTIONS, # INDUCED 11;31 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 2009
  • HELP-PROMPT:  Enter the number of induced abortions. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1132
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,32),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,32)=DIV,DIH=9000017,DIG=1132 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,32),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,32)=DIV,DIH=9000017,DIG=1132 D ^DI
    CR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #1132
1132 ABORTIONS, # INDUCED DT UPD 11;32 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 20, 2009
  • HELP-PROMPT:  Enter the data obtained
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ABORTIONS, # INDUCED field of the REPRODUCTIVE FACTORS File
1133 ABORTIONS, # SPONTANEOUS 11;33 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 2009
  • HELP-PROMPT:  Enter the number of spontaneous abortions. If none, enter 0. to accept existing value, if any.
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1134
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,34),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,34)=DIV,DIH=9000017,DIG=1134 D ^DI
    CR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,11)):^(11),1:"") S X=$P(Y(1),U,34),X=X S DIU=X K Y S X=DIV I '$D(DIUT(0)) S X=DT S DIH=$G(^AUPNREP(DIV(0),11)),DIV=X S $P(^(11),U,34)=DIV,DIH=9000017,DIG=1134 D ^D
    ICR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIUT(0)) S X=DT
    FIELD)= #1134
1134 ABORTIONS, # SPONT DT UPD 11;34 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 20, 2009
  • HELP-PROMPT:  Enter the date obtained
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the ABORTIONS, # SPONTANEOUS field of the REPRODUCTIVE FACTORS File
1135 PROV WHO DOCUMENTED CURR PREG 11;35 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 04, 2011
1302 EDD (LMP) 13;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 25, 2011
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1303
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,3)=DIV,DIH=9000017,DIG=1303 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1303
  • CROSS-REFERENCE:  9000017^ASYNC5^MUMPS
    1)= D EDDTOEDC^APCDRF(1302)
    2)= Q
1303 EDD (LMP) DATE/TIME ENTERED 13;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the EDD (LMP) field of the REPRODUCTIVE FACTORS File
1304 PROV DOCUMENTING EDD (LMP) 13;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 04, 2011
1305 EDD (ULTRASOUND) 13;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 25, 2011
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1306
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,6)=DIV,DIH=9000017,DIG=1306 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1306
  • CROSS-REFERENCE:  9000017^ASYNC4^MUMPS
    1)= D EDDTOEDC^APCDRF(1305)
    2)= Q
1306 DATE/TIME EDD (ULTRA) ENTERED 13;6 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • NOTES:  TRIGGERED by the EDD (ULTRASOUND) field of the REPRODUCTIVE FACTORS File
1307 PROV DOCUMENTED EDD (ULTRA) 13;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 04, 2011
1308 EDD (CLINICAL PARAMETERS) 13;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 25, 2011
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1309
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,9)=DIV,DIH=9000017,DIG=1309 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1309
  • CROSS-REFERENCE:  9000017^ASYNC6^MUMPS
    1)= D EDDTOEDC^APCDRF(1308)
    2)= Q
1309 DATE/TIME EDD (CP) ENTERED 13;9 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 04, 2011
  • NOTES:  TRIGGERED by the EDD (CLINICAL PARAMETERS) field of the REPRODUCTIVE FACTORS File
1310 PROV DOCUMENTED EDD (CLIN PAR) 13;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 04, 2011
1311 DEFINITIVE EDD 13;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 10, 2011
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1312
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,12)=DIV,DIH=9000017,DIG=1312 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,12)=DIV,DIH=9000017,DIG=1312 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #1312
1312 DATE/TIME DEFINITIVE EDD 13;12 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 26, 2011
  • NOTES:  TRIGGERED by the DEFINITIVE EDD field of the REPRODUCTIVE FACTORS File
  • CROSS-REFERENCE:  9000017^ADEF^MUMPS
    1)= D DEFEDDF4^APCDRF
    2)= D DEFEDDF4^APCDRF
1313 PROV DOCUMENTED DEFINITIVE EDD 13;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 04, 2011
1314 EDD (METHOD UNKNOWN) 13;14 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 20, 2011
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1315
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,15)=DIV,DIH=9000017,DIG=1315 D ^DICR
    2)= Q
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1315
  • CROSS-REFERENCE:  9000017^ASYNC3^MUMPS
    1)= D EDDTOEDC^APCDRF(1314)
    2)= Q
1315 DATE EDD (METH UNK) DETERMINED 13;15 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 2011
  • NOTES:  TRIGGERED by the EDD (METHOD UNKNOWN) field of the REPRODUCTIVE FACTORS File
1316 PROV DETERMINED EDD METH UNK 13;16 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 14, 2011
1317 PATIENT PREMENARCHAL? 13;17 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 05, 2016
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1318
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,18)=DIV,DIH=9000017,DIG=1318 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,18)=DIV,DIH=9000017,DIG=1318 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT()
    DELETE VALUE)= S X=$$NOW^XLFDT()
    FIELD)= #1318
  • CROSS-REFERENCE:  ^^TRIGGER^9000017^1319
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,19)=DIV,DIH=9000017,DIG=1319 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNREP(D0,13)):^(13),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^AUPNREP(DIV(0),13)),DIV=X S $P(^(13),U,19)=DIV,DIH=9000017,DIG=1319 D ^DICR
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= S X=DUZ
    FIELD)= #1319
1318 PATIENT PREMENARCHAL DT UPDATE 13;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUN 05, 2016
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PATIENT PREMENARCHAL? field of the REPRODUCTIVE FACTORS File
1319 PATIENT PREMENARCHAL USER UPD 13;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 05, 2016
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PATIENT PREMENARCHAL? field of the REPRODUCTIVE FACTORS File
1401 EDD (LMP) COMMENT 14;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  OCT 02, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1402 EDD (ULTRASOUND) COMMENT 14;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  OCT 02, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1501 EDD (CLIN PARAMETERS) COMMENT 15;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  OCT 02, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1502 DEFINITIVE EDD COMMENT 15;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  OCT 02, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1601 EDD (METHOD UNKNOWN) COMMENT 16;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  OCT 02, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
2101 CONTRACEPTIVE METHOD 2101;0 POINTER Multiple #9000017.02101 9000017.02101

  • LAST EDITED:  JUL 04, 2011
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All