- 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 Feb 19, 2025@00:02:16 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 ;
