RAIPS119 ;HIOFO/GJC - Post-init one of one ;
VERSION ;;5.0;Radiology/Nuclear Medicine;**119**;Mar 16, 1998;Build 7
;
;IA - #6203 w/VA FileMan to delete the "RDE" xref & data
;
EN ;entry point
D RDE
Q
;
RDE ; delete the MUMPS "RDE" cross reference on the RADIATION ABSORBED
;DOSE field (70.03 ; node one ;field #: 1.1). Delete all cross
;referenced data in "RDE".
;
;parameters:
; 70 - the file number with the "RDE" index (file-wide)
; "RDE" - the name of the index to be deleted
;
N DIERR K ^TMP("DIERR",$J)
D DELIXN^DDMOD(70,"RDE") ;
K ^RADPT("RDE") ; Whole Kill
I $D(DIERR)#2 D
.S RATXT=$G(^TMP("DIERR",$J,1,"TEXT",1))
.D:$L(RATXT) MES^XPDUTL(RATXT)
.K RATXT
.Q
K ^TMP("DIERR",$J)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS119 746 printed Dec 13, 2024@02:36 Page 2
RAIPS119 ;HIOFO/GJC - Post-init one of one ;
VERSION ;;5.0;Radiology/Nuclear Medicine;**119**;Mar 16, 1998;Build 7
+1 ;
+2 ;IA - #6203 w/VA FileMan to delete the "RDE" xref & data
+3 ;
EN ;entry point
+1 DO RDE
+2 QUIT
+3 ;
RDE ; delete the MUMPS "RDE" cross reference on the RADIATION ABSORBED
+1 ;DOSE field (70.03 ; node one ;field #: 1.1). Delete all cross
+2 ;referenced data in "RDE".
+3 ;
+4 ;parameters:
+5 ; 70 - the file number with the "RDE" index (file-wide)
+6 ; "RDE" - the name of the index to be deleted
+7 ;
+8 NEW DIERR
KILL ^TMP("DIERR",$JOB)
+9 ;
DO DELIXN^DDMOD(70,"RDE")
+10 ; Whole Kill
KILL ^RADPT("RDE")
+11 IF $DATA(DIERR)#2
Begin DoDot:1
+12 SET RATXT=$GET(^TMP("DIERR",$JOB,1,"TEXT",1))
+13 if $LENGTH(RATXT)
DO MES^XPDUTL(RATXT)
+14 KILL RATXT
+15 QUIT
End DoDot:1
+16 KILL ^TMP("DIERR",$JOB)
+17 QUIT
+18 ;
