Global: ^DIC(4.1

This is the Facility type code.

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

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

This is the full name of the facility type code.

1)= S ^DIC(4.1,"C",$E(X,1,30),DA)=""

2)= K ^DIC(4.1,"C",$E(X,1,30),DA)

Reserved

This field flags an entry as national.  National entries can not be modified locally.  National Institutions will only point to National facility types.

1)= S ^DIC(4.1,"XUMF",$E(X,1,30),DA)=""

2)= K ^DIC(4.1,"XUMF",$E(X,1,30),DA)