RAIPS223 ;WOIFO/KLM - Post-init Driver, patch 223 ; Mar 13, 2025@08:46:44
;;5.0;Radiology/Nuclear Medicine;**223**;Mar 16, 1998;Build 4
;
;This post-init will populate the new RADIOLOGY PROCEDURE MAP TO CC CONSULT (#71.1235) file
;for special procedure mapping with auto-referral to community care
;
Q
;
EN ;entry point
N RAI,RA01,RA2,RA3,RA4,RADATA,RADA,RAERR
F RAI=1:1 S RADATA=$T(PROCS+RAI) Q:RADATA="" D
.S RA01=$P($P(RADATA,";",3),"^"),RA2=$P(RADATA,"^",2),RA3=$P(RADATA,"^",3),RA4=$P(RADATA,"^",4)
.N RAFDA,RAR S RAR="RAFDA(71.1235,""?+1,"")" ;FDA root -check for existing entry
.S @RAR@(.01)=RA01
.S:$D(RA2) @RAR@(2)=RA2 ;CCC
.S:$D(RA3) @RAR@(3)=RA3 ;CPT (can be empty)
.S:$D(RA4) @RAR@(4)=RA4 ;I-Type (p79.2)
.K RADA D UPDATE^DIE("E","RAFDA","RADA","RAERR") K RAFDA
.I $D(RAERR(1,"DIERR"))#2 D MES^XPDUTL("An error occured filing data for "_RA01) Q
.Q
Q
;
PROCS ;procedure/i-type mappings to consult
;;ANGIO/NEURO/INTERVENTIONAL^COMMUNITY CARE-IMAGING ANGIO/NEURO/INTERVENTIONAL-AUTO^^ANGIO/NEURO/INTERVENTIONAL
;;CARDIOLOGY STUDIES (NUC MED)^COMMUNITY CARE-IMAGING CARDIOLOGY STUDIES (NUC MED)-AUTO^^CARDIOLOGY STUDIES (NUC MED)
;;CT SCAN^COMMUNITY CARE-IMAGING CT-AUTO^^CT SCAN
;;DIAGNOSTIC MAMMOGRAPHY^COMMUNITY CARE-IMAGING MAMMOGRAPHY DIAGNOSTIC-AUTO^^MAMMOGRAPHY
;;GENERAL RADIOLOGY^COMMUNITY CARE-IMAGING GENERAL RADIOLOGY-AUTO^^GENERAL RADIOLOGY
;;LDCT LUNG CANCER SCREENING^COMMUNITY CARE-IMAGING LDCT LUNG CANCER SCREENING-AUTO^71271^CT SCAN
;;LDCT LCS 1, 3 OR 6 MONTH FOLLOW UP^COMMUNITY CARE-IMAGING LDCT 1, 3, OR 6 MONTH FOLLOW UP-AUTO^71250^CT SCAN
;;MAGNETIC RESONANCE IMAGING^COMMUNITY CARE-IMAGING MAGNETIC RESONANCE IMAGING-AUTO^^MAGNETIC RESONANCE IMAGING
;;NUCLEAR MEDICINE^COMMUNITY CARE-IMAGING NUCLEAR MEDICINE-AUTO^^NUCLEAR MEDICINE
;;SCREEN MAMMOGRAPHY^COMMUNITY CARE-IMAGING MAMMOGRAPHY SCREEN-AUTO^^MAMMOGRAPHY
;;ULTRASOUND^COMMUNITY CARE-IMAGING ULTRASOUND-AUTO^^ULTRASOUND
;;VASCULAR LAB^COMMUNITY CARE-IMAGING VASCULAR LAB-AUTO^^VASCULAR LAB
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS223 2060 printed Sep 23, 2025@20:12:31 Page 2
RAIPS223 ;WOIFO/KLM - Post-init Driver, patch 223 ; Mar 13, 2025@08:46:44
+1 ;;5.0;Radiology/Nuclear Medicine;**223**;Mar 16, 1998;Build 4
+2 ;
+3 ;This post-init will populate the new RADIOLOGY PROCEDURE MAP TO CC CONSULT (#71.1235) file
+4 ;for special procedure mapping with auto-referral to community care
+5 ;
+6 QUIT
+7 ;
EN ;entry point
+1 NEW RAI,RA01,RA2,RA3,RA4,RADATA,RADA,RAERR
+2 FOR RAI=1:1
SET RADATA=$TEXT(PROCS+RAI)
if RADATA=""
QUIT
Begin DoDot:1
+3 SET RA01=$PIECE($PIECE(RADATA,";",3),"^")
SET RA2=$PIECE(RADATA,"^",2)
SET RA3=$PIECE(RADATA,"^",3)
SET RA4=$PIECE(RADATA,"^",4)
+4 ;FDA root -check for existing entry
NEW RAFDA,RAR
SET RAR="RAFDA(71.1235,""?+1,"")"
+5 SET @RAR@(.01)=RA01
+6 ;CCC
if $DATA(RA2)
SET @RAR@(2)=RA2
+7 ;CPT (can be empty)
if $DATA(RA3)
SET @RAR@(3)=RA3
+8 ;I-Type (p79.2)
if $DATA(RA4)
SET @RAR@(4)=RA4
+9 KILL RADA
DO UPDATE^DIE("E","RAFDA","RADA","RAERR")
KILL RAFDA
+10 IF $DATA(RAERR(1,"DIERR"))#2
DO MES^XPDUTL("An error occured filing data for "_RA01)
QUIT
+11 QUIT
End DoDot:1
+12 QUIT
+13 ;
PROCS ;procedure/i-type mappings to consult
+1 ;;ANGIO/NEURO/INTERVENTIONAL^COMMUNITY CARE-IMAGING ANGIO/NEURO/INTERVENTIONAL-AUTO^^ANGIO/NEURO/INTERVENTIONAL
+2 ;;CARDIOLOGY STUDIES (NUC MED)^COMMUNITY CARE-IMAGING CARDIOLOGY STUDIES (NUC MED)-AUTO^^CARDIOLOGY STUDIES (NUC MED)
+3 ;;CT SCAN^COMMUNITY CARE-IMAGING CT-AUTO^^CT SCAN
+4 ;;DIAGNOSTIC MAMMOGRAPHY^COMMUNITY CARE-IMAGING MAMMOGRAPHY DIAGNOSTIC-AUTO^^MAMMOGRAPHY
+5 ;;GENERAL RADIOLOGY^COMMUNITY CARE-IMAGING GENERAL RADIOLOGY-AUTO^^GENERAL RADIOLOGY
+6 ;;LDCT LUNG CANCER SCREENING^COMMUNITY CARE-IMAGING LDCT LUNG CANCER SCREENING-AUTO^71271^CT SCAN
+7 ;;LDCT LCS 1, 3 OR 6 MONTH FOLLOW UP^COMMUNITY CARE-IMAGING LDCT 1, 3, OR 6 MONTH FOLLOW UP-AUTO^71250^CT SCAN
+8 ;;MAGNETIC RESONANCE IMAGING^COMMUNITY CARE-IMAGING MAGNETIC RESONANCE IMAGING-AUTO^^MAGNETIC RESONANCE IMAGING
+9 ;;NUCLEAR MEDICINE^COMMUNITY CARE-IMAGING NUCLEAR MEDICINE-AUTO^^NUCLEAR MEDICINE
+10 ;;SCREEN MAMMOGRAPHY^COMMUNITY CARE-IMAGING MAMMOGRAPHY SCREEN-AUTO^^MAMMOGRAPHY
+11 ;;ULTRASOUND^COMMUNITY CARE-IMAGING ULTRASOUND-AUTO^^ULTRASOUND
+12 ;;VASCULAR LAB^COMMUNITY CARE-IMAGING VASCULAR LAB-AUTO^^VASCULAR LAB
