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

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 1

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