Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 79.01

Package: Radiology Nuclear Medicine

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

Sub-Field: 79.01


Information

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

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.
Info |  Details |  All