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

Package: IHS Patient

REPRODUCTIVE FACTORS(#9000017)-->9000017.02101

Sub-Field: 9000017.02101


Information

Parent File Name Number Package
REPRODUCTIVE FACTORS(#9000017) CONTRACEPTIVE METHOD 9000017.02101 IHS Patient

Details

Field # Name Loc Type Details
.01 CONTRACEPTIVE METHOD 0;1 POINTER TO CONTRACEPTIVE METHODS FILE (#99999.11) CONTRACEPTIVE METHODS(#99999.11)

  • LAST EDITED:  JUL 19, 2011
  • HELP-PROMPT:  Enter the contraceptive method.
  • CROSS-REFERENCE:  9000017.02101^B
    1)= S ^AUPNREP(DA(1),2101,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNREP(DA(1),2101,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000017.02101^ASYNC7^MUMPS
    1)= I '$G(APCDISNG) D MULTOSET^APCDRF
    2)= I '$G(APCDISNG) D MULTOSET^APCDRF
  • CROSS-REFERENCE:  9000017^ACON^MUMPS
    1)= I $P(^AUPNREP(DA(1),2101,DA,0),U,2)]"" NEW % S %=^AUPNREP(DA(1),2101,DA,0),^AUPNREP("ACON",DA(1),$P(%,U,1),$P(%,U,2),DA(1),DA)=""
    2)= I $P(^AUPNREP(DA(1),2101,DA,0),U,2)]"" NEW % S %=^AUPNREP(DA(1),2101,DA,0) K ^AUPNREP("ACON",DA(1),$P(%,U,1),$P(%,U,2),DA(1),DA)
.02 CONTRACEPTION BEGUN 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 17, 2011
  • HELP-PROMPT:  Enter the date started
  • CROSS-REFERENCE:  9000017^ACONTOO^MUMPS
    1)= S ^AUPNREP("ACON",DA(1),$P(^AUPNREP(DA(1),2101,DA,0),U,1),X,DA(1),DA)=""
    2)= K ^AUPNREP("ACON",DA(1),$P(^AUPNREP(DA(1),2101,DA,0),U,1),X,DA(1),DA)
  • CROSS-REFERENCE:  9000017.02101^AD
    1)= S ^AUPNREP(DA(1),2101,"AD",$E(X,1,30),DA)=""
    2)= K ^AUPNREP(DA(1),2101,"AD",$E(X,1,30),DA)
.03 CONTRACEPTION ENDED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  Enter the date ended
.04 DATE UPDATED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  Enter the date obtained
  • CROSS-REFERENCE:  9000017.02101^ASYNCM^MUMPS
    1)= I '$G(APCDISNG) D MULTOSET^APCDRF
    2)= Q
.05 REASON DISCONTINUED 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.06 COMMENT 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  JUL 14, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1.01 DELETED BY 1;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 30, 2013
1.02 DATE/TIME DELETED 1;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 30, 2013
1.03 REASON DELETED 1;3 SET
  • 'D' FOR DUPLICATE;
  • 'E' FOR ENTERED IN ERROR;
  • 'O' FOR OTHER;

  • LAST EDITED:  MAY 30, 2013
1.04 REASON IF OTHER 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  MAY 30, 2013
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
Info |  Details |  All