MAGVSPE2 ;WOIFO/NST,DAC - SOP Mass Enable Utility; Jan 14, 2021@07:53:27
;;3.0;IMAGING;**271**;Mar 19, 2002;Build 10
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
; This entry point updates the DICOM UID SPECIFIC ACTION file (#2006.539) and enables
; new SOP classes
ENABLE(MAGN) ; Update DICOM UID SPECIFIC ACTION file (#2006.539)
; P271 DAC - Unknown SOP Classes
S MAGN("1.2.840.10008.5.1.4.1.1.78.7^Ophthalmic Axial Measurements Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.78.8^Intraocular Lens Calculations Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.79.1^Macular Grid Thickness and Volume Report Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.80.1^Ophthalmic Visual Field Static Perimetry Measurements Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.81.1^Ophthalmic Thickness Map Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.82.1^Corneal Topography Map Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.66.3^Deformable Spatial Registration Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.66.4^Segmentation Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.66.5^Surface Segmentation Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.66.6^Tractography Results Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.67^Real World Value Mapping Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.68.1^Surface Scan Mesh Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.68.2^Surface Scan Point Cloud Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.34^Comprehensive 3D SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.35^Extensible SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.70^Implantation Plan SR Document Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.71^Acquisition Context SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.72^Simplified Adult Echo SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.73^Patient Radiation Dose SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.74^Planned Imaging Agent Administration SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.88.75^Performed Imaging Agent Administration SR Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.104.2^Encapsulated CDA Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.104.3^Encapsulated STL Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.104.4^Encapsulated OBJ Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.104.5^Encapsulated MTL Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.9^RT Ion Beams Treatment Record Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.10^RT Physician Intent Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.11^RT Segment Annotation Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.12^RT Radiation Set Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.13^C-Arm Photon-Electron Radiation Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.14^Tomotherapeutic Radiation Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.15^Robotic-Arm Radiation Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.16^RT Radiation Record Set Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.17^RT Radiation Salvage Record Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.18^Tomotherapeutic Radiation Record Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.19^C-Arm Photon-Electron Radiation Record Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.1.1.481.20^Robotic Radiation Record Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.34.7^RT Beams Delivery Instruction Storage^2^New|dicom.JPG")=""
S MAGN("1.2.840.10008.5.1.4.34.10^RT Brachy Application Setup Delivery Instruction Storage^2^New|dicom.JPG")=""
;
N MAGNFDA,MAGNIEN,MAGNXE,I
N PURPOSE,TYPE,SUBTYPE
N UID,UIDDESCR,ACTION,COMMENT
S I=""
S PURPOSE="Storage SCP"
S TYPE="SOP Class"
S SUBTYPE="Storage"
F S I=$O(MAGN(I)) Q:I="" D
. K MAGNFDA,MAGNIEN,MAGNXE
. S UID=$P(I,"^",1)
. S UIDDESCR=$P(I,"^",2)
. S ACTION=$P(I,"^",3)
. S COMMENT=$P(I,"^",4)
. S MAGNFDA(2006.539,"?+1,",.01)=UID
. S MAGNFDA(2006.539,"?+1,",2)=UIDDESCR
. S MAGNFDA(2006.539,"?+1,",3)=TYPE
. S MAGNFDA(2006.539,"?+1,",4)=SUBTYPE
. S MAGNFDA(2006.5391,"?+2,?+1,",.01)=PURPOSE
. S MAGNFDA(2006.5391,"?+2,?+1,",2)=ACTION
. S MAGNFDA(2006.5391,"?+2,?+1,",3)=COMMENT
. D UPDATE^DIE("S","MAGNFDA","MAGNIEN","MAGNXE")
. I $D(MAGNXE("DIERR","E")) W !!,"Error updating DICOM UID SPECIFIC ACTION file (#2006.539) :",I
. Q
W !!,"Update of DICOM UID SPECIFIC ACTION file (#2006.539) is done"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVSPE2 5910 printed Sep 23, 2025@19:46:50 Page 2
MAGVSPE2 ;WOIFO/NST,DAC - SOP Mass Enable Utility; Jan 14, 2021@07:53:27
+1 ;;3.0;IMAGING;**271**;Mar 19, 2002;Build 10
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ; This entry point updates the DICOM UID SPECIFIC ACTION file (#2006.539) and enables
+19 ; new SOP classes
ENABLE(MAGN) ; Update DICOM UID SPECIFIC ACTION file (#2006.539)
+1 ; P271 DAC - Unknown SOP Classes
+2 SET MAGN("1.2.840.10008.5.1.4.1.1.78.7^Ophthalmic Axial Measurements Storage^2^New|dicom.JPG")=""
+3 SET MAGN("1.2.840.10008.5.1.4.1.1.78.8^Intraocular Lens Calculations Storage^2^New|dicom.JPG")=""
+4 SET MAGN("1.2.840.10008.5.1.4.1.1.79.1^Macular Grid Thickness and Volume Report Storage^2^New|dicom.JPG")=""
+5 SET MAGN("1.2.840.10008.5.1.4.1.1.80.1^Ophthalmic Visual Field Static Perimetry Measurements Storage^2^New|dicom.JPG")=""
+6 SET MAGN("1.2.840.10008.5.1.4.1.1.81.1^Ophthalmic Thickness Map Storage^2^New|dicom.JPG")=""
+7 SET MAGN("1.2.840.10008.5.1.4.1.1.82.1^Corneal Topography Map Storage^2^New|dicom.JPG")=""
+8 SET MAGN("1.2.840.10008.5.1.4.1.1.66.3^Deformable Spatial Registration Storage^2^New|dicom.JPG")=""
+9 SET MAGN("1.2.840.10008.5.1.4.1.1.66.4^Segmentation Storage^2^New|dicom.JPG")=""
+10 SET MAGN("1.2.840.10008.5.1.4.1.1.66.5^Surface Segmentation Storage^2^New|dicom.JPG")=""
+11 SET MAGN("1.2.840.10008.5.1.4.1.1.66.6^Tractography Results Storage^2^New|dicom.JPG")=""
+12 SET MAGN("1.2.840.10008.5.1.4.1.1.67^Real World Value Mapping Storage^2^New|dicom.JPG")=""
+13 SET MAGN("1.2.840.10008.5.1.4.1.1.68.1^Surface Scan Mesh Storage^2^New|dicom.JPG")=""
+14 SET MAGN("1.2.840.10008.5.1.4.1.1.68.2^Surface Scan Point Cloud Storage^2^New|dicom.JPG")=""
+15 SET MAGN("1.2.840.10008.5.1.4.1.1.88.34^Comprehensive 3D SR Storage^2^New|dicom.JPG")=""
+16 SET MAGN("1.2.840.10008.5.1.4.1.1.88.35^Extensible SR Storage^2^New|dicom.JPG")=""
+17 SET MAGN("1.2.840.10008.5.1.4.1.1.88.70^Implantation Plan SR Document Storage^2^New|dicom.JPG")=""
+18 SET MAGN("1.2.840.10008.5.1.4.1.1.88.71^Acquisition Context SR Storage^2^New|dicom.JPG")=""
+19 SET MAGN("1.2.840.10008.5.1.4.1.1.88.72^Simplified Adult Echo SR Storage^2^New|dicom.JPG")=""
+20 SET MAGN("1.2.840.10008.5.1.4.1.1.88.73^Patient Radiation Dose SR Storage^2^New|dicom.JPG")=""
+21 SET MAGN("1.2.840.10008.5.1.4.1.1.88.74^Planned Imaging Agent Administration SR Storage^2^New|dicom.JPG")=""
+22 SET MAGN("1.2.840.10008.5.1.4.1.1.88.75^Performed Imaging Agent Administration SR Storage^2^New|dicom.JPG")=""
+23 SET MAGN("1.2.840.10008.5.1.4.1.1.104.2^Encapsulated CDA Storage^2^New|dicom.JPG")=""
+24 SET MAGN("1.2.840.10008.5.1.4.1.1.104.3^Encapsulated STL Storage^2^New|dicom.JPG")=""
+25 SET MAGN("1.2.840.10008.5.1.4.1.1.104.4^Encapsulated OBJ Storage^2^New|dicom.JPG")=""
+26 SET MAGN("1.2.840.10008.5.1.4.1.1.104.5^Encapsulated MTL Storage^2^New|dicom.JPG")=""
+27 SET MAGN("1.2.840.10008.5.1.4.1.1.481.9^RT Ion Beams Treatment Record Storage^2^New|dicom.JPG")=""
+28 SET MAGN("1.2.840.10008.5.1.4.1.1.481.10^RT Physician Intent Storage^2^New|dicom.JPG")=""
+29 SET MAGN("1.2.840.10008.5.1.4.1.1.481.11^RT Segment Annotation Storage^2^New|dicom.JPG")=""
+30 SET MAGN("1.2.840.10008.5.1.4.1.1.481.12^RT Radiation Set Storage^2^New|dicom.JPG")=""
+31 SET MAGN("1.2.840.10008.5.1.4.1.1.481.13^C-Arm Photon-Electron Radiation Storage^2^New|dicom.JPG")=""
+32 SET MAGN("1.2.840.10008.5.1.4.1.1.481.14^Tomotherapeutic Radiation Storage^2^New|dicom.JPG")=""
+33 SET MAGN("1.2.840.10008.5.1.4.1.1.481.15^Robotic-Arm Radiation Storage^2^New|dicom.JPG")=""
+34 SET MAGN("1.2.840.10008.5.1.4.1.1.481.16^RT Radiation Record Set Storage^2^New|dicom.JPG")=""
+35 SET MAGN("1.2.840.10008.5.1.4.1.1.481.17^RT Radiation Salvage Record Storage^2^New|dicom.JPG")=""
+36 SET MAGN("1.2.840.10008.5.1.4.1.1.481.18^Tomotherapeutic Radiation Record Storage^2^New|dicom.JPG")=""
+37 SET MAGN("1.2.840.10008.5.1.4.1.1.481.19^C-Arm Photon-Electron Radiation Record Storage^2^New|dicom.JPG")=""
+38 SET MAGN("1.2.840.10008.5.1.4.1.1.481.20^Robotic Radiation Record Storage^2^New|dicom.JPG")=""
+39 SET MAGN("1.2.840.10008.5.1.4.34.7^RT Beams Delivery Instruction Storage^2^New|dicom.JPG")=""
+40 SET MAGN("1.2.840.10008.5.1.4.34.10^RT Brachy Application Setup Delivery Instruction Storage^2^New|dicom.JPG")=""
+41 ;
+42 NEW MAGNFDA,MAGNIEN,MAGNXE,I
+43 NEW PURPOSE,TYPE,SUBTYPE
+44 NEW UID,UIDDESCR,ACTION,COMMENT
+45 SET I=""
+46 SET PURPOSE="Storage SCP"
+47 SET TYPE="SOP Class"
+48 SET SUBTYPE="Storage"
+49 FOR
SET I=$ORDER(MAGN(I))
if I=""
QUIT
Begin DoDot:1
+50 KILL MAGNFDA,MAGNIEN,MAGNXE
+51 SET UID=$PIECE(I,"^",1)
+52 SET UIDDESCR=$PIECE(I,"^",2)
+53 SET ACTION=$PIECE(I,"^",3)
+54 SET COMMENT=$PIECE(I,"^",4)
+55 SET MAGNFDA(2006.539,"?+1,",.01)=UID
+56 SET MAGNFDA(2006.539,"?+1,",2)=UIDDESCR
+57 SET MAGNFDA(2006.539,"?+1,",3)=TYPE
+58 SET MAGNFDA(2006.539,"?+1,",4)=SUBTYPE
+59 SET MAGNFDA(2006.5391,"?+2,?+1,",.01)=PURPOSE
+60 SET MAGNFDA(2006.5391,"?+2,?+1,",2)=ACTION
+61 SET MAGNFDA(2006.5391,"?+2,?+1,",3)=COMMENT
+62 DO UPDATE^DIE("S","MAGNFDA","MAGNIEN","MAGNXE")
+63 IF $DATA(MAGNXE("DIERR","E"))
WRITE !!,"Error updating DICOM UID SPECIFIC ACTION file (#2006.539) :",I
+64 QUIT
End DoDot:1
+65 WRITE !!,"Update of DICOM UID SPECIFIC ACTION file (#2006.539) is done"
+66 QUIT
