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

Package: IHS Medicaid Eligibility Download

Global: ^BMEMASTR


Information

FileMan FileNo FileMan Filename Package
90334 BME MEDICAID MASTER LIST IHS Medicaid Eligibility Download

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
IHS Medicaid Eligibility Download 2 BMEMFALL    BMEMSTR    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
IHS Medicaid Eligibility Download 5 BMEMADD    BMEMOFFS    BMEMSTIL    BMEMSTR    BMEUPDT    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 VA PATIENT(#2)[.01]    

Fields, Total: 6

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

  • LAST EDITED:  FEB 01, 2001
  • CROSS-REFERENCE:  90334^B
    1)= S ^BMEMASTR("B",$E(X,1,30),DA)=""
    2)= K ^BMEMASTR("B",$E(X,1,30),DA)
.02 NEW ADD DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90334^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMEMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90334,.02,1,1,1.4)
    1.4)= S DIH=$S($D(^BMEMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=90334,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= NEW ADD DATE
    DELETE VALUE)= NO EFFECT
    FIELD)= STILL ELIGIBLE DATE
.03 UPDATE DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2001
  • CROSS-REFERENCE:  ^^TRIGGER^90334^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMEMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(90334,.03,1,1,1.4)
    1.4)= S DIH=$S($D(^BMEMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=90334,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= UPDATE DATE
    DELETE VALUE)= NO EFFECT
    FIELD)= STILL ELIGIBLE DATE
  • CROSS-REFERENCE:  ^^TRIGGER^90334^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^BMEMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,5)'="" I X S X=DIV S Y(1)=$S($D(^BMEMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(90334,.03,1,2,1.4)
    1.4)= S DIH=$S($D(^BMEMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=90334,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE CONDITION)= FALL OFF DATE'=""
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= FALL OFF DATE
.04 STILL ELIGIBLE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 21, 2001
  • NOTES:  TRIGGERED by the NEW ADD DATE field of the BME MEDICAID MASTER LIST File
    TRIGGERED by the UPDATE DATE field of the BME MEDICAID MASTER LIST File
  • CROSS-REFERENCE:  90334^AC
    1)= S ^BMEMASTR("AC",$E(X,1,30),DA)=""
    2)= K ^BMEMASTR("AC",$E(X,1,30),DA)
    This cross reference is utilized by the AZAMFALL Routine which provides a listing of all Fall Off Patients.  (Those on the previous Month's Roster, but not on the current Month's Roster).  The Still eligible date is
    compared to the current Month's Download date.  If they differ, the patient was not on the current Month's Roster and has, therefore, Fallen Off.
  • CROSS-REFERENCE:  ^^TRIGGER^90334^.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMEMASTR(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(90334,.04,1,2,1.4)
    1.4)= S DIH=$S($D(^BMEMASTR(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=90334,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= FALL OFF DATE
.05 FALL OFF DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 01, 2001
  • NOTES:  TRIGGERED by the UPDATE DATE field of the BME MEDICAID MASTER LIST File
    TRIGGERED by the STILL ELIGIBLE DATE field of the BME MEDICAID MASTER LIST File
.06 END ELIGIBLE DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 06, 2003
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All