RAIPR124.m

RAIPR124 ;HISC/GJC pre-install routine ;12 Apr 2018 4:02 PM

 ;;5.0;Radiology/Nuclear Medicine;**124**;Mar 16, 1998;Build 4

 ;

 ;Routine              IA          Type

 ;-------------------------------------

 ; ^DIK                10013        (S)

 ;

 N RACHX1,RACHX2

 S RACHX1=$$NEWCP^XPDUTL("PRE1","EN1^RAIPR124")

 Q

 ;

EN1 ;Delete the EXAM STATUS field (70.03;3) from

 ;the RAD/NUC MED PATIENT (#70) data dictionary.

 ;

 N %,DA,DIK,Y,X

 S DIK="^DD(70.03,",DA=3,DA(1)=70.03

 D ^DIK

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RAIPR124   507     printed  Sep 23, 2025@20:11:49                                                                                                                                                                                                     Page 2

RAIPR124  ;HISC/GJC pre-install routine ;12 Apr 2018 4:02 PM

 +1       ;;5.0;Radiology/Nuclear Medicine;**124**;Mar 16, 1998;Build 4

 +2       ;

 +3       ;Routine              IA          Type

 +4       ;-------------------------------------

 +5       ; ^DIK                10013        (S)

 +6       ;

 +7        NEW RACHX1,RACHX2

 +8        SET RACHX1=$$NEWCP^XPDUTL("PRE1","EN1^RAIPR124")

 +9        QUIT 

 +10      ;

EN1       ;Delete the EXAM STATUS field (70.03;3) from

 +1       ;the RAD/NUC MED PATIENT (#70) data dictionary.

 +2       ;

 +3        NEW %,DA,DIK,Y,X

 +4        SET DIK="^DD(70.03,"

           SET DA=3

           SET DA(1)=70.03

 +5        DO ^DIK

 +6        QUIT 

 +7       ;