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: ^AUPNBMSR

Package: IHS Patient

Global: ^AUPNBMSR


Information

FileMan FileNo FileMan Filename Package
9000024 BIRTH MEASUREMENT IHS Patient

Description

Directly Accessed By Routines, Total: 12

Package Total Routines
PCC New Encounter Form 5 VENPCC1A    VENPCCQ    VENPCCQ1    VENPCCQ2    VENPCCQD    
Patient Care Component 3 APCDBMSR    APCDTWC2    APCHS8    
Clinical Scheduling for Windows 1 BSDX41E    
GUI Objects 1 BGOBMSR    
Health Summary Components 1 BHSFAM1    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
PCC New Encounter Form 1 VENPCCQ    
Patient Care Component 1 APCDBMSR    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.01, .21]    

Fields, Total: 22

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

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  DEC 01, 1999
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000024^B
    1)= S ^AUPNBMSR("B",$E(X,1,30),DA)=""
    2)= K ^AUPNBMSR("B",$E(X,1,30),DA)
.02 BIRTH WEIGHT LBS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>25)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 09, 1999
  • HELP-PROMPT:  Type a Number between 0 and 25, 0 Decimal Digits
  • NOTES:  TRIGGERED by the BIRTH WEIGHT field of the BIRTH MEASUREMENT File
.03 BIRTH WEIGHT OZS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>15)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 09, 1999
  • HELP-PROMPT:  Type a Number between 0 and 15, 0 Decimal Digits
  • NOTES:  TRIGGERED by the BIRTH WEIGHT field of the BIRTH MEASUREMENT File
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9000024,.03,1,1,1.1) X ^DD(9000024,.03,1,1,1.4)
    1.1)= S X=DIV N % S %=$G(^AUPNBMSR(DA,0)) S:$P(%,U,2)?1.N X=($P(%,U,2)*16+$P(%,U,3))*28.350,X=X\1
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000024,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= N % S %=$G(^AUPNBMSR(DA,0)) S:$P(%,U,2)?1.N X=($P(%,U,2)*16+$P(%,U,3))*28.350,X=X\1
    DELETE VALUE)= NO EFFECT
    FIELD)= #.09
.04 APGAR 1 MINUTE 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 09, 1999
  • HELP-PROMPT:  Type a Number between 0 and 10, 0 Decimal Digits
.05 APGAR 5 MINUTE 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 09, 1999
  • HELP-PROMPT:  Type a Number between 0 and 10, 0 Decimal Digits
.06 GESTATIONAL AGE WKS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<12)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 03, 2016
  • HELP-PROMPT:  Type a Number between 12 and 50, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^1101
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=412726003 S DIH=$G(^AUPNBMSR(DIV(0),11)),DIV=X S $P(^(11),U,1)=DIV,DIH=9000024,DIG=1101 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,11)):^(11),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^AUPNBMSR(DIV(0),11)),DIV=X S $P(^(11),U,1)=DIV,DIH=9000024,DIG=1101 D ^DICR
    CREATE VALUE)= S X=412726003
    DELETE VALUE)= @
    FIELD)= #1101
.07 DELIVERY TYPE 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  OCT 09, 1999
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
.08 COMPLICATIONS 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  OCT 09, 1999
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
.09 BW GRAMS 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>10000)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Type a number between 1 and 10000, 0 Decimal Digits
  • NOTES:  TRIGGERED by the BIRTH WEIGHT OZS field of the BIRTH MEASUREMENT File
    TRIGGERED by the BIRTH WEIGHT field of the BIRTH MEASUREMENT File
.11 BIRTH ORDER 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
.12 FORMULA STARTED 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X D INP^AUPNCIX
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • EXECUTABLE HELP:  D INPH^AUPNCIX
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9000024,.12,1,1,1.1) X ^DD(9000024,.12,1,1,1.4)
    1.1)= S X=DIV S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,12))
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9000024,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(9000024,.12,1,1,2.1) X ^DD(9000024,.12,1,1,2.4)
    2.1)= S X=DIV S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,12))
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=9000024,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,12))
    DELETE VALUE)= S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,12))
    FIELD)= #.13
.13 FORMULA STARTED (DAYS) 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the FORMULA STARTED field of the BIRTH MEASUREMENT File
.14 BREAST STOPPED 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X D INP^AUPNCIX
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • EXECUTABLE HELP:  D INPH^AUPNCIX
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(9000024,.14,1,1,1.1) X ^DD(9000024,.14,1,1,1.4)
    1.1)= S X=DIV S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,14))
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,15)=DIV,DIH=9000024,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y X ^DD(9000024,.14,1,1,2.1) X ^DD(9000024,.14,1,1,2.4)
    2.1)= S X=DIV S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,14))
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,15)=DIV,DIH=9000024,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,14))
    DELETE VALUE)= S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,14))
    FIELD)= #.15
.15 BREAST STOPPED (DAYS) 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • NOTES:  TRIGGERED by the BREAST STOPPED field of the BIRTH MEASUREMENT File
.16 SOLIDS STARTED 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X D INP^AUPNCIX
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
  • EXECUTABLE HELP:  D INPH^AUPNCIX
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(9000024,.16,1,1,1.1) X ^DD(9000024,.16,1,1,1.4)
    1.1)= S X=DIV S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,16))
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=9000024,DIG=.17 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(9000024,.16,1,1,2.1) X ^DD(9000024,.16,1,1,2.4)
    2.1)= S X=DIV S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,16))
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,17)=DIV,DIH=9000024,DIG=.17 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,16))
    DELETE VALUE)= S X=$$CONVDAYS^AUPNCIX($P(^AUPNBMSR(DA,0),U,16))
    FIELD)= #.17
.17 SOLIDS STARTED (DAYS) 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 2004
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the SOLIDS STARTED field of the BIRTH MEASUREMENT File
.18 BIRTH WEIGHT KG 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."9N.N) X
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Type a Number between 0 and 9999, 8 Decimal Digits
  • NOTES:  TRIGGERED by the BIRTH WEIGHT field of the BIRTH MEASUREMENT File
.19 BIRTH WEIGHT 0;19 NUMBER

  • INPUT TRANSFORM:  S X=$TR(X,"g","G") S X=$TR(X,"k","K") D WT^AUPNCIX
  • LAST EDITED:  JUL 12, 2009
  • HELP-PROMPT:  Type a Number between 0 and 99999, 1 Decimal Digit
  • EXECUTABLE HELP:  D HWT^AUPNVMS2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.18
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(9000024,.19,1,1,1.1) X ^DD(9000024,.19,1,1,1.4)
    1.1)= S X=DIV S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=9000024,DIG=.18 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(9000024,.19,1,1,2.1) X ^DD(9000024,.19,1,1,2.4)
    2.1)= S X=DIV S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,18)=DIV,DIH=9000024,DIG=.18 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    DELETE VALUE)= S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    FIELD)= #.18
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9000024,.19,1,2,1.1) X ^DD(9000024,.19,1,2,1.4)
    1.1)= S X=DIV S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19)) S:X]"" X=X*1000
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000024,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(9000024,.19,1,2,2.1) X ^DD(9000024,.19,1,2,2.4)
    2.1)= S X=DIV S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19)) S:X]"" X=X*1000
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=9000024,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19)) S:X]"" X=X*1000
    DELETE VALUE)= S X=$$LBKG^AUPNCIX($P(^AUPNBMSR(DA,0),U,19)) S:X]"" X=X*1000
    FIELD)= BW GRAMS
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9000024,.19,1,3,1.1) X ^DD(9000024,.19,1,3,1.4)
    1.1)= S X=DIV S X=$P($P(^AUPNBMSR(DA,0),U,19),".")
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9000024,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9000024,.19,1,3,2.1) X ^DD(9000024,.19,1,3,2.4)
    2.1)= S X=DIV S X=$P($P(^AUPNBMSR(DA,0),U,19),".")
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=9000024,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$P($P(^AUPNBMSR(DA,0),U,19),".")
    DELETE VALUE)= S X=$P($P(^AUPNBMSR(DA,0),U,19),".")
    FIELD)= #.02
  • CROSS-REFERENCE:  ^^TRIGGER^9000024^.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9000024,.19,1,4,1.1) X ^DD(9000024,.19,1,4,1.4)
    1.1)= S X=DIV S X=$$OZ^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    1.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9000024,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNBMSR(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9000024,.19,1,4,2.1) X ^DD(9000024,.19,1,4,2.4)
    2.1)= S X=DIV S X=$$OZ^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    2.4)= S DIH=$S($D(^AUPNBMSR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9000024,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=$$OZ^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    DELETE VALUE)= S X=$$OZ^AUPNCIX($P(^AUPNBMSR(DA,0),U,19))
    FIELD)= #.03
.21 MOTHER 0;21 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  NOV 08, 2006
.22 BIRTH LENGTH 0;22 NUMBER

  • INPUT TRANSFORM:  D BL^AUPNVMSR
  • LAST EDITED:  DEC 14, 2010
  • HELP-PROMPT:  Type a Number between 6 and 30 inches. If entering centimeters enter between 16 and 76 centimeters.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1101 SNOMED LENGTH GEST OBSERVED 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 03, 2016
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • NOTES:  TRIGGERED by the GESTATIONAL AGE WKS field of the BIRTH MEASUREMENT File
1101.019 SNOMED LENGTH OF GEST DESC COMPUTED

  • MUMPS CODE:  S Y(9000024,1101.019,1)=$S($D(^AUPNBMSR(D0,11)):^(11),1:"") S X=$P(Y(9000024,1101.019,1),U,1),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#1101)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All