Sub-Field: 79.01

9.2 = I $D(^RA(79,"AL",X)) S RADIV=$O(^(X,0)) Q:RADIV'>0  I RADIV'=DA(1) W !!,"Location is already assigned to the ",$S($D(^DIC(4,RADIV,0)):$P(^(0),U,1),1:"Unknown")," division!" K X

This field points to file #79.1 to indicate the name of the Imaging location associated with this division.  A location may be associated with only one division.

SOURCE OF DATA:   RAD/NUC MED COORDINATOR

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

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

Regular filewide 'B' cross reference assigned by FileMan.

1)= S ^RA(79,"AL",$E(X,1,30),DA(1),DA)=""

2)= K ^RA(79,"AL",$E(X,1,30),DA(1),DA)

Allows the generation of a list of Imaging Locations associated with a Rad/Nuc Med Division.

1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(79.01,.01,1,3,9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(1) S DIU=X K Y X ^DD(79.01,.01,1,3,1.1) X ^DD(79.01,.01,1,3,1.4)

1.1)= S X=DIV S Y(1)=$S($D(^RA(79,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X

1.4)= S DIH=$S($D(^RA(79.1,DIV(0),"DIV")):^("DIV"),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^("DIV")=DIV_$S(%]"":U_%,1:""),DIH=79.1,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(79.01,.01,1,3,9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"",1:$P(^(0),U,1)) S D0=Y(1) S DIU=X K Y S X=DIV S X="" X ^DD(79.01,.01,1,3,2.4)

2.4)= S DIH=$S($D(^RA(79.1,DIV(0),"DIV")):^("DIV"),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^("DIV")=DIV_$S(%]"":U_%,1:""),DIH=79.1,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

9.2)= S Y(1)=$S($D(D0):D0,1:""),D0=X S:'$D(^RA(79.1,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^RA(79.1,D0,"DIV")):^("DIV"),1:"")

CREATE VALUE)= INTERNAL(DIVISION)

DELETE VALUE)= @

FIELD)= #.01:#25

Triggers entries into the Radiology/Nuclear Medicine Division field in the Radiology/Nuclear Medicine Location file.