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

Package: IHS GPRA Information System

BGP 15 PAT ED MEASURES(#90554.15)-->90554.1514

Sub-Field: 90554.1514


Information

Parent File Name Number Package
BGP 15 PAT ED MEASURES(#90554.15) TAXONOMIES USED 90554.1514 IHS GPRA Information System

Details

Field # Name Loc Type Details
.01 TAXONOMIES USED 0;1 SET
  • 'D' FOR DIAGNOSIS;
  • 'C' FOR CPT;

  • LAST EDITED:  FEB 28, 2012
  • CROSS-REFERENCE:  90554.1514^B
    1)= S ^BGPPEIK(DA(1),14,"B",$E(X,1,30),DA)=""
    2)= K ^BGPPEIK(DA(1),14,"B",$E(X,1,30),DA)
.02 TAXONOMY PTR (PROGRAMMER USE) 0;2 POINTER TO TAXONOMY FILE (#9002226) TAXONOMY(#9002226)

  • LAST EDITED:  FEB 28, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^90554.1514^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BGPPEIK(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90554.1514,.02,1,1,1.1) X ^DD(90554.1514,.02,1,1,1.4)
    1.1)= S X=DIV S I(1,0)=$G(D1),I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ATXAX(+D0,0)) D0=-1 S Y(101)=$S($D(^ATXAX(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    1.4)= S DIH=$G(^BGPPEIK(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90554.1514,DIG=.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BGPPEIK(D0,14,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(90554.1514,.02,1,1,2.1) X ^DD(90554.1514,.02,1,1,2.4)
    2.1)= S X=DIV X ^DD(90554.1514,.02,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)
    2.4)= S DIH=$G(^BGPPEIK(DIV(0),14,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=90554.1514,DIG=.03 D ^DICR
    59.2)= S I(1,0)=$G(D1),I(0,0)=$G(D0),Y(1)=$S($D(^BGPPEIK(D0,14,D1,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'D0!'$D(^ATXAX(+D0,0)) D0=-1 S Y(101)=$S($D(^ATXAX(D0,0)):^(0),1:"")
    CREATE VALUE)= #.02:#.01
    DELETE VALUE)= #.02:#.01
    FIELD)= #.03
.03 TAXONOMY NAME 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 28, 2012
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • NOTES:  TRIGGERED by the TAXONOMY PTR (PROGRAMMER USE) field of the TAXONOMIES USED sub-field of the BGP 15 PAT ED MEASURES File
Info |  Details |  All