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

Package: IHS Designated Provider

BDP DESG SPECIALTY PROVIDER(#90360.1)-->90360.11

Sub-Field: 90360.11


Information

Parent File Name Number Package
BDP DESG SPECIALTY PROVIDER(#90360.1) PROVIDER NAME 90360.11 IHS Designated Provider

Details

Field # Name Loc Type Details
.01 PROVIDER NAME 0;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 02, 2003
  • CROSS-REFERENCE:  90360.11^B
    1)= S ^BDPRECN(DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^BDPRECN(DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90360.1^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90360.11,.01,1,2,1.1) X ^DD(90360.11,.01,1,2,1.4)
    1.1)= S X=DIV S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^VA(200,+D0,0)) D0=-1 S X=$S('$D(D0):"",D0<0:"",1:D0) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$S($D(^BDPRECN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=90360.1,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90360.11,.01,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(90360.11,.01,1,2,2.4)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))'=""
    2.4)= S DIH=$S($D(^BDPRECN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=90360.1,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= PROVIDER NAME:NUMBER
    DELETE CONDITION)= PROVIDER NAME'=""
    DELETE VALUE)= @
    DIC)=
    FIELD)= LAST CURRENT PROVIDER
  • CROSS-REFERENCE:  ^^TRIGGER^90360.11^.02
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90360.11,.01,1,3,1.4)
    1.4)= S DIH=$S($D(^BDPRECN(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90360.11,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90360.11,.01,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(90360.11,.01,1,3,2.4)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))'=""
    2.4)= S DIH=$S($D(^BDPRECN(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90360.11,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE CONDITION)= PROVIDER NAME'=""
    DELETE VALUE)= @
    FIELD)= USER UPDATED
  • CROSS-REFERENCE:  ^^TRIGGER^90360.11^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(90360.11,.01,1,4,1.4)
    1.4)= S DIH=$S($D(^BDPRECN(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=90360.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90360.11,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(90360.11,.01,1,4,2.4)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"",1:$P(^(0),U,1))'=""
    2.4)= S DIH=$S($D(^BDPRECN(DIV(0),1,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=90360.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= TODAY
    DELETE CONDITION)= PROVIDER NAME'=""
    DELETE VALUE)= @
    FIELD)= DATE UPDATED
.02 USER LAST UPDATED 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  MAY 15, 2018
  • NOTES:  TRIGGERED by the PROVIDER NAME field of the PROVIDER NAME sub-field of the BDP DESG SPECIALTY PROVIDER File
  • CROSS-REFERENCE:  ^^TRIGGER^90360.1^.04
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(90360.11,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^BDPRECN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=90360.1,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= X ^DD(90360.11,.02,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(90360.11,.02,1,1,2.4)
    2.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"",1:$P(^(0),U,1))'=""
    2.4)= S DIH=$S($D(^BDPRECN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=90360.1,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE CONDITION)= LAST USER UPDATE'=""
    DELETE VALUE)= @
    DIC)=
    FIELD)= LAST USER UPDATE
.03 DATE LAST UPDATED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 15, 2018
  • NOTES:  TRIGGERED by the PROVIDER NAME field of the PROVIDER NAME sub-field of the BDP DESG SPECIALTY PROVIDER File
  • CROSS-REFERENCE:  ^^TRIGGER^90360.1^.05
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(90360.11,.03,1,1,1.4)
    1.4)= S DIH=$S($D(^BDPRECN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=90360.1,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^BDPRECN(D0,1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3)'="" I X S X=DIV S Y(1)=$S($D(^BDPRECN(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(90360.
    11,.03,1,1,2.4)
    2.4)= S DIH=$S($D(^BDPRECN(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=90360.1,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DT
    DELETE CONDITION)= DATE UPDATED'=""
    DELETE VALUE)= @
    DIC)=
    FIELD)= LAST DATE UPDATED
.04 EFFECTIVE/START DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 21, 2018
.05 INACTIVE/STOP DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 15, 2018
Info |  Details |  All