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.6511

Package: Mental Health Social Services

MHSS SUICIDE FORMS(#9002011.65)-->9002011.6511

Sub-Field: 9002011.6511


Information

Parent File Name Number Package
MHSS SUICIDE FORMS(#9002011.65) METHOD 9002011.6511 Mental Health Social Services

Details

Field # Name Loc Type Details
.01 METHOD 0;1 SET
  • '1' FOR GUNSHOT;
  • '2' FOR HANGING;
  • '3' FOR MOTOR VEHICLE;
  • '4' FOR JUMPING;
  • '5' FOR STABBING/LACERATION;
  • '6' FOR CARBON MONOXIDE;
  • '7' FOR OVERDOSE;
  • 'U' FOR UNKNOWN;
  • '8' FOR OTHER;

  • LAST EDITED:  MAY 17, 2005
  • SCREEN:  S DIC("S")="I $$METHOD^AMHLESF(Y)"
  • EXPLANATION:  ENTER A SUICIDE METHOD
  • CROSS-REFERENCE:  9002011.6511^B
    1)= S ^AMHPSUIC(DA(1),11,"B",$E(X,1,30),DA)=""
    2)= K ^AMHPSUIC(DA(1),11,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002011.65^.21
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9002011.6511,.01,1,2,1.4)
    1.4)= S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9002011.6511,.01,1,2,2.4)
    2.4)= S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #.21
.02 METHOD IF OTHER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 16, 2009
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^9002011.65^.21
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9002011.6511,.02,1,1,1.4)
    1.4)= S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^AMHPSUIC(D0,0)):^(0),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DT X ^DD(9002011.6511,.02,1,1,2.4)
    2.4)= S DIH=$G(^AMHPSUIC(DIV(0),0)),DIV=X S $P(^(0),U,21)=DIV,DIH=9002011.65,DIG=.21 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=DT
    DELETE VALUE)= I '$D(DIU(0)) S X=DT
    FIELD)= #.21
1101 DRUG IF OVERDOSE 11;0 POINTER Multiple #9002011.651111 9002011.651111
Info |  Details |  All