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

Package: IHS GPRA Information System

Global: ^BGPELIIW


Information

FileMan FileNo FileMan Filename Package
90549.02 BGP 12 ELDER INDIVIDUAL MEASURES IHS GPRA Information System

Description

Directly Accessed By Routines, Total: 60

Package Total Routines
IHS GPRA Information System 60 BGP2DCEI    BGP2EL10    BGP2EL11    BGP2EL12    BGP2EL13    BGP2EL14    BGP2EL15    BGP2EL16
BGP2EL17    BGP2EL18    BGP2EL19    BGP2EL1A    BGP2EL1B    BGP2EL1C    BGP2EL1D    BGP2EL1E
BGP2EL1F    BGP2EL1G    BGP2EL1H    BGP2EL1I    BGP2EL1J    BGP2EL1K    BGP2EL1L    BGP2EL1M
BGP2EL1N    BGP2EL1O    BGP2EL1P    BGP2EL1S    BGP2EL1T    BGP2ELL1    BGP2ELL2    BGP2ELL3
BGP2ELL4    BGP2ELL5    BGP2ELL6    BGP2ELL7    BGP2ELL8    BGP2ELL9    BGP2ELLA    BGP2ELLB
BGP2ELLC    BGP2ELLD    BGP2ELLE    BGP2ELLF    BGP2ELLG    BGP2ELLH    BGP2ELLI    BGP2ELLJ
BGP2ELLK    BGP2ELLL    BGP2ELLM    BGP2ELLN    BGP2ELLO    BGP2ELLP    BGP2ELLR    BGP2ELLS
BGP2ELLW    BGP2ELLX    BGP2ELP1    BGP2POS2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IHS GPRA Information System 1 BGP2POS2    

Pointer To FileMan Files, Total: 1

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

Fields, Total: 15

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

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

  • MUMPS CODE:  N DIT X ^DD(90549.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(^BGPELIIW(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:  90549.02^C
    1)= S ^BGPELIIW("C",$E(X,1,30),DA)=""
    2)= K ^BGPELIIW("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:  90549.02^ABC^MUMPS
    1)= S ^BGPELIIW("ABC",$P(X,".",1,2),$TR(X,".",""),DA)=""
    2)= K ^BGPELIIW("ABC",$P(X,".",1,2),$TR(X,".",""),DA)
  • CROSS-REFERENCE:  90549.02^AB^MUMPS
    1)= S ^BGPELIIW("AB",$P(X,".",1,2),X,DA)=""
    2)= K ^BGPELIIW("AB",$P(X,".",1,2),X,DA)
  • CROSS-REFERENCE:  90549.02^OR
    1)= S ^BGPELIIW("OR",$E(X,1,30),DA)=""
    2)= K ^BGPELIIW("OR",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90549.02^AP^MUMPS
    1)= S ^BGPELIIW("AP",$P(X,".",1,2),DA)=""
    2)= K ^BGPELIIW("AP",$P(X,".",1,2),DA)
  • CROSS-REFERENCE:  90549.02^AE^MUMPS
    1)= S ^BGPELIIW("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