- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGVSOPU 12297 printed Feb 18, 2025@23:36:59 Page 2
- MAGVSOPU ;WOIFO/NST,DAC - Update file (#2006.539) ; Jan 14, 2021@07:51:14
- +1 ;;3.0;IMAGING;**118,271**;Mar 19, 2002;Build 10;May 01, 2013
- +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
- UPDATE ; Update DICOM UID SPECIFIC ACTION file (#2006.539)
- +1 NEW MAGN
- +2 ;
- +3 SET MAGN("1.2.840.10008.1.1^Verification SOP Class^0^Echo")=""
- +4 SET MAGN("1.2.840.10008.5.1.4.1.1.1^Computed Radiography Image Storage^1^Known|createIcon")=""
- +5 SET MAGN("1.2.840.10008.5.1.4.1.1.1.1^Digital X-Ray Image Storage - For Presentation^1^Known|createIcon")=""
- +6 SET MAGN("1.2.840.10008.5.1.4.1.1.1.1.1^Digital X-Ray Image Storage - For Processing^1^Known|createIcon")=""
- +7 SET MAGN("1.2.840.10008.5.1.4.1.1.1.2^Digital Mammography X-Ray Image Storage - For Presentation^1^Known|createIcon")=""
- +8 SET MAGN("1.2.840.10008.5.1.4.1.1.1.2.1^Digital Mammography X-Ray Image Storage - For Processing^1^Known|createIcon")=""
- +9 SET MAGN("1.2.840.10008.5.1.4.1.1.1.3^Digital Intra-oral X-Ray Image Storage - For Presentation^1^Known|createIcon")=""
- +10 SET MAGN("1.2.840.10008.5.1.4.1.1.1.3.1^Digital Intra-oral X-Ray Image Storage - For Processing^1^Known|createIcon")=""
- +11 SET MAGN("1.2.840.10008.5.1.4.1.1.2^CT Image Storage^1^Known|createIcon")=""
- +12 SET MAGN("1.2.840.10008.5.1.4.1.1.2.1^Enhanced CT Image Storage^3^Unknown|createIcon")=""
- +13 SET MAGN("1.2.840.10008.5.1.4.1.1.3^Ultrasound Multi-frame Image Storage (Retired)^1^Known|createIcon")=""
- +14 SET MAGN("1.2.840.10008.5.1.4.1.1.3.1^Ultrasound Multi-frame Image Storage^1^Known|createIcon")=""
- +15 SET MAGN("1.2.840.10008.5.1.4.1.1.4^MR Image Storage^1^Known|createIcon")=""
- +16 SET MAGN("1.2.840.10008.5.1.4.1.1.4.1^Enhanced MR Image Storage^3^Unknown|createIcon")=""
- +17 SET MAGN("1.2.840.10008.5.1.4.1.1.4.2^MR Spectroscopy Storage^3^Unknown|createIcon")=""
- +18 SET MAGN("1.2.840.10008.5.1.4.1.1.4.3^Enhanced MR Color Image Storage^3^Unknown|createIcon")=""
- +19 SET MAGN("1.2.840.10008.5.1.4.1.1.5^Nuclear Medicine Image Storage (Retired)^1^Known|createIcon")=""
- +20 SET MAGN("1.2.840.10008.5.1.4.1.1.6^Ultrasound Image Storage (Retired)^1^Known|createIcon")=""
- +21 SET MAGN("1.2.840.10008.5.1.4.1.1.6.1^Ultrasound Image Storage^1^Known|createIcon")=""
- +22 SET MAGN("1.2.840.10008.5.1.4.1.1.6.2^Enhanced US Volume Storage^3^Unknown|icon3d.JPG")=""
- +23 SET MAGN("1.2.840.10008.5.1.4.1.1.7^Secondary Capture Image Storage^1^Known|createIcon")=""
- +24 SET MAGN("1.2.840.10008.5.1.4.1.1.7.1^Multi-frame Single Bit Secondary Capture Image Storage^3^Unknown|createIcon")=""
- +25 SET MAGN("1.2.840.10008.5.1.4.1.1.7.2^Multi-frame Grayscale Byte Secondary Capture Image Storage^1^Known|createIcon")=""
- +26 SET MAGN("1.2.840.10008.5.1.4.1.1.7.3^Multi-frame Grayscale Word Secondary Capture Image Storage^1^Known|createIcon")=""
- +27 SET MAGN("1.2.840.10008.5.1.4.1.1.7.4^Multi-frame True Color Secondary Capture Image Storage^1^Known|createIcon")=""
- +28 SET MAGN("1.2.840.10008.5.1.4.1.1.8^Standalone Overlay Storage^3^Unknown|iconovl.JPG")=""
- +29 SET MAGN("1.2.840.10008.5.1.4.1.1.9^Standalone Curve Storage^3^Unknown|iconcurve.JPG")=""
- +30 SET MAGN("1.2.840.10008.5.1.4.1.1.9.1^Waveform Storage - Trial (Retired)^3^Unknown|absekg.JPG")=""
- +31 SET MAGN("1.2.840.10008.5.1.4.1.1.9.1.1^12-lead ECG Waveform Storage^3^Unknown|absekg.JPG")=""
- +32 SET MAGN("1.2.840.10008.5.1.4.1.1.9.1.2^General ECG Waveform Storage^3^Unknown|absekg.JPG")=""
- +33 SET MAGN("1.2.840.10008.5.1.4.1.1.9.1.3^Ambulatory ECG Waveform Storage^3^Unknown|absekg.JPG")=""
- +34 SET MAGN("1.2.840.10008.5.1.4.1.1.9.2.1^Hemodynamic Waveform Storage^3^Unknown|absekg.JPG")=""
- +35 SET MAGN("1.2.840.10008.5.1.4.1.1.9.3.1^Cardiac Electrophysiology Waveform Storage^3^Unknown|absekg.JPG")=""
- +36 SET MAGN("1.2.840.10008.5.1.4.1.1.9.4.1^Basic Voice Audio Waveform Storage^3^Unknown|magwav.JPG")=""
- +37 SET MAGN("1.2.840.10008.5.1.4.1.1.9.4.2^General Audio Waveform Storage^3^Unknown|magwav.JPG")=""
- +38 SET MAGN("1.2.840.10008.5.1.4.1.1.9.5.1^Arterial Pulse Waveform Storage^3^Unknown|magwav.JPG")=""
- +39 SET MAGN("1.2.840.10008.5.1.4.1.1.9.6.1^Respiratory Waveform Storage^3^Unknown|magwav.JPG")=""
- +40 SET MAGN("1.2.840.10008.5.1.4.1.1.10^Standalone Modality LUT Storage^3^Unknown|iconlut.JPG")=""
- +41 SET MAGN("1.2.840.10008.5.1.4.1.1.11^Standalone VOI LUT Storage^3^Unknown|iconlut.JPG")=""
- +42 SET MAGN("1.2.840.10008.5.1.4.1.1.11.1^Grayscale Softcopy Presentation State Storage SOP Class^3^Unknown|iconpstate.JPG")=""
- +43 SET MAGN("1.2.840.10008.5.1.4.1.1.11.2^Color Softcopy Presentation State Storage SOP Class^3^Unknown|iconpstate.JPG")=""
- +44 SET MAGN("1.2.840.10008.5.1.4.1.1.11.3^Pseudo-Color Softcopy Presentation State Storage SOP Class^3^Unknown|iconpstate.JPG")=""
- +45 SET MAGN("1.2.840.10008.5.1.4.1.1.11.4^Blending Softcopy Presentation State Storage SOP Class^3^Unknown|iconpstate.JPG")=""
- +46 SET MAGN("1.2.840.10008.5.1.4.1.1.11.5^XA/XRF Grayscale Softcopy Presentation State Storage^3^Unknown|iconpstate.JPG")=""
- +47 SET MAGN("1.2.840.10008.5.1.4.1.1.12.1^X-Ray Angiographic Image Storage^1^Known|createIcon")=""
- +48 SET MAGN("1.2.840.10008.5.1.4.1.1.12.1.1^Enhanced XA Image Storage^3^Unknown|createIcon")=""
- +49 SET MAGN("1.2.840.10008.5.1.4.1.1.12.2^X-Ray Radiofluoroscopic Image Storage^1^Known|createIcon")=""
- +50 SET MAGN("1.2.840.10008.5.1.4.1.1.12.2.1^Enhanced XRF Image Storage^3^Unknown|createIcon")=""
- +51 SET MAGN("1.2.840.10008.5.1.4.1.1.12.3^X-Ray Angiographic Bi-Plane Image Storage (Retired)^3^Unknown|createIcon")=""
- +52 SET MAGN("1.2.840.10008.5.1.4.1.1.13.1.1^X-Ray 3D Angiographic Image Storage^3^Unknown|icon3d.JPG")=""
- +53 SET MAGN("1.2.840.10008.5.1.4.1.1.13.1.2^X-Ray 3D Craniofacial Image Storage^3^Unknown|icon3d.JPG")=""
- +54 SET MAGN("1.2.840.10008.5.1.4.1.1.13.1.3^Breast Tomosynthesis Image Storage^3^Unknown|createIcon")=""
- +55 SET MAGN("1.2.840.10008.5.1.4.1.1.20^Nuclear Medicine Image Storage^1^Known|createIcon")=""
- +56 SET MAGN("1.2.840.10008.5.1.4.1.1.66^Raw Data Storage^3^Unknown|iconraw.JPG")=""
- +57 SET MAGN("1.2.840.10008.5.1.4.1.1.66.1^Spatial Registration Storage^3^Unknown|icon3d.JPG")=""
- +58 SET MAGN("1.2.840.10008.5.1.4.1.1.66.2^Spatial Fiducials Storage^3^Unknown|icon3d.JPG")=""
- +59 SET MAGN("1.2.840.10008.5.1.4.1.1.66.3^Deformable Spatial Registration Storage^3^Unknown|icon3d.JPG")=""
- +60 SET MAGN("1.2.840.10008.5.1.4.1.1.66.4^Segmentation Storage^3^Unknown|icon3d.JPG")=""
- +61 SET MAGN("1.2.840.10008.5.1.4.1.1.66.5^Surface Segmentation Storage^3^Unknown|icon3d.JPG")=""
- +62 SET MAGN("1.2.840.10008.5.1.4.1.1.67^Real World Value Mapping Storage^3^Unknown|icon3d.JPG")=""
- +63 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1^VL Image Storage - Trial (Retired)^1^Known|createIcon")=""
- +64 SET MAGN("1.2.840.10008.5.1.4.1.1.77.2^VL Multi-frame Image Storage - Trial (Retired)^1^Known|createIcon")=""
- +65 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.1^VL Endoscopic Image Storage^1^Known|createIcon")=""
- +66 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.1.1^Video Endoscopic Image Storage^3^Unknown|createIcon")=""
- +67 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.2^VL Microscopic Image Storage^1^Known|createIcon")=""
- +68 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.2.1^Video Microscopic Image Storage^3^Unknown|createIcon")=""
- +69 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.3^VL Slide-Coordinates Microscopic Image Storage^1^Known|createIcon")=""
- +70 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.4^VL Photographic Image Storage^1^Known|createIcon")=""
- +71 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.4.1^Video Photographic Image Storage^3^Unknown|createIcon")=""
- +72 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.5.1^Ophthalmic Photography 8 Bit Image Storage^1^Known|createIcon")=""
- +73 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.5.2^Ophthalmic Photography 16 Bit Image Storage^1^Known|createIcon")=""
- +74 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.5.3^Stereometric Relationship Storage^3^Unknown|iconeyes.JPG")=""
- +75 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.5.4^Ophthalmic Tomography Image Storage^3^Unknown|createIcon")=""
- +76 SET MAGN("1.2.840.10008.5.1.4.1.1.78.1^Lensometry Measurements Storage^3^Unknown|createIcon")=""
- +77 SET MAGN("1.2.840.10008.5.1.4.1.1.78.2^Autorefraction Measurements Storage^3^Unknown|createIcon")=""
- +78 SET MAGN("1.2.840.10008.5.1.4.1.1.78.3^Keratometry Measurements Storage^3^Unknown|createIcon")=""
- +79 SET MAGN("1.2.840.10008.5.1.4.1.1.78.4^Subjective Refraction Measurements Storage^3^Unknown|createIcon")=""
- +80 SET MAGN("1.2.840.10008.5.1.4.1.1.78.5^Visual Acuity Measurements^3^Unknown|createIcon")=""
- +81 SET MAGN("1.2.840.10008.5.1.4.1.1.78.6^Spectacle Prescription Reports Storage^3^Unknown|createIcon")=""
- +82 SET MAGN("1.2.840.10008.5.1.4.1.1.79.1^Macular Grid Thickness and Volume Report Storage^3^Unknown|createIcon")=""
- +83 SET MAGN("1.2.840.10008.5.1.4.1.1.88.1^Text SR Storage - Trial (Retired)^3^Unknown|iconsr.JPG")=""
- +84 SET MAGN("1.2.840.10008.5.1.4.1.1.88.2^Audio SR Storage - Trial (Retired)^3^Unknown|iconsr.JPG")=""
- +85 SET MAGN("1.2.840.10008.5.1.4.1.1.88.3^Detail SR Storage - Trial (Retired)^3^Unknown|iconsr.JPG")=""
- +86 SET MAGN("1.2.840.10008.5.1.4.1.1.88.4^Comprehensive SR Storage - Trial (Retired)^3^Unknown|iconsr.JPG")=""
- +87 SET MAGN("1.2.840.10008.5.1.4.1.1.88.11^Basic Text SR Storage^3^Unknown|iconsr.JPG")=""
- +88 SET MAGN("1.2.840.10008.5.1.4.1.1.88.22^Enhanced SR Storage^3^Unknown|iconsr.JPG")=""
- +89 SET MAGN("1.2.840.10008.5.1.4.1.1.88.33^Comprehensive SR Storage^3^Unknown|iconsr.JPG")=""
- +90 SET MAGN("1.2.840.10008.5.1.4.1.1.88.40^Procedure Log Storage^3^Unknown|iconsr.JPG")=""
- +91 SET MAGN("1.2.840.10008.5.1.4.1.1.88.50^Mammography CAD SR^3^Unknown|iconsr.JPG")=""
- +92 SET MAGN("1.2.840.10008.5.1.4.1.1.88.59^Key Object Selection Document^3^Unknown|iconsr.JPG")=""
- +93 SET MAGN("1.2.840.10008.5.1.4.1.1.88.65^Chest CAD SR^3^Unknown|iconsr.JPG")=""
- +94 SET MAGN("1.2.840.10008.5.1.4.1.1.88.67^X-Ray Radiation Dose SR Storage^3^Unknown|iconsr.JPG")=""
- +95 SET MAGN("1.2.840.10008.5.1.4.1.1.88.69^Colon CAD SR Storage^3^Unknown|iconsr.JPG")=""
- +96 SET MAGN("1.2.840.10008.5.1.4.1.1.104.1^Encapsulated PDF Storage^1^Known|magpdf.JPG")=""
- +97 SET MAGN("1.2.840.10008.5.1.4.1.1.104.2^Encapsulated CDA Storage^3^Unknown|iconcda.JPG")=""
- +98 SET MAGN("1.2.840.10008.5.1.4.1.1.128^Positron Emission Tomography Image Storage^1^Known|createIcon")=""
- +99 SET MAGN("1.2.840.10008.5.1.4.1.1.129^Standalone PET Curve Storage^1^Known|iconcurve.JPG")=""
- +100 SET MAGN("1.2.840.10008.5.1.4.1.1.130^Enhanced PET Image Storage^3^Unknown|createIcon")=""
- +101 SET MAGN("1.2.840.10008.5.1.4.1.1.131^Basic Structured Display Storage^3^Unknown|iconsr.JPG")=""
- +102 SET MAGN("1.2.840.10008.5.1.4.1.1.481.1^RT Image Storage^1^Known|createIcon")=""
- +103 SET MAGN("1.2.840.10008.5.1.4.1.1.481.2^RT Dose Storage^3^Unknown|iconrt.JPG")=""
- +104 SET MAGN("1.2.840.10008.5.1.4.1.1.481.3^RT Structure Set Storage^3^Unknown|iconrt.JPG")=""
- +105 SET MAGN("1.2.840.10008.5.1.4.1.1.481.4^RT Beams Treatment Record Storage^3^Unknown|iconrt.JPG")=""
- +106 SET MAGN("1.2.840.10008.5.1.4.1.1.481.5^RT Plan Storage^3^Unknown|iconrt.JPG")=""
- +107 SET MAGN("1.2.840.10008.5.1.4.1.1.481.6^RT Brachy Treatment Record Storage^3^Unknown|iconrt.JPG")=""
- +108 SET MAGN("1.2.840.10008.5.1.4.1.1.481.7^RT Treatment Summary Record Storage^3^Unknown|iconrt.JPG")=""
- +109 SET MAGN("1.2.840.10008.5.1.4.1.1.481.8^RT Ion Plan Storage^3^Unknown|iconrt.JPG")=""
- +110 SET MAGN("1.2.840.10008.5.1.4.1.1.481.9^RT Ion Beams Treatment Record Storage^3^Unknown|iconrt.JPG")=""
- +111 SET MAGN("1.2.840.10008.5.1.4.34.1^RT Beams Delivery Instruction Storage (Supplement 74 Frozen Draft)^3^Unknown|iconrt.JPG")=""
- +112 SET MAGN("1.2.840.10008.5.1.4.38.1^Hanging Protocol Storage^3^Unknown|iconpstate.JPG")=""
- +113 SET MAGN("1.2.840.10008.5.1.4.1.1.77.1.6^VL Whole Slide Microscopic Image Storage^3^Unknown|createIcon")=""
- +114 ; P271 Update New SOP Classes
- DO UPDATE^MAGVSPU2(.MAGN)
- +115 QUIT
