Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BGPHEIIF

Package: IHS GPRA Information System

Global: ^BGPHEIIF


Information

FileMan FileNo FileMan Filename Package
90370.02 BGP 04 HEDIS INDIVIDUAL INDICATORS IHS GPRA Information System

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS GPRA Information System 3 BGP4DCHI    BGP4HEL1    BGP4HEP1    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS GPRA Information System 1 BGPPOST1    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS GPRA Information System 1 BGP 04 HEDIS INDICATORS(#90370.01)[.01]    

Fields, Total: 38

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 19, 2003
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 0 Decimal Digits
.01 INDICATOR 0;1 POINTER TO BGP 04 HEDIS INDICATORS FILE (#90370.01)
************************REQUIRED FIELD************************
BGP 04 HEDIS INDICATORS(#90370.01)

  • LAST EDITED:  MAR 20, 2004
  • CROSS-REFERENCE:  90370.02^B
    1)= S ^BGPHEIIF("B",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("B",$E(X,1,30),DA)
.019 INDICATOR COMPUTED

  • MUMPS CODE:  N DIT X ^DD(90370.02,.019,9.2) S DIT(101)=$S($D(^BGPIND(D0,0)):^(0),1:"") S X=$P(DIT(101),U,4) S D0=DIT(80)
    9.2 = S DIT(80)=$S($D(D0):D0,1:""),DIT(1)=$S($D(^BGPHEIIF(D0,0)):^(0),1:""),D0=$P(DIT(1),U,1) S:'$D(^BGPIND(+D0,0)) D0=-1
  • ALGORITHM:  #.01:#.04
.02 CORRESPONDING GPRA 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAR 25, 2004
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
.03 CORRESPONDING GPRA ORDER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  MAR 20, 2004
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
.04 INDICATOR ID 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  NOV 17, 2003
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • CROSS-REFERENCE:  90370.02^C
    1)= S ^BGPHEIIF("C",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90370.02^AA^MUMPS
    1)= S ^BGPHEIIF("AA",$P(X,".",1,2),DA)=""
    2)= K ^BGPHEIIF("AA",$P(X,".",1,2),DA)
.07 EISS 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 31, 2002
  • CROSS-REFERENCE:  90370.02^AEISS
    1)= S ^BGPHEIIF("AEISS",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("AEISS",$E(X,1,30),DA)
.08 DENOM FIELD NUMBER 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  FEB 17, 2003
  • HELP-PROMPT:  Type a Number between 1 and 999999, 3 Decimal Digits
  • CROSS-REFERENCE:  90370.02^ADF
    1)= S ^BGPHEIIF("ADF",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("ADF",$E(X,1,30),DA)
.09 NUMERATOR FIELD NUMBER 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  FEB 17, 2003
  • HELP-PROMPT:  Type a Number between 1 and 999999, 3 Decimal Digits
  • CROSS-REFERENCE:  90370.02^ANF
    1)= S ^BGPHEIIF("ANF",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("ANF",$E(X,1,30),DA)
.11 EISS DENOM PIECE 0;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 10, 2003
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
.13 CARDIO INDICATOR? 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 31, 2002
  • CROSS-REFERENCE:  90370.02^ACARD
    1)= S ^BGPHEIIF("ACARD",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("ACARD",$E(X,1,30),DA)
.15 LINE TITLE 1 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<1) X
  • LAST EDITED:  MAR 04, 2003
  • HELP-PROMPT:  Answer must be 1-35 characters in length
.16 LINE TITLE 2 0;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 04, 2003
  • HELP-PROMPT:  Answer must be 1-30 characters in length
.17 LOCAL DENOM TITLE 1 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>39!($L(X)<1) X
  • LAST EDITED:  JUL 28, 2003
  • HELP-PROMPT:  Answer must be 1-39 characters in length.
.18 LOCAL DENOM TITLE 2 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 10, 2003
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
.19 LINE TITLE 3 0;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<1) X
  • LAST EDITED:  JAN 17, 2003
  • HELP-PROMPT:  Answer must be 1-18 characters in length.
.21 LOCAL DENOM TITLE 3 0;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<3) X
  • LAST EDITED:  NOV 17, 2003
  • HELP-PROMPT:  Answer must be 3-18 characters in length.
1 M CODE NUMERATOR 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  JAN 06, 2003
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
2 M CODE DENOMINATOR 2;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  JAN 06, 2003
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
1101 GPRA DENOM LINE TITLE 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 11, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length
1102 GPRA DENOM TITLE 2 11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<1) X
  • LAST EDITED:  FEB 10, 2003
  • HELP-PROMPT:  Answer must be 1-17 characters in length.
1103 GPRA DENOM TITLE 3 11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  FEB 10, 2003
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
1104 AREA DENOM TITLE 1 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  FEB 11, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length
1105 AREA DENOM TITLE 2 11;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1) X
  • LAST EDITED:  FEB 11, 2003
  • HELP-PROMPT:  Answer must be 1-19 characters in length
1106 AREA DENOM TITLE 3 11;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<1) X
  • LAST EDITED:  FEB 17, 2003
  • HELP-PROMPT:  Answer must be 1-17 characters in length
1201 HEDIS? 12;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 02, 2003
1202 WOMEN'S HEALTH 12;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 08, 2003
  • CROSS-REFERENCE:  90370.02^AWH
    1)= S ^BGPHEIIF("AWH",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("AWH",$E(X,1,30),DA)
1203 PREVENTION RELATED 12;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 08, 2003
  • CROSS-REFERENCE:  90370.02^APR
    1)= S ^BGPHEIIF("APR",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("APR",$E(X,1,30),DA)
1204 ORDER 12;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  MAR 28, 2004
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • CROSS-REFERENCE:  90370.02^ORDER^MUMPS
    1)= S ^BGPHEIIF("ORDER",$P(^BGPHEIIF(DA,0),U),X,DA)=""
    2)= K ^BGPHEIIF("ORDER",$P(^BGPHEIIF(DA,0),U),X,DA)
  • CROSS-REFERENCE:  90370.02^AB^MUMPS
    1)= S ^BGPHEIIF("AB",$P(X,".",1),X,DA)=""
    2)= K ^BGPHEIIF("AB",$P(X,".",1),X,DA)
  • CROSS-REFERENCE:  90370.02^OR
    1)= S ^BGPHEIIF("OR",$E(X,1,30),DA)=""
    2)= K ^BGPHEIIF("OR",$E(X,1,30),DA)
1205 ADD GPRA TO 1ST LINE 12;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 17, 2003
1206 ADD GPRA TO SECOND LINE 12;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 17, 2003
1207 ADD GPRA TO 3RD LINE 12;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 17, 2003
1401 SUMMARY? 14;1 SET
  • '1' FOR Y;
  • '0' FOR NO;

  • LAST EDITED:  NOV 07, 2003
1402 NATIONAL CURRENT 14;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 07, 2003
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1403 NATIONAL PREVIOUS 14;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  NOV 07, 2003
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1404 TITLE 14;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  NOV 07, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1405 CATEGORY 14;5 SET
  • '1' FOR DIABETES (for Active Diabetic patients);
  • '2' FOR DENTAL;
  • '3' FOR IMMUNIZATIONS;
  • '4' FOR PREVENTION;
  • '5' FOR PREGNANT WOMEN;
  • '6' FOR PUBLIC HEALTH NURSING;

  • LAST EDITED:  DEC 10, 2003
1406 ORDER ON SUMMARY SHEET 14;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 08, 2003
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits

Found Entries, Total: 26

INDICATOR: 90370.01^10^10    INDICATOR: 90370.01^11^11    INDICATOR: 90370.01^12^12    INDICATOR: 90370.01^12^12    INDICATOR: 90370.01^1^1    INDICATOR: 90370.01^2^2    INDICATOR: 90370.01^2^2    INDICATOR: 90370.01^3^3    
INDICATOR: 90370.01^3^3    INDICATOR: 90370.01^4^4    INDICATOR: 90370.01^5^5    INDICATOR: 90370.01^5^5    INDICATOR: 90370.01^6^6    INDICATOR: 90370.01^6^6    INDICATOR: 90370.01^6^6    INDICATOR: 90370.01^7^7    
INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^7^7    INDICATOR: 90370.01^8^8    
INDICATOR: 90370.01^8^8    INDICATOR: 90370.01^9^9    
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All