RAIPS217.m

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 ---RAIPS217   1069     printed  Apr 23, 2025@18:50:44                                                                                                                                                                                                    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