Global: ^BGPCMSME

FileMan FileNo	FileMan Filename	Package
90535.07	BGP 08 CMS PATIENT LISTS	IHS GPRA Information System

Directly Accessed By Routines, Total: 4

Package	Total	Routines
IHS GPRA Information System	4	BGP8C1 BGP8CP BGP8CTXC BGP8P2

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
IHS GPRA Information System	1	BGP8P2

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
IHS GPRA Information System	2	BGP 08 CMS MEASURES(#90535.01)[.01] BGP 08 TAXONOMIES(#90533.08)[#90535.0711(.01)]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	MEASURE	0;1	POINTER TO BGP 08 CMS MEASURES FILE (#90535.01)	**********************REQUIRED FIELD********************** BGP 08 CMS MEASURES(#90535.01) LAST EDITED: `MAY 23, 2007` CROSS-REFERENCE: `90535.07^B` 1)= S ^BGPCMSME("B",$E(X,1,30),DA)="" 2)= K ^BGPCMSME("B",$E(X,1,30),DA) CROSS-REFERENCE: `90535.07^AC^MUMPS` 1)= I $P(^BGPCMSME(DA,0),U,2)]"" S ^BGPCMSME("AO",$P(^BGPCMSME(DA,0),U),$P(^BGPCMSME(DA,0),U,2),DA)="" 2)= I $P(^BGPCMSME(DA,0),U,2)]"" K ^BGCMSME("AO",$P(^BGPCMSME(DA,0),U),$P(^BGPCMSME(DA,0),U,2),DA)
.02	ORDER	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` CROSS-REFERENCE: `90535.07^AOTOO^MUMPS` 1)= S ^BGPCMSME("AO",$P(^BGPCMSME(DA,0),U),$P(^BGPCMSME(DA,0),U,2),DA)="" 2)= K ^BGPCMSME("AO",$P(^BGPCMSME(DA,0),U),$P(^BGPCMSME(DA,0),U,2),DA)
.03	SELECTION TITLE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `Answer must be 1-80 characters in length.`
.04	HDR TITLE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `Answer must be 1-80 characters in length.`
.05	DISPLAY # EXCLUSIONS?	0;5	SET	'1' FOR YES; LAST EDITED: `MAY 24, 2007`
.06	MAIN PATIENT LIST?	0;6	SET	'1' FOR YES; LAST EDITED: `APR 25, 2008`
1	PRINT ROUTINE	1;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
2	COMPUTE ROUTINE	2;E1,245	MUMPS	INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `This is Standard MUMPS code.` WRITE AUTHORITY: @
1100	TAXONOMIES USED	11;0	POINTER Multiple #90535.0711	90535.0711
2100	REPORT INTRO TEXT	21;0	WORD-PROCESSING #90535.0721
7101	HDR 2	71;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `Answer must be 1-80 characters in length.`
7102	MEASURE TITLE	71;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 23, 2007` HELP-PROMPT: `Answer must be 1-80 characters in length.`
7103	HDR 3	71;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAY 31, 2007` HELP-PROMPT: `Answer must be 1-80 characters in length.`
7201	ASTERISK ADM TYPE?	72;1	SET	'1' FOR YES; LAST EDITED: `MAY 24, 2007`
7202	ASTERISK DSCH TYPE?	72;2	SET	'1' FOR YES; LAST EDITED: `MAY 24, 2007`
7203	ASTERISK ASPIRIN ALLERGY?	72;3	SET	'1' FOR YES; LAST EDITED: `MAY 24, 2007`
7204	ASTERISK WARFARIN RX?	72;4	SET	'1' FOR YES; LAST EDITED: `MAY 24, 2007`
7205	ASTERISK ON ACE/ARB ALLERGY?	72;5	SET	'1' FOR YES; LAST EDITED: `MAY 24, 2007`
7206	ASTERISK BETA ALLERGY?	72;6	SET	'1' FOR YES; LAST EDITED: `MAY 25, 2007`
7207	ASTERISK DATES?	72;7	SET	'1' FOR YES; LAST EDITED: `MAY 27, 2007`
7300	FIRST PAGE LIST HEADER	73;0	WORD-PROCESSING #90535.0773

Customize PDF page

Package: IHS GPRA Information System

Global: ^BGPCMSME

Information

Description

Directly Accessed By Routines, Total: 4

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 21