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

Package: Quality Assurance

STAFF CREDENTIALS(#9002155)-->9002155.01

Sub-Field: 9002155.01


Information

Parent File Name Number Package
STAFF CREDENTIALS(#9002155) CREDENTIALS APPROVAL 9002155.01 Quality Assurance

Details

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

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • CROSS-REFERENCE:  ^^TRIGGER^9002155^21
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AQAQ(D0,8)):^(8),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002155.01,.01,1,1,1.1) X ^DD(9002155.01,.01,1,1,1.4)
    1.1)= S X=DIV S X=DIV,X1=X,X2=+730,X="" D C^%DTC:X1
    1.4)= S DIH=$S($D(^AQAQ(DIV(0),8)):^(8),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(8)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=21 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(^AQAQ(D0,8)):^(8),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9002155.01,.01,1,1,2.1) X ^DD(9002155.01,.01,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AQAQ(D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X1=X,X2=+730,X="" D C^%DTC:X1
    2.4)= S DIH=$S($D(^AQAQ(DIV(0),8)):^(8),1:""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(8)=$P(DIH,U,1,1)_U_DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=21 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CREDENTIALS APPROVAL DATE+730
    DELETE VALUE)= CREDENTIALS APPROVAL DATE+730
    FIELD)= REC
  • CROSS-REFERENCE:  ^^TRIGGER^9002155^17
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AQAQ(D0,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002155.01,.01,1,2,1.1) X ^DD(9002155.01,.01,1,2,1.4)
    1.1)= S X=DIV S X=DIV,X1=X,X2=+365,X="" D C^%DTC:X1
    1.4)= S DIH=$S($D(^AQAQ(DIV(0),5)):^(5),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(5)=DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=17 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(^AQAQ(D0,5)):^(5),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(9002155.01,.01,1,2,2.1) X ^DD(9002155.01,.01,1,2,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^AQAQ(D0,9,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X1=X,X2=+365,X="" D C^%DTC:X1
    2.4)= S DIH=$S($D(^AQAQ(DIV(0),5)):^(5),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(5)=DIV_$S(%]"":U_%,1:""),DIH=9002155,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= CREDENTIALS APPROVAL DATE+365
    DELETE VALUE)= CREDENTIALS APPROVAL DATE+365
    FIELD)= ANNUAL UPDATES DUE
Info |  Details |  All