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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNOFFH

Package: IHS Patient

Global: ^AUPNOFFH


Information

FileMan FileNo FileMan Filename Package
9000012 OFFSPRING HISTORY IHS Patient

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Clinical Scheduling for Windows 1 BSDX41E    
Health Summary Components 1 BHSFAM1    
Local Area Programs 1 AZAXDPM1    
Patient Care Component 1 APCHS8    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    

Fields, Total: 12

Field # Name Loc Type Details
.01 DATE OF OFFSPRING BIRTH 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 06, 1988
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1950 AND TODAY
  • CROSS-REFERENCE:  9000012^B
    1)= S ^AUPNOFFH("B",$E(X,1,30),DA)=""
    2)= K ^AUPNOFFH("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000012^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000012^AATOO^MUMPS
    1)= I $P(^AUPNOFFH(DA,0),U,2)]"" S ^AUPNOFFH("AA",$P(^AUPNOFFH(DA,0),U,2),X,DA)=""
    2)= I $P(^AUPNOFFH(DA,0),U,2)]"" K ^AUPNOFFH("AA",$P(^AUPNOFFH(DA,0),U,2),X,DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 22, 1986
    UNEDITABLE
  • CROSS-REFERENCE:  9000012^AC
    1)= S ^AUPNOFFH("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNOFFH("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000012^AA^MUMPS
    1)= S ^AUPNOFFH("AA",X,$P(^AUPNOFFH(DA,0),U,1),DA)=""
    2)= K ^AUPNOFFH("AA",X,$P(^AUPNOFFH(DA,0),U,1),DA)
.04 FIRST NAME 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-11 CHARACTERS IN LENGTH
    SOURCE OF DATA:   053/SINAME
.05 SEX 0;5 SET
************************REQUIRED FIELD************************
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  JUL 11, 1986
    SOURCE OF DATA:   053/SISEXX
.06 BIRTH WEIGHT 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3) X Q:'$D(X) D ^AUPNOHBW
  • LAST EDITED:  OCT 23, 1986
  • HELP-PROMPT:  Enter weight as lbs oz (6 10), lbs fraction (6 1/4), or lbs.decimal (8.25). Weight range must be between 2 lbs 0 ozs and 15 lbs 15 ozs and fractional part must be a multiple of 1/16 (.0625).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 GESTATIONAL AGE 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>42)!(X<28)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 28 AND 42
    SOURCE OF DATA:   053/SIBIWT
.08 APGAR SCORE 1 MIN 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10
    SOURCE OF DATA:   053/SIAPG1
.09 APGAR SCORE 5 MIN 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 10
.11 DATE OF DEATH 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1950 AND TODAY
.12 CAUSE OF DEATH 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  JUL 11, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
2101 PERINATAL 21;0 Multiple #9000012.21 9000012.21
3101 NEONATAL 31;0 Multiple #9000012.31 9000012.31
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  Found Entries |  All