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

Package: Computerized Public Health Activity Data

BNI CPHAD ACTIVITY RECORDS(#90510)-->90510.0115

Sub-Field: 90510.0115


Information

Parent File Name Number Package
BNI CPHAD ACTIVITY RECORDS(#90510) LOG OF EDITING 90510.0115 Computerized Public Health Activity Data

Details

Field # Name Loc Type Details
.01 LOG OF EDITING 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 14, 2005
  • CROSS-REFERENCE:  90510.0115^B
    1)= S ^BNIREC(DA(1),15,"B",$E(X,1,30),DA)=""
    2)= K ^BNIREC(DA(1),15,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90510^.05
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BNIREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV,X=$P(X,".",1) S DIH=$G(^BNIREC(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=90510,DIG=.05 D ^DIC
    R
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BNIREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(90510.0115,.01,1,2,2.1) S DIH=$G(^BNIREC(DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=90510,DIG=.05 D ^DIC
    R
    2.1)= S X=DIV S Y(1)=$S($D(^BNIREC(D0,15,D1,0)):^(0),1:"") S X=$P(Y(1),U,1),X=$P(X,".",1)
    CREATE VALUE)= DATE(LOG OF EDITING)
    DELETE VALUE)= DATE(LOG OF EDITING)
    FIELD)= #.05
.02 USER WHO EDITED 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 23, 2005
  • CROSS-REFERENCE:  ^^TRIGGER^90510^.04
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BNIREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^BNIREC(DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90510,DIG=.04 D ^DICR
    1.4)= S DIH=$G(^BNIREC(DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90510,DIG=.04 D ^DICR
    2)= Q
    2.1)= S X=DIV S Y(1)=$S($D(^BNIREC(D0,15,D1,0)):^(0),1:"") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U)
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #.04
Info |  Details |  All