Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^BMECTY

Package: IHS Medicaid Eligibility Download

Global: ^BMECTY


Information

FileMan FileNo FileMan Filename Package
90331 BME MEDICAID COUNTY SCREEN IHS Medicaid Eligibility Download

Description

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Utility Tables 1 COUNTY(#9999999.23)[.01]    

Fields, Total: 3

Field # Name Loc Type Details
.01 COUNTY NAME 0;1 POINTER TO COUNTY FILE (#9999999.23)
************************REQUIRED FIELD************************
COUNTY(#9999999.23)

  • LAST EDITED:  JAN 30, 2001
  • EXECUTABLE HELP:  W !!,"Enter only those County Names to track Medicaid Eligible Patients",!,"in your Service Unit Catchment Area",!
  • CROSS-REFERENCE:  90331^B
    1)= S ^BMECTY("B",$E(X,1,30),DA)=""
    2)= K ^BMECTY("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90331^.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMECTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90331,.01,1,2,1.1) X ^DD(90331,.01,1,2,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCTY(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^BMECTY(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90331,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMECTY(D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(90331,.01,1,2,2.1) X ^DD(90331,.01,1,2,2.4)
    2.1)= S X=DIV X ^DD(90331,.01,1,2,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^BMECTY(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=90331,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BMECTY(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^AUTTCTY(+D0,0)) D0=-1 S Y(101)=$S($D(^AUTTCTY(D0,0)):^(0),1:"")
    CREATE VALUE)= COUNTY NAME:NAME
    DELETE VALUE)= COUNTY NAME:NAME
    FIELD)= COUNTY TEXT NAME
.02 COUNTY TEXT NAME 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JAN 30, 2001
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • NOTES:  TRIGGERED by the COUNTY NAME field of the BME MEDICAID COUNTY SCREEN File
  • CROSS-REFERENCE:  90331^C
    1)= S ^BMECTY("C",$E(X,1,30),DA)=""
    2)= K ^BMECTY("C",$E(X,1,30),DA)
.03 COUNTY CODE NUMBER 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JUN 20, 2003
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • CROSS-REFERENCE:  90331^D
    1)= S ^BMECTY("D",$E(X,1,30),DA)=""
    2)= K ^BMECTY("D",$E(X,1,30),DA)
Info |  Desc |  Pointer To FileMan Files |  Fields |  All