RAIPS187 ;WOIFO/KLM - PostInit 187; Feb 24, 2022@09:24:47
;;5.0;Radiology/Nuclear Medicine;**187**;Mar 16, 1998;Build 1
;This post-init routine updates the DICOM Modality terms in file
;RAD MODALITY DEFINED TERMS (#73.1) per the DICOM STANDARD(PS 3.3 - 2022a)
;
;
EN ;post-init entry point
N RAI,RA01,RA1,RA2,RA3,RADATA,RATXT,RAMSG
F RAI=1:1 S RADATA=$T(DATA+RAI) Q:RADATA="" D
.S RA01=$P($P(RADATA,";",3),"^"),RA1=$P(RADATA,"^",2),RA2=$P(RADATA,"^",3),RA3=$P(RADATA,"^",4)
.N RAFDA,RAR S RAR="RAFDA(73.1,""?+1,"")" ;FDA root -Check for existing entry to update
.S @RAR@(.01)=RA01 ;MODALITY ABBREVIATION
.S:$D(RA1) @RAR@(1)=RA1 ;MODALITY NAME
.S:$D(RA2) @RAR@(2)=RA2 ;STATUS
.S:$D(RA3) @RAR@(3)=RA3 ;REPLACED BY
.D UPDATE^DIE("E","RAFDA","","RAMSG") K RAFDA
.I $D(RAMSG(1,"DIERR"))#2 D MES^XPDUTL("An error occured filing data for "_RA1)
.Q
Q
DATA ;data
;;ANN^Annotation^^
;;AR^Autorefraction^^
;;ASMT^Content Assessment Results^^
;;AU^Audio^^
;;BDUS^Bone Densitometry (ultrasound)^^
;;BI^Biomagnetic Imaging^^
;;BMD^Bone Densitometry (X-Ray)^^
;;CR^Computed Radiography^
;;CT^Computed Tomography^^
;;CTPROTOCOL^CT Protocol (Performed)^^
;;DMS^Dermoscopy^^
;;DG^Diaphanography^^
;;DOC^Document^^
;;DX^Digital Radiography^^
;;ECG^Electrocardiography^^
;;EEG^Electroencephalography^^
;;EMG^Electromyography^^
;;EOG^Electrooculography^^
;;EPS^Cardiac Electrophysiology^^
;;ES^Endoscopy^^
;;FID^Fiducials^^
;;GM^General Microscopy^^
;;HC^Hard Copy^^
;;HD^Hemodynamic Waveform^^
;;IO^Intra-Oral Radiography^^
;;IOL^Intraocular Lens Data^^
;;IVOCT^Intravascular Optical Coherence Tomography^^
;;IVUS^Intravascular Ultrasound^^
;;KER^Keratometry^^
;;KO^Key Object Selection^^
;;LEN^Lensometry^^
;;LS^Laser Surface Scan^^
;;MG^Mammography^^
;;MR^Magnetic Resonance^^
;;M3D^Model for 3D Manufacturing^^
;;NM^Nuclear Medicine^^
;;OAM^Ophthalmic Axial Measurements^^
;;OCT^Optical Coherence Tomography (non-Ophthalmic)^^
;;OP^Ophthalmic Photography^^
;;OPM^Ophthalmic Mapping^^
;;OPT^Ophthalmic Tomography^^
;;OPTBSV^Ophthalmic Tomography B-scan Volume Analysis^^
;;OPTENF^Ophthalmic Tomography En Face^^
;;OPV^Ophthalmic Visual Field^^
;;OSS^Optical Surface Scan^^
;;OT^Other^^
;;PLAN^Plan^^
;;POS^Position Sensor^^
;;PR^Presentation State^
;;PT^Positron Emission Tomography (PET)^^
;;PX^Panoramic X-Ray^^
;;REG^Registration^^
;;RESP^Respiratory Waveform^^
;;RF^Radio Fluoroscopy^^
;;RG^Radiographic Imaging (conventional film/screen)^^
;;RTDOSE^Radiotherapy Dose^^
;;RTIMAGE^Radiotherapy Image^^
;;RTINTENT^Radiotherapy Intent^^
;;RTPLAN^Radiotherapy Plan^^
;;RTRAD^RT Radiation^^
;;RTRECORD^RT Treatment Record^^
;;RTSEGANN^Radiotherapy Segment Annotation^^
;;RTSTRUCT^Radiotherapy Structure Set^^
;;RWV^Real World Value Map^^
;;SEG^Segmentation^^
;;SM^Slide Microscopy^^
;;SMR^Stereometric Relationship^^
;;SR^SR Document^^
;;SRF^Subjective Refraction^^
;;STAIN^Automated Slide Stainer^^
;;TEXTUREMAP^Texture Map^^
;;TG^Thermography^^
;;US^Ultrasound^^
;;VA^Visual Acuity^^
;;XA^X-Ray Angiography^^
;;XAPROTOCOL^XA Protocol (Performed)^^
;;XC^External-Camera Photography^^
;;AS^Angioscopy^R^
;;CD^Color Flow Doppler^R^US
;;CF^Cinefluorography^R^RF
;;CP^Culposcopy^R^
;;CS^Cystoscopy^R^
;;DD^Duplex Doppler^R^US
;;DF^Digital Fluoroscopy^R^RF
;;DM^Digital Microscopy^R^
;;DS^Digital Subtraction Angiography^R^XA
;;EC^Echocardiography^R^US
;;FA^Fluorescein Angiography^R^
;;FS^Fundoscopy^R^
;;LP^Laparoscopy^R^
;;MA^Magnetic Resonance Angiography^R^MR
;;MS^Magnetic Resonance Spectroscopy^R^MR
;;OPR^Ophthalmic Refraction^R^
;;ST^Single-Photon Emission Computed Tomography (SPECT)^R^NM
;;VF^Videofluorography^R^RF
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS187 3841 printed Oct 16, 2024@18:36:51 Page 2
RAIPS187 ;WOIFO/KLM - PostInit 187; Feb 24, 2022@09:24:47
+1 ;;5.0;Radiology/Nuclear Medicine;**187**;Mar 16, 1998;Build 1
+2 ;This post-init routine updates the DICOM Modality terms in file
+3 ;RAD MODALITY DEFINED TERMS (#73.1) per the DICOM STANDARD(PS 3.3 - 2022a)
+4 ;
+5 ;
EN ;post-init entry point
+1 NEW RAI,RA01,RA1,RA2,RA3,RADATA,RATXT,RAMSG
+2 FOR RAI=1:1
SET RADATA=$TEXT(DATA+RAI)
if RADATA=""
QUIT
Begin DoDot:1
+3 SET RA01=$PIECE($PIECE(RADATA,";",3),"^")
SET RA1=$PIECE(RADATA,"^",2)
SET RA2=$PIECE(RADATA,"^",3)
SET RA3=$PIECE(RADATA,"^",4)
+4 ;FDA root -Check for existing entry to update
NEW RAFDA,RAR
SET RAR="RAFDA(73.1,""?+1,"")"
+5 ;MODALITY ABBREVIATION
SET @RAR@(.01)=RA01
+6 ;MODALITY NAME
if $DATA(RA1)
SET @RAR@(1)=RA1
+7 ;STATUS
if $DATA(RA2)
SET @RAR@(2)=RA2
+8 ;REPLACED BY
if $DATA(RA3)
SET @RAR@(3)=RA3
+9 DO UPDATE^DIE("E","RAFDA","","RAMSG")
KILL RAFDA
+10 IF $DATA(RAMSG(1,"DIERR"))#2
DO MES^XPDUTL("An error occured filing data for "_RA1)
+11 QUIT
End DoDot:1
+12 QUIT
DATA ;data
+1 ;;ANN^Annotation^^
+2 ;;AR^Autorefraction^^
+3 ;;ASMT^Content Assessment Results^^
+4 ;;AU^Audio^^
+5 ;;BDUS^Bone Densitometry (ultrasound)^^
+6 ;;BI^Biomagnetic Imaging^^
+7 ;;BMD^Bone Densitometry (X-Ray)^^
+8 ;;CR^Computed Radiography^
+9 ;;CT^Computed Tomography^^
+10 ;;CTPROTOCOL^CT Protocol (Performed)^^
+11 ;;DMS^Dermoscopy^^
+12 ;;DG^Diaphanography^^
+13 ;;DOC^Document^^
+14 ;;DX^Digital Radiography^^
+15 ;;ECG^Electrocardiography^^
+16 ;;EEG^Electroencephalography^^
+17 ;;EMG^Electromyography^^
+18 ;;EOG^Electrooculography^^
+19 ;;EPS^Cardiac Electrophysiology^^
+20 ;;ES^Endoscopy^^
+21 ;;FID^Fiducials^^
+22 ;;GM^General Microscopy^^
+23 ;;HC^Hard Copy^^
+24 ;;HD^Hemodynamic Waveform^^
+25 ;;IO^Intra-Oral Radiography^^
+26 ;;IOL^Intraocular Lens Data^^
+27 ;;IVOCT^Intravascular Optical Coherence Tomography^^
+28 ;;IVUS^Intravascular Ultrasound^^
+29 ;;KER^Keratometry^^
+30 ;;KO^Key Object Selection^^
+31 ;;LEN^Lensometry^^
+32 ;;LS^Laser Surface Scan^^
+33 ;;MG^Mammography^^
+34 ;;MR^Magnetic Resonance^^
+35 ;;M3D^Model for 3D Manufacturing^^
+36 ;;NM^Nuclear Medicine^^
+37 ;;OAM^Ophthalmic Axial Measurements^^
+38 ;;OCT^Optical Coherence Tomography (non-Ophthalmic)^^
+39 ;;OP^Ophthalmic Photography^^
+40 ;;OPM^Ophthalmic Mapping^^
+41 ;;OPT^Ophthalmic Tomography^^
+42 ;;OPTBSV^Ophthalmic Tomography B-scan Volume Analysis^^
+43 ;;OPTENF^Ophthalmic Tomography En Face^^
+44 ;;OPV^Ophthalmic Visual Field^^
+45 ;;OSS^Optical Surface Scan^^
+46 ;;OT^Other^^
+47 ;;PLAN^Plan^^
+48 ;;POS^Position Sensor^^
+49 ;;PR^Presentation State^
+50 ;;PT^Positron Emission Tomography (PET)^^
+51 ;;PX^Panoramic X-Ray^^
+52 ;;REG^Registration^^
+53 ;;RESP^Respiratory Waveform^^
+54 ;;RF^Radio Fluoroscopy^^
+55 ;;RG^Radiographic Imaging (conventional film/screen)^^
+56 ;;RTDOSE^Radiotherapy Dose^^
+57 ;;RTIMAGE^Radiotherapy Image^^
+58 ;;RTINTENT^Radiotherapy Intent^^
+59 ;;RTPLAN^Radiotherapy Plan^^
+60 ;;RTRAD^RT Radiation^^
+61 ;;RTRECORD^RT Treatment Record^^
+62 ;;RTSEGANN^Radiotherapy Segment Annotation^^
+63 ;;RTSTRUCT^Radiotherapy Structure Set^^
+64 ;;RWV^Real World Value Map^^
+65 ;;SEG^Segmentation^^
+66 ;;SM^Slide Microscopy^^
+67 ;;SMR^Stereometric Relationship^^
+68 ;;SR^SR Document^^
+69 ;;SRF^Subjective Refraction^^
+70 ;;STAIN^Automated Slide Stainer^^
+71 ;;TEXTUREMAP^Texture Map^^
+72 ;;TG^Thermography^^
+73 ;;US^Ultrasound^^
+74 ;;VA^Visual Acuity^^
+75 ;;XA^X-Ray Angiography^^
+76 ;;XAPROTOCOL^XA Protocol (Performed)^^
+77 ;;XC^External-Camera Photography^^
+78 ;;AS^Angioscopy^R^
+79 ;;CD^Color Flow Doppler^R^US
+80 ;;CF^Cinefluorography^R^RF
+81 ;;CP^Culposcopy^R^
+82 ;;CS^Cystoscopy^R^
+83 ;;DD^Duplex Doppler^R^US
+84 ;;DF^Digital Fluoroscopy^R^RF
+85 ;;DM^Digital Microscopy^R^
+86 ;;DS^Digital Subtraction Angiography^R^XA
+87 ;;EC^Echocardiography^R^US
+88 ;;FA^Fluorescein Angiography^R^
+89 ;;FS^Fundoscopy^R^
+90 ;;LP^Laparoscopy^R^
+91 ;;MA^Magnetic Resonance Angiography^R^MR
+92 ;;MS^Magnetic Resonance Spectroscopy^R^MR
+93 ;;OPR^Ophthalmic Refraction^R^
+94 ;;ST^Single-Photon Emission Computed Tomography (SPECT)^R^NM
+95 ;;VF^Videofluorography^R^RF
