Global: ^DIC(4

This is the name of the institution with out modifiers like state or type.

11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

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

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

1)= F I=0:0 S I=$O(^DIC(4,DA,4,I)) Q:I'>0  S Y(1)=+^(I,0),Y(2)=$S($D(^DIC(9.4,Y(1),0)):^(0),1:"") S:Y(2)]"" ^DIC(4,"AP"_$P(Y(2),U,2),$E(X,1,30),DA)=""

2)= S Y="AP" F I=0:0 S Y=$O(^DIC(4,Y)) Q:$E(Y,1,2)'="AP"  K ^DIC(4,Y,$E(X,1,30),DA)

3)= Special Package X-ref

1)= I '$D(^AUTTLOC(DA,0)) N DIC,DD,DO,DINUM S DIC="^AUTTLOC(",DIC(0)="",(X,DINUM)=DA D FILE^DICN

2)= Q

3)= Needed to keep PCE location file in sync.

This MUMPS cross reference is used to keep the PCE location file (#9999999.06) synchronized with the Institution file.

State that the institution is physically located.

This is the Medical District of the Institution file.  Therefore it is not to be changed except by appropriately knowledgeable individuals.

Short version of name.

This field is being replaced by the Facitily type field.

VA region number.

First line of the street address (physical) of the facility.

Second line of street address (physical) of the facility.

The city the facility is physically located.

Postal ZIP code for the physical address of the facility.

List of contacts.

First line of the street address (mailing) of the facility.

Second line of the street address (mailing) of the facility.

The City of the facility's mailing address.

The State of the facility's mailing address.

Postal ZIP code for the mailing address of the facility.

Flag to indicate this is a multi-division facility.

Inactive facilities are flagged as such by the field INACTIVE FACILITY FLAG (#101).

National entries are facilities that have a STATION NUMBER (#99) approved by Information Management Service (045A4).  National entries are maintained by the Master File Server located on FORUM.

Local entries are facilities that are entered locally.  Local entries no not have a STATION NUMBER (#99).  (Only offically approved station numbers are allowed in the STATION NUMBER (#99) field.)

All national entries will have a STATUS (#11) of NATIONAL.  Do not edit the STATUS (#11) of a national entry.  Do not set a LOCAL entry to a STATUS (#11) of NATIONAL.

Inactive facilities are flagged as such by the field INACTIVE FACILITY FLAG (#101).

National entries are facilities that have a STATION NUMBER (#99) approved by Information Management Service (045A4).  National entries are maintained by the Master File Server located on FORUM.

Local entries are facilities that are entered locally.  Local entries no not have a STATION NUMBER (#99).  (Only offically approved station numbers are allowed in the STATION NUMBER (#99) field.)

All national entries will have a STATUS (#11) of NATIONAL.  Do not edit the STATUS (#11) of a national entry.  Do not set a LOCAL entry to a STATUS (#11) of NATIONAL.

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

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

This x-ref. is used by the master file server query.  It loops this x-ref to find all national entries.

The type of facility. A replacement for the type field.

Current Unique National Provider ID. A unique meaningless integer assigned to providers.

1)= S ^DIC(4,"ANPI",$E(X,1,30),DA)=""

2)= K ^DIC(4,"ANPI",$E(X,1,30),DA)

File entries by NPI.

will only have an ACOS number if they have requested a Cancer Program survey from the ACOS (not all facilities will have a number).

This field holds the facility DEA number. This allows house officers who do not have their own DEA # to use a VA # for Digital Signatures.

The first letter for practitioners (physicians, dentists, veterinarians, pharmacies etc.) is either an "A" or "B"

The second letter should be the first letter of the practitioner's last name.  Sometimes this does not match if the registrant changed their name or the DEA did not get it correct the first time.

The check digit algorithm is as follows:

AS1234563

1 + 3 + 5 =   9 2 + 4 + 6 = 12 x 2 = 24

9 + 24 = 33

The last digit of the total must equal the check digit (the last digit of the DEA number).  (33#10)=$E("AS1234563",9)

This field contains the expiration date for DEA#.

A pointer to the domain so the institution can be linked to a E-mail domain.

A code to identify the Government agency that this site belongs to.  This is a duplicate of the POINTER TO AGENCY field.

1)= K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:""),Y(2)=$P(Y(1),U,5),Y(3)=$P(Y(1),U,7) X ^DD(4,95,1,1,1.1) I X]"" S X=$O(^DIC(4.11,"B",X,0)) X ^DD(4,95,1,1,1.4)

1.1)= S X=DIV S Y(5)=$C(59)_$S($D(^DD(4,95,0)):$P(^(0),U,3),1:""),X=$P($P(Y(5),$C(59)_DIV_":",2),$C(59),1),Y(4)=$S($D(^DIC(4.11,+Y(3),0)):^(0),1:"")

1.4)= I Y(2)'=$P(Y(4),U,2) S DIU=Y(3),DIV=X,$P(^DIC(4,D0,99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q  K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""),DIV=X S $P(^(99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(DIH,DIG,

1,0))>0

3)= Link to keep fields 95 and 97 in sync. (Edited)

CREATE VALUE)= AGENCY CODE

DELETE VALUE)= NO EFFECT

FIELD)= POINTER TO AGENCY

This is a pointer back to the Institution file that indicates the site that does the reporting to VACO.

A pointer to a file that identifies the government agency that this site belongs to.  Keep in sync with the Agency code field.

1)= X ^DD(4,97,1,1,1.3) I X,Y(3)]"" S X=Y(3) X ^DD(4,97,1,1,1.4)

1.3)= K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(4,97,1,1,69.2) S Y(3)=$P(Y(101),U,2),X=(Y(2)'=Y(3)) S D0=I(0,0)

1.4)= S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""),DIV=X,DIU=$P(DIH,U,5) S $P(^(99),U,5)=DIV,DIH=4,DIG=95 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

3)= Link to keep fields 95 and 97 in sync. (Edited)

69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(1),U,5),X=X S X=X,Y(2)=X,D0=Y(0) S:'$D(^DIC(4.11,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.11,D0,0)):^(0),1:"")

CREATE CONDITION)= INTERNAL(AGENCY CODE)'=INTERNAL(POINTER TO AGENCY:AGENCY CODE)

CREATE VALUE)= INTERNAL(POINTER TO AGENCY:AGENCY CODE)

DELETE VALUE)= NO EFFECT

FIELD)= AGENCY CODE

This is the 3 digit station number plus any modifiers.

1)= S ^DIC(4,"D",$E(X,1,30),DA)=""

2)= K ^DIC(4,"D",$E(X,1,30),DA) S ^DIC(4,"AOLD99",DA,$E(X,1,30))=""

The "AOLD99" x-ref (kill statement 0f "D" x-ref) is used by $$O99^XUAF4 to get the pointer to the valid entry with station number for duplicate station numbers resolved by the clean up (patch xu*8.0*126).

This field holds the Offical VA name for this VA facility.  The value in this field should not be changed by the site.

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

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

Provider) for billing in VistA.

This new field is not editable locally (same as the .01 and 100 fields).  Updates would be managed through Forum and the Master File Update mechanisms only.

'1'  for   'YES'   (ACTIVE)

'0'  for   'NO'    (INACTIVE)

1)= I X S ^DIC(4,"LOC",$P(^DIC(4,DA,0),"^"),DA)=""

2)= K ^DIC(4,"LOC",$P(^DIC(4,DA,0),"^"),DA)

Sets and kills the "LOC" nodes.

Uniqueness Index: XUMFKEY (#181)  WHOLE FILE (#4)

File, Field: 1) CODING SYSTEM (4.9999,.01)  2) ID (4.9999,.02)