RAIPS217 ;WOIFO/KLM - Post-init Driver ; Jul 16, 2024@12:50:46
;;5.0;Radiology/Nuclear Medicine;**217**;Mar 16, 1998;Build 1
;
;This patch will check/update the modality code on the recently added liver studies.
;
EN ;entry point
N RAPROC,RAPIEN,RAMDL,RAI
F RAI=1:1 S RAPROC=$P($T(PROCS+RAI),";",3) Q:RAPROC="" D
.S RAPIEN=$$FIND1^DIC(71,,"X",RAPROC) Q:RAPIEN=0
.N RAMODA S RAMODA=0 F S RAMODA=$O(^RAMIS(71,RAPIEN,"MDL",RAMODA)) Q:RAMODA="B" D
..S RAMDL=$G(^RAMIS(71,RAPIEN,"MDL",RAMODA,0)) Q:RAMDL'=$E(RAPROC,1,2)
..S RAIENS=RAMODA_","_RAPIEN_","
..S RAFDA(71.0731,RAIENS,.01)=RAMDL
..D FILE^DIE("E","RAFDA","RAERR")
..I $D(RAERR(1,"DIERR"))#2 D MES^XPDUTL("An error occured filing the Modality data for "_RAPROC)
..I '$D(RAERR) D MES^XPDUTL(RAPROC_" Updated")
..;No need to send to OE/RR - we do not send them modality
..Q
.Q
Q
PROCS ;Liver Procedures
;;MRI LIVER W/WO IV CONTRAST HCC
;;CT LIVER W/ IV CONTRAST 3 PHASE HCC
;;CT LIVER W/WO IV CONTRAST 4 PHASE HCC
;;US LIVER HCC SCREENING
;;US LIVER W/CONTRAST HCC
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS217 1069 printed Aug 26, 2025@22:52:10 Page 2
RAIPS217 ;WOIFO/KLM - Post-init Driver ; Jul 16, 2024@12:50:46
+1 ;;5.0;Radiology/Nuclear Medicine;**217**;Mar 16, 1998;Build 1
+2 ;
+3 ;This patch will check/update the modality code on the recently added liver studies.
+4 ;
EN ;entry point
+1 NEW RAPROC,RAPIEN,RAMDL,RAI
+2 FOR RAI=1:1
SET RAPROC=$PIECE($TEXT(PROCS+RAI),";",3)
if RAPROC=""
QUIT
Begin DoDot:1
+3 SET RAPIEN=$$FIND1^DIC(71,,"X",RAPROC)
if RAPIEN=0
QUIT
+4 NEW RAMODA
SET RAMODA=0
FOR
SET RAMODA=$ORDER(^RAMIS(71,RAPIEN,"MDL",RAMODA))
if RAMODA="B"
QUIT
Begin DoDot:2
+5 SET RAMDL=$GET(^RAMIS(71,RAPIEN,"MDL",RAMODA,0))
if RAMDL'=$EXTRACT(RAPROC,1,2)
QUIT
+6 SET RAIENS=RAMODA_","_RAPIEN_","
+7 SET RAFDA(71.0731,RAIENS,.01)=RAMDL
+8 DO FILE^DIE("E","RAFDA","RAERR")
+9 IF $DATA(RAERR(1,"DIERR"))#2
DO MES^XPDUTL("An error occured filing the Modality data for "_RAPROC)
+10 IF '$DATA(RAERR)
DO MES^XPDUTL(RAPROC_" Updated")
+11 ;No need to send to OE/RR - we do not send them modality
+12 QUIT
End DoDot:2
+13 QUIT
End DoDot:1
+14 QUIT
PROCS ;Liver Procedures
+1 ;;MRI LIVER W/WO IV CONTRAST HCC
+2 ;;CT LIVER W/ IV CONTRAST 3 PHASE HCC
+3 ;;CT LIVER W/WO IV CONTRAST 4 PHASE HCC
+4 ;;US LIVER HCC SCREENING
+5 ;;US LIVER W/CONTRAST HCC
