Global: ^BGPIND

FileMan FileNo	FileMan Filename	Package
90242.01	BGP INDICATORS	IHS GPRA Information System

Package	Total	Routines
IHS GPRA Information System	4	BGP3DP41 BGP3PDL6 BGP3PDM1 BGP3PDM2

Package	Total	Routines
IHS GPRA Information System	1	BGPPOST1

Package	Total	FileMan Files
IHS GPRA Information System	1	BGP INDIVIDUAL INDICATOR DEFINITIONS(#90242)[.01]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	FY	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X'?1P.E) X` LAST EDITED: `DEC 31, 2002` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: The fiscal year this indicator is relevant to. CROSS-REFERENCE: `90242.01^B` 1)= S ^BGPIND("B",$E(X,1,30),DA)="" 2)= K ^BGPIND("B",$E(X,1,30),DA) CROSS-REFERENCE: `90242.01^AO^MUMPS` 1)= I $P(^BGPIND(DA,0),U,6) S ^BGPIND("AO",X,$P(^BGPIND(DA,0),U,6),DA)="" 2)= I $P(^BGPIND(DA,0),U,6) K ^BGPIND("AO",X,$P(^BGPIND(DA,0),U,6),DA)
.02	INDICATOR NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JUL 09, 2003` HELP-PROMPT: `Answer must be 1-5 characters in length.` CROSS-REFERENCE: `90242.01^C` 1)= S ^BGPIND("C",$E(X,1,30),DA)="" 2)= K ^BGPIND("C",$E(X,1,30),DA)
.03	TITLE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `Answer must be 1-80 characters in length`
.04	SELECTION TITLE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>73!($L(X)<1) X` LAST EDITED: `JAN 06, 2003` HELP-PROMPT: `Answer must be 1-73 characters in length.`
.05	LIST SELECTION TITLE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>73!($L(X)<1) X` LAST EDITED: `JAN 06, 2003` HELP-PROMPT: `Answer must be 1-73 characters in length.`
.06	ORDER TO DISPLAY	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 31, 2002` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` CROSS-REFERENCE: `90242.01^AOTOO^MUMPS` 1)= S ^BGPIND("AO",$P(^BGPIND(DA,0),U),X,DA)="" 2)= K ^BGPIND("AO",$P(^BGPIND(DA,0),U),X,DA)
.07	GPRA INDICATOR	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 23, 2003`
.08	AREA INDICATOR	0;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 23, 2003`
1	M CODE TO EXECUTE	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `DEC 30, 2002` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	SET LIST VALUE	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 08, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
3	PRINT M CODE	3;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 07, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
4	DELIMITED FILE PRINT	4;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `JAN 09, 2003` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1100	LOGIC USED	11;0	WORD-PROCESSING #90242.0111
5100	DESCRIPTION	51;0	WORD-PROCESSING #90242.0151
5200	LOCAL REPORT PRINT HEADER	52;0	WORD-PROCESSING #90242.0152	LAST EDITED: `JAN 17, 2003`
5300	REPORT PRINT 2ND PAGE	53;0	WORD-PROCESSING #90242.0153
5400	GPRA REPORT PRINT HEADER	54;0	WORD-PROCESSING #90242.0154
5500	AREA DIRECTORS REPORT HEADER	55;0	WORD-PROCESSING #90242.0155
7100	REPORT LIST 1ST PAGE	71;0	WORD-PROCESSING #90242.0171
7200	LIST PRINT SECOND PAGE	72;0	WORD-PROCESSING #90242.0172

Customize PDF page

Package: IHS GPRA Information System

Global: ^BGPIND

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 1

Pointed To By FileMan Files, Total: 1

Fields, Total: 20