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: ^BGPELIIB

Package: IHS GPRA Information System

Global: ^BGPELIIB


Information

FileMan FileNo FileMan Filename Package
90547.02 BGP 11 ELDER INDIVIDUAL MEASURES IHS GPRA Information System

Description

Directly Accessed By Routines, Total: 60

Package Total Routines
IHS GPRA Information System 60 BGP1DCEI    BGP1EL10    BGP1EL11    BGP1EL12    BGP1EL13    BGP1EL14    BGP1EL15    BGP1EL16
BGP1EL17    BGP1EL18    BGP1EL19    BGP1EL1A    BGP1EL1B    BGP1EL1C    BGP1EL1D    BGP1EL1E
BGP1EL1F    BGP1EL1G    BGP1EL1H    BGP1EL1I    BGP1EL1J    BGP1EL1K    BGP1EL1L    BGP1EL1M
BGP1EL1N    BGP1EL1O    BGP1EL1P    BGP1EL1S    BGP1EL1T    BGP1ELL1    BGP1ELL2    BGP1ELL3
BGP1ELL4    BGP1ELL5    BGP1ELL6    BGP1ELL7    BGP1ELL8    BGP1ELL9    BGP1ELLA    BGP1ELLB
BGP1ELLC    BGP1ELLD    BGP1ELLE    BGP1ELLF    BGP1ELLG    BGP1ELLH    BGP1ELLI    BGP1ELLJ
BGP1ELLK    BGP1ELLL    BGP1ELLM    BGP1ELLN    BGP1ELLO    BGP1ELLP    BGP1ELLR    BGP1ELLS
BGP1ELLW    BGP1ELLX    BGP1ELP1    BGP1POS2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS GPRA Information System 1 BGP1POS2    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IHS GPRA Information System 1 BGP 11 ELDER MEASURES(#90547.06)[.01]    

Fields, Total: 15

Field # Name Loc Type Details
.01 INDICATOR 0;1 POINTER TO BGP 11 ELDER MEASURES FILE (#90547.06)
************************REQUIRED FIELD************************
BGP 11 ELDER MEASURES(#90547.06)

  • LAST EDITED:  JAN 17, 2005
  • CROSS-REFERENCE:  90547.02^B
    1)= S ^BGPELIIB("B",$E(X,1,30),DA)=""
    2)= K ^BGPELIIB("B",$E(X,1,30),DA)
.019 INDICATOR COMPUTED

  • MUMPS CODE:  N DIT X ^DD(90547.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(^BGPELIIB(D0,0)):^(0),1:""),D0=$P(DIT(1),U,1) S:'$D(^BGPIND(+D0,0)) D0=-1
  • ALGORITHM:  #.01:#.04
.04 INDICATOR ID 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAY 20, 2004
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • CROSS-REFERENCE:  90547.02^C
    1)= S ^BGPELIIB("C",$E(X,1,30),DA)=""
    2)= K ^BGPELIIB("C",$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:  MAY 20, 2004
  • HELP-PROMPT:  Type a Number between 1 and 999999, 3 Decimal Digits
.09 NUMERATOR FIELD NUMBER 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."4N.N) X
  • LAST EDITED:  MAY 20, 2004
  • HELP-PROMPT:  Type a Number between 1 and 999999, 3 Decimal Digits
.15 LINE TITLE 1 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<1) X
  • LAST EDITED:  SEP 17, 2007
  • HELP-PROMPT:  Answer must be 1-45 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.
.22 ADD BANG 0;22 SET
  • '1' FOR YES;

  • LAST EDITED:  JUL 05, 2004
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:  @
1204 ORDER 12;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  OCT 11, 2006
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • CROSS-REFERENCE:  90547.02^ABC^MUMPS
    1)= S ^BGPELIIB("ABC",$P(X,".",1,2),$TR(X,".",""),DA)=""
    2)= K ^BGPELIIB("ABC",$P(X,".",1,2),$TR(X,".",""),DA)
  • CROSS-REFERENCE:  90547.02^AB^MUMPS
    1)= S ^BGPELIIB("AB",$P(X,".",1,2),X,DA)=""
    2)= K ^BGPELIIB("AB",$P(X,".",1,2),X,DA)
  • CROSS-REFERENCE:  90547.02^OR
    1)= S ^BGPELIIB("OR",$E(X,1,30),DA)=""
    2)= K ^BGPELIIB("OR",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90547.02^AP^MUMPS
    1)= S ^BGPELIIB("AP",$P(X,".",1,2),DA)=""
    2)= K ^BGPELIIB("AP",$P(X,".",1,2),DA)
  • CROSS-REFERENCE:  90547.02^AE^MUMPS
    1)= S ^BGPELIIB("AE",$P(X,"."),$P(X,".",2),$P(X,".",3),DA)=""
    2)= Q
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All