Global: ^RA(79.199

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

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

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RA(79.199,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(79.199,.01,1,2,1.1) X ^DD(79.199,.01,1,2,1.4)

1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)

1.4)= S DIH=$S($D(^RA(79.199,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=79.199,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

3)= THIS VALUE MUST BE EDITED IN THE HOSPITAL LOCATION FILE, #44.

CREATE VALUE)= .01:ABBREV

DELETE VALUE)= NO EFFECT

FIELD)= LO

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RA(79.199,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(79.199,.01,1,3,1.1) X ^DD(79.199,.01,1,3,1.4)

1.1)= S X=DIV X ^DD(79.199,.01,1,3,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_":",2),$C(59),1) S D0=I(0,0)

1.4)= S DIH=$S($D(^RA(79.199,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=79.199,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= Q

3)= This field is triggered from the #.01 field and takes its value from field #2 in the Hospital Locations file #44.

49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(44,2,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^SC(D0,0)):^(0),1:"")

CREATE VALUE)= .01:2

DELETE VALUE)= NO EFFECT

FIELD)= #2

1)= S DIC("DR")=""

2)= Q

3)= Prevents DIC asking for identifiers.

WRITE AUTHORITY:  ^

UNEDITABLE

WRITE AUTHORITY:  ^