RAXREF.m

RAXREF ;HISC/DAD-EXECUTE SET AND KILL XREF'S ;8/22/96  15:02

 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

 ; REQUIRED VARIABLES

 ;  RADICT = DATA DICTIONARY NUMBER

 ;  RAFLD  = FIELD NUMBER IN THE ABOVE DD

 ;  RAX    = FIELD VALUE TO BE CROSS REFERENCED

 ;  DA     = DA or DA array

ENKILL(RADICT,RAFLD,RAX,DA) ;

 ; *** Execute a field's cross reference kill logic

 D CHECK I RAEXIT D EXIT Q

 S RAXSAV=RAX

 F RAXREF=0:0 S RAXREF=$O(^DD(RADICT,RAFLD,1,RAXREF)) Q:RAXREF'>0  S X=RAXSAV X:$D(^DD(RADICT,RAFLD,1,RAXREF,2))#2 ^(2)

 D EXIT

 Q

ENSET(RADICT,RAFLD,RAX,DA) ;

 ; *** Execute a field's cross reference set logic

 D CHECK I RAEXIT D EXIT Q

 S RAXSAV=RAX

 F RAXREF=0:0 S RAXREF=$O(^DD(RADICT,RAFLD,1,RAXREF)) Q:RAXREF'>0  S X=RAXSAV X:$D(^DD(RADICT,RAFLD,1,RAXREF,1))#2 ^(1)

 D EXIT

 Q

EXIT ; Kill and quit

 K RAEXIT,RAXREF,RAXSAV

 Q

CHECK ; Check if parameters are valid

 S RAEXIT=$S($D(DA)[0:1,$D(RAX)[0:1,$D(RADICT)[0:1,$D(RAFLD)[0:1,RAX="":1,RADICT'>0:1,RAFLD'>0:1,1:0)

 Q

RAXREF    ;HISC/DAD-EXECUTE SET AND KILL XREF'S ;8/22/96  15:02

 +1       ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

 +2       ; REQUIRED VARIABLES

 +3       ;  RADICT = DATA DICTIONARY NUMBER

 +4       ;  RAFLD  = FIELD NUMBER IN THE ABOVE DD

 +5       ;  RAX    = FIELD VALUE TO BE CROSS REFERENCED

 +6       ;  DA     = DA or DA array

ENKILL(RADICT,RAFLD,RAX,DA) ;

 +1       ; *** Execute a field's cross reference kill logic

 +2        DO CHECK

           IF RAEXIT

               DO EXIT

               QUIT 

 +3        SET RAXSAV=RAX

 +4        FOR RAXREF=0:0

               SET RAXREF=$ORDER(^DD(RADICT,RAFLD,1,RAXREF))

               IF RAXREF'>0

                   QUIT 

               SET X=RAXSAV

               IF $DATA(^DD(RADICT,RAFLD,1,RAXREF,2))#2

                   XECUTE ^(2)

 +5        DO EXIT

 +6        QUIT 

ENSET(RADICT,RAFLD,RAX,DA) ;

 +1       ; *** Execute a field's cross reference set logic

 +2        DO CHECK

           IF RAEXIT

               DO EXIT

               QUIT 

 +3        SET RAXSAV=RAX

 +4        FOR RAXREF=0:0

               SET RAXREF=$ORDER(^DD(RADICT,RAFLD,1,RAXREF))

               IF RAXREF'>0

                   QUIT 

               SET X=RAXSAV

               IF $DATA(^DD(RADICT,RAFLD,1,RAXREF,1))#2

                   XECUTE ^(1)

 +5        DO EXIT

 +6        QUIT 

EXIT      ; Kill and quit

 +1        KILL RAEXIT,RAXREF,RAXSAV

 +2        QUIT 

CHECK     ; Check if parameters are valid

 +1        SET RAEXIT=$SELECT($DATA(DA)[0:1,$DATA(RAX)[0:1,$DATA(RADICT)[0:1,$DATA(RAFLD)[0:1,RAX="":1,RADICT'>0:1,RAFLD'>0:1,1:0)

 +2        QUIT