Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^ADGCLB

Package: IHS Changes To ADT

Global: ^ADGCLB


Information

FileMan FileNo FileMan Filename Package
9009014 CERTIFICATE OF LIVE BIRTH IHS Changes To ADT

Description

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Kernel 3 INSTITUTION(#4)[5]    STATE(#5)[16, 24]    PROVIDER(#6)[7]    
Utility Tables 2 COMMUNITY(#9999999.05)[17, 23]    TRIBE(#9999999.03)[26, 26.1, 28, 28.05]    
IHS Patient 1 PATIENT(#9000001)[.01]    

Fields, Total: 74

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

  • INPUT TRANSFORM:  S DINUM=X
  • GROUP:  AUPNPAT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009014^B
    1)= S ^ADGCLB("B",$E(X,1,30),DA)=""
    2)= K ^ADGCLB("B",$E(X,1,30),DA)
1 SEX COMPUTED

  • MUMPS CODE:  X ^DD(9009014,1,9.2) X $P(^DD(9000001,1101.2,0),U,5,99) S Y(9009014,1,101)=X S X=Y(9009014,1,101) S D0=Y(9009014,1,80)
    9.2 = S Y(9009014,1,80)=$S($D(D0):D0,1:""),Y(9009014,1,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,1,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:SEX
  • GROUP:  AUPNPAT
2 ADMISSION DATE/TIME COMPUTED

  • MUMPS CODE:  S X=$S($D(^DPT(D0,"DA",1,0)):$P(^(0),U,1),1:"") I X'["?" S Y=X X ^DD("DD") S X=Y
    9.2 = S I(200)="^DPT(",J(200)=2 F D=0:0 S (D,D1)=$N(^DPT(D0,"DA",D)) Q:D'>0  I $D(^(D,0))#2 S X=$P(^(0),U,1),Y=X D D^DIQ S X=Y X DICMX Q:'$D(D)  S D=D1
    9.3 = S Y(9009014,2,80)=$S($D(D0):D0,1:""),Y(9009014,2,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,2,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9009014,2,180)=$S($D(D0):D0,1:"")
    9.4 = X ^DD(9009014,2,9.3) S Y(9009014,2,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:""),D0=$P(Y(9009014,2,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9009014,2,280)=$S($D(D0):D0,1:"")
    9.5 = X ^DD(9009014,2,9.4) S Y(9009014,2,281)=$S($D(D1):D1,1:"") X ^DD(9009014,2,9.2):D0>0 S X="" K DIC S Y=-1,DIC="^DPT(D0,""DA"",",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y
  • ALGORITHM:  S X=$S($D(^DPT(D0,"DA",1,0)):$P(^(0),U,1),1:"") I X'["?" S Y=X X ^DD("DD") S X=Y
  • GROUP:  DPT
3 DOB COMPUTED DATE

  • MUMPS CODE:  X ^DD(9009014,3,9.2) X $P(^DD(9000001,1102.2,0),U,5,99) S Y(9009014,3,101)=X S X=Y(9009014,3,101) S D0=Y(9009014,3,80)
    9.2 = S Y(9009014,3,80)=$S($D(D0):D0,1:""),Y(9009014,3,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,3,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:DOB
  • GROUP:  AUPNPAT
3.1 TIME OF BIRTH COMPUTED

  • MUMPS CODE:  S X=$S($P(+^DPT(D0,"DA",1,0),".",2)'="":$E($P(+^(0),".",2)_"000",1,4),1:"")
    9.2 = S I(200)="^DPT(",J(200)=2 F D=0:0 S (D,D1)=$N(^DPT(D0,"DA",D)) Q:D'>0  I $D(^(D,0))#2 S X=$P(^(0),U,1),Y=X D D^DIQ S X=Y X DICMX Q:'$D(D)  S D=D1
    9.3 = S Y(9009014,3.1,80)=$S($D(D0):D0,1:""),Y(9009014,3.1,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,3.1,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
    9.4 = X ^DD(9009014,3.1,9.3) S Y(9009014,3.1,180)=$S($D(D0):D0,1:""),Y(9009014,3.1,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"")
    9.5 = X ^DD(9009014,3.1,9.4) S D0=$P(Y(9009014,3.1,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9009014,3.1,280)=$S($D(D0):D0,1:""),Y(9009014,3.1,281)=$S($D(D1):D1,1:"")
    9.6 = X ^DD(9009014,3.1,9.5) X ^DD(9009014,3.1,9.2):D0>0 S X="" K DIC S Y=-1,DIC="^DPT(D0,""DA"",",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y
    9.7 = X ^DD(9009014,3.1,9.6) S Y(9009014,3.1,302)=$S($D(^DPT(D0,"DA",D1,0)):^(0),1:"") S X=$P(Y(9009014,3.1,302),U,1),Y(9009014,3.1,303)=X S X="."
    9.8 = X ^DD(9009014,3.1,9.7) S Y(9009014,3.1,304)=X S X=2,X=$P(Y(9009014,3.1,303),Y(9009014,3.1,304),X)_"000",Y(9009014,3.1,305)=X S X=1,Y(9009014,3.1,306)=X S X=4
  • ALGORITHM:  S X=$S($P(+^DPT(D0,"DA",1,0),".",2)'="":$E($P(+^(0),".",2)_"000",1,4),1:"")
  • LAST EDITED:  AUG 24, 1987
4 CITY OF BIRTH COMPUTED

  • MUMPS CODE:  S X=$S($D(^DPT(D0,0)):$P(^(0),U,11),1:"")
  • ALGORITHM:  S X=$S($D(^DPT(D0,0)):$P(^(0),U,11),1:"")
  • GROUP:  DPT
5 HOSPITAL 0;2 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • GROUP:  DIC(4
6 HOSPITAL STREET AND NUMBER 1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-35 CHARACTERS IN LENGTH
7 PROVIDER 0;3 POINTER TO PROVIDER FILE (#6) PROVIDER(#6)
8 PROVIDER TITLE 0;4 SET
  • 'MD' FOR M.D.;
  • 'NU' FOR NURSE;
  • 'CN' FOR C.N.M.;
  • 'MI' FOR MIDWIFE;
  • 'OT' FOR OTHER;
9 MAILING ADDRESS-STREET COMPUTED

  • MUMPS CODE:  X ^DD(9009014,9,9.2) S Y(9009014,9,101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(9009014,9,101),U,12) S D0=Y(9009014,9,80)
    9.2 = S Y(9009014,9,80)=$S($D(D0):D0,1:""),Y(9009014,9,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,9,1),U,2) S:'$D(^AUTTLOC(+D0,0)) D0=-1
  • ALGORITHM:  HOSPITAL:MAILING ADDRESS-STREET
  • GROUP:  AUTTLOC
10 MAILING ADDRESS-CITY COMPUTED

  • MUMPS CODE:  X ^DD(9009014,10,9.2) S Y(9009014,10,101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(9009014,10,101),U,13) S D0=Y(9009014,10,80)
    9.2 = S Y(9009014,10,80)=$S($D(D0):D0,1:""),Y(9009014,10,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,10,1),U,2) S:'$D(^AUTTLOC(+D0,0)) D0=-1
  • ALGORITHM:  HOSPITAL:MAILING ADDRESS-CITY
  • GROUP:  AUTTLOC
11 MAILING ADDRESS-STATE COMPUTED

  • MUMPS CODE:  X ^DD(9009014,11,9.2) S Y(9009014,11,101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$S('$D(^DIC(5,+$P(Y(9009014,11,101),U,14),0)):"",1:$P(^(0),U,1)) S D0=Y(9009014,11,80)
    9.2 = S Y(9009014,11,80)=$S($D(D0):D0,1:""),Y(9009014,11,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,11,1),U,2) S:'$D(^AUTTLOC(+D0,0)) D0=-1
  • ALGORITHM:  HOSPITAL:MAILING ADDRESS-STATE
  • GROUP:  AUTTLOC
12 MAILING ADDRESS-ZIP COMPUTED

  • MUMPS CODE:  X ^DD(9009014,12,9.2) S Y(9009014,12,101)=$S($D(^AUTTLOC(D0,0)):^(0),1:"") S X=$P(Y(9009014,12,101),U,15) S D0=Y(9009014,12,80)
    9.2 = S Y(9009014,12,80)=$S($D(D0):D0,1:""),Y(9009014,12,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,12,1),U,2) S:'$D(^AUTTLOC(+D0,0)) D0=-1
  • ALGORITHM:  HOSPITAL:MAILING ADDRESS-ZIP
  • GROUP:  AUTTLOC
13 MOTHER'S MAIDEN NAME COMPUTED

  • MUMPS CODE:  X ^DD(9009014,13,9.2) X $P(^DD(9000001,2604.2,0),U,5,99) S Y(9009014,13,101)=X S X=Y(9009014,13,101) S D0=Y(9009014,13,80)
    9.2 = S Y(9009014,13,80)=$S($D(D0):D0,1:""),Y(9009014,13,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,13,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:MOTHER'S MAIDEN NAME
  • GROUP:  AUPNPAT
14 MOTHER'S AGE AT THIS BIRTH 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>70)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 70
15 MOTHER'S STATE OF BIRTH COMPUTED

  • MUMPS CODE:  X ^DD(9009014,15,9.2) S Y(9009014,15,101)=$S($D(^AUPNPAT(D0,26)):^(26),1:"") S X=$S('$D(^DIC(5,+$P(Y(9009014,15,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(9009014,15,80)
    9.2 = S Y(9009014,15,80)=$S($D(D0):D0,1:""),Y(9009014,15,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,15,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:MOTHER'S STATE OF BIRTH
  • GROUP:  AUPNPAT
15.1 MOTHER'S COUNTRY OF BIRTH 3;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
16 MOTHER'S RESIDENCE-STATE 0;6 POINTER TO STATE FILE (#5) STATE(#5)
17 MOTHER'S RESIDENCE-VILLAGE 0;7 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)
17.5 INSIDE CITY LIMIT 3;10 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 19, 1987
18 MOTHER'S RESIDENCE-STREET 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
18.5 RECORDING DISTRICT 3;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
19 FATHER'S NAME COMPUTED

  • MUMPS CODE:  X ^DD(9009014,19,9.2) X $P(^DD(9000001,2601.2,0),U,5,99) S Y(9009014,19,101)=X S X=Y(9009014,19,101) S D0=Y(9009014,19,80)
    9.2 = S Y(9009014,19,80)=$S($D(D0):D0,1:""),Y(9009014,19,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,19,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:FATHER'S NAME
20 FATHER'S AGE AT THIS BIRTH 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>70)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 70
21 FATHER'S STATE OF BIRTH COMPUTED

  • MUMPS CODE:  X ^DD(9009014,21,9.2) S Y(9009014,21,101)=$S($D(^AUPNPAT(D0,26)):^(26),1:"") S X=$S('$D(^DIC(5,+$P(Y(9009014,21,101),U,3),0)):"",1:$P(^(0),U,1)) S D0=Y(9009014,21,80)
    9.2 = S Y(9009014,21,80)=$S($D(D0):D0,1:""),Y(9009014,21,1)=$S($D(^ADGCLB(D0,0)):^(0),1:""),D0=$P(Y(9009014,21,1),U,1) S:'$D(^AUPNPAT(+D0,0)) D0=-1
  • ALGORITHM:  NAME:FATHER'S STATE OF BIRTH
21.1 FATHER'S COUNTRY OF BIRTH 3;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
22 MOTHER'S ADDRESS-STREET 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
23 MOTHER'S ADDRESS-CITY 0;11 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)
24 MOTHER'S ADDRESS-STATE 0;12 POINTER TO STATE FILE (#5) STATE(#5)
25 MOTHER'S ADDRESS-ZIP 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5.N) X
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
26 MOTHER'S TRIBE 0;14 POINTER TO TRIBE FILE (#9999999.03) TRIBE(#9999999.03)
26.1 MOTHER'S TRIBE #2 3;4 POINTER TO TRIBE FILE (#9999999.03) TRIBE(#9999999.03)
27 MOTHER'S TRIBE QUANTUM 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
27.1 MOTHER'S TRIBE QUANTUM #2 3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
28 FATHER'S TRIBE 0;16 POINTER TO TRIBE FILE (#9999999.03) TRIBE(#9999999.03)
28.05 FATHER'S TRIBE #2 3;6 POINTER TO TRIBE FILE (#9999999.03) TRIBE(#9999999.03)
28.1 FATHER'S TRIBE QUANTUM #1 3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
28.2 FATHER'S TRIBE QUANTUM #2 3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-7 CHARACTERS IN LENGTH
29 BIRTHWEIGHT LBS. 0;17 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
30 BIRTHWEIGHT OZ. 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>15)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  DEC 03, 1987
  • HELP-PROMPT:  Type a Number between 0 and 15, 2 Decimal Digits
31 THIS BIRTH 0;19 SET
  • '1' FOR SINGLE;
  • '2' FOR TWIN;
  • '3' FOR TRIPLET;
  • '4' FOR QUADRUPLET;
  • '5' FOR QUINTUPLET;
  • '6' FOR SEXTUPLET;
32 IF BIRTH NOT SINGLE - BORN 0;20 SET
  • '1' FOR FIRST;
  • '2' FOR SECOND;
  • '3' FOR THIRD;
  • '4' FOR FORTH;
  • '5' FOR FIFTH;
  • '6' FOR SIXTH;
33 IS MOTHER MARRIED 0;21 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
34 EDUCATION MOTHER - SECONDARY 0;22 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 12
35 EDUCATION MOTHER - COLLEGE 0;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10
36 EDUCATION FATHER - SECONDARY 0;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>12)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 12
37 EDUCATION FATHER - COLLEGE 0;25 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10
38 LIVE BIRTHS - NOW LIVING 0;26 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
39 LIVE BIRTHS - NOW DEAD 0;27 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
40 TERMINATIONS - BEFORE 20 WEEKS 0;28 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
41 TERMINATIONS - AFTER 20 WEEKS 1;1 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
42 DATE LAST NORMAL MENSES BEGAN 1;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
43 MONTH PRENATAL CARE BEGAN 1;3 SET
  • '1' FOR FIRST;
  • '2' FOR SECOND;
  • '3' FOR THIRD;
  • '4' FOR FOURTH;
  • '5' FOR FIFTH;
  • '6' FOR SIXTH;
  • '7' FOR SEVENTH;
  • '8' FOR EIGHTH;
  • '9' FOR NINTH;
  • '10' FOR TENTH;
  • '11' FOR ELEVENTH;
  • '12' FOR TWELVETH;
44 NUMBER OF PRENATAL VISITS 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 1000
45 APGAR SCORE AT ONE MINUTE 1;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10
46 APGAR SCORE AT FIVE MINUTES 1;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10
47 DATE OF LAST LIVE BIRTH 1;7 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
48 DATE OF OTHER LAST TERMINATION 1;8 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
49 COMPLICATIONS OF PREGNANCY 1;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
50 COMPLICATIONS LINE 1 1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
51 COMPLICATIONS LINE 2 1;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
52 COMPLICATIONS LINE 3 1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
53 TEST FOR SYPHILIS MADE 1;14 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • HELP-PROMPT:  DO NOT STATE RESULTS
54 DATE TEST FOR SYPHILIS MADE 1;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
55 ILLNESS AFFECTING PREGNANCY 1;16 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
56 ILLNESS AFFECTING PREG. LINE 1 1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>66!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-66 CHARACTERS IN LENGTH
57 ILLNESS AFFECTING PREG. LINE 2 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>66!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-66 CHARACTERS IN LENGTH
58 COMPLICATION OF LABOR 2;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
59 COMPLICATION OF LABOR LINE 1 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>66!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-66 CHARACTERS IN LENGTH
60 COMPLICATION OF LABOR LINE 2 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>66!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-66 CHARACTERS IN LENGTH
61 CONGENITAL ANOMALIES 2;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;
62 CONGENITAL ANOMALIES LINE 1 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>66!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-66 CHARACTERS IN LENGTH
63 CONGENITAL ANOMALIES LINE 2 3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>66!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-66 CHARACTERS IN LENGTH
Info |  Desc |  Pointer To FileMan Files |  Fields |  All