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

Package: IHS Patient

V DELIVERY(#9000010.64)-->9000010.6411

Sub-Field: 9000010.6411


Information

Parent File Name Number Package
V DELIVERY(#9000010.64) NEWBORN 9000010.6411 IHS Patient

Details

Field # Name Loc Type Details
.01 DATE/TIME OF DELIVERY 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 17, 2018
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  9000010.6411^B
    1)= S ^AUPNVDLV(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^AUPNVDLV(DA(1),11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.6411^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNVDLV(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=397836004 X ^DD(9000010.6411,.01,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVDLV(DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=9000010.6411,DIG=.02 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNVDLV(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=397836004 X ^DD(9000010.6411,.01,1,2,2.4)
    2.4)= S DIH=$G(^AUPNVDLV(DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=9000010.6411,DIG=.02 D ^DICR
    CREATE VALUE)= S X=397836004
    DELETE VALUE)= S X=397836004
    FIELD)= #.02
.02 DATE/TIME OF DELIVERY SNOMED 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 17, 2018
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • AUDIT:  YES, ALWAYS
  • NOTES:  TRIGGERED by the DATE/TIME OF DELIVERY field of the NEWBORN sub-field of the V DELIVERY File
.0219 DELIVERY SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.6411,.0219,1)=$S($D(^AUPNVDLV(D0,11,D1,0)):^(0),1:"") S X=$P(Y(9000010.6411,.0219,1),U,2),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#.02)
.03 EGA AT DELIVERY 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X D EGA^AUPNVMSR
  • LAST EDITED:  MAY 17, 2018
  • HELP-PROMPT:  Answer must be in the format WW D/7. e.G. 22 1/7
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.6411^.04
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNVDLV(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=444135009 X ^DD(9000010.6411,.03,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVDLV(DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.6411,DIG=.04 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^AUPNVDLV(D0,11,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.6411,.03,1,1,2.4)
    2.4)= S DIH=$G(^AUPNVDLV(DIV(0),11,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.6411,DIG=.04 D ^DICR
    CREATE VALUE)= S X=444135009
    DELETE VALUE)= @
    FIELD)= #.04
.04 EGA AT DELIVERY CONCEPT ID 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 17, 2018
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • AUDIT:  YES, ALWAYS
  • NOTES:  TRIGGERED by the EGA AT DELIVERY field of the NEWBORN sub-field of the V DELIVERY File
.0419 EGA AT DELIVERY PERFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.6411,.0419,1)=$S($D(^AUPNVDLV(D0,11,D1,0)):^(0),1:"") S X=$P(Y(9000010.6411,.0419,1),U,4),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#.04)
.05 SEX AT BIRTH 0;5 SET
************************REQUIRED FIELD************************
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;
  • 'U' FOR UNKNOWN;

  • LAST EDITED:  MAY 17, 2018
  • AUDIT:  YES, ALWAYS
.06 LIVE/STILLBORN 0;6 SET
************************REQUIRED FIELD************************
  • 'L' FOR LIVE;
  • 'S' FOR STILLBORN;

  • LAST EDITED:  MAY 17, 2018
  • AUDIT:  YES, ALWAYS
Info |  Details |  All