Global: ^BGPSNOMR

Information

FileMan FileNo	FileMan Filename	Package
90560.21	BGP 18 SNOMED LISTS	IHS GPRA Information System

Package	Total	Routines
IHS GPRA Information System	16	BGP8CON1 BGP8D21 BGP8D25 BGP8D5 BGP8D7 BGP8D711 BGP8D722 BGP8D723 BGP8D74 BGP8D75 BGP8P181 BGP8PC12 BGP8PC17 BGP8POS BGP8POS2 BGP8VP
IHS Uniform Data System	1	BUDHRP6Q

Package	Total	Routines
IHS GPRA Information System	2	BGP8POS2 BGP8VP

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME OF LIST	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `JUL 23, 2015` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `90560.21^B` 1)= S ^BGPSNOMR("B",$E(X,1,30),DA)="" 2)= K ^BGPSNOMR("B",$E(X,1,30),DA)
1101	SNOMED CODE	11;0	Multiple #90560.2111	90560.2111

NAME OF LIST

0;1

FREE TEXT

************************REQUIRED FIELD************************

CROSS-REFERENCE: 90560.21^B

1)= S ^BGPSNOMR("B",$E(X,1,30),DA)=""

2)= K ^BGPSNOMR("B",$E(X,1,30),DA)

1101 SNOMED CODE 11;0 Multiple #90560.2111 90560.2111