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

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 1

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