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

Package: IHS Changes To Lab

NEWBORN REGISTER(#9002081.1)-->9002081.61

Sub-Field: 9002081.61


Information

Parent File Name Number Package
NEWBORN REGISTER(#9002081.1) PREVIOUS COMMUNITY 9002081.61 IHS Changes To Lab

Details

Field # Name Loc Type Details
.01 DATE MOVED 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X D:$D(X) PAT5101^AUPNPED S:$D(X) DINUM=X
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1940 AND TODAY
  • DESCRIPTION:  
    The input transform forces the "DATE MOVED" field to be used as the subscript.  This allows the computed field "CURRENT COMMUNITY" to get the latest community of residence regardless of the sequence entered.
    SOURCE OF DATA:   014/PADTAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9002081.1^1118
    1)= Q
    2)= X ^DD(9002081.61,.01,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^AMCH(81.1,D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(9002081.61,.01,1,1,2.1) X ^DD(9002081.61,.01,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002081.61,.01,1,1,59.2) S X=Y(2) S X=$S('$D(^AUTTCOM(+X,0)):"",1:$P(^(0),U,1)) S D1=I(1,0)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X X ^DD(9002081.61,.01,1,1,79.3) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AMCH(81.1,DIV(0),11)):^(11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,17,99))  S DIH=DIH_U" S %=$P(DIH,U,19,999),DIU=$P(DIH,U,18),^(11)=$P(DIH,U,1,17)_U_DIV_$S(%]"":U_%,1:""),DIH=9002081.1,DIG=1118 D ^DICR:$N
    (^DD(DIH,DIG,1,0))>0
    59.2)= S I(1,0)=$S($D(D1):D1,1:""),Y(2)="" X "F D1=0:0 S D1=$N(^AMCH(81.1,D0,51,D1)) Q:D1'>0  I $N(^AMCH(81.1,D0,51,D1))=I(1,0) S Y(2)=$S($D(^(D1,0)):$P(^(0),U,3),1:"""") Q" S D(1)=D1
    79.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(102)=""
    79.3)= X ^DD(9002081.61,.01,1,1,79.2) X "F D1=0:0 S D1=$N(^AMCH(81.1,D0,51,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""") S:Y'?."" "" Y(102)=Y" S D(1)=D1 S X=Y(102)=X
    CREATE VALUE)= NO EFFECT
    DELETE CONDITION)= LAST(PREVIOUS COMMUNITY:DATE MOVED)=OLD DATE MOVED
    DELETE VALUE)= PREVIOUS(COMMUNITY OF RESIDENCE)
    DIC)=
    FIELD)= CURRENT COMMUNITY
.02 DATE ADDED TO FILE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • HELP-PROMPT:  GENERATED
  • DESCRIPTION:  Generated when a community is added to this subfile.
    A date between 1960 and today.
    SOURCE OF DATA: 014/PADTAD
    UNEDITABLE





.03
COMMUNITY OF RESIDENCE
0;3
POINTER TO COMMUNITY FILE (#9999999.05) 

************************REQUIRED FIELD************************
COMMUNITY(#9999999.05)
  • CROSS-REFERENCE:  ^^TRIGGER^9002081.1^1118
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMCH(81.1,D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(9002081.61,.03,1,1,1.1) X ^DD(9002081.61,.03,1,1,1.4)
    1.1)= S X=DIV X ^DD(9002081.61,.03,1,1,49.3) S X=$S('$D(^AUTTCOM(+X,0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^AMCH(81.1,DIV(0),11)):^(11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,17,99))  S DIH=DIH_U" S %=$P(DIH,U,19,999),DIU=$P(DIH,U,18),^(11)=$P(DIH,U,1,17)_U_DIV_$S(%]"":U_%,1:""),DIH=9002081.1,DIG=1118 D ^DICR:$N
    (^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMCH(81.1,D0,11)):^(11),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(9002081.61,.03,1,1,2.1) X ^DD(9002081.61,.03,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002081.61,.03,1,1,59.3) S X=$S('$D(^AUTTCOM(+X,0)):"",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$S($D(^AMCH(81.1,DIV(0),11)):^(11),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,17,99))  S DIH=DIH_U" S %=$P(DIH,U,19,999),DIU=$P(DIH,U,18),^(11)=$P(DIH,U,1,17)_U_DIV_$S(%]"":U_%,1:""),DIH=9002081.1,DIG=1118 D ^DICR:$N
    (^DD(DIH,DIG,1,0))>0
    49.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(102)=""
    49.3)= X ^DD(9002081.61,.03,1,1,49.2) X "F D1=0:0 S D1=$N(^AMCH(81.1,D0,51,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,3),1:"""") S:Y'?."" "" Y(102)=Y" S D(1)=D1 S X=Y(102)
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),I(1,0)=$S($D(D1):D1,1:""),Y(102)=""
    59.3)= X ^DD(9002081.61,.03,1,1,59.2) X "F D1=0:0 S D1=$N(^AMCH(81.1,D0,51,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,3),1:"""") S:Y'?."" "" Y(102)=Y" S D(1)=D1 S X=Y(102)
    CREATE VALUE)= LAST(PREVIOUS COMMUNITY:COMMUNITY OF RESIDENCE)
    DELETE VALUE)= LAST(PREVIOUS COMMUNITY:COMMUNITY OF RESIDENCE)
    FIELD)= CURRENT COMMUNITY







    



Info | 
Details | 
All