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: 9000002.11

Package: IHS Patient

*PRENATAL(#9000002)-->9000002.11

Sub-Field: 9000002.11


Information

Parent File Name Number Package
*PRENATAL(#9000002) GRAVIDA 9000002.11 IHS Patient

Details

Field # Name Loc Type Details
.01 GRAVIDA 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>25)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 13, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 25
    SOURCE OF DATA:   050/PGGRAV
1101 DATE OF ENCOUNTER 11;1 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=+^AUPNPNTL(DA(1),0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 23, 1986
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=+^AUPNPNTL(DA(1),0)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    SOURCE OF DATA:   050/PGDBDT
1102 FACILITY 11;2 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)
1103 PARITY 11;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>25)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 25
    SOURCE OF DATA:   050/PGPARY
1104 NO. OF ABORTIONS 11;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 20
    SOURCE OF DATA:   050/PGABOR
1105 LIVING CHILDREN 11;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>25)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 25
    SOURCE OF DATA:   050/PGLIVC
1106 DATE OF LMP 11;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1970 AND DT
    SOURCE OF DATA:   050/PGDLMP
1107.99 COMPUTED EDC COMPUTED DATE

  • MUMPS CODE:  S Y(9000002.11,1107.99,1)=$S($D(^PAT(D0,71,D1,11)):^(11),1:"") S X=$P(Y(9000002.11,1107.99,1),U,8) S:X="" X=$P(Y(9000002.11,1107.99,1),U,6),X1=X,X2=+280,X="" D C^%DTC:X1
  • ALGORITHM:  EDC_DATE OF LMP+280
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1108 EDC 11;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y S IHSX=X,X1=DT,X2=+280,X="" D C^%DTC:X1 S IHSY=X,X=IHSX K:IHSYX) X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1970 AND DT
    SOURCE OF DATA:   050/PGCEDC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1109 BLOOD TYPE/RH FACTOR 11;9 SET
  • '1' FOR A POSITIVE;
  • '2' FOR B POSITIVE;
  • '3' FOR O POSITIVE;
  • '4' FOR AB POSITIVE;
  • '5' FOR A NEGATIVE;
  • '6' FOR B NEGATIVE;
  • '7' FOR O NEGATIVE;
  • '8' FOR AB NEGATIVE;
2101 AGE 10 21;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  SOCIO ECONOMIC
2102 AGE 35 21;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  SOCIO ECONOMIC
2103 PATTERN/PN CARE 21;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  SOCIO ECONOMIC
2104 5 CHILD < 10 21;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  SOCIO ECONOMIC
2105 DIABETES 21;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2106 RENAL DISEASE 21;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2107 HYPERTENSION 21;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2108 LIVER DISEASE 21;8 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2109 MENTAL ILLNESS 21;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2110 BLOOD TRANSFUSION 21;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2111 BLOOD CLOTS 21;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2112 TUBERCULOSIS 21;12 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2113 SEIZURES 21;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2114 ALCOHOLISM 21;14 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2115 ALLERGIES 21;15 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2116 OBESITY 21;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2117 PELVIC INJURY 21;17 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  MEDICAL HISTORY
2118 PARITY 21;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
    SOURCE OF DATA:   050/PGRK18
  • GROUP:  PAST PREGNANCY
2119 BLEEDING 3RD TRIM 21;19 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST PREGNANCY
2120 ABORTIONS 21;20 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST PREGNANCY
2121 TOXEMIA 21;21 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST PREGNANCY
2122 STILLBORN 21;22 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2123 PROM > 24 HOURS 21;23 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELEVERIES
2124 C-SECTION 21;24 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2125 LABOR < 3 HOURS 21;25 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2126 LABOR > 24 HOURS 21;26 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2127 HOME DELIVERY 21;27 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2128 USE OF FORCEPS 21;28 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2129 CP DISPROPORTION 21;29 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2130 ABNORMAL PRESENT. 21;30 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2131 BIRTH WEIGHT < 5.6 21;31 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2132 BIRTH WEIGHT > 9 21;32 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2133 IUGR 21;33 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2134 NEONATAL SEPSIS 21;34 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2135 CONGENITAL ANOMALY 21;35 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2136 TWINS 21;36 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  PAST DELIVERIES
2137 FAM HX - TWINS 21;37 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  FAMILY HISTORY
2138 FAM HX - DIABETES 21;38 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  FAMILY HISTORY
2139 FAM HX - B. DEFECTS 21;39 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  FAMILY HISTORY
2140 ANEMIA 21;40 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  POST PARTUM
2141 BLEEDING 21;41 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  POST PARTUM
2142 INFECTION 21;42 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  POST PARTUM
2143 URINE 21;43 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  POST PARTUM
2144 DEPRESSION 21;44 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  POST PARTUM
2145 UNPLANNED 21;45 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2146 UNWANTED 21;46 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2147 VIRAL INF. 1ST TRIM 21;47 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2148 D.C. 11.5 CM 21;48 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2149 BI 8. CM 21;49 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2150 POINTED ISCH SPINES 21;50 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2151 PELVIC DEFORMITY 21;51 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2152 UTI 21;52 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2153 SMOKING 21;53 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
  • 'U' FOR UNKNOWN;

  • GROUP:  CURRENT PREGNANCY
2154 DATE OF DLVRY/ABORT 21;54 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND DT
    SOURCE OF DATA:   050/PGDELV
2301 PRENATAL EXAM 23;0 DATE Multiple #9000002.1123 9000002.1123
Info |  Details |  All