Sub-Field: 79.01

Parent File	Name	Number	Package
RAD/NUC MED DIVISION(#79)	IMAGING LOCATIONS	79.01	Radiology Nuclear Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	IMAGING LOCATION	0;1	POINTER TO IMAGING LOCATIONS FILE (#79.1)	IMAGING LOCATIONS(#79.1) INPUT TRANSFORM: `X ^DD(79.01,.01,9.2) K RADIV I $D(X) S DINUM=X` `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` LAST EDITED: `JUN 08, 1994` HELP-PROMPT: `Enter a location for this division.` DESCRIPTION: `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` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `79.01^B` `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.` CROSS-REFERENCE: `79^AL` `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.` CROSS-REFERENCE: `^^TRIGGER^79.1^25` `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.`

.01

IMAGING LOCATION

0;1

POINTER TO IMAGING LOCATIONS FILE (#79.1)

IMAGING LOCATIONS(#79.1)

INPUT TRANSFORM: X ^DD(79.01,.01,9.2) K RADIV I $D(X) S DINUM=X
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
LAST EDITED: JUN 08, 1994
HELP-PROMPT: Enter a location for this division.
DESCRIPTION:
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
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 79.01^B
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.
CROSS-REFERENCE: 79^AL
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.
CROSS-REFERENCE: ^^TRIGGER^79.1^25
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.

Customize PDF page

Package: Radiology Nuclear Medicine

RAD/NUC MED DIVISION(#79)-->79.01

Sub-Field: 79.01

Information

Details