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

Package: Mental Health Social Services

MHSS RECORD(#9002011)-->9002011.5101

Sub-Field: 9002011.5101


Information

Parent File Name Number Package
MHSS RECORD(#9002011) LOG OF EDITING 9002011.5101 Mental Health Social Services

Details

Field # Name Loc Type Details
.01 DATE/TIME EDITED 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 06, 1997
  • CROSS-REFERENCE:  9002011.5101^B
    1)= S ^AMHREC(DA(1),51,"B",$E(X,1,30),DA)=""
    2)= K ^AMHREC(DA(1),51,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002011^.21
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMHREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV S X=DIV,X=$P(X,".",1) X ^DD(9002011.5101,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^AMHREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011,DIG=.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= DATE(#.01)
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE LAST MODIFIED
.02 WHO EDITED 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JAN 06, 1997
  • CROSS-REFERENCE:  ^^TRIGGER^9002011^.28
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMHREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,28),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002011.5101,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^AMHREC(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,28)=DIV,DIH=9002011,DIG=.28 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INTERNAL(#.02)
    DELETE VALUE)= NO EFFECT
    FIELD)= USER LAST UPDATE
Info |  Details |  All