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 |  All
Print Page as PDF
Global: ^BGPINDFC

Package: IHS GPRA Information System

Global: ^BGPINDFC


Information

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

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
IHS GPRA Information System 1 BGP4PDLZ    

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 INDICATORS(#90244.01)[.01]    

Fields, Total: 42

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 INDICATORS FILE (#90244.01)
************************REQUIRED FIELD************************
BGP 04 INDICATORS(#90244.01)

  • LAST EDITED:  NOV 02, 2003
  • CROSS-REFERENCE:  90244.02^B
    1)= S ^BGPINDFC("B",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("B",$E(X,1,30),DA)
.019 INDICATOR COMPUTED

  • MUMPS CODE:  X ^DD(90244.02,.019,9.2) S Y(90244.02,.019,101)=$S($D(^BGPIND(D0,0)):^(0),1:"") S X=$P(Y(90244.02,.019,101),U,4) S D0=Y(90244.02,.019,80)
    9.2 = S Y(90244.02,.019,80)=$S($D(D0):D0,1:""),Y(90244.02,.019,1)=$S($D(^BGPINDFC(D0,0)):^(0),1:""),D0=$P(Y(90244.02,.019,1),U,1) S:'$D(^BGPIND(+D0,0)) D0=-1
  • ALGORITHM:  #.01:#.04
.02 INDICATOR SECOND LEVEL 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
.03 INDICATOR THIRD LEVEL 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  DEC 30, 2002
  • HELP-PROMPT:  Answer must be 1-5 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:  90244.02^C
    1)= S ^BGPINDFC("C",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90244.02^AA^MUMPS
    1)= S ^BGPINDFC("AA",$P(X,".",1,2),DA)=""
    2)= K ^BGPINDFC("AA",$P(X,".",1,2),DA)
.05 NATIONAL 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 09, 2004
  • CROSS-REFERENCE:  90244.02^AGPRA
    1)= S ^BGPINDFC("AGPRA",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("AGPRA",$E(X,1,30),DA)
.06 AREA APP 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 31, 2002
  • CROSS-REFERENCE:  90244.02^AREA
    1)= S ^BGPINDFC("AREA",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("AREA",$E(X,1,30),DA)
.07 EISS 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 31, 2002
  • CROSS-REFERENCE:  90244.02^AEISS
    1)= S ^BGPINDFC("AEISS",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("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:  90244.02^ADF
    1)= S ^BGPINDFC("ADF",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("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:  90244.02^ANF
    1)= S ^BGPINDFC("ANF",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("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
.12 DM INDICATOR? 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 31, 2002
  • CROSS-REFERENCE:  90244.02^ADM
    1)= S ^BGPINDFC("ADM",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("ADM",$E(X,1,30),DA)
.13 CARDIO INDICATOR? 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 31, 2002
  • CROSS-REFERENCE:  90244.02^ACARD
    1)= S ^BGPINDFC("ACARD",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("ACARD",$E(X,1,30),DA)
.14 EISS NUMERATOR PIECE 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 20, 2003
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • CROSS-REFERENCE:  90244.02^APO^MUMPS
    1)= S ^BGPINDFC("APO",$P(^BGPINDFC(DA,0),U),X,DA)=""
    2)= K ^BGPINDFC("APO",$P(^BGPINDFC(DA,0),U),X,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:  90244.02^AWH
    1)= S ^BGPINDFC("AWH",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("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:  90244.02^APR
    1)= S ^BGPINDFC("APR",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("APR",$E(X,1,30),DA)
1204 ORDER 12;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  NOV 12, 2003
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • CROSS-REFERENCE:  90244.02^ORDER^MUMPS
    1)= S ^BGPINDFC("ORDER",$P(^BGPINDFC(DA,0),U),X,DA)=""
    2)= K ^BGPINDFC("ORDER",$P(^BGPINDFC(DA,0),U),X,DA)
  • CROSS-REFERENCE:  90244.02^AB^MUMPS
    1)= S ^BGPINDFC("AB",$P(X,".",1,2),X,DA)=""
    2)= K ^BGPINDFC("AB",$P(X,".",1,2),X,DA)
  • CROSS-REFERENCE:  90244.02^OR
    1)= S ^BGPINDFC("OR",$E(X,1,30),DA)=""
    2)= K ^BGPINDFC("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
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All